R Under development (unstable) (2024-10-26 r87273 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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
[18:41:30.194] plan(): Setting new future strategy stack:
[18:41:30.195] List of future strategies:
[18:41:30.195] 1. sequential:
[18:41:30.195]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.195]    - tweaked: FALSE
[18:41:30.195]    - call: future::plan("sequential")
[18:41:30.209] plan(): nbrOfWorkers() = 1
> 
> message("*** future_mapply() ...")
*** future_mapply() ...
> 
> message("- Parallel RNG truth (for later)...")
- Parallel RNG truth (for later)...
> plan(sequential)
[18:41:30.214] plan(): Setting new future strategy stack:
[18:41:30.214] List of future strategies:
[18:41:30.214] 1. sequential:
[18:41:30.214]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.214]    - tweaked: FALSE
[18:41:30.214]    - call: plan(sequential)
[18:41:30.229] plan(): nbrOfWorkers() = 1
> y_rng_0 <- future_mapply(stats::runif, n = 1:4, max = 2:5,
+                          MoreArgs = list(min = 1), future.seed = 0xBEEF)
[18:41:30.229] future_mapply() ...
[18:41:30.230] Generating random seeds ...
[18:41:30.230] Generating random seed streams for 4 elements ...
[18:41:30.231] Generating random seed streams for 4 elements ... DONE
[18:41:30.231] Generating random seeds ... DONE
[18:41:30.231] Will set RNG state on exit: 10407, 1928835599, 1432283652, 74338427, 216147826, -1613519455, -486500277
[18:41:30.231] Number of chunks: 1
[18:41:30.232] getGlobalsAndPackagesXApply() ...
[18:41:30.232]  - future.globals: TRUE
[18:41:30.233] getGlobalsAndPackages() ...
[18:41:30.233] Searching for globals...
[18:41:30.239] - globals found: [3] 'FUN', '.Call', 'C_runif'
[18:41:30.239] Searching for globals ... DONE
[18:41:30.239] Resolving globals: FALSE
[18:41:30.240] The total size of the 1 globals is 501 bytes (501 bytes)
[18:41:30.241] The total size of the 1 globals exported for future expression ('FUN(min = 1)') is 501 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (501 bytes of class 'function')
[18:41:30.241] - globals: [1] 'FUN'
[18:41:30.242] - packages: [1] 'stats'
[18:41:30.242] getGlobalsAndPackages() ... DONE
[18:41:30.242]  - globals found/used: [n=1] 'FUN'
[18:41:30.242]  - needed namespaces: [n=1] 'stats'
[18:41:30.242] Finding globals ... DONE
[18:41:30.243] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.243] List of 2
[18:41:30.243]  $ ...future.FUN:function (n, min = 0, max = 1)  
[18:41:30.243]  $ MoreArgs     :List of 1
[18:41:30.243]   ..$ min: num 1
[18:41:30.243]  - attr(*, "where")=List of 2
[18:41:30.243]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.243]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.243]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.243]  - attr(*, "resolved")= logi FALSE
[18:41:30.243]  - attr(*, "total_size")= num NA
[18:41:30.249] Packages to be attached in all futures: [n=1] 'stats'
[18:41:30.249] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.249] Number of futures (= number of chunks): 1
[18:41:30.250] Launching 1 futures (chunks) ...
[18:41:30.250] Chunk #1 of 1 ...
[18:41:30.250]  - Finding globals in '...' for chunk #1 ...
[18:41:30.250] getGlobalsAndPackages() ...
[18:41:30.251] Searching for globals...
[18:41:30.251] 
[18:41:30.251] Searching for globals ... DONE
[18:41:30.251] - globals: [0] <none>
[18:41:30.252] getGlobalsAndPackages() ... DONE
[18:41:30.252]    + additional globals found: [n=0] 
[18:41:30.252]    + additional namespaces needed: [n=0] 
[18:41:30.252]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.252]  - seeds: [4] <seeds>
[18:41:30.252]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.253] getGlobalsAndPackages() ...
[18:41:30.253] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.253] Resolving globals: FALSE
[18:41:30.254] The total size of the 5 globals is 990 bytes (990 bytes)
[18:41:30.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 990 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (501 bytes of class 'function'), '...future.elements_ii' (196 bytes of class 'list') and '...future.seeds_ii' (175 bytes of class 'list')
[18:41:30.257] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.257] - packages: [1] 'stats'
[18:41:30.257] getGlobalsAndPackages() ... DONE
[18:41:30.258] run() for 'Future' ...
[18:41:30.258] - state: 'created'
[18:41:30.258] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.259] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.259] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.259]   - Field: 'label'
[18:41:30.259]   - Field: 'local'
[18:41:30.260]   - Field: 'owner'
[18:41:30.260]   - Field: 'envir'
[18:41:30.260]   - Field: 'packages'
[18:41:30.260]   - Field: 'gc'
[18:41:30.260]   - Field: 'conditions'
[18:41:30.261]   - Field: 'expr'
[18:41:30.261]   - Field: 'uuid'
[18:41:30.261]   - Field: 'seed'
[18:41:30.261]   - Field: 'version'
[18:41:30.261]   - Field: 'result'
[18:41:30.261]   - Field: 'asynchronous'
[18:41:30.262]   - Field: 'calls'
[18:41:30.262]   - Field: 'globals'
[18:41:30.262]   - Field: 'stdout'
[18:41:30.262]   - Field: 'earlySignal'
[18:41:30.262]   - Field: 'lazy'
[18:41:30.263]   - Field: 'state'
[18:41:30.263] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.263] - Launch lazy future ...
[18:41:30.264] Packages needed by the future expression (n = 1): 'stats'
[18:41:30.264] Packages needed by future strategies (n = 0): <none>
[18:41:30.265] {
[18:41:30.265]     {
[18:41:30.265]         {
[18:41:30.265]             ...future.startTime <- base::Sys.time()
[18:41:30.265]             {
[18:41:30.265]                 {
[18:41:30.265]                   {
[18:41:30.265]                     {
[18:41:30.265]                       base::local({
[18:41:30.265]                         has_future <- base::requireNamespace("future", 
[18:41:30.265]                           quietly = TRUE)
[18:41:30.265]                         if (has_future) {
[18:41:30.265]                           ns <- base::getNamespace("future")
[18:41:30.265]                           version <- ns[[".package"]][["version"]]
[18:41:30.265]                           if (is.null(version)) 
[18:41:30.265]                             version <- utils::packageVersion("future")
[18:41:30.265]                         }
[18:41:30.265]                         else {
[18:41:30.265]                           version <- NULL
[18:41:30.265]                         }
[18:41:30.265]                         if (!has_future || version < "1.8.0") {
[18:41:30.265]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.265]                             "", base::R.version$version.string), 
[18:41:30.265]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:30.265]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.265]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.265]                               "release", "version")], collapse = " "), 
[18:41:30.265]                             hostname = base::Sys.info()[["nodename"]])
[18:41:30.265]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.265]                             info)
[18:41:30.265]                           info <- base::paste(info, collapse = "; ")
[18:41:30.265]                           if (!has_future) {
[18:41:30.265]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.265]                               info)
[18:41:30.265]                           }
[18:41:30.265]                           else {
[18:41:30.265]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.265]                               info, version)
[18:41:30.265]                           }
[18:41:30.265]                           base::stop(msg)
[18:41:30.265]                         }
[18:41:30.265]                       })
[18:41:30.265]                     }
[18:41:30.265]                     base::local({
[18:41:30.265]                       for (pkg in "stats") {
[18:41:30.265]                         base::loadNamespace(pkg)
[18:41:30.265]                         base::library(pkg, character.only = TRUE)
[18:41:30.265]                       }
[18:41:30.265]                     })
[18:41:30.265]                   }
[18:41:30.265]                   ...future.strategy.old <- future::plan("list")
[18:41:30.265]                   options(future.plan = NULL)
[18:41:30.265]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.265]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.265]                 }
[18:41:30.265]                 ...future.workdir <- getwd()
[18:41:30.265]             }
[18:41:30.265]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.265]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.265]         }
[18:41:30.265]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.265]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.265]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.265]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.265]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.265]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.265]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.265]             base::names(...future.oldOptions))
[18:41:30.265]     }
[18:41:30.265]     if (FALSE) {
[18:41:30.265]     }
[18:41:30.265]     else {
[18:41:30.265]         if (TRUE) {
[18:41:30.265]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.265]                 open = "w")
[18:41:30.265]         }
[18:41:30.265]         else {
[18:41:30.265]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.265]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.265]         }
[18:41:30.265]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.265]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.265]             base::sink(type = "output", split = FALSE)
[18:41:30.265]             base::close(...future.stdout)
[18:41:30.265]         }, add = TRUE)
[18:41:30.265]     }
[18:41:30.265]     ...future.frame <- base::sys.nframe()
[18:41:30.265]     ...future.conditions <- base::list()
[18:41:30.265]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.265]     if (FALSE) {
[18:41:30.265]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.265]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.265]     }
[18:41:30.265]     ...future.result <- base::tryCatch({
[18:41:30.265]         base::withCallingHandlers({
[18:41:30.265]             ...future.value <- base::withVisible(base::local({
[18:41:30.265]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.265]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.265]                   ...future.globals.maxSize)) {
[18:41:30.265]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.265]                   on.exit(options(oopts), add = TRUE)
[18:41:30.265]                 }
[18:41:30.265]                 {
[18:41:30.265]                   ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:30.265]                     assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:30.265]                       envir = globalenv(), inherits = FALSE)
[18:41:30.265]                     ...future.FUN(...)
[18:41:30.265]                   }
[18:41:30.265]                   args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:30.265]                     list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:30.265]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.265]                     USE.NAMES = FALSE)
[18:41:30.265]                   do.call(mapply, args = args)
[18:41:30.265]                 }
[18:41:30.265]             }))
[18:41:30.265]             future::FutureResult(value = ...future.value$value, 
[18:41:30.265]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.265]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.265]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.265]                     ...future.globalenv.names))
[18:41:30.265]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.265]         }, condition = base::local({
[18:41:30.265]             c <- base::c
[18:41:30.265]             inherits <- base::inherits
[18:41:30.265]             invokeRestart <- base::invokeRestart
[18:41:30.265]             length <- base::length
[18:41:30.265]             list <- base::list
[18:41:30.265]             seq.int <- base::seq.int
[18:41:30.265]             signalCondition <- base::signalCondition
[18:41:30.265]             sys.calls <- base::sys.calls
[18:41:30.265]             `[[` <- base::`[[`
[18:41:30.265]             `+` <- base::`+`
[18:41:30.265]             `<<-` <- base::`<<-`
[18:41:30.265]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.265]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.265]                   3L)]
[18:41:30.265]             }
[18:41:30.265]             function(cond) {
[18:41:30.265]                 is_error <- inherits(cond, "error")
[18:41:30.265]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.265]                   NULL)
[18:41:30.265]                 if (is_error) {
[18:41:30.265]                   sessionInformation <- function() {
[18:41:30.265]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.265]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.265]                       search = base::search(), system = base::Sys.info())
[18:41:30.265]                   }
[18:41:30.265]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.265]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.265]                     cond$call), session = sessionInformation(), 
[18:41:30.265]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.265]                   signalCondition(cond)
[18:41:30.265]                 }
[18:41:30.265]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.265]                 "immediateCondition"))) {
[18:41:30.265]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.265]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.265]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.265]                   if (TRUE && !signal) {
[18:41:30.265]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.265]                     {
[18:41:30.265]                       inherits <- base::inherits
[18:41:30.265]                       invokeRestart <- base::invokeRestart
[18:41:30.265]                       is.null <- base::is.null
[18:41:30.265]                       muffled <- FALSE
[18:41:30.265]                       if (inherits(cond, "message")) {
[18:41:30.265]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.265]                         if (muffled) 
[18:41:30.265]                           invokeRestart("muffleMessage")
[18:41:30.265]                       }
[18:41:30.265]                       else if (inherits(cond, "warning")) {
[18:41:30.265]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.265]                         if (muffled) 
[18:41:30.265]                           invokeRestart("muffleWarning")
[18:41:30.265]                       }
[18:41:30.265]                       else if (inherits(cond, "condition")) {
[18:41:30.265]                         if (!is.null(pattern)) {
[18:41:30.265]                           computeRestarts <- base::computeRestarts
[18:41:30.265]                           grepl <- base::grepl
[18:41:30.265]                           restarts <- computeRestarts(cond)
[18:41:30.265]                           for (restart in restarts) {
[18:41:30.265]                             name <- restart$name
[18:41:30.265]                             if (is.null(name)) 
[18:41:30.265]                               next
[18:41:30.265]                             if (!grepl(pattern, name)) 
[18:41:30.265]                               next
[18:41:30.265]                             invokeRestart(restart)
[18:41:30.265]                             muffled <- TRUE
[18:41:30.265]                             break
[18:41:30.265]                           }
[18:41:30.265]                         }
[18:41:30.265]                       }
[18:41:30.265]                       invisible(muffled)
[18:41:30.265]                     }
[18:41:30.265]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.265]                   }
[18:41:30.265]                 }
[18:41:30.265]                 else {
[18:41:30.265]                   if (TRUE) {
[18:41:30.265]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.265]                     {
[18:41:30.265]                       inherits <- base::inherits
[18:41:30.265]                       invokeRestart <- base::invokeRestart
[18:41:30.265]                       is.null <- base::is.null
[18:41:30.265]                       muffled <- FALSE
[18:41:30.265]                       if (inherits(cond, "message")) {
[18:41:30.265]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.265]                         if (muffled) 
[18:41:30.265]                           invokeRestart("muffleMessage")
[18:41:30.265]                       }
[18:41:30.265]                       else if (inherits(cond, "warning")) {
[18:41:30.265]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.265]                         if (muffled) 
[18:41:30.265]                           invokeRestart("muffleWarning")
[18:41:30.265]                       }
[18:41:30.265]                       else if (inherits(cond, "condition")) {
[18:41:30.265]                         if (!is.null(pattern)) {
[18:41:30.265]                           computeRestarts <- base::computeRestarts
[18:41:30.265]                           grepl <- base::grepl
[18:41:30.265]                           restarts <- computeRestarts(cond)
[18:41:30.265]                           for (restart in restarts) {
[18:41:30.265]                             name <- restart$name
[18:41:30.265]                             if (is.null(name)) 
[18:41:30.265]                               next
[18:41:30.265]                             if (!grepl(pattern, name)) 
[18:41:30.265]                               next
[18:41:30.265]                             invokeRestart(restart)
[18:41:30.265]                             muffled <- TRUE
[18:41:30.265]                             break
[18:41:30.265]                           }
[18:41:30.265]                         }
[18:41:30.265]                       }
[18:41:30.265]                       invisible(muffled)
[18:41:30.265]                     }
[18:41:30.265]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.265]                   }
[18:41:30.265]                 }
[18:41:30.265]             }
[18:41:30.265]         }))
[18:41:30.265]     }, error = function(ex) {
[18:41:30.265]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.265]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.265]                 ...future.rng), started = ...future.startTime, 
[18:41:30.265]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.265]             version = "1.8"), class = "FutureResult")
[18:41:30.265]     }, finally = {
[18:41:30.265]         if (!identical(...future.workdir, getwd())) 
[18:41:30.265]             setwd(...future.workdir)
[18:41:30.265]         {
[18:41:30.265]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.265]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.265]             }
[18:41:30.265]             base::options(...future.oldOptions)
[18:41:30.265]             if (.Platform$OS.type == "windows") {
[18:41:30.265]                 old_names <- names(...future.oldEnvVars)
[18:41:30.265]                 envs <- base::Sys.getenv()
[18:41:30.265]                 names <- names(envs)
[18:41:30.265]                 common <- intersect(names, old_names)
[18:41:30.265]                 added <- setdiff(names, old_names)
[18:41:30.265]                 removed <- setdiff(old_names, names)
[18:41:30.265]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.265]                   envs[common]]
[18:41:30.265]                 NAMES <- toupper(changed)
[18:41:30.265]                 args <- list()
[18:41:30.265]                 for (kk in seq_along(NAMES)) {
[18:41:30.265]                   name <- changed[[kk]]
[18:41:30.265]                   NAME <- NAMES[[kk]]
[18:41:30.265]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.265]                     next
[18:41:30.265]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.265]                 }
[18:41:30.265]                 NAMES <- toupper(added)
[18:41:30.265]                 for (kk in seq_along(NAMES)) {
[18:41:30.265]                   name <- added[[kk]]
[18:41:30.265]                   NAME <- NAMES[[kk]]
[18:41:30.265]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.265]                     next
[18:41:30.265]                   args[[name]] <- ""
[18:41:30.265]                 }
[18:41:30.265]                 NAMES <- toupper(removed)
[18:41:30.265]                 for (kk in seq_along(NAMES)) {
[18:41:30.265]                   name <- removed[[kk]]
[18:41:30.265]                   NAME <- NAMES[[kk]]
[18:41:30.265]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.265]                     next
[18:41:30.265]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.265]                 }
[18:41:30.265]                 if (length(args) > 0) 
[18:41:30.265]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.265]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.265]             }
[18:41:30.265]             else {
[18:41:30.265]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.265]             }
[18:41:30.265]             {
[18:41:30.265]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.265]                   0L) {
[18:41:30.265]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.265]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.265]                   base::options(opts)
[18:41:30.265]                 }
[18:41:30.265]                 {
[18:41:30.265]                   {
[18:41:30.265]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.265]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.265]                     -486500277L), envir = base::globalenv(), 
[18:41:30.265]                       inherits = FALSE)
[18:41:30.265]                     NULL
[18:41:30.265]                   }
[18:41:30.265]                   options(future.plan = NULL)
[18:41:30.265]                   if (is.na(NA_character_)) 
[18:41:30.265]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.265]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.265]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.265]                     .init = FALSE)
[18:41:30.265]                 }
[18:41:30.265]             }
[18:41:30.265]         }
[18:41:30.265]     })
[18:41:30.265]     if (TRUE) {
[18:41:30.265]         base::sink(type = "output", split = FALSE)
[18:41:30.265]         if (TRUE) {
[18:41:30.265]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.265]         }
[18:41:30.265]         else {
[18:41:30.265]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.265]         }
[18:41:30.265]         base::close(...future.stdout)
[18:41:30.265]         ...future.stdout <- NULL
[18:41:30.265]     }
[18:41:30.265]     ...future.result$conditions <- ...future.conditions
[18:41:30.265]     ...future.result$finished <- base::Sys.time()
[18:41:30.265]     ...future.result
[18:41:30.265] }
[18:41:30.270] assign_globals() ...
[18:41:30.270] List of 5
[18:41:30.270]  $ ...future.FUN            :function (n, min = 0, max = 1)  
[18:41:30.270]  $ MoreArgs                 :List of 1
[18:41:30.270]   ..$ min: num 1
[18:41:30.270]  $ ...future.elements_ii    :List of 2
[18:41:30.270]   ..$ n  :List of 4
[18:41:30.270]   .. ..$ : int 1
[18:41:30.270]   .. ..$ : int 2
[18:41:30.270]   .. ..$ : int 3
[18:41:30.270]   .. ..$ : int 4
[18:41:30.270]   ..$ max:List of 4
[18:41:30.270]   .. ..$ : int 2
[18:41:30.270]   .. ..$ : int 3
[18:41:30.270]   .. ..$ : int 4
[18:41:30.270]   .. ..$ : int 5
[18:41:30.270]  $ ...future.seeds_ii       :List of 4
[18:41:30.270]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[18:41:30.270]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[18:41:30.270]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[18:41:30.270]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[18:41:30.270]  $ ...future.globals.maxSize: NULL
[18:41:30.270]  - attr(*, "where")=List of 5
[18:41:30.270]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.270]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.270]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.270]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.270]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.270]  - attr(*, "resolved")= logi FALSE
[18:41:30.270]  - attr(*, "total_size")= int 990
[18:41:30.270]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.270]  - attr(*, "already-done")= logi TRUE
[18:41:30.280] - copied '...future.FUN' to environment
[18:41:30.280] - copied 'MoreArgs' to environment
[18:41:30.281] - copied '...future.elements_ii' to environment
[18:41:30.281] - copied '...future.seeds_ii' to environment
[18:41:30.281] - copied '...future.globals.maxSize' to environment
[18:41:30.281] assign_globals() ... done
[18:41:30.282] plan(): Setting new future strategy stack:
[18:41:30.282] List of future strategies:
[18:41:30.282] 1. sequential:
[18:41:30.282]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.282]    - tweaked: FALSE
[18:41:30.282]    - call: NULL
[18:41:30.283] plan(): nbrOfWorkers() = 1
[18:41:30.285] plan(): Setting new future strategy stack:
[18:41:30.285] List of future strategies:
[18:41:30.285] 1. sequential:
[18:41:30.285]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.285]    - tweaked: FALSE
[18:41:30.285]    - call: plan(sequential)
[18:41:30.286] plan(): nbrOfWorkers() = 1
[18:41:30.287] SequentialFuture started (and completed)
[18:41:30.287] - Launch lazy future ... done
[18:41:30.287] run() for 'SequentialFuture' ... done
[18:41:30.288] Created future:
[18:41:30.288] SequentialFuture:
[18:41:30.288] Label: 'future_mapply-1'
[18:41:30.288] Expression:
[18:41:30.288] {
[18:41:30.288]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.288]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.288]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.288]         on.exit(options(oopts), add = TRUE)
[18:41:30.288]     }
[18:41:30.288]     {
[18:41:30.288]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:30.288]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:30.288]                 inherits = FALSE)
[18:41:30.288]             ...future.FUN(...)
[18:41:30.288]         }
[18:41:30.288]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:30.288]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:30.288]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.288]         do.call(mapply, args = args)
[18:41:30.288]     }
[18:41:30.288] }
[18:41:30.288] Lazy evaluation: FALSE
[18:41:30.288] Asynchronous evaluation: FALSE
[18:41:30.288] Local evaluation: TRUE
[18:41:30.288] Environment: R_GlobalEnv
[18:41:30.288] Capture standard output: TRUE
[18:41:30.288] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.288] Globals: 5 objects totaling 990 bytes (function '...future.FUN' of 501 bytes, list 'MoreArgs' of 91 bytes, list '...future.elements_ii' of 196 bytes, list '...future.seeds_ii' of 175 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.288] Packages: 1 packages ('stats')
[18:41:30.288] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:30.288] Resolved: TRUE
[18:41:30.288] Value: 143 bytes of class 'list'
[18:41:30.288] Early signaling: FALSE
[18:41:30.288] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.288] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.291] Chunk #1 of 1 ... DONE
[18:41:30.291] Launching 1 futures (chunks) ... DONE
[18:41:30.291] Resolving 1 futures (chunks) ...
[18:41:30.292] resolve() on list ...
[18:41:30.292]  recursive: 0
[18:41:30.292]  length: 1
[18:41:30.292] 
[18:41:30.293] resolved() for 'SequentialFuture' ...
[18:41:30.293] - state: 'finished'
[18:41:30.293] - run: TRUE
[18:41:30.293] - result: 'FutureResult'
[18:41:30.293] resolved() for 'SequentialFuture' ... done
[18:41:30.294] Future #1
[18:41:30.294] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.294] - nx: 1
[18:41:30.294] - relay: TRUE
[18:41:30.295] - stdout: TRUE
[18:41:30.295] - signal: TRUE
[18:41:30.295] - resignal: FALSE
[18:41:30.295] - force: TRUE
[18:41:30.295] - relayed: [n=1] FALSE
[18:41:30.295] - queued futures: [n=1] FALSE
[18:41:30.296]  - until=1
[18:41:30.296]  - relaying element #1
[18:41:30.296] - relayed: [n=1] TRUE
[18:41:30.296] - queued futures: [n=1] TRUE
[18:41:30.296] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.297]  length: 0 (resolved future 1)
[18:41:30.297] Relaying remaining futures
[18:41:30.297] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.297] - nx: 1
[18:41:30.297] - relay: TRUE
[18:41:30.297] - stdout: TRUE
[18:41:30.298] - signal: TRUE
[18:41:30.298] - resignal: FALSE
[18:41:30.298] - force: TRUE
[18:41:30.298] - relayed: [n=1] TRUE
[18:41:30.298] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.298] - relayed: [n=1] TRUE
[18:41:30.299] - queued futures: [n=1] TRUE
[18:41:30.299] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.299] resolve() on list ... DONE
[18:41:30.299]  - Number of value chunks collected: 1
[18:41:30.299] Resolving 1 futures (chunks) ... DONE
[18:41:30.300] Reducing values from 1 chunks ...
[18:41:30.300]  - Number of values collected after concatenation: 4
[18:41:30.300]  - Number of values expected: 4
[18:41:30.300] Reducing values from 1 chunks ... DONE
[18:41:30.300] 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' ...
[18:41:30.525] plan(): Setting new future strategy stack:
[18:41:30.526] List of future strategies:
[18:41:30.526] 1. sequential:
[18:41:30.526]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.526]    - tweaked: FALSE
[18:41:30.526]    - call: plan(strategy)
[18:41:30.526] plan(): nbrOfWorkers() = 1
- From example(mapply) ...
[18:41:30.527] future_mapply() ...
[18:41:30.527] Number of chunks: 1
[18:41:30.527] getGlobalsAndPackagesXApply() ...
[18:41:30.527]  - future.globals: TRUE
[18:41:30.527] getGlobalsAndPackages() ...
[18:41:30.528] Searching for globals...
[18:41:30.528] - globals found: [1] 'FUN'
[18:41:30.529] Searching for globals ... DONE
[18:41:30.529] Resolving globals: FALSE
[18:41:30.529] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:30.530] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:30.530] - globals: [1] 'FUN'
[18:41:30.530] 
[18:41:30.530] getGlobalsAndPackages() ... DONE
[18:41:30.530]  - globals found/used: [n=1] 'FUN'
[18:41:30.530]  - needed namespaces: [n=0] 
[18:41:30.531] Finding globals ... DONE
[18:41:30.531] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.531] List of 2
[18:41:30.531]  $ ...future.FUN:function (x, ...)  
[18:41:30.531]  $ MoreArgs     : NULL
[18:41:30.531]  - attr(*, "where")=List of 2
[18:41:30.531]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.531]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.531]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.531]  - attr(*, "resolved")= logi FALSE
[18:41:30.531]  - attr(*, "total_size")= num NA
[18:41:30.534] Packages to be attached in all futures: [n=0] 
[18:41:30.534] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.535] Number of futures (= number of chunks): 1
[18:41:30.535] Launching 1 futures (chunks) ...
[18:41:30.535] Chunk #1 of 1 ...
[18:41:30.535]  - Finding globals in '...' for chunk #1 ...
[18:41:30.535] getGlobalsAndPackages() ...
[18:41:30.535] Searching for globals...
[18:41:30.536] 
[18:41:30.536] Searching for globals ... DONE
[18:41:30.536] - globals: [0] <none>
[18:41:30.536] getGlobalsAndPackages() ... DONE
[18:41:30.537]    + additional globals found: [n=0] 
[18:41:30.537]    + additional namespaces needed: [n=0] 
[18:41:30.537]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.537]  - seeds: <none>
[18:41:30.537]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.537] getGlobalsAndPackages() ...
[18:41:30.538] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.538] Resolving globals: FALSE
[18:41:30.538] The total size of the 5 globals is 258 bytes (258 bytes)
[18:41:30.540] 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 258 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (143 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.540] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.540] 
[18:41:30.540] getGlobalsAndPackages() ... DONE
[18:41:30.541] run() for 'Future' ...
[18:41:30.541] - state: 'created'
[18:41:30.541] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.541] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.542] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.542]   - Field: 'label'
[18:41:30.542]   - Field: 'local'
[18:41:30.542]   - Field: 'owner'
[18:41:30.542]   - Field: 'envir'
[18:41:30.542]   - Field: 'packages'
[18:41:30.543]   - Field: 'gc'
[18:41:30.543]   - Field: 'conditions'
[18:41:30.543]   - Field: 'expr'
[18:41:30.543]   - Field: 'uuid'
[18:41:30.543]   - Field: 'seed'
[18:41:30.543]   - Field: 'version'
[18:41:30.544]   - Field: 'result'
[18:41:30.544]   - Field: 'asynchronous'
[18:41:30.544]   - Field: 'calls'
[18:41:30.544]   - Field: 'globals'
[18:41:30.544]   - Field: 'stdout'
[18:41:30.545]   - Field: 'earlySignal'
[18:41:30.545]   - Field: 'lazy'
[18:41:30.545]   - Field: 'state'
[18:41:30.545] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.545] - Launch lazy future ...
[18:41:30.545] Packages needed by the future expression (n = 0): <none>
[18:41:30.546] Packages needed by future strategies (n = 0): <none>
[18:41:30.546] {
[18:41:30.546]     {
[18:41:30.546]         {
[18:41:30.546]             ...future.startTime <- base::Sys.time()
[18:41:30.546]             {
[18:41:30.546]                 {
[18:41:30.546]                   {
[18:41:30.546]                     base::local({
[18:41:30.546]                       has_future <- base::requireNamespace("future", 
[18:41:30.546]                         quietly = TRUE)
[18:41:30.546]                       if (has_future) {
[18:41:30.546]                         ns <- base::getNamespace("future")
[18:41:30.546]                         version <- ns[[".package"]][["version"]]
[18:41:30.546]                         if (is.null(version)) 
[18:41:30.546]                           version <- utils::packageVersion("future")
[18:41:30.546]                       }
[18:41:30.546]                       else {
[18:41:30.546]                         version <- NULL
[18:41:30.546]                       }
[18:41:30.546]                       if (!has_future || version < "1.8.0") {
[18:41:30.546]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.546]                           "", base::R.version$version.string), 
[18:41:30.546]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.546]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.546]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.546]                             "release", "version")], collapse = " "), 
[18:41:30.546]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.546]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.546]                           info)
[18:41:30.546]                         info <- base::paste(info, collapse = "; ")
[18:41:30.546]                         if (!has_future) {
[18:41:30.546]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.546]                             info)
[18:41:30.546]                         }
[18:41:30.546]                         else {
[18:41:30.546]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.546]                             info, version)
[18:41:30.546]                         }
[18:41:30.546]                         base::stop(msg)
[18:41:30.546]                       }
[18:41:30.546]                     })
[18:41:30.546]                   }
[18:41:30.546]                   ...future.strategy.old <- future::plan("list")
[18:41:30.546]                   options(future.plan = NULL)
[18:41:30.546]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.546]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.546]                 }
[18:41:30.546]                 ...future.workdir <- getwd()
[18:41:30.546]             }
[18:41:30.546]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.546]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.546]         }
[18:41:30.546]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.546]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.546]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.546]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.546]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.546]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.546]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.546]             base::names(...future.oldOptions))
[18:41:30.546]     }
[18:41:30.546]     if (FALSE) {
[18:41:30.546]     }
[18:41:30.546]     else {
[18:41:30.546]         if (TRUE) {
[18:41:30.546]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.546]                 open = "w")
[18:41:30.546]         }
[18:41:30.546]         else {
[18:41:30.546]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.546]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.546]         }
[18:41:30.546]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.546]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.546]             base::sink(type = "output", split = FALSE)
[18:41:30.546]             base::close(...future.stdout)
[18:41:30.546]         }, add = TRUE)
[18:41:30.546]     }
[18:41:30.546]     ...future.frame <- base::sys.nframe()
[18:41:30.546]     ...future.conditions <- base::list()
[18:41:30.546]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.546]     if (FALSE) {
[18:41:30.546]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.546]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.546]     }
[18:41:30.546]     ...future.result <- base::tryCatch({
[18:41:30.546]         base::withCallingHandlers({
[18:41:30.546]             ...future.value <- base::withVisible(base::local({
[18:41:30.546]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.546]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.546]                   ...future.globals.maxSize)) {
[18:41:30.546]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.546]                   on.exit(options(oopts), add = TRUE)
[18:41:30.546]                 }
[18:41:30.546]                 {
[18:41:30.546]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.546]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.546]                     USE.NAMES = FALSE)
[18:41:30.546]                   do.call(mapply, args = args)
[18:41:30.546]                 }
[18:41:30.546]             }))
[18:41:30.546]             future::FutureResult(value = ...future.value$value, 
[18:41:30.546]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.546]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.546]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.546]                     ...future.globalenv.names))
[18:41:30.546]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.546]         }, condition = base::local({
[18:41:30.546]             c <- base::c
[18:41:30.546]             inherits <- base::inherits
[18:41:30.546]             invokeRestart <- base::invokeRestart
[18:41:30.546]             length <- base::length
[18:41:30.546]             list <- base::list
[18:41:30.546]             seq.int <- base::seq.int
[18:41:30.546]             signalCondition <- base::signalCondition
[18:41:30.546]             sys.calls <- base::sys.calls
[18:41:30.546]             `[[` <- base::`[[`
[18:41:30.546]             `+` <- base::`+`
[18:41:30.546]             `<<-` <- base::`<<-`
[18:41:30.546]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.546]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.546]                   3L)]
[18:41:30.546]             }
[18:41:30.546]             function(cond) {
[18:41:30.546]                 is_error <- inherits(cond, "error")
[18:41:30.546]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.546]                   NULL)
[18:41:30.546]                 if (is_error) {
[18:41:30.546]                   sessionInformation <- function() {
[18:41:30.546]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.546]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.546]                       search = base::search(), system = base::Sys.info())
[18:41:30.546]                   }
[18:41:30.546]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.546]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.546]                     cond$call), session = sessionInformation(), 
[18:41:30.546]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.546]                   signalCondition(cond)
[18:41:30.546]                 }
[18:41:30.546]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.546]                 "immediateCondition"))) {
[18:41:30.546]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.546]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.546]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.546]                   if (TRUE && !signal) {
[18:41:30.546]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.546]                     {
[18:41:30.546]                       inherits <- base::inherits
[18:41:30.546]                       invokeRestart <- base::invokeRestart
[18:41:30.546]                       is.null <- base::is.null
[18:41:30.546]                       muffled <- FALSE
[18:41:30.546]                       if (inherits(cond, "message")) {
[18:41:30.546]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.546]                         if (muffled) 
[18:41:30.546]                           invokeRestart("muffleMessage")
[18:41:30.546]                       }
[18:41:30.546]                       else if (inherits(cond, "warning")) {
[18:41:30.546]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.546]                         if (muffled) 
[18:41:30.546]                           invokeRestart("muffleWarning")
[18:41:30.546]                       }
[18:41:30.546]                       else if (inherits(cond, "condition")) {
[18:41:30.546]                         if (!is.null(pattern)) {
[18:41:30.546]                           computeRestarts <- base::computeRestarts
[18:41:30.546]                           grepl <- base::grepl
[18:41:30.546]                           restarts <- computeRestarts(cond)
[18:41:30.546]                           for (restart in restarts) {
[18:41:30.546]                             name <- restart$name
[18:41:30.546]                             if (is.null(name)) 
[18:41:30.546]                               next
[18:41:30.546]                             if (!grepl(pattern, name)) 
[18:41:30.546]                               next
[18:41:30.546]                             invokeRestart(restart)
[18:41:30.546]                             muffled <- TRUE
[18:41:30.546]                             break
[18:41:30.546]                           }
[18:41:30.546]                         }
[18:41:30.546]                       }
[18:41:30.546]                       invisible(muffled)
[18:41:30.546]                     }
[18:41:30.546]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.546]                   }
[18:41:30.546]                 }
[18:41:30.546]                 else {
[18:41:30.546]                   if (TRUE) {
[18:41:30.546]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.546]                     {
[18:41:30.546]                       inherits <- base::inherits
[18:41:30.546]                       invokeRestart <- base::invokeRestart
[18:41:30.546]                       is.null <- base::is.null
[18:41:30.546]                       muffled <- FALSE
[18:41:30.546]                       if (inherits(cond, "message")) {
[18:41:30.546]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.546]                         if (muffled) 
[18:41:30.546]                           invokeRestart("muffleMessage")
[18:41:30.546]                       }
[18:41:30.546]                       else if (inherits(cond, "warning")) {
[18:41:30.546]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.546]                         if (muffled) 
[18:41:30.546]                           invokeRestart("muffleWarning")
[18:41:30.546]                       }
[18:41:30.546]                       else if (inherits(cond, "condition")) {
[18:41:30.546]                         if (!is.null(pattern)) {
[18:41:30.546]                           computeRestarts <- base::computeRestarts
[18:41:30.546]                           grepl <- base::grepl
[18:41:30.546]                           restarts <- computeRestarts(cond)
[18:41:30.546]                           for (restart in restarts) {
[18:41:30.546]                             name <- restart$name
[18:41:30.546]                             if (is.null(name)) 
[18:41:30.546]                               next
[18:41:30.546]                             if (!grepl(pattern, name)) 
[18:41:30.546]                               next
[18:41:30.546]                             invokeRestart(restart)
[18:41:30.546]                             muffled <- TRUE
[18:41:30.546]                             break
[18:41:30.546]                           }
[18:41:30.546]                         }
[18:41:30.546]                       }
[18:41:30.546]                       invisible(muffled)
[18:41:30.546]                     }
[18:41:30.546]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.546]                   }
[18:41:30.546]                 }
[18:41:30.546]             }
[18:41:30.546]         }))
[18:41:30.546]     }, error = function(ex) {
[18:41:30.546]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.546]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.546]                 ...future.rng), started = ...future.startTime, 
[18:41:30.546]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.546]             version = "1.8"), class = "FutureResult")
[18:41:30.546]     }, finally = {
[18:41:30.546]         if (!identical(...future.workdir, getwd())) 
[18:41:30.546]             setwd(...future.workdir)
[18:41:30.546]         {
[18:41:30.546]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.546]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.546]             }
[18:41:30.546]             base::options(...future.oldOptions)
[18:41:30.546]             if (.Platform$OS.type == "windows") {
[18:41:30.546]                 old_names <- names(...future.oldEnvVars)
[18:41:30.546]                 envs <- base::Sys.getenv()
[18:41:30.546]                 names <- names(envs)
[18:41:30.546]                 common <- intersect(names, old_names)
[18:41:30.546]                 added <- setdiff(names, old_names)
[18:41:30.546]                 removed <- setdiff(old_names, names)
[18:41:30.546]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.546]                   envs[common]]
[18:41:30.546]                 NAMES <- toupper(changed)
[18:41:30.546]                 args <- list()
[18:41:30.546]                 for (kk in seq_along(NAMES)) {
[18:41:30.546]                   name <- changed[[kk]]
[18:41:30.546]                   NAME <- NAMES[[kk]]
[18:41:30.546]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.546]                     next
[18:41:30.546]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.546]                 }
[18:41:30.546]                 NAMES <- toupper(added)
[18:41:30.546]                 for (kk in seq_along(NAMES)) {
[18:41:30.546]                   name <- added[[kk]]
[18:41:30.546]                   NAME <- NAMES[[kk]]
[18:41:30.546]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.546]                     next
[18:41:30.546]                   args[[name]] <- ""
[18:41:30.546]                 }
[18:41:30.546]                 NAMES <- toupper(removed)
[18:41:30.546]                 for (kk in seq_along(NAMES)) {
[18:41:30.546]                   name <- removed[[kk]]
[18:41:30.546]                   NAME <- NAMES[[kk]]
[18:41:30.546]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.546]                     next
[18:41:30.546]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.546]                 }
[18:41:30.546]                 if (length(args) > 0) 
[18:41:30.546]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.546]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.546]             }
[18:41:30.546]             else {
[18:41:30.546]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.546]             }
[18:41:30.546]             {
[18:41:30.546]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.546]                   0L) {
[18:41:30.546]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.546]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.546]                   base::options(opts)
[18:41:30.546]                 }
[18:41:30.546]                 {
[18:41:30.546]                   {
[18:41:30.546]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.546]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.546]                     -486500277L), envir = base::globalenv(), 
[18:41:30.546]                       inherits = FALSE)
[18:41:30.546]                     NULL
[18:41:30.546]                   }
[18:41:30.546]                   options(future.plan = NULL)
[18:41:30.546]                   if (is.na(NA_character_)) 
[18:41:30.546]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.546]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.546]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.546]                     .init = FALSE)
[18:41:30.546]                 }
[18:41:30.546]             }
[18:41:30.546]         }
[18:41:30.546]     })
[18:41:30.546]     if (TRUE) {
[18:41:30.546]         base::sink(type = "output", split = FALSE)
[18:41:30.546]         if (TRUE) {
[18:41:30.546]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.546]         }
[18:41:30.546]         else {
[18:41:30.546]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.546]         }
[18:41:30.546]         base::close(...future.stdout)
[18:41:30.546]         ...future.stdout <- NULL
[18:41:30.546]     }
[18:41:30.546]     ...future.result$conditions <- ...future.conditions
[18:41:30.546]     ...future.result$finished <- base::Sys.time()
[18:41:30.546]     ...future.result
[18:41:30.546] }
[18:41:30.551] assign_globals() ...
[18:41:30.551] List of 5
[18:41:30.551]  $ ...future.FUN            :function (x, ...)  
[18:41:30.551]  $ MoreArgs                 : NULL
[18:41:30.551]  $ ...future.elements_ii    :List of 2
[18:41:30.551]   ..$ :List of 4
[18:41:30.551]   .. ..$ : int 1
[18:41:30.551]   .. ..$ : int 2
[18:41:30.551]   .. ..$ : int 3
[18:41:30.551]   .. ..$ : int 4
[18:41:30.551]   ..$ :List of 4
[18:41:30.551]   .. ..$ : int 4
[18:41:30.551]   .. ..$ : int 3
[18:41:30.551]   .. ..$ : int 2
[18:41:30.551]   .. ..$ : int 1
[18:41:30.551]  $ ...future.seeds_ii       : NULL
[18:41:30.551]  $ ...future.globals.maxSize: NULL
[18:41:30.551]  - attr(*, "where")=List of 5
[18:41:30.551]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.551]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.551]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.551]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.551]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.551]  - attr(*, "resolved")= logi FALSE
[18:41:30.551]  - attr(*, "total_size")= int 258
[18:41:30.551]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.551]  - attr(*, "already-done")= logi TRUE
[18:41:30.559] - copied '...future.FUN' to environment
[18:41:30.559] - copied 'MoreArgs' to environment
[18:41:30.560] - copied '...future.elements_ii' to environment
[18:41:30.560] - copied '...future.seeds_ii' to environment
[18:41:30.560] - copied '...future.globals.maxSize' to environment
[18:41:30.560] assign_globals() ... done
[18:41:30.561] plan(): Setting new future strategy stack:
[18:41:30.561] List of future strategies:
[18:41:30.561] 1. sequential:
[18:41:30.561]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.561]    - tweaked: FALSE
[18:41:30.561]    - call: NULL
[18:41:30.561] plan(): nbrOfWorkers() = 1
[18:41:30.563] plan(): Setting new future strategy stack:
[18:41:30.563] List of future strategies:
[18:41:30.563] 1. sequential:
[18:41:30.563]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.563]    - tweaked: FALSE
[18:41:30.563]    - call: plan(strategy)
[18:41:30.564] plan(): nbrOfWorkers() = 1
[18:41:30.564] SequentialFuture started (and completed)
[18:41:30.564] - Launch lazy future ... done
[18:41:30.564] run() for 'SequentialFuture' ... done
[18:41:30.564] Created future:
[18:41:30.565] SequentialFuture:
[18:41:30.565] Label: 'future_mapply-1'
[18:41:30.565] Expression:
[18:41:30.565] {
[18:41:30.565]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.565]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.565]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.565]         on.exit(options(oopts), add = TRUE)
[18:41:30.565]     }
[18:41:30.565]     {
[18:41:30.565]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.565]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.565]         do.call(mapply, args = args)
[18:41:30.565]     }
[18:41:30.565] }
[18:41:30.565] Lazy evaluation: FALSE
[18:41:30.565] Asynchronous evaluation: FALSE
[18:41:30.565] Local evaluation: TRUE
[18:41:30.565] Environment: R_GlobalEnv
[18:41:30.565] Capture standard output: TRUE
[18:41:30.565] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.565] Globals: 5 objects totaling 258 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 143 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.565] Packages: <none>
[18:41:30.565] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.565] Resolved: TRUE
[18:41:30.565] Value: 103 bytes of class 'list'
[18:41:30.565] Early signaling: FALSE
[18:41:30.565] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.565] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.567] Chunk #1 of 1 ... DONE
[18:41:30.568] Launching 1 futures (chunks) ... DONE
[18:41:30.568] Resolving 1 futures (chunks) ...
[18:41:30.568] resolve() on list ...
[18:41:30.568]  recursive: 0
[18:41:30.568]  length: 1
[18:41:30.568] 
[18:41:30.569] resolved() for 'SequentialFuture' ...
[18:41:30.569] - state: 'finished'
[18:41:30.569] - run: TRUE
[18:41:30.569] - result: 'FutureResult'
[18:41:30.569] resolved() for 'SequentialFuture' ... done
[18:41:30.570] Future #1
[18:41:30.570] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.570] - nx: 1
[18:41:30.570] - relay: TRUE
[18:41:30.570] - stdout: TRUE
[18:41:30.570] - signal: TRUE
[18:41:30.571] - resignal: FALSE
[18:41:30.571] - force: TRUE
[18:41:30.571] - relayed: [n=1] FALSE
[18:41:30.571] - queued futures: [n=1] FALSE
[18:41:30.571]  - until=1
[18:41:30.571]  - relaying element #1
[18:41:30.572] - relayed: [n=1] TRUE
[18:41:30.572] - queued futures: [n=1] TRUE
[18:41:30.572] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.572]  length: 0 (resolved future 1)
[18:41:30.572] Relaying remaining futures
[18:41:30.572] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.573] - nx: 1
[18:41:30.573] - relay: TRUE
[18:41:30.573] - stdout: TRUE
[18:41:30.573] - signal: TRUE
[18:41:30.573] - resignal: FALSE
[18:41:30.573] - force: TRUE
[18:41:30.574] - relayed: [n=1] TRUE
[18:41:30.574] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.574] - relayed: [n=1] TRUE
[18:41:30.574] - queued futures: [n=1] TRUE
[18:41:30.574] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.574] resolve() on list ... DONE
[18:41:30.575]  - Number of value chunks collected: 1
[18:41:30.575] Resolving 1 futures (chunks) ... DONE
[18:41:30.575] Reducing values from 1 chunks ...
[18:41:30.575]  - Number of values collected after concatenation: 4
[18:41:30.575]  - Number of values expected: 4
[18:41:30.575] Reducing values from 1 chunks ... DONE
[18:41:30.576] future_mapply() ... DONE
[18:41:30.576] future_mapply() ...
[18:41:30.576] Number of chunks: 1
[18:41:30.576] getGlobalsAndPackagesXApply() ...
[18:41:30.576]  - future.globals: TRUE
[18:41:30.577] getGlobalsAndPackages() ...
[18:41:30.577] Searching for globals...
[18:41:30.578] - globals found: [1] 'FUN'
[18:41:30.578] Searching for globals ... DONE
[18:41:30.578] Resolving globals: FALSE
[18:41:30.578] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:30.579] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:30.579] - globals: [1] 'FUN'
[18:41:30.579] 
[18:41:30.579] getGlobalsAndPackages() ... DONE
[18:41:30.579]  - globals found/used: [n=1] 'FUN'
[18:41:30.580]  - needed namespaces: [n=0] 
[18:41:30.580] Finding globals ... DONE
[18:41:30.580] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.580] List of 2
[18:41:30.580]  $ ...future.FUN:function (x, ...)  
[18:41:30.580]  $ MoreArgs     : NULL
[18:41:30.580]  - attr(*, "where")=List of 2
[18:41:30.580]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.580]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.580]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.580]  - attr(*, "resolved")= logi FALSE
[18:41:30.580]  - attr(*, "total_size")= num NA
[18:41:30.583] Packages to be attached in all futures: [n=0] 
[18:41:30.583] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.584] Number of futures (= number of chunks): 1
[18:41:30.584] Launching 1 futures (chunks) ...
[18:41:30.584] Chunk #1 of 1 ...
[18:41:30.584]  - Finding globals in '...' for chunk #1 ...
[18:41:30.584] getGlobalsAndPackages() ...
[18:41:30.585] Searching for globals...
[18:41:30.585] 
[18:41:30.585] Searching for globals ... DONE
[18:41:30.585] - globals: [0] <none>
[18:41:30.585] getGlobalsAndPackages() ... DONE
[18:41:30.586]    + additional globals found: [n=0] 
[18:41:30.586]    + additional namespaces needed: [n=0] 
[18:41:30.586]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.586]  - seeds: <none>
[18:41:30.586]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.586] getGlobalsAndPackages() ...
[18:41:30.586] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.587] Resolving globals: FALSE
[18:41:30.587] The total size of the 5 globals is 258 bytes (258 bytes)
[18:41:30.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 258 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (143 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.588] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.588] 
[18:41:30.588] getGlobalsAndPackages() ... DONE
[18:41:30.589] run() for 'Future' ...
[18:41:30.589] - state: 'created'
[18:41:30.589] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.590] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.590] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.590]   - Field: 'label'
[18:41:30.590]   - Field: 'local'
[18:41:30.590]   - Field: 'owner'
[18:41:30.591]   - Field: 'envir'
[18:41:30.591]   - Field: 'packages'
[18:41:30.591]   - Field: 'gc'
[18:41:30.591]   - Field: 'conditions'
[18:41:30.591]   - Field: 'expr'
[18:41:30.591]   - Field: 'uuid'
[18:41:30.592]   - Field: 'seed'
[18:41:30.592]   - Field: 'version'
[18:41:30.592]   - Field: 'result'
[18:41:30.593]   - Field: 'asynchronous'
[18:41:30.594]   - Field: 'calls'
[18:41:30.594]   - Field: 'globals'
[18:41:30.594]   - Field: 'stdout'
[18:41:30.594]   - Field: 'earlySignal'
[18:41:30.594]   - Field: 'lazy'
[18:41:30.594]   - Field: 'state'
[18:41:30.595] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.595] - Launch lazy future ...
[18:41:30.595] Packages needed by the future expression (n = 0): <none>
[18:41:30.595] Packages needed by future strategies (n = 0): <none>
[18:41:30.596] {
[18:41:30.596]     {
[18:41:30.596]         {
[18:41:30.596]             ...future.startTime <- base::Sys.time()
[18:41:30.596]             {
[18:41:30.596]                 {
[18:41:30.596]                   {
[18:41:30.596]                     base::local({
[18:41:30.596]                       has_future <- base::requireNamespace("future", 
[18:41:30.596]                         quietly = TRUE)
[18:41:30.596]                       if (has_future) {
[18:41:30.596]                         ns <- base::getNamespace("future")
[18:41:30.596]                         version <- ns[[".package"]][["version"]]
[18:41:30.596]                         if (is.null(version)) 
[18:41:30.596]                           version <- utils::packageVersion("future")
[18:41:30.596]                       }
[18:41:30.596]                       else {
[18:41:30.596]                         version <- NULL
[18:41:30.596]                       }
[18:41:30.596]                       if (!has_future || version < "1.8.0") {
[18:41:30.596]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.596]                           "", base::R.version$version.string), 
[18:41:30.596]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.596]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.596]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.596]                             "release", "version")], collapse = " "), 
[18:41:30.596]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.596]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.596]                           info)
[18:41:30.596]                         info <- base::paste(info, collapse = "; ")
[18:41:30.596]                         if (!has_future) {
[18:41:30.596]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.596]                             info)
[18:41:30.596]                         }
[18:41:30.596]                         else {
[18:41:30.596]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.596]                             info, version)
[18:41:30.596]                         }
[18:41:30.596]                         base::stop(msg)
[18:41:30.596]                       }
[18:41:30.596]                     })
[18:41:30.596]                   }
[18:41:30.596]                   ...future.strategy.old <- future::plan("list")
[18:41:30.596]                   options(future.plan = NULL)
[18:41:30.596]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.596]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.596]                 }
[18:41:30.596]                 ...future.workdir <- getwd()
[18:41:30.596]             }
[18:41:30.596]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.596]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.596]         }
[18:41:30.596]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.596]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.596]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.596]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.596]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.596]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.596]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.596]             base::names(...future.oldOptions))
[18:41:30.596]     }
[18:41:30.596]     if (FALSE) {
[18:41:30.596]     }
[18:41:30.596]     else {
[18:41:30.596]         if (TRUE) {
[18:41:30.596]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.596]                 open = "w")
[18:41:30.596]         }
[18:41:30.596]         else {
[18:41:30.596]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.596]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.596]         }
[18:41:30.596]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.596]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.596]             base::sink(type = "output", split = FALSE)
[18:41:30.596]             base::close(...future.stdout)
[18:41:30.596]         }, add = TRUE)
[18:41:30.596]     }
[18:41:30.596]     ...future.frame <- base::sys.nframe()
[18:41:30.596]     ...future.conditions <- base::list()
[18:41:30.596]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.596]     if (FALSE) {
[18:41:30.596]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.596]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.596]     }
[18:41:30.596]     ...future.result <- base::tryCatch({
[18:41:30.596]         base::withCallingHandlers({
[18:41:30.596]             ...future.value <- base::withVisible(base::local({
[18:41:30.596]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.596]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.596]                   ...future.globals.maxSize)) {
[18:41:30.596]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.596]                   on.exit(options(oopts), add = TRUE)
[18:41:30.596]                 }
[18:41:30.596]                 {
[18:41:30.596]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.596]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.596]                     USE.NAMES = FALSE)
[18:41:30.596]                   do.call(mapply, args = args)
[18:41:30.596]                 }
[18:41:30.596]             }))
[18:41:30.596]             future::FutureResult(value = ...future.value$value, 
[18:41:30.596]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.596]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.596]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.596]                     ...future.globalenv.names))
[18:41:30.596]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.596]         }, condition = base::local({
[18:41:30.596]             c <- base::c
[18:41:30.596]             inherits <- base::inherits
[18:41:30.596]             invokeRestart <- base::invokeRestart
[18:41:30.596]             length <- base::length
[18:41:30.596]             list <- base::list
[18:41:30.596]             seq.int <- base::seq.int
[18:41:30.596]             signalCondition <- base::signalCondition
[18:41:30.596]             sys.calls <- base::sys.calls
[18:41:30.596]             `[[` <- base::`[[`
[18:41:30.596]             `+` <- base::`+`
[18:41:30.596]             `<<-` <- base::`<<-`
[18:41:30.596]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.596]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.596]                   3L)]
[18:41:30.596]             }
[18:41:30.596]             function(cond) {
[18:41:30.596]                 is_error <- inherits(cond, "error")
[18:41:30.596]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.596]                   NULL)
[18:41:30.596]                 if (is_error) {
[18:41:30.596]                   sessionInformation <- function() {
[18:41:30.596]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.596]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.596]                       search = base::search(), system = base::Sys.info())
[18:41:30.596]                   }
[18:41:30.596]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.596]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.596]                     cond$call), session = sessionInformation(), 
[18:41:30.596]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.596]                   signalCondition(cond)
[18:41:30.596]                 }
[18:41:30.596]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.596]                 "immediateCondition"))) {
[18:41:30.596]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.596]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.596]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.596]                   if (TRUE && !signal) {
[18:41:30.596]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.596]                     {
[18:41:30.596]                       inherits <- base::inherits
[18:41:30.596]                       invokeRestart <- base::invokeRestart
[18:41:30.596]                       is.null <- base::is.null
[18:41:30.596]                       muffled <- FALSE
[18:41:30.596]                       if (inherits(cond, "message")) {
[18:41:30.596]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.596]                         if (muffled) 
[18:41:30.596]                           invokeRestart("muffleMessage")
[18:41:30.596]                       }
[18:41:30.596]                       else if (inherits(cond, "warning")) {
[18:41:30.596]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.596]                         if (muffled) 
[18:41:30.596]                           invokeRestart("muffleWarning")
[18:41:30.596]                       }
[18:41:30.596]                       else if (inherits(cond, "condition")) {
[18:41:30.596]                         if (!is.null(pattern)) {
[18:41:30.596]                           computeRestarts <- base::computeRestarts
[18:41:30.596]                           grepl <- base::grepl
[18:41:30.596]                           restarts <- computeRestarts(cond)
[18:41:30.596]                           for (restart in restarts) {
[18:41:30.596]                             name <- restart$name
[18:41:30.596]                             if (is.null(name)) 
[18:41:30.596]                               next
[18:41:30.596]                             if (!grepl(pattern, name)) 
[18:41:30.596]                               next
[18:41:30.596]                             invokeRestart(restart)
[18:41:30.596]                             muffled <- TRUE
[18:41:30.596]                             break
[18:41:30.596]                           }
[18:41:30.596]                         }
[18:41:30.596]                       }
[18:41:30.596]                       invisible(muffled)
[18:41:30.596]                     }
[18:41:30.596]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.596]                   }
[18:41:30.596]                 }
[18:41:30.596]                 else {
[18:41:30.596]                   if (TRUE) {
[18:41:30.596]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.596]                     {
[18:41:30.596]                       inherits <- base::inherits
[18:41:30.596]                       invokeRestart <- base::invokeRestart
[18:41:30.596]                       is.null <- base::is.null
[18:41:30.596]                       muffled <- FALSE
[18:41:30.596]                       if (inherits(cond, "message")) {
[18:41:30.596]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.596]                         if (muffled) 
[18:41:30.596]                           invokeRestart("muffleMessage")
[18:41:30.596]                       }
[18:41:30.596]                       else if (inherits(cond, "warning")) {
[18:41:30.596]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.596]                         if (muffled) 
[18:41:30.596]                           invokeRestart("muffleWarning")
[18:41:30.596]                       }
[18:41:30.596]                       else if (inherits(cond, "condition")) {
[18:41:30.596]                         if (!is.null(pattern)) {
[18:41:30.596]                           computeRestarts <- base::computeRestarts
[18:41:30.596]                           grepl <- base::grepl
[18:41:30.596]                           restarts <- computeRestarts(cond)
[18:41:30.596]                           for (restart in restarts) {
[18:41:30.596]                             name <- restart$name
[18:41:30.596]                             if (is.null(name)) 
[18:41:30.596]                               next
[18:41:30.596]                             if (!grepl(pattern, name)) 
[18:41:30.596]                               next
[18:41:30.596]                             invokeRestart(restart)
[18:41:30.596]                             muffled <- TRUE
[18:41:30.596]                             break
[18:41:30.596]                           }
[18:41:30.596]                         }
[18:41:30.596]                       }
[18:41:30.596]                       invisible(muffled)
[18:41:30.596]                     }
[18:41:30.596]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.596]                   }
[18:41:30.596]                 }
[18:41:30.596]             }
[18:41:30.596]         }))
[18:41:30.596]     }, error = function(ex) {
[18:41:30.596]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.596]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.596]                 ...future.rng), started = ...future.startTime, 
[18:41:30.596]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.596]             version = "1.8"), class = "FutureResult")
[18:41:30.596]     }, finally = {
[18:41:30.596]         if (!identical(...future.workdir, getwd())) 
[18:41:30.596]             setwd(...future.workdir)
[18:41:30.596]         {
[18:41:30.596]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.596]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.596]             }
[18:41:30.596]             base::options(...future.oldOptions)
[18:41:30.596]             if (.Platform$OS.type == "windows") {
[18:41:30.596]                 old_names <- names(...future.oldEnvVars)
[18:41:30.596]                 envs <- base::Sys.getenv()
[18:41:30.596]                 names <- names(envs)
[18:41:30.596]                 common <- intersect(names, old_names)
[18:41:30.596]                 added <- setdiff(names, old_names)
[18:41:30.596]                 removed <- setdiff(old_names, names)
[18:41:30.596]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.596]                   envs[common]]
[18:41:30.596]                 NAMES <- toupper(changed)
[18:41:30.596]                 args <- list()
[18:41:30.596]                 for (kk in seq_along(NAMES)) {
[18:41:30.596]                   name <- changed[[kk]]
[18:41:30.596]                   NAME <- NAMES[[kk]]
[18:41:30.596]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.596]                     next
[18:41:30.596]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.596]                 }
[18:41:30.596]                 NAMES <- toupper(added)
[18:41:30.596]                 for (kk in seq_along(NAMES)) {
[18:41:30.596]                   name <- added[[kk]]
[18:41:30.596]                   NAME <- NAMES[[kk]]
[18:41:30.596]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.596]                     next
[18:41:30.596]                   args[[name]] <- ""
[18:41:30.596]                 }
[18:41:30.596]                 NAMES <- toupper(removed)
[18:41:30.596]                 for (kk in seq_along(NAMES)) {
[18:41:30.596]                   name <- removed[[kk]]
[18:41:30.596]                   NAME <- NAMES[[kk]]
[18:41:30.596]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.596]                     next
[18:41:30.596]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.596]                 }
[18:41:30.596]                 if (length(args) > 0) 
[18:41:30.596]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.596]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.596]             }
[18:41:30.596]             else {
[18:41:30.596]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.596]             }
[18:41:30.596]             {
[18:41:30.596]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.596]                   0L) {
[18:41:30.596]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.596]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.596]                   base::options(opts)
[18:41:30.596]                 }
[18:41:30.596]                 {
[18:41:30.596]                   {
[18:41:30.596]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.596]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.596]                     -486500277L), envir = base::globalenv(), 
[18:41:30.596]                       inherits = FALSE)
[18:41:30.596]                     NULL
[18:41:30.596]                   }
[18:41:30.596]                   options(future.plan = NULL)
[18:41:30.596]                   if (is.na(NA_character_)) 
[18:41:30.596]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.596]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.596]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.596]                     .init = FALSE)
[18:41:30.596]                 }
[18:41:30.596]             }
[18:41:30.596]         }
[18:41:30.596]     })
[18:41:30.596]     if (TRUE) {
[18:41:30.596]         base::sink(type = "output", split = FALSE)
[18:41:30.596]         if (TRUE) {
[18:41:30.596]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.596]         }
[18:41:30.596]         else {
[18:41:30.596]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.596]         }
[18:41:30.596]         base::close(...future.stdout)
[18:41:30.596]         ...future.stdout <- NULL
[18:41:30.596]     }
[18:41:30.596]     ...future.result$conditions <- ...future.conditions
[18:41:30.596]     ...future.result$finished <- base::Sys.time()
[18:41:30.596]     ...future.result
[18:41:30.596] }
[18:41:30.600] assign_globals() ...
[18:41:30.600] List of 5
[18:41:30.600]  $ ...future.FUN            :function (x, ...)  
[18:41:30.600]  $ MoreArgs                 : NULL
[18:41:30.600]  $ ...future.elements_ii    :List of 2
[18:41:30.600]   ..$ :List of 4
[18:41:30.600]   .. ..$ : int 1
[18:41:30.600]   .. ..$ : int 2
[18:41:30.600]   .. ..$ : int 3
[18:41:30.600]   .. ..$ : int 4
[18:41:30.600]   ..$ :List of 4
[18:41:30.600]   .. ..$ : int 4
[18:41:30.600]   .. ..$ : int 3
[18:41:30.600]   .. ..$ : int 2
[18:41:30.600]   .. ..$ : int 1
[18:41:30.600]  $ ...future.seeds_ii       : NULL
[18:41:30.600]  $ ...future.globals.maxSize: NULL
[18:41:30.600]  - attr(*, "where")=List of 5
[18:41:30.600]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.600]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.600]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.600]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.600]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.600]  - attr(*, "resolved")= logi FALSE
[18:41:30.600]  - attr(*, "total_size")= int 258
[18:41:30.600]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.600]  - attr(*, "already-done")= logi TRUE
[18:41:30.608] - copied '...future.FUN' to environment
[18:41:30.608] - copied 'MoreArgs' to environment
[18:41:30.608] - copied '...future.elements_ii' to environment
[18:41:30.608] - copied '...future.seeds_ii' to environment
[18:41:30.609] - copied '...future.globals.maxSize' to environment
[18:41:30.609] assign_globals() ... done
[18:41:30.609] plan(): Setting new future strategy stack:
[18:41:30.609] List of future strategies:
[18:41:30.609] 1. sequential:
[18:41:30.609]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.609]    - tweaked: FALSE
[18:41:30.609]    - call: NULL
[18:41:30.610] plan(): nbrOfWorkers() = 1
[18:41:30.611] plan(): Setting new future strategy stack:
[18:41:30.611] List of future strategies:
[18:41:30.611] 1. sequential:
[18:41:30.611]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.611]    - tweaked: FALSE
[18:41:30.611]    - call: plan(strategy)
[18:41:30.612] plan(): nbrOfWorkers() = 1
[18:41:30.612] SequentialFuture started (and completed)
[18:41:30.612] - Launch lazy future ... done
[18:41:30.613] run() for 'SequentialFuture' ... done
[18:41:30.613] Created future:
[18:41:30.613] SequentialFuture:
[18:41:30.613] Label: 'future_mapply-1'
[18:41:30.613] Expression:
[18:41:30.613] {
[18:41:30.613]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.613]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.613]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.613]         on.exit(options(oopts), add = TRUE)
[18:41:30.613]     }
[18:41:30.613]     {
[18:41:30.613]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.613]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.613]         do.call(mapply, args = args)
[18:41:30.613]     }
[18:41:30.613] }
[18:41:30.613] Lazy evaluation: FALSE
[18:41:30.613] Asynchronous evaluation: FALSE
[18:41:30.613] Local evaluation: TRUE
[18:41:30.613] Environment: R_GlobalEnv
[18:41:30.613] Capture standard output: TRUE
[18:41:30.613] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.613] Globals: 5 objects totaling 258 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 143 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.613] Packages: <none>
[18:41:30.613] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.613] Resolved: TRUE
[18:41:30.613] Value: 103 bytes of class 'list'
[18:41:30.613] Early signaling: FALSE
[18:41:30.613] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.613] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.614] Chunk #1 of 1 ... DONE
[18:41:30.614] Launching 1 futures (chunks) ... DONE
[18:41:30.614] Resolving 1 futures (chunks) ...
[18:41:30.615] resolve() on list ...
[18:41:30.615]  recursive: 0
[18:41:30.615]  length: 1
[18:41:30.615] 
[18:41:30.615] resolved() for 'SequentialFuture' ...
[18:41:30.615] - state: 'finished'
[18:41:30.616] - run: TRUE
[18:41:30.616] - result: 'FutureResult'
[18:41:30.616] resolved() for 'SequentialFuture' ... done
[18:41:30.616] Future #1
[18:41:30.616] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.616] - nx: 1
[18:41:30.617] - relay: TRUE
[18:41:30.617] - stdout: TRUE
[18:41:30.617] - signal: TRUE
[18:41:30.617] - resignal: FALSE
[18:41:30.617] - force: TRUE
[18:41:30.617] - relayed: [n=1] FALSE
[18:41:30.618] - queued futures: [n=1] FALSE
[18:41:30.618]  - until=1
[18:41:30.618]  - relaying element #1
[18:41:30.619] - relayed: [n=1] TRUE
[18:41:30.619] - queued futures: [n=1] TRUE
[18:41:30.620] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.620]  length: 0 (resolved future 1)
[18:41:30.620] Relaying remaining futures
[18:41:30.620] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.620] - nx: 1
[18:41:30.620] - relay: TRUE
[18:41:30.621] - stdout: TRUE
[18:41:30.621] - signal: TRUE
[18:41:30.621] - resignal: FALSE
[18:41:30.621] - force: TRUE
[18:41:30.621] - relayed: [n=1] TRUE
[18:41:30.621] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.622] - relayed: [n=1] TRUE
[18:41:30.622] - queued futures: [n=1] TRUE
[18:41:30.622] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.622] resolve() on list ... DONE
[18:41:30.622]  - Number of value chunks collected: 1
[18:41:30.622] Resolving 1 futures (chunks) ... DONE
[18:41:30.623] Reducing values from 1 chunks ...
[18:41:30.623]  - Number of values collected after concatenation: 4
[18:41:30.623]  - Number of values expected: 4
[18:41:30.623] Reducing values from 1 chunks ... DONE
[18:41:30.623] future_mapply() ... DONE
[18:41:30.623] future_mapply() ...
[18:41:30.624] Number of chunks: 1
[18:41:30.624] getGlobalsAndPackagesXApply() ...
[18:41:30.624]  - future.globals: TRUE
[18:41:30.624] getGlobalsAndPackages() ...
[18:41:30.624] Searching for globals...
[18:41:30.625] - globals found: [1] 'FUN'
[18:41:30.625] Searching for globals ... DONE
[18:41:30.625] Resolving globals: FALSE
[18:41:30.626] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:30.626] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:30.626] - globals: [1] 'FUN'
[18:41:30.626] 
[18:41:30.627] getGlobalsAndPackages() ... DONE
[18:41:30.627]  - globals found/used: [n=1] 'FUN'
[18:41:30.627]  - needed namespaces: [n=0] 
[18:41:30.627] Finding globals ... DONE
[18:41:30.627] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.628] List of 2
[18:41:30.628]  $ ...future.FUN:function (x, ...)  
[18:41:30.628]  $ MoreArgs     : NULL
[18:41:30.628]  - attr(*, "where")=List of 2
[18:41:30.628]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.628]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.628]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.628]  - attr(*, "resolved")= logi FALSE
[18:41:30.628]  - attr(*, "total_size")= num NA
[18:41:30.630] Packages to be attached in all futures: [n=0] 
[18:41:30.631] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.631] Number of futures (= number of chunks): 1
[18:41:30.631] Launching 1 futures (chunks) ...
[18:41:30.631] Chunk #1 of 1 ...
[18:41:30.631]  - Finding globals in '...' for chunk #1 ...
[18:41:30.632] getGlobalsAndPackages() ...
[18:41:30.632] Searching for globals...
[18:41:30.632] 
[18:41:30.632] Searching for globals ... DONE
[18:41:30.632] - globals: [0] <none>
[18:41:30.633] getGlobalsAndPackages() ... DONE
[18:41:30.633]    + additional globals found: [n=0] 
[18:41:30.633]    + additional namespaces needed: [n=0] 
[18:41:30.633]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.633]  - seeds: <none>
[18:41:30.633]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.634] getGlobalsAndPackages() ...
[18:41:30.634] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.634] Resolving globals: FALSE
[18:41:30.634] The total size of the 5 globals is 313 bytes (313 bytes)
[18:41:30.635] 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 313 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (198 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.635] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.635] 
[18:41:30.636] getGlobalsAndPackages() ... DONE
[18:41:30.636] run() for 'Future' ...
[18:41:30.636] - state: 'created'
[18:41:30.636] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.637] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.637] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.637]   - Field: 'label'
[18:41:30.637]   - Field: 'local'
[18:41:30.637]   - Field: 'owner'
[18:41:30.638]   - Field: 'envir'
[18:41:30.638]   - Field: 'packages'
[18:41:30.638]   - Field: 'gc'
[18:41:30.638]   - Field: 'conditions'
[18:41:30.638]   - Field: 'expr'
[18:41:30.638]   - Field: 'uuid'
[18:41:30.639]   - Field: 'seed'
[18:41:30.639]   - Field: 'version'
[18:41:30.639]   - Field: 'result'
[18:41:30.639]   - Field: 'asynchronous'
[18:41:30.639]   - Field: 'calls'
[18:41:30.639]   - Field: 'globals'
[18:41:30.640]   - Field: 'stdout'
[18:41:30.640]   - Field: 'earlySignal'
[18:41:30.640]   - Field: 'lazy'
[18:41:30.640]   - Field: 'state'
[18:41:30.640] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.640] - Launch lazy future ...
[18:41:30.641] Packages needed by the future expression (n = 0): <none>
[18:41:30.641] Packages needed by future strategies (n = 0): <none>
[18:41:30.641] {
[18:41:30.641]     {
[18:41:30.641]         {
[18:41:30.641]             ...future.startTime <- base::Sys.time()
[18:41:30.641]             {
[18:41:30.641]                 {
[18:41:30.641]                   {
[18:41:30.641]                     base::local({
[18:41:30.641]                       has_future <- base::requireNamespace("future", 
[18:41:30.641]                         quietly = TRUE)
[18:41:30.641]                       if (has_future) {
[18:41:30.641]                         ns <- base::getNamespace("future")
[18:41:30.641]                         version <- ns[[".package"]][["version"]]
[18:41:30.641]                         if (is.null(version)) 
[18:41:30.641]                           version <- utils::packageVersion("future")
[18:41:30.641]                       }
[18:41:30.641]                       else {
[18:41:30.641]                         version <- NULL
[18:41:30.641]                       }
[18:41:30.641]                       if (!has_future || version < "1.8.0") {
[18:41:30.641]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.641]                           "", base::R.version$version.string), 
[18:41:30.641]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.641]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.641]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.641]                             "release", "version")], collapse = " "), 
[18:41:30.641]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.641]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.641]                           info)
[18:41:30.641]                         info <- base::paste(info, collapse = "; ")
[18:41:30.641]                         if (!has_future) {
[18:41:30.641]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.641]                             info)
[18:41:30.641]                         }
[18:41:30.641]                         else {
[18:41:30.641]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.641]                             info, version)
[18:41:30.641]                         }
[18:41:30.641]                         base::stop(msg)
[18:41:30.641]                       }
[18:41:30.641]                     })
[18:41:30.641]                   }
[18:41:30.641]                   ...future.strategy.old <- future::plan("list")
[18:41:30.641]                   options(future.plan = NULL)
[18:41:30.641]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.641]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.641]                 }
[18:41:30.641]                 ...future.workdir <- getwd()
[18:41:30.641]             }
[18:41:30.641]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.641]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.641]         }
[18:41:30.641]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.641]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.641]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.641]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.641]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.641]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.641]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.641]             base::names(...future.oldOptions))
[18:41:30.641]     }
[18:41:30.641]     if (FALSE) {
[18:41:30.641]     }
[18:41:30.641]     else {
[18:41:30.641]         if (TRUE) {
[18:41:30.641]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.641]                 open = "w")
[18:41:30.641]         }
[18:41:30.641]         else {
[18:41:30.641]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.641]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.641]         }
[18:41:30.641]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.641]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.641]             base::sink(type = "output", split = FALSE)
[18:41:30.641]             base::close(...future.stdout)
[18:41:30.641]         }, add = TRUE)
[18:41:30.641]     }
[18:41:30.641]     ...future.frame <- base::sys.nframe()
[18:41:30.641]     ...future.conditions <- base::list()
[18:41:30.641]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.641]     if (FALSE) {
[18:41:30.641]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.641]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.641]     }
[18:41:30.641]     ...future.result <- base::tryCatch({
[18:41:30.641]         base::withCallingHandlers({
[18:41:30.641]             ...future.value <- base::withVisible(base::local({
[18:41:30.641]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.641]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.641]                   ...future.globals.maxSize)) {
[18:41:30.641]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.641]                   on.exit(options(oopts), add = TRUE)
[18:41:30.641]                 }
[18:41:30.641]                 {
[18:41:30.641]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.641]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.641]                     USE.NAMES = FALSE)
[18:41:30.641]                   do.call(mapply, args = args)
[18:41:30.641]                 }
[18:41:30.641]             }))
[18:41:30.641]             future::FutureResult(value = ...future.value$value, 
[18:41:30.641]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.641]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.641]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.641]                     ...future.globalenv.names))
[18:41:30.641]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.641]         }, condition = base::local({
[18:41:30.641]             c <- base::c
[18:41:30.641]             inherits <- base::inherits
[18:41:30.641]             invokeRestart <- base::invokeRestart
[18:41:30.641]             length <- base::length
[18:41:30.641]             list <- base::list
[18:41:30.641]             seq.int <- base::seq.int
[18:41:30.641]             signalCondition <- base::signalCondition
[18:41:30.641]             sys.calls <- base::sys.calls
[18:41:30.641]             `[[` <- base::`[[`
[18:41:30.641]             `+` <- base::`+`
[18:41:30.641]             `<<-` <- base::`<<-`
[18:41:30.641]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.641]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.641]                   3L)]
[18:41:30.641]             }
[18:41:30.641]             function(cond) {
[18:41:30.641]                 is_error <- inherits(cond, "error")
[18:41:30.641]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.641]                   NULL)
[18:41:30.641]                 if (is_error) {
[18:41:30.641]                   sessionInformation <- function() {
[18:41:30.641]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.641]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.641]                       search = base::search(), system = base::Sys.info())
[18:41:30.641]                   }
[18:41:30.641]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.641]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.641]                     cond$call), session = sessionInformation(), 
[18:41:30.641]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.641]                   signalCondition(cond)
[18:41:30.641]                 }
[18:41:30.641]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.641]                 "immediateCondition"))) {
[18:41:30.641]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.641]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.641]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.641]                   if (TRUE && !signal) {
[18:41:30.641]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.641]                     {
[18:41:30.641]                       inherits <- base::inherits
[18:41:30.641]                       invokeRestart <- base::invokeRestart
[18:41:30.641]                       is.null <- base::is.null
[18:41:30.641]                       muffled <- FALSE
[18:41:30.641]                       if (inherits(cond, "message")) {
[18:41:30.641]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.641]                         if (muffled) 
[18:41:30.641]                           invokeRestart("muffleMessage")
[18:41:30.641]                       }
[18:41:30.641]                       else if (inherits(cond, "warning")) {
[18:41:30.641]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.641]                         if (muffled) 
[18:41:30.641]                           invokeRestart("muffleWarning")
[18:41:30.641]                       }
[18:41:30.641]                       else if (inherits(cond, "condition")) {
[18:41:30.641]                         if (!is.null(pattern)) {
[18:41:30.641]                           computeRestarts <- base::computeRestarts
[18:41:30.641]                           grepl <- base::grepl
[18:41:30.641]                           restarts <- computeRestarts(cond)
[18:41:30.641]                           for (restart in restarts) {
[18:41:30.641]                             name <- restart$name
[18:41:30.641]                             if (is.null(name)) 
[18:41:30.641]                               next
[18:41:30.641]                             if (!grepl(pattern, name)) 
[18:41:30.641]                               next
[18:41:30.641]                             invokeRestart(restart)
[18:41:30.641]                             muffled <- TRUE
[18:41:30.641]                             break
[18:41:30.641]                           }
[18:41:30.641]                         }
[18:41:30.641]                       }
[18:41:30.641]                       invisible(muffled)
[18:41:30.641]                     }
[18:41:30.641]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.641]                   }
[18:41:30.641]                 }
[18:41:30.641]                 else {
[18:41:30.641]                   if (TRUE) {
[18:41:30.641]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.641]                     {
[18:41:30.641]                       inherits <- base::inherits
[18:41:30.641]                       invokeRestart <- base::invokeRestart
[18:41:30.641]                       is.null <- base::is.null
[18:41:30.641]                       muffled <- FALSE
[18:41:30.641]                       if (inherits(cond, "message")) {
[18:41:30.641]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.641]                         if (muffled) 
[18:41:30.641]                           invokeRestart("muffleMessage")
[18:41:30.641]                       }
[18:41:30.641]                       else if (inherits(cond, "warning")) {
[18:41:30.641]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.641]                         if (muffled) 
[18:41:30.641]                           invokeRestart("muffleWarning")
[18:41:30.641]                       }
[18:41:30.641]                       else if (inherits(cond, "condition")) {
[18:41:30.641]                         if (!is.null(pattern)) {
[18:41:30.641]                           computeRestarts <- base::computeRestarts
[18:41:30.641]                           grepl <- base::grepl
[18:41:30.641]                           restarts <- computeRestarts(cond)
[18:41:30.641]                           for (restart in restarts) {
[18:41:30.641]                             name <- restart$name
[18:41:30.641]                             if (is.null(name)) 
[18:41:30.641]                               next
[18:41:30.641]                             if (!grepl(pattern, name)) 
[18:41:30.641]                               next
[18:41:30.641]                             invokeRestart(restart)
[18:41:30.641]                             muffled <- TRUE
[18:41:30.641]                             break
[18:41:30.641]                           }
[18:41:30.641]                         }
[18:41:30.641]                       }
[18:41:30.641]                       invisible(muffled)
[18:41:30.641]                     }
[18:41:30.641]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.641]                   }
[18:41:30.641]                 }
[18:41:30.641]             }
[18:41:30.641]         }))
[18:41:30.641]     }, error = function(ex) {
[18:41:30.641]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.641]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.641]                 ...future.rng), started = ...future.startTime, 
[18:41:30.641]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.641]             version = "1.8"), class = "FutureResult")
[18:41:30.641]     }, finally = {
[18:41:30.641]         if (!identical(...future.workdir, getwd())) 
[18:41:30.641]             setwd(...future.workdir)
[18:41:30.641]         {
[18:41:30.641]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.641]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.641]             }
[18:41:30.641]             base::options(...future.oldOptions)
[18:41:30.641]             if (.Platform$OS.type == "windows") {
[18:41:30.641]                 old_names <- names(...future.oldEnvVars)
[18:41:30.641]                 envs <- base::Sys.getenv()
[18:41:30.641]                 names <- names(envs)
[18:41:30.641]                 common <- intersect(names, old_names)
[18:41:30.641]                 added <- setdiff(names, old_names)
[18:41:30.641]                 removed <- setdiff(old_names, names)
[18:41:30.641]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.641]                   envs[common]]
[18:41:30.641]                 NAMES <- toupper(changed)
[18:41:30.641]                 args <- list()
[18:41:30.641]                 for (kk in seq_along(NAMES)) {
[18:41:30.641]                   name <- changed[[kk]]
[18:41:30.641]                   NAME <- NAMES[[kk]]
[18:41:30.641]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.641]                     next
[18:41:30.641]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.641]                 }
[18:41:30.641]                 NAMES <- toupper(added)
[18:41:30.641]                 for (kk in seq_along(NAMES)) {
[18:41:30.641]                   name <- added[[kk]]
[18:41:30.641]                   NAME <- NAMES[[kk]]
[18:41:30.641]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.641]                     next
[18:41:30.641]                   args[[name]] <- ""
[18:41:30.641]                 }
[18:41:30.641]                 NAMES <- toupper(removed)
[18:41:30.641]                 for (kk in seq_along(NAMES)) {
[18:41:30.641]                   name <- removed[[kk]]
[18:41:30.641]                   NAME <- NAMES[[kk]]
[18:41:30.641]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.641]                     next
[18:41:30.641]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.641]                 }
[18:41:30.641]                 if (length(args) > 0) 
[18:41:30.641]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.641]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.641]             }
[18:41:30.641]             else {
[18:41:30.641]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.641]             }
[18:41:30.641]             {
[18:41:30.641]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.641]                   0L) {
[18:41:30.641]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.641]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.641]                   base::options(opts)
[18:41:30.641]                 }
[18:41:30.641]                 {
[18:41:30.641]                   {
[18:41:30.641]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.641]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.641]                     -486500277L), envir = base::globalenv(), 
[18:41:30.641]                       inherits = FALSE)
[18:41:30.641]                     NULL
[18:41:30.641]                   }
[18:41:30.641]                   options(future.plan = NULL)
[18:41:30.641]                   if (is.na(NA_character_)) 
[18:41:30.641]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.641]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.641]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.641]                     .init = FALSE)
[18:41:30.641]                 }
[18:41:30.641]             }
[18:41:30.641]         }
[18:41:30.641]     })
[18:41:30.641]     if (TRUE) {
[18:41:30.641]         base::sink(type = "output", split = FALSE)
[18:41:30.641]         if (TRUE) {
[18:41:30.641]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.641]         }
[18:41:30.641]         else {
[18:41:30.641]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.641]         }
[18:41:30.641]         base::close(...future.stdout)
[18:41:30.641]         ...future.stdout <- NULL
[18:41:30.641]     }
[18:41:30.641]     ...future.result$conditions <- ...future.conditions
[18:41:30.641]     ...future.result$finished <- base::Sys.time()
[18:41:30.641]     ...future.result
[18:41:30.641] }
[18:41:30.645] assign_globals() ...
[18:41:30.646] List of 5
[18:41:30.646]  $ ...future.FUN            :function (x, ...)  
[18:41:30.646]  $ MoreArgs                 : NULL
[18:41:30.646]  $ ...future.elements_ii    :List of 2
[18:41:30.646]   ..$ times:List of 4
[18:41:30.646]   .. ..$ : int 1
[18:41:30.646]   .. ..$ : int 2
[18:41:30.646]   .. ..$ : int 3
[18:41:30.646]   .. ..$ : int 4
[18:41:30.646]   ..$ x    :List of 4
[18:41:30.646]   .. ..$ : int 4
[18:41:30.646]   .. ..$ : int 3
[18:41:30.646]   .. ..$ : int 2
[18:41:30.646]   .. ..$ : int 1
[18:41:30.646]  $ ...future.seeds_ii       : NULL
[18:41:30.646]  $ ...future.globals.maxSize: NULL
[18:41:30.646]  - attr(*, "where")=List of 5
[18:41:30.646]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.646]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.646]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.646]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.646]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.646]  - attr(*, "resolved")= logi FALSE
[18:41:30.646]  - attr(*, "total_size")= int 313
[18:41:30.646]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.646]  - attr(*, "already-done")= logi TRUE
[18:41:30.660] - copied '...future.FUN' to environment
[18:41:30.660] - copied 'MoreArgs' to environment
[18:41:30.660] - copied '...future.elements_ii' to environment
[18:41:30.661] - copied '...future.seeds_ii' to environment
[18:41:30.661] - copied '...future.globals.maxSize' to environment
[18:41:30.661] assign_globals() ... done
[18:41:30.662] plan(): Setting new future strategy stack:
[18:41:30.662] List of future strategies:
[18:41:30.662] 1. sequential:
[18:41:30.662]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.662]    - tweaked: FALSE
[18:41:30.662]    - call: NULL
[18:41:30.663] plan(): nbrOfWorkers() = 1
[18:41:30.665] plan(): Setting new future strategy stack:
[18:41:30.665] List of future strategies:
[18:41:30.665] 1. sequential:
[18:41:30.665]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.665]    - tweaked: FALSE
[18:41:30.665]    - call: plan(strategy)
[18:41:30.666] plan(): nbrOfWorkers() = 1
[18:41:30.667] SequentialFuture started (and completed)
[18:41:30.667] - Launch lazy future ... done
[18:41:30.667] run() for 'SequentialFuture' ... done
[18:41:30.668] Created future:
[18:41:30.668] SequentialFuture:
[18:41:30.668] Label: 'future_mapply-1'
[18:41:30.668] Expression:
[18:41:30.668] {
[18:41:30.668]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.668]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.668]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.668]         on.exit(options(oopts), add = TRUE)
[18:41:30.668]     }
[18:41:30.668]     {
[18:41:30.668]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.668]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.668]         do.call(mapply, args = args)
[18:41:30.668]     }
[18:41:30.668] }
[18:41:30.668] Lazy evaluation: FALSE
[18:41:30.668] Asynchronous evaluation: FALSE
[18:41:30.668] Local evaluation: TRUE
[18:41:30.668] Environment: R_GlobalEnv
[18:41:30.668] Capture standard output: TRUE
[18:41:30.668] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.668] Globals: 5 objects totaling 313 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 198 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.668] Packages: <none>
[18:41:30.668] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.668] Resolved: TRUE
[18:41:30.668] Value: 103 bytes of class 'list'
[18:41:30.668] Early signaling: FALSE
[18:41:30.668] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.668] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.670] Chunk #1 of 1 ... DONE
[18:41:30.670] Launching 1 futures (chunks) ... DONE
[18:41:30.670] Resolving 1 futures (chunks) ...
[18:41:30.670] resolve() on list ...
[18:41:30.671]  recursive: 0
[18:41:30.671]  length: 1
[18:41:30.671] 
[18:41:30.672] resolved() for 'SequentialFuture' ...
[18:41:30.672] - state: 'finished'
[18:41:30.672] - run: TRUE
[18:41:30.672] - result: 'FutureResult'
[18:41:30.673] resolved() for 'SequentialFuture' ... done
[18:41:30.673] Future #1
[18:41:30.673] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.674] - nx: 1
[18:41:30.674] - relay: TRUE
[18:41:30.674] - stdout: TRUE
[18:41:30.675] - signal: TRUE
[18:41:30.675] - resignal: FALSE
[18:41:30.675] - force: TRUE
[18:41:30.675] - relayed: [n=1] FALSE
[18:41:30.676] - queued futures: [n=1] FALSE
[18:41:30.676]  - until=1
[18:41:30.676]  - relaying element #1
[18:41:30.677] - relayed: [n=1] TRUE
[18:41:30.677] - queued futures: [n=1] TRUE
[18:41:30.677] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.677]  length: 0 (resolved future 1)
[18:41:30.678] Relaying remaining futures
[18:41:30.678] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.678] - nx: 1
[18:41:30.678] - relay: TRUE
[18:41:30.679] - stdout: TRUE
[18:41:30.679] - signal: TRUE
[18:41:30.679] - resignal: FALSE
[18:41:30.679] - force: TRUE
[18:41:30.680] - relayed: [n=1] TRUE
[18:41:30.680] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.680] - relayed: [n=1] TRUE
[18:41:30.681] - queued futures: [n=1] TRUE
[18:41:30.681] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.752] resolve() on list ... DONE
[18:41:30.753]  - Number of value chunks collected: 1
[18:41:30.753] Resolving 1 futures (chunks) ... DONE
[18:41:30.753] Reducing values from 1 chunks ...
[18:41:30.753]  - Number of values collected after concatenation: 4
[18:41:30.754]  - Number of values expected: 4
[18:41:30.754] Reducing values from 1 chunks ... DONE
[18:41:30.754] future_mapply() ... DONE
[18:41:30.755] future_mapply() ...
[18:41:30.755] Number of chunks: 1
[18:41:30.756] getGlobalsAndPackagesXApply() ...
[18:41:30.756]  - future.globals: TRUE
[18:41:30.756] getGlobalsAndPackages() ...
[18:41:30.756] Searching for globals...
[18:41:30.758] - globals found: [1] 'FUN'
[18:41:30.758] Searching for globals ... DONE
[18:41:30.758] Resolving globals: FALSE
[18:41:30.759] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:30.760] The total size of the 1 globals exported for future expression ('FUN(x = 42)') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:30.760] - globals: [1] 'FUN'
[18:41:30.760] 
[18:41:30.761] getGlobalsAndPackages() ... DONE
[18:41:30.761]  - globals found/used: [n=1] 'FUN'
[18:41:30.761]  - needed namespaces: [n=0] 
[18:41:30.761] Finding globals ... DONE
[18:41:30.762] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.762] List of 2
[18:41:30.762]  $ ...future.FUN:function (x, ...)  
[18:41:30.762]  $ MoreArgs     :List of 1
[18:41:30.762]   ..$ x: num 42
[18:41:30.762]  - attr(*, "where")=List of 2
[18:41:30.762]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.762]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.762]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.762]  - attr(*, "resolved")= logi FALSE
[18:41:30.762]  - attr(*, "total_size")= num NA
[18:41:30.768] Packages to be attached in all futures: [n=0] 
[18:41:30.768] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.769] Number of futures (= number of chunks): 1
[18:41:30.769] Launching 1 futures (chunks) ...
[18:41:30.769] Chunk #1 of 1 ...
[18:41:30.769]  - Finding globals in '...' for chunk #1 ...
[18:41:30.769] getGlobalsAndPackages() ...
[18:41:30.769] Searching for globals...
[18:41:30.770] 
[18:41:30.770] Searching for globals ... DONE
[18:41:30.770] - globals: [0] <none>
[18:41:30.770] getGlobalsAndPackages() ... DONE
[18:41:30.771]    + additional globals found: [n=0] 
[18:41:30.771]    + additional namespaces needed: [n=0] 
[18:41:30.771]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.771]  - seeds: <none>
[18:41:30.771]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.771] getGlobalsAndPackages() ...
[18:41:30.772] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.772] Resolving globals: FALSE
[18:41:30.772] The total size of the 5 globals is 310 bytes (310 bytes)
[18:41:30.773] 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 310 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (133 bytes of class 'list'), 'MoreArgs' (89 bytes of class 'list') and '...future.FUN' (34 bytes of class 'function')
[18:41:30.773] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.774] 
[18:41:30.774] getGlobalsAndPackages() ... DONE
[18:41:30.774] run() for 'Future' ...
[18:41:30.774] - state: 'created'
[18:41:30.775] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.775] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.775] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.775]   - Field: 'label'
[18:41:30.776]   - Field: 'local'
[18:41:30.776]   - Field: 'owner'
[18:41:30.776]   - Field: 'envir'
[18:41:30.776]   - Field: 'packages'
[18:41:30.776]   - Field: 'gc'
[18:41:30.776]   - Field: 'conditions'
[18:41:30.777]   - Field: 'expr'
[18:41:30.777]   - Field: 'uuid'
[18:41:30.777]   - Field: 'seed'
[18:41:30.777]   - Field: 'version'
[18:41:30.777]   - Field: 'result'
[18:41:30.778]   - Field: 'asynchronous'
[18:41:30.778]   - Field: 'calls'
[18:41:30.778]   - Field: 'globals'
[18:41:30.778]   - Field: 'stdout'
[18:41:30.778]   - Field: 'earlySignal'
[18:41:30.778]   - Field: 'lazy'
[18:41:30.779]   - Field: 'state'
[18:41:30.779] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.779] - Launch lazy future ...
[18:41:30.779] Packages needed by the future expression (n = 0): <none>
[18:41:30.779] Packages needed by future strategies (n = 0): <none>
[18:41:30.780] {
[18:41:30.780]     {
[18:41:30.780]         {
[18:41:30.780]             ...future.startTime <- base::Sys.time()
[18:41:30.780]             {
[18:41:30.780]                 {
[18:41:30.780]                   {
[18:41:30.780]                     base::local({
[18:41:30.780]                       has_future <- base::requireNamespace("future", 
[18:41:30.780]                         quietly = TRUE)
[18:41:30.780]                       if (has_future) {
[18:41:30.780]                         ns <- base::getNamespace("future")
[18:41:30.780]                         version <- ns[[".package"]][["version"]]
[18:41:30.780]                         if (is.null(version)) 
[18:41:30.780]                           version <- utils::packageVersion("future")
[18:41:30.780]                       }
[18:41:30.780]                       else {
[18:41:30.780]                         version <- NULL
[18:41:30.780]                       }
[18:41:30.780]                       if (!has_future || version < "1.8.0") {
[18:41:30.780]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.780]                           "", base::R.version$version.string), 
[18:41:30.780]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.780]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.780]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.780]                             "release", "version")], collapse = " "), 
[18:41:30.780]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.780]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.780]                           info)
[18:41:30.780]                         info <- base::paste(info, collapse = "; ")
[18:41:30.780]                         if (!has_future) {
[18:41:30.780]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.780]                             info)
[18:41:30.780]                         }
[18:41:30.780]                         else {
[18:41:30.780]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.780]                             info, version)
[18:41:30.780]                         }
[18:41:30.780]                         base::stop(msg)
[18:41:30.780]                       }
[18:41:30.780]                     })
[18:41:30.780]                   }
[18:41:30.780]                   ...future.strategy.old <- future::plan("list")
[18:41:30.780]                   options(future.plan = NULL)
[18:41:30.780]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.780]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.780]                 }
[18:41:30.780]                 ...future.workdir <- getwd()
[18:41:30.780]             }
[18:41:30.780]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.780]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.780]         }
[18:41:30.780]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.780]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.780]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.780]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.780]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.780]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.780]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.780]             base::names(...future.oldOptions))
[18:41:30.780]     }
[18:41:30.780]     if (FALSE) {
[18:41:30.780]     }
[18:41:30.780]     else {
[18:41:30.780]         if (TRUE) {
[18:41:30.780]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.780]                 open = "w")
[18:41:30.780]         }
[18:41:30.780]         else {
[18:41:30.780]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.780]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.780]         }
[18:41:30.780]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.780]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.780]             base::sink(type = "output", split = FALSE)
[18:41:30.780]             base::close(...future.stdout)
[18:41:30.780]         }, add = TRUE)
[18:41:30.780]     }
[18:41:30.780]     ...future.frame <- base::sys.nframe()
[18:41:30.780]     ...future.conditions <- base::list()
[18:41:30.780]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.780]     if (FALSE) {
[18:41:30.780]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.780]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.780]     }
[18:41:30.780]     ...future.result <- base::tryCatch({
[18:41:30.780]         base::withCallingHandlers({
[18:41:30.780]             ...future.value <- base::withVisible(base::local({
[18:41:30.780]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.780]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.780]                   ...future.globals.maxSize)) {
[18:41:30.780]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.780]                   on.exit(options(oopts), add = TRUE)
[18:41:30.780]                 }
[18:41:30.780]                 {
[18:41:30.780]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.780]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.780]                     USE.NAMES = FALSE)
[18:41:30.780]                   do.call(mapply, args = args)
[18:41:30.780]                 }
[18:41:30.780]             }))
[18:41:30.780]             future::FutureResult(value = ...future.value$value, 
[18:41:30.780]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.780]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.780]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.780]                     ...future.globalenv.names))
[18:41:30.780]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.780]         }, condition = base::local({
[18:41:30.780]             c <- base::c
[18:41:30.780]             inherits <- base::inherits
[18:41:30.780]             invokeRestart <- base::invokeRestart
[18:41:30.780]             length <- base::length
[18:41:30.780]             list <- base::list
[18:41:30.780]             seq.int <- base::seq.int
[18:41:30.780]             signalCondition <- base::signalCondition
[18:41:30.780]             sys.calls <- base::sys.calls
[18:41:30.780]             `[[` <- base::`[[`
[18:41:30.780]             `+` <- base::`+`
[18:41:30.780]             `<<-` <- base::`<<-`
[18:41:30.780]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.780]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.780]                   3L)]
[18:41:30.780]             }
[18:41:30.780]             function(cond) {
[18:41:30.780]                 is_error <- inherits(cond, "error")
[18:41:30.780]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.780]                   NULL)
[18:41:30.780]                 if (is_error) {
[18:41:30.780]                   sessionInformation <- function() {
[18:41:30.780]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.780]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.780]                       search = base::search(), system = base::Sys.info())
[18:41:30.780]                   }
[18:41:30.780]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.780]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.780]                     cond$call), session = sessionInformation(), 
[18:41:30.780]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.780]                   signalCondition(cond)
[18:41:30.780]                 }
[18:41:30.780]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.780]                 "immediateCondition"))) {
[18:41:30.780]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.780]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.780]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.780]                   if (TRUE && !signal) {
[18:41:30.780]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.780]                     {
[18:41:30.780]                       inherits <- base::inherits
[18:41:30.780]                       invokeRestart <- base::invokeRestart
[18:41:30.780]                       is.null <- base::is.null
[18:41:30.780]                       muffled <- FALSE
[18:41:30.780]                       if (inherits(cond, "message")) {
[18:41:30.780]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.780]                         if (muffled) 
[18:41:30.780]                           invokeRestart("muffleMessage")
[18:41:30.780]                       }
[18:41:30.780]                       else if (inherits(cond, "warning")) {
[18:41:30.780]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.780]                         if (muffled) 
[18:41:30.780]                           invokeRestart("muffleWarning")
[18:41:30.780]                       }
[18:41:30.780]                       else if (inherits(cond, "condition")) {
[18:41:30.780]                         if (!is.null(pattern)) {
[18:41:30.780]                           computeRestarts <- base::computeRestarts
[18:41:30.780]                           grepl <- base::grepl
[18:41:30.780]                           restarts <- computeRestarts(cond)
[18:41:30.780]                           for (restart in restarts) {
[18:41:30.780]                             name <- restart$name
[18:41:30.780]                             if (is.null(name)) 
[18:41:30.780]                               next
[18:41:30.780]                             if (!grepl(pattern, name)) 
[18:41:30.780]                               next
[18:41:30.780]                             invokeRestart(restart)
[18:41:30.780]                             muffled <- TRUE
[18:41:30.780]                             break
[18:41:30.780]                           }
[18:41:30.780]                         }
[18:41:30.780]                       }
[18:41:30.780]                       invisible(muffled)
[18:41:30.780]                     }
[18:41:30.780]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.780]                   }
[18:41:30.780]                 }
[18:41:30.780]                 else {
[18:41:30.780]                   if (TRUE) {
[18:41:30.780]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.780]                     {
[18:41:30.780]                       inherits <- base::inherits
[18:41:30.780]                       invokeRestart <- base::invokeRestart
[18:41:30.780]                       is.null <- base::is.null
[18:41:30.780]                       muffled <- FALSE
[18:41:30.780]                       if (inherits(cond, "message")) {
[18:41:30.780]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.780]                         if (muffled) 
[18:41:30.780]                           invokeRestart("muffleMessage")
[18:41:30.780]                       }
[18:41:30.780]                       else if (inherits(cond, "warning")) {
[18:41:30.780]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.780]                         if (muffled) 
[18:41:30.780]                           invokeRestart("muffleWarning")
[18:41:30.780]                       }
[18:41:30.780]                       else if (inherits(cond, "condition")) {
[18:41:30.780]                         if (!is.null(pattern)) {
[18:41:30.780]                           computeRestarts <- base::computeRestarts
[18:41:30.780]                           grepl <- base::grepl
[18:41:30.780]                           restarts <- computeRestarts(cond)
[18:41:30.780]                           for (restart in restarts) {
[18:41:30.780]                             name <- restart$name
[18:41:30.780]                             if (is.null(name)) 
[18:41:30.780]                               next
[18:41:30.780]                             if (!grepl(pattern, name)) 
[18:41:30.780]                               next
[18:41:30.780]                             invokeRestart(restart)
[18:41:30.780]                             muffled <- TRUE
[18:41:30.780]                             break
[18:41:30.780]                           }
[18:41:30.780]                         }
[18:41:30.780]                       }
[18:41:30.780]                       invisible(muffled)
[18:41:30.780]                     }
[18:41:30.780]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.780]                   }
[18:41:30.780]                 }
[18:41:30.780]             }
[18:41:30.780]         }))
[18:41:30.780]     }, error = function(ex) {
[18:41:30.780]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.780]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.780]                 ...future.rng), started = ...future.startTime, 
[18:41:30.780]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.780]             version = "1.8"), class = "FutureResult")
[18:41:30.780]     }, finally = {
[18:41:30.780]         if (!identical(...future.workdir, getwd())) 
[18:41:30.780]             setwd(...future.workdir)
[18:41:30.780]         {
[18:41:30.780]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.780]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.780]             }
[18:41:30.780]             base::options(...future.oldOptions)
[18:41:30.780]             if (.Platform$OS.type == "windows") {
[18:41:30.780]                 old_names <- names(...future.oldEnvVars)
[18:41:30.780]                 envs <- base::Sys.getenv()
[18:41:30.780]                 names <- names(envs)
[18:41:30.780]                 common <- intersect(names, old_names)
[18:41:30.780]                 added <- setdiff(names, old_names)
[18:41:30.780]                 removed <- setdiff(old_names, names)
[18:41:30.780]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.780]                   envs[common]]
[18:41:30.780]                 NAMES <- toupper(changed)
[18:41:30.780]                 args <- list()
[18:41:30.780]                 for (kk in seq_along(NAMES)) {
[18:41:30.780]                   name <- changed[[kk]]
[18:41:30.780]                   NAME <- NAMES[[kk]]
[18:41:30.780]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.780]                     next
[18:41:30.780]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.780]                 }
[18:41:30.780]                 NAMES <- toupper(added)
[18:41:30.780]                 for (kk in seq_along(NAMES)) {
[18:41:30.780]                   name <- added[[kk]]
[18:41:30.780]                   NAME <- NAMES[[kk]]
[18:41:30.780]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.780]                     next
[18:41:30.780]                   args[[name]] <- ""
[18:41:30.780]                 }
[18:41:30.780]                 NAMES <- toupper(removed)
[18:41:30.780]                 for (kk in seq_along(NAMES)) {
[18:41:30.780]                   name <- removed[[kk]]
[18:41:30.780]                   NAME <- NAMES[[kk]]
[18:41:30.780]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.780]                     next
[18:41:30.780]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.780]                 }
[18:41:30.780]                 if (length(args) > 0) 
[18:41:30.780]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.780]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.780]             }
[18:41:30.780]             else {
[18:41:30.780]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.780]             }
[18:41:30.780]             {
[18:41:30.780]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.780]                   0L) {
[18:41:30.780]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.780]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.780]                   base::options(opts)
[18:41:30.780]                 }
[18:41:30.780]                 {
[18:41:30.780]                   {
[18:41:30.780]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.780]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.780]                     -486500277L), envir = base::globalenv(), 
[18:41:30.780]                       inherits = FALSE)
[18:41:30.780]                     NULL
[18:41:30.780]                   }
[18:41:30.780]                   options(future.plan = NULL)
[18:41:30.780]                   if (is.na(NA_character_)) 
[18:41:30.780]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.780]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.780]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.780]                     .init = FALSE)
[18:41:30.780]                 }
[18:41:30.780]             }
[18:41:30.780]         }
[18:41:30.780]     })
[18:41:30.780]     if (TRUE) {
[18:41:30.780]         base::sink(type = "output", split = FALSE)
[18:41:30.780]         if (TRUE) {
[18:41:30.780]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.780]         }
[18:41:30.780]         else {
[18:41:30.780]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.780]         }
[18:41:30.780]         base::close(...future.stdout)
[18:41:30.780]         ...future.stdout <- NULL
[18:41:30.780]     }
[18:41:30.780]     ...future.result$conditions <- ...future.conditions
[18:41:30.780]     ...future.result$finished <- base::Sys.time()
[18:41:30.780]     ...future.result
[18:41:30.780] }
[18:41:30.784] assign_globals() ...
[18:41:30.784] List of 5
[18:41:30.784]  $ ...future.FUN            :function (x, ...)  
[18:41:30.784]  $ MoreArgs                 :List of 1
[18:41:30.784]   ..$ x: num 42
[18:41:30.784]  $ ...future.elements_ii    :List of 1
[18:41:30.784]   ..$ times:List of 4
[18:41:30.784]   .. ..$ : int 1
[18:41:30.784]   .. ..$ : int 2
[18:41:30.784]   .. ..$ : int 3
[18:41:30.784]   .. ..$ : int 4
[18:41:30.784]  $ ...future.seeds_ii       : NULL
[18:41:30.784]  $ ...future.globals.maxSize: NULL
[18:41:30.784]  - attr(*, "where")=List of 5
[18:41:30.784]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.784]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.784]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.784]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.784]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.784]  - attr(*, "resolved")= logi FALSE
[18:41:30.784]  - attr(*, "total_size")= int 310
[18:41:30.784]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.784]  - attr(*, "already-done")= logi TRUE
[18:41:30.793] - copied '...future.FUN' to environment
[18:41:30.793] - copied 'MoreArgs' to environment
[18:41:30.794] - copied '...future.elements_ii' to environment
[18:41:30.794] - copied '...future.seeds_ii' to environment
[18:41:30.794] - copied '...future.globals.maxSize' to environment
[18:41:30.794] assign_globals() ... done
[18:41:30.794] plan(): Setting new future strategy stack:
[18:41:30.795] List of future strategies:
[18:41:30.795] 1. sequential:
[18:41:30.795]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.795]    - tweaked: FALSE
[18:41:30.795]    - call: NULL
[18:41:30.795] plan(): nbrOfWorkers() = 1
[18:41:30.797] plan(): Setting new future strategy stack:
[18:41:30.797] List of future strategies:
[18:41:30.797] 1. sequential:
[18:41:30.797]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.797]    - tweaked: FALSE
[18:41:30.797]    - call: plan(strategy)
[18:41:30.797] plan(): nbrOfWorkers() = 1
[18:41:30.798] SequentialFuture started (and completed)
[18:41:30.798] - Launch lazy future ... done
[18:41:30.798] run() for 'SequentialFuture' ... done
[18:41:30.798] Created future:
[18:41:30.799] SequentialFuture:
[18:41:30.799] Label: 'future_mapply-1'
[18:41:30.799] Expression:
[18:41:30.799] {
[18:41:30.799]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.799]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.799]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.799]         on.exit(options(oopts), add = TRUE)
[18:41:30.799]     }
[18:41:30.799]     {
[18:41:30.799]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.799]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.799]         do.call(mapply, args = args)
[18:41:30.799]     }
[18:41:30.799] }
[18:41:30.799] Lazy evaluation: FALSE
[18:41:30.799] Asynchronous evaluation: FALSE
[18:41:30.799] Local evaluation: TRUE
[18:41:30.799] Environment: R_GlobalEnv
[18:41:30.799] Capture standard output: TRUE
[18:41:30.799] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.799] Globals: 5 objects totaling 310 bytes (function '...future.FUN' of 34 bytes, list 'MoreArgs' of 89 bytes, list '...future.elements_ii' of 133 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.799] Packages: <none>
[18:41:30.799] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.799] Resolved: TRUE
[18:41:30.799] Value: 143 bytes of class 'list'
[18:41:30.799] Early signaling: FALSE
[18:41:30.799] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.799] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.800] Chunk #1 of 1 ... DONE
[18:41:30.800] Launching 1 futures (chunks) ... DONE
[18:41:30.800] Resolving 1 futures (chunks) ...
[18:41:30.800] resolve() on list ...
[18:41:30.801]  recursive: 0
[18:41:30.801]  length: 1
[18:41:30.801] 
[18:41:30.801] resolved() for 'SequentialFuture' ...
[18:41:30.801] - state: 'finished'
[18:41:30.801] - run: TRUE
[18:41:30.802] - result: 'FutureResult'
[18:41:30.802] resolved() for 'SequentialFuture' ... done
[18:41:30.802] Future #1
[18:41:30.802] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.802] - nx: 1
[18:41:30.803] - relay: TRUE
[18:41:30.803] - stdout: TRUE
[18:41:30.803] - signal: TRUE
[18:41:30.803] - resignal: FALSE
[18:41:30.803] - force: TRUE
[18:41:30.803] - relayed: [n=1] FALSE
[18:41:30.803] - queued futures: [n=1] FALSE
[18:41:30.804]  - until=1
[18:41:30.804]  - relaying element #1
[18:41:30.804] - relayed: [n=1] TRUE
[18:41:30.804] - queued futures: [n=1] TRUE
[18:41:30.804] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.805]  length: 0 (resolved future 1)
[18:41:30.805] Relaying remaining futures
[18:41:30.805] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.805] - nx: 1
[18:41:30.805] - relay: TRUE
[18:41:30.805] - stdout: TRUE
[18:41:30.806] - signal: TRUE
[18:41:30.806] - resignal: FALSE
[18:41:30.806] - force: TRUE
[18:41:30.806] - relayed: [n=1] TRUE
[18:41:30.806] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.806] - relayed: [n=1] TRUE
[18:41:30.807] - queued futures: [n=1] TRUE
[18:41:30.807] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.807] resolve() on list ... DONE
[18:41:30.807]  - Number of value chunks collected: 1
[18:41:30.807] Resolving 1 futures (chunks) ... DONE
[18:41:30.807] Reducing values from 1 chunks ...
[18:41:30.808]  - Number of values collected after concatenation: 4
[18:41:30.808]  - Number of values expected: 4
[18:41:30.808] Reducing values from 1 chunks ... DONE
[18:41:30.808] future_mapply() ... DONE
[18:41:30.808] future_mapply() ...
[18:41:30.809] Number of chunks: 1
[18:41:30.809] getGlobalsAndPackagesXApply() ...
[18:41:30.809]  - future.globals: TRUE
[18:41:30.809] getGlobalsAndPackages() ...
[18:41:30.809] Searching for globals...
[18:41:30.811] - globals found: [3] 'FUN', '+', 'seq_len'
[18:41:30.811] Searching for globals ... DONE
[18:41:30.811] Resolving globals: FALSE
[18:41:30.812] The total size of the 1 globals is 414 bytes (414 bytes)
[18:41:30.812] The total size of the 1 globals exported for future expression ('FUN()') is 414 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (414 bytes of class 'function')
[18:41:30.812] - globals: [1] 'FUN'
[18:41:30.813] 
[18:41:30.813] getGlobalsAndPackages() ... DONE
[18:41:30.813]  - globals found/used: [n=1] 'FUN'
[18:41:30.813]  - needed namespaces: [n=0] 
[18:41:30.813] Finding globals ... DONE
[18:41:30.814] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.814] List of 2
[18:41:30.814]  $ ...future.FUN:function (x, y)  
[18:41:30.814]  $ MoreArgs     : NULL
[18:41:30.814]  - attr(*, "where")=List of 2
[18:41:30.814]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.814]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.814]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.814]  - attr(*, "resolved")= logi FALSE
[18:41:30.814]  - attr(*, "total_size")= num NA
[18:41:30.818] Packages to be attached in all futures: [n=0] 
[18:41:30.818] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.818] Number of futures (= number of chunks): 1
[18:41:30.818] Launching 1 futures (chunks) ...
[18:41:30.818] Chunk #1 of 1 ...
[18:41:30.819]  - Finding globals in '...' for chunk #1 ...
[18:41:30.819] getGlobalsAndPackages() ...
[18:41:30.819] Searching for globals...
[18:41:30.819] 
[18:41:30.820] Searching for globals ... DONE
[18:41:30.820] - globals: [0] <none>
[18:41:30.820] getGlobalsAndPackages() ... DONE
[18:41:30.820]    + additional globals found: [n=0] 
[18:41:30.820]    + additional namespaces needed: [n=0] 
[18:41:30.820]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.821]  - seeds: <none>
[18:41:30.821]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.821] getGlobalsAndPackages() ...
[18:41:30.821] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.821] Resolving globals: FALSE
[18:41:30.822] The total size of the 5 globals is 745 bytes (745 bytes)
[18:41:30.822] 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 745 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (414 bytes of class 'function'), '...future.elements_ii' (250 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.823] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.823] 
[18:41:30.823] getGlobalsAndPackages() ... DONE
[18:41:30.823] run() for 'Future' ...
[18:41:30.823] - state: 'created'
[18:41:30.824] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.824] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.824] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.824]   - Field: 'label'
[18:41:30.825]   - Field: 'local'
[18:41:30.825]   - Field: 'owner'
[18:41:30.825]   - Field: 'envir'
[18:41:30.825]   - Field: 'packages'
[18:41:30.825]   - Field: 'gc'
[18:41:30.826]   - Field: 'conditions'
[18:41:30.826]   - Field: 'expr'
[18:41:30.826]   - Field: 'uuid'
[18:41:30.826]   - Field: 'seed'
[18:41:30.826]   - Field: 'version'
[18:41:30.826]   - Field: 'result'
[18:41:30.827]   - Field: 'asynchronous'
[18:41:30.827]   - Field: 'calls'
[18:41:30.827]   - Field: 'globals'
[18:41:30.827]   - Field: 'stdout'
[18:41:30.827]   - Field: 'earlySignal'
[18:41:30.827]   - Field: 'lazy'
[18:41:30.828]   - Field: 'state'
[18:41:30.828] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.828] - Launch lazy future ...
[18:41:30.828] Packages needed by the future expression (n = 0): <none>
[18:41:30.828] Packages needed by future strategies (n = 0): <none>
[18:41:30.829] {
[18:41:30.829]     {
[18:41:30.829]         {
[18:41:30.829]             ...future.startTime <- base::Sys.time()
[18:41:30.829]             {
[18:41:30.829]                 {
[18:41:30.829]                   {
[18:41:30.829]                     base::local({
[18:41:30.829]                       has_future <- base::requireNamespace("future", 
[18:41:30.829]                         quietly = TRUE)
[18:41:30.829]                       if (has_future) {
[18:41:30.829]                         ns <- base::getNamespace("future")
[18:41:30.829]                         version <- ns[[".package"]][["version"]]
[18:41:30.829]                         if (is.null(version)) 
[18:41:30.829]                           version <- utils::packageVersion("future")
[18:41:30.829]                       }
[18:41:30.829]                       else {
[18:41:30.829]                         version <- NULL
[18:41:30.829]                       }
[18:41:30.829]                       if (!has_future || version < "1.8.0") {
[18:41:30.829]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.829]                           "", base::R.version$version.string), 
[18:41:30.829]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.829]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.829]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.829]                             "release", "version")], collapse = " "), 
[18:41:30.829]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.829]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.829]                           info)
[18:41:30.829]                         info <- base::paste(info, collapse = "; ")
[18:41:30.829]                         if (!has_future) {
[18:41:30.829]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.829]                             info)
[18:41:30.829]                         }
[18:41:30.829]                         else {
[18:41:30.829]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.829]                             info, version)
[18:41:30.829]                         }
[18:41:30.829]                         base::stop(msg)
[18:41:30.829]                       }
[18:41:30.829]                     })
[18:41:30.829]                   }
[18:41:30.829]                   ...future.strategy.old <- future::plan("list")
[18:41:30.829]                   options(future.plan = NULL)
[18:41:30.829]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.829]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.829]                 }
[18:41:30.829]                 ...future.workdir <- getwd()
[18:41:30.829]             }
[18:41:30.829]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.829]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.829]         }
[18:41:30.829]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.829]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.829]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.829]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.829]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.829]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.829]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.829]             base::names(...future.oldOptions))
[18:41:30.829]     }
[18:41:30.829]     if (FALSE) {
[18:41:30.829]     }
[18:41:30.829]     else {
[18:41:30.829]         if (TRUE) {
[18:41:30.829]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.829]                 open = "w")
[18:41:30.829]         }
[18:41:30.829]         else {
[18:41:30.829]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.829]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.829]         }
[18:41:30.829]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.829]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.829]             base::sink(type = "output", split = FALSE)
[18:41:30.829]             base::close(...future.stdout)
[18:41:30.829]         }, add = TRUE)
[18:41:30.829]     }
[18:41:30.829]     ...future.frame <- base::sys.nframe()
[18:41:30.829]     ...future.conditions <- base::list()
[18:41:30.829]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.829]     if (FALSE) {
[18:41:30.829]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.829]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.829]     }
[18:41:30.829]     ...future.result <- base::tryCatch({
[18:41:30.829]         base::withCallingHandlers({
[18:41:30.829]             ...future.value <- base::withVisible(base::local({
[18:41:30.829]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.829]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.829]                   ...future.globals.maxSize)) {
[18:41:30.829]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.829]                   on.exit(options(oopts), add = TRUE)
[18:41:30.829]                 }
[18:41:30.829]                 {
[18:41:30.829]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.829]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.829]                     USE.NAMES = FALSE)
[18:41:30.829]                   do.call(mapply, args = args)
[18:41:30.829]                 }
[18:41:30.829]             }))
[18:41:30.829]             future::FutureResult(value = ...future.value$value, 
[18:41:30.829]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.829]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.829]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.829]                     ...future.globalenv.names))
[18:41:30.829]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.829]         }, condition = base::local({
[18:41:30.829]             c <- base::c
[18:41:30.829]             inherits <- base::inherits
[18:41:30.829]             invokeRestart <- base::invokeRestart
[18:41:30.829]             length <- base::length
[18:41:30.829]             list <- base::list
[18:41:30.829]             seq.int <- base::seq.int
[18:41:30.829]             signalCondition <- base::signalCondition
[18:41:30.829]             sys.calls <- base::sys.calls
[18:41:30.829]             `[[` <- base::`[[`
[18:41:30.829]             `+` <- base::`+`
[18:41:30.829]             `<<-` <- base::`<<-`
[18:41:30.829]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.829]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.829]                   3L)]
[18:41:30.829]             }
[18:41:30.829]             function(cond) {
[18:41:30.829]                 is_error <- inherits(cond, "error")
[18:41:30.829]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.829]                   NULL)
[18:41:30.829]                 if (is_error) {
[18:41:30.829]                   sessionInformation <- function() {
[18:41:30.829]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.829]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.829]                       search = base::search(), system = base::Sys.info())
[18:41:30.829]                   }
[18:41:30.829]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.829]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.829]                     cond$call), session = sessionInformation(), 
[18:41:30.829]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.829]                   signalCondition(cond)
[18:41:30.829]                 }
[18:41:30.829]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.829]                 "immediateCondition"))) {
[18:41:30.829]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.829]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.829]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.829]                   if (TRUE && !signal) {
[18:41:30.829]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.829]                     {
[18:41:30.829]                       inherits <- base::inherits
[18:41:30.829]                       invokeRestart <- base::invokeRestart
[18:41:30.829]                       is.null <- base::is.null
[18:41:30.829]                       muffled <- FALSE
[18:41:30.829]                       if (inherits(cond, "message")) {
[18:41:30.829]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.829]                         if (muffled) 
[18:41:30.829]                           invokeRestart("muffleMessage")
[18:41:30.829]                       }
[18:41:30.829]                       else if (inherits(cond, "warning")) {
[18:41:30.829]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.829]                         if (muffled) 
[18:41:30.829]                           invokeRestart("muffleWarning")
[18:41:30.829]                       }
[18:41:30.829]                       else if (inherits(cond, "condition")) {
[18:41:30.829]                         if (!is.null(pattern)) {
[18:41:30.829]                           computeRestarts <- base::computeRestarts
[18:41:30.829]                           grepl <- base::grepl
[18:41:30.829]                           restarts <- computeRestarts(cond)
[18:41:30.829]                           for (restart in restarts) {
[18:41:30.829]                             name <- restart$name
[18:41:30.829]                             if (is.null(name)) 
[18:41:30.829]                               next
[18:41:30.829]                             if (!grepl(pattern, name)) 
[18:41:30.829]                               next
[18:41:30.829]                             invokeRestart(restart)
[18:41:30.829]                             muffled <- TRUE
[18:41:30.829]                             break
[18:41:30.829]                           }
[18:41:30.829]                         }
[18:41:30.829]                       }
[18:41:30.829]                       invisible(muffled)
[18:41:30.829]                     }
[18:41:30.829]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.829]                   }
[18:41:30.829]                 }
[18:41:30.829]                 else {
[18:41:30.829]                   if (TRUE) {
[18:41:30.829]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.829]                     {
[18:41:30.829]                       inherits <- base::inherits
[18:41:30.829]                       invokeRestart <- base::invokeRestart
[18:41:30.829]                       is.null <- base::is.null
[18:41:30.829]                       muffled <- FALSE
[18:41:30.829]                       if (inherits(cond, "message")) {
[18:41:30.829]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.829]                         if (muffled) 
[18:41:30.829]                           invokeRestart("muffleMessage")
[18:41:30.829]                       }
[18:41:30.829]                       else if (inherits(cond, "warning")) {
[18:41:30.829]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.829]                         if (muffled) 
[18:41:30.829]                           invokeRestart("muffleWarning")
[18:41:30.829]                       }
[18:41:30.829]                       else if (inherits(cond, "condition")) {
[18:41:30.829]                         if (!is.null(pattern)) {
[18:41:30.829]                           computeRestarts <- base::computeRestarts
[18:41:30.829]                           grepl <- base::grepl
[18:41:30.829]                           restarts <- computeRestarts(cond)
[18:41:30.829]                           for (restart in restarts) {
[18:41:30.829]                             name <- restart$name
[18:41:30.829]                             if (is.null(name)) 
[18:41:30.829]                               next
[18:41:30.829]                             if (!grepl(pattern, name)) 
[18:41:30.829]                               next
[18:41:30.829]                             invokeRestart(restart)
[18:41:30.829]                             muffled <- TRUE
[18:41:30.829]                             break
[18:41:30.829]                           }
[18:41:30.829]                         }
[18:41:30.829]                       }
[18:41:30.829]                       invisible(muffled)
[18:41:30.829]                     }
[18:41:30.829]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.829]                   }
[18:41:30.829]                 }
[18:41:30.829]             }
[18:41:30.829]         }))
[18:41:30.829]     }, error = function(ex) {
[18:41:30.829]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.829]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.829]                 ...future.rng), started = ...future.startTime, 
[18:41:30.829]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.829]             version = "1.8"), class = "FutureResult")
[18:41:30.829]     }, finally = {
[18:41:30.829]         if (!identical(...future.workdir, getwd())) 
[18:41:30.829]             setwd(...future.workdir)
[18:41:30.829]         {
[18:41:30.829]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.829]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.829]             }
[18:41:30.829]             base::options(...future.oldOptions)
[18:41:30.829]             if (.Platform$OS.type == "windows") {
[18:41:30.829]                 old_names <- names(...future.oldEnvVars)
[18:41:30.829]                 envs <- base::Sys.getenv()
[18:41:30.829]                 names <- names(envs)
[18:41:30.829]                 common <- intersect(names, old_names)
[18:41:30.829]                 added <- setdiff(names, old_names)
[18:41:30.829]                 removed <- setdiff(old_names, names)
[18:41:30.829]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.829]                   envs[common]]
[18:41:30.829]                 NAMES <- toupper(changed)
[18:41:30.829]                 args <- list()
[18:41:30.829]                 for (kk in seq_along(NAMES)) {
[18:41:30.829]                   name <- changed[[kk]]
[18:41:30.829]                   NAME <- NAMES[[kk]]
[18:41:30.829]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.829]                     next
[18:41:30.829]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.829]                 }
[18:41:30.829]                 NAMES <- toupper(added)
[18:41:30.829]                 for (kk in seq_along(NAMES)) {
[18:41:30.829]                   name <- added[[kk]]
[18:41:30.829]                   NAME <- NAMES[[kk]]
[18:41:30.829]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.829]                     next
[18:41:30.829]                   args[[name]] <- ""
[18:41:30.829]                 }
[18:41:30.829]                 NAMES <- toupper(removed)
[18:41:30.829]                 for (kk in seq_along(NAMES)) {
[18:41:30.829]                   name <- removed[[kk]]
[18:41:30.829]                   NAME <- NAMES[[kk]]
[18:41:30.829]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.829]                     next
[18:41:30.829]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.829]                 }
[18:41:30.829]                 if (length(args) > 0) 
[18:41:30.829]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.829]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.829]             }
[18:41:30.829]             else {
[18:41:30.829]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.829]             }
[18:41:30.829]             {
[18:41:30.829]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.829]                   0L) {
[18:41:30.829]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.829]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.829]                   base::options(opts)
[18:41:30.829]                 }
[18:41:30.829]                 {
[18:41:30.829]                   {
[18:41:30.829]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.829]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.829]                     -486500277L), envir = base::globalenv(), 
[18:41:30.829]                       inherits = FALSE)
[18:41:30.829]                     NULL
[18:41:30.829]                   }
[18:41:30.829]                   options(future.plan = NULL)
[18:41:30.829]                   if (is.na(NA_character_)) 
[18:41:30.829]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.829]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.829]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.829]                     .init = FALSE)
[18:41:30.829]                 }
[18:41:30.829]             }
[18:41:30.829]         }
[18:41:30.829]     })
[18:41:30.829]     if (TRUE) {
[18:41:30.829]         base::sink(type = "output", split = FALSE)
[18:41:30.829]         if (TRUE) {
[18:41:30.829]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.829]         }
[18:41:30.829]         else {
[18:41:30.829]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.829]         }
[18:41:30.829]         base::close(...future.stdout)
[18:41:30.829]         ...future.stdout <- NULL
[18:41:30.829]     }
[18:41:30.829]     ...future.result$conditions <- ...future.conditions
[18:41:30.829]     ...future.result$finished <- base::Sys.time()
[18:41:30.829]     ...future.result
[18:41:30.829] }
[18:41:30.833] assign_globals() ...
[18:41:30.833] List of 5
[18:41:30.833]  $ ...future.FUN            :function (x, y)  
[18:41:30.833]  $ MoreArgs                 : NULL
[18:41:30.833]  $ ...future.elements_ii    :List of 2
[18:41:30.833]   ..$ :List of 3
[18:41:30.833]   .. ..$ a: num 1
[18:41:30.833]   .. ..$ b: num 2
[18:41:30.833]   .. ..$ c: num 3
[18:41:30.833]   ..$ :List of 3
[18:41:30.833]   .. ..$ A: num 10
[18:41:30.833]   .. ..$ B: num 0
[18:41:30.833]   .. ..$ C: num -10
[18:41:30.833]  $ ...future.seeds_ii       : NULL
[18:41:30.833]  $ ...future.globals.maxSize: NULL
[18:41:30.833]  - attr(*, "where")=List of 5
[18:41:30.833]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.833]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.833]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.833]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.833]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.833]  - attr(*, "resolved")= logi FALSE
[18:41:30.833]  - attr(*, "total_size")= int 745
[18:41:30.833]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.833]  - attr(*, "already-done")= logi TRUE
[18:41:30.841] - reassign environment for '...future.FUN'
[18:41:30.841] - copied '...future.FUN' to environment
[18:41:30.841] - copied 'MoreArgs' to environment
[18:41:30.841] - copied '...future.elements_ii' to environment
[18:41:30.842] - copied '...future.seeds_ii' to environment
[18:41:30.842] - copied '...future.globals.maxSize' to environment
[18:41:30.842] assign_globals() ... done
[18:41:30.842] plan(): Setting new future strategy stack:
[18:41:30.843] List of future strategies:
[18:41:30.843] 1. sequential:
[18:41:30.843]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.843]    - tweaked: FALSE
[18:41:30.843]    - call: NULL
[18:41:30.843] plan(): nbrOfWorkers() = 1
[18:41:30.845] plan(): Setting new future strategy stack:
[18:41:30.845] List of future strategies:
[18:41:30.845] 1. sequential:
[18:41:30.845]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.845]    - tweaked: FALSE
[18:41:30.845]    - call: plan(strategy)
[18:41:30.846] plan(): nbrOfWorkers() = 1
[18:41:30.846] SequentialFuture started (and completed)
[18:41:30.847] - Launch lazy future ... done
[18:41:30.847] run() for 'SequentialFuture' ... done
[18:41:30.847] Created future:
[18:41:30.847] SequentialFuture:
[18:41:30.847] Label: 'future_mapply-1'
[18:41:30.847] Expression:
[18:41:30.847] {
[18:41:30.847]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.847]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.847]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.847]         on.exit(options(oopts), add = TRUE)
[18:41:30.847]     }
[18:41:30.847]     {
[18:41:30.847]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.847]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.847]         do.call(mapply, args = args)
[18:41:30.847]     }
[18:41:30.847] }
[18:41:30.847] Lazy evaluation: FALSE
[18:41:30.847] Asynchronous evaluation: FALSE
[18:41:30.847] Local evaluation: TRUE
[18:41:30.847] Environment: R_GlobalEnv
[18:41:30.847] Capture standard output: TRUE
[18:41:30.847] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.847] Globals: 5 objects totaling 745 bytes (function '...future.FUN' of 414 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 250 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.847] Packages: <none>
[18:41:30.847] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.847] Resolved: TRUE
[18:41:30.847] Value: 103 bytes of class 'list'
[18:41:30.847] Early signaling: FALSE
[18:41:30.847] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.847] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.848] Chunk #1 of 1 ... DONE
[18:41:30.848] Launching 1 futures (chunks) ... DONE
[18:41:30.849] Resolving 1 futures (chunks) ...
[18:41:30.849] resolve() on list ...
[18:41:30.849]  recursive: 0
[18:41:30.849]  length: 1
[18:41:30.849] 
[18:41:30.849] resolved() for 'SequentialFuture' ...
[18:41:30.850] - state: 'finished'
[18:41:30.850] - run: TRUE
[18:41:30.850] - result: 'FutureResult'
[18:41:30.850] resolved() for 'SequentialFuture' ... done
[18:41:30.851] Future #1
[18:41:30.851] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.851] - nx: 1
[18:41:30.851] - relay: TRUE
[18:41:30.851] - stdout: TRUE
[18:41:30.851] - signal: TRUE
[18:41:30.852] - resignal: FALSE
[18:41:30.852] - force: TRUE
[18:41:30.852] - relayed: [n=1] FALSE
[18:41:30.852] - queued futures: [n=1] FALSE
[18:41:30.852]  - until=1
[18:41:30.852]  - relaying element #1
[18:41:30.853] - relayed: [n=1] TRUE
[18:41:30.853] - queued futures: [n=1] TRUE
[18:41:30.853] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.853]  length: 0 (resolved future 1)
[18:41:30.853] Relaying remaining futures
[18:41:30.853] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.854] - nx: 1
[18:41:30.854] - relay: TRUE
[18:41:30.854] - stdout: TRUE
[18:41:30.854] - signal: TRUE
[18:41:30.854] - resignal: FALSE
[18:41:30.854] - force: TRUE
[18:41:30.854] - relayed: [n=1] TRUE
[18:41:30.855] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.855] - relayed: [n=1] TRUE
[18:41:30.855] - queued futures: [n=1] TRUE
[18:41:30.855] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.855] resolve() on list ... DONE
[18:41:30.856]  - Number of value chunks collected: 1
[18:41:30.856] Resolving 1 futures (chunks) ... DONE
[18:41:30.856] Reducing values from 1 chunks ...
[18:41:30.856]  - Number of values collected after concatenation: 3
[18:41:30.856]  - Number of values expected: 3
[18:41:30.856] Reducing values from 1 chunks ... DONE
[18:41:30.857] future_mapply() ... DONE
- future_.mapply()
[18:41:30.857] future_mapply() ...
[18:41:30.858] Number of chunks: 1
[18:41:30.858] getGlobalsAndPackagesXApply() ...
[18:41:30.858]  - future.globals: TRUE
[18:41:30.858] getGlobalsAndPackages() ...
[18:41:30.858] Searching for globals...
[18:41:30.860] - globals found: [3] 'FUN', '+', 'seq_len'
[18:41:30.860] Searching for globals ... DONE
[18:41:30.860] Resolving globals: FALSE
[18:41:30.861] The total size of the 1 globals is 414 bytes (414 bytes)
[18:41:30.861] The total size of the 1 globals exported for future expression ('FUN()') is 414 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (414 bytes of class 'function')
[18:41:30.861] - globals: [1] 'FUN'
[18:41:30.862] 
[18:41:30.862] getGlobalsAndPackages() ... DONE
[18:41:30.862]  - globals found/used: [n=1] 'FUN'
[18:41:30.862]  - needed namespaces: [n=0] 
[18:41:30.862] Finding globals ... DONE
[18:41:30.863] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.863] List of 2
[18:41:30.863]  $ ...future.FUN:function (x, y)  
[18:41:30.863]  $ MoreArgs     : list()
[18:41:30.863]  - attr(*, "where")=List of 2
[18:41:30.863]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.863]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.863]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.863]  - attr(*, "resolved")= logi FALSE
[18:41:30.863]  - attr(*, "total_size")= num NA
[18:41:30.866] Packages to be attached in all futures: [n=0] 
[18:41:30.866] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.866] Number of futures (= number of chunks): 1
[18:41:30.866] Launching 1 futures (chunks) ...
[18:41:30.866] Chunk #1 of 1 ...
[18:41:30.867]  - Finding globals in '...' for chunk #1 ...
[18:41:30.867] getGlobalsAndPackages() ...
[18:41:30.867] Searching for globals...
[18:41:30.867] 
[18:41:30.868] Searching for globals ... DONE
[18:41:30.868] - globals: [0] <none>
[18:41:30.868] getGlobalsAndPackages() ... DONE
[18:41:30.868]    + additional globals found: [n=0] 
[18:41:30.868]    + additional namespaces needed: [n=0] 
[18:41:30.868]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.869]  - seeds: <none>
[18:41:30.869]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.869] getGlobalsAndPackages() ...
[18:41:30.869] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.869] Resolving globals: FALSE
[18:41:30.870] The total size of the 5 globals is 749 bytes (749 bytes)
[18:41:30.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 749 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (414 bytes of class 'function'), '...future.elements_ii' (250 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:30.871] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.872] 
[18:41:30.872] getGlobalsAndPackages() ... DONE
[18:41:30.872] run() for 'Future' ...
[18:41:30.872] - state: 'created'
[18:41:30.873] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.873] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.873] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.873]   - Field: 'label'
[18:41:30.874]   - Field: 'local'
[18:41:30.874]   - Field: 'owner'
[18:41:30.874]   - Field: 'envir'
[18:41:30.874]   - Field: 'packages'
[18:41:30.874]   - Field: 'gc'
[18:41:30.874]   - Field: 'conditions'
[18:41:30.875]   - Field: 'expr'
[18:41:30.875]   - Field: 'uuid'
[18:41:30.875]   - Field: 'seed'
[18:41:30.875]   - Field: 'version'
[18:41:30.875]   - Field: 'result'
[18:41:30.875]   - Field: 'asynchronous'
[18:41:30.876]   - Field: 'calls'
[18:41:30.876]   - Field: 'globals'
[18:41:30.876]   - Field: 'stdout'
[18:41:30.876]   - Field: 'earlySignal'
[18:41:30.876]   - Field: 'lazy'
[18:41:30.876]   - Field: 'state'
[18:41:30.877] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.877] - Launch lazy future ...
[18:41:30.877] Packages needed by the future expression (n = 0): <none>
[18:41:30.877] Packages needed by future strategies (n = 0): <none>
[18:41:30.878] {
[18:41:30.878]     {
[18:41:30.878]         {
[18:41:30.878]             ...future.startTime <- base::Sys.time()
[18:41:30.878]             {
[18:41:30.878]                 {
[18:41:30.878]                   {
[18:41:30.878]                     base::local({
[18:41:30.878]                       has_future <- base::requireNamespace("future", 
[18:41:30.878]                         quietly = TRUE)
[18:41:30.878]                       if (has_future) {
[18:41:30.878]                         ns <- base::getNamespace("future")
[18:41:30.878]                         version <- ns[[".package"]][["version"]]
[18:41:30.878]                         if (is.null(version)) 
[18:41:30.878]                           version <- utils::packageVersion("future")
[18:41:30.878]                       }
[18:41:30.878]                       else {
[18:41:30.878]                         version <- NULL
[18:41:30.878]                       }
[18:41:30.878]                       if (!has_future || version < "1.8.0") {
[18:41:30.878]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.878]                           "", base::R.version$version.string), 
[18:41:30.878]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.878]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.878]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.878]                             "release", "version")], collapse = " "), 
[18:41:30.878]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.878]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.878]                           info)
[18:41:30.878]                         info <- base::paste(info, collapse = "; ")
[18:41:30.878]                         if (!has_future) {
[18:41:30.878]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.878]                             info)
[18:41:30.878]                         }
[18:41:30.878]                         else {
[18:41:30.878]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.878]                             info, version)
[18:41:30.878]                         }
[18:41:30.878]                         base::stop(msg)
[18:41:30.878]                       }
[18:41:30.878]                     })
[18:41:30.878]                   }
[18:41:30.878]                   ...future.strategy.old <- future::plan("list")
[18:41:30.878]                   options(future.plan = NULL)
[18:41:30.878]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.878]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.878]                 }
[18:41:30.878]                 ...future.workdir <- getwd()
[18:41:30.878]             }
[18:41:30.878]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.878]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.878]         }
[18:41:30.878]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.878]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:30.878]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.878]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.878]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.878]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.878]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.878]             base::names(...future.oldOptions))
[18:41:30.878]     }
[18:41:30.878]     if (FALSE) {
[18:41:30.878]     }
[18:41:30.878]     else {
[18:41:30.878]         if (TRUE) {
[18:41:30.878]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.878]                 open = "w")
[18:41:30.878]         }
[18:41:30.878]         else {
[18:41:30.878]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.878]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.878]         }
[18:41:30.878]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.878]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.878]             base::sink(type = "output", split = FALSE)
[18:41:30.878]             base::close(...future.stdout)
[18:41:30.878]         }, add = TRUE)
[18:41:30.878]     }
[18:41:30.878]     ...future.frame <- base::sys.nframe()
[18:41:30.878]     ...future.conditions <- base::list()
[18:41:30.878]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.878]     if (FALSE) {
[18:41:30.878]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.878]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.878]     }
[18:41:30.878]     ...future.result <- base::tryCatch({
[18:41:30.878]         base::withCallingHandlers({
[18:41:30.878]             ...future.value <- base::withVisible(base::local({
[18:41:30.878]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.878]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.878]                   ...future.globals.maxSize)) {
[18:41:30.878]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.878]                   on.exit(options(oopts), add = TRUE)
[18:41:30.878]                 }
[18:41:30.878]                 {
[18:41:30.878]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.878]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.878]                     USE.NAMES = FALSE)
[18:41:30.878]                   do.call(mapply, args = args)
[18:41:30.878]                 }
[18:41:30.878]             }))
[18:41:30.878]             future::FutureResult(value = ...future.value$value, 
[18:41:30.878]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.878]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.878]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.878]                     ...future.globalenv.names))
[18:41:30.878]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.878]         }, condition = base::local({
[18:41:30.878]             c <- base::c
[18:41:30.878]             inherits <- base::inherits
[18:41:30.878]             invokeRestart <- base::invokeRestart
[18:41:30.878]             length <- base::length
[18:41:30.878]             list <- base::list
[18:41:30.878]             seq.int <- base::seq.int
[18:41:30.878]             signalCondition <- base::signalCondition
[18:41:30.878]             sys.calls <- base::sys.calls
[18:41:30.878]             `[[` <- base::`[[`
[18:41:30.878]             `+` <- base::`+`
[18:41:30.878]             `<<-` <- base::`<<-`
[18:41:30.878]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.878]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.878]                   3L)]
[18:41:30.878]             }
[18:41:30.878]             function(cond) {
[18:41:30.878]                 is_error <- inherits(cond, "error")
[18:41:30.878]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.878]                   NULL)
[18:41:30.878]                 if (is_error) {
[18:41:30.878]                   sessionInformation <- function() {
[18:41:30.878]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.878]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.878]                       search = base::search(), system = base::Sys.info())
[18:41:30.878]                   }
[18:41:30.878]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.878]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.878]                     cond$call), session = sessionInformation(), 
[18:41:30.878]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.878]                   signalCondition(cond)
[18:41:30.878]                 }
[18:41:30.878]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.878]                 "immediateCondition"))) {
[18:41:30.878]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.878]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.878]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.878]                   if (TRUE && !signal) {
[18:41:30.878]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.878]                     {
[18:41:30.878]                       inherits <- base::inherits
[18:41:30.878]                       invokeRestart <- base::invokeRestart
[18:41:30.878]                       is.null <- base::is.null
[18:41:30.878]                       muffled <- FALSE
[18:41:30.878]                       if (inherits(cond, "message")) {
[18:41:30.878]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.878]                         if (muffled) 
[18:41:30.878]                           invokeRestart("muffleMessage")
[18:41:30.878]                       }
[18:41:30.878]                       else if (inherits(cond, "warning")) {
[18:41:30.878]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.878]                         if (muffled) 
[18:41:30.878]                           invokeRestart("muffleWarning")
[18:41:30.878]                       }
[18:41:30.878]                       else if (inherits(cond, "condition")) {
[18:41:30.878]                         if (!is.null(pattern)) {
[18:41:30.878]                           computeRestarts <- base::computeRestarts
[18:41:30.878]                           grepl <- base::grepl
[18:41:30.878]                           restarts <- computeRestarts(cond)
[18:41:30.878]                           for (restart in restarts) {
[18:41:30.878]                             name <- restart$name
[18:41:30.878]                             if (is.null(name)) 
[18:41:30.878]                               next
[18:41:30.878]                             if (!grepl(pattern, name)) 
[18:41:30.878]                               next
[18:41:30.878]                             invokeRestart(restart)
[18:41:30.878]                             muffled <- TRUE
[18:41:30.878]                             break
[18:41:30.878]                           }
[18:41:30.878]                         }
[18:41:30.878]                       }
[18:41:30.878]                       invisible(muffled)
[18:41:30.878]                     }
[18:41:30.878]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.878]                   }
[18:41:30.878]                 }
[18:41:30.878]                 else {
[18:41:30.878]                   if (TRUE) {
[18:41:30.878]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.878]                     {
[18:41:30.878]                       inherits <- base::inherits
[18:41:30.878]                       invokeRestart <- base::invokeRestart
[18:41:30.878]                       is.null <- base::is.null
[18:41:30.878]                       muffled <- FALSE
[18:41:30.878]                       if (inherits(cond, "message")) {
[18:41:30.878]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.878]                         if (muffled) 
[18:41:30.878]                           invokeRestart("muffleMessage")
[18:41:30.878]                       }
[18:41:30.878]                       else if (inherits(cond, "warning")) {
[18:41:30.878]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.878]                         if (muffled) 
[18:41:30.878]                           invokeRestart("muffleWarning")
[18:41:30.878]                       }
[18:41:30.878]                       else if (inherits(cond, "condition")) {
[18:41:30.878]                         if (!is.null(pattern)) {
[18:41:30.878]                           computeRestarts <- base::computeRestarts
[18:41:30.878]                           grepl <- base::grepl
[18:41:30.878]                           restarts <- computeRestarts(cond)
[18:41:30.878]                           for (restart in restarts) {
[18:41:30.878]                             name <- restart$name
[18:41:30.878]                             if (is.null(name)) 
[18:41:30.878]                               next
[18:41:30.878]                             if (!grepl(pattern, name)) 
[18:41:30.878]                               next
[18:41:30.878]                             invokeRestart(restart)
[18:41:30.878]                             muffled <- TRUE
[18:41:30.878]                             break
[18:41:30.878]                           }
[18:41:30.878]                         }
[18:41:30.878]                       }
[18:41:30.878]                       invisible(muffled)
[18:41:30.878]                     }
[18:41:30.878]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.878]                   }
[18:41:30.878]                 }
[18:41:30.878]             }
[18:41:30.878]         }))
[18:41:30.878]     }, error = function(ex) {
[18:41:30.878]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.878]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.878]                 ...future.rng), started = ...future.startTime, 
[18:41:30.878]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.878]             version = "1.8"), class = "FutureResult")
[18:41:30.878]     }, finally = {
[18:41:30.878]         if (!identical(...future.workdir, getwd())) 
[18:41:30.878]             setwd(...future.workdir)
[18:41:30.878]         {
[18:41:30.878]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.878]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.878]             }
[18:41:30.878]             base::options(...future.oldOptions)
[18:41:30.878]             if (.Platform$OS.type == "windows") {
[18:41:30.878]                 old_names <- names(...future.oldEnvVars)
[18:41:30.878]                 envs <- base::Sys.getenv()
[18:41:30.878]                 names <- names(envs)
[18:41:30.878]                 common <- intersect(names, old_names)
[18:41:30.878]                 added <- setdiff(names, old_names)
[18:41:30.878]                 removed <- setdiff(old_names, names)
[18:41:30.878]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.878]                   envs[common]]
[18:41:30.878]                 NAMES <- toupper(changed)
[18:41:30.878]                 args <- list()
[18:41:30.878]                 for (kk in seq_along(NAMES)) {
[18:41:30.878]                   name <- changed[[kk]]
[18:41:30.878]                   NAME <- NAMES[[kk]]
[18:41:30.878]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.878]                     next
[18:41:30.878]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.878]                 }
[18:41:30.878]                 NAMES <- toupper(added)
[18:41:30.878]                 for (kk in seq_along(NAMES)) {
[18:41:30.878]                   name <- added[[kk]]
[18:41:30.878]                   NAME <- NAMES[[kk]]
[18:41:30.878]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.878]                     next
[18:41:30.878]                   args[[name]] <- ""
[18:41:30.878]                 }
[18:41:30.878]                 NAMES <- toupper(removed)
[18:41:30.878]                 for (kk in seq_along(NAMES)) {
[18:41:30.878]                   name <- removed[[kk]]
[18:41:30.878]                   NAME <- NAMES[[kk]]
[18:41:30.878]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.878]                     next
[18:41:30.878]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.878]                 }
[18:41:30.878]                 if (length(args) > 0) 
[18:41:30.878]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.878]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.878]             }
[18:41:30.878]             else {
[18:41:30.878]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.878]             }
[18:41:30.878]             {
[18:41:30.878]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.878]                   0L) {
[18:41:30.878]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.878]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.878]                   base::options(opts)
[18:41:30.878]                 }
[18:41:30.878]                 {
[18:41:30.878]                   {
[18:41:30.878]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.878]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.878]                     -486500277L), envir = base::globalenv(), 
[18:41:30.878]                       inherits = FALSE)
[18:41:30.878]                     NULL
[18:41:30.878]                   }
[18:41:30.878]                   options(future.plan = NULL)
[18:41:30.878]                   if (is.na(NA_character_)) 
[18:41:30.878]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.878]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.878]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.878]                     .init = FALSE)
[18:41:30.878]                 }
[18:41:30.878]             }
[18:41:30.878]         }
[18:41:30.878]     })
[18:41:30.878]     if (TRUE) {
[18:41:30.878]         base::sink(type = "output", split = FALSE)
[18:41:30.878]         if (TRUE) {
[18:41:30.878]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.878]         }
[18:41:30.878]         else {
[18:41:30.878]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.878]         }
[18:41:30.878]         base::close(...future.stdout)
[18:41:30.878]         ...future.stdout <- NULL
[18:41:30.878]     }
[18:41:30.878]     ...future.result$conditions <- ...future.conditions
[18:41:30.878]     ...future.result$finished <- base::Sys.time()
[18:41:30.878]     ...future.result
[18:41:30.878] }
[18:41:30.882] assign_globals() ...
[18:41:30.882] List of 5
[18:41:30.882]  $ ...future.FUN            :function (x, y)  
[18:41:30.882]  $ MoreArgs                 : list()
[18:41:30.882]  $ ...future.elements_ii    :List of 2
[18:41:30.882]   ..$ :List of 3
[18:41:30.882]   .. ..$ a: num 1
[18:41:30.882]   .. ..$ b: num 2
[18:41:30.882]   .. ..$ c: num 3
[18:41:30.882]   ..$ :List of 3
[18:41:30.882]   .. ..$ A: num 10
[18:41:30.882]   .. ..$ B: num 0
[18:41:30.882]   .. ..$ C: num -10
[18:41:30.882]  $ ...future.seeds_ii       : NULL
[18:41:30.882]  $ ...future.globals.maxSize: NULL
[18:41:30.882]  - attr(*, "where")=List of 5
[18:41:30.882]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.882]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.882]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.882]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.882]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.882]  - attr(*, "resolved")= logi FALSE
[18:41:30.882]  - attr(*, "total_size")= int 749
[18:41:30.882]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.882]  - attr(*, "already-done")= logi TRUE
[18:41:30.890] - reassign environment for '...future.FUN'
[18:41:30.890] - copied '...future.FUN' to environment
[18:41:30.890] - copied 'MoreArgs' to environment
[18:41:30.890] - copied '...future.elements_ii' to environment
[18:41:30.890] - copied '...future.seeds_ii' to environment
[18:41:30.890] - copied '...future.globals.maxSize' to environment
[18:41:30.891] assign_globals() ... done
[18:41:30.891] plan(): Setting new future strategy stack:
[18:41:30.891] List of future strategies:
[18:41:30.891] 1. sequential:
[18:41:30.891]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.891]    - tweaked: FALSE
[18:41:30.891]    - call: NULL
[18:41:30.892] plan(): nbrOfWorkers() = 1
[18:41:30.893] plan(): Setting new future strategy stack:
[18:41:30.893] List of future strategies:
[18:41:30.893] 1. sequential:
[18:41:30.893]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.893]    - tweaked: FALSE
[18:41:30.893]    - call: plan(strategy)
[18:41:30.894] plan(): nbrOfWorkers() = 1
[18:41:30.894] SequentialFuture started (and completed)
[18:41:30.894] - Launch lazy future ... done
[18:41:30.894] run() for 'SequentialFuture' ... done
[18:41:30.895] Created future:
[18:41:30.895] SequentialFuture:
[18:41:30.895] Label: 'future_.mapply-1'
[18:41:30.895] Expression:
[18:41:30.895] {
[18:41:30.895]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.895]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.895]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.895]         on.exit(options(oopts), add = TRUE)
[18:41:30.895]     }
[18:41:30.895]     {
[18:41:30.895]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.895]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.895]         do.call(mapply, args = args)
[18:41:30.895]     }
[18:41:30.895] }
[18:41:30.895] Lazy evaluation: FALSE
[18:41:30.895] Asynchronous evaluation: FALSE
[18:41:30.895] Local evaluation: TRUE
[18:41:30.895] Environment: R_GlobalEnv
[18:41:30.895] Capture standard output: TRUE
[18:41:30.895] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.895] Globals: 5 objects totaling 749 bytes (function '...future.FUN' of 414 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 250 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.895] Packages: <none>
[18:41:30.895] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.895] Resolved: TRUE
[18:41:30.895] Value: 103 bytes of class 'list'
[18:41:30.895] Early signaling: FALSE
[18:41:30.895] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.895] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.896] Chunk #1 of 1 ... DONE
[18:41:30.896] Launching 1 futures (chunks) ... DONE
[18:41:30.896] Resolving 1 futures (chunks) ...
[18:41:30.896] resolve() on list ...
[18:41:30.897]  recursive: 0
[18:41:30.897]  length: 1
[18:41:30.897] 
[18:41:30.897] resolved() for 'SequentialFuture' ...
[18:41:30.897] - state: 'finished'
[18:41:30.897] - run: TRUE
[18:41:30.898] - result: 'FutureResult'
[18:41:30.898] resolved() for 'SequentialFuture' ... done
[18:41:30.898] Future #1
[18:41:30.899] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:30.899] - nx: 1
[18:41:30.899] - relay: TRUE
[18:41:30.900] - stdout: TRUE
[18:41:30.900] - signal: TRUE
[18:41:30.900] - resignal: FALSE
[18:41:30.900] - force: TRUE
[18:41:30.900] - relayed: [n=1] FALSE
[18:41:30.900] - queued futures: [n=1] FALSE
[18:41:30.901]  - until=1
[18:41:30.901]  - relaying element #1
[18:41:30.901] - relayed: [n=1] TRUE
[18:41:30.901] - queued futures: [n=1] TRUE
[18:41:30.901] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:30.901]  length: 0 (resolved future 1)
[18:41:30.902] Relaying remaining futures
[18:41:30.902] signalConditionsASAP(NULL, pos=0) ...
[18:41:30.902] - nx: 1
[18:41:30.902] - relay: TRUE
[18:41:30.902] - stdout: TRUE
[18:41:30.902] - signal: TRUE
[18:41:30.903] - resignal: FALSE
[18:41:30.903] - force: TRUE
[18:41:30.903] - relayed: [n=1] TRUE
[18:41:30.903] - queued futures: [n=1] TRUE
 - flush all
[18:41:30.903] - relayed: [n=1] TRUE
[18:41:30.903] - queued futures: [n=1] TRUE
[18:41:30.904] signalConditionsASAP(NULL, pos=0) ... done
[18:41:30.904] resolve() on list ... DONE
[18:41:30.904]  - Number of value chunks collected: 1
[18:41:30.904] Resolving 1 futures (chunks) ... DONE
[18:41:30.904] Reducing values from 1 chunks ...
[18:41:30.904]  - Number of values collected after concatenation: 3
[18:41:30.904]  - Number of values expected: 3
[18:41:30.905] Reducing values from 1 chunks ... DONE
[18:41:30.905] future_mapply() ... DONE
[18:41:30.905] future_mapply() ...
[18:41:30.907] Number of chunks: 5
[18:41:30.907] getGlobalsAndPackagesXApply() ...
[18:41:30.908]  - future.globals: TRUE
[18:41:30.908] getGlobalsAndPackages() ...
[18:41:30.908] Searching for globals...
[18:41:30.909] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:30.910] Searching for globals ... DONE
[18:41:30.910] Resolving globals: FALSE
[18:41:30.910] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:30.911] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:30.911] - globals: [1] 'FUN'
[18:41:30.911] 
[18:41:30.911] getGlobalsAndPackages() ... DONE
[18:41:30.911]  - globals found/used: [n=1] 'FUN'
[18:41:30.911]  - needed namespaces: [n=0] 
[18:41:30.912] Finding globals ... DONE
[18:41:30.912] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:30.912] List of 2
[18:41:30.912]  $ ...future.FUN:function (C, k)  
[18:41:30.912]  $ MoreArgs     : NULL
[18:41:30.912]  - attr(*, "where")=List of 2
[18:41:30.912]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:30.912]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:30.912]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.912]  - attr(*, "resolved")= logi FALSE
[18:41:30.912]  - attr(*, "total_size")= num NA
[18:41:30.915] Packages to be attached in all futures: [n=0] 
[18:41:30.915] getGlobalsAndPackagesXApply() ... DONE
[18:41:30.915] Number of futures (= number of chunks): 5
[18:41:30.916] Launching 5 futures (chunks) ...
[18:41:30.916] Chunk #1 of 5 ...
[18:41:30.916]  - Finding globals in '...' for chunk #1 ...
[18:41:30.916] getGlobalsAndPackages() ...
[18:41:30.916] Searching for globals...
[18:41:30.917] 
[18:41:30.917] Searching for globals ... DONE
[18:41:30.917] - globals: [0] <none>
[18:41:30.917] getGlobalsAndPackages() ... DONE
[18:41:30.917]    + additional globals found: [n=0] 
[18:41:30.918]    + additional namespaces needed: [n=0] 
[18:41:30.918]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:30.918]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:30.918]  - seeds: <none>
[18:41:30.918]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.918] getGlobalsAndPackages() ...
[18:41:30.918] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.919] Resolving globals: FALSE
[18:41:30.919] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:30.920] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.920] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.920] 
[18:41:30.920] getGlobalsAndPackages() ... DONE
[18:41:30.921] run() for 'Future' ...
[18:41:30.921] - state: 'created'
[18:41:30.921] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.921] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.922] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.922]   - Field: 'label'
[18:41:30.922]   - Field: 'local'
[18:41:30.922]   - Field: 'owner'
[18:41:30.922]   - Field: 'envir'
[18:41:30.923]   - Field: 'packages'
[18:41:30.923]   - Field: 'gc'
[18:41:30.923]   - Field: 'conditions'
[18:41:30.923]   - Field: 'expr'
[18:41:30.923]   - Field: 'uuid'
[18:41:30.923]   - Field: 'seed'
[18:41:30.924]   - Field: 'version'
[18:41:30.924]   - Field: 'result'
[18:41:30.925]   - Field: 'asynchronous'
[18:41:30.925]   - Field: 'calls'
[18:41:30.925]   - Field: 'globals'
[18:41:30.925]   - Field: 'stdout'
[18:41:30.926]   - Field: 'earlySignal'
[18:41:30.926]   - Field: 'lazy'
[18:41:30.926]   - Field: 'state'
[18:41:30.926] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.926] - Launch lazy future ...
[18:41:30.927] Packages needed by the future expression (n = 0): <none>
[18:41:30.927] Packages needed by future strategies (n = 0): <none>
[18:41:30.927] {
[18:41:30.927]     {
[18:41:30.927]         {
[18:41:30.927]             ...future.startTime <- base::Sys.time()
[18:41:30.927]             {
[18:41:30.927]                 {
[18:41:30.927]                   {
[18:41:30.927]                     base::local({
[18:41:30.927]                       has_future <- base::requireNamespace("future", 
[18:41:30.927]                         quietly = TRUE)
[18:41:30.927]                       if (has_future) {
[18:41:30.927]                         ns <- base::getNamespace("future")
[18:41:30.927]                         version <- ns[[".package"]][["version"]]
[18:41:30.927]                         if (is.null(version)) 
[18:41:30.927]                           version <- utils::packageVersion("future")
[18:41:30.927]                       }
[18:41:30.927]                       else {
[18:41:30.927]                         version <- NULL
[18:41:30.927]                       }
[18:41:30.927]                       if (!has_future || version < "1.8.0") {
[18:41:30.927]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.927]                           "", base::R.version$version.string), 
[18:41:30.927]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.927]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.927]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.927]                             "release", "version")], collapse = " "), 
[18:41:30.927]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.927]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.927]                           info)
[18:41:30.927]                         info <- base::paste(info, collapse = "; ")
[18:41:30.927]                         if (!has_future) {
[18:41:30.927]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.927]                             info)
[18:41:30.927]                         }
[18:41:30.927]                         else {
[18:41:30.927]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.927]                             info, version)
[18:41:30.927]                         }
[18:41:30.927]                         base::stop(msg)
[18:41:30.927]                       }
[18:41:30.927]                     })
[18:41:30.927]                   }
[18:41:30.927]                   ...future.strategy.old <- future::plan("list")
[18:41:30.927]                   options(future.plan = NULL)
[18:41:30.927]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.927]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.927]                 }
[18:41:30.927]                 ...future.workdir <- getwd()
[18:41:30.927]             }
[18:41:30.927]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.927]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.927]         }
[18:41:30.927]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.927]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:30.927]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.927]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.927]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.927]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.927]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.927]             base::names(...future.oldOptions))
[18:41:30.927]     }
[18:41:30.927]     if (FALSE) {
[18:41:30.927]     }
[18:41:30.927]     else {
[18:41:30.927]         if (TRUE) {
[18:41:30.927]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.927]                 open = "w")
[18:41:30.927]         }
[18:41:30.927]         else {
[18:41:30.927]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.927]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.927]         }
[18:41:30.927]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.927]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.927]             base::sink(type = "output", split = FALSE)
[18:41:30.927]             base::close(...future.stdout)
[18:41:30.927]         }, add = TRUE)
[18:41:30.927]     }
[18:41:30.927]     ...future.frame <- base::sys.nframe()
[18:41:30.927]     ...future.conditions <- base::list()
[18:41:30.927]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.927]     if (FALSE) {
[18:41:30.927]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.927]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.927]     }
[18:41:30.927]     ...future.result <- base::tryCatch({
[18:41:30.927]         base::withCallingHandlers({
[18:41:30.927]             ...future.value <- base::withVisible(base::local({
[18:41:30.927]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.927]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.927]                   ...future.globals.maxSize)) {
[18:41:30.927]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.927]                   on.exit(options(oopts), add = TRUE)
[18:41:30.927]                 }
[18:41:30.927]                 {
[18:41:30.927]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.927]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.927]                     USE.NAMES = FALSE)
[18:41:30.927]                   do.call(mapply, args = args)
[18:41:30.927]                 }
[18:41:30.927]             }))
[18:41:30.927]             future::FutureResult(value = ...future.value$value, 
[18:41:30.927]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.927]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.927]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.927]                     ...future.globalenv.names))
[18:41:30.927]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.927]         }, condition = base::local({
[18:41:30.927]             c <- base::c
[18:41:30.927]             inherits <- base::inherits
[18:41:30.927]             invokeRestart <- base::invokeRestart
[18:41:30.927]             length <- base::length
[18:41:30.927]             list <- base::list
[18:41:30.927]             seq.int <- base::seq.int
[18:41:30.927]             signalCondition <- base::signalCondition
[18:41:30.927]             sys.calls <- base::sys.calls
[18:41:30.927]             `[[` <- base::`[[`
[18:41:30.927]             `+` <- base::`+`
[18:41:30.927]             `<<-` <- base::`<<-`
[18:41:30.927]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.927]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.927]                   3L)]
[18:41:30.927]             }
[18:41:30.927]             function(cond) {
[18:41:30.927]                 is_error <- inherits(cond, "error")
[18:41:30.927]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.927]                   NULL)
[18:41:30.927]                 if (is_error) {
[18:41:30.927]                   sessionInformation <- function() {
[18:41:30.927]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.927]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.927]                       search = base::search(), system = base::Sys.info())
[18:41:30.927]                   }
[18:41:30.927]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.927]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.927]                     cond$call), session = sessionInformation(), 
[18:41:30.927]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.927]                   signalCondition(cond)
[18:41:30.927]                 }
[18:41:30.927]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.927]                 "immediateCondition"))) {
[18:41:30.927]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.927]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.927]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.927]                   if (TRUE && !signal) {
[18:41:30.927]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.927]                     {
[18:41:30.927]                       inherits <- base::inherits
[18:41:30.927]                       invokeRestart <- base::invokeRestart
[18:41:30.927]                       is.null <- base::is.null
[18:41:30.927]                       muffled <- FALSE
[18:41:30.927]                       if (inherits(cond, "message")) {
[18:41:30.927]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.927]                         if (muffled) 
[18:41:30.927]                           invokeRestart("muffleMessage")
[18:41:30.927]                       }
[18:41:30.927]                       else if (inherits(cond, "warning")) {
[18:41:30.927]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.927]                         if (muffled) 
[18:41:30.927]                           invokeRestart("muffleWarning")
[18:41:30.927]                       }
[18:41:30.927]                       else if (inherits(cond, "condition")) {
[18:41:30.927]                         if (!is.null(pattern)) {
[18:41:30.927]                           computeRestarts <- base::computeRestarts
[18:41:30.927]                           grepl <- base::grepl
[18:41:30.927]                           restarts <- computeRestarts(cond)
[18:41:30.927]                           for (restart in restarts) {
[18:41:30.927]                             name <- restart$name
[18:41:30.927]                             if (is.null(name)) 
[18:41:30.927]                               next
[18:41:30.927]                             if (!grepl(pattern, name)) 
[18:41:30.927]                               next
[18:41:30.927]                             invokeRestart(restart)
[18:41:30.927]                             muffled <- TRUE
[18:41:30.927]                             break
[18:41:30.927]                           }
[18:41:30.927]                         }
[18:41:30.927]                       }
[18:41:30.927]                       invisible(muffled)
[18:41:30.927]                     }
[18:41:30.927]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.927]                   }
[18:41:30.927]                 }
[18:41:30.927]                 else {
[18:41:30.927]                   if (TRUE) {
[18:41:30.927]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.927]                     {
[18:41:30.927]                       inherits <- base::inherits
[18:41:30.927]                       invokeRestart <- base::invokeRestart
[18:41:30.927]                       is.null <- base::is.null
[18:41:30.927]                       muffled <- FALSE
[18:41:30.927]                       if (inherits(cond, "message")) {
[18:41:30.927]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.927]                         if (muffled) 
[18:41:30.927]                           invokeRestart("muffleMessage")
[18:41:30.927]                       }
[18:41:30.927]                       else if (inherits(cond, "warning")) {
[18:41:30.927]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.927]                         if (muffled) 
[18:41:30.927]                           invokeRestart("muffleWarning")
[18:41:30.927]                       }
[18:41:30.927]                       else if (inherits(cond, "condition")) {
[18:41:30.927]                         if (!is.null(pattern)) {
[18:41:30.927]                           computeRestarts <- base::computeRestarts
[18:41:30.927]                           grepl <- base::grepl
[18:41:30.927]                           restarts <- computeRestarts(cond)
[18:41:30.927]                           for (restart in restarts) {
[18:41:30.927]                             name <- restart$name
[18:41:30.927]                             if (is.null(name)) 
[18:41:30.927]                               next
[18:41:30.927]                             if (!grepl(pattern, name)) 
[18:41:30.927]                               next
[18:41:30.927]                             invokeRestart(restart)
[18:41:30.927]                             muffled <- TRUE
[18:41:30.927]                             break
[18:41:30.927]                           }
[18:41:30.927]                         }
[18:41:30.927]                       }
[18:41:30.927]                       invisible(muffled)
[18:41:30.927]                     }
[18:41:30.927]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.927]                   }
[18:41:30.927]                 }
[18:41:30.927]             }
[18:41:30.927]         }))
[18:41:30.927]     }, error = function(ex) {
[18:41:30.927]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.927]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.927]                 ...future.rng), started = ...future.startTime, 
[18:41:30.927]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.927]             version = "1.8"), class = "FutureResult")
[18:41:30.927]     }, finally = {
[18:41:30.927]         if (!identical(...future.workdir, getwd())) 
[18:41:30.927]             setwd(...future.workdir)
[18:41:30.927]         {
[18:41:30.927]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.927]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.927]             }
[18:41:30.927]             base::options(...future.oldOptions)
[18:41:30.927]             if (.Platform$OS.type == "windows") {
[18:41:30.927]                 old_names <- names(...future.oldEnvVars)
[18:41:30.927]                 envs <- base::Sys.getenv()
[18:41:30.927]                 names <- names(envs)
[18:41:30.927]                 common <- intersect(names, old_names)
[18:41:30.927]                 added <- setdiff(names, old_names)
[18:41:30.927]                 removed <- setdiff(old_names, names)
[18:41:30.927]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.927]                   envs[common]]
[18:41:30.927]                 NAMES <- toupper(changed)
[18:41:30.927]                 args <- list()
[18:41:30.927]                 for (kk in seq_along(NAMES)) {
[18:41:30.927]                   name <- changed[[kk]]
[18:41:30.927]                   NAME <- NAMES[[kk]]
[18:41:30.927]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.927]                     next
[18:41:30.927]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.927]                 }
[18:41:30.927]                 NAMES <- toupper(added)
[18:41:30.927]                 for (kk in seq_along(NAMES)) {
[18:41:30.927]                   name <- added[[kk]]
[18:41:30.927]                   NAME <- NAMES[[kk]]
[18:41:30.927]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.927]                     next
[18:41:30.927]                   args[[name]] <- ""
[18:41:30.927]                 }
[18:41:30.927]                 NAMES <- toupper(removed)
[18:41:30.927]                 for (kk in seq_along(NAMES)) {
[18:41:30.927]                   name <- removed[[kk]]
[18:41:30.927]                   NAME <- NAMES[[kk]]
[18:41:30.927]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.927]                     next
[18:41:30.927]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.927]                 }
[18:41:30.927]                 if (length(args) > 0) 
[18:41:30.927]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.927]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.927]             }
[18:41:30.927]             else {
[18:41:30.927]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.927]             }
[18:41:30.927]             {
[18:41:30.927]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.927]                   0L) {
[18:41:30.927]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.927]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.927]                   base::options(opts)
[18:41:30.927]                 }
[18:41:30.927]                 {
[18:41:30.927]                   {
[18:41:30.927]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.927]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.927]                     -486500277L), envir = base::globalenv(), 
[18:41:30.927]                       inherits = FALSE)
[18:41:30.927]                     NULL
[18:41:30.927]                   }
[18:41:30.927]                   options(future.plan = NULL)
[18:41:30.927]                   if (is.na(NA_character_)) 
[18:41:30.927]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.927]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.927]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.927]                     .init = FALSE)
[18:41:30.927]                 }
[18:41:30.927]             }
[18:41:30.927]         }
[18:41:30.927]     })
[18:41:30.927]     if (TRUE) {
[18:41:30.927]         base::sink(type = "output", split = FALSE)
[18:41:30.927]         if (TRUE) {
[18:41:30.927]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.927]         }
[18:41:30.927]         else {
[18:41:30.927]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.927]         }
[18:41:30.927]         base::close(...future.stdout)
[18:41:30.927]         ...future.stdout <- NULL
[18:41:30.927]     }
[18:41:30.927]     ...future.result$conditions <- ...future.conditions
[18:41:30.927]     ...future.result$finished <- base::Sys.time()
[18:41:30.927]     ...future.result
[18:41:30.927] }
[18:41:30.931] assign_globals() ...
[18:41:30.931] List of 5
[18:41:30.931]  $ ...future.FUN            :function (C, k)  
[18:41:30.931]  $ MoreArgs                 : NULL
[18:41:30.931]  $ ...future.elements_ii    :List of 2
[18:41:30.931]   ..$ :List of 1
[18:41:30.931]   .. ..$ : chr "A"
[18:41:30.931]   ..$ :List of 1
[18:41:30.931]   .. ..$ : int 5
[18:41:30.931]  $ ...future.seeds_ii       : NULL
[18:41:30.931]  $ ...future.globals.maxSize: NULL
[18:41:30.931]  - attr(*, "where")=List of 5
[18:41:30.931]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.931]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.931]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.931]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.931]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.931]  - attr(*, "resolved")= logi FALSE
[18:41:30.931]  - attr(*, "total_size")= int 847
[18:41:30.931]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.931]  - attr(*, "already-done")= logi TRUE
[18:41:30.937] - reassign environment for '...future.FUN'
[18:41:30.937] - copied '...future.FUN' to environment
[18:41:30.938] - copied 'MoreArgs' to environment
[18:41:30.938] - copied '...future.elements_ii' to environment
[18:41:30.938] - copied '...future.seeds_ii' to environment
[18:41:30.938] - copied '...future.globals.maxSize' to environment
[18:41:30.938] assign_globals() ... done
[18:41:30.939] plan(): Setting new future strategy stack:
[18:41:30.939] List of future strategies:
[18:41:30.939] 1. sequential:
[18:41:30.939]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.939]    - tweaked: FALSE
[18:41:30.939]    - call: NULL
[18:41:30.939] plan(): nbrOfWorkers() = 1
[18:41:30.941] plan(): Setting new future strategy stack:
[18:41:30.941] List of future strategies:
[18:41:30.941] 1. sequential:
[18:41:30.941]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.941]    - tweaked: FALSE
[18:41:30.941]    - call: plan(strategy)
[18:41:30.942] plan(): nbrOfWorkers() = 1
[18:41:30.942] SequentialFuture started (and completed)
[18:41:30.942] - Launch lazy future ... done
[18:41:30.942] run() for 'SequentialFuture' ... done
[18:41:30.942] Created future:
[18:41:30.943] SequentialFuture:
[18:41:30.943] Label: 'future_mapply-1'
[18:41:30.943] Expression:
[18:41:30.943] {
[18:41:30.943]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.943]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.943]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.943]         on.exit(options(oopts), add = TRUE)
[18:41:30.943]     }
[18:41:30.943]     {
[18:41:30.943]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.943]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.943]         do.call(mapply, args = args)
[18:41:30.943]     }
[18:41:30.943] }
[18:41:30.943] Lazy evaluation: FALSE
[18:41:30.943] Asynchronous evaluation: FALSE
[18:41:30.943] Local evaluation: TRUE
[18:41:30.943] Environment: R_GlobalEnv
[18:41:30.943] Capture standard output: TRUE
[18:41:30.943] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.943] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.943] Packages: <none>
[18:41:30.943] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.943] Resolved: TRUE
[18:41:30.943] Value: 52 bytes of class 'list'
[18:41:30.943] Early signaling: FALSE
[18:41:30.943] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.943] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.944] Chunk #1 of 5 ... DONE
[18:41:30.944] Chunk #2 of 5 ...
[18:41:30.944]  - Finding globals in '...' for chunk #2 ...
[18:41:30.944] getGlobalsAndPackages() ...
[18:41:30.944] Searching for globals...
[18:41:30.945] 
[18:41:30.945] Searching for globals ... DONE
[18:41:30.945] - globals: [0] <none>
[18:41:30.945] getGlobalsAndPackages() ... DONE
[18:41:30.945]    + additional globals found: [n=0] 
[18:41:30.946]    + additional namespaces needed: [n=0] 
[18:41:30.946]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:30.946]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:30.946]  - seeds: <none>
[18:41:30.946]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.946] getGlobalsAndPackages() ...
[18:41:30.947] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.947] Resolving globals: FALSE
[18:41:30.947] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:30.948] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.948] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.948] 
[18:41:30.948] getGlobalsAndPackages() ... DONE
[18:41:30.949] run() for 'Future' ...
[18:41:30.949] - state: 'created'
[18:41:30.949] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.950] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.950] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.950]   - Field: 'label'
[18:41:30.950]   - Field: 'local'
[18:41:30.950]   - Field: 'owner'
[18:41:30.951]   - Field: 'envir'
[18:41:30.952]   - Field: 'packages'
[18:41:30.952]   - Field: 'gc'
[18:41:30.952]   - Field: 'conditions'
[18:41:30.952]   - Field: 'expr'
[18:41:30.952]   - Field: 'uuid'
[18:41:30.952]   - Field: 'seed'
[18:41:30.953]   - Field: 'version'
[18:41:30.953]   - Field: 'result'
[18:41:30.953]   - Field: 'asynchronous'
[18:41:30.953]   - Field: 'calls'
[18:41:30.953]   - Field: 'globals'
[18:41:30.953]   - Field: 'stdout'
[18:41:30.954]   - Field: 'earlySignal'
[18:41:30.954]   - Field: 'lazy'
[18:41:30.954]   - Field: 'state'
[18:41:30.954] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.954] - Launch lazy future ...
[18:41:30.955] Packages needed by the future expression (n = 0): <none>
[18:41:30.955] Packages needed by future strategies (n = 0): <none>
[18:41:30.955] {
[18:41:30.955]     {
[18:41:30.955]         {
[18:41:30.955]             ...future.startTime <- base::Sys.time()
[18:41:30.955]             {
[18:41:30.955]                 {
[18:41:30.955]                   {
[18:41:30.955]                     base::local({
[18:41:30.955]                       has_future <- base::requireNamespace("future", 
[18:41:30.955]                         quietly = TRUE)
[18:41:30.955]                       if (has_future) {
[18:41:30.955]                         ns <- base::getNamespace("future")
[18:41:30.955]                         version <- ns[[".package"]][["version"]]
[18:41:30.955]                         if (is.null(version)) 
[18:41:30.955]                           version <- utils::packageVersion("future")
[18:41:30.955]                       }
[18:41:30.955]                       else {
[18:41:30.955]                         version <- NULL
[18:41:30.955]                       }
[18:41:30.955]                       if (!has_future || version < "1.8.0") {
[18:41:30.955]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.955]                           "", base::R.version$version.string), 
[18:41:30.955]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.955]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.955]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.955]                             "release", "version")], collapse = " "), 
[18:41:30.955]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.955]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.955]                           info)
[18:41:30.955]                         info <- base::paste(info, collapse = "; ")
[18:41:30.955]                         if (!has_future) {
[18:41:30.955]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.955]                             info)
[18:41:30.955]                         }
[18:41:30.955]                         else {
[18:41:30.955]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.955]                             info, version)
[18:41:30.955]                         }
[18:41:30.955]                         base::stop(msg)
[18:41:30.955]                       }
[18:41:30.955]                     })
[18:41:30.955]                   }
[18:41:30.955]                   ...future.strategy.old <- future::plan("list")
[18:41:30.955]                   options(future.plan = NULL)
[18:41:30.955]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.955]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.955]                 }
[18:41:30.955]                 ...future.workdir <- getwd()
[18:41:30.955]             }
[18:41:30.955]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.955]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.955]         }
[18:41:30.955]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.955]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:30.955]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.955]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.955]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.955]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.955]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.955]             base::names(...future.oldOptions))
[18:41:30.955]     }
[18:41:30.955]     if (FALSE) {
[18:41:30.955]     }
[18:41:30.955]     else {
[18:41:30.955]         if (TRUE) {
[18:41:30.955]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.955]                 open = "w")
[18:41:30.955]         }
[18:41:30.955]         else {
[18:41:30.955]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.955]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.955]         }
[18:41:30.955]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.955]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.955]             base::sink(type = "output", split = FALSE)
[18:41:30.955]             base::close(...future.stdout)
[18:41:30.955]         }, add = TRUE)
[18:41:30.955]     }
[18:41:30.955]     ...future.frame <- base::sys.nframe()
[18:41:30.955]     ...future.conditions <- base::list()
[18:41:30.955]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.955]     if (FALSE) {
[18:41:30.955]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.955]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.955]     }
[18:41:30.955]     ...future.result <- base::tryCatch({
[18:41:30.955]         base::withCallingHandlers({
[18:41:30.955]             ...future.value <- base::withVisible(base::local({
[18:41:30.955]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.955]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.955]                   ...future.globals.maxSize)) {
[18:41:30.955]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.955]                   on.exit(options(oopts), add = TRUE)
[18:41:30.955]                 }
[18:41:30.955]                 {
[18:41:30.955]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.955]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.955]                     USE.NAMES = FALSE)
[18:41:30.955]                   do.call(mapply, args = args)
[18:41:30.955]                 }
[18:41:30.955]             }))
[18:41:30.955]             future::FutureResult(value = ...future.value$value, 
[18:41:30.955]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.955]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.955]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.955]                     ...future.globalenv.names))
[18:41:30.955]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.955]         }, condition = base::local({
[18:41:30.955]             c <- base::c
[18:41:30.955]             inherits <- base::inherits
[18:41:30.955]             invokeRestart <- base::invokeRestart
[18:41:30.955]             length <- base::length
[18:41:30.955]             list <- base::list
[18:41:30.955]             seq.int <- base::seq.int
[18:41:30.955]             signalCondition <- base::signalCondition
[18:41:30.955]             sys.calls <- base::sys.calls
[18:41:30.955]             `[[` <- base::`[[`
[18:41:30.955]             `+` <- base::`+`
[18:41:30.955]             `<<-` <- base::`<<-`
[18:41:30.955]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.955]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.955]                   3L)]
[18:41:30.955]             }
[18:41:30.955]             function(cond) {
[18:41:30.955]                 is_error <- inherits(cond, "error")
[18:41:30.955]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.955]                   NULL)
[18:41:30.955]                 if (is_error) {
[18:41:30.955]                   sessionInformation <- function() {
[18:41:30.955]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.955]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.955]                       search = base::search(), system = base::Sys.info())
[18:41:30.955]                   }
[18:41:30.955]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.955]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.955]                     cond$call), session = sessionInformation(), 
[18:41:30.955]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.955]                   signalCondition(cond)
[18:41:30.955]                 }
[18:41:30.955]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.955]                 "immediateCondition"))) {
[18:41:30.955]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.955]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.955]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.955]                   if (TRUE && !signal) {
[18:41:30.955]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.955]                     {
[18:41:30.955]                       inherits <- base::inherits
[18:41:30.955]                       invokeRestart <- base::invokeRestart
[18:41:30.955]                       is.null <- base::is.null
[18:41:30.955]                       muffled <- FALSE
[18:41:30.955]                       if (inherits(cond, "message")) {
[18:41:30.955]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.955]                         if (muffled) 
[18:41:30.955]                           invokeRestart("muffleMessage")
[18:41:30.955]                       }
[18:41:30.955]                       else if (inherits(cond, "warning")) {
[18:41:30.955]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.955]                         if (muffled) 
[18:41:30.955]                           invokeRestart("muffleWarning")
[18:41:30.955]                       }
[18:41:30.955]                       else if (inherits(cond, "condition")) {
[18:41:30.955]                         if (!is.null(pattern)) {
[18:41:30.955]                           computeRestarts <- base::computeRestarts
[18:41:30.955]                           grepl <- base::grepl
[18:41:30.955]                           restarts <- computeRestarts(cond)
[18:41:30.955]                           for (restart in restarts) {
[18:41:30.955]                             name <- restart$name
[18:41:30.955]                             if (is.null(name)) 
[18:41:30.955]                               next
[18:41:30.955]                             if (!grepl(pattern, name)) 
[18:41:30.955]                               next
[18:41:30.955]                             invokeRestart(restart)
[18:41:30.955]                             muffled <- TRUE
[18:41:30.955]                             break
[18:41:30.955]                           }
[18:41:30.955]                         }
[18:41:30.955]                       }
[18:41:30.955]                       invisible(muffled)
[18:41:30.955]                     }
[18:41:30.955]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.955]                   }
[18:41:30.955]                 }
[18:41:30.955]                 else {
[18:41:30.955]                   if (TRUE) {
[18:41:30.955]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.955]                     {
[18:41:30.955]                       inherits <- base::inherits
[18:41:30.955]                       invokeRestart <- base::invokeRestart
[18:41:30.955]                       is.null <- base::is.null
[18:41:30.955]                       muffled <- FALSE
[18:41:30.955]                       if (inherits(cond, "message")) {
[18:41:30.955]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.955]                         if (muffled) 
[18:41:30.955]                           invokeRestart("muffleMessage")
[18:41:30.955]                       }
[18:41:30.955]                       else if (inherits(cond, "warning")) {
[18:41:30.955]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.955]                         if (muffled) 
[18:41:30.955]                           invokeRestart("muffleWarning")
[18:41:30.955]                       }
[18:41:30.955]                       else if (inherits(cond, "condition")) {
[18:41:30.955]                         if (!is.null(pattern)) {
[18:41:30.955]                           computeRestarts <- base::computeRestarts
[18:41:30.955]                           grepl <- base::grepl
[18:41:30.955]                           restarts <- computeRestarts(cond)
[18:41:30.955]                           for (restart in restarts) {
[18:41:30.955]                             name <- restart$name
[18:41:30.955]                             if (is.null(name)) 
[18:41:30.955]                               next
[18:41:30.955]                             if (!grepl(pattern, name)) 
[18:41:30.955]                               next
[18:41:30.955]                             invokeRestart(restart)
[18:41:30.955]                             muffled <- TRUE
[18:41:30.955]                             break
[18:41:30.955]                           }
[18:41:30.955]                         }
[18:41:30.955]                       }
[18:41:30.955]                       invisible(muffled)
[18:41:30.955]                     }
[18:41:30.955]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.955]                   }
[18:41:30.955]                 }
[18:41:30.955]             }
[18:41:30.955]         }))
[18:41:30.955]     }, error = function(ex) {
[18:41:30.955]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.955]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.955]                 ...future.rng), started = ...future.startTime, 
[18:41:30.955]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.955]             version = "1.8"), class = "FutureResult")
[18:41:30.955]     }, finally = {
[18:41:30.955]         if (!identical(...future.workdir, getwd())) 
[18:41:30.955]             setwd(...future.workdir)
[18:41:30.955]         {
[18:41:30.955]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.955]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.955]             }
[18:41:30.955]             base::options(...future.oldOptions)
[18:41:30.955]             if (.Platform$OS.type == "windows") {
[18:41:30.955]                 old_names <- names(...future.oldEnvVars)
[18:41:30.955]                 envs <- base::Sys.getenv()
[18:41:30.955]                 names <- names(envs)
[18:41:30.955]                 common <- intersect(names, old_names)
[18:41:30.955]                 added <- setdiff(names, old_names)
[18:41:30.955]                 removed <- setdiff(old_names, names)
[18:41:30.955]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.955]                   envs[common]]
[18:41:30.955]                 NAMES <- toupper(changed)
[18:41:30.955]                 args <- list()
[18:41:30.955]                 for (kk in seq_along(NAMES)) {
[18:41:30.955]                   name <- changed[[kk]]
[18:41:30.955]                   NAME <- NAMES[[kk]]
[18:41:30.955]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.955]                     next
[18:41:30.955]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.955]                 }
[18:41:30.955]                 NAMES <- toupper(added)
[18:41:30.955]                 for (kk in seq_along(NAMES)) {
[18:41:30.955]                   name <- added[[kk]]
[18:41:30.955]                   NAME <- NAMES[[kk]]
[18:41:30.955]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.955]                     next
[18:41:30.955]                   args[[name]] <- ""
[18:41:30.955]                 }
[18:41:30.955]                 NAMES <- toupper(removed)
[18:41:30.955]                 for (kk in seq_along(NAMES)) {
[18:41:30.955]                   name <- removed[[kk]]
[18:41:30.955]                   NAME <- NAMES[[kk]]
[18:41:30.955]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.955]                     next
[18:41:30.955]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.955]                 }
[18:41:30.955]                 if (length(args) > 0) 
[18:41:30.955]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.955]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.955]             }
[18:41:30.955]             else {
[18:41:30.955]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.955]             }
[18:41:30.955]             {
[18:41:30.955]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.955]                   0L) {
[18:41:30.955]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.955]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.955]                   base::options(opts)
[18:41:30.955]                 }
[18:41:30.955]                 {
[18:41:30.955]                   {
[18:41:30.955]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.955]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.955]                     -486500277L), envir = base::globalenv(), 
[18:41:30.955]                       inherits = FALSE)
[18:41:30.955]                     NULL
[18:41:30.955]                   }
[18:41:30.955]                   options(future.plan = NULL)
[18:41:30.955]                   if (is.na(NA_character_)) 
[18:41:30.955]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.955]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.955]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.955]                     .init = FALSE)
[18:41:30.955]                 }
[18:41:30.955]             }
[18:41:30.955]         }
[18:41:30.955]     })
[18:41:30.955]     if (TRUE) {
[18:41:30.955]         base::sink(type = "output", split = FALSE)
[18:41:30.955]         if (TRUE) {
[18:41:30.955]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.955]         }
[18:41:30.955]         else {
[18:41:30.955]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.955]         }
[18:41:30.955]         base::close(...future.stdout)
[18:41:30.955]         ...future.stdout <- NULL
[18:41:30.955]     }
[18:41:30.955]     ...future.result$conditions <- ...future.conditions
[18:41:30.955]     ...future.result$finished <- base::Sys.time()
[18:41:30.955]     ...future.result
[18:41:30.955] }
[18:41:30.959] assign_globals() ...
[18:41:30.959] List of 5
[18:41:30.959]  $ ...future.FUN            :function (C, k)  
[18:41:30.959]  $ MoreArgs                 : NULL
[18:41:30.959]  $ ...future.elements_ii    :List of 2
[18:41:30.959]   ..$ :List of 1
[18:41:30.959]   .. ..$ : chr "B"
[18:41:30.959]   ..$ :List of 1
[18:41:30.959]   .. ..$ : int 4
[18:41:30.959]  $ ...future.seeds_ii       : NULL
[18:41:30.959]  $ ...future.globals.maxSize: NULL
[18:41:30.959]  - attr(*, "where")=List of 5
[18:41:30.959]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.959]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.959]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.959]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.959]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.959]  - attr(*, "resolved")= logi FALSE
[18:41:30.959]  - attr(*, "total_size")= int 847
[18:41:30.959]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.959]  - attr(*, "already-done")= logi TRUE
[18:41:30.965] - reassign environment for '...future.FUN'
[18:41:30.966] - copied '...future.FUN' to environment
[18:41:30.966] - copied 'MoreArgs' to environment
[18:41:30.966] - copied '...future.elements_ii' to environment
[18:41:30.966] - copied '...future.seeds_ii' to environment
[18:41:30.966] - copied '...future.globals.maxSize' to environment
[18:41:30.966] assign_globals() ... done
[18:41:30.967] plan(): Setting new future strategy stack:
[18:41:30.967] List of future strategies:
[18:41:30.967] 1. sequential:
[18:41:30.967]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.967]    - tweaked: FALSE
[18:41:30.967]    - call: NULL
[18:41:30.967] plan(): nbrOfWorkers() = 1
[18:41:30.969] plan(): Setting new future strategy stack:
[18:41:30.969] List of future strategies:
[18:41:30.969] 1. sequential:
[18:41:30.969]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.969]    - tweaked: FALSE
[18:41:30.969]    - call: plan(strategy)
[18:41:30.969] plan(): nbrOfWorkers() = 1
[18:41:30.970] SequentialFuture started (and completed)
[18:41:30.970] - Launch lazy future ... done
[18:41:30.970] run() for 'SequentialFuture' ... done
[18:41:30.970] Created future:
[18:41:30.970] SequentialFuture:
[18:41:30.970] Label: 'future_mapply-2'
[18:41:30.970] Expression:
[18:41:30.970] {
[18:41:30.970]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.970]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.970]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.970]         on.exit(options(oopts), add = TRUE)
[18:41:30.970]     }
[18:41:30.970]     {
[18:41:30.970]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.970]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.970]         do.call(mapply, args = args)
[18:41:30.970]     }
[18:41:30.970] }
[18:41:30.970] Lazy evaluation: FALSE
[18:41:30.970] Asynchronous evaluation: FALSE
[18:41:30.970] Local evaluation: TRUE
[18:41:30.970] Environment: R_GlobalEnv
[18:41:30.970] Capture standard output: TRUE
[18:41:30.970] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.970] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.970] Packages: <none>
[18:41:30.970] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.970] Resolved: TRUE
[18:41:30.970] Value: 51 bytes of class 'list'
[18:41:30.970] Early signaling: FALSE
[18:41:30.970] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.970] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.972] Chunk #2 of 5 ... DONE
[18:41:30.972] Chunk #3 of 5 ...
[18:41:30.972]  - Finding globals in '...' for chunk #3 ...
[18:41:30.972] getGlobalsAndPackages() ...
[18:41:30.972] Searching for globals...
[18:41:30.973] 
[18:41:30.973] Searching for globals ... DONE
[18:41:30.973] - globals: [0] <none>
[18:41:30.973] getGlobalsAndPackages() ... DONE
[18:41:30.973]    + additional globals found: [n=0] 
[18:41:30.973]    + additional namespaces needed: [n=0] 
[18:41:30.974]  - Finding globals in '...' for chunk #3 ... DONE
[18:41:30.974]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:30.974]  - seeds: <none>
[18:41:30.974]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.974] getGlobalsAndPackages() ...
[18:41:30.974] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.975] Resolving globals: FALSE
[18:41:30.975] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:30.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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:30.976] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:30.976] 
[18:41:30.976] getGlobalsAndPackages() ... DONE
[18:41:30.977] run() for 'Future' ...
[18:41:30.978] - state: 'created'
[18:41:30.978] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:30.979] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:30.979] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:30.979]   - Field: 'label'
[18:41:30.979]   - Field: 'local'
[18:41:30.980]   - Field: 'owner'
[18:41:30.980]   - Field: 'envir'
[18:41:30.980]   - Field: 'packages'
[18:41:30.980]   - Field: 'gc'
[18:41:30.980]   - Field: 'conditions'
[18:41:30.980]   - Field: 'expr'
[18:41:30.981]   - Field: 'uuid'
[18:41:30.981]   - Field: 'seed'
[18:41:30.981]   - Field: 'version'
[18:41:30.981]   - Field: 'result'
[18:41:30.981]   - Field: 'asynchronous'
[18:41:30.981]   - Field: 'calls'
[18:41:30.982]   - Field: 'globals'
[18:41:30.982]   - Field: 'stdout'
[18:41:30.982]   - Field: 'earlySignal'
[18:41:30.982]   - Field: 'lazy'
[18:41:30.982]   - Field: 'state'
[18:41:30.982] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:30.983] - Launch lazy future ...
[18:41:30.983] Packages needed by the future expression (n = 0): <none>
[18:41:30.983] Packages needed by future strategies (n = 0): <none>
[18:41:30.984] {
[18:41:30.984]     {
[18:41:30.984]         {
[18:41:30.984]             ...future.startTime <- base::Sys.time()
[18:41:30.984]             {
[18:41:30.984]                 {
[18:41:30.984]                   {
[18:41:30.984]                     base::local({
[18:41:30.984]                       has_future <- base::requireNamespace("future", 
[18:41:30.984]                         quietly = TRUE)
[18:41:30.984]                       if (has_future) {
[18:41:30.984]                         ns <- base::getNamespace("future")
[18:41:30.984]                         version <- ns[[".package"]][["version"]]
[18:41:30.984]                         if (is.null(version)) 
[18:41:30.984]                           version <- utils::packageVersion("future")
[18:41:30.984]                       }
[18:41:30.984]                       else {
[18:41:30.984]                         version <- NULL
[18:41:30.984]                       }
[18:41:30.984]                       if (!has_future || version < "1.8.0") {
[18:41:30.984]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:30.984]                           "", base::R.version$version.string), 
[18:41:30.984]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:30.984]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:30.984]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:30.984]                             "release", "version")], collapse = " "), 
[18:41:30.984]                           hostname = base::Sys.info()[["nodename"]])
[18:41:30.984]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:30.984]                           info)
[18:41:30.984]                         info <- base::paste(info, collapse = "; ")
[18:41:30.984]                         if (!has_future) {
[18:41:30.984]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:30.984]                             info)
[18:41:30.984]                         }
[18:41:30.984]                         else {
[18:41:30.984]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:30.984]                             info, version)
[18:41:30.984]                         }
[18:41:30.984]                         base::stop(msg)
[18:41:30.984]                       }
[18:41:30.984]                     })
[18:41:30.984]                   }
[18:41:30.984]                   ...future.strategy.old <- future::plan("list")
[18:41:30.984]                   options(future.plan = NULL)
[18:41:30.984]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.984]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:30.984]                 }
[18:41:30.984]                 ...future.workdir <- getwd()
[18:41:30.984]             }
[18:41:30.984]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:30.984]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:30.984]         }
[18:41:30.984]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:30.984]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:30.984]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:30.984]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:30.984]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:30.984]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:30.984]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:30.984]             base::names(...future.oldOptions))
[18:41:30.984]     }
[18:41:30.984]     if (FALSE) {
[18:41:30.984]     }
[18:41:30.984]     else {
[18:41:30.984]         if (TRUE) {
[18:41:30.984]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:30.984]                 open = "w")
[18:41:30.984]         }
[18:41:30.984]         else {
[18:41:30.984]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:30.984]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:30.984]         }
[18:41:30.984]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:30.984]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:30.984]             base::sink(type = "output", split = FALSE)
[18:41:30.984]             base::close(...future.stdout)
[18:41:30.984]         }, add = TRUE)
[18:41:30.984]     }
[18:41:30.984]     ...future.frame <- base::sys.nframe()
[18:41:30.984]     ...future.conditions <- base::list()
[18:41:30.984]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:30.984]     if (FALSE) {
[18:41:30.984]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:30.984]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:30.984]     }
[18:41:30.984]     ...future.result <- base::tryCatch({
[18:41:30.984]         base::withCallingHandlers({
[18:41:30.984]             ...future.value <- base::withVisible(base::local({
[18:41:30.984]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.984]                 if (!identical(...future.globals.maxSize.org, 
[18:41:30.984]                   ...future.globals.maxSize)) {
[18:41:30.984]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.984]                   on.exit(options(oopts), add = TRUE)
[18:41:30.984]                 }
[18:41:30.984]                 {
[18:41:30.984]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.984]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:30.984]                     USE.NAMES = FALSE)
[18:41:30.984]                   do.call(mapply, args = args)
[18:41:30.984]                 }
[18:41:30.984]             }))
[18:41:30.984]             future::FutureResult(value = ...future.value$value, 
[18:41:30.984]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.984]                   ...future.rng), globalenv = if (FALSE) 
[18:41:30.984]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:30.984]                     ...future.globalenv.names))
[18:41:30.984]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:30.984]         }, condition = base::local({
[18:41:30.984]             c <- base::c
[18:41:30.984]             inherits <- base::inherits
[18:41:30.984]             invokeRestart <- base::invokeRestart
[18:41:30.984]             length <- base::length
[18:41:30.984]             list <- base::list
[18:41:30.984]             seq.int <- base::seq.int
[18:41:30.984]             signalCondition <- base::signalCondition
[18:41:30.984]             sys.calls <- base::sys.calls
[18:41:30.984]             `[[` <- base::`[[`
[18:41:30.984]             `+` <- base::`+`
[18:41:30.984]             `<<-` <- base::`<<-`
[18:41:30.984]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:30.984]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:30.984]                   3L)]
[18:41:30.984]             }
[18:41:30.984]             function(cond) {
[18:41:30.984]                 is_error <- inherits(cond, "error")
[18:41:30.984]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:30.984]                   NULL)
[18:41:30.984]                 if (is_error) {
[18:41:30.984]                   sessionInformation <- function() {
[18:41:30.984]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:30.984]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:30.984]                       search = base::search(), system = base::Sys.info())
[18:41:30.984]                   }
[18:41:30.984]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.984]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:30.984]                     cond$call), session = sessionInformation(), 
[18:41:30.984]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:30.984]                   signalCondition(cond)
[18:41:30.984]                 }
[18:41:30.984]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:30.984]                 "immediateCondition"))) {
[18:41:30.984]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:30.984]                   ...future.conditions[[length(...future.conditions) + 
[18:41:30.984]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:30.984]                   if (TRUE && !signal) {
[18:41:30.984]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.984]                     {
[18:41:30.984]                       inherits <- base::inherits
[18:41:30.984]                       invokeRestart <- base::invokeRestart
[18:41:30.984]                       is.null <- base::is.null
[18:41:30.984]                       muffled <- FALSE
[18:41:30.984]                       if (inherits(cond, "message")) {
[18:41:30.984]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.984]                         if (muffled) 
[18:41:30.984]                           invokeRestart("muffleMessage")
[18:41:30.984]                       }
[18:41:30.984]                       else if (inherits(cond, "warning")) {
[18:41:30.984]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.984]                         if (muffled) 
[18:41:30.984]                           invokeRestart("muffleWarning")
[18:41:30.984]                       }
[18:41:30.984]                       else if (inherits(cond, "condition")) {
[18:41:30.984]                         if (!is.null(pattern)) {
[18:41:30.984]                           computeRestarts <- base::computeRestarts
[18:41:30.984]                           grepl <- base::grepl
[18:41:30.984]                           restarts <- computeRestarts(cond)
[18:41:30.984]                           for (restart in restarts) {
[18:41:30.984]                             name <- restart$name
[18:41:30.984]                             if (is.null(name)) 
[18:41:30.984]                               next
[18:41:30.984]                             if (!grepl(pattern, name)) 
[18:41:30.984]                               next
[18:41:30.984]                             invokeRestart(restart)
[18:41:30.984]                             muffled <- TRUE
[18:41:30.984]                             break
[18:41:30.984]                           }
[18:41:30.984]                         }
[18:41:30.984]                       }
[18:41:30.984]                       invisible(muffled)
[18:41:30.984]                     }
[18:41:30.984]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.984]                   }
[18:41:30.984]                 }
[18:41:30.984]                 else {
[18:41:30.984]                   if (TRUE) {
[18:41:30.984]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:30.984]                     {
[18:41:30.984]                       inherits <- base::inherits
[18:41:30.984]                       invokeRestart <- base::invokeRestart
[18:41:30.984]                       is.null <- base::is.null
[18:41:30.984]                       muffled <- FALSE
[18:41:30.984]                       if (inherits(cond, "message")) {
[18:41:30.984]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:30.984]                         if (muffled) 
[18:41:30.984]                           invokeRestart("muffleMessage")
[18:41:30.984]                       }
[18:41:30.984]                       else if (inherits(cond, "warning")) {
[18:41:30.984]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:30.984]                         if (muffled) 
[18:41:30.984]                           invokeRestart("muffleWarning")
[18:41:30.984]                       }
[18:41:30.984]                       else if (inherits(cond, "condition")) {
[18:41:30.984]                         if (!is.null(pattern)) {
[18:41:30.984]                           computeRestarts <- base::computeRestarts
[18:41:30.984]                           grepl <- base::grepl
[18:41:30.984]                           restarts <- computeRestarts(cond)
[18:41:30.984]                           for (restart in restarts) {
[18:41:30.984]                             name <- restart$name
[18:41:30.984]                             if (is.null(name)) 
[18:41:30.984]                               next
[18:41:30.984]                             if (!grepl(pattern, name)) 
[18:41:30.984]                               next
[18:41:30.984]                             invokeRestart(restart)
[18:41:30.984]                             muffled <- TRUE
[18:41:30.984]                             break
[18:41:30.984]                           }
[18:41:30.984]                         }
[18:41:30.984]                       }
[18:41:30.984]                       invisible(muffled)
[18:41:30.984]                     }
[18:41:30.984]                     muffleCondition(cond, pattern = "^muffle")
[18:41:30.984]                   }
[18:41:30.984]                 }
[18:41:30.984]             }
[18:41:30.984]         }))
[18:41:30.984]     }, error = function(ex) {
[18:41:30.984]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:30.984]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:30.984]                 ...future.rng), started = ...future.startTime, 
[18:41:30.984]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:30.984]             version = "1.8"), class = "FutureResult")
[18:41:30.984]     }, finally = {
[18:41:30.984]         if (!identical(...future.workdir, getwd())) 
[18:41:30.984]             setwd(...future.workdir)
[18:41:30.984]         {
[18:41:30.984]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:30.984]                 ...future.oldOptions$nwarnings <- NULL
[18:41:30.984]             }
[18:41:30.984]             base::options(...future.oldOptions)
[18:41:30.984]             if (.Platform$OS.type == "windows") {
[18:41:30.984]                 old_names <- names(...future.oldEnvVars)
[18:41:30.984]                 envs <- base::Sys.getenv()
[18:41:30.984]                 names <- names(envs)
[18:41:30.984]                 common <- intersect(names, old_names)
[18:41:30.984]                 added <- setdiff(names, old_names)
[18:41:30.984]                 removed <- setdiff(old_names, names)
[18:41:30.984]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:30.984]                   envs[common]]
[18:41:30.984]                 NAMES <- toupper(changed)
[18:41:30.984]                 args <- list()
[18:41:30.984]                 for (kk in seq_along(NAMES)) {
[18:41:30.984]                   name <- changed[[kk]]
[18:41:30.984]                   NAME <- NAMES[[kk]]
[18:41:30.984]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.984]                     next
[18:41:30.984]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.984]                 }
[18:41:30.984]                 NAMES <- toupper(added)
[18:41:30.984]                 for (kk in seq_along(NAMES)) {
[18:41:30.984]                   name <- added[[kk]]
[18:41:30.984]                   NAME <- NAMES[[kk]]
[18:41:30.984]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.984]                     next
[18:41:30.984]                   args[[name]] <- ""
[18:41:30.984]                 }
[18:41:30.984]                 NAMES <- toupper(removed)
[18:41:30.984]                 for (kk in seq_along(NAMES)) {
[18:41:30.984]                   name <- removed[[kk]]
[18:41:30.984]                   NAME <- NAMES[[kk]]
[18:41:30.984]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:30.984]                     next
[18:41:30.984]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:30.984]                 }
[18:41:30.984]                 if (length(args) > 0) 
[18:41:30.984]                   base::do.call(base::Sys.setenv, args = args)
[18:41:30.984]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:30.984]             }
[18:41:30.984]             else {
[18:41:30.984]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:30.984]             }
[18:41:30.984]             {
[18:41:30.984]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:30.984]                   0L) {
[18:41:30.984]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:30.984]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:30.984]                   base::options(opts)
[18:41:30.984]                 }
[18:41:30.984]                 {
[18:41:30.984]                   {
[18:41:30.984]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:30.984]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:30.984]                     -486500277L), envir = base::globalenv(), 
[18:41:30.984]                       inherits = FALSE)
[18:41:30.984]                     NULL
[18:41:30.984]                   }
[18:41:30.984]                   options(future.plan = NULL)
[18:41:30.984]                   if (is.na(NA_character_)) 
[18:41:30.984]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:30.984]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:30.984]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:30.984]                     .init = FALSE)
[18:41:30.984]                 }
[18:41:30.984]             }
[18:41:30.984]         }
[18:41:30.984]     })
[18:41:30.984]     if (TRUE) {
[18:41:30.984]         base::sink(type = "output", split = FALSE)
[18:41:30.984]         if (TRUE) {
[18:41:30.984]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:30.984]         }
[18:41:30.984]         else {
[18:41:30.984]             ...future.result["stdout"] <- base::list(NULL)
[18:41:30.984]         }
[18:41:30.984]         base::close(...future.stdout)
[18:41:30.984]         ...future.stdout <- NULL
[18:41:30.984]     }
[18:41:30.984]     ...future.result$conditions <- ...future.conditions
[18:41:30.984]     ...future.result$finished <- base::Sys.time()
[18:41:30.984]     ...future.result
[18:41:30.984] }
[18:41:30.988] assign_globals() ...
[18:41:30.988] List of 5
[18:41:30.988]  $ ...future.FUN            :function (C, k)  
[18:41:30.988]  $ MoreArgs                 : NULL
[18:41:30.988]  $ ...future.elements_ii    :List of 2
[18:41:30.988]   ..$ :List of 1
[18:41:30.988]   .. ..$ : chr "C"
[18:41:30.988]   ..$ :List of 1
[18:41:30.988]   .. ..$ : int 3
[18:41:30.988]  $ ...future.seeds_ii       : NULL
[18:41:30.988]  $ ...future.globals.maxSize: NULL
[18:41:30.988]  - attr(*, "where")=List of 5
[18:41:30.988]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:30.988]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:30.988]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:30.988]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:30.988]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:30.988]  - attr(*, "resolved")= logi FALSE
[18:41:30.988]  - attr(*, "total_size")= int 847
[18:41:30.988]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:30.988]  - attr(*, "already-done")= logi TRUE
[18:41:30.994] - reassign environment for '...future.FUN'
[18:41:30.994] - copied '...future.FUN' to environment
[18:41:30.994] - copied 'MoreArgs' to environment
[18:41:30.994] - copied '...future.elements_ii' to environment
[18:41:30.994] - copied '...future.seeds_ii' to environment
[18:41:30.995] - copied '...future.globals.maxSize' to environment
[18:41:30.995] assign_globals() ... done
[18:41:30.995] plan(): Setting new future strategy stack:
[18:41:30.995] List of future strategies:
[18:41:30.995] 1. sequential:
[18:41:30.995]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.995]    - tweaked: FALSE
[18:41:30.995]    - call: NULL
[18:41:30.996] plan(): nbrOfWorkers() = 1
[18:41:30.997] plan(): Setting new future strategy stack:
[18:41:30.997] List of future strategies:
[18:41:30.997] 1. sequential:
[18:41:30.997]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:30.997]    - tweaked: FALSE
[18:41:30.997]    - call: plan(strategy)
[18:41:30.998] plan(): nbrOfWorkers() = 1
[18:41:30.998] SequentialFuture started (and completed)
[18:41:30.998] - Launch lazy future ... done
[18:41:30.998] run() for 'SequentialFuture' ... done
[18:41:30.999] Created future:
[18:41:30.999] SequentialFuture:
[18:41:30.999] Label: 'future_mapply-3'
[18:41:30.999] Expression:
[18:41:30.999] {
[18:41:30.999]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:30.999]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:30.999]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:30.999]         on.exit(options(oopts), add = TRUE)
[18:41:30.999]     }
[18:41:30.999]     {
[18:41:30.999]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:30.999]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:30.999]         do.call(mapply, args = args)
[18:41:30.999]     }
[18:41:30.999] }
[18:41:30.999] Lazy evaluation: FALSE
[18:41:30.999] Asynchronous evaluation: FALSE
[18:41:30.999] Local evaluation: TRUE
[18:41:30.999] Environment: R_GlobalEnv
[18:41:30.999] Capture standard output: TRUE
[18:41:30.999] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:30.999] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:30.999] Packages: <none>
[18:41:30.999] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:30.999] Resolved: TRUE
[18:41:30.999] Value: 50 bytes of class 'list'
[18:41:30.999] Early signaling: FALSE
[18:41:30.999] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:30.999] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.000] Chunk #3 of 5 ... DONE
[18:41:31.000] Chunk #4 of 5 ...
[18:41:31.000]  - Finding globals in '...' for chunk #4 ...
[18:41:31.000] getGlobalsAndPackages() ...
[18:41:31.000] Searching for globals...
[18:41:31.001] 
[18:41:31.001] Searching for globals ... DONE
[18:41:31.001] - globals: [0] <none>
[18:41:31.001] getGlobalsAndPackages() ... DONE
[18:41:31.002]    + additional globals found: [n=0] 
[18:41:31.002]    + additional namespaces needed: [n=0] 
[18:41:31.002]  - Finding globals in '...' for chunk #4 ... DONE
[18:41:31.002]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:31.002]  - seeds: <none>
[18:41:31.002]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.003] getGlobalsAndPackages() ...
[18:41:31.003] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.003] Resolving globals: FALSE
[18:41:31.003] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:31.004] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.005] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.005] 
[18:41:31.005] getGlobalsAndPackages() ... DONE
[18:41:31.006] run() for 'Future' ...
[18:41:31.006] - state: 'created'
[18:41:31.006] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.007] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.007] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.007]   - Field: 'label'
[18:41:31.007]   - Field: 'local'
[18:41:31.007]   - Field: 'owner'
[18:41:31.007]   - Field: 'envir'
[18:41:31.008]   - Field: 'packages'
[18:41:31.008]   - Field: 'gc'
[18:41:31.008]   - Field: 'conditions'
[18:41:31.008]   - Field: 'expr'
[18:41:31.008]   - Field: 'uuid'
[18:41:31.008]   - Field: 'seed'
[18:41:31.009]   - Field: 'version'
[18:41:31.009]   - Field: 'result'
[18:41:31.009]   - Field: 'asynchronous'
[18:41:31.009]   - Field: 'calls'
[18:41:31.009]   - Field: 'globals'
[18:41:31.010]   - Field: 'stdout'
[18:41:31.010]   - Field: 'earlySignal'
[18:41:31.010]   - Field: 'lazy'
[18:41:31.010]   - Field: 'state'
[18:41:31.010] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.010] - Launch lazy future ...
[18:41:31.011] Packages needed by the future expression (n = 0): <none>
[18:41:31.011] Packages needed by future strategies (n = 0): <none>
[18:41:31.011] {
[18:41:31.011]     {
[18:41:31.011]         {
[18:41:31.011]             ...future.startTime <- base::Sys.time()
[18:41:31.011]             {
[18:41:31.011]                 {
[18:41:31.011]                   {
[18:41:31.011]                     base::local({
[18:41:31.011]                       has_future <- base::requireNamespace("future", 
[18:41:31.011]                         quietly = TRUE)
[18:41:31.011]                       if (has_future) {
[18:41:31.011]                         ns <- base::getNamespace("future")
[18:41:31.011]                         version <- ns[[".package"]][["version"]]
[18:41:31.011]                         if (is.null(version)) 
[18:41:31.011]                           version <- utils::packageVersion("future")
[18:41:31.011]                       }
[18:41:31.011]                       else {
[18:41:31.011]                         version <- NULL
[18:41:31.011]                       }
[18:41:31.011]                       if (!has_future || version < "1.8.0") {
[18:41:31.011]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.011]                           "", base::R.version$version.string), 
[18:41:31.011]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.011]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.011]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.011]                             "release", "version")], collapse = " "), 
[18:41:31.011]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.011]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.011]                           info)
[18:41:31.011]                         info <- base::paste(info, collapse = "; ")
[18:41:31.011]                         if (!has_future) {
[18:41:31.011]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.011]                             info)
[18:41:31.011]                         }
[18:41:31.011]                         else {
[18:41:31.011]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.011]                             info, version)
[18:41:31.011]                         }
[18:41:31.011]                         base::stop(msg)
[18:41:31.011]                       }
[18:41:31.011]                     })
[18:41:31.011]                   }
[18:41:31.011]                   ...future.strategy.old <- future::plan("list")
[18:41:31.011]                   options(future.plan = NULL)
[18:41:31.011]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.011]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.011]                 }
[18:41:31.011]                 ...future.workdir <- getwd()
[18:41:31.011]             }
[18:41:31.011]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.011]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.011]         }
[18:41:31.011]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.011]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:31.011]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.011]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.011]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.011]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.011]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.011]             base::names(...future.oldOptions))
[18:41:31.011]     }
[18:41:31.011]     if (FALSE) {
[18:41:31.011]     }
[18:41:31.011]     else {
[18:41:31.011]         if (TRUE) {
[18:41:31.011]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.011]                 open = "w")
[18:41:31.011]         }
[18:41:31.011]         else {
[18:41:31.011]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.011]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.011]         }
[18:41:31.011]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.011]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.011]             base::sink(type = "output", split = FALSE)
[18:41:31.011]             base::close(...future.stdout)
[18:41:31.011]         }, add = TRUE)
[18:41:31.011]     }
[18:41:31.011]     ...future.frame <- base::sys.nframe()
[18:41:31.011]     ...future.conditions <- base::list()
[18:41:31.011]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.011]     if (FALSE) {
[18:41:31.011]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.011]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.011]     }
[18:41:31.011]     ...future.result <- base::tryCatch({
[18:41:31.011]         base::withCallingHandlers({
[18:41:31.011]             ...future.value <- base::withVisible(base::local({
[18:41:31.011]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.011]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.011]                   ...future.globals.maxSize)) {
[18:41:31.011]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.011]                   on.exit(options(oopts), add = TRUE)
[18:41:31.011]                 }
[18:41:31.011]                 {
[18:41:31.011]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.011]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.011]                     USE.NAMES = FALSE)
[18:41:31.011]                   do.call(mapply, args = args)
[18:41:31.011]                 }
[18:41:31.011]             }))
[18:41:31.011]             future::FutureResult(value = ...future.value$value, 
[18:41:31.011]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.011]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.011]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.011]                     ...future.globalenv.names))
[18:41:31.011]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.011]         }, condition = base::local({
[18:41:31.011]             c <- base::c
[18:41:31.011]             inherits <- base::inherits
[18:41:31.011]             invokeRestart <- base::invokeRestart
[18:41:31.011]             length <- base::length
[18:41:31.011]             list <- base::list
[18:41:31.011]             seq.int <- base::seq.int
[18:41:31.011]             signalCondition <- base::signalCondition
[18:41:31.011]             sys.calls <- base::sys.calls
[18:41:31.011]             `[[` <- base::`[[`
[18:41:31.011]             `+` <- base::`+`
[18:41:31.011]             `<<-` <- base::`<<-`
[18:41:31.011]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.011]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.011]                   3L)]
[18:41:31.011]             }
[18:41:31.011]             function(cond) {
[18:41:31.011]                 is_error <- inherits(cond, "error")
[18:41:31.011]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.011]                   NULL)
[18:41:31.011]                 if (is_error) {
[18:41:31.011]                   sessionInformation <- function() {
[18:41:31.011]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.011]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.011]                       search = base::search(), system = base::Sys.info())
[18:41:31.011]                   }
[18:41:31.011]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.011]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.011]                     cond$call), session = sessionInformation(), 
[18:41:31.011]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.011]                   signalCondition(cond)
[18:41:31.011]                 }
[18:41:31.011]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.011]                 "immediateCondition"))) {
[18:41:31.011]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.011]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.011]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.011]                   if (TRUE && !signal) {
[18:41:31.011]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.011]                     {
[18:41:31.011]                       inherits <- base::inherits
[18:41:31.011]                       invokeRestart <- base::invokeRestart
[18:41:31.011]                       is.null <- base::is.null
[18:41:31.011]                       muffled <- FALSE
[18:41:31.011]                       if (inherits(cond, "message")) {
[18:41:31.011]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.011]                         if (muffled) 
[18:41:31.011]                           invokeRestart("muffleMessage")
[18:41:31.011]                       }
[18:41:31.011]                       else if (inherits(cond, "warning")) {
[18:41:31.011]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.011]                         if (muffled) 
[18:41:31.011]                           invokeRestart("muffleWarning")
[18:41:31.011]                       }
[18:41:31.011]                       else if (inherits(cond, "condition")) {
[18:41:31.011]                         if (!is.null(pattern)) {
[18:41:31.011]                           computeRestarts <- base::computeRestarts
[18:41:31.011]                           grepl <- base::grepl
[18:41:31.011]                           restarts <- computeRestarts(cond)
[18:41:31.011]                           for (restart in restarts) {
[18:41:31.011]                             name <- restart$name
[18:41:31.011]                             if (is.null(name)) 
[18:41:31.011]                               next
[18:41:31.011]                             if (!grepl(pattern, name)) 
[18:41:31.011]                               next
[18:41:31.011]                             invokeRestart(restart)
[18:41:31.011]                             muffled <- TRUE
[18:41:31.011]                             break
[18:41:31.011]                           }
[18:41:31.011]                         }
[18:41:31.011]                       }
[18:41:31.011]                       invisible(muffled)
[18:41:31.011]                     }
[18:41:31.011]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.011]                   }
[18:41:31.011]                 }
[18:41:31.011]                 else {
[18:41:31.011]                   if (TRUE) {
[18:41:31.011]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.011]                     {
[18:41:31.011]                       inherits <- base::inherits
[18:41:31.011]                       invokeRestart <- base::invokeRestart
[18:41:31.011]                       is.null <- base::is.null
[18:41:31.011]                       muffled <- FALSE
[18:41:31.011]                       if (inherits(cond, "message")) {
[18:41:31.011]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.011]                         if (muffled) 
[18:41:31.011]                           invokeRestart("muffleMessage")
[18:41:31.011]                       }
[18:41:31.011]                       else if (inherits(cond, "warning")) {
[18:41:31.011]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.011]                         if (muffled) 
[18:41:31.011]                           invokeRestart("muffleWarning")
[18:41:31.011]                       }
[18:41:31.011]                       else if (inherits(cond, "condition")) {
[18:41:31.011]                         if (!is.null(pattern)) {
[18:41:31.011]                           computeRestarts <- base::computeRestarts
[18:41:31.011]                           grepl <- base::grepl
[18:41:31.011]                           restarts <- computeRestarts(cond)
[18:41:31.011]                           for (restart in restarts) {
[18:41:31.011]                             name <- restart$name
[18:41:31.011]                             if (is.null(name)) 
[18:41:31.011]                               next
[18:41:31.011]                             if (!grepl(pattern, name)) 
[18:41:31.011]                               next
[18:41:31.011]                             invokeRestart(restart)
[18:41:31.011]                             muffled <- TRUE
[18:41:31.011]                             break
[18:41:31.011]                           }
[18:41:31.011]                         }
[18:41:31.011]                       }
[18:41:31.011]                       invisible(muffled)
[18:41:31.011]                     }
[18:41:31.011]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.011]                   }
[18:41:31.011]                 }
[18:41:31.011]             }
[18:41:31.011]         }))
[18:41:31.011]     }, error = function(ex) {
[18:41:31.011]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.011]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.011]                 ...future.rng), started = ...future.startTime, 
[18:41:31.011]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.011]             version = "1.8"), class = "FutureResult")
[18:41:31.011]     }, finally = {
[18:41:31.011]         if (!identical(...future.workdir, getwd())) 
[18:41:31.011]             setwd(...future.workdir)
[18:41:31.011]         {
[18:41:31.011]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.011]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.011]             }
[18:41:31.011]             base::options(...future.oldOptions)
[18:41:31.011]             if (.Platform$OS.type == "windows") {
[18:41:31.011]                 old_names <- names(...future.oldEnvVars)
[18:41:31.011]                 envs <- base::Sys.getenv()
[18:41:31.011]                 names <- names(envs)
[18:41:31.011]                 common <- intersect(names, old_names)
[18:41:31.011]                 added <- setdiff(names, old_names)
[18:41:31.011]                 removed <- setdiff(old_names, names)
[18:41:31.011]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.011]                   envs[common]]
[18:41:31.011]                 NAMES <- toupper(changed)
[18:41:31.011]                 args <- list()
[18:41:31.011]                 for (kk in seq_along(NAMES)) {
[18:41:31.011]                   name <- changed[[kk]]
[18:41:31.011]                   NAME <- NAMES[[kk]]
[18:41:31.011]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.011]                     next
[18:41:31.011]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.011]                 }
[18:41:31.011]                 NAMES <- toupper(added)
[18:41:31.011]                 for (kk in seq_along(NAMES)) {
[18:41:31.011]                   name <- added[[kk]]
[18:41:31.011]                   NAME <- NAMES[[kk]]
[18:41:31.011]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.011]                     next
[18:41:31.011]                   args[[name]] <- ""
[18:41:31.011]                 }
[18:41:31.011]                 NAMES <- toupper(removed)
[18:41:31.011]                 for (kk in seq_along(NAMES)) {
[18:41:31.011]                   name <- removed[[kk]]
[18:41:31.011]                   NAME <- NAMES[[kk]]
[18:41:31.011]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.011]                     next
[18:41:31.011]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.011]                 }
[18:41:31.011]                 if (length(args) > 0) 
[18:41:31.011]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.011]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.011]             }
[18:41:31.011]             else {
[18:41:31.011]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.011]             }
[18:41:31.011]             {
[18:41:31.011]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.011]                   0L) {
[18:41:31.011]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.011]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.011]                   base::options(opts)
[18:41:31.011]                 }
[18:41:31.011]                 {
[18:41:31.011]                   {
[18:41:31.011]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.011]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.011]                     -486500277L), envir = base::globalenv(), 
[18:41:31.011]                       inherits = FALSE)
[18:41:31.011]                     NULL
[18:41:31.011]                   }
[18:41:31.011]                   options(future.plan = NULL)
[18:41:31.011]                   if (is.na(NA_character_)) 
[18:41:31.011]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.011]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.011]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.011]                     .init = FALSE)
[18:41:31.011]                 }
[18:41:31.011]             }
[18:41:31.011]         }
[18:41:31.011]     })
[18:41:31.011]     if (TRUE) {
[18:41:31.011]         base::sink(type = "output", split = FALSE)
[18:41:31.011]         if (TRUE) {
[18:41:31.011]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.011]         }
[18:41:31.011]         else {
[18:41:31.011]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.011]         }
[18:41:31.011]         base::close(...future.stdout)
[18:41:31.011]         ...future.stdout <- NULL
[18:41:31.011]     }
[18:41:31.011]     ...future.result$conditions <- ...future.conditions
[18:41:31.011]     ...future.result$finished <- base::Sys.time()
[18:41:31.011]     ...future.result
[18:41:31.011] }
[18:41:31.015] assign_globals() ...
[18:41:31.015] List of 5
[18:41:31.015]  $ ...future.FUN            :function (C, k)  
[18:41:31.015]  $ MoreArgs                 : NULL
[18:41:31.015]  $ ...future.elements_ii    :List of 2
[18:41:31.015]   ..$ :List of 1
[18:41:31.015]   .. ..$ : chr "D"
[18:41:31.015]   ..$ :List of 1
[18:41:31.015]   .. ..$ : int 2
[18:41:31.015]  $ ...future.seeds_ii       : NULL
[18:41:31.015]  $ ...future.globals.maxSize: NULL
[18:41:31.015]  - attr(*, "where")=List of 5
[18:41:31.015]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.015]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.015]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.015]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.015]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.015]  - attr(*, "resolved")= logi FALSE
[18:41:31.015]  - attr(*, "total_size")= int 847
[18:41:31.015]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.015]  - attr(*, "already-done")= logi TRUE
[18:41:31.021] - reassign environment for '...future.FUN'
[18:41:31.021] - copied '...future.FUN' to environment
[18:41:31.022] - copied 'MoreArgs' to environment
[18:41:31.022] - copied '...future.elements_ii' to environment
[18:41:31.022] - copied '...future.seeds_ii' to environment
[18:41:31.022] - copied '...future.globals.maxSize' to environment
[18:41:31.022] assign_globals() ... done
[18:41:31.023] plan(): Setting new future strategy stack:
[18:41:31.023] List of future strategies:
[18:41:31.023] 1. sequential:
[18:41:31.023]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.023]    - tweaked: FALSE
[18:41:31.023]    - call: NULL
[18:41:31.023] plan(): nbrOfWorkers() = 1
[18:41:31.024] plan(): Setting new future strategy stack:
[18:41:31.025] List of future strategies:
[18:41:31.025] 1. sequential:
[18:41:31.025]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.025]    - tweaked: FALSE
[18:41:31.025]    - call: plan(strategy)
[18:41:31.025] plan(): nbrOfWorkers() = 1
[18:41:31.026] SequentialFuture started (and completed)
[18:41:31.026] - Launch lazy future ... done
[18:41:31.026] run() for 'SequentialFuture' ... done
[18:41:31.026] Created future:
[18:41:31.026] SequentialFuture:
[18:41:31.026] Label: 'future_mapply-4'
[18:41:31.026] Expression:
[18:41:31.026] {
[18:41:31.026]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.026]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.026]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.026]         on.exit(options(oopts), add = TRUE)
[18:41:31.026]     }
[18:41:31.026]     {
[18:41:31.026]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.026]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.026]         do.call(mapply, args = args)
[18:41:31.026]     }
[18:41:31.026] }
[18:41:31.026] Lazy evaluation: FALSE
[18:41:31.026] Asynchronous evaluation: FALSE
[18:41:31.026] Local evaluation: TRUE
[18:41:31.026] Environment: R_GlobalEnv
[18:41:31.026] Capture standard output: TRUE
[18:41:31.026] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.026] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.026] Packages: <none>
[18:41:31.026] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.026] Resolved: TRUE
[18:41:31.026] Value: 49 bytes of class 'list'
[18:41:31.026] Early signaling: FALSE
[18:41:31.026] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.026] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.027] Chunk #4 of 5 ... DONE
[18:41:31.027] Chunk #5 of 5 ...
[18:41:31.028]  - Finding globals in '...' for chunk #5 ...
[18:41:31.028] getGlobalsAndPackages() ...
[18:41:31.028] Searching for globals...
[18:41:31.028] 
[18:41:31.029] Searching for globals ... DONE
[18:41:31.029] - globals: [0] <none>
[18:41:31.029] getGlobalsAndPackages() ... DONE
[18:41:31.029]    + additional globals found: [n=0] 
[18:41:31.029]    + additional namespaces needed: [n=0] 
[18:41:31.029]  - Finding globals in '...' for chunk #5 ... DONE
[18:41:31.030]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:31.030]  - seeds: <none>
[18:41:31.030]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.030] getGlobalsAndPackages() ...
[18:41:31.030] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.030] Resolving globals: FALSE
[18:41:31.032] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:31.032] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.033] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.033] 
[18:41:31.033] getGlobalsAndPackages() ... DONE
[18:41:31.033] run() for 'Future' ...
[18:41:31.033] - state: 'created'
[18:41:31.034] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.034] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.034] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.035]   - Field: 'label'
[18:41:31.035]   - Field: 'local'
[18:41:31.035]   - Field: 'owner'
[18:41:31.035]   - Field: 'envir'
[18:41:31.035]   - Field: 'packages'
[18:41:31.035]   - Field: 'gc'
[18:41:31.036]   - Field: 'conditions'
[18:41:31.036]   - Field: 'expr'
[18:41:31.036]   - Field: 'uuid'
[18:41:31.036]   - Field: 'seed'
[18:41:31.036]   - Field: 'version'
[18:41:31.036]   - Field: 'result'
[18:41:31.037]   - Field: 'asynchronous'
[18:41:31.037]   - Field: 'calls'
[18:41:31.037]   - Field: 'globals'
[18:41:31.037]   - Field: 'stdout'
[18:41:31.037]   - Field: 'earlySignal'
[18:41:31.037]   - Field: 'lazy'
[18:41:31.038]   - Field: 'state'
[18:41:31.038] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.038] - Launch lazy future ...
[18:41:31.038] Packages needed by the future expression (n = 0): <none>
[18:41:31.038] Packages needed by future strategies (n = 0): <none>
[18:41:31.039] {
[18:41:31.039]     {
[18:41:31.039]         {
[18:41:31.039]             ...future.startTime <- base::Sys.time()
[18:41:31.039]             {
[18:41:31.039]                 {
[18:41:31.039]                   {
[18:41:31.039]                     base::local({
[18:41:31.039]                       has_future <- base::requireNamespace("future", 
[18:41:31.039]                         quietly = TRUE)
[18:41:31.039]                       if (has_future) {
[18:41:31.039]                         ns <- base::getNamespace("future")
[18:41:31.039]                         version <- ns[[".package"]][["version"]]
[18:41:31.039]                         if (is.null(version)) 
[18:41:31.039]                           version <- utils::packageVersion("future")
[18:41:31.039]                       }
[18:41:31.039]                       else {
[18:41:31.039]                         version <- NULL
[18:41:31.039]                       }
[18:41:31.039]                       if (!has_future || version < "1.8.0") {
[18:41:31.039]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.039]                           "", base::R.version$version.string), 
[18:41:31.039]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.039]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.039]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.039]                             "release", "version")], collapse = " "), 
[18:41:31.039]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.039]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.039]                           info)
[18:41:31.039]                         info <- base::paste(info, collapse = "; ")
[18:41:31.039]                         if (!has_future) {
[18:41:31.039]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.039]                             info)
[18:41:31.039]                         }
[18:41:31.039]                         else {
[18:41:31.039]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.039]                             info, version)
[18:41:31.039]                         }
[18:41:31.039]                         base::stop(msg)
[18:41:31.039]                       }
[18:41:31.039]                     })
[18:41:31.039]                   }
[18:41:31.039]                   ...future.strategy.old <- future::plan("list")
[18:41:31.039]                   options(future.plan = NULL)
[18:41:31.039]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.039]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.039]                 }
[18:41:31.039]                 ...future.workdir <- getwd()
[18:41:31.039]             }
[18:41:31.039]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.039]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.039]         }
[18:41:31.039]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.039]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:31.039]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.039]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.039]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.039]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.039]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.039]             base::names(...future.oldOptions))
[18:41:31.039]     }
[18:41:31.039]     if (FALSE) {
[18:41:31.039]     }
[18:41:31.039]     else {
[18:41:31.039]         if (TRUE) {
[18:41:31.039]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.039]                 open = "w")
[18:41:31.039]         }
[18:41:31.039]         else {
[18:41:31.039]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.039]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.039]         }
[18:41:31.039]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.039]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.039]             base::sink(type = "output", split = FALSE)
[18:41:31.039]             base::close(...future.stdout)
[18:41:31.039]         }, add = TRUE)
[18:41:31.039]     }
[18:41:31.039]     ...future.frame <- base::sys.nframe()
[18:41:31.039]     ...future.conditions <- base::list()
[18:41:31.039]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.039]     if (FALSE) {
[18:41:31.039]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.039]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.039]     }
[18:41:31.039]     ...future.result <- base::tryCatch({
[18:41:31.039]         base::withCallingHandlers({
[18:41:31.039]             ...future.value <- base::withVisible(base::local({
[18:41:31.039]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.039]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.039]                   ...future.globals.maxSize)) {
[18:41:31.039]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.039]                   on.exit(options(oopts), add = TRUE)
[18:41:31.039]                 }
[18:41:31.039]                 {
[18:41:31.039]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.039]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.039]                     USE.NAMES = FALSE)
[18:41:31.039]                   do.call(mapply, args = args)
[18:41:31.039]                 }
[18:41:31.039]             }))
[18:41:31.039]             future::FutureResult(value = ...future.value$value, 
[18:41:31.039]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.039]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.039]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.039]                     ...future.globalenv.names))
[18:41:31.039]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.039]         }, condition = base::local({
[18:41:31.039]             c <- base::c
[18:41:31.039]             inherits <- base::inherits
[18:41:31.039]             invokeRestart <- base::invokeRestart
[18:41:31.039]             length <- base::length
[18:41:31.039]             list <- base::list
[18:41:31.039]             seq.int <- base::seq.int
[18:41:31.039]             signalCondition <- base::signalCondition
[18:41:31.039]             sys.calls <- base::sys.calls
[18:41:31.039]             `[[` <- base::`[[`
[18:41:31.039]             `+` <- base::`+`
[18:41:31.039]             `<<-` <- base::`<<-`
[18:41:31.039]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.039]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.039]                   3L)]
[18:41:31.039]             }
[18:41:31.039]             function(cond) {
[18:41:31.039]                 is_error <- inherits(cond, "error")
[18:41:31.039]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.039]                   NULL)
[18:41:31.039]                 if (is_error) {
[18:41:31.039]                   sessionInformation <- function() {
[18:41:31.039]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.039]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.039]                       search = base::search(), system = base::Sys.info())
[18:41:31.039]                   }
[18:41:31.039]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.039]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.039]                     cond$call), session = sessionInformation(), 
[18:41:31.039]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.039]                   signalCondition(cond)
[18:41:31.039]                 }
[18:41:31.039]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.039]                 "immediateCondition"))) {
[18:41:31.039]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.039]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.039]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.039]                   if (TRUE && !signal) {
[18:41:31.039]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.039]                     {
[18:41:31.039]                       inherits <- base::inherits
[18:41:31.039]                       invokeRestart <- base::invokeRestart
[18:41:31.039]                       is.null <- base::is.null
[18:41:31.039]                       muffled <- FALSE
[18:41:31.039]                       if (inherits(cond, "message")) {
[18:41:31.039]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.039]                         if (muffled) 
[18:41:31.039]                           invokeRestart("muffleMessage")
[18:41:31.039]                       }
[18:41:31.039]                       else if (inherits(cond, "warning")) {
[18:41:31.039]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.039]                         if (muffled) 
[18:41:31.039]                           invokeRestart("muffleWarning")
[18:41:31.039]                       }
[18:41:31.039]                       else if (inherits(cond, "condition")) {
[18:41:31.039]                         if (!is.null(pattern)) {
[18:41:31.039]                           computeRestarts <- base::computeRestarts
[18:41:31.039]                           grepl <- base::grepl
[18:41:31.039]                           restarts <- computeRestarts(cond)
[18:41:31.039]                           for (restart in restarts) {
[18:41:31.039]                             name <- restart$name
[18:41:31.039]                             if (is.null(name)) 
[18:41:31.039]                               next
[18:41:31.039]                             if (!grepl(pattern, name)) 
[18:41:31.039]                               next
[18:41:31.039]                             invokeRestart(restart)
[18:41:31.039]                             muffled <- TRUE
[18:41:31.039]                             break
[18:41:31.039]                           }
[18:41:31.039]                         }
[18:41:31.039]                       }
[18:41:31.039]                       invisible(muffled)
[18:41:31.039]                     }
[18:41:31.039]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.039]                   }
[18:41:31.039]                 }
[18:41:31.039]                 else {
[18:41:31.039]                   if (TRUE) {
[18:41:31.039]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.039]                     {
[18:41:31.039]                       inherits <- base::inherits
[18:41:31.039]                       invokeRestart <- base::invokeRestart
[18:41:31.039]                       is.null <- base::is.null
[18:41:31.039]                       muffled <- FALSE
[18:41:31.039]                       if (inherits(cond, "message")) {
[18:41:31.039]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.039]                         if (muffled) 
[18:41:31.039]                           invokeRestart("muffleMessage")
[18:41:31.039]                       }
[18:41:31.039]                       else if (inherits(cond, "warning")) {
[18:41:31.039]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.039]                         if (muffled) 
[18:41:31.039]                           invokeRestart("muffleWarning")
[18:41:31.039]                       }
[18:41:31.039]                       else if (inherits(cond, "condition")) {
[18:41:31.039]                         if (!is.null(pattern)) {
[18:41:31.039]                           computeRestarts <- base::computeRestarts
[18:41:31.039]                           grepl <- base::grepl
[18:41:31.039]                           restarts <- computeRestarts(cond)
[18:41:31.039]                           for (restart in restarts) {
[18:41:31.039]                             name <- restart$name
[18:41:31.039]                             if (is.null(name)) 
[18:41:31.039]                               next
[18:41:31.039]                             if (!grepl(pattern, name)) 
[18:41:31.039]                               next
[18:41:31.039]                             invokeRestart(restart)
[18:41:31.039]                             muffled <- TRUE
[18:41:31.039]                             break
[18:41:31.039]                           }
[18:41:31.039]                         }
[18:41:31.039]                       }
[18:41:31.039]                       invisible(muffled)
[18:41:31.039]                     }
[18:41:31.039]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.039]                   }
[18:41:31.039]                 }
[18:41:31.039]             }
[18:41:31.039]         }))
[18:41:31.039]     }, error = function(ex) {
[18:41:31.039]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.039]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.039]                 ...future.rng), started = ...future.startTime, 
[18:41:31.039]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.039]             version = "1.8"), class = "FutureResult")
[18:41:31.039]     }, finally = {
[18:41:31.039]         if (!identical(...future.workdir, getwd())) 
[18:41:31.039]             setwd(...future.workdir)
[18:41:31.039]         {
[18:41:31.039]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.039]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.039]             }
[18:41:31.039]             base::options(...future.oldOptions)
[18:41:31.039]             if (.Platform$OS.type == "windows") {
[18:41:31.039]                 old_names <- names(...future.oldEnvVars)
[18:41:31.039]                 envs <- base::Sys.getenv()
[18:41:31.039]                 names <- names(envs)
[18:41:31.039]                 common <- intersect(names, old_names)
[18:41:31.039]                 added <- setdiff(names, old_names)
[18:41:31.039]                 removed <- setdiff(old_names, names)
[18:41:31.039]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.039]                   envs[common]]
[18:41:31.039]                 NAMES <- toupper(changed)
[18:41:31.039]                 args <- list()
[18:41:31.039]                 for (kk in seq_along(NAMES)) {
[18:41:31.039]                   name <- changed[[kk]]
[18:41:31.039]                   NAME <- NAMES[[kk]]
[18:41:31.039]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.039]                     next
[18:41:31.039]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.039]                 }
[18:41:31.039]                 NAMES <- toupper(added)
[18:41:31.039]                 for (kk in seq_along(NAMES)) {
[18:41:31.039]                   name <- added[[kk]]
[18:41:31.039]                   NAME <- NAMES[[kk]]
[18:41:31.039]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.039]                     next
[18:41:31.039]                   args[[name]] <- ""
[18:41:31.039]                 }
[18:41:31.039]                 NAMES <- toupper(removed)
[18:41:31.039]                 for (kk in seq_along(NAMES)) {
[18:41:31.039]                   name <- removed[[kk]]
[18:41:31.039]                   NAME <- NAMES[[kk]]
[18:41:31.039]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.039]                     next
[18:41:31.039]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.039]                 }
[18:41:31.039]                 if (length(args) > 0) 
[18:41:31.039]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.039]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.039]             }
[18:41:31.039]             else {
[18:41:31.039]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.039]             }
[18:41:31.039]             {
[18:41:31.039]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.039]                   0L) {
[18:41:31.039]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.039]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.039]                   base::options(opts)
[18:41:31.039]                 }
[18:41:31.039]                 {
[18:41:31.039]                   {
[18:41:31.039]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.039]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.039]                     -486500277L), envir = base::globalenv(), 
[18:41:31.039]                       inherits = FALSE)
[18:41:31.039]                     NULL
[18:41:31.039]                   }
[18:41:31.039]                   options(future.plan = NULL)
[18:41:31.039]                   if (is.na(NA_character_)) 
[18:41:31.039]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.039]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.039]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.039]                     .init = FALSE)
[18:41:31.039]                 }
[18:41:31.039]             }
[18:41:31.039]         }
[18:41:31.039]     })
[18:41:31.039]     if (TRUE) {
[18:41:31.039]         base::sink(type = "output", split = FALSE)
[18:41:31.039]         if (TRUE) {
[18:41:31.039]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.039]         }
[18:41:31.039]         else {
[18:41:31.039]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.039]         }
[18:41:31.039]         base::close(...future.stdout)
[18:41:31.039]         ...future.stdout <- NULL
[18:41:31.039]     }
[18:41:31.039]     ...future.result$conditions <- ...future.conditions
[18:41:31.039]     ...future.result$finished <- base::Sys.time()
[18:41:31.039]     ...future.result
[18:41:31.039] }
[18:41:31.043] assign_globals() ...
[18:41:31.043] List of 5
[18:41:31.043]  $ ...future.FUN            :function (C, k)  
[18:41:31.043]  $ MoreArgs                 : NULL
[18:41:31.043]  $ ...future.elements_ii    :List of 2
[18:41:31.043]   ..$ :List of 1
[18:41:31.043]   .. ..$ : chr "E"
[18:41:31.043]   ..$ :List of 1
[18:41:31.043]   .. ..$ : int 1
[18:41:31.043]  $ ...future.seeds_ii       : NULL
[18:41:31.043]  $ ...future.globals.maxSize: NULL
[18:41:31.043]  - attr(*, "where")=List of 5
[18:41:31.043]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.043]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.043]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.043]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.043]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.043]  - attr(*, "resolved")= logi FALSE
[18:41:31.043]  - attr(*, "total_size")= int 847
[18:41:31.043]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.043]  - attr(*, "already-done")= logi TRUE
[18:41:31.049] - reassign environment for '...future.FUN'
[18:41:31.049] - copied '...future.FUN' to environment
[18:41:31.049] - copied 'MoreArgs' to environment
[18:41:31.049] - copied '...future.elements_ii' to environment
[18:41:31.050] - copied '...future.seeds_ii' to environment
[18:41:31.050] - copied '...future.globals.maxSize' to environment
[18:41:31.050] assign_globals() ... done
[18:41:31.050] plan(): Setting new future strategy stack:
[18:41:31.050] List of future strategies:
[18:41:31.050] 1. sequential:
[18:41:31.050]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.050]    - tweaked: FALSE
[18:41:31.050]    - call: NULL
[18:41:31.051] plan(): nbrOfWorkers() = 1
[18:41:31.052] plan(): Setting new future strategy stack:
[18:41:31.052] List of future strategies:
[18:41:31.052] 1. sequential:
[18:41:31.052]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.052]    - tweaked: FALSE
[18:41:31.052]    - call: plan(strategy)
[18:41:31.053] plan(): nbrOfWorkers() = 1
[18:41:31.053] SequentialFuture started (and completed)
[18:41:31.054] - Launch lazy future ... done
[18:41:31.054] run() for 'SequentialFuture' ... done
[18:41:31.054] Created future:
[18:41:31.054] SequentialFuture:
[18:41:31.054] Label: 'future_mapply-5'
[18:41:31.054] Expression:
[18:41:31.054] {
[18:41:31.054]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.054]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.054]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.054]         on.exit(options(oopts), add = TRUE)
[18:41:31.054]     }
[18:41:31.054]     {
[18:41:31.054]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.054]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.054]         do.call(mapply, args = args)
[18:41:31.054]     }
[18:41:31.054] }
[18:41:31.054] Lazy evaluation: FALSE
[18:41:31.054] Asynchronous evaluation: FALSE
[18:41:31.054] Local evaluation: TRUE
[18:41:31.054] Environment: R_GlobalEnv
[18:41:31.054] Capture standard output: TRUE
[18:41:31.054] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.054] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.054] Packages: <none>
[18:41:31.054] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.054] Resolved: TRUE
[18:41:31.054] Value: 48 bytes of class 'list'
[18:41:31.054] Early signaling: FALSE
[18:41:31.054] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.054] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.055] Chunk #5 of 5 ... DONE
[18:41:31.055] Launching 5 futures (chunks) ... DONE
[18:41:31.055] Resolving 5 futures (chunks) ...
[18:41:31.056] resolve() on list ...
[18:41:31.056]  recursive: 0
[18:41:31.056]  length: 5
[18:41:31.056] 
[18:41:31.056] resolved() for 'SequentialFuture' ...
[18:41:31.057] - state: 'finished'
[18:41:31.057] - run: TRUE
[18:41:31.057] - result: 'FutureResult'
[18:41:31.057] resolved() for 'SequentialFuture' ... done
[18:41:31.057] Future #1
[18:41:31.058] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.059] - nx: 5
[18:41:31.059] - relay: TRUE
[18:41:31.059] - stdout: TRUE
[18:41:31.059] - signal: TRUE
[18:41:31.059] - resignal: FALSE
[18:41:31.059] - force: TRUE
[18:41:31.059] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[18:41:31.060] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[18:41:31.060]  - until=1
[18:41:31.060]  - relaying element #1
[18:41:31.060] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:31.060] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:31.061] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.061]  length: 4 (resolved future 1)
[18:41:31.061] resolved() for 'SequentialFuture' ...
[18:41:31.061] - state: 'finished'
[18:41:31.061] - run: TRUE
[18:41:31.062] - result: 'FutureResult'
[18:41:31.062] resolved() for 'SequentialFuture' ... done
[18:41:31.062] Future #2
[18:41:31.062] signalConditionsASAP(SequentialFuture, pos=2) ...
[18:41:31.062] - nx: 5
[18:41:31.062] - relay: TRUE
[18:41:31.063] - stdout: TRUE
[18:41:31.063] - signal: TRUE
[18:41:31.063] - resignal: FALSE
[18:41:31.063] - force: TRUE
[18:41:31.063] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:31.063] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:31.063]  - until=2
[18:41:31.064]  - relaying element #2
[18:41:31.064] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:31.064] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:31.064] signalConditionsASAP(SequentialFuture, pos=2) ... done
[18:41:31.064]  length: 3 (resolved future 2)
[18:41:31.065] resolved() for 'SequentialFuture' ...
[18:41:31.065] - state: 'finished'
[18:41:31.065] - run: TRUE
[18:41:31.065] - result: 'FutureResult'
[18:41:31.065] resolved() for 'SequentialFuture' ... done
[18:41:31.065] Future #3
[18:41:31.066] signalConditionsASAP(SequentialFuture, pos=3) ...
[18:41:31.066] - nx: 5
[18:41:31.066] - relay: TRUE
[18:41:31.066] - stdout: TRUE
[18:41:31.066] - signal: TRUE
[18:41:31.066] - resignal: FALSE
[18:41:31.067] - force: TRUE
[18:41:31.067] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:31.067] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:31.067]  - until=3
[18:41:31.067]  - relaying element #3
[18:41:31.067] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:31.068] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:31.068] signalConditionsASAP(SequentialFuture, pos=3) ... done
[18:41:31.068]  length: 2 (resolved future 3)
[18:41:31.068] resolved() for 'SequentialFuture' ...
[18:41:31.068] - state: 'finished'
[18:41:31.069] - run: TRUE
[18:41:31.069] - result: 'FutureResult'
[18:41:31.069] resolved() for 'SequentialFuture' ... done
[18:41:31.069] Future #4
[18:41:31.069] signalConditionsASAP(SequentialFuture, pos=4) ...
[18:41:31.069] - nx: 5
[18:41:31.070] - relay: TRUE
[18:41:31.070] - stdout: TRUE
[18:41:31.070] - signal: TRUE
[18:41:31.070] - resignal: FALSE
[18:41:31.070] - force: TRUE
[18:41:31.070] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:31.070] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:31.071]  - until=4
[18:41:31.071]  - relaying element #4
[18:41:31.071] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:31.071] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:31.071] signalConditionsASAP(SequentialFuture, pos=4) ... done
[18:41:31.072]  length: 1 (resolved future 4)
[18:41:31.072] resolved() for 'SequentialFuture' ...
[18:41:31.072] - state: 'finished'
[18:41:31.072] - run: TRUE
[18:41:31.072] - result: 'FutureResult'
[18:41:31.072] resolved() for 'SequentialFuture' ... done
[18:41:31.073] Future #5
[18:41:31.073] signalConditionsASAP(SequentialFuture, pos=5) ...
[18:41:31.073] - nx: 5
[18:41:31.073] - relay: TRUE
[18:41:31.073] - stdout: TRUE
[18:41:31.073] - signal: TRUE
[18:41:31.074] - resignal: FALSE
[18:41:31.074] - force: TRUE
[18:41:31.074] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:31.074] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:31.074]  - until=5
[18:41:31.074]  - relaying element #5
[18:41:31.075] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:31.075] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:31.075] signalConditionsASAP(SequentialFuture, pos=5) ... done
[18:41:31.075]  length: 0 (resolved future 5)
[18:41:31.075] Relaying remaining futures
[18:41:31.075] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.076] - nx: 5
[18:41:31.076] - relay: TRUE
[18:41:31.076] - stdout: TRUE
[18:41:31.076] - signal: TRUE
[18:41:31.076] - resignal: FALSE
[18:41:31.076] - force: TRUE
[18:41:31.076] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:31.077] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
 - flush all
[18:41:31.077] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:31.077] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:31.077] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.077] resolve() on list ... DONE
[18:41:31.078]  - Number of value chunks collected: 5
[18:41:31.078] Resolving 5 futures (chunks) ... DONE
[18:41:31.078] Reducing values from 5 chunks ...
[18:41:31.078]  - Number of values collected after concatenation: 5
[18:41:31.078]  - Number of values expected: 5
[18:41:31.078] Reducing values from 5 chunks ... DONE
[18:41:31.079] future_mapply() ... DONE
[18:41:31.079] future_mapply() ...
[18:41:31.079] Number of chunks: 1
[18:41:31.080] getGlobalsAndPackagesXApply() ...
[18:41:31.080]  - future.globals: TRUE
[18:41:31.080] getGlobalsAndPackages() ...
[18:41:31.080] Searching for globals...
[18:41:31.082] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:31.082] Searching for globals ... DONE
[18:41:31.082] Resolving globals: FALSE
[18:41:31.082] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:31.084] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:31.084] - globals: [1] 'FUN'
[18:41:31.084] 
[18:41:31.084] getGlobalsAndPackages() ... DONE
[18:41:31.085]  - globals found/used: [n=1] 'FUN'
[18:41:31.085]  - needed namespaces: [n=0] 
[18:41:31.085] Finding globals ... DONE
[18:41:31.085] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.085] List of 2
[18:41:31.085]  $ ...future.FUN:function (C, k)  
[18:41:31.085]  $ MoreArgs     : list()
[18:41:31.085]  - attr(*, "where")=List of 2
[18:41:31.085]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.085]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.085]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.085]  - attr(*, "resolved")= logi FALSE
[18:41:31.085]  - attr(*, "total_size")= num NA
[18:41:31.088] Packages to be attached in all futures: [n=0] 
[18:41:31.089] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.089] Number of futures (= number of chunks): 1
[18:41:31.089] Launching 1 futures (chunks) ...
[18:41:31.089] Chunk #1 of 1 ...
[18:41:31.089]  - Finding globals in '...' for chunk #1 ...
[18:41:31.090] getGlobalsAndPackages() ...
[18:41:31.090] Searching for globals...
[18:41:31.090] 
[18:41:31.090] Searching for globals ... DONE
[18:41:31.090] - globals: [0] <none>
[18:41:31.091] getGlobalsAndPackages() ... DONE
[18:41:31.091]    + additional globals found: [n=0] 
[18:41:31.091]    + additional namespaces needed: [n=0] 
[18:41:31.091]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.091]  - seeds: <none>
[18:41:31.091]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.092] getGlobalsAndPackages() ...
[18:41:31.092] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.092] Resolving globals: FALSE
[18:41:31.092] The total size of the 5 globals is 967 bytes (967 bytes)
[18:41:31.093] 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 967 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (192 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:31.093] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.093] 
[18:41:31.094] getGlobalsAndPackages() ... DONE
[18:41:31.094] run() for 'Future' ...
[18:41:31.094] - state: 'created'
[18:41:31.094] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.095] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.095] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.095]   - Field: 'label'
[18:41:31.095]   - Field: 'local'
[18:41:31.095]   - Field: 'owner'
[18:41:31.096]   - Field: 'envir'
[18:41:31.096]   - Field: 'packages'
[18:41:31.096]   - Field: 'gc'
[18:41:31.096]   - Field: 'conditions'
[18:41:31.096]   - Field: 'expr'
[18:41:31.097]   - Field: 'uuid'
[18:41:31.097]   - Field: 'seed'
[18:41:31.097]   - Field: 'version'
[18:41:31.097]   - Field: 'result'
[18:41:31.097]   - Field: 'asynchronous'
[18:41:31.097]   - Field: 'calls'
[18:41:31.098]   - Field: 'globals'
[18:41:31.098]   - Field: 'stdout'
[18:41:31.098]   - Field: 'earlySignal'
[18:41:31.098]   - Field: 'lazy'
[18:41:31.098]   - Field: 'state'
[18:41:31.098] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.099] - Launch lazy future ...
[18:41:31.099] Packages needed by the future expression (n = 0): <none>
[18:41:31.099] Packages needed by future strategies (n = 0): <none>
[18:41:31.100] {
[18:41:31.100]     {
[18:41:31.100]         {
[18:41:31.100]             ...future.startTime <- base::Sys.time()
[18:41:31.100]             {
[18:41:31.100]                 {
[18:41:31.100]                   {
[18:41:31.100]                     base::local({
[18:41:31.100]                       has_future <- base::requireNamespace("future", 
[18:41:31.100]                         quietly = TRUE)
[18:41:31.100]                       if (has_future) {
[18:41:31.100]                         ns <- base::getNamespace("future")
[18:41:31.100]                         version <- ns[[".package"]][["version"]]
[18:41:31.100]                         if (is.null(version)) 
[18:41:31.100]                           version <- utils::packageVersion("future")
[18:41:31.100]                       }
[18:41:31.100]                       else {
[18:41:31.100]                         version <- NULL
[18:41:31.100]                       }
[18:41:31.100]                       if (!has_future || version < "1.8.0") {
[18:41:31.100]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.100]                           "", base::R.version$version.string), 
[18:41:31.100]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.100]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.100]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.100]                             "release", "version")], collapse = " "), 
[18:41:31.100]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.100]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.100]                           info)
[18:41:31.100]                         info <- base::paste(info, collapse = "; ")
[18:41:31.100]                         if (!has_future) {
[18:41:31.100]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.100]                             info)
[18:41:31.100]                         }
[18:41:31.100]                         else {
[18:41:31.100]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.100]                             info, version)
[18:41:31.100]                         }
[18:41:31.100]                         base::stop(msg)
[18:41:31.100]                       }
[18:41:31.100]                     })
[18:41:31.100]                   }
[18:41:31.100]                   ...future.strategy.old <- future::plan("list")
[18:41:31.100]                   options(future.plan = NULL)
[18:41:31.100]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.100]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.100]                 }
[18:41:31.100]                 ...future.workdir <- getwd()
[18:41:31.100]             }
[18:41:31.100]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.100]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.100]         }
[18:41:31.100]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.100]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.100]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.100]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.100]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.100]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.100]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.100]             base::names(...future.oldOptions))
[18:41:31.100]     }
[18:41:31.100]     if (FALSE) {
[18:41:31.100]     }
[18:41:31.100]     else {
[18:41:31.100]         if (TRUE) {
[18:41:31.100]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.100]                 open = "w")
[18:41:31.100]         }
[18:41:31.100]         else {
[18:41:31.100]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.100]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.100]         }
[18:41:31.100]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.100]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.100]             base::sink(type = "output", split = FALSE)
[18:41:31.100]             base::close(...future.stdout)
[18:41:31.100]         }, add = TRUE)
[18:41:31.100]     }
[18:41:31.100]     ...future.frame <- base::sys.nframe()
[18:41:31.100]     ...future.conditions <- base::list()
[18:41:31.100]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.100]     if (FALSE) {
[18:41:31.100]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.100]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.100]     }
[18:41:31.100]     ...future.result <- base::tryCatch({
[18:41:31.100]         base::withCallingHandlers({
[18:41:31.100]             ...future.value <- base::withVisible(base::local({
[18:41:31.100]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.100]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.100]                   ...future.globals.maxSize)) {
[18:41:31.100]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.100]                   on.exit(options(oopts), add = TRUE)
[18:41:31.100]                 }
[18:41:31.100]                 {
[18:41:31.100]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.100]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.100]                     USE.NAMES = FALSE)
[18:41:31.100]                   do.call(mapply, args = args)
[18:41:31.100]                 }
[18:41:31.100]             }))
[18:41:31.100]             future::FutureResult(value = ...future.value$value, 
[18:41:31.100]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.100]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.100]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.100]                     ...future.globalenv.names))
[18:41:31.100]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.100]         }, condition = base::local({
[18:41:31.100]             c <- base::c
[18:41:31.100]             inherits <- base::inherits
[18:41:31.100]             invokeRestart <- base::invokeRestart
[18:41:31.100]             length <- base::length
[18:41:31.100]             list <- base::list
[18:41:31.100]             seq.int <- base::seq.int
[18:41:31.100]             signalCondition <- base::signalCondition
[18:41:31.100]             sys.calls <- base::sys.calls
[18:41:31.100]             `[[` <- base::`[[`
[18:41:31.100]             `+` <- base::`+`
[18:41:31.100]             `<<-` <- base::`<<-`
[18:41:31.100]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.100]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.100]                   3L)]
[18:41:31.100]             }
[18:41:31.100]             function(cond) {
[18:41:31.100]                 is_error <- inherits(cond, "error")
[18:41:31.100]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.100]                   NULL)
[18:41:31.100]                 if (is_error) {
[18:41:31.100]                   sessionInformation <- function() {
[18:41:31.100]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.100]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.100]                       search = base::search(), system = base::Sys.info())
[18:41:31.100]                   }
[18:41:31.100]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.100]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.100]                     cond$call), session = sessionInformation(), 
[18:41:31.100]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.100]                   signalCondition(cond)
[18:41:31.100]                 }
[18:41:31.100]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.100]                 "immediateCondition"))) {
[18:41:31.100]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.100]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.100]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.100]                   if (TRUE && !signal) {
[18:41:31.100]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.100]                     {
[18:41:31.100]                       inherits <- base::inherits
[18:41:31.100]                       invokeRestart <- base::invokeRestart
[18:41:31.100]                       is.null <- base::is.null
[18:41:31.100]                       muffled <- FALSE
[18:41:31.100]                       if (inherits(cond, "message")) {
[18:41:31.100]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.100]                         if (muffled) 
[18:41:31.100]                           invokeRestart("muffleMessage")
[18:41:31.100]                       }
[18:41:31.100]                       else if (inherits(cond, "warning")) {
[18:41:31.100]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.100]                         if (muffled) 
[18:41:31.100]                           invokeRestart("muffleWarning")
[18:41:31.100]                       }
[18:41:31.100]                       else if (inherits(cond, "condition")) {
[18:41:31.100]                         if (!is.null(pattern)) {
[18:41:31.100]                           computeRestarts <- base::computeRestarts
[18:41:31.100]                           grepl <- base::grepl
[18:41:31.100]                           restarts <- computeRestarts(cond)
[18:41:31.100]                           for (restart in restarts) {
[18:41:31.100]                             name <- restart$name
[18:41:31.100]                             if (is.null(name)) 
[18:41:31.100]                               next
[18:41:31.100]                             if (!grepl(pattern, name)) 
[18:41:31.100]                               next
[18:41:31.100]                             invokeRestart(restart)
[18:41:31.100]                             muffled <- TRUE
[18:41:31.100]                             break
[18:41:31.100]                           }
[18:41:31.100]                         }
[18:41:31.100]                       }
[18:41:31.100]                       invisible(muffled)
[18:41:31.100]                     }
[18:41:31.100]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.100]                   }
[18:41:31.100]                 }
[18:41:31.100]                 else {
[18:41:31.100]                   if (TRUE) {
[18:41:31.100]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.100]                     {
[18:41:31.100]                       inherits <- base::inherits
[18:41:31.100]                       invokeRestart <- base::invokeRestart
[18:41:31.100]                       is.null <- base::is.null
[18:41:31.100]                       muffled <- FALSE
[18:41:31.100]                       if (inherits(cond, "message")) {
[18:41:31.100]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.100]                         if (muffled) 
[18:41:31.100]                           invokeRestart("muffleMessage")
[18:41:31.100]                       }
[18:41:31.100]                       else if (inherits(cond, "warning")) {
[18:41:31.100]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.100]                         if (muffled) 
[18:41:31.100]                           invokeRestart("muffleWarning")
[18:41:31.100]                       }
[18:41:31.100]                       else if (inherits(cond, "condition")) {
[18:41:31.100]                         if (!is.null(pattern)) {
[18:41:31.100]                           computeRestarts <- base::computeRestarts
[18:41:31.100]                           grepl <- base::grepl
[18:41:31.100]                           restarts <- computeRestarts(cond)
[18:41:31.100]                           for (restart in restarts) {
[18:41:31.100]                             name <- restart$name
[18:41:31.100]                             if (is.null(name)) 
[18:41:31.100]                               next
[18:41:31.100]                             if (!grepl(pattern, name)) 
[18:41:31.100]                               next
[18:41:31.100]                             invokeRestart(restart)
[18:41:31.100]                             muffled <- TRUE
[18:41:31.100]                             break
[18:41:31.100]                           }
[18:41:31.100]                         }
[18:41:31.100]                       }
[18:41:31.100]                       invisible(muffled)
[18:41:31.100]                     }
[18:41:31.100]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.100]                   }
[18:41:31.100]                 }
[18:41:31.100]             }
[18:41:31.100]         }))
[18:41:31.100]     }, error = function(ex) {
[18:41:31.100]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.100]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.100]                 ...future.rng), started = ...future.startTime, 
[18:41:31.100]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.100]             version = "1.8"), class = "FutureResult")
[18:41:31.100]     }, finally = {
[18:41:31.100]         if (!identical(...future.workdir, getwd())) 
[18:41:31.100]             setwd(...future.workdir)
[18:41:31.100]         {
[18:41:31.100]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.100]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.100]             }
[18:41:31.100]             base::options(...future.oldOptions)
[18:41:31.100]             if (.Platform$OS.type == "windows") {
[18:41:31.100]                 old_names <- names(...future.oldEnvVars)
[18:41:31.100]                 envs <- base::Sys.getenv()
[18:41:31.100]                 names <- names(envs)
[18:41:31.100]                 common <- intersect(names, old_names)
[18:41:31.100]                 added <- setdiff(names, old_names)
[18:41:31.100]                 removed <- setdiff(old_names, names)
[18:41:31.100]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.100]                   envs[common]]
[18:41:31.100]                 NAMES <- toupper(changed)
[18:41:31.100]                 args <- list()
[18:41:31.100]                 for (kk in seq_along(NAMES)) {
[18:41:31.100]                   name <- changed[[kk]]
[18:41:31.100]                   NAME <- NAMES[[kk]]
[18:41:31.100]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.100]                     next
[18:41:31.100]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.100]                 }
[18:41:31.100]                 NAMES <- toupper(added)
[18:41:31.100]                 for (kk in seq_along(NAMES)) {
[18:41:31.100]                   name <- added[[kk]]
[18:41:31.100]                   NAME <- NAMES[[kk]]
[18:41:31.100]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.100]                     next
[18:41:31.100]                   args[[name]] <- ""
[18:41:31.100]                 }
[18:41:31.100]                 NAMES <- toupper(removed)
[18:41:31.100]                 for (kk in seq_along(NAMES)) {
[18:41:31.100]                   name <- removed[[kk]]
[18:41:31.100]                   NAME <- NAMES[[kk]]
[18:41:31.100]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.100]                     next
[18:41:31.100]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.100]                 }
[18:41:31.100]                 if (length(args) > 0) 
[18:41:31.100]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.100]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.100]             }
[18:41:31.100]             else {
[18:41:31.100]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.100]             }
[18:41:31.100]             {
[18:41:31.100]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.100]                   0L) {
[18:41:31.100]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.100]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.100]                   base::options(opts)
[18:41:31.100]                 }
[18:41:31.100]                 {
[18:41:31.100]                   {
[18:41:31.100]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.100]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.100]                     -486500277L), envir = base::globalenv(), 
[18:41:31.100]                       inherits = FALSE)
[18:41:31.100]                     NULL
[18:41:31.100]                   }
[18:41:31.100]                   options(future.plan = NULL)
[18:41:31.100]                   if (is.na(NA_character_)) 
[18:41:31.100]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.100]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.100]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.100]                     .init = FALSE)
[18:41:31.100]                 }
[18:41:31.100]             }
[18:41:31.100]         }
[18:41:31.100]     })
[18:41:31.100]     if (TRUE) {
[18:41:31.100]         base::sink(type = "output", split = FALSE)
[18:41:31.100]         if (TRUE) {
[18:41:31.100]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.100]         }
[18:41:31.100]         else {
[18:41:31.100]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.100]         }
[18:41:31.100]         base::close(...future.stdout)
[18:41:31.100]         ...future.stdout <- NULL
[18:41:31.100]     }
[18:41:31.100]     ...future.result$conditions <- ...future.conditions
[18:41:31.100]     ...future.result$finished <- base::Sys.time()
[18:41:31.100]     ...future.result
[18:41:31.100] }
[18:41:31.103] assign_globals() ...
[18:41:31.104] List of 5
[18:41:31.104]  $ ...future.FUN            :function (C, k)  
[18:41:31.104]  $ MoreArgs                 : list()
[18:41:31.104]  $ ...future.elements_ii    :List of 2
[18:41:31.104]   ..$ :List of 5
[18:41:31.104]   .. ..$ : chr "A"
[18:41:31.104]   .. ..$ : chr "B"
[18:41:31.104]   .. ..$ : chr "C"
[18:41:31.104]   .. ..$ : chr "D"
[18:41:31.104]   .. ..$ : chr "E"
[18:41:31.104]   ..$ :List of 5
[18:41:31.104]   .. ..$ : int 5
[18:41:31.104]   .. ..$ : int 4
[18:41:31.104]   .. ..$ : int 3
[18:41:31.104]   .. ..$ : int 2
[18:41:31.104]   .. ..$ : int 1
[18:41:31.104]  $ ...future.seeds_ii       : NULL
[18:41:31.104]  $ ...future.globals.maxSize: NULL
[18:41:31.104]  - attr(*, "where")=List of 5
[18:41:31.104]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.104]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.104]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.104]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.104]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.104]  - attr(*, "resolved")= logi FALSE
[18:41:31.104]  - attr(*, "total_size")= int 967
[18:41:31.104]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.104]  - attr(*, "already-done")= logi TRUE
[18:41:31.194] - reassign environment for '...future.FUN'
[18:41:31.194] - copied '...future.FUN' to environment
[18:41:31.195] - copied 'MoreArgs' to environment
[18:41:31.195] - copied '...future.elements_ii' to environment
[18:41:31.195] - copied '...future.seeds_ii' to environment
[18:41:31.195] - copied '...future.globals.maxSize' to environment
[18:41:31.195] assign_globals() ... done
[18:41:31.196] plan(): Setting new future strategy stack:
[18:41:31.196] List of future strategies:
[18:41:31.196] 1. sequential:
[18:41:31.196]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.196]    - tweaked: FALSE
[18:41:31.196]    - call: NULL
[18:41:31.196] plan(): nbrOfWorkers() = 1
[18:41:31.198] plan(): Setting new future strategy stack:
[18:41:31.198] List of future strategies:
[18:41:31.198] 1. sequential:
[18:41:31.198]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.198]    - tweaked: FALSE
[18:41:31.198]    - call: plan(strategy)
[18:41:31.199] plan(): nbrOfWorkers() = 1
[18:41:31.199] SequentialFuture started (and completed)
[18:41:31.199] - Launch lazy future ... done
[18:41:31.199] run() for 'SequentialFuture' ... done
[18:41:31.199] Created future:
[18:41:31.200] SequentialFuture:
[18:41:31.200] Label: 'future_.mapply-1'
[18:41:31.200] Expression:
[18:41:31.200] {
[18:41:31.200]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.200]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.200]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.200]         on.exit(options(oopts), add = TRUE)
[18:41:31.200]     }
[18:41:31.200]     {
[18:41:31.200]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.200]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.200]         do.call(mapply, args = args)
[18:41:31.200]     }
[18:41:31.200] }
[18:41:31.200] Lazy evaluation: FALSE
[18:41:31.200] Asynchronous evaluation: FALSE
[18:41:31.200] Local evaluation: TRUE
[18:41:31.200] Environment: R_GlobalEnv
[18:41:31.200] Capture standard output: TRUE
[18:41:31.200] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.200] Globals: 5 objects totaling 967 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 192 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.200] Packages: <none>
[18:41:31.200] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.200] Resolved: TRUE
[18:41:31.200] Value: 126 bytes of class 'list'
[18:41:31.200] Early signaling: FALSE
[18:41:31.200] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.200] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.201] Chunk #1 of 1 ... DONE
[18:41:31.201] Launching 1 futures (chunks) ... DONE
[18:41:31.201] Resolving 1 futures (chunks) ...
[18:41:31.201] resolve() on list ...
[18:41:31.201]  recursive: 0
[18:41:31.202]  length: 1
[18:41:31.202] 
[18:41:31.202] resolved() for 'SequentialFuture' ...
[18:41:31.202] - state: 'finished'
[18:41:31.202] - run: TRUE
[18:41:31.202] - result: 'FutureResult'
[18:41:31.203] resolved() for 'SequentialFuture' ... done
[18:41:31.203] Future #1
[18:41:31.203] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.203] - nx: 1
[18:41:31.203] - relay: TRUE
[18:41:31.203] - stdout: TRUE
[18:41:31.204] - signal: TRUE
[18:41:31.204] - resignal: FALSE
[18:41:31.204] - force: TRUE
[18:41:31.204] - relayed: [n=1] FALSE
[18:41:31.204] - queued futures: [n=1] FALSE
[18:41:31.204]  - until=1
[18:41:31.205]  - relaying element #1
[18:41:31.205] - relayed: [n=1] TRUE
[18:41:31.205] - queued futures: [n=1] TRUE
[18:41:31.205] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.205]  length: 0 (resolved future 1)
[18:41:31.206] Relaying remaining futures
[18:41:31.206] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.206] - nx: 1
[18:41:31.206] - relay: TRUE
[18:41:31.206] - stdout: TRUE
[18:41:31.206] - signal: TRUE
[18:41:31.206] - resignal: FALSE
[18:41:31.207] - force: TRUE
[18:41:31.207] - relayed: [n=1] TRUE
[18:41:31.207] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.207] - relayed: [n=1] TRUE
[18:41:31.207] - queued futures: [n=1] TRUE
[18:41:31.207] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.208] resolve() on list ... DONE
[18:41:31.208]  - Number of value chunks collected: 1
[18:41:31.208] Resolving 1 futures (chunks) ... DONE
[18:41:31.208] Reducing values from 1 chunks ...
[18:41:31.208]  - Number of values collected after concatenation: 5
[18:41:31.208]  - Number of values expected: 5
[18:41:31.209] Reducing values from 1 chunks ... DONE
[18:41:31.209] future_mapply() ... DONE
[18:41:31.209] future_mapply() ...
[18:41:31.210] Number of chunks: 3
[18:41:31.210] Index remapping (attribute 'ordering'): [n = 5] 1, 3, 4, 2, 5
[18:41:31.210] getGlobalsAndPackagesXApply() ...
[18:41:31.210]  - future.globals: TRUE
[18:41:31.210] getGlobalsAndPackages() ...
[18:41:31.211] Searching for globals...
[18:41:31.212] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:31.212] Searching for globals ... DONE
[18:41:31.213] Resolving globals: FALSE
[18:41:31.213] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:31.213] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:31.214] - globals: [1] 'FUN'
[18:41:31.214] 
[18:41:31.214] getGlobalsAndPackages() ... DONE
[18:41:31.214]  - globals found/used: [n=1] 'FUN'
[18:41:31.214]  - needed namespaces: [n=0] 
[18:41:31.214] Finding globals ... DONE
[18:41:31.215] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.215] List of 2
[18:41:31.215]  $ ...future.FUN:function (C, k)  
[18:41:31.215]  $ MoreArgs     : NULL
[18:41:31.215]  - attr(*, "where")=List of 2
[18:41:31.215]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.215]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.215]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.215]  - attr(*, "resolved")= logi FALSE
[18:41:31.215]  - attr(*, "total_size")= num NA
[18:41:31.218] Packages to be attached in all futures: [n=0] 
[18:41:31.218] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.218] Number of futures (= number of chunks): 3
[18:41:31.219] Launching 3 futures (chunks) ...
[18:41:31.219] Chunk #1 of 3 ...
[18:41:31.219]  - Finding globals in '...' for chunk #1 ...
[18:41:31.219] getGlobalsAndPackages() ...
[18:41:31.219] Searching for globals...
[18:41:31.220] 
[18:41:31.220] Searching for globals ... DONE
[18:41:31.220] - globals: [0] <none>
[18:41:31.220] getGlobalsAndPackages() ... DONE
[18:41:31.220]    + additional globals found: [n=0] 
[18:41:31.221]    + additional namespaces needed: [n=0] 
[18:41:31.221]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.221]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[18:41:31.221]  - seeds: <none>
[18:41:31.221]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.222] getGlobalsAndPackages() ...
[18:41:31.222] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.222] Resolving globals: FALSE
[18:41:31.223] The total size of the 5 globals is 876 bytes (876 bytes)
[18:41:31.223] 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 876 bytes.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.224] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.224] 
[18:41:31.224] getGlobalsAndPackages() ... DONE
[18:41:31.225] run() for 'Future' ...
[18:41:31.225] - state: 'created'
[18:41:31.225] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.225] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.226] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.226]   - Field: 'label'
[18:41:31.226]   - Field: 'local'
[18:41:31.226]   - Field: 'owner'
[18:41:31.226]   - Field: 'envir'
[18:41:31.227]   - Field: 'packages'
[18:41:31.227]   - Field: 'gc'
[18:41:31.227]   - Field: 'conditions'
[18:41:31.227]   - Field: 'expr'
[18:41:31.228]   - Field: 'uuid'
[18:41:31.228]   - Field: 'seed'
[18:41:31.228]   - Field: 'version'
[18:41:31.228]   - Field: 'result'
[18:41:31.228]   - Field: 'asynchronous'
[18:41:31.229]   - Field: 'calls'
[18:41:31.229]   - Field: 'globals'
[18:41:31.229]   - Field: 'stdout'
[18:41:31.229]   - Field: 'earlySignal'
[18:41:31.229]   - Field: 'lazy'
[18:41:31.230]   - Field: 'state'
[18:41:31.230] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.230] - Launch lazy future ...
[18:41:31.230] Packages needed by the future expression (n = 0): <none>
[18:41:31.230] Packages needed by future strategies (n = 0): <none>
[18:41:31.231] {
[18:41:31.231]     {
[18:41:31.231]         {
[18:41:31.231]             ...future.startTime <- base::Sys.time()
[18:41:31.231]             {
[18:41:31.231]                 {
[18:41:31.231]                   {
[18:41:31.231]                     base::local({
[18:41:31.231]                       has_future <- base::requireNamespace("future", 
[18:41:31.231]                         quietly = TRUE)
[18:41:31.231]                       if (has_future) {
[18:41:31.231]                         ns <- base::getNamespace("future")
[18:41:31.231]                         version <- ns[[".package"]][["version"]]
[18:41:31.231]                         if (is.null(version)) 
[18:41:31.231]                           version <- utils::packageVersion("future")
[18:41:31.231]                       }
[18:41:31.231]                       else {
[18:41:31.231]                         version <- NULL
[18:41:31.231]                       }
[18:41:31.231]                       if (!has_future || version < "1.8.0") {
[18:41:31.231]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.231]                           "", base::R.version$version.string), 
[18:41:31.231]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.231]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.231]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.231]                             "release", "version")], collapse = " "), 
[18:41:31.231]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.231]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.231]                           info)
[18:41:31.231]                         info <- base::paste(info, collapse = "; ")
[18:41:31.231]                         if (!has_future) {
[18:41:31.231]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.231]                             info)
[18:41:31.231]                         }
[18:41:31.231]                         else {
[18:41:31.231]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.231]                             info, version)
[18:41:31.231]                         }
[18:41:31.231]                         base::stop(msg)
[18:41:31.231]                       }
[18:41:31.231]                     })
[18:41:31.231]                   }
[18:41:31.231]                   ...future.strategy.old <- future::plan("list")
[18:41:31.231]                   options(future.plan = NULL)
[18:41:31.231]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.231]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.231]                 }
[18:41:31.231]                 ...future.workdir <- getwd()
[18:41:31.231]             }
[18:41:31.231]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.231]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.231]         }
[18:41:31.231]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.231]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[18:41:31.231]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.231]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.231]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.231]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.231]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.231]             base::names(...future.oldOptions))
[18:41:31.231]     }
[18:41:31.231]     if (FALSE) {
[18:41:31.231]     }
[18:41:31.231]     else {
[18:41:31.231]         if (TRUE) {
[18:41:31.231]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.231]                 open = "w")
[18:41:31.231]         }
[18:41:31.231]         else {
[18:41:31.231]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.231]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.231]         }
[18:41:31.231]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.231]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.231]             base::sink(type = "output", split = FALSE)
[18:41:31.231]             base::close(...future.stdout)
[18:41:31.231]         }, add = TRUE)
[18:41:31.231]     }
[18:41:31.231]     ...future.frame <- base::sys.nframe()
[18:41:31.231]     ...future.conditions <- base::list()
[18:41:31.231]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.231]     if (FALSE) {
[18:41:31.231]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.231]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.231]     }
[18:41:31.231]     ...future.result <- base::tryCatch({
[18:41:31.231]         base::withCallingHandlers({
[18:41:31.231]             ...future.value <- base::withVisible(base::local({
[18:41:31.231]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.231]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.231]                   ...future.globals.maxSize)) {
[18:41:31.231]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.231]                   on.exit(options(oopts), add = TRUE)
[18:41:31.231]                 }
[18:41:31.231]                 {
[18:41:31.231]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.231]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.231]                     USE.NAMES = FALSE)
[18:41:31.231]                   do.call(mapply, args = args)
[18:41:31.231]                 }
[18:41:31.231]             }))
[18:41:31.231]             future::FutureResult(value = ...future.value$value, 
[18:41:31.231]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.231]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.231]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.231]                     ...future.globalenv.names))
[18:41:31.231]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.231]         }, condition = base::local({
[18:41:31.231]             c <- base::c
[18:41:31.231]             inherits <- base::inherits
[18:41:31.231]             invokeRestart <- base::invokeRestart
[18:41:31.231]             length <- base::length
[18:41:31.231]             list <- base::list
[18:41:31.231]             seq.int <- base::seq.int
[18:41:31.231]             signalCondition <- base::signalCondition
[18:41:31.231]             sys.calls <- base::sys.calls
[18:41:31.231]             `[[` <- base::`[[`
[18:41:31.231]             `+` <- base::`+`
[18:41:31.231]             `<<-` <- base::`<<-`
[18:41:31.231]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.231]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.231]                   3L)]
[18:41:31.231]             }
[18:41:31.231]             function(cond) {
[18:41:31.231]                 is_error <- inherits(cond, "error")
[18:41:31.231]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.231]                   NULL)
[18:41:31.231]                 if (is_error) {
[18:41:31.231]                   sessionInformation <- function() {
[18:41:31.231]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.231]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.231]                       search = base::search(), system = base::Sys.info())
[18:41:31.231]                   }
[18:41:31.231]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.231]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.231]                     cond$call), session = sessionInformation(), 
[18:41:31.231]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.231]                   signalCondition(cond)
[18:41:31.231]                 }
[18:41:31.231]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.231]                 "immediateCondition"))) {
[18:41:31.231]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.231]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.231]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.231]                   if (TRUE && !signal) {
[18:41:31.231]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.231]                     {
[18:41:31.231]                       inherits <- base::inherits
[18:41:31.231]                       invokeRestart <- base::invokeRestart
[18:41:31.231]                       is.null <- base::is.null
[18:41:31.231]                       muffled <- FALSE
[18:41:31.231]                       if (inherits(cond, "message")) {
[18:41:31.231]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.231]                         if (muffled) 
[18:41:31.231]                           invokeRestart("muffleMessage")
[18:41:31.231]                       }
[18:41:31.231]                       else if (inherits(cond, "warning")) {
[18:41:31.231]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.231]                         if (muffled) 
[18:41:31.231]                           invokeRestart("muffleWarning")
[18:41:31.231]                       }
[18:41:31.231]                       else if (inherits(cond, "condition")) {
[18:41:31.231]                         if (!is.null(pattern)) {
[18:41:31.231]                           computeRestarts <- base::computeRestarts
[18:41:31.231]                           grepl <- base::grepl
[18:41:31.231]                           restarts <- computeRestarts(cond)
[18:41:31.231]                           for (restart in restarts) {
[18:41:31.231]                             name <- restart$name
[18:41:31.231]                             if (is.null(name)) 
[18:41:31.231]                               next
[18:41:31.231]                             if (!grepl(pattern, name)) 
[18:41:31.231]                               next
[18:41:31.231]                             invokeRestart(restart)
[18:41:31.231]                             muffled <- TRUE
[18:41:31.231]                             break
[18:41:31.231]                           }
[18:41:31.231]                         }
[18:41:31.231]                       }
[18:41:31.231]                       invisible(muffled)
[18:41:31.231]                     }
[18:41:31.231]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.231]                   }
[18:41:31.231]                 }
[18:41:31.231]                 else {
[18:41:31.231]                   if (TRUE) {
[18:41:31.231]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.231]                     {
[18:41:31.231]                       inherits <- base::inherits
[18:41:31.231]                       invokeRestart <- base::invokeRestart
[18:41:31.231]                       is.null <- base::is.null
[18:41:31.231]                       muffled <- FALSE
[18:41:31.231]                       if (inherits(cond, "message")) {
[18:41:31.231]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.231]                         if (muffled) 
[18:41:31.231]                           invokeRestart("muffleMessage")
[18:41:31.231]                       }
[18:41:31.231]                       else if (inherits(cond, "warning")) {
[18:41:31.231]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.231]                         if (muffled) 
[18:41:31.231]                           invokeRestart("muffleWarning")
[18:41:31.231]                       }
[18:41:31.231]                       else if (inherits(cond, "condition")) {
[18:41:31.231]                         if (!is.null(pattern)) {
[18:41:31.231]                           computeRestarts <- base::computeRestarts
[18:41:31.231]                           grepl <- base::grepl
[18:41:31.231]                           restarts <- computeRestarts(cond)
[18:41:31.231]                           for (restart in restarts) {
[18:41:31.231]                             name <- restart$name
[18:41:31.231]                             if (is.null(name)) 
[18:41:31.231]                               next
[18:41:31.231]                             if (!grepl(pattern, name)) 
[18:41:31.231]                               next
[18:41:31.231]                             invokeRestart(restart)
[18:41:31.231]                             muffled <- TRUE
[18:41:31.231]                             break
[18:41:31.231]                           }
[18:41:31.231]                         }
[18:41:31.231]                       }
[18:41:31.231]                       invisible(muffled)
[18:41:31.231]                     }
[18:41:31.231]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.231]                   }
[18:41:31.231]                 }
[18:41:31.231]             }
[18:41:31.231]         }))
[18:41:31.231]     }, error = function(ex) {
[18:41:31.231]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.231]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.231]                 ...future.rng), started = ...future.startTime, 
[18:41:31.231]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.231]             version = "1.8"), class = "FutureResult")
[18:41:31.231]     }, finally = {
[18:41:31.231]         if (!identical(...future.workdir, getwd())) 
[18:41:31.231]             setwd(...future.workdir)
[18:41:31.231]         {
[18:41:31.231]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.231]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.231]             }
[18:41:31.231]             base::options(...future.oldOptions)
[18:41:31.231]             if (.Platform$OS.type == "windows") {
[18:41:31.231]                 old_names <- names(...future.oldEnvVars)
[18:41:31.231]                 envs <- base::Sys.getenv()
[18:41:31.231]                 names <- names(envs)
[18:41:31.231]                 common <- intersect(names, old_names)
[18:41:31.231]                 added <- setdiff(names, old_names)
[18:41:31.231]                 removed <- setdiff(old_names, names)
[18:41:31.231]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.231]                   envs[common]]
[18:41:31.231]                 NAMES <- toupper(changed)
[18:41:31.231]                 args <- list()
[18:41:31.231]                 for (kk in seq_along(NAMES)) {
[18:41:31.231]                   name <- changed[[kk]]
[18:41:31.231]                   NAME <- NAMES[[kk]]
[18:41:31.231]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.231]                     next
[18:41:31.231]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.231]                 }
[18:41:31.231]                 NAMES <- toupper(added)
[18:41:31.231]                 for (kk in seq_along(NAMES)) {
[18:41:31.231]                   name <- added[[kk]]
[18:41:31.231]                   NAME <- NAMES[[kk]]
[18:41:31.231]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.231]                     next
[18:41:31.231]                   args[[name]] <- ""
[18:41:31.231]                 }
[18:41:31.231]                 NAMES <- toupper(removed)
[18:41:31.231]                 for (kk in seq_along(NAMES)) {
[18:41:31.231]                   name <- removed[[kk]]
[18:41:31.231]                   NAME <- NAMES[[kk]]
[18:41:31.231]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.231]                     next
[18:41:31.231]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.231]                 }
[18:41:31.231]                 if (length(args) > 0) 
[18:41:31.231]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.231]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.231]             }
[18:41:31.231]             else {
[18:41:31.231]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.231]             }
[18:41:31.231]             {
[18:41:31.231]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.231]                   0L) {
[18:41:31.231]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.231]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.231]                   base::options(opts)
[18:41:31.231]                 }
[18:41:31.231]                 {
[18:41:31.231]                   {
[18:41:31.231]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.231]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.231]                     -486500277L), envir = base::globalenv(), 
[18:41:31.231]                       inherits = FALSE)
[18:41:31.231]                     NULL
[18:41:31.231]                   }
[18:41:31.231]                   options(future.plan = NULL)
[18:41:31.231]                   if (is.na(NA_character_)) 
[18:41:31.231]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.231]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.231]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.231]                     .init = FALSE)
[18:41:31.231]                 }
[18:41:31.231]             }
[18:41:31.231]         }
[18:41:31.231]     })
[18:41:31.231]     if (TRUE) {
[18:41:31.231]         base::sink(type = "output", split = FALSE)
[18:41:31.231]         if (TRUE) {
[18:41:31.231]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.231]         }
[18:41:31.231]         else {
[18:41:31.231]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.231]         }
[18:41:31.231]         base::close(...future.stdout)
[18:41:31.231]         ...future.stdout <- NULL
[18:41:31.231]     }
[18:41:31.231]     ...future.result$conditions <- ...future.conditions
[18:41:31.231]     ...future.result$finished <- base::Sys.time()
[18:41:31.231]     ...future.result
[18:41:31.231] }
[18:41:31.235] assign_globals() ...
[18:41:31.235] List of 5
[18:41:31.235]  $ ...future.FUN            :function (C, k)  
[18:41:31.235]  $ MoreArgs                 : NULL
[18:41:31.235]  $ ...future.elements_ii    :List of 2
[18:41:31.235]   ..$ :List of 2
[18:41:31.235]   .. ..$ : chr "A"
[18:41:31.235]   .. ..$ : chr "C"
[18:41:31.235]   ..$ :List of 2
[18:41:31.235]   .. ..$ : int 5
[18:41:31.235]   .. ..$ : int 3
[18:41:31.235]  $ ...future.seeds_ii       : NULL
[18:41:31.235]  $ ...future.globals.maxSize: NULL
[18:41:31.235]  - attr(*, "where")=List of 5
[18:41:31.235]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.235]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.235]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.235]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.235]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.235]  - attr(*, "resolved")= logi FALSE
[18:41:31.235]  - attr(*, "total_size")= int 876
[18:41:31.235]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.235]  - attr(*, "already-done")= logi TRUE
[18:41:31.244] - reassign environment for '...future.FUN'
[18:41:31.244] - copied '...future.FUN' to environment
[18:41:31.244] - copied 'MoreArgs' to environment
[18:41:31.244] - copied '...future.elements_ii' to environment
[18:41:31.244] - copied '...future.seeds_ii' to environment
[18:41:31.245] - copied '...future.globals.maxSize' to environment
[18:41:31.245] assign_globals() ... done
[18:41:31.245] plan(): Setting new future strategy stack:
[18:41:31.245] List of future strategies:
[18:41:31.245] 1. sequential:
[18:41:31.245]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.245]    - tweaked: FALSE
[18:41:31.245]    - call: NULL
[18:41:31.246] plan(): nbrOfWorkers() = 1
[18:41:31.248] plan(): Setting new future strategy stack:
[18:41:31.248] List of future strategies:
[18:41:31.248] 1. sequential:
[18:41:31.248]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.248]    - tweaked: FALSE
[18:41:31.248]    - call: plan(strategy)
[18:41:31.249] plan(): nbrOfWorkers() = 1
[18:41:31.249] SequentialFuture started (and completed)
[18:41:31.249] - Launch lazy future ... done
[18:41:31.249] run() for 'SequentialFuture' ... done
[18:41:31.250] Created future:
[18:41:31.250] SequentialFuture:
[18:41:31.250] Label: 'future_mapply-1'
[18:41:31.250] Expression:
[18:41:31.250] {
[18:41:31.250]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.250]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.250]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.250]         on.exit(options(oopts), add = TRUE)
[18:41:31.250]     }
[18:41:31.250]     {
[18:41:31.250]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.250]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.250]         do.call(mapply, args = args)
[18:41:31.250]     }
[18:41:31.250] }
[18:41:31.250] Lazy evaluation: FALSE
[18:41:31.250] Asynchronous evaluation: FALSE
[18:41:31.250] Local evaluation: TRUE
[18:41:31.250] Environment: R_GlobalEnv
[18:41:31.250] Capture standard output: TRUE
[18:41:31.250] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.250] Globals: 5 objects totaling 876 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.250] Packages: <none>
[18:41:31.250] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.250] Resolved: TRUE
[18:41:31.250] Value: 71 bytes of class 'list'
[18:41:31.250] Early signaling: FALSE
[18:41:31.250] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.250] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.251] Chunk #1 of 3 ... DONE
[18:41:31.251] Chunk #2 of 3 ...
[18:41:31.251]  - Finding globals in '...' for chunk #2 ...
[18:41:31.252] getGlobalsAndPackages() ...
[18:41:31.252] Searching for globals...
[18:41:31.252] 
[18:41:31.252] Searching for globals ... DONE
[18:41:31.253] - globals: [0] <none>
[18:41:31.253] getGlobalsAndPackages() ... DONE
[18:41:31.253]    + additional globals found: [n=0] 
[18:41:31.253]    + additional namespaces needed: [n=0] 
[18:41:31.253]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:31.254]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[18:41:31.254]  - seeds: <none>
[18:41:31.254]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.254] getGlobalsAndPackages() ...
[18:41:31.254] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.255] Resolving globals: FALSE
[18:41:31.255] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:31.256] 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 847 bytes.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.256] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.256] 
[18:41:31.257] getGlobalsAndPackages() ... DONE
[18:41:31.257] run() for 'Future' ...
[18:41:31.257] - state: 'created'
[18:41:31.257] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.258] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.258] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.258]   - Field: 'label'
[18:41:31.259]   - Field: 'local'
[18:41:31.259]   - Field: 'owner'
[18:41:31.259]   - Field: 'envir'
[18:41:31.259]   - Field: 'packages'
[18:41:31.259]   - Field: 'gc'
[18:41:31.260]   - Field: 'conditions'
[18:41:31.260]   - Field: 'expr'
[18:41:31.260]   - Field: 'uuid'
[18:41:31.260]   - Field: 'seed'
[18:41:31.260]   - Field: 'version'
[18:41:31.261]   - Field: 'result'
[18:41:31.261]   - Field: 'asynchronous'
[18:41:31.261]   - Field: 'calls'
[18:41:31.261]   - Field: 'globals'
[18:41:31.261]   - Field: 'stdout'
[18:41:31.262]   - Field: 'earlySignal'
[18:41:31.262]   - Field: 'lazy'
[18:41:31.262]   - Field: 'state'
[18:41:31.262] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.262] - Launch lazy future ...
[18:41:31.263] Packages needed by the future expression (n = 0): <none>
[18:41:31.263] Packages needed by future strategies (n = 0): <none>
[18:41:31.263] {
[18:41:31.263]     {
[18:41:31.263]         {
[18:41:31.263]             ...future.startTime <- base::Sys.time()
[18:41:31.263]             {
[18:41:31.263]                 {
[18:41:31.263]                   {
[18:41:31.263]                     base::local({
[18:41:31.263]                       has_future <- base::requireNamespace("future", 
[18:41:31.263]                         quietly = TRUE)
[18:41:31.263]                       if (has_future) {
[18:41:31.263]                         ns <- base::getNamespace("future")
[18:41:31.263]                         version <- ns[[".package"]][["version"]]
[18:41:31.263]                         if (is.null(version)) 
[18:41:31.263]                           version <- utils::packageVersion("future")
[18:41:31.263]                       }
[18:41:31.263]                       else {
[18:41:31.263]                         version <- NULL
[18:41:31.263]                       }
[18:41:31.263]                       if (!has_future || version < "1.8.0") {
[18:41:31.263]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.263]                           "", base::R.version$version.string), 
[18:41:31.263]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.263]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.263]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.263]                             "release", "version")], collapse = " "), 
[18:41:31.263]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.263]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.263]                           info)
[18:41:31.263]                         info <- base::paste(info, collapse = "; ")
[18:41:31.263]                         if (!has_future) {
[18:41:31.263]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.263]                             info)
[18:41:31.263]                         }
[18:41:31.263]                         else {
[18:41:31.263]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.263]                             info, version)
[18:41:31.263]                         }
[18:41:31.263]                         base::stop(msg)
[18:41:31.263]                       }
[18:41:31.263]                     })
[18:41:31.263]                   }
[18:41:31.263]                   ...future.strategy.old <- future::plan("list")
[18:41:31.263]                   options(future.plan = NULL)
[18:41:31.263]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.263]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.263]                 }
[18:41:31.263]                 ...future.workdir <- getwd()
[18:41:31.263]             }
[18:41:31.263]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.263]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.263]         }
[18:41:31.263]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.263]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[18:41:31.263]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.263]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.263]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.263]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.263]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.263]             base::names(...future.oldOptions))
[18:41:31.263]     }
[18:41:31.263]     if (FALSE) {
[18:41:31.263]     }
[18:41:31.263]     else {
[18:41:31.263]         if (TRUE) {
[18:41:31.263]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.263]                 open = "w")
[18:41:31.263]         }
[18:41:31.263]         else {
[18:41:31.263]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.263]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.263]         }
[18:41:31.263]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.263]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.263]             base::sink(type = "output", split = FALSE)
[18:41:31.263]             base::close(...future.stdout)
[18:41:31.263]         }, add = TRUE)
[18:41:31.263]     }
[18:41:31.263]     ...future.frame <- base::sys.nframe()
[18:41:31.263]     ...future.conditions <- base::list()
[18:41:31.263]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.263]     if (FALSE) {
[18:41:31.263]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.263]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.263]     }
[18:41:31.263]     ...future.result <- base::tryCatch({
[18:41:31.263]         base::withCallingHandlers({
[18:41:31.263]             ...future.value <- base::withVisible(base::local({
[18:41:31.263]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.263]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.263]                   ...future.globals.maxSize)) {
[18:41:31.263]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.263]                   on.exit(options(oopts), add = TRUE)
[18:41:31.263]                 }
[18:41:31.263]                 {
[18:41:31.263]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.263]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.263]                     USE.NAMES = FALSE)
[18:41:31.263]                   do.call(mapply, args = args)
[18:41:31.263]                 }
[18:41:31.263]             }))
[18:41:31.263]             future::FutureResult(value = ...future.value$value, 
[18:41:31.263]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.263]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.263]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.263]                     ...future.globalenv.names))
[18:41:31.263]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.263]         }, condition = base::local({
[18:41:31.263]             c <- base::c
[18:41:31.263]             inherits <- base::inherits
[18:41:31.263]             invokeRestart <- base::invokeRestart
[18:41:31.263]             length <- base::length
[18:41:31.263]             list <- base::list
[18:41:31.263]             seq.int <- base::seq.int
[18:41:31.263]             signalCondition <- base::signalCondition
[18:41:31.263]             sys.calls <- base::sys.calls
[18:41:31.263]             `[[` <- base::`[[`
[18:41:31.263]             `+` <- base::`+`
[18:41:31.263]             `<<-` <- base::`<<-`
[18:41:31.263]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.263]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.263]                   3L)]
[18:41:31.263]             }
[18:41:31.263]             function(cond) {
[18:41:31.263]                 is_error <- inherits(cond, "error")
[18:41:31.263]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.263]                   NULL)
[18:41:31.263]                 if (is_error) {
[18:41:31.263]                   sessionInformation <- function() {
[18:41:31.263]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.263]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.263]                       search = base::search(), system = base::Sys.info())
[18:41:31.263]                   }
[18:41:31.263]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.263]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.263]                     cond$call), session = sessionInformation(), 
[18:41:31.263]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.263]                   signalCondition(cond)
[18:41:31.263]                 }
[18:41:31.263]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.263]                 "immediateCondition"))) {
[18:41:31.263]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.263]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.263]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.263]                   if (TRUE && !signal) {
[18:41:31.263]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.263]                     {
[18:41:31.263]                       inherits <- base::inherits
[18:41:31.263]                       invokeRestart <- base::invokeRestart
[18:41:31.263]                       is.null <- base::is.null
[18:41:31.263]                       muffled <- FALSE
[18:41:31.263]                       if (inherits(cond, "message")) {
[18:41:31.263]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.263]                         if (muffled) 
[18:41:31.263]                           invokeRestart("muffleMessage")
[18:41:31.263]                       }
[18:41:31.263]                       else if (inherits(cond, "warning")) {
[18:41:31.263]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.263]                         if (muffled) 
[18:41:31.263]                           invokeRestart("muffleWarning")
[18:41:31.263]                       }
[18:41:31.263]                       else if (inherits(cond, "condition")) {
[18:41:31.263]                         if (!is.null(pattern)) {
[18:41:31.263]                           computeRestarts <- base::computeRestarts
[18:41:31.263]                           grepl <- base::grepl
[18:41:31.263]                           restarts <- computeRestarts(cond)
[18:41:31.263]                           for (restart in restarts) {
[18:41:31.263]                             name <- restart$name
[18:41:31.263]                             if (is.null(name)) 
[18:41:31.263]                               next
[18:41:31.263]                             if (!grepl(pattern, name)) 
[18:41:31.263]                               next
[18:41:31.263]                             invokeRestart(restart)
[18:41:31.263]                             muffled <- TRUE
[18:41:31.263]                             break
[18:41:31.263]                           }
[18:41:31.263]                         }
[18:41:31.263]                       }
[18:41:31.263]                       invisible(muffled)
[18:41:31.263]                     }
[18:41:31.263]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.263]                   }
[18:41:31.263]                 }
[18:41:31.263]                 else {
[18:41:31.263]                   if (TRUE) {
[18:41:31.263]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.263]                     {
[18:41:31.263]                       inherits <- base::inherits
[18:41:31.263]                       invokeRestart <- base::invokeRestart
[18:41:31.263]                       is.null <- base::is.null
[18:41:31.263]                       muffled <- FALSE
[18:41:31.263]                       if (inherits(cond, "message")) {
[18:41:31.263]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.263]                         if (muffled) 
[18:41:31.263]                           invokeRestart("muffleMessage")
[18:41:31.263]                       }
[18:41:31.263]                       else if (inherits(cond, "warning")) {
[18:41:31.263]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.263]                         if (muffled) 
[18:41:31.263]                           invokeRestart("muffleWarning")
[18:41:31.263]                       }
[18:41:31.263]                       else if (inherits(cond, "condition")) {
[18:41:31.263]                         if (!is.null(pattern)) {
[18:41:31.263]                           computeRestarts <- base::computeRestarts
[18:41:31.263]                           grepl <- base::grepl
[18:41:31.263]                           restarts <- computeRestarts(cond)
[18:41:31.263]                           for (restart in restarts) {
[18:41:31.263]                             name <- restart$name
[18:41:31.263]                             if (is.null(name)) 
[18:41:31.263]                               next
[18:41:31.263]                             if (!grepl(pattern, name)) 
[18:41:31.263]                               next
[18:41:31.263]                             invokeRestart(restart)
[18:41:31.263]                             muffled <- TRUE
[18:41:31.263]                             break
[18:41:31.263]                           }
[18:41:31.263]                         }
[18:41:31.263]                       }
[18:41:31.263]                       invisible(muffled)
[18:41:31.263]                     }
[18:41:31.263]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.263]                   }
[18:41:31.263]                 }
[18:41:31.263]             }
[18:41:31.263]         }))
[18:41:31.263]     }, error = function(ex) {
[18:41:31.263]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.263]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.263]                 ...future.rng), started = ...future.startTime, 
[18:41:31.263]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.263]             version = "1.8"), class = "FutureResult")
[18:41:31.263]     }, finally = {
[18:41:31.263]         if (!identical(...future.workdir, getwd())) 
[18:41:31.263]             setwd(...future.workdir)
[18:41:31.263]         {
[18:41:31.263]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.263]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.263]             }
[18:41:31.263]             base::options(...future.oldOptions)
[18:41:31.263]             if (.Platform$OS.type == "windows") {
[18:41:31.263]                 old_names <- names(...future.oldEnvVars)
[18:41:31.263]                 envs <- base::Sys.getenv()
[18:41:31.263]                 names <- names(envs)
[18:41:31.263]                 common <- intersect(names, old_names)
[18:41:31.263]                 added <- setdiff(names, old_names)
[18:41:31.263]                 removed <- setdiff(old_names, names)
[18:41:31.263]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.263]                   envs[common]]
[18:41:31.263]                 NAMES <- toupper(changed)
[18:41:31.263]                 args <- list()
[18:41:31.263]                 for (kk in seq_along(NAMES)) {
[18:41:31.263]                   name <- changed[[kk]]
[18:41:31.263]                   NAME <- NAMES[[kk]]
[18:41:31.263]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.263]                     next
[18:41:31.263]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.263]                 }
[18:41:31.263]                 NAMES <- toupper(added)
[18:41:31.263]                 for (kk in seq_along(NAMES)) {
[18:41:31.263]                   name <- added[[kk]]
[18:41:31.263]                   NAME <- NAMES[[kk]]
[18:41:31.263]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.263]                     next
[18:41:31.263]                   args[[name]] <- ""
[18:41:31.263]                 }
[18:41:31.263]                 NAMES <- toupper(removed)
[18:41:31.263]                 for (kk in seq_along(NAMES)) {
[18:41:31.263]                   name <- removed[[kk]]
[18:41:31.263]                   NAME <- NAMES[[kk]]
[18:41:31.263]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.263]                     next
[18:41:31.263]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.263]                 }
[18:41:31.263]                 if (length(args) > 0) 
[18:41:31.263]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.263]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.263]             }
[18:41:31.263]             else {
[18:41:31.263]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.263]             }
[18:41:31.263]             {
[18:41:31.263]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.263]                   0L) {
[18:41:31.263]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.263]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.263]                   base::options(opts)
[18:41:31.263]                 }
[18:41:31.263]                 {
[18:41:31.263]                   {
[18:41:31.263]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.263]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.263]                     -486500277L), envir = base::globalenv(), 
[18:41:31.263]                       inherits = FALSE)
[18:41:31.263]                     NULL
[18:41:31.263]                   }
[18:41:31.263]                   options(future.plan = NULL)
[18:41:31.263]                   if (is.na(NA_character_)) 
[18:41:31.263]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.263]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.263]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.263]                     .init = FALSE)
[18:41:31.263]                 }
[18:41:31.263]             }
[18:41:31.263]         }
[18:41:31.263]     })
[18:41:31.263]     if (TRUE) {
[18:41:31.263]         base::sink(type = "output", split = FALSE)
[18:41:31.263]         if (TRUE) {
[18:41:31.263]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.263]         }
[18:41:31.263]         else {
[18:41:31.263]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.263]         }
[18:41:31.263]         base::close(...future.stdout)
[18:41:31.263]         ...future.stdout <- NULL
[18:41:31.263]     }
[18:41:31.263]     ...future.result$conditions <- ...future.conditions
[18:41:31.263]     ...future.result$finished <- base::Sys.time()
[18:41:31.263]     ...future.result
[18:41:31.263] }
[18:41:31.267] assign_globals() ...
[18:41:31.268] List of 5
[18:41:31.268]  $ ...future.FUN            :function (C, k)  
[18:41:31.268]  $ MoreArgs                 : NULL
[18:41:31.268]  $ ...future.elements_ii    :List of 2
[18:41:31.268]   ..$ :List of 1
[18:41:31.268]   .. ..$ : chr "D"
[18:41:31.268]   ..$ :List of 1
[18:41:31.268]   .. ..$ : int 2
[18:41:31.268]  $ ...future.seeds_ii       : NULL
[18:41:31.268]  $ ...future.globals.maxSize: NULL
[18:41:31.268]  - attr(*, "where")=List of 5
[18:41:31.268]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.268]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.268]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.268]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.268]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.268]  - attr(*, "resolved")= logi FALSE
[18:41:31.268]  - attr(*, "total_size")= int 847
[18:41:31.268]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.268]  - attr(*, "already-done")= logi TRUE
[18:41:31.276] - reassign environment for '...future.FUN'
[18:41:31.276] - copied '...future.FUN' to environment
[18:41:31.276] - copied 'MoreArgs' to environment
[18:41:31.276] - copied '...future.elements_ii' to environment
[18:41:31.276] - copied '...future.seeds_ii' to environment
[18:41:31.277] - copied '...future.globals.maxSize' to environment
[18:41:31.277] assign_globals() ... done
[18:41:31.277] plan(): Setting new future strategy stack:
[18:41:31.277] List of future strategies:
[18:41:31.277] 1. sequential:
[18:41:31.277]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.277]    - tweaked: FALSE
[18:41:31.277]    - call: NULL
[18:41:31.278] plan(): nbrOfWorkers() = 1
[18:41:31.280] plan(): Setting new future strategy stack:
[18:41:31.280] List of future strategies:
[18:41:31.280] 1. sequential:
[18:41:31.280]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.280]    - tweaked: FALSE
[18:41:31.280]    - call: plan(strategy)
[18:41:31.281] plan(): nbrOfWorkers() = 1
[18:41:31.281] SequentialFuture started (and completed)
[18:41:31.282] - Launch lazy future ... done
[18:41:31.282] run() for 'SequentialFuture' ... done
[18:41:31.282] Created future:
[18:41:31.282] SequentialFuture:
[18:41:31.282] Label: 'future_mapply-2'
[18:41:31.282] Expression:
[18:41:31.282] {
[18:41:31.282]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.282]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.282]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.282]         on.exit(options(oopts), add = TRUE)
[18:41:31.282]     }
[18:41:31.282]     {
[18:41:31.282]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.282]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.282]         do.call(mapply, args = args)
[18:41:31.282]     }
[18:41:31.282] }
[18:41:31.282] Lazy evaluation: FALSE
[18:41:31.282] Asynchronous evaluation: FALSE
[18:41:31.282] Local evaluation: TRUE
[18:41:31.282] Environment: R_GlobalEnv
[18:41:31.282] Capture standard output: TRUE
[18:41:31.282] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.282] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.282] Packages: <none>
[18:41:31.282] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.282] Resolved: TRUE
[18:41:31.282] Value: 49 bytes of class 'list'
[18:41:31.282] Early signaling: FALSE
[18:41:31.282] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.282] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.284] Chunk #2 of 3 ... DONE
[18:41:31.284] Chunk #3 of 3 ...
[18:41:31.284]  - Finding globals in '...' for chunk #3 ...
[18:41:31.284] getGlobalsAndPackages() ...
[18:41:31.284] Searching for globals...
[18:41:31.285] 
[18:41:31.285] Searching for globals ... DONE
[18:41:31.285] - globals: [0] <none>
[18:41:31.285] getGlobalsAndPackages() ... DONE
[18:41:31.286]    + additional globals found: [n=0] 
[18:41:31.286]    + additional namespaces needed: [n=0] 
[18:41:31.286]  - Finding globals in '...' for chunk #3 ... DONE
[18:41:31.286]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[18:41:31.286]  - seeds: <none>
[18:41:31.286]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.287] getGlobalsAndPackages() ...
[18:41:31.287] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.287] Resolving globals: FALSE
[18:41:31.288] The total size of the 5 globals is 876 bytes (876 bytes)
[18:41:31.289] 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 876 bytes.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.289] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.289] 
[18:41:31.290] getGlobalsAndPackages() ... DONE
[18:41:31.290] run() for 'Future' ...
[18:41:31.290] - state: 'created'
[18:41:31.291] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.291] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.291] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.291]   - Field: 'label'
[18:41:31.292]   - Field: 'local'
[18:41:31.292]   - Field: 'owner'
[18:41:31.292]   - Field: 'envir'
[18:41:31.292]   - Field: 'packages'
[18:41:31.293]   - Field: 'gc'
[18:41:31.293]   - Field: 'conditions'
[18:41:31.293]   - Field: 'expr'
[18:41:31.293]   - Field: 'uuid'
[18:41:31.293]   - Field: 'seed'
[18:41:31.294]   - Field: 'version'
[18:41:31.294]   - Field: 'result'
[18:41:31.294]   - Field: 'asynchronous'
[18:41:31.294]   - Field: 'calls'
[18:41:31.295]   - Field: 'globals'
[18:41:31.295]   - Field: 'stdout'
[18:41:31.295]   - Field: 'earlySignal'
[18:41:31.295]   - Field: 'lazy'
[18:41:31.295]   - Field: 'state'
[18:41:31.296] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.296] - Launch lazy future ...
[18:41:31.296] Packages needed by the future expression (n = 0): <none>
[18:41:31.296] Packages needed by future strategies (n = 0): <none>
[18:41:31.297] {
[18:41:31.297]     {
[18:41:31.297]         {
[18:41:31.297]             ...future.startTime <- base::Sys.time()
[18:41:31.297]             {
[18:41:31.297]                 {
[18:41:31.297]                   {
[18:41:31.297]                     base::local({
[18:41:31.297]                       has_future <- base::requireNamespace("future", 
[18:41:31.297]                         quietly = TRUE)
[18:41:31.297]                       if (has_future) {
[18:41:31.297]                         ns <- base::getNamespace("future")
[18:41:31.297]                         version <- ns[[".package"]][["version"]]
[18:41:31.297]                         if (is.null(version)) 
[18:41:31.297]                           version <- utils::packageVersion("future")
[18:41:31.297]                       }
[18:41:31.297]                       else {
[18:41:31.297]                         version <- NULL
[18:41:31.297]                       }
[18:41:31.297]                       if (!has_future || version < "1.8.0") {
[18:41:31.297]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.297]                           "", base::R.version$version.string), 
[18:41:31.297]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.297]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.297]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.297]                             "release", "version")], collapse = " "), 
[18:41:31.297]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.297]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.297]                           info)
[18:41:31.297]                         info <- base::paste(info, collapse = "; ")
[18:41:31.297]                         if (!has_future) {
[18:41:31.297]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.297]                             info)
[18:41:31.297]                         }
[18:41:31.297]                         else {
[18:41:31.297]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.297]                             info, version)
[18:41:31.297]                         }
[18:41:31.297]                         base::stop(msg)
[18:41:31.297]                       }
[18:41:31.297]                     })
[18:41:31.297]                   }
[18:41:31.297]                   ...future.strategy.old <- future::plan("list")
[18:41:31.297]                   options(future.plan = NULL)
[18:41:31.297]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.297]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.297]                 }
[18:41:31.297]                 ...future.workdir <- getwd()
[18:41:31.297]             }
[18:41:31.297]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.297]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.297]         }
[18:41:31.297]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.297]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[18:41:31.297]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.297]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.297]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.297]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.297]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.297]             base::names(...future.oldOptions))
[18:41:31.297]     }
[18:41:31.297]     if (FALSE) {
[18:41:31.297]     }
[18:41:31.297]     else {
[18:41:31.297]         if (TRUE) {
[18:41:31.297]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.297]                 open = "w")
[18:41:31.297]         }
[18:41:31.297]         else {
[18:41:31.297]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.297]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.297]         }
[18:41:31.297]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.297]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.297]             base::sink(type = "output", split = FALSE)
[18:41:31.297]             base::close(...future.stdout)
[18:41:31.297]         }, add = TRUE)
[18:41:31.297]     }
[18:41:31.297]     ...future.frame <- base::sys.nframe()
[18:41:31.297]     ...future.conditions <- base::list()
[18:41:31.297]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.297]     if (FALSE) {
[18:41:31.297]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.297]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.297]     }
[18:41:31.297]     ...future.result <- base::tryCatch({
[18:41:31.297]         base::withCallingHandlers({
[18:41:31.297]             ...future.value <- base::withVisible(base::local({
[18:41:31.297]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.297]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.297]                   ...future.globals.maxSize)) {
[18:41:31.297]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.297]                   on.exit(options(oopts), add = TRUE)
[18:41:31.297]                 }
[18:41:31.297]                 {
[18:41:31.297]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.297]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.297]                     USE.NAMES = FALSE)
[18:41:31.297]                   do.call(mapply, args = args)
[18:41:31.297]                 }
[18:41:31.297]             }))
[18:41:31.297]             future::FutureResult(value = ...future.value$value, 
[18:41:31.297]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.297]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.297]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.297]                     ...future.globalenv.names))
[18:41:31.297]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.297]         }, condition = base::local({
[18:41:31.297]             c <- base::c
[18:41:31.297]             inherits <- base::inherits
[18:41:31.297]             invokeRestart <- base::invokeRestart
[18:41:31.297]             length <- base::length
[18:41:31.297]             list <- base::list
[18:41:31.297]             seq.int <- base::seq.int
[18:41:31.297]             signalCondition <- base::signalCondition
[18:41:31.297]             sys.calls <- base::sys.calls
[18:41:31.297]             `[[` <- base::`[[`
[18:41:31.297]             `+` <- base::`+`
[18:41:31.297]             `<<-` <- base::`<<-`
[18:41:31.297]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.297]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.297]                   3L)]
[18:41:31.297]             }
[18:41:31.297]             function(cond) {
[18:41:31.297]                 is_error <- inherits(cond, "error")
[18:41:31.297]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.297]                   NULL)
[18:41:31.297]                 if (is_error) {
[18:41:31.297]                   sessionInformation <- function() {
[18:41:31.297]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.297]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.297]                       search = base::search(), system = base::Sys.info())
[18:41:31.297]                   }
[18:41:31.297]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.297]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.297]                     cond$call), session = sessionInformation(), 
[18:41:31.297]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.297]                   signalCondition(cond)
[18:41:31.297]                 }
[18:41:31.297]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.297]                 "immediateCondition"))) {
[18:41:31.297]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.297]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.297]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.297]                   if (TRUE && !signal) {
[18:41:31.297]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.297]                     {
[18:41:31.297]                       inherits <- base::inherits
[18:41:31.297]                       invokeRestart <- base::invokeRestart
[18:41:31.297]                       is.null <- base::is.null
[18:41:31.297]                       muffled <- FALSE
[18:41:31.297]                       if (inherits(cond, "message")) {
[18:41:31.297]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.297]                         if (muffled) 
[18:41:31.297]                           invokeRestart("muffleMessage")
[18:41:31.297]                       }
[18:41:31.297]                       else if (inherits(cond, "warning")) {
[18:41:31.297]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.297]                         if (muffled) 
[18:41:31.297]                           invokeRestart("muffleWarning")
[18:41:31.297]                       }
[18:41:31.297]                       else if (inherits(cond, "condition")) {
[18:41:31.297]                         if (!is.null(pattern)) {
[18:41:31.297]                           computeRestarts <- base::computeRestarts
[18:41:31.297]                           grepl <- base::grepl
[18:41:31.297]                           restarts <- computeRestarts(cond)
[18:41:31.297]                           for (restart in restarts) {
[18:41:31.297]                             name <- restart$name
[18:41:31.297]                             if (is.null(name)) 
[18:41:31.297]                               next
[18:41:31.297]                             if (!grepl(pattern, name)) 
[18:41:31.297]                               next
[18:41:31.297]                             invokeRestart(restart)
[18:41:31.297]                             muffled <- TRUE
[18:41:31.297]                             break
[18:41:31.297]                           }
[18:41:31.297]                         }
[18:41:31.297]                       }
[18:41:31.297]                       invisible(muffled)
[18:41:31.297]                     }
[18:41:31.297]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.297]                   }
[18:41:31.297]                 }
[18:41:31.297]                 else {
[18:41:31.297]                   if (TRUE) {
[18:41:31.297]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.297]                     {
[18:41:31.297]                       inherits <- base::inherits
[18:41:31.297]                       invokeRestart <- base::invokeRestart
[18:41:31.297]                       is.null <- base::is.null
[18:41:31.297]                       muffled <- FALSE
[18:41:31.297]                       if (inherits(cond, "message")) {
[18:41:31.297]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.297]                         if (muffled) 
[18:41:31.297]                           invokeRestart("muffleMessage")
[18:41:31.297]                       }
[18:41:31.297]                       else if (inherits(cond, "warning")) {
[18:41:31.297]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.297]                         if (muffled) 
[18:41:31.297]                           invokeRestart("muffleWarning")
[18:41:31.297]                       }
[18:41:31.297]                       else if (inherits(cond, "condition")) {
[18:41:31.297]                         if (!is.null(pattern)) {
[18:41:31.297]                           computeRestarts <- base::computeRestarts
[18:41:31.297]                           grepl <- base::grepl
[18:41:31.297]                           restarts <- computeRestarts(cond)
[18:41:31.297]                           for (restart in restarts) {
[18:41:31.297]                             name <- restart$name
[18:41:31.297]                             if (is.null(name)) 
[18:41:31.297]                               next
[18:41:31.297]                             if (!grepl(pattern, name)) 
[18:41:31.297]                               next
[18:41:31.297]                             invokeRestart(restart)
[18:41:31.297]                             muffled <- TRUE
[18:41:31.297]                             break
[18:41:31.297]                           }
[18:41:31.297]                         }
[18:41:31.297]                       }
[18:41:31.297]                       invisible(muffled)
[18:41:31.297]                     }
[18:41:31.297]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.297]                   }
[18:41:31.297]                 }
[18:41:31.297]             }
[18:41:31.297]         }))
[18:41:31.297]     }, error = function(ex) {
[18:41:31.297]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.297]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.297]                 ...future.rng), started = ...future.startTime, 
[18:41:31.297]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.297]             version = "1.8"), class = "FutureResult")
[18:41:31.297]     }, finally = {
[18:41:31.297]         if (!identical(...future.workdir, getwd())) 
[18:41:31.297]             setwd(...future.workdir)
[18:41:31.297]         {
[18:41:31.297]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.297]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.297]             }
[18:41:31.297]             base::options(...future.oldOptions)
[18:41:31.297]             if (.Platform$OS.type == "windows") {
[18:41:31.297]                 old_names <- names(...future.oldEnvVars)
[18:41:31.297]                 envs <- base::Sys.getenv()
[18:41:31.297]                 names <- names(envs)
[18:41:31.297]                 common <- intersect(names, old_names)
[18:41:31.297]                 added <- setdiff(names, old_names)
[18:41:31.297]                 removed <- setdiff(old_names, names)
[18:41:31.297]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.297]                   envs[common]]
[18:41:31.297]                 NAMES <- toupper(changed)
[18:41:31.297]                 args <- list()
[18:41:31.297]                 for (kk in seq_along(NAMES)) {
[18:41:31.297]                   name <- changed[[kk]]
[18:41:31.297]                   NAME <- NAMES[[kk]]
[18:41:31.297]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.297]                     next
[18:41:31.297]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.297]                 }
[18:41:31.297]                 NAMES <- toupper(added)
[18:41:31.297]                 for (kk in seq_along(NAMES)) {
[18:41:31.297]                   name <- added[[kk]]
[18:41:31.297]                   NAME <- NAMES[[kk]]
[18:41:31.297]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.297]                     next
[18:41:31.297]                   args[[name]] <- ""
[18:41:31.297]                 }
[18:41:31.297]                 NAMES <- toupper(removed)
[18:41:31.297]                 for (kk in seq_along(NAMES)) {
[18:41:31.297]                   name <- removed[[kk]]
[18:41:31.297]                   NAME <- NAMES[[kk]]
[18:41:31.297]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.297]                     next
[18:41:31.297]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.297]                 }
[18:41:31.297]                 if (length(args) > 0) 
[18:41:31.297]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.297]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.297]             }
[18:41:31.297]             else {
[18:41:31.297]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.297]             }
[18:41:31.297]             {
[18:41:31.297]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.297]                   0L) {
[18:41:31.297]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.297]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.297]                   base::options(opts)
[18:41:31.297]                 }
[18:41:31.297]                 {
[18:41:31.297]                   {
[18:41:31.297]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.297]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.297]                     -486500277L), envir = base::globalenv(), 
[18:41:31.297]                       inherits = FALSE)
[18:41:31.297]                     NULL
[18:41:31.297]                   }
[18:41:31.297]                   options(future.plan = NULL)
[18:41:31.297]                   if (is.na(NA_character_)) 
[18:41:31.297]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.297]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.297]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.297]                     .init = FALSE)
[18:41:31.297]                 }
[18:41:31.297]             }
[18:41:31.297]         }
[18:41:31.297]     })
[18:41:31.297]     if (TRUE) {
[18:41:31.297]         base::sink(type = "output", split = FALSE)
[18:41:31.297]         if (TRUE) {
[18:41:31.297]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.297]         }
[18:41:31.297]         else {
[18:41:31.297]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.297]         }
[18:41:31.297]         base::close(...future.stdout)
[18:41:31.297]         ...future.stdout <- NULL
[18:41:31.297]     }
[18:41:31.297]     ...future.result$conditions <- ...future.conditions
[18:41:31.297]     ...future.result$finished <- base::Sys.time()
[18:41:31.297]     ...future.result
[18:41:31.297] }
[18:41:31.302] assign_globals() ...
[18:41:31.302] List of 5
[18:41:31.302]  $ ...future.FUN            :function (C, k)  
[18:41:31.302]  $ MoreArgs                 : NULL
[18:41:31.302]  $ ...future.elements_ii    :List of 2
[18:41:31.302]   ..$ :List of 2
[18:41:31.302]   .. ..$ : chr "B"
[18:41:31.302]   .. ..$ : chr "E"
[18:41:31.302]   ..$ :List of 2
[18:41:31.302]   .. ..$ : int 4
[18:41:31.302]   .. ..$ : int 1
[18:41:31.302]  $ ...future.seeds_ii       : NULL
[18:41:31.302]  $ ...future.globals.maxSize: NULL
[18:41:31.302]  - attr(*, "where")=List of 5
[18:41:31.302]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.302]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.302]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.302]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.302]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.302]  - attr(*, "resolved")= logi FALSE
[18:41:31.302]  - attr(*, "total_size")= int 876
[18:41:31.302]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.302]  - attr(*, "already-done")= logi TRUE
[18:41:31.311] - reassign environment for '...future.FUN'
[18:41:31.311] - copied '...future.FUN' to environment
[18:41:31.311] - copied 'MoreArgs' to environment
[18:41:31.312] - copied '...future.elements_ii' to environment
[18:41:31.312] - copied '...future.seeds_ii' to environment
[18:41:31.312] - copied '...future.globals.maxSize' to environment
[18:41:31.312] assign_globals() ... done
[18:41:31.313] plan(): Setting new future strategy stack:
[18:41:31.313] List of future strategies:
[18:41:31.313] 1. sequential:
[18:41:31.313]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.313]    - tweaked: FALSE
[18:41:31.313]    - call: NULL
[18:41:31.314] plan(): nbrOfWorkers() = 1
[18:41:31.315] plan(): Setting new future strategy stack:
[18:41:31.315] List of future strategies:
[18:41:31.315] 1. sequential:
[18:41:31.315]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.315]    - tweaked: FALSE
[18:41:31.315]    - call: plan(strategy)
[18:41:31.316] plan(): nbrOfWorkers() = 1
[18:41:31.317] SequentialFuture started (and completed)
[18:41:31.317] - Launch lazy future ... done
[18:41:31.317] run() for 'SequentialFuture' ... done
[18:41:31.317] Created future:
[18:41:31.317] SequentialFuture:
[18:41:31.317] Label: 'future_mapply-3'
[18:41:31.317] Expression:
[18:41:31.317] {
[18:41:31.317]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.317]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.317]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.317]         on.exit(options(oopts), add = TRUE)
[18:41:31.317]     }
[18:41:31.317]     {
[18:41:31.317]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.317]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.317]         do.call(mapply, args = args)
[18:41:31.317]     }
[18:41:31.317] }
[18:41:31.317] Lazy evaluation: FALSE
[18:41:31.317] Asynchronous evaluation: FALSE
[18:41:31.317] Local evaluation: TRUE
[18:41:31.317] Environment: R_GlobalEnv
[18:41:31.317] Capture standard output: TRUE
[18:41:31.317] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.317] Globals: 5 objects totaling 876 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.317] Packages: <none>
[18:41:31.317] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.317] Resolved: TRUE
[18:41:31.317] Value: 68 bytes of class 'list'
[18:41:31.317] Early signaling: FALSE
[18:41:31.317] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.317] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.319] Chunk #3 of 3 ... DONE
[18:41:31.319] Launching 3 futures (chunks) ... DONE
[18:41:31.319] Resolving 3 futures (chunks) ...
[18:41:31.319] resolve() on list ...
[18:41:31.320]  recursive: 0
[18:41:31.320]  length: 3
[18:41:31.320] 
[18:41:31.320] resolved() for 'SequentialFuture' ...
[18:41:31.320] - state: 'finished'
[18:41:31.321] - run: TRUE
[18:41:31.321] - result: 'FutureResult'
[18:41:31.321] resolved() for 'SequentialFuture' ... done
[18:41:31.321] Future #1
[18:41:31.322] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.322] - nx: 3
[18:41:31.322] - relay: TRUE
[18:41:31.322] - stdout: TRUE
[18:41:31.322] - signal: TRUE
[18:41:31.323] - resignal: FALSE
[18:41:31.323] - force: TRUE
[18:41:31.323] - relayed: [n=3] FALSE, FALSE, FALSE
[18:41:31.323] - queued futures: [n=3] FALSE, FALSE, FALSE
[18:41:31.323]  - until=1
[18:41:31.324]  - relaying element #1
[18:41:31.324] - relayed: [n=3] TRUE, FALSE, FALSE
[18:41:31.324] - queued futures: [n=3] TRUE, FALSE, FALSE
[18:41:31.324] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.325]  length: 2 (resolved future 1)
[18:41:31.325] resolved() for 'SequentialFuture' ...
[18:41:31.325] - state: 'finished'
[18:41:31.325] - run: TRUE
[18:41:31.325] - result: 'FutureResult'
[18:41:31.326] resolved() for 'SequentialFuture' ... done
[18:41:31.326] Future #2
[18:41:31.326] signalConditionsASAP(SequentialFuture, pos=2) ...
[18:41:31.326] - nx: 3
[18:41:31.327] - relay: TRUE
[18:41:31.327] - stdout: TRUE
[18:41:31.327] - signal: TRUE
[18:41:31.327] - resignal: FALSE
[18:41:31.327] - force: TRUE
[18:41:31.327] - relayed: [n=3] TRUE, FALSE, FALSE
[18:41:31.328] - queued futures: [n=3] TRUE, FALSE, FALSE
[18:41:31.328]  - until=2
[18:41:31.328]  - relaying element #2
[18:41:31.328] - relayed: [n=3] TRUE, TRUE, FALSE
[18:41:31.329] - queued futures: [n=3] TRUE, TRUE, FALSE
[18:41:31.329] signalConditionsASAP(SequentialFuture, pos=2) ... done
[18:41:31.329]  length: 1 (resolved future 2)
[18:41:31.329] resolved() for 'SequentialFuture' ...
[18:41:31.329] - state: 'finished'
[18:41:31.330] - run: TRUE
[18:41:31.330] - result: 'FutureResult'
[18:41:31.330] resolved() for 'SequentialFuture' ... done
[18:41:31.334] Future #3
[18:41:31.334] signalConditionsASAP(SequentialFuture, pos=3) ...
[18:41:31.334] - nx: 3
[18:41:31.334] - relay: TRUE
[18:41:31.334] - stdout: TRUE
[18:41:31.335] - signal: TRUE
[18:41:31.335] - resignal: FALSE
[18:41:31.335] - force: TRUE
[18:41:31.335] - relayed: [n=3] TRUE, TRUE, FALSE
[18:41:31.335] - queued futures: [n=3] TRUE, TRUE, FALSE
[18:41:31.335]  - until=3
[18:41:31.335]  - relaying element #3
[18:41:31.336] - relayed: [n=3] TRUE, TRUE, TRUE
[18:41:31.336] - queued futures: [n=3] TRUE, TRUE, TRUE
[18:41:31.336] signalConditionsASAP(SequentialFuture, pos=3) ... done
[18:41:31.336]  length: 0 (resolved future 3)
[18:41:31.336] Relaying remaining futures
[18:41:31.337] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.337] - nx: 3
[18:41:31.337] - relay: TRUE
[18:41:31.337] - stdout: TRUE
[18:41:31.337] - signal: TRUE
[18:41:31.337] - resignal: FALSE
[18:41:31.338] - force: TRUE
[18:41:31.338] - relayed: [n=3] TRUE, TRUE, TRUE
[18:41:31.338] - queued futures: [n=3] TRUE, TRUE, TRUE
 - flush all
[18:41:31.338] - relayed: [n=3] TRUE, TRUE, TRUE
[18:41:31.338] - queued futures: [n=3] TRUE, TRUE, TRUE
[18:41:31.338] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.339] resolve() on list ... DONE
[18:41:31.339]  - Number of value chunks collected: 3
[18:41:31.339] Resolving 3 futures (chunks) ... DONE
[18:41:31.339] Reducing values from 3 chunks ...
[18:41:31.339]  - Number of values collected after concatenation: 5
[18:41:31.340]  - Number of values expected: 5
[18:41:31.340] Reverse index remapping (attribute 'ordering'): [n = 5] 1, 4, 2, 3, 5
[18:41:31.340] Reducing values from 3 chunks ... DONE
[18:41:31.340] future_mapply() ... DONE
[18:41:31.341] future_mapply() ...
[18:41:31.341] Number of chunks: 1
[18:41:31.341] getGlobalsAndPackagesXApply() ...
[18:41:31.341]  - future.globals: TRUE
[18:41:31.341] getGlobalsAndPackages() ...
[18:41:31.341] Searching for globals...
[18:41:31.343] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:31.343] Searching for globals ... DONE
[18:41:31.344] Resolving globals: FALSE
[18:41:31.344] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:31.344] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:31.345] - globals: [1] 'FUN'
[18:41:31.345] 
[18:41:31.345] getGlobalsAndPackages() ... DONE
[18:41:31.345]  - globals found/used: [n=1] 'FUN'
[18:41:31.345]  - needed namespaces: [n=0] 
[18:41:31.346] Finding globals ... DONE
[18:41:31.346] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.346] List of 2
[18:41:31.346]  $ ...future.FUN:function (C, k)  
[18:41:31.346]  $ MoreArgs     : list()
[18:41:31.346]  - attr(*, "where")=List of 2
[18:41:31.346]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.346]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.346]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.346]  - attr(*, "resolved")= logi FALSE
[18:41:31.346]  - attr(*, "total_size")= num NA
[18:41:31.349] Packages to be attached in all futures: [n=0] 
[18:41:31.350] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.350] Number of futures (= number of chunks): 1
[18:41:31.350] Launching 1 futures (chunks) ...
[18:41:31.350] Chunk #1 of 1 ...
[18:41:31.350]  - Finding globals in '...' for chunk #1 ...
[18:41:31.351] getGlobalsAndPackages() ...
[18:41:31.351] Searching for globals...
[18:41:31.351] 
[18:41:31.351] Searching for globals ... DONE
[18:41:31.352] - globals: [0] <none>
[18:41:31.352] getGlobalsAndPackages() ... DONE
[18:41:31.352]    + additional globals found: [n=0] 
[18:41:31.352]    + additional namespaces needed: [n=0] 
[18:41:31.352]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.352]  - seeds: <none>
[18:41:31.352]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.353] getGlobalsAndPackages() ...
[18:41:31.353] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.353] Resolving globals: FALSE
[18:41:31.354] The total size of the 5 globals is 967 bytes (967 bytes)
[18:41:31.354] 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 967 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (192 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:31.354] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.355] 
[18:41:31.355] getGlobalsAndPackages() ... DONE
[18:41:31.355] run() for 'Future' ...
[18:41:31.355] - state: 'created'
[18:41:31.356] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.356] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.356] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.356]   - Field: 'label'
[18:41:31.357]   - Field: 'local'
[18:41:31.357]   - Field: 'owner'
[18:41:31.357]   - Field: 'envir'
[18:41:31.357]   - Field: 'packages'
[18:41:31.357]   - Field: 'gc'
[18:41:31.358]   - Field: 'conditions'
[18:41:31.358]   - Field: 'expr'
[18:41:31.358]   - Field: 'uuid'
[18:41:31.358]   - Field: 'seed'
[18:41:31.358]   - Field: 'version'
[18:41:31.358]   - Field: 'result'
[18:41:31.359]   - Field: 'asynchronous'
[18:41:31.359]   - Field: 'calls'
[18:41:31.359]   - Field: 'globals'
[18:41:31.359]   - Field: 'stdout'
[18:41:31.359]   - Field: 'earlySignal'
[18:41:31.360]   - Field: 'lazy'
[18:41:31.360]   - Field: 'state'
[18:41:31.360] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.360] - Launch lazy future ...
[18:41:31.360] Packages needed by the future expression (n = 0): <none>
[18:41:31.361] Packages needed by future strategies (n = 0): <none>
[18:41:31.361] {
[18:41:31.361]     {
[18:41:31.361]         {
[18:41:31.361]             ...future.startTime <- base::Sys.time()
[18:41:31.361]             {
[18:41:31.361]                 {
[18:41:31.361]                   {
[18:41:31.361]                     base::local({
[18:41:31.361]                       has_future <- base::requireNamespace("future", 
[18:41:31.361]                         quietly = TRUE)
[18:41:31.361]                       if (has_future) {
[18:41:31.361]                         ns <- base::getNamespace("future")
[18:41:31.361]                         version <- ns[[".package"]][["version"]]
[18:41:31.361]                         if (is.null(version)) 
[18:41:31.361]                           version <- utils::packageVersion("future")
[18:41:31.361]                       }
[18:41:31.361]                       else {
[18:41:31.361]                         version <- NULL
[18:41:31.361]                       }
[18:41:31.361]                       if (!has_future || version < "1.8.0") {
[18:41:31.361]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.361]                           "", base::R.version$version.string), 
[18:41:31.361]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.361]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.361]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.361]                             "release", "version")], collapse = " "), 
[18:41:31.361]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.361]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.361]                           info)
[18:41:31.361]                         info <- base::paste(info, collapse = "; ")
[18:41:31.361]                         if (!has_future) {
[18:41:31.361]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.361]                             info)
[18:41:31.361]                         }
[18:41:31.361]                         else {
[18:41:31.361]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.361]                             info, version)
[18:41:31.361]                         }
[18:41:31.361]                         base::stop(msg)
[18:41:31.361]                       }
[18:41:31.361]                     })
[18:41:31.361]                   }
[18:41:31.361]                   ...future.strategy.old <- future::plan("list")
[18:41:31.361]                   options(future.plan = NULL)
[18:41:31.361]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.361]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.361]                 }
[18:41:31.361]                 ...future.workdir <- getwd()
[18:41:31.361]             }
[18:41:31.361]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.361]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.361]         }
[18:41:31.361]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.361]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.361]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.361]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.361]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.361]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.361]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.361]             base::names(...future.oldOptions))
[18:41:31.361]     }
[18:41:31.361]     if (FALSE) {
[18:41:31.361]     }
[18:41:31.361]     else {
[18:41:31.361]         if (TRUE) {
[18:41:31.361]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.361]                 open = "w")
[18:41:31.361]         }
[18:41:31.361]         else {
[18:41:31.361]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.361]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.361]         }
[18:41:31.361]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.361]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.361]             base::sink(type = "output", split = FALSE)
[18:41:31.361]             base::close(...future.stdout)
[18:41:31.361]         }, add = TRUE)
[18:41:31.361]     }
[18:41:31.361]     ...future.frame <- base::sys.nframe()
[18:41:31.361]     ...future.conditions <- base::list()
[18:41:31.361]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.361]     if (FALSE) {
[18:41:31.361]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.361]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.361]     }
[18:41:31.361]     ...future.result <- base::tryCatch({
[18:41:31.361]         base::withCallingHandlers({
[18:41:31.361]             ...future.value <- base::withVisible(base::local({
[18:41:31.361]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.361]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.361]                   ...future.globals.maxSize)) {
[18:41:31.361]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.361]                   on.exit(options(oopts), add = TRUE)
[18:41:31.361]                 }
[18:41:31.361]                 {
[18:41:31.361]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.361]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.361]                     USE.NAMES = FALSE)
[18:41:31.361]                   do.call(mapply, args = args)
[18:41:31.361]                 }
[18:41:31.361]             }))
[18:41:31.361]             future::FutureResult(value = ...future.value$value, 
[18:41:31.361]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.361]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.361]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.361]                     ...future.globalenv.names))
[18:41:31.361]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.361]         }, condition = base::local({
[18:41:31.361]             c <- base::c
[18:41:31.361]             inherits <- base::inherits
[18:41:31.361]             invokeRestart <- base::invokeRestart
[18:41:31.361]             length <- base::length
[18:41:31.361]             list <- base::list
[18:41:31.361]             seq.int <- base::seq.int
[18:41:31.361]             signalCondition <- base::signalCondition
[18:41:31.361]             sys.calls <- base::sys.calls
[18:41:31.361]             `[[` <- base::`[[`
[18:41:31.361]             `+` <- base::`+`
[18:41:31.361]             `<<-` <- base::`<<-`
[18:41:31.361]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.361]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.361]                   3L)]
[18:41:31.361]             }
[18:41:31.361]             function(cond) {
[18:41:31.361]                 is_error <- inherits(cond, "error")
[18:41:31.361]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.361]                   NULL)
[18:41:31.361]                 if (is_error) {
[18:41:31.361]                   sessionInformation <- function() {
[18:41:31.361]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.361]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.361]                       search = base::search(), system = base::Sys.info())
[18:41:31.361]                   }
[18:41:31.361]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.361]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.361]                     cond$call), session = sessionInformation(), 
[18:41:31.361]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.361]                   signalCondition(cond)
[18:41:31.361]                 }
[18:41:31.361]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.361]                 "immediateCondition"))) {
[18:41:31.361]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.361]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.361]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.361]                   if (TRUE && !signal) {
[18:41:31.361]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.361]                     {
[18:41:31.361]                       inherits <- base::inherits
[18:41:31.361]                       invokeRestart <- base::invokeRestart
[18:41:31.361]                       is.null <- base::is.null
[18:41:31.361]                       muffled <- FALSE
[18:41:31.361]                       if (inherits(cond, "message")) {
[18:41:31.361]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.361]                         if (muffled) 
[18:41:31.361]                           invokeRestart("muffleMessage")
[18:41:31.361]                       }
[18:41:31.361]                       else if (inherits(cond, "warning")) {
[18:41:31.361]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.361]                         if (muffled) 
[18:41:31.361]                           invokeRestart("muffleWarning")
[18:41:31.361]                       }
[18:41:31.361]                       else if (inherits(cond, "condition")) {
[18:41:31.361]                         if (!is.null(pattern)) {
[18:41:31.361]                           computeRestarts <- base::computeRestarts
[18:41:31.361]                           grepl <- base::grepl
[18:41:31.361]                           restarts <- computeRestarts(cond)
[18:41:31.361]                           for (restart in restarts) {
[18:41:31.361]                             name <- restart$name
[18:41:31.361]                             if (is.null(name)) 
[18:41:31.361]                               next
[18:41:31.361]                             if (!grepl(pattern, name)) 
[18:41:31.361]                               next
[18:41:31.361]                             invokeRestart(restart)
[18:41:31.361]                             muffled <- TRUE
[18:41:31.361]                             break
[18:41:31.361]                           }
[18:41:31.361]                         }
[18:41:31.361]                       }
[18:41:31.361]                       invisible(muffled)
[18:41:31.361]                     }
[18:41:31.361]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.361]                   }
[18:41:31.361]                 }
[18:41:31.361]                 else {
[18:41:31.361]                   if (TRUE) {
[18:41:31.361]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.361]                     {
[18:41:31.361]                       inherits <- base::inherits
[18:41:31.361]                       invokeRestart <- base::invokeRestart
[18:41:31.361]                       is.null <- base::is.null
[18:41:31.361]                       muffled <- FALSE
[18:41:31.361]                       if (inherits(cond, "message")) {
[18:41:31.361]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.361]                         if (muffled) 
[18:41:31.361]                           invokeRestart("muffleMessage")
[18:41:31.361]                       }
[18:41:31.361]                       else if (inherits(cond, "warning")) {
[18:41:31.361]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.361]                         if (muffled) 
[18:41:31.361]                           invokeRestart("muffleWarning")
[18:41:31.361]                       }
[18:41:31.361]                       else if (inherits(cond, "condition")) {
[18:41:31.361]                         if (!is.null(pattern)) {
[18:41:31.361]                           computeRestarts <- base::computeRestarts
[18:41:31.361]                           grepl <- base::grepl
[18:41:31.361]                           restarts <- computeRestarts(cond)
[18:41:31.361]                           for (restart in restarts) {
[18:41:31.361]                             name <- restart$name
[18:41:31.361]                             if (is.null(name)) 
[18:41:31.361]                               next
[18:41:31.361]                             if (!grepl(pattern, name)) 
[18:41:31.361]                               next
[18:41:31.361]                             invokeRestart(restart)
[18:41:31.361]                             muffled <- TRUE
[18:41:31.361]                             break
[18:41:31.361]                           }
[18:41:31.361]                         }
[18:41:31.361]                       }
[18:41:31.361]                       invisible(muffled)
[18:41:31.361]                     }
[18:41:31.361]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.361]                   }
[18:41:31.361]                 }
[18:41:31.361]             }
[18:41:31.361]         }))
[18:41:31.361]     }, error = function(ex) {
[18:41:31.361]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.361]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.361]                 ...future.rng), started = ...future.startTime, 
[18:41:31.361]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.361]             version = "1.8"), class = "FutureResult")
[18:41:31.361]     }, finally = {
[18:41:31.361]         if (!identical(...future.workdir, getwd())) 
[18:41:31.361]             setwd(...future.workdir)
[18:41:31.361]         {
[18:41:31.361]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.361]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.361]             }
[18:41:31.361]             base::options(...future.oldOptions)
[18:41:31.361]             if (.Platform$OS.type == "windows") {
[18:41:31.361]                 old_names <- names(...future.oldEnvVars)
[18:41:31.361]                 envs <- base::Sys.getenv()
[18:41:31.361]                 names <- names(envs)
[18:41:31.361]                 common <- intersect(names, old_names)
[18:41:31.361]                 added <- setdiff(names, old_names)
[18:41:31.361]                 removed <- setdiff(old_names, names)
[18:41:31.361]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.361]                   envs[common]]
[18:41:31.361]                 NAMES <- toupper(changed)
[18:41:31.361]                 args <- list()
[18:41:31.361]                 for (kk in seq_along(NAMES)) {
[18:41:31.361]                   name <- changed[[kk]]
[18:41:31.361]                   NAME <- NAMES[[kk]]
[18:41:31.361]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.361]                     next
[18:41:31.361]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.361]                 }
[18:41:31.361]                 NAMES <- toupper(added)
[18:41:31.361]                 for (kk in seq_along(NAMES)) {
[18:41:31.361]                   name <- added[[kk]]
[18:41:31.361]                   NAME <- NAMES[[kk]]
[18:41:31.361]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.361]                     next
[18:41:31.361]                   args[[name]] <- ""
[18:41:31.361]                 }
[18:41:31.361]                 NAMES <- toupper(removed)
[18:41:31.361]                 for (kk in seq_along(NAMES)) {
[18:41:31.361]                   name <- removed[[kk]]
[18:41:31.361]                   NAME <- NAMES[[kk]]
[18:41:31.361]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.361]                     next
[18:41:31.361]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.361]                 }
[18:41:31.361]                 if (length(args) > 0) 
[18:41:31.361]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.361]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.361]             }
[18:41:31.361]             else {
[18:41:31.361]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.361]             }
[18:41:31.361]             {
[18:41:31.361]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.361]                   0L) {
[18:41:31.361]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.361]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.361]                   base::options(opts)
[18:41:31.361]                 }
[18:41:31.361]                 {
[18:41:31.361]                   {
[18:41:31.361]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.361]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.361]                     -486500277L), envir = base::globalenv(), 
[18:41:31.361]                       inherits = FALSE)
[18:41:31.361]                     NULL
[18:41:31.361]                   }
[18:41:31.361]                   options(future.plan = NULL)
[18:41:31.361]                   if (is.na(NA_character_)) 
[18:41:31.361]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.361]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.361]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.361]                     .init = FALSE)
[18:41:31.361]                 }
[18:41:31.361]             }
[18:41:31.361]         }
[18:41:31.361]     })
[18:41:31.361]     if (TRUE) {
[18:41:31.361]         base::sink(type = "output", split = FALSE)
[18:41:31.361]         if (TRUE) {
[18:41:31.361]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.361]         }
[18:41:31.361]         else {
[18:41:31.361]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.361]         }
[18:41:31.361]         base::close(...future.stdout)
[18:41:31.361]         ...future.stdout <- NULL
[18:41:31.361]     }
[18:41:31.361]     ...future.result$conditions <- ...future.conditions
[18:41:31.361]     ...future.result$finished <- base::Sys.time()
[18:41:31.361]     ...future.result
[18:41:31.361] }
[18:41:31.365] assign_globals() ...
[18:41:31.365] List of 5
[18:41:31.365]  $ ...future.FUN            :function (C, k)  
[18:41:31.365]  $ MoreArgs                 : list()
[18:41:31.365]  $ ...future.elements_ii    :List of 2
[18:41:31.365]   ..$ :List of 5
[18:41:31.365]   .. ..$ : chr "A"
[18:41:31.365]   .. ..$ : chr "B"
[18:41:31.365]   .. ..$ : chr "C"
[18:41:31.365]   .. ..$ : chr "D"
[18:41:31.365]   .. ..$ : chr "E"
[18:41:31.365]   ..$ :List of 5
[18:41:31.365]   .. ..$ : int 5
[18:41:31.365]   .. ..$ : int 4
[18:41:31.365]   .. ..$ : int 3
[18:41:31.365]   .. ..$ : int 2
[18:41:31.365]   .. ..$ : int 1
[18:41:31.365]  $ ...future.seeds_ii       : NULL
[18:41:31.365]  $ ...future.globals.maxSize: NULL
[18:41:31.365]  - attr(*, "where")=List of 5
[18:41:31.365]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.365]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.365]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.365]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.365]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.365]  - attr(*, "resolved")= logi FALSE
[18:41:31.365]  - attr(*, "total_size")= int 967
[18:41:31.365]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.365]  - attr(*, "already-done")= logi TRUE
[18:41:31.375] - reassign environment for '...future.FUN'
[18:41:31.375] - copied '...future.FUN' to environment
[18:41:31.375] - copied 'MoreArgs' to environment
[18:41:31.375] - copied '...future.elements_ii' to environment
[18:41:31.375] - copied '...future.seeds_ii' to environment
[18:41:31.375] - copied '...future.globals.maxSize' to environment
[18:41:31.376] assign_globals() ... done
[18:41:31.376] plan(): Setting new future strategy stack:
[18:41:31.376] List of future strategies:
[18:41:31.376] 1. sequential:
[18:41:31.376]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.376]    - tweaked: FALSE
[18:41:31.376]    - call: NULL
[18:41:31.377] plan(): nbrOfWorkers() = 1
[18:41:31.378] plan(): Setting new future strategy stack:
[18:41:31.378] List of future strategies:
[18:41:31.378] 1. sequential:
[18:41:31.378]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.378]    - tweaked: FALSE
[18:41:31.378]    - call: plan(strategy)
[18:41:31.379] plan(): nbrOfWorkers() = 1
[18:41:31.379] SequentialFuture started (and completed)
[18:41:31.379] - Launch lazy future ... done
[18:41:31.380] run() for 'SequentialFuture' ... done
[18:41:31.380] Created future:
[18:41:31.380] SequentialFuture:
[18:41:31.380] Label: 'future_.mapply-1'
[18:41:31.380] Expression:
[18:41:31.380] {
[18:41:31.380]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.380]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.380]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.380]         on.exit(options(oopts), add = TRUE)
[18:41:31.380]     }
[18:41:31.380]     {
[18:41:31.380]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.380]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.380]         do.call(mapply, args = args)
[18:41:31.380]     }
[18:41:31.380] }
[18:41:31.380] Lazy evaluation: FALSE
[18:41:31.380] Asynchronous evaluation: FALSE
[18:41:31.380] Local evaluation: TRUE
[18:41:31.380] Environment: R_GlobalEnv
[18:41:31.380] Capture standard output: TRUE
[18:41:31.380] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.380] Globals: 5 objects totaling 967 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 192 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.380] Packages: <none>
[18:41:31.380] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.380] Resolved: TRUE
[18:41:31.380] Value: 126 bytes of class 'list'
[18:41:31.380] Early signaling: FALSE
[18:41:31.380] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.380] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.381] Chunk #1 of 1 ... DONE
[18:41:31.381] Launching 1 futures (chunks) ... DONE
[18:41:31.382] Resolving 1 futures (chunks) ...
[18:41:31.382] resolve() on list ...
[18:41:31.382]  recursive: 0
[18:41:31.382]  length: 1
[18:41:31.382] 
[18:41:31.382] resolved() for 'SequentialFuture' ...
[18:41:31.383] - state: 'finished'
[18:41:31.383] - run: TRUE
[18:41:31.383] - result: 'FutureResult'
[18:41:31.383] resolved() for 'SequentialFuture' ... done
[18:41:31.383] Future #1
[18:41:31.384] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.384] - nx: 1
[18:41:31.384] - relay: TRUE
[18:41:31.384] - stdout: TRUE
[18:41:31.384] - signal: TRUE
[18:41:31.384] - resignal: FALSE
[18:41:31.385] - force: TRUE
[18:41:31.385] - relayed: [n=1] FALSE
[18:41:31.385] - queued futures: [n=1] FALSE
[18:41:31.385]  - until=1
[18:41:31.385]  - relaying element #1
[18:41:31.385] - relayed: [n=1] TRUE
[18:41:31.386] - queued futures: [n=1] TRUE
[18:41:31.386] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.386]  length: 0 (resolved future 1)
[18:41:31.386] Relaying remaining futures
[18:41:31.386] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.387] - nx: 1
[18:41:31.387] - relay: TRUE
[18:41:31.387] - stdout: TRUE
[18:41:31.387] - signal: TRUE
[18:41:31.387] - resignal: FALSE
[18:41:31.387] - force: TRUE
[18:41:31.387] - relayed: [n=1] TRUE
[18:41:31.388] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.388] - relayed: [n=1] TRUE
[18:41:31.388] - queued futures: [n=1] TRUE
[18:41:31.388] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.388] resolve() on list ... DONE
[18:41:31.389]  - Number of value chunks collected: 1
[18:41:31.389] Resolving 1 futures (chunks) ... DONE
[18:41:31.389] Reducing values from 1 chunks ...
[18:41:31.389]  - Number of values collected after concatenation: 5
[18:41:31.389]  - Number of values expected: 5
[18:41:31.389] Reducing values from 1 chunks ... DONE
[18:41:31.390] future_mapply() ... DONE
[18:41:31.390] future_mapply() ...
[18:41:31.391] Number of chunks: 2
[18:41:31.391] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[18:41:31.391] getGlobalsAndPackagesXApply() ...
[18:41:31.391]  - future.globals: TRUE
[18:41:31.391] getGlobalsAndPackages() ...
[18:41:31.391] Searching for globals...
[18:41:31.393] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:31.393] Searching for globals ... DONE
[18:41:31.394] Resolving globals: FALSE
[18:41:31.394] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:31.395] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:31.395] - globals: [1] 'FUN'
[18:41:31.395] 
[18:41:31.395] getGlobalsAndPackages() ... DONE
[18:41:31.395]  - globals found/used: [n=1] 'FUN'
[18:41:31.395]  - needed namespaces: [n=0] 
[18:41:31.396] Finding globals ... DONE
[18:41:31.396] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.396] List of 2
[18:41:31.396]  $ ...future.FUN:function (C, k)  
[18:41:31.396]  $ MoreArgs     : NULL
[18:41:31.396]  - attr(*, "where")=List of 2
[18:41:31.396]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.396]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.396]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.396]  - attr(*, "resolved")= logi FALSE
[18:41:31.396]  - attr(*, "total_size")= num NA
[18:41:31.399] Packages to be attached in all futures: [n=0] 
[18:41:31.399] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.400] Number of futures (= number of chunks): 2
[18:41:31.400] Launching 2 futures (chunks) ...
[18:41:31.400] Chunk #1 of 2 ...
[18:41:31.400]  - Finding globals in '...' for chunk #1 ...
[18:41:31.401] getGlobalsAndPackages() ...
[18:41:31.401] Searching for globals...
[18:41:31.401] 
[18:41:31.401] Searching for globals ... DONE
[18:41:31.401] - globals: [0] <none>
[18:41:31.402] getGlobalsAndPackages() ... DONE
[18:41:31.402]    + additional globals found: [n=0] 
[18:41:31.402]    + additional namespaces needed: [n=0] 
[18:41:31.402]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.402]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:31.402]  - seeds: <none>
[18:41:31.403]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.403] getGlobalsAndPackages() ...
[18:41:31.403] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.403] Resolving globals: FALSE
[18:41:31.404] The total size of the 5 globals is 876 bytes (876 bytes)
[18:41:31.405] 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 876 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.405] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.405] 
[18:41:31.405] getGlobalsAndPackages() ... DONE
[18:41:31.406] run() for 'Future' ...
[18:41:31.406] - state: 'created'
[18:41:31.406] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.406] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.407] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.407]   - Field: 'label'
[18:41:31.407]   - Field: 'local'
[18:41:31.407]   - Field: 'owner'
[18:41:31.407]   - Field: 'envir'
[18:41:31.408]   - Field: 'packages'
[18:41:31.408]   - Field: 'gc'
[18:41:31.408]   - Field: 'conditions'
[18:41:31.408]   - Field: 'expr'
[18:41:31.408]   - Field: 'uuid'
[18:41:31.408]   - Field: 'seed'
[18:41:31.409]   - Field: 'version'
[18:41:31.409]   - Field: 'result'
[18:41:31.409]   - Field: 'asynchronous'
[18:41:31.409]   - Field: 'calls'
[18:41:31.409]   - Field: 'globals'
[18:41:31.410]   - Field: 'stdout'
[18:41:31.410]   - Field: 'earlySignal'
[18:41:31.410]   - Field: 'lazy'
[18:41:31.410]   - Field: 'state'
[18:41:31.410] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.410] - Launch lazy future ...
[18:41:31.411] Packages needed by the future expression (n = 0): <none>
[18:41:31.411] Packages needed by future strategies (n = 0): <none>
[18:41:31.411] {
[18:41:31.411]     {
[18:41:31.411]         {
[18:41:31.411]             ...future.startTime <- base::Sys.time()
[18:41:31.411]             {
[18:41:31.411]                 {
[18:41:31.411]                   {
[18:41:31.411]                     base::local({
[18:41:31.411]                       has_future <- base::requireNamespace("future", 
[18:41:31.411]                         quietly = TRUE)
[18:41:31.411]                       if (has_future) {
[18:41:31.411]                         ns <- base::getNamespace("future")
[18:41:31.411]                         version <- ns[[".package"]][["version"]]
[18:41:31.411]                         if (is.null(version)) 
[18:41:31.411]                           version <- utils::packageVersion("future")
[18:41:31.411]                       }
[18:41:31.411]                       else {
[18:41:31.411]                         version <- NULL
[18:41:31.411]                       }
[18:41:31.411]                       if (!has_future || version < "1.8.0") {
[18:41:31.411]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.411]                           "", base::R.version$version.string), 
[18:41:31.411]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.411]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.411]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.411]                             "release", "version")], collapse = " "), 
[18:41:31.411]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.411]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.411]                           info)
[18:41:31.411]                         info <- base::paste(info, collapse = "; ")
[18:41:31.411]                         if (!has_future) {
[18:41:31.411]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.411]                             info)
[18:41:31.411]                         }
[18:41:31.411]                         else {
[18:41:31.411]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.411]                             info, version)
[18:41:31.411]                         }
[18:41:31.411]                         base::stop(msg)
[18:41:31.411]                       }
[18:41:31.411]                     })
[18:41:31.411]                   }
[18:41:31.411]                   ...future.strategy.old <- future::plan("list")
[18:41:31.411]                   options(future.plan = NULL)
[18:41:31.411]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.411]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.411]                 }
[18:41:31.411]                 ...future.workdir <- getwd()
[18:41:31.411]             }
[18:41:31.411]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.411]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.411]         }
[18:41:31.411]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.411]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:31.411]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.411]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.411]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.411]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.411]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.411]             base::names(...future.oldOptions))
[18:41:31.411]     }
[18:41:31.411]     if (FALSE) {
[18:41:31.411]     }
[18:41:31.411]     else {
[18:41:31.411]         if (TRUE) {
[18:41:31.411]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.411]                 open = "w")
[18:41:31.411]         }
[18:41:31.411]         else {
[18:41:31.411]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.411]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.411]         }
[18:41:31.411]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.411]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.411]             base::sink(type = "output", split = FALSE)
[18:41:31.411]             base::close(...future.stdout)
[18:41:31.411]         }, add = TRUE)
[18:41:31.411]     }
[18:41:31.411]     ...future.frame <- base::sys.nframe()
[18:41:31.411]     ...future.conditions <- base::list()
[18:41:31.411]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.411]     if (FALSE) {
[18:41:31.411]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.411]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.411]     }
[18:41:31.411]     ...future.result <- base::tryCatch({
[18:41:31.411]         base::withCallingHandlers({
[18:41:31.411]             ...future.value <- base::withVisible(base::local({
[18:41:31.411]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.411]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.411]                   ...future.globals.maxSize)) {
[18:41:31.411]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.411]                   on.exit(options(oopts), add = TRUE)
[18:41:31.411]                 }
[18:41:31.411]                 {
[18:41:31.411]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.411]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.411]                     USE.NAMES = FALSE)
[18:41:31.411]                   do.call(mapply, args = args)
[18:41:31.411]                 }
[18:41:31.411]             }))
[18:41:31.411]             future::FutureResult(value = ...future.value$value, 
[18:41:31.411]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.411]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.411]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.411]                     ...future.globalenv.names))
[18:41:31.411]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.411]         }, condition = base::local({
[18:41:31.411]             c <- base::c
[18:41:31.411]             inherits <- base::inherits
[18:41:31.411]             invokeRestart <- base::invokeRestart
[18:41:31.411]             length <- base::length
[18:41:31.411]             list <- base::list
[18:41:31.411]             seq.int <- base::seq.int
[18:41:31.411]             signalCondition <- base::signalCondition
[18:41:31.411]             sys.calls <- base::sys.calls
[18:41:31.411]             `[[` <- base::`[[`
[18:41:31.411]             `+` <- base::`+`
[18:41:31.411]             `<<-` <- base::`<<-`
[18:41:31.411]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.411]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.411]                   3L)]
[18:41:31.411]             }
[18:41:31.411]             function(cond) {
[18:41:31.411]                 is_error <- inherits(cond, "error")
[18:41:31.411]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.411]                   NULL)
[18:41:31.411]                 if (is_error) {
[18:41:31.411]                   sessionInformation <- function() {
[18:41:31.411]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.411]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.411]                       search = base::search(), system = base::Sys.info())
[18:41:31.411]                   }
[18:41:31.411]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.411]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.411]                     cond$call), session = sessionInformation(), 
[18:41:31.411]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.411]                   signalCondition(cond)
[18:41:31.411]                 }
[18:41:31.411]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.411]                 "immediateCondition"))) {
[18:41:31.411]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.411]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.411]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.411]                   if (TRUE && !signal) {
[18:41:31.411]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.411]                     {
[18:41:31.411]                       inherits <- base::inherits
[18:41:31.411]                       invokeRestart <- base::invokeRestart
[18:41:31.411]                       is.null <- base::is.null
[18:41:31.411]                       muffled <- FALSE
[18:41:31.411]                       if (inherits(cond, "message")) {
[18:41:31.411]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.411]                         if (muffled) 
[18:41:31.411]                           invokeRestart("muffleMessage")
[18:41:31.411]                       }
[18:41:31.411]                       else if (inherits(cond, "warning")) {
[18:41:31.411]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.411]                         if (muffled) 
[18:41:31.411]                           invokeRestart("muffleWarning")
[18:41:31.411]                       }
[18:41:31.411]                       else if (inherits(cond, "condition")) {
[18:41:31.411]                         if (!is.null(pattern)) {
[18:41:31.411]                           computeRestarts <- base::computeRestarts
[18:41:31.411]                           grepl <- base::grepl
[18:41:31.411]                           restarts <- computeRestarts(cond)
[18:41:31.411]                           for (restart in restarts) {
[18:41:31.411]                             name <- restart$name
[18:41:31.411]                             if (is.null(name)) 
[18:41:31.411]                               next
[18:41:31.411]                             if (!grepl(pattern, name)) 
[18:41:31.411]                               next
[18:41:31.411]                             invokeRestart(restart)
[18:41:31.411]                             muffled <- TRUE
[18:41:31.411]                             break
[18:41:31.411]                           }
[18:41:31.411]                         }
[18:41:31.411]                       }
[18:41:31.411]                       invisible(muffled)
[18:41:31.411]                     }
[18:41:31.411]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.411]                   }
[18:41:31.411]                 }
[18:41:31.411]                 else {
[18:41:31.411]                   if (TRUE) {
[18:41:31.411]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.411]                     {
[18:41:31.411]                       inherits <- base::inherits
[18:41:31.411]                       invokeRestart <- base::invokeRestart
[18:41:31.411]                       is.null <- base::is.null
[18:41:31.411]                       muffled <- FALSE
[18:41:31.411]                       if (inherits(cond, "message")) {
[18:41:31.411]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.411]                         if (muffled) 
[18:41:31.411]                           invokeRestart("muffleMessage")
[18:41:31.411]                       }
[18:41:31.411]                       else if (inherits(cond, "warning")) {
[18:41:31.411]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.411]                         if (muffled) 
[18:41:31.411]                           invokeRestart("muffleWarning")
[18:41:31.411]                       }
[18:41:31.411]                       else if (inherits(cond, "condition")) {
[18:41:31.411]                         if (!is.null(pattern)) {
[18:41:31.411]                           computeRestarts <- base::computeRestarts
[18:41:31.411]                           grepl <- base::grepl
[18:41:31.411]                           restarts <- computeRestarts(cond)
[18:41:31.411]                           for (restart in restarts) {
[18:41:31.411]                             name <- restart$name
[18:41:31.411]                             if (is.null(name)) 
[18:41:31.411]                               next
[18:41:31.411]                             if (!grepl(pattern, name)) 
[18:41:31.411]                               next
[18:41:31.411]                             invokeRestart(restart)
[18:41:31.411]                             muffled <- TRUE
[18:41:31.411]                             break
[18:41:31.411]                           }
[18:41:31.411]                         }
[18:41:31.411]                       }
[18:41:31.411]                       invisible(muffled)
[18:41:31.411]                     }
[18:41:31.411]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.411]                   }
[18:41:31.411]                 }
[18:41:31.411]             }
[18:41:31.411]         }))
[18:41:31.411]     }, error = function(ex) {
[18:41:31.411]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.411]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.411]                 ...future.rng), started = ...future.startTime, 
[18:41:31.411]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.411]             version = "1.8"), class = "FutureResult")
[18:41:31.411]     }, finally = {
[18:41:31.411]         if (!identical(...future.workdir, getwd())) 
[18:41:31.411]             setwd(...future.workdir)
[18:41:31.411]         {
[18:41:31.411]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.411]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.411]             }
[18:41:31.411]             base::options(...future.oldOptions)
[18:41:31.411]             if (.Platform$OS.type == "windows") {
[18:41:31.411]                 old_names <- names(...future.oldEnvVars)
[18:41:31.411]                 envs <- base::Sys.getenv()
[18:41:31.411]                 names <- names(envs)
[18:41:31.411]                 common <- intersect(names, old_names)
[18:41:31.411]                 added <- setdiff(names, old_names)
[18:41:31.411]                 removed <- setdiff(old_names, names)
[18:41:31.411]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.411]                   envs[common]]
[18:41:31.411]                 NAMES <- toupper(changed)
[18:41:31.411]                 args <- list()
[18:41:31.411]                 for (kk in seq_along(NAMES)) {
[18:41:31.411]                   name <- changed[[kk]]
[18:41:31.411]                   NAME <- NAMES[[kk]]
[18:41:31.411]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.411]                     next
[18:41:31.411]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.411]                 }
[18:41:31.411]                 NAMES <- toupper(added)
[18:41:31.411]                 for (kk in seq_along(NAMES)) {
[18:41:31.411]                   name <- added[[kk]]
[18:41:31.411]                   NAME <- NAMES[[kk]]
[18:41:31.411]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.411]                     next
[18:41:31.411]                   args[[name]] <- ""
[18:41:31.411]                 }
[18:41:31.411]                 NAMES <- toupper(removed)
[18:41:31.411]                 for (kk in seq_along(NAMES)) {
[18:41:31.411]                   name <- removed[[kk]]
[18:41:31.411]                   NAME <- NAMES[[kk]]
[18:41:31.411]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.411]                     next
[18:41:31.411]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.411]                 }
[18:41:31.411]                 if (length(args) > 0) 
[18:41:31.411]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.411]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.411]             }
[18:41:31.411]             else {
[18:41:31.411]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.411]             }
[18:41:31.411]             {
[18:41:31.411]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.411]                   0L) {
[18:41:31.411]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.411]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.411]                   base::options(opts)
[18:41:31.411]                 }
[18:41:31.411]                 {
[18:41:31.411]                   {
[18:41:31.411]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.411]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.411]                     -486500277L), envir = base::globalenv(), 
[18:41:31.411]                       inherits = FALSE)
[18:41:31.411]                     NULL
[18:41:31.411]                   }
[18:41:31.411]                   options(future.plan = NULL)
[18:41:31.411]                   if (is.na(NA_character_)) 
[18:41:31.411]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.411]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.411]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.411]                     .init = FALSE)
[18:41:31.411]                 }
[18:41:31.411]             }
[18:41:31.411]         }
[18:41:31.411]     })
[18:41:31.411]     if (TRUE) {
[18:41:31.411]         base::sink(type = "output", split = FALSE)
[18:41:31.411]         if (TRUE) {
[18:41:31.411]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.411]         }
[18:41:31.411]         else {
[18:41:31.411]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.411]         }
[18:41:31.411]         base::close(...future.stdout)
[18:41:31.411]         ...future.stdout <- NULL
[18:41:31.411]     }
[18:41:31.411]     ...future.result$conditions <- ...future.conditions
[18:41:31.411]     ...future.result$finished <- base::Sys.time()
[18:41:31.411]     ...future.result
[18:41:31.411] }
[18:41:31.416] assign_globals() ...
[18:41:31.416] List of 5
[18:41:31.416]  $ ...future.FUN            :function (C, k)  
[18:41:31.416]  $ MoreArgs                 : NULL
[18:41:31.416]  $ ...future.elements_ii    :List of 2
[18:41:31.416]   ..$ :List of 2
[18:41:31.416]   .. ..$ : chr "E"
[18:41:31.416]   .. ..$ : chr "D"
[18:41:31.416]   ..$ :List of 2
[18:41:31.416]   .. ..$ : int 1
[18:41:31.416]   .. ..$ : int 2
[18:41:31.416]  $ ...future.seeds_ii       : NULL
[18:41:31.416]  $ ...future.globals.maxSize: NULL
[18:41:31.416]  - attr(*, "where")=List of 5
[18:41:31.416]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.416]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.416]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.416]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.416]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.416]  - attr(*, "resolved")= logi FALSE
[18:41:31.416]  - attr(*, "total_size")= int 876
[18:41:31.416]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.416]  - attr(*, "already-done")= logi TRUE
[18:41:31.423] - reassign environment for '...future.FUN'
[18:41:31.424] - copied '...future.FUN' to environment
[18:41:31.424] - copied 'MoreArgs' to environment
[18:41:31.424] - copied '...future.elements_ii' to environment
[18:41:31.424] - copied '...future.seeds_ii' to environment
[18:41:31.424] - copied '...future.globals.maxSize' to environment
[18:41:31.424] assign_globals() ... done
[18:41:31.425] plan(): Setting new future strategy stack:
[18:41:31.425] List of future strategies:
[18:41:31.425] 1. sequential:
[18:41:31.425]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.425]    - tweaked: FALSE
[18:41:31.425]    - call: NULL
[18:41:31.426] plan(): nbrOfWorkers() = 1
[18:41:31.427] plan(): Setting new future strategy stack:
[18:41:31.427] List of future strategies:
[18:41:31.427] 1. sequential:
[18:41:31.427]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.427]    - tweaked: FALSE
[18:41:31.427]    - call: plan(strategy)
[18:41:31.428] plan(): nbrOfWorkers() = 1
[18:41:31.428] SequentialFuture started (and completed)
[18:41:31.428] - Launch lazy future ... done
[18:41:31.428] run() for 'SequentialFuture' ... done
[18:41:31.429] Created future:
[18:41:31.429] SequentialFuture:
[18:41:31.429] Label: 'future_mapply-1'
[18:41:31.429] Expression:
[18:41:31.429] {
[18:41:31.429]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.429]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.429]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.429]         on.exit(options(oopts), add = TRUE)
[18:41:31.429]     }
[18:41:31.429]     {
[18:41:31.429]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.429]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.429]         do.call(mapply, args = args)
[18:41:31.429]     }
[18:41:31.429] }
[18:41:31.429] Lazy evaluation: FALSE
[18:41:31.429] Asynchronous evaluation: FALSE
[18:41:31.429] Local evaluation: TRUE
[18:41:31.429] Environment: R_GlobalEnv
[18:41:31.429] Capture standard output: TRUE
[18:41:31.429] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.429] Globals: 5 objects totaling 876 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.429] Packages: <none>
[18:41:31.429] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.429] Resolved: TRUE
[18:41:31.429] Value: 66 bytes of class 'list'
[18:41:31.429] Early signaling: FALSE
[18:41:31.429] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.429] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.430] Chunk #1 of 2 ... DONE
[18:41:31.430] Chunk #2 of 2 ...
[18:41:31.430]  - Finding globals in '...' for chunk #2 ...
[18:41:31.431] getGlobalsAndPackages() ...
[18:41:31.431] Searching for globals...
[18:41:31.431] 
[18:41:31.431] Searching for globals ... DONE
[18:41:31.432] - globals: [0] <none>
[18:41:31.432] getGlobalsAndPackages() ... DONE
[18:41:31.432]    + additional globals found: [n=0] 
[18:41:31.432]    + additional namespaces needed: [n=0] 
[18:41:31.432]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:31.432]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:31.433]  - seeds: <none>
[18:41:31.433]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.433] getGlobalsAndPackages() ...
[18:41:31.433] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.433] Resolving globals: FALSE
[18:41:31.434] The total size of the 5 globals is 905 bytes (905 bytes)
[18:41:31.434] 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 905 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (134 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.435] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.435] 
[18:41:31.435] getGlobalsAndPackages() ... DONE
[18:41:31.435] run() for 'Future' ...
[18:41:31.436] - state: 'created'
[18:41:31.436] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.436] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.436] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.437]   - Field: 'label'
[18:41:31.437]   - Field: 'local'
[18:41:31.437]   - Field: 'owner'
[18:41:31.437]   - Field: 'envir'
[18:41:31.437]   - Field: 'packages'
[18:41:31.437]   - Field: 'gc'
[18:41:31.438]   - Field: 'conditions'
[18:41:31.438]   - Field: 'expr'
[18:41:31.438]   - Field: 'uuid'
[18:41:31.438]   - Field: 'seed'
[18:41:31.438]   - Field: 'version'
[18:41:31.439]   - Field: 'result'
[18:41:31.439]   - Field: 'asynchronous'
[18:41:31.439]   - Field: 'calls'
[18:41:31.439]   - Field: 'globals'
[18:41:31.439]   - Field: 'stdout'
[18:41:31.439]   - Field: 'earlySignal'
[18:41:31.440]   - Field: 'lazy'
[18:41:31.440]   - Field: 'state'
[18:41:31.440] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.440] - Launch lazy future ...
[18:41:31.441] Packages needed by the future expression (n = 0): <none>
[18:41:31.441] Packages needed by future strategies (n = 0): <none>
[18:41:31.441] {
[18:41:31.441]     {
[18:41:31.441]         {
[18:41:31.441]             ...future.startTime <- base::Sys.time()
[18:41:31.441]             {
[18:41:31.441]                 {
[18:41:31.441]                   {
[18:41:31.441]                     base::local({
[18:41:31.441]                       has_future <- base::requireNamespace("future", 
[18:41:31.441]                         quietly = TRUE)
[18:41:31.441]                       if (has_future) {
[18:41:31.441]                         ns <- base::getNamespace("future")
[18:41:31.441]                         version <- ns[[".package"]][["version"]]
[18:41:31.441]                         if (is.null(version)) 
[18:41:31.441]                           version <- utils::packageVersion("future")
[18:41:31.441]                       }
[18:41:31.441]                       else {
[18:41:31.441]                         version <- NULL
[18:41:31.441]                       }
[18:41:31.441]                       if (!has_future || version < "1.8.0") {
[18:41:31.441]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.441]                           "", base::R.version$version.string), 
[18:41:31.441]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.441]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.441]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.441]                             "release", "version")], collapse = " "), 
[18:41:31.441]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.441]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.441]                           info)
[18:41:31.441]                         info <- base::paste(info, collapse = "; ")
[18:41:31.441]                         if (!has_future) {
[18:41:31.441]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.441]                             info)
[18:41:31.441]                         }
[18:41:31.441]                         else {
[18:41:31.441]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.441]                             info, version)
[18:41:31.441]                         }
[18:41:31.441]                         base::stop(msg)
[18:41:31.441]                       }
[18:41:31.441]                     })
[18:41:31.441]                   }
[18:41:31.441]                   ...future.strategy.old <- future::plan("list")
[18:41:31.441]                   options(future.plan = NULL)
[18:41:31.441]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.441]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.441]                 }
[18:41:31.441]                 ...future.workdir <- getwd()
[18:41:31.441]             }
[18:41:31.441]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.441]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.441]         }
[18:41:31.441]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.441]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:31.441]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.441]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.441]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.441]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.441]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.441]             base::names(...future.oldOptions))
[18:41:31.441]     }
[18:41:31.441]     if (FALSE) {
[18:41:31.441]     }
[18:41:31.441]     else {
[18:41:31.441]         if (TRUE) {
[18:41:31.441]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.441]                 open = "w")
[18:41:31.441]         }
[18:41:31.441]         else {
[18:41:31.441]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.441]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.441]         }
[18:41:31.441]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.441]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.441]             base::sink(type = "output", split = FALSE)
[18:41:31.441]             base::close(...future.stdout)
[18:41:31.441]         }, add = TRUE)
[18:41:31.441]     }
[18:41:31.441]     ...future.frame <- base::sys.nframe()
[18:41:31.441]     ...future.conditions <- base::list()
[18:41:31.441]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.441]     if (FALSE) {
[18:41:31.441]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.441]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.441]     }
[18:41:31.441]     ...future.result <- base::tryCatch({
[18:41:31.441]         base::withCallingHandlers({
[18:41:31.441]             ...future.value <- base::withVisible(base::local({
[18:41:31.441]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.441]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.441]                   ...future.globals.maxSize)) {
[18:41:31.441]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.441]                   on.exit(options(oopts), add = TRUE)
[18:41:31.441]                 }
[18:41:31.441]                 {
[18:41:31.441]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.441]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.441]                     USE.NAMES = FALSE)
[18:41:31.441]                   do.call(mapply, args = args)
[18:41:31.441]                 }
[18:41:31.441]             }))
[18:41:31.441]             future::FutureResult(value = ...future.value$value, 
[18:41:31.441]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.441]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.441]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.441]                     ...future.globalenv.names))
[18:41:31.441]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.441]         }, condition = base::local({
[18:41:31.441]             c <- base::c
[18:41:31.441]             inherits <- base::inherits
[18:41:31.441]             invokeRestart <- base::invokeRestart
[18:41:31.441]             length <- base::length
[18:41:31.441]             list <- base::list
[18:41:31.441]             seq.int <- base::seq.int
[18:41:31.441]             signalCondition <- base::signalCondition
[18:41:31.441]             sys.calls <- base::sys.calls
[18:41:31.441]             `[[` <- base::`[[`
[18:41:31.441]             `+` <- base::`+`
[18:41:31.441]             `<<-` <- base::`<<-`
[18:41:31.441]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.441]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.441]                   3L)]
[18:41:31.441]             }
[18:41:31.441]             function(cond) {
[18:41:31.441]                 is_error <- inherits(cond, "error")
[18:41:31.441]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.441]                   NULL)
[18:41:31.441]                 if (is_error) {
[18:41:31.441]                   sessionInformation <- function() {
[18:41:31.441]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.441]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.441]                       search = base::search(), system = base::Sys.info())
[18:41:31.441]                   }
[18:41:31.441]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.441]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.441]                     cond$call), session = sessionInformation(), 
[18:41:31.441]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.441]                   signalCondition(cond)
[18:41:31.441]                 }
[18:41:31.441]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.441]                 "immediateCondition"))) {
[18:41:31.441]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.441]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.441]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.441]                   if (TRUE && !signal) {
[18:41:31.441]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.441]                     {
[18:41:31.441]                       inherits <- base::inherits
[18:41:31.441]                       invokeRestart <- base::invokeRestart
[18:41:31.441]                       is.null <- base::is.null
[18:41:31.441]                       muffled <- FALSE
[18:41:31.441]                       if (inherits(cond, "message")) {
[18:41:31.441]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.441]                         if (muffled) 
[18:41:31.441]                           invokeRestart("muffleMessage")
[18:41:31.441]                       }
[18:41:31.441]                       else if (inherits(cond, "warning")) {
[18:41:31.441]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.441]                         if (muffled) 
[18:41:31.441]                           invokeRestart("muffleWarning")
[18:41:31.441]                       }
[18:41:31.441]                       else if (inherits(cond, "condition")) {
[18:41:31.441]                         if (!is.null(pattern)) {
[18:41:31.441]                           computeRestarts <- base::computeRestarts
[18:41:31.441]                           grepl <- base::grepl
[18:41:31.441]                           restarts <- computeRestarts(cond)
[18:41:31.441]                           for (restart in restarts) {
[18:41:31.441]                             name <- restart$name
[18:41:31.441]                             if (is.null(name)) 
[18:41:31.441]                               next
[18:41:31.441]                             if (!grepl(pattern, name)) 
[18:41:31.441]                               next
[18:41:31.441]                             invokeRestart(restart)
[18:41:31.441]                             muffled <- TRUE
[18:41:31.441]                             break
[18:41:31.441]                           }
[18:41:31.441]                         }
[18:41:31.441]                       }
[18:41:31.441]                       invisible(muffled)
[18:41:31.441]                     }
[18:41:31.441]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.441]                   }
[18:41:31.441]                 }
[18:41:31.441]                 else {
[18:41:31.441]                   if (TRUE) {
[18:41:31.441]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.441]                     {
[18:41:31.441]                       inherits <- base::inherits
[18:41:31.441]                       invokeRestart <- base::invokeRestart
[18:41:31.441]                       is.null <- base::is.null
[18:41:31.441]                       muffled <- FALSE
[18:41:31.441]                       if (inherits(cond, "message")) {
[18:41:31.441]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.441]                         if (muffled) 
[18:41:31.441]                           invokeRestart("muffleMessage")
[18:41:31.441]                       }
[18:41:31.441]                       else if (inherits(cond, "warning")) {
[18:41:31.441]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.441]                         if (muffled) 
[18:41:31.441]                           invokeRestart("muffleWarning")
[18:41:31.441]                       }
[18:41:31.441]                       else if (inherits(cond, "condition")) {
[18:41:31.441]                         if (!is.null(pattern)) {
[18:41:31.441]                           computeRestarts <- base::computeRestarts
[18:41:31.441]                           grepl <- base::grepl
[18:41:31.441]                           restarts <- computeRestarts(cond)
[18:41:31.441]                           for (restart in restarts) {
[18:41:31.441]                             name <- restart$name
[18:41:31.441]                             if (is.null(name)) 
[18:41:31.441]                               next
[18:41:31.441]                             if (!grepl(pattern, name)) 
[18:41:31.441]                               next
[18:41:31.441]                             invokeRestart(restart)
[18:41:31.441]                             muffled <- TRUE
[18:41:31.441]                             break
[18:41:31.441]                           }
[18:41:31.441]                         }
[18:41:31.441]                       }
[18:41:31.441]                       invisible(muffled)
[18:41:31.441]                     }
[18:41:31.441]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.441]                   }
[18:41:31.441]                 }
[18:41:31.441]             }
[18:41:31.441]         }))
[18:41:31.441]     }, error = function(ex) {
[18:41:31.441]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.441]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.441]                 ...future.rng), started = ...future.startTime, 
[18:41:31.441]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.441]             version = "1.8"), class = "FutureResult")
[18:41:31.441]     }, finally = {
[18:41:31.441]         if (!identical(...future.workdir, getwd())) 
[18:41:31.441]             setwd(...future.workdir)
[18:41:31.441]         {
[18:41:31.441]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.441]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.441]             }
[18:41:31.441]             base::options(...future.oldOptions)
[18:41:31.441]             if (.Platform$OS.type == "windows") {
[18:41:31.441]                 old_names <- names(...future.oldEnvVars)
[18:41:31.441]                 envs <- base::Sys.getenv()
[18:41:31.441]                 names <- names(envs)
[18:41:31.441]                 common <- intersect(names, old_names)
[18:41:31.441]                 added <- setdiff(names, old_names)
[18:41:31.441]                 removed <- setdiff(old_names, names)
[18:41:31.441]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.441]                   envs[common]]
[18:41:31.441]                 NAMES <- toupper(changed)
[18:41:31.441]                 args <- list()
[18:41:31.441]                 for (kk in seq_along(NAMES)) {
[18:41:31.441]                   name <- changed[[kk]]
[18:41:31.441]                   NAME <- NAMES[[kk]]
[18:41:31.441]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.441]                     next
[18:41:31.441]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.441]                 }
[18:41:31.441]                 NAMES <- toupper(added)
[18:41:31.441]                 for (kk in seq_along(NAMES)) {
[18:41:31.441]                   name <- added[[kk]]
[18:41:31.441]                   NAME <- NAMES[[kk]]
[18:41:31.441]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.441]                     next
[18:41:31.441]                   args[[name]] <- ""
[18:41:31.441]                 }
[18:41:31.441]                 NAMES <- toupper(removed)
[18:41:31.441]                 for (kk in seq_along(NAMES)) {
[18:41:31.441]                   name <- removed[[kk]]
[18:41:31.441]                   NAME <- NAMES[[kk]]
[18:41:31.441]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.441]                     next
[18:41:31.441]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.441]                 }
[18:41:31.441]                 if (length(args) > 0) 
[18:41:31.441]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.441]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.441]             }
[18:41:31.441]             else {
[18:41:31.441]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.441]             }
[18:41:31.441]             {
[18:41:31.441]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.441]                   0L) {
[18:41:31.441]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.441]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.441]                   base::options(opts)
[18:41:31.441]                 }
[18:41:31.441]                 {
[18:41:31.441]                   {
[18:41:31.441]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.441]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.441]                     -486500277L), envir = base::globalenv(), 
[18:41:31.441]                       inherits = FALSE)
[18:41:31.441]                     NULL
[18:41:31.441]                   }
[18:41:31.441]                   options(future.plan = NULL)
[18:41:31.441]                   if (is.na(NA_character_)) 
[18:41:31.441]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.441]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.441]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.441]                     .init = FALSE)
[18:41:31.441]                 }
[18:41:31.441]             }
[18:41:31.441]         }
[18:41:31.441]     })
[18:41:31.441]     if (TRUE) {
[18:41:31.441]         base::sink(type = "output", split = FALSE)
[18:41:31.441]         if (TRUE) {
[18:41:31.441]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.441]         }
[18:41:31.441]         else {
[18:41:31.441]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.441]         }
[18:41:31.441]         base::close(...future.stdout)
[18:41:31.441]         ...future.stdout <- NULL
[18:41:31.441]     }
[18:41:31.441]     ...future.result$conditions <- ...future.conditions
[18:41:31.441]     ...future.result$finished <- base::Sys.time()
[18:41:31.441]     ...future.result
[18:41:31.441] }
[18:41:31.445] assign_globals() ...
[18:41:31.446] List of 5
[18:41:31.446]  $ ...future.FUN            :function (C, k)  
[18:41:31.446]  $ MoreArgs                 : NULL
[18:41:31.446]  $ ...future.elements_ii    :List of 2
[18:41:31.446]   ..$ :List of 3
[18:41:31.446]   .. ..$ : chr "C"
[18:41:31.446]   .. ..$ : chr "B"
[18:41:31.446]   .. ..$ : chr "A"
[18:41:31.446]   ..$ :List of 3
[18:41:31.446]   .. ..$ : int 3
[18:41:31.446]   .. ..$ : int 4
[18:41:31.446]   .. ..$ : int 5
[18:41:31.446]  $ ...future.seeds_ii       : NULL
[18:41:31.446]  $ ...future.globals.maxSize: NULL
[18:41:31.446]  - attr(*, "where")=List of 5
[18:41:31.446]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.446]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.446]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.446]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.446]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.446]  - attr(*, "resolved")= logi FALSE
[18:41:31.446]  - attr(*, "total_size")= int 905
[18:41:31.446]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.446]  - attr(*, "already-done")= logi TRUE
[18:41:31.453] - reassign environment for '...future.FUN'
[18:41:31.454] - copied '...future.FUN' to environment
[18:41:31.454] - copied 'MoreArgs' to environment
[18:41:31.454] - copied '...future.elements_ii' to environment
[18:41:31.454] - copied '...future.seeds_ii' to environment
[18:41:31.454] - copied '...future.globals.maxSize' to environment
[18:41:31.455] assign_globals() ... done
[18:41:31.455] plan(): Setting new future strategy stack:
[18:41:31.455] List of future strategies:
[18:41:31.455] 1. sequential:
[18:41:31.455]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.455]    - tweaked: FALSE
[18:41:31.455]    - call: NULL
[18:41:31.456] plan(): nbrOfWorkers() = 1
[18:41:31.457] plan(): Setting new future strategy stack:
[18:41:31.457] List of future strategies:
[18:41:31.457] 1. sequential:
[18:41:31.457]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.457]    - tweaked: FALSE
[18:41:31.457]    - call: plan(strategy)
[18:41:31.461] plan(): nbrOfWorkers() = 1
[18:41:31.461] SequentialFuture started (and completed)
[18:41:31.461] - Launch lazy future ... done
[18:41:31.462] run() for 'SequentialFuture' ... done
[18:41:31.462] Created future:
[18:41:31.462] SequentialFuture:
[18:41:31.462] Label: 'future_mapply-2'
[18:41:31.462] Expression:
[18:41:31.462] {
[18:41:31.462]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.462]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.462]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.462]         on.exit(options(oopts), add = TRUE)
[18:41:31.462]     }
[18:41:31.462]     {
[18:41:31.462]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.462]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.462]         do.call(mapply, args = args)
[18:41:31.462]     }
[18:41:31.462] }
[18:41:31.462] Lazy evaluation: FALSE
[18:41:31.462] Asynchronous evaluation: FALSE
[18:41:31.462] Local evaluation: TRUE
[18:41:31.462] Environment: R_GlobalEnv
[18:41:31.462] Capture standard output: TRUE
[18:41:31.462] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.462] Globals: 5 objects totaling 905 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 134 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.462] Packages: <none>
[18:41:31.462] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.462] Resolved: TRUE
[18:41:31.462] Value: 91 bytes of class 'list'
[18:41:31.462] Early signaling: FALSE
[18:41:31.462] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.462] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.463] Chunk #2 of 2 ... DONE
[18:41:31.463] Launching 2 futures (chunks) ... DONE
[18:41:31.463] Resolving 2 futures (chunks) ...
[18:41:31.464] resolve() on list ...
[18:41:31.464]  recursive: 0
[18:41:31.464]  length: 2
[18:41:31.464] 
[18:41:31.464] resolved() for 'SequentialFuture' ...
[18:41:31.464] - state: 'finished'
[18:41:31.465] - run: TRUE
[18:41:31.465] - result: 'FutureResult'
[18:41:31.465] resolved() for 'SequentialFuture' ... done
[18:41:31.465] Future #1
[18:41:31.465] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.466] - nx: 2
[18:41:31.466] - relay: TRUE
[18:41:31.466] - stdout: TRUE
[18:41:31.466] - signal: TRUE
[18:41:31.466] - resignal: FALSE
[18:41:31.466] - force: TRUE
[18:41:31.466] - relayed: [n=2] FALSE, FALSE
[18:41:31.467] - queued futures: [n=2] FALSE, FALSE
[18:41:31.467]  - until=1
[18:41:31.467]  - relaying element #1
[18:41:31.467] - relayed: [n=2] TRUE, FALSE
[18:41:31.467] - queued futures: [n=2] TRUE, FALSE
[18:41:31.468] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.468]  length: 1 (resolved future 1)
[18:41:31.468] resolved() for 'SequentialFuture' ...
[18:41:31.468] - state: 'finished'
[18:41:31.468] - run: TRUE
[18:41:31.469] - result: 'FutureResult'
[18:41:31.469] resolved() for 'SequentialFuture' ... done
[18:41:31.469] Future #2
[18:41:31.469] signalConditionsASAP(SequentialFuture, pos=2) ...
[18:41:31.469] - nx: 2
[18:41:31.469] - relay: TRUE
[18:41:31.470] - stdout: TRUE
[18:41:31.470] - signal: TRUE
[18:41:31.470] - resignal: FALSE
[18:41:31.470] - force: TRUE
[18:41:31.470] - relayed: [n=2] TRUE, FALSE
[18:41:31.470] - queued futures: [n=2] TRUE, FALSE
[18:41:31.471]  - until=2
[18:41:31.471]  - relaying element #2
[18:41:31.471] - relayed: [n=2] TRUE, TRUE
[18:41:31.471] - queued futures: [n=2] TRUE, TRUE
[18:41:31.471] signalConditionsASAP(SequentialFuture, pos=2) ... done
[18:41:31.472]  length: 0 (resolved future 2)
[18:41:31.472] Relaying remaining futures
[18:41:31.472] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.472] - nx: 2
[18:41:31.472] - relay: TRUE
[18:41:31.472] - stdout: TRUE
[18:41:31.472] - signal: TRUE
[18:41:31.473] - resignal: FALSE
[18:41:31.473] - force: TRUE
[18:41:31.473] - relayed: [n=2] TRUE, TRUE
[18:41:31.473] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:31.473] - relayed: [n=2] TRUE, TRUE
[18:41:31.474] - queued futures: [n=2] TRUE, TRUE
[18:41:31.474] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.474] resolve() on list ... DONE
[18:41:31.474]  - Number of value chunks collected: 2
[18:41:31.474] Resolving 2 futures (chunks) ... DONE
[18:41:31.474] Reducing values from 2 chunks ...
[18:41:31.475]  - Number of values collected after concatenation: 5
[18:41:31.475]  - Number of values expected: 5
[18:41:31.475] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[18:41:31.475] Reducing values from 2 chunks ... DONE
[18:41:31.475] future_mapply() ... DONE
[18:41:31.476] future_mapply() ...
[18:41:31.476] Number of chunks: 1
[18:41:31.476] getGlobalsAndPackagesXApply() ...
[18:41:31.476]  - future.globals: TRUE
[18:41:31.476] getGlobalsAndPackages() ...
[18:41:31.477] Searching for globals...
[18:41:31.478] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:31.478] Searching for globals ... DONE
[18:41:31.479] Resolving globals: FALSE
[18:41:31.479] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:31.480] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:31.480] - globals: [1] 'FUN'
[18:41:31.480] 
[18:41:31.480] getGlobalsAndPackages() ... DONE
[18:41:31.480]  - globals found/used: [n=1] 'FUN'
[18:41:31.480]  - needed namespaces: [n=0] 
[18:41:31.481] Finding globals ... DONE
[18:41:31.481] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.481] List of 2
[18:41:31.481]  $ ...future.FUN:function (C, k)  
[18:41:31.481]  $ MoreArgs     : list()
[18:41:31.481]  - attr(*, "where")=List of 2
[18:41:31.481]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.481]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.481]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.481]  - attr(*, "resolved")= logi FALSE
[18:41:31.481]  - attr(*, "total_size")= num NA
[18:41:31.484] Packages to be attached in all futures: [n=0] 
[18:41:31.484] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.485] Number of futures (= number of chunks): 1
[18:41:31.485] Launching 1 futures (chunks) ...
[18:41:31.485] Chunk #1 of 1 ...
[18:41:31.485]  - Finding globals in '...' for chunk #1 ...
[18:41:31.486] getGlobalsAndPackages() ...
[18:41:31.486] Searching for globals...
[18:41:31.486] 
[18:41:31.486] Searching for globals ... DONE
[18:41:31.486] - globals: [0] <none>
[18:41:31.487] getGlobalsAndPackages() ... DONE
[18:41:31.487]    + additional globals found: [n=0] 
[18:41:31.487]    + additional namespaces needed: [n=0] 
[18:41:31.487]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.487]  - seeds: <none>
[18:41:31.488]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.488] getGlobalsAndPackages() ...
[18:41:31.488] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.488] Resolving globals: FALSE
[18:41:31.489] The total size of the 5 globals is 967 bytes (967 bytes)
[18:41:31.489] 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 967 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (192 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:31.490] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.490] 
[18:41:31.490] getGlobalsAndPackages() ... DONE
[18:41:31.490] run() for 'Future' ...
[18:41:31.490] - state: 'created'
[18:41:31.491] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.491] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.491] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.491]   - Field: 'label'
[18:41:31.492]   - Field: 'local'
[18:41:31.492]   - Field: 'owner'
[18:41:31.492]   - Field: 'envir'
[18:41:31.492]   - Field: 'packages'
[18:41:31.492]   - Field: 'gc'
[18:41:31.493]   - Field: 'conditions'
[18:41:31.493]   - Field: 'expr'
[18:41:31.493]   - Field: 'uuid'
[18:41:31.493]   - Field: 'seed'
[18:41:31.493]   - Field: 'version'
[18:41:31.493]   - Field: 'result'
[18:41:31.494]   - Field: 'asynchronous'
[18:41:31.494]   - Field: 'calls'
[18:41:31.494]   - Field: 'globals'
[18:41:31.494]   - Field: 'stdout'
[18:41:31.494]   - Field: 'earlySignal'
[18:41:31.495]   - Field: 'lazy'
[18:41:31.495]   - Field: 'state'
[18:41:31.495] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.495] - Launch lazy future ...
[18:41:31.495] Packages needed by the future expression (n = 0): <none>
[18:41:31.496] Packages needed by future strategies (n = 0): <none>
[18:41:31.496] {
[18:41:31.496]     {
[18:41:31.496]         {
[18:41:31.496]             ...future.startTime <- base::Sys.time()
[18:41:31.496]             {
[18:41:31.496]                 {
[18:41:31.496]                   {
[18:41:31.496]                     base::local({
[18:41:31.496]                       has_future <- base::requireNamespace("future", 
[18:41:31.496]                         quietly = TRUE)
[18:41:31.496]                       if (has_future) {
[18:41:31.496]                         ns <- base::getNamespace("future")
[18:41:31.496]                         version <- ns[[".package"]][["version"]]
[18:41:31.496]                         if (is.null(version)) 
[18:41:31.496]                           version <- utils::packageVersion("future")
[18:41:31.496]                       }
[18:41:31.496]                       else {
[18:41:31.496]                         version <- NULL
[18:41:31.496]                       }
[18:41:31.496]                       if (!has_future || version < "1.8.0") {
[18:41:31.496]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.496]                           "", base::R.version$version.string), 
[18:41:31.496]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.496]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.496]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.496]                             "release", "version")], collapse = " "), 
[18:41:31.496]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.496]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.496]                           info)
[18:41:31.496]                         info <- base::paste(info, collapse = "; ")
[18:41:31.496]                         if (!has_future) {
[18:41:31.496]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.496]                             info)
[18:41:31.496]                         }
[18:41:31.496]                         else {
[18:41:31.496]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.496]                             info, version)
[18:41:31.496]                         }
[18:41:31.496]                         base::stop(msg)
[18:41:31.496]                       }
[18:41:31.496]                     })
[18:41:31.496]                   }
[18:41:31.496]                   ...future.strategy.old <- future::plan("list")
[18:41:31.496]                   options(future.plan = NULL)
[18:41:31.496]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.496]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.496]                 }
[18:41:31.496]                 ...future.workdir <- getwd()
[18:41:31.496]             }
[18:41:31.496]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.496]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.496]         }
[18:41:31.496]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.496]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.496]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.496]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.496]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.496]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.496]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.496]             base::names(...future.oldOptions))
[18:41:31.496]     }
[18:41:31.496]     if (FALSE) {
[18:41:31.496]     }
[18:41:31.496]     else {
[18:41:31.496]         if (TRUE) {
[18:41:31.496]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.496]                 open = "w")
[18:41:31.496]         }
[18:41:31.496]         else {
[18:41:31.496]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.496]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.496]         }
[18:41:31.496]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.496]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.496]             base::sink(type = "output", split = FALSE)
[18:41:31.496]             base::close(...future.stdout)
[18:41:31.496]         }, add = TRUE)
[18:41:31.496]     }
[18:41:31.496]     ...future.frame <- base::sys.nframe()
[18:41:31.496]     ...future.conditions <- base::list()
[18:41:31.496]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.496]     if (FALSE) {
[18:41:31.496]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.496]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.496]     }
[18:41:31.496]     ...future.result <- base::tryCatch({
[18:41:31.496]         base::withCallingHandlers({
[18:41:31.496]             ...future.value <- base::withVisible(base::local({
[18:41:31.496]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.496]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.496]                   ...future.globals.maxSize)) {
[18:41:31.496]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.496]                   on.exit(options(oopts), add = TRUE)
[18:41:31.496]                 }
[18:41:31.496]                 {
[18:41:31.496]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.496]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.496]                     USE.NAMES = FALSE)
[18:41:31.496]                   do.call(mapply, args = args)
[18:41:31.496]                 }
[18:41:31.496]             }))
[18:41:31.496]             future::FutureResult(value = ...future.value$value, 
[18:41:31.496]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.496]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.496]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.496]                     ...future.globalenv.names))
[18:41:31.496]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.496]         }, condition = base::local({
[18:41:31.496]             c <- base::c
[18:41:31.496]             inherits <- base::inherits
[18:41:31.496]             invokeRestart <- base::invokeRestart
[18:41:31.496]             length <- base::length
[18:41:31.496]             list <- base::list
[18:41:31.496]             seq.int <- base::seq.int
[18:41:31.496]             signalCondition <- base::signalCondition
[18:41:31.496]             sys.calls <- base::sys.calls
[18:41:31.496]             `[[` <- base::`[[`
[18:41:31.496]             `+` <- base::`+`
[18:41:31.496]             `<<-` <- base::`<<-`
[18:41:31.496]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.496]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.496]                   3L)]
[18:41:31.496]             }
[18:41:31.496]             function(cond) {
[18:41:31.496]                 is_error <- inherits(cond, "error")
[18:41:31.496]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.496]                   NULL)
[18:41:31.496]                 if (is_error) {
[18:41:31.496]                   sessionInformation <- function() {
[18:41:31.496]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.496]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.496]                       search = base::search(), system = base::Sys.info())
[18:41:31.496]                   }
[18:41:31.496]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.496]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.496]                     cond$call), session = sessionInformation(), 
[18:41:31.496]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.496]                   signalCondition(cond)
[18:41:31.496]                 }
[18:41:31.496]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.496]                 "immediateCondition"))) {
[18:41:31.496]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.496]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.496]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.496]                   if (TRUE && !signal) {
[18:41:31.496]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.496]                     {
[18:41:31.496]                       inherits <- base::inherits
[18:41:31.496]                       invokeRestart <- base::invokeRestart
[18:41:31.496]                       is.null <- base::is.null
[18:41:31.496]                       muffled <- FALSE
[18:41:31.496]                       if (inherits(cond, "message")) {
[18:41:31.496]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.496]                         if (muffled) 
[18:41:31.496]                           invokeRestart("muffleMessage")
[18:41:31.496]                       }
[18:41:31.496]                       else if (inherits(cond, "warning")) {
[18:41:31.496]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.496]                         if (muffled) 
[18:41:31.496]                           invokeRestart("muffleWarning")
[18:41:31.496]                       }
[18:41:31.496]                       else if (inherits(cond, "condition")) {
[18:41:31.496]                         if (!is.null(pattern)) {
[18:41:31.496]                           computeRestarts <- base::computeRestarts
[18:41:31.496]                           grepl <- base::grepl
[18:41:31.496]                           restarts <- computeRestarts(cond)
[18:41:31.496]                           for (restart in restarts) {
[18:41:31.496]                             name <- restart$name
[18:41:31.496]                             if (is.null(name)) 
[18:41:31.496]                               next
[18:41:31.496]                             if (!grepl(pattern, name)) 
[18:41:31.496]                               next
[18:41:31.496]                             invokeRestart(restart)
[18:41:31.496]                             muffled <- TRUE
[18:41:31.496]                             break
[18:41:31.496]                           }
[18:41:31.496]                         }
[18:41:31.496]                       }
[18:41:31.496]                       invisible(muffled)
[18:41:31.496]                     }
[18:41:31.496]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.496]                   }
[18:41:31.496]                 }
[18:41:31.496]                 else {
[18:41:31.496]                   if (TRUE) {
[18:41:31.496]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.496]                     {
[18:41:31.496]                       inherits <- base::inherits
[18:41:31.496]                       invokeRestart <- base::invokeRestart
[18:41:31.496]                       is.null <- base::is.null
[18:41:31.496]                       muffled <- FALSE
[18:41:31.496]                       if (inherits(cond, "message")) {
[18:41:31.496]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.496]                         if (muffled) 
[18:41:31.496]                           invokeRestart("muffleMessage")
[18:41:31.496]                       }
[18:41:31.496]                       else if (inherits(cond, "warning")) {
[18:41:31.496]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.496]                         if (muffled) 
[18:41:31.496]                           invokeRestart("muffleWarning")
[18:41:31.496]                       }
[18:41:31.496]                       else if (inherits(cond, "condition")) {
[18:41:31.496]                         if (!is.null(pattern)) {
[18:41:31.496]                           computeRestarts <- base::computeRestarts
[18:41:31.496]                           grepl <- base::grepl
[18:41:31.496]                           restarts <- computeRestarts(cond)
[18:41:31.496]                           for (restart in restarts) {
[18:41:31.496]                             name <- restart$name
[18:41:31.496]                             if (is.null(name)) 
[18:41:31.496]                               next
[18:41:31.496]                             if (!grepl(pattern, name)) 
[18:41:31.496]                               next
[18:41:31.496]                             invokeRestart(restart)
[18:41:31.496]                             muffled <- TRUE
[18:41:31.496]                             break
[18:41:31.496]                           }
[18:41:31.496]                         }
[18:41:31.496]                       }
[18:41:31.496]                       invisible(muffled)
[18:41:31.496]                     }
[18:41:31.496]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.496]                   }
[18:41:31.496]                 }
[18:41:31.496]             }
[18:41:31.496]         }))
[18:41:31.496]     }, error = function(ex) {
[18:41:31.496]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.496]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.496]                 ...future.rng), started = ...future.startTime, 
[18:41:31.496]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.496]             version = "1.8"), class = "FutureResult")
[18:41:31.496]     }, finally = {
[18:41:31.496]         if (!identical(...future.workdir, getwd())) 
[18:41:31.496]             setwd(...future.workdir)
[18:41:31.496]         {
[18:41:31.496]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.496]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.496]             }
[18:41:31.496]             base::options(...future.oldOptions)
[18:41:31.496]             if (.Platform$OS.type == "windows") {
[18:41:31.496]                 old_names <- names(...future.oldEnvVars)
[18:41:31.496]                 envs <- base::Sys.getenv()
[18:41:31.496]                 names <- names(envs)
[18:41:31.496]                 common <- intersect(names, old_names)
[18:41:31.496]                 added <- setdiff(names, old_names)
[18:41:31.496]                 removed <- setdiff(old_names, names)
[18:41:31.496]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.496]                   envs[common]]
[18:41:31.496]                 NAMES <- toupper(changed)
[18:41:31.496]                 args <- list()
[18:41:31.496]                 for (kk in seq_along(NAMES)) {
[18:41:31.496]                   name <- changed[[kk]]
[18:41:31.496]                   NAME <- NAMES[[kk]]
[18:41:31.496]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.496]                     next
[18:41:31.496]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.496]                 }
[18:41:31.496]                 NAMES <- toupper(added)
[18:41:31.496]                 for (kk in seq_along(NAMES)) {
[18:41:31.496]                   name <- added[[kk]]
[18:41:31.496]                   NAME <- NAMES[[kk]]
[18:41:31.496]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.496]                     next
[18:41:31.496]                   args[[name]] <- ""
[18:41:31.496]                 }
[18:41:31.496]                 NAMES <- toupper(removed)
[18:41:31.496]                 for (kk in seq_along(NAMES)) {
[18:41:31.496]                   name <- removed[[kk]]
[18:41:31.496]                   NAME <- NAMES[[kk]]
[18:41:31.496]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.496]                     next
[18:41:31.496]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.496]                 }
[18:41:31.496]                 if (length(args) > 0) 
[18:41:31.496]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.496]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.496]             }
[18:41:31.496]             else {
[18:41:31.496]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.496]             }
[18:41:31.496]             {
[18:41:31.496]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.496]                   0L) {
[18:41:31.496]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.496]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.496]                   base::options(opts)
[18:41:31.496]                 }
[18:41:31.496]                 {
[18:41:31.496]                   {
[18:41:31.496]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.496]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.496]                     -486500277L), envir = base::globalenv(), 
[18:41:31.496]                       inherits = FALSE)
[18:41:31.496]                     NULL
[18:41:31.496]                   }
[18:41:31.496]                   options(future.plan = NULL)
[18:41:31.496]                   if (is.na(NA_character_)) 
[18:41:31.496]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.496]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.496]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.496]                     .init = FALSE)
[18:41:31.496]                 }
[18:41:31.496]             }
[18:41:31.496]         }
[18:41:31.496]     })
[18:41:31.496]     if (TRUE) {
[18:41:31.496]         base::sink(type = "output", split = FALSE)
[18:41:31.496]         if (TRUE) {
[18:41:31.496]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.496]         }
[18:41:31.496]         else {
[18:41:31.496]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.496]         }
[18:41:31.496]         base::close(...future.stdout)
[18:41:31.496]         ...future.stdout <- NULL
[18:41:31.496]     }
[18:41:31.496]     ...future.result$conditions <- ...future.conditions
[18:41:31.496]     ...future.result$finished <- base::Sys.time()
[18:41:31.496]     ...future.result
[18:41:31.496] }
[18:41:31.500] assign_globals() ...
[18:41:31.500] List of 5
[18:41:31.500]  $ ...future.FUN            :function (C, k)  
[18:41:31.500]  $ MoreArgs                 : list()
[18:41:31.500]  $ ...future.elements_ii    :List of 2
[18:41:31.500]   ..$ :List of 5
[18:41:31.500]   .. ..$ : chr "A"
[18:41:31.500]   .. ..$ : chr "B"
[18:41:31.500]   .. ..$ : chr "C"
[18:41:31.500]   .. ..$ : chr "D"
[18:41:31.500]   .. ..$ : chr "E"
[18:41:31.500]   ..$ :List of 5
[18:41:31.500]   .. ..$ : int 5
[18:41:31.500]   .. ..$ : int 4
[18:41:31.500]   .. ..$ : int 3
[18:41:31.500]   .. ..$ : int 2
[18:41:31.500]   .. ..$ : int 1
[18:41:31.500]  $ ...future.seeds_ii       : NULL
[18:41:31.500]  $ ...future.globals.maxSize: NULL
[18:41:31.500]  - attr(*, "where")=List of 5
[18:41:31.500]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.500]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.500]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.500]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.500]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.500]  - attr(*, "resolved")= logi FALSE
[18:41:31.500]  - attr(*, "total_size")= int 967
[18:41:31.500]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.500]  - attr(*, "already-done")= logi TRUE
[18:41:31.509] - reassign environment for '...future.FUN'
[18:41:31.509] - copied '...future.FUN' to environment
[18:41:31.510] - copied 'MoreArgs' to environment
[18:41:31.510] - copied '...future.elements_ii' to environment
[18:41:31.510] - copied '...future.seeds_ii' to environment
[18:41:31.510] - copied '...future.globals.maxSize' to environment
[18:41:31.510] assign_globals() ... done
[18:41:31.511] plan(): Setting new future strategy stack:
[18:41:31.511] List of future strategies:
[18:41:31.511] 1. sequential:
[18:41:31.511]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.511]    - tweaked: FALSE
[18:41:31.511]    - call: NULL
[18:41:31.511] plan(): nbrOfWorkers() = 1
[18:41:31.513] plan(): Setting new future strategy stack:
[18:41:31.513] List of future strategies:
[18:41:31.513] 1. sequential:
[18:41:31.513]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.513]    - tweaked: FALSE
[18:41:31.513]    - call: plan(strategy)
[18:41:31.514] plan(): nbrOfWorkers() = 1
[18:41:31.514] SequentialFuture started (and completed)
[18:41:31.514] - Launch lazy future ... done
[18:41:31.514] run() for 'SequentialFuture' ... done
[18:41:31.514] Created future:
[18:41:31.515] SequentialFuture:
[18:41:31.515] Label: 'future_.mapply-1'
[18:41:31.515] Expression:
[18:41:31.515] {
[18:41:31.515]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.515]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.515]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.515]         on.exit(options(oopts), add = TRUE)
[18:41:31.515]     }
[18:41:31.515]     {
[18:41:31.515]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.515]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.515]         do.call(mapply, args = args)
[18:41:31.515]     }
[18:41:31.515] }
[18:41:31.515] Lazy evaluation: FALSE
[18:41:31.515] Asynchronous evaluation: FALSE
[18:41:31.515] Local evaluation: TRUE
[18:41:31.515] Environment: R_GlobalEnv
[18:41:31.515] Capture standard output: TRUE
[18:41:31.515] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.515] Globals: 5 objects totaling 967 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 192 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.515] Packages: <none>
[18:41:31.515] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.515] Resolved: TRUE
[18:41:31.515] Value: 126 bytes of class 'list'
[18:41:31.515] Early signaling: FALSE
[18:41:31.515] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.515] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.516] Chunk #1 of 1 ... DONE
[18:41:31.516] Launching 1 futures (chunks) ... DONE
[18:41:31.516] Resolving 1 futures (chunks) ...
[18:41:31.516] resolve() on list ...
[18:41:31.516]  recursive: 0
[18:41:31.517]  length: 1
[18:41:31.517] 
[18:41:31.517] resolved() for 'SequentialFuture' ...
[18:41:31.517] - state: 'finished'
[18:41:31.517] - run: TRUE
[18:41:31.517] - result: 'FutureResult'
[18:41:31.518] resolved() for 'SequentialFuture' ... done
[18:41:31.518] Future #1
[18:41:31.518] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.518] - nx: 1
[18:41:31.518] - relay: TRUE
[18:41:31.519] - stdout: TRUE
[18:41:31.519] - signal: TRUE
[18:41:31.519] - resignal: FALSE
[18:41:31.519] - force: TRUE
[18:41:31.519] - relayed: [n=1] FALSE
[18:41:31.519] - queued futures: [n=1] FALSE
[18:41:31.519]  - until=1
[18:41:31.520]  - relaying element #1
[18:41:31.520] - relayed: [n=1] TRUE
[18:41:31.520] - queued futures: [n=1] TRUE
[18:41:31.520] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.520]  length: 0 (resolved future 1)
[18:41:31.521] Relaying remaining futures
[18:41:31.521] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.521] - nx: 1
[18:41:31.521] - relay: TRUE
[18:41:31.521] - stdout: TRUE
[18:41:31.521] - signal: TRUE
[18:41:31.522] - resignal: FALSE
[18:41:31.522] - force: TRUE
[18:41:31.522] - relayed: [n=1] TRUE
[18:41:31.522] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.522] - relayed: [n=1] TRUE
[18:41:31.522] - queued futures: [n=1] TRUE
[18:41:31.523] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.523] resolve() on list ... DONE
[18:41:31.523]  - Number of value chunks collected: 1
[18:41:31.523] Resolving 1 futures (chunks) ... DONE
[18:41:31.523] Reducing values from 1 chunks ...
[18:41:31.524]  - Number of values collected after concatenation: 5
[18:41:31.524]  - Number of values expected: 5
[18:41:31.524] Reducing values from 1 chunks ... DONE
[18:41:31.524] future_mapply() ... DONE
- Subsetting (Issue #17) ...
[18:41:31.526] future_mapply() ...
[18:41:31.526] Number of chunks: 1
[18:41:31.526] getGlobalsAndPackagesXApply() ...
[18:41:31.526]  - future.globals: TRUE
[18:41:31.526] getGlobalsAndPackages() ...
[18:41:31.527] Searching for globals...
[18:41:31.528] - globals found: [1] 'FUN'
[18:41:31.528] Searching for globals ... DONE
[18:41:31.528] Resolving globals: FALSE
[18:41:31.529] The total size of the 1 globals is 185 bytes (185 bytes)
[18:41:31.529] The total size of the 1 globals exported for future expression ('FUN()') is 185 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (185 bytes of class 'function')
[18:41:31.529] - globals: [1] 'FUN'
[18:41:31.530] 
[18:41:31.530] getGlobalsAndPackages() ... DONE
[18:41:31.530]  - globals found/used: [n=1] 'FUN'
[18:41:31.530]  - needed namespaces: [n=0] 
[18:41:31.530] Finding globals ... DONE
[18:41:31.531] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.531] List of 2
[18:41:31.531]  $ ...future.FUN:function (x)  
[18:41:31.531]  $ MoreArgs     : NULL
[18:41:31.531]  - attr(*, "where")=List of 2
[18:41:31.531]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.531]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.531]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.531]  - attr(*, "resolved")= logi FALSE
[18:41:31.531]  - attr(*, "total_size")= num NA
[18:41:31.534] Packages to be attached in all futures: [n=0] 
[18:41:31.534] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.534] Number of futures (= number of chunks): 1
[18:41:31.535] Launching 1 futures (chunks) ...
[18:41:31.535] Chunk #1 of 1 ...
[18:41:31.535]  - Finding globals in '...' for chunk #1 ...
[18:41:31.535] getGlobalsAndPackages() ...
[18:41:31.535] Searching for globals...
[18:41:31.536] 
[18:41:31.536] Searching for globals ... DONE
[18:41:31.536] - globals: [0] <none>
[18:41:31.536] getGlobalsAndPackages() ... DONE
[18:41:31.536]    + additional globals found: [n=0] 
[18:41:31.537]    + additional namespaces needed: [n=0] 
[18:41:31.537]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.537]  - seeds: <none>
[18:41:31.537]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.537] getGlobalsAndPackages() ...
[18:41:31.537] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.538] Resolving globals: FALSE
[18:41:31.538] The total size of the 5 globals is 366 bytes (366 bytes)
[18:41:31.539] 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 366 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (100 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.539] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.539] 
[18:41:31.539] getGlobalsAndPackages() ... DONE
[18:41:31.540] run() for 'Future' ...
[18:41:31.540] - state: 'created'
[18:41:31.540] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.540] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.541] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.541]   - Field: 'label'
[18:41:31.541]   - Field: 'local'
[18:41:31.541]   - Field: 'owner'
[18:41:31.541]   - Field: 'envir'
[18:41:31.542]   - Field: 'packages'
[18:41:31.542]   - Field: 'gc'
[18:41:31.542]   - Field: 'conditions'
[18:41:31.542]   - Field: 'expr'
[18:41:31.542]   - Field: 'uuid'
[18:41:31.542]   - Field: 'seed'
[18:41:31.543]   - Field: 'version'
[18:41:31.543]   - Field: 'result'
[18:41:31.543]   - Field: 'asynchronous'
[18:41:31.543]   - Field: 'calls'
[18:41:31.543]   - Field: 'globals'
[18:41:31.543]   - Field: 'stdout'
[18:41:31.544]   - Field: 'earlySignal'
[18:41:31.544]   - Field: 'lazy'
[18:41:31.544]   - Field: 'state'
[18:41:31.544] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.544] - Launch lazy future ...
[18:41:31.545] Packages needed by the future expression (n = 0): <none>
[18:41:31.545] Packages needed by future strategies (n = 0): <none>
[18:41:31.545] {
[18:41:31.545]     {
[18:41:31.545]         {
[18:41:31.545]             ...future.startTime <- base::Sys.time()
[18:41:31.545]             {
[18:41:31.545]                 {
[18:41:31.545]                   {
[18:41:31.545]                     base::local({
[18:41:31.545]                       has_future <- base::requireNamespace("future", 
[18:41:31.545]                         quietly = TRUE)
[18:41:31.545]                       if (has_future) {
[18:41:31.545]                         ns <- base::getNamespace("future")
[18:41:31.545]                         version <- ns[[".package"]][["version"]]
[18:41:31.545]                         if (is.null(version)) 
[18:41:31.545]                           version <- utils::packageVersion("future")
[18:41:31.545]                       }
[18:41:31.545]                       else {
[18:41:31.545]                         version <- NULL
[18:41:31.545]                       }
[18:41:31.545]                       if (!has_future || version < "1.8.0") {
[18:41:31.545]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.545]                           "", base::R.version$version.string), 
[18:41:31.545]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.545]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.545]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.545]                             "release", "version")], collapse = " "), 
[18:41:31.545]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.545]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.545]                           info)
[18:41:31.545]                         info <- base::paste(info, collapse = "; ")
[18:41:31.545]                         if (!has_future) {
[18:41:31.545]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.545]                             info)
[18:41:31.545]                         }
[18:41:31.545]                         else {
[18:41:31.545]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.545]                             info, version)
[18:41:31.545]                         }
[18:41:31.545]                         base::stop(msg)
[18:41:31.545]                       }
[18:41:31.545]                     })
[18:41:31.545]                   }
[18:41:31.545]                   ...future.strategy.old <- future::plan("list")
[18:41:31.545]                   options(future.plan = NULL)
[18:41:31.545]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.545]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.545]                 }
[18:41:31.545]                 ...future.workdir <- getwd()
[18:41:31.545]             }
[18:41:31.545]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.545]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.545]         }
[18:41:31.545]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.545]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.545]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.545]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.545]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.545]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.545]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.545]             base::names(...future.oldOptions))
[18:41:31.545]     }
[18:41:31.545]     if (FALSE) {
[18:41:31.545]     }
[18:41:31.545]     else {
[18:41:31.545]         if (TRUE) {
[18:41:31.545]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.545]                 open = "w")
[18:41:31.545]         }
[18:41:31.545]         else {
[18:41:31.545]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.545]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.545]         }
[18:41:31.545]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.545]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.545]             base::sink(type = "output", split = FALSE)
[18:41:31.545]             base::close(...future.stdout)
[18:41:31.545]         }, add = TRUE)
[18:41:31.545]     }
[18:41:31.545]     ...future.frame <- base::sys.nframe()
[18:41:31.545]     ...future.conditions <- base::list()
[18:41:31.545]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.545]     if (FALSE) {
[18:41:31.545]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.545]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.545]     }
[18:41:31.545]     ...future.result <- base::tryCatch({
[18:41:31.545]         base::withCallingHandlers({
[18:41:31.545]             ...future.value <- base::withVisible(base::local({
[18:41:31.545]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.545]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.545]                   ...future.globals.maxSize)) {
[18:41:31.545]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.545]                   on.exit(options(oopts), add = TRUE)
[18:41:31.545]                 }
[18:41:31.545]                 {
[18:41:31.545]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.545]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.545]                     USE.NAMES = FALSE)
[18:41:31.545]                   do.call(mapply, args = args)
[18:41:31.545]                 }
[18:41:31.545]             }))
[18:41:31.545]             future::FutureResult(value = ...future.value$value, 
[18:41:31.545]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.545]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.545]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.545]                     ...future.globalenv.names))
[18:41:31.545]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.545]         }, condition = base::local({
[18:41:31.545]             c <- base::c
[18:41:31.545]             inherits <- base::inherits
[18:41:31.545]             invokeRestart <- base::invokeRestart
[18:41:31.545]             length <- base::length
[18:41:31.545]             list <- base::list
[18:41:31.545]             seq.int <- base::seq.int
[18:41:31.545]             signalCondition <- base::signalCondition
[18:41:31.545]             sys.calls <- base::sys.calls
[18:41:31.545]             `[[` <- base::`[[`
[18:41:31.545]             `+` <- base::`+`
[18:41:31.545]             `<<-` <- base::`<<-`
[18:41:31.545]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.545]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.545]                   3L)]
[18:41:31.545]             }
[18:41:31.545]             function(cond) {
[18:41:31.545]                 is_error <- inherits(cond, "error")
[18:41:31.545]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.545]                   NULL)
[18:41:31.545]                 if (is_error) {
[18:41:31.545]                   sessionInformation <- function() {
[18:41:31.545]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.545]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.545]                       search = base::search(), system = base::Sys.info())
[18:41:31.545]                   }
[18:41:31.545]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.545]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.545]                     cond$call), session = sessionInformation(), 
[18:41:31.545]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.545]                   signalCondition(cond)
[18:41:31.545]                 }
[18:41:31.545]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.545]                 "immediateCondition"))) {
[18:41:31.545]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.545]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.545]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.545]                   if (TRUE && !signal) {
[18:41:31.545]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.545]                     {
[18:41:31.545]                       inherits <- base::inherits
[18:41:31.545]                       invokeRestart <- base::invokeRestart
[18:41:31.545]                       is.null <- base::is.null
[18:41:31.545]                       muffled <- FALSE
[18:41:31.545]                       if (inherits(cond, "message")) {
[18:41:31.545]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.545]                         if (muffled) 
[18:41:31.545]                           invokeRestart("muffleMessage")
[18:41:31.545]                       }
[18:41:31.545]                       else if (inherits(cond, "warning")) {
[18:41:31.545]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.545]                         if (muffled) 
[18:41:31.545]                           invokeRestart("muffleWarning")
[18:41:31.545]                       }
[18:41:31.545]                       else if (inherits(cond, "condition")) {
[18:41:31.545]                         if (!is.null(pattern)) {
[18:41:31.545]                           computeRestarts <- base::computeRestarts
[18:41:31.545]                           grepl <- base::grepl
[18:41:31.545]                           restarts <- computeRestarts(cond)
[18:41:31.545]                           for (restart in restarts) {
[18:41:31.545]                             name <- restart$name
[18:41:31.545]                             if (is.null(name)) 
[18:41:31.545]                               next
[18:41:31.545]                             if (!grepl(pattern, name)) 
[18:41:31.545]                               next
[18:41:31.545]                             invokeRestart(restart)
[18:41:31.545]                             muffled <- TRUE
[18:41:31.545]                             break
[18:41:31.545]                           }
[18:41:31.545]                         }
[18:41:31.545]                       }
[18:41:31.545]                       invisible(muffled)
[18:41:31.545]                     }
[18:41:31.545]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.545]                   }
[18:41:31.545]                 }
[18:41:31.545]                 else {
[18:41:31.545]                   if (TRUE) {
[18:41:31.545]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.545]                     {
[18:41:31.545]                       inherits <- base::inherits
[18:41:31.545]                       invokeRestart <- base::invokeRestart
[18:41:31.545]                       is.null <- base::is.null
[18:41:31.545]                       muffled <- FALSE
[18:41:31.545]                       if (inherits(cond, "message")) {
[18:41:31.545]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.545]                         if (muffled) 
[18:41:31.545]                           invokeRestart("muffleMessage")
[18:41:31.545]                       }
[18:41:31.545]                       else if (inherits(cond, "warning")) {
[18:41:31.545]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.545]                         if (muffled) 
[18:41:31.545]                           invokeRestart("muffleWarning")
[18:41:31.545]                       }
[18:41:31.545]                       else if (inherits(cond, "condition")) {
[18:41:31.545]                         if (!is.null(pattern)) {
[18:41:31.545]                           computeRestarts <- base::computeRestarts
[18:41:31.545]                           grepl <- base::grepl
[18:41:31.545]                           restarts <- computeRestarts(cond)
[18:41:31.545]                           for (restart in restarts) {
[18:41:31.545]                             name <- restart$name
[18:41:31.545]                             if (is.null(name)) 
[18:41:31.545]                               next
[18:41:31.545]                             if (!grepl(pattern, name)) 
[18:41:31.545]                               next
[18:41:31.545]                             invokeRestart(restart)
[18:41:31.545]                             muffled <- TRUE
[18:41:31.545]                             break
[18:41:31.545]                           }
[18:41:31.545]                         }
[18:41:31.545]                       }
[18:41:31.545]                       invisible(muffled)
[18:41:31.545]                     }
[18:41:31.545]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.545]                   }
[18:41:31.545]                 }
[18:41:31.545]             }
[18:41:31.545]         }))
[18:41:31.545]     }, error = function(ex) {
[18:41:31.545]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.545]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.545]                 ...future.rng), started = ...future.startTime, 
[18:41:31.545]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.545]             version = "1.8"), class = "FutureResult")
[18:41:31.545]     }, finally = {
[18:41:31.545]         if (!identical(...future.workdir, getwd())) 
[18:41:31.545]             setwd(...future.workdir)
[18:41:31.545]         {
[18:41:31.545]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.545]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.545]             }
[18:41:31.545]             base::options(...future.oldOptions)
[18:41:31.545]             if (.Platform$OS.type == "windows") {
[18:41:31.545]                 old_names <- names(...future.oldEnvVars)
[18:41:31.545]                 envs <- base::Sys.getenv()
[18:41:31.545]                 names <- names(envs)
[18:41:31.545]                 common <- intersect(names, old_names)
[18:41:31.545]                 added <- setdiff(names, old_names)
[18:41:31.545]                 removed <- setdiff(old_names, names)
[18:41:31.545]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.545]                   envs[common]]
[18:41:31.545]                 NAMES <- toupper(changed)
[18:41:31.545]                 args <- list()
[18:41:31.545]                 for (kk in seq_along(NAMES)) {
[18:41:31.545]                   name <- changed[[kk]]
[18:41:31.545]                   NAME <- NAMES[[kk]]
[18:41:31.545]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.545]                     next
[18:41:31.545]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.545]                 }
[18:41:31.545]                 NAMES <- toupper(added)
[18:41:31.545]                 for (kk in seq_along(NAMES)) {
[18:41:31.545]                   name <- added[[kk]]
[18:41:31.545]                   NAME <- NAMES[[kk]]
[18:41:31.545]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.545]                     next
[18:41:31.545]                   args[[name]] <- ""
[18:41:31.545]                 }
[18:41:31.545]                 NAMES <- toupper(removed)
[18:41:31.545]                 for (kk in seq_along(NAMES)) {
[18:41:31.545]                   name <- removed[[kk]]
[18:41:31.545]                   NAME <- NAMES[[kk]]
[18:41:31.545]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.545]                     next
[18:41:31.545]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.545]                 }
[18:41:31.545]                 if (length(args) > 0) 
[18:41:31.545]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.545]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.545]             }
[18:41:31.545]             else {
[18:41:31.545]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.545]             }
[18:41:31.545]             {
[18:41:31.545]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.545]                   0L) {
[18:41:31.545]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.545]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.545]                   base::options(opts)
[18:41:31.545]                 }
[18:41:31.545]                 {
[18:41:31.545]                   {
[18:41:31.545]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.545]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.545]                     -486500277L), envir = base::globalenv(), 
[18:41:31.545]                       inherits = FALSE)
[18:41:31.545]                     NULL
[18:41:31.545]                   }
[18:41:31.545]                   options(future.plan = NULL)
[18:41:31.545]                   if (is.na(NA_character_)) 
[18:41:31.545]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.545]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.545]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.545]                     .init = FALSE)
[18:41:31.545]                 }
[18:41:31.545]             }
[18:41:31.545]         }
[18:41:31.545]     })
[18:41:31.545]     if (TRUE) {
[18:41:31.545]         base::sink(type = "output", split = FALSE)
[18:41:31.545]         if (TRUE) {
[18:41:31.545]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.545]         }
[18:41:31.545]         else {
[18:41:31.545]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.545]         }
[18:41:31.545]         base::close(...future.stdout)
[18:41:31.545]         ...future.stdout <- NULL
[18:41:31.545]     }
[18:41:31.545]     ...future.result$conditions <- ...future.conditions
[18:41:31.545]     ...future.result$finished <- base::Sys.time()
[18:41:31.545]     ...future.result
[18:41:31.545] }
[18:41:31.549] assign_globals() ...
[18:41:31.550] List of 5
[18:41:31.550]  $ ...future.FUN            :function (x)  
[18:41:31.550]  $ MoreArgs                 : NULL
[18:41:31.550]  $ ...future.elements_ii    :List of 1
[18:41:31.550]   ..$ :List of 1
[18:41:31.550]   .. ..$ : Date[1:1], format: "2018-06-01"
[18:41:31.550]  $ ...future.seeds_ii       : NULL
[18:41:31.550]  $ ...future.globals.maxSize: NULL
[18:41:31.550]  - attr(*, "where")=List of 5
[18:41:31.550]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.550]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.550]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.550]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.550]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.550]  - attr(*, "resolved")= logi FALSE
[18:41:31.550]  - attr(*, "total_size")= int 366
[18:41:31.550]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.550]  - attr(*, "already-done")= logi TRUE
[18:41:31.555] - copied '...future.FUN' to environment
[18:41:31.556] - copied 'MoreArgs' to environment
[18:41:31.556] - copied '...future.elements_ii' to environment
[18:41:31.556] - copied '...future.seeds_ii' to environment
[18:41:31.556] - copied '...future.globals.maxSize' to environment
[18:41:31.556] assign_globals() ... done
[18:41:31.557] plan(): Setting new future strategy stack:
[18:41:31.557] List of future strategies:
[18:41:31.557] 1. sequential:
[18:41:31.557]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.557]    - tweaked: FALSE
[18:41:31.557]    - call: NULL
[18:41:31.557] plan(): nbrOfWorkers() = 1
[18:41:31.559] plan(): Setting new future strategy stack:
[18:41:31.559] List of future strategies:
[18:41:31.559] 1. sequential:
[18:41:31.559]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.559]    - tweaked: FALSE
[18:41:31.559]    - call: plan(strategy)
[18:41:31.559] plan(): nbrOfWorkers() = 1
[18:41:31.560] SequentialFuture started (and completed)
[18:41:31.560] - Launch lazy future ... done
[18:41:31.560] run() for 'SequentialFuture' ... done
[18:41:31.560] Created future:
[18:41:31.560] SequentialFuture:
[18:41:31.560] Label: 'future_mapply-1'
[18:41:31.560] Expression:
[18:41:31.560] {
[18:41:31.560]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.560]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.560]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.560]         on.exit(options(oopts), add = TRUE)
[18:41:31.560]     }
[18:41:31.560]     {
[18:41:31.560]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.560]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.560]         do.call(mapply, args = args)
[18:41:31.560]     }
[18:41:31.560] }
[18:41:31.560] Lazy evaluation: FALSE
[18:41:31.560] Asynchronous evaluation: FALSE
[18:41:31.560] Local evaluation: TRUE
[18:41:31.560] Environment: R_GlobalEnv
[18:41:31.560] Capture standard output: TRUE
[18:41:31.560] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.560] Globals: 5 objects totaling 366 bytes (function '...future.FUN' of 185 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 100 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.560] Packages: <none>
[18:41:31.560] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.560] Resolved: TRUE
[18:41:31.560] Value: 92 bytes of class 'list'
[18:41:31.560] Early signaling: FALSE
[18:41:31.560] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.560] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.561] Chunk #1 of 1 ... DONE
[18:41:31.562] Launching 1 futures (chunks) ... DONE
[18:41:31.562] Resolving 1 futures (chunks) ...
[18:41:31.562] resolve() on list ...
[18:41:31.562]  recursive: 0
[18:41:31.562]  length: 1
[18:41:31.562] 
[18:41:31.563] resolved() for 'SequentialFuture' ...
[18:41:31.563] - state: 'finished'
[18:41:31.563] - run: TRUE
[18:41:31.563] - result: 'FutureResult'
[18:41:31.563] resolved() for 'SequentialFuture' ... done
[18:41:31.564] Future #1
[18:41:31.564] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.564] - nx: 1
[18:41:31.564] - relay: TRUE
[18:41:31.564] - stdout: TRUE
[18:41:31.564] - signal: TRUE
[18:41:31.564] - resignal: FALSE
[18:41:31.565] - force: TRUE
[18:41:31.565] - relayed: [n=1] FALSE
[18:41:31.565] - queued futures: [n=1] FALSE
[18:41:31.565]  - until=1
[18:41:31.565]  - relaying element #1
[18:41:31.566] - relayed: [n=1] TRUE
[18:41:31.566] - queued futures: [n=1] TRUE
[18:41:31.566] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.566]  length: 0 (resolved future 1)
[18:41:31.566] Relaying remaining futures
[18:41:31.566] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.567] - nx: 1
[18:41:31.567] - relay: TRUE
[18:41:31.567] - stdout: TRUE
[18:41:31.567] - signal: TRUE
[18:41:31.567] - resignal: FALSE
[18:41:31.567] - force: TRUE
[18:41:31.567] - relayed: [n=1] TRUE
[18:41:31.568] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.568] - relayed: [n=1] TRUE
[18:41:31.568] - queued futures: [n=1] TRUE
[18:41:31.568] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.568] resolve() on list ... DONE
[18:41:31.569]  - Number of value chunks collected: 1
[18:41:31.569] Resolving 1 futures (chunks) ... DONE
[18:41:31.569] Reducing values from 1 chunks ...
[18:41:31.569]  - Number of values collected after concatenation: 1
[18:41:31.569]  - Number of values expected: 1
[18:41:31.569] Reducing values from 1 chunks ... DONE
[18:41:31.570] future_mapply() ... DONE
[18:41:31.570] future_mapply() ...
[18:41:31.570] Number of chunks: 1
[18:41:31.570] getGlobalsAndPackagesXApply() ...
[18:41:31.570]  - future.globals: TRUE
[18:41:31.570] getGlobalsAndPackages() ...
[18:41:31.571] Searching for globals...
[18:41:31.572] - globals found: [1] 'FUN'
[18:41:31.572] Searching for globals ... DONE
[18:41:31.572] Resolving globals: FALSE
[18:41:31.573] The total size of the 1 globals is 185 bytes (185 bytes)
[18:41:31.573] The total size of the 1 globals exported for future expression ('FUN()') is 185 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (185 bytes of class 'function')
[18:41:31.573] - globals: [1] 'FUN'
[18:41:31.573] 
[18:41:31.574] getGlobalsAndPackages() ... DONE
[18:41:31.574]  - globals found/used: [n=1] 'FUN'
[18:41:31.574]  - needed namespaces: [n=0] 
[18:41:31.574] Finding globals ... DONE
[18:41:31.574] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.574] List of 2
[18:41:31.574]  $ ...future.FUN:function (x)  
[18:41:31.574]  $ MoreArgs     : list()
[18:41:31.574]  - attr(*, "where")=List of 2
[18:41:31.574]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.574]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.574]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.574]  - attr(*, "resolved")= logi FALSE
[18:41:31.574]  - attr(*, "total_size")= num NA
[18:41:31.578] Packages to be attached in all futures: [n=0] 
[18:41:31.578] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.578] Number of futures (= number of chunks): 1
[18:41:31.578] Launching 1 futures (chunks) ...
[18:41:31.578] Chunk #1 of 1 ...
[18:41:31.579]  - Finding globals in '...' for chunk #1 ...
[18:41:31.579] getGlobalsAndPackages() ...
[18:41:31.579] Searching for globals...
[18:41:31.579] 
[18:41:31.579] Searching for globals ... DONE
[18:41:31.580] - globals: [0] <none>
[18:41:31.580] getGlobalsAndPackages() ... DONE
[18:41:31.580]    + additional globals found: [n=0] 
[18:41:31.580]    + additional namespaces needed: [n=0] 
[18:41:31.580]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.580]  - seeds: <none>
[18:41:31.581]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.581] getGlobalsAndPackages() ...
[18:41:31.581] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.582] Resolving globals: FALSE
[18:41:31.590] The total size of the 5 globals is 370 bytes (370 bytes)
[18:41:31.592] 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 370 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (100 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:31.592] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.592] 
[18:41:31.592] getGlobalsAndPackages() ... DONE
[18:41:31.593] run() for 'Future' ...
[18:41:31.594] - state: 'created'
[18:41:31.594] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.595] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.595] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.596]   - Field: 'label'
[18:41:31.596]   - Field: 'local'
[18:41:31.597]   - Field: 'owner'
[18:41:31.597]   - Field: 'envir'
[18:41:31.597]   - Field: 'packages'
[18:41:31.598]   - Field: 'gc'
[18:41:31.598]   - Field: 'conditions'
[18:41:31.598]   - Field: 'expr'
[18:41:31.599]   - Field: 'uuid'
[18:41:31.599]   - Field: 'seed'
[18:41:31.599]   - Field: 'version'
[18:41:31.600]   - Field: 'result'
[18:41:31.600]   - Field: 'asynchronous'
[18:41:31.600]   - Field: 'calls'
[18:41:31.601]   - Field: 'globals'
[18:41:31.601]   - Field: 'stdout'
[18:41:31.601]   - Field: 'earlySignal'
[18:41:31.602]   - Field: 'lazy'
[18:41:31.602]   - Field: 'state'
[18:41:31.602] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.603] - Launch lazy future ...
[18:41:31.603] Packages needed by the future expression (n = 0): <none>
[18:41:31.604] Packages needed by future strategies (n = 0): <none>
[18:41:31.605] {
[18:41:31.605]     {
[18:41:31.605]         {
[18:41:31.605]             ...future.startTime <- base::Sys.time()
[18:41:31.605]             {
[18:41:31.605]                 {
[18:41:31.605]                   {
[18:41:31.605]                     base::local({
[18:41:31.605]                       has_future <- base::requireNamespace("future", 
[18:41:31.605]                         quietly = TRUE)
[18:41:31.605]                       if (has_future) {
[18:41:31.605]                         ns <- base::getNamespace("future")
[18:41:31.605]                         version <- ns[[".package"]][["version"]]
[18:41:31.605]                         if (is.null(version)) 
[18:41:31.605]                           version <- utils::packageVersion("future")
[18:41:31.605]                       }
[18:41:31.605]                       else {
[18:41:31.605]                         version <- NULL
[18:41:31.605]                       }
[18:41:31.605]                       if (!has_future || version < "1.8.0") {
[18:41:31.605]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.605]                           "", base::R.version$version.string), 
[18:41:31.605]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.605]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.605]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.605]                             "release", "version")], collapse = " "), 
[18:41:31.605]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.605]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.605]                           info)
[18:41:31.605]                         info <- base::paste(info, collapse = "; ")
[18:41:31.605]                         if (!has_future) {
[18:41:31.605]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.605]                             info)
[18:41:31.605]                         }
[18:41:31.605]                         else {
[18:41:31.605]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.605]                             info, version)
[18:41:31.605]                         }
[18:41:31.605]                         base::stop(msg)
[18:41:31.605]                       }
[18:41:31.605]                     })
[18:41:31.605]                   }
[18:41:31.605]                   ...future.strategy.old <- future::plan("list")
[18:41:31.605]                   options(future.plan = NULL)
[18:41:31.605]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.605]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.605]                 }
[18:41:31.605]                 ...future.workdir <- getwd()
[18:41:31.605]             }
[18:41:31.605]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.605]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.605]         }
[18:41:31.605]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.605]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.605]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.605]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.605]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.605]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.605]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.605]             base::names(...future.oldOptions))
[18:41:31.605]     }
[18:41:31.605]     if (FALSE) {
[18:41:31.605]     }
[18:41:31.605]     else {
[18:41:31.605]         if (TRUE) {
[18:41:31.605]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.605]                 open = "w")
[18:41:31.605]         }
[18:41:31.605]         else {
[18:41:31.605]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.605]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.605]         }
[18:41:31.605]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.605]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.605]             base::sink(type = "output", split = FALSE)
[18:41:31.605]             base::close(...future.stdout)
[18:41:31.605]         }, add = TRUE)
[18:41:31.605]     }
[18:41:31.605]     ...future.frame <- base::sys.nframe()
[18:41:31.605]     ...future.conditions <- base::list()
[18:41:31.605]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.605]     if (FALSE) {
[18:41:31.605]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.605]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.605]     }
[18:41:31.605]     ...future.result <- base::tryCatch({
[18:41:31.605]         base::withCallingHandlers({
[18:41:31.605]             ...future.value <- base::withVisible(base::local({
[18:41:31.605]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.605]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.605]                   ...future.globals.maxSize)) {
[18:41:31.605]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.605]                   on.exit(options(oopts), add = TRUE)
[18:41:31.605]                 }
[18:41:31.605]                 {
[18:41:31.605]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.605]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.605]                     USE.NAMES = FALSE)
[18:41:31.605]                   do.call(mapply, args = args)
[18:41:31.605]                 }
[18:41:31.605]             }))
[18:41:31.605]             future::FutureResult(value = ...future.value$value, 
[18:41:31.605]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.605]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.605]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.605]                     ...future.globalenv.names))
[18:41:31.605]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.605]         }, condition = base::local({
[18:41:31.605]             c <- base::c
[18:41:31.605]             inherits <- base::inherits
[18:41:31.605]             invokeRestart <- base::invokeRestart
[18:41:31.605]             length <- base::length
[18:41:31.605]             list <- base::list
[18:41:31.605]             seq.int <- base::seq.int
[18:41:31.605]             signalCondition <- base::signalCondition
[18:41:31.605]             sys.calls <- base::sys.calls
[18:41:31.605]             `[[` <- base::`[[`
[18:41:31.605]             `+` <- base::`+`
[18:41:31.605]             `<<-` <- base::`<<-`
[18:41:31.605]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.605]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.605]                   3L)]
[18:41:31.605]             }
[18:41:31.605]             function(cond) {
[18:41:31.605]                 is_error <- inherits(cond, "error")
[18:41:31.605]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.605]                   NULL)
[18:41:31.605]                 if (is_error) {
[18:41:31.605]                   sessionInformation <- function() {
[18:41:31.605]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.605]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.605]                       search = base::search(), system = base::Sys.info())
[18:41:31.605]                   }
[18:41:31.605]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.605]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.605]                     cond$call), session = sessionInformation(), 
[18:41:31.605]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.605]                   signalCondition(cond)
[18:41:31.605]                 }
[18:41:31.605]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.605]                 "immediateCondition"))) {
[18:41:31.605]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.605]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.605]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.605]                   if (TRUE && !signal) {
[18:41:31.605]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.605]                     {
[18:41:31.605]                       inherits <- base::inherits
[18:41:31.605]                       invokeRestart <- base::invokeRestart
[18:41:31.605]                       is.null <- base::is.null
[18:41:31.605]                       muffled <- FALSE
[18:41:31.605]                       if (inherits(cond, "message")) {
[18:41:31.605]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.605]                         if (muffled) 
[18:41:31.605]                           invokeRestart("muffleMessage")
[18:41:31.605]                       }
[18:41:31.605]                       else if (inherits(cond, "warning")) {
[18:41:31.605]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.605]                         if (muffled) 
[18:41:31.605]                           invokeRestart("muffleWarning")
[18:41:31.605]                       }
[18:41:31.605]                       else if (inherits(cond, "condition")) {
[18:41:31.605]                         if (!is.null(pattern)) {
[18:41:31.605]                           computeRestarts <- base::computeRestarts
[18:41:31.605]                           grepl <- base::grepl
[18:41:31.605]                           restarts <- computeRestarts(cond)
[18:41:31.605]                           for (restart in restarts) {
[18:41:31.605]                             name <- restart$name
[18:41:31.605]                             if (is.null(name)) 
[18:41:31.605]                               next
[18:41:31.605]                             if (!grepl(pattern, name)) 
[18:41:31.605]                               next
[18:41:31.605]                             invokeRestart(restart)
[18:41:31.605]                             muffled <- TRUE
[18:41:31.605]                             break
[18:41:31.605]                           }
[18:41:31.605]                         }
[18:41:31.605]                       }
[18:41:31.605]                       invisible(muffled)
[18:41:31.605]                     }
[18:41:31.605]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.605]                   }
[18:41:31.605]                 }
[18:41:31.605]                 else {
[18:41:31.605]                   if (TRUE) {
[18:41:31.605]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.605]                     {
[18:41:31.605]                       inherits <- base::inherits
[18:41:31.605]                       invokeRestart <- base::invokeRestart
[18:41:31.605]                       is.null <- base::is.null
[18:41:31.605]                       muffled <- FALSE
[18:41:31.605]                       if (inherits(cond, "message")) {
[18:41:31.605]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.605]                         if (muffled) 
[18:41:31.605]                           invokeRestart("muffleMessage")
[18:41:31.605]                       }
[18:41:31.605]                       else if (inherits(cond, "warning")) {
[18:41:31.605]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.605]                         if (muffled) 
[18:41:31.605]                           invokeRestart("muffleWarning")
[18:41:31.605]                       }
[18:41:31.605]                       else if (inherits(cond, "condition")) {
[18:41:31.605]                         if (!is.null(pattern)) {
[18:41:31.605]                           computeRestarts <- base::computeRestarts
[18:41:31.605]                           grepl <- base::grepl
[18:41:31.605]                           restarts <- computeRestarts(cond)
[18:41:31.605]                           for (restart in restarts) {
[18:41:31.605]                             name <- restart$name
[18:41:31.605]                             if (is.null(name)) 
[18:41:31.605]                               next
[18:41:31.605]                             if (!grepl(pattern, name)) 
[18:41:31.605]                               next
[18:41:31.605]                             invokeRestart(restart)
[18:41:31.605]                             muffled <- TRUE
[18:41:31.605]                             break
[18:41:31.605]                           }
[18:41:31.605]                         }
[18:41:31.605]                       }
[18:41:31.605]                       invisible(muffled)
[18:41:31.605]                     }
[18:41:31.605]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.605]                   }
[18:41:31.605]                 }
[18:41:31.605]             }
[18:41:31.605]         }))
[18:41:31.605]     }, error = function(ex) {
[18:41:31.605]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.605]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.605]                 ...future.rng), started = ...future.startTime, 
[18:41:31.605]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.605]             version = "1.8"), class = "FutureResult")
[18:41:31.605]     }, finally = {
[18:41:31.605]         if (!identical(...future.workdir, getwd())) 
[18:41:31.605]             setwd(...future.workdir)
[18:41:31.605]         {
[18:41:31.605]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.605]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.605]             }
[18:41:31.605]             base::options(...future.oldOptions)
[18:41:31.605]             if (.Platform$OS.type == "windows") {
[18:41:31.605]                 old_names <- names(...future.oldEnvVars)
[18:41:31.605]                 envs <- base::Sys.getenv()
[18:41:31.605]                 names <- names(envs)
[18:41:31.605]                 common <- intersect(names, old_names)
[18:41:31.605]                 added <- setdiff(names, old_names)
[18:41:31.605]                 removed <- setdiff(old_names, names)
[18:41:31.605]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.605]                   envs[common]]
[18:41:31.605]                 NAMES <- toupper(changed)
[18:41:31.605]                 args <- list()
[18:41:31.605]                 for (kk in seq_along(NAMES)) {
[18:41:31.605]                   name <- changed[[kk]]
[18:41:31.605]                   NAME <- NAMES[[kk]]
[18:41:31.605]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.605]                     next
[18:41:31.605]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.605]                 }
[18:41:31.605]                 NAMES <- toupper(added)
[18:41:31.605]                 for (kk in seq_along(NAMES)) {
[18:41:31.605]                   name <- added[[kk]]
[18:41:31.605]                   NAME <- NAMES[[kk]]
[18:41:31.605]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.605]                     next
[18:41:31.605]                   args[[name]] <- ""
[18:41:31.605]                 }
[18:41:31.605]                 NAMES <- toupper(removed)
[18:41:31.605]                 for (kk in seq_along(NAMES)) {
[18:41:31.605]                   name <- removed[[kk]]
[18:41:31.605]                   NAME <- NAMES[[kk]]
[18:41:31.605]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.605]                     next
[18:41:31.605]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.605]                 }
[18:41:31.605]                 if (length(args) > 0) 
[18:41:31.605]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.605]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.605]             }
[18:41:31.605]             else {
[18:41:31.605]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.605]             }
[18:41:31.605]             {
[18:41:31.605]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.605]                   0L) {
[18:41:31.605]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.605]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.605]                   base::options(opts)
[18:41:31.605]                 }
[18:41:31.605]                 {
[18:41:31.605]                   {
[18:41:31.605]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.605]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.605]                     -486500277L), envir = base::globalenv(), 
[18:41:31.605]                       inherits = FALSE)
[18:41:31.605]                     NULL
[18:41:31.605]                   }
[18:41:31.605]                   options(future.plan = NULL)
[18:41:31.605]                   if (is.na(NA_character_)) 
[18:41:31.605]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.605]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.605]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.605]                     .init = FALSE)
[18:41:31.605]                 }
[18:41:31.605]             }
[18:41:31.605]         }
[18:41:31.605]     })
[18:41:31.605]     if (TRUE) {
[18:41:31.605]         base::sink(type = "output", split = FALSE)
[18:41:31.605]         if (TRUE) {
[18:41:31.605]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.605]         }
[18:41:31.605]         else {
[18:41:31.605]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.605]         }
[18:41:31.605]         base::close(...future.stdout)
[18:41:31.605]         ...future.stdout <- NULL
[18:41:31.605]     }
[18:41:31.605]     ...future.result$conditions <- ...future.conditions
[18:41:31.605]     ...future.result$finished <- base::Sys.time()
[18:41:31.605]     ...future.result
[18:41:31.605] }
[18:41:31.612] assign_globals() ...
[18:41:31.612] List of 5
[18:41:31.612]  $ ...future.FUN            :function (x)  
[18:41:31.612]  $ MoreArgs                 : list()
[18:41:31.612]  $ ...future.elements_ii    :List of 1
[18:41:31.612]   ..$ :List of 1
[18:41:31.612]   .. ..$ : Date[1:1], format: "2018-06-01"
[18:41:31.612]  $ ...future.seeds_ii       : NULL
[18:41:31.612]  $ ...future.globals.maxSize: NULL
[18:41:31.612]  - attr(*, "where")=List of 5
[18:41:31.612]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.612]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.612]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.612]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.612]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.612]  - attr(*, "resolved")= logi FALSE
[18:41:31.612]  - attr(*, "total_size")= int 370
[18:41:31.612]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.612]  - attr(*, "already-done")= logi TRUE
[18:41:31.624] - copied '...future.FUN' to environment
[18:41:31.624] - copied 'MoreArgs' to environment
[18:41:31.624] - copied '...future.elements_ii' to environment
[18:41:31.625] - copied '...future.seeds_ii' to environment
[18:41:31.625] - copied '...future.globals.maxSize' to environment
[18:41:31.625] assign_globals() ... done
[18:41:31.626] plan(): Setting new future strategy stack:
[18:41:31.626] List of future strategies:
[18:41:31.626] 1. sequential:
[18:41:31.626]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.626]    - tweaked: FALSE
[18:41:31.626]    - call: NULL
[18:41:31.628] plan(): nbrOfWorkers() = 1
[18:41:31.631] plan(): Setting new future strategy stack:
[18:41:31.631] List of future strategies:
[18:41:31.631] 1. sequential:
[18:41:31.631]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.631]    - tweaked: FALSE
[18:41:31.631]    - call: plan(strategy)
[18:41:31.633] plan(): nbrOfWorkers() = 1
[18:41:31.633] SequentialFuture started (and completed)
[18:41:31.634] - Launch lazy future ... done
[18:41:31.634] run() for 'SequentialFuture' ... done
[18:41:31.634] Created future:
[18:41:31.635] SequentialFuture:
[18:41:31.635] Label: 'future_.mapply-1'
[18:41:31.635] Expression:
[18:41:31.635] {
[18:41:31.635]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.635]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.635]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.635]         on.exit(options(oopts), add = TRUE)
[18:41:31.635]     }
[18:41:31.635]     {
[18:41:31.635]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.635]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.635]         do.call(mapply, args = args)
[18:41:31.635]     }
[18:41:31.635] }
[18:41:31.635] Lazy evaluation: FALSE
[18:41:31.635] Asynchronous evaluation: FALSE
[18:41:31.635] Local evaluation: TRUE
[18:41:31.635] Environment: R_GlobalEnv
[18:41:31.635] Capture standard output: TRUE
[18:41:31.635] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.635] Globals: 5 objects totaling 370 bytes (function '...future.FUN' of 185 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 100 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.635] Packages: <none>
[18:41:31.635] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.635] Resolved: TRUE
[18:41:31.635] Value: 92 bytes of class 'list'
[18:41:31.635] Early signaling: FALSE
[18:41:31.635] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.635] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.637] Chunk #1 of 1 ... DONE
[18:41:31.638] Launching 1 futures (chunks) ... DONE
[18:41:31.638] Resolving 1 futures (chunks) ...
[18:41:31.638] resolve() on list ...
[18:41:31.639]  recursive: 0
[18:41:31.639]  length: 1
[18:41:31.639] 
[18:41:31.640] resolved() for 'SequentialFuture' ...
[18:41:31.640] - state: 'finished'
[18:41:31.641] - run: TRUE
[18:41:31.641] - result: 'FutureResult'
[18:41:31.641] resolved() for 'SequentialFuture' ... done
[18:41:31.642] Future #1
[18:41:31.642] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.643] - nx: 1
[18:41:31.643] - relay: TRUE
[18:41:31.643] - stdout: TRUE
[18:41:31.644] - signal: TRUE
[18:41:31.644] - resignal: FALSE
[18:41:31.644] - force: TRUE
[18:41:31.645] - relayed: [n=1] FALSE
[18:41:31.645] - queued futures: [n=1] FALSE
[18:41:31.645]  - until=1
[18:41:31.646]  - relaying element #1
[18:41:31.646] - relayed: [n=1] TRUE
[18:41:31.647] - queued futures: [n=1] TRUE
[18:41:31.647] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.647]  length: 0 (resolved future 1)
[18:41:31.648] Relaying remaining futures
[18:41:31.648] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.648] - nx: 1
[18:41:31.649] - relay: TRUE
[18:41:31.649] - stdout: TRUE
[18:41:31.649] - signal: TRUE
[18:41:31.650] - resignal: FALSE
[18:41:31.650] - force: TRUE
[18:41:31.650] - relayed: [n=1] TRUE
[18:41:31.651] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.651] - relayed: [n=1] TRUE
[18:41:31.652] - queued futures: [n=1] TRUE
[18:41:31.652] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.652] resolve() on list ... DONE
[18:41:31.653]  - Number of value chunks collected: 1
[18:41:31.653] Resolving 1 futures (chunks) ... DONE
[18:41:31.653] Reducing values from 1 chunks ...
[18:41:31.654]  - Number of values collected after concatenation: 1
[18:41:31.654]  - Number of values expected: 1
[18:41:31.654] Reducing values from 1 chunks ... DONE
[18:41:31.655] future_mapply() ... DONE
- Non-recycling of MoreArgs (Issue #51) ...
[18:41:31.656] future_mapply() ...
[18:41:31.656] Number of chunks: 1
[18:41:31.657] getGlobalsAndPackagesXApply() ...
[18:41:31.657]  - future.globals: TRUE
[18:41:31.657] getGlobalsAndPackages() ...
[18:41:31.658] Searching for globals...
[18:41:31.662] - globals found: [1] 'FUN'
[18:41:31.662] Searching for globals ... DONE
[18:41:31.663] Resolving globals: FALSE
[18:41:31.663] The total size of the 1 globals is 326 bytes (326 bytes)
[18:41:31.664] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 326 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (326 bytes of class 'function')
[18:41:31.665] - globals: [1] 'FUN'
[18:41:31.665] 
[18:41:31.666] getGlobalsAndPackages() ... DONE
[18:41:31.666]  - globals found/used: [n=1] 'FUN'
[18:41:31.666]  - needed namespaces: [n=0] 
[18:41:31.667] Finding globals ... DONE
[18:41:31.667] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.668] List of 2
[18:41:31.668]  $ ...future.FUN:function (x, y)  
[18:41:31.668]  $ MoreArgs     :List of 1
[18:41:31.668]   ..$ y: int [1:2] 3 4
[18:41:31.668]  - attr(*, "where")=List of 2
[18:41:31.668]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.668]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.668]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.668]  - attr(*, "resolved")= logi FALSE
[18:41:31.668]  - attr(*, "total_size")= num NA
[18:41:31.676] Packages to be attached in all futures: [n=0] 
[18:41:31.676] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.677] Number of futures (= number of chunks): 1
[18:41:31.678] Launching 1 futures (chunks) ...
[18:41:31.678] Chunk #1 of 1 ...
[18:41:31.678]  - Finding globals in '...' for chunk #1 ...
[18:41:31.679] getGlobalsAndPackages() ...
[18:41:31.679] Searching for globals...
[18:41:31.680] 
[18:41:31.680] Searching for globals ... DONE
[18:41:31.680] - globals: [0] <none>
[18:41:31.681] getGlobalsAndPackages() ... DONE
[18:41:31.681]    + additional globals found: [n=0] 
[18:41:31.682]    + additional namespaces needed: [n=0] 
[18:41:31.682]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.682]  - seeds: <none>
[18:41:31.683]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.683] getGlobalsAndPackages() ...
[18:41:31.683] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.684] Resolving globals: FALSE
[18:41:31.685] The total size of the 5 globals is 668 bytes (668 bytes)
[18:41:31.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 668 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (105 bytes of class 'list')
[18:41:31.687] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.687] 
[18:41:31.687] getGlobalsAndPackages() ... DONE
[18:41:31.688] run() for 'Future' ...
[18:41:31.688] - state: 'created'
[18:41:31.689] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.690] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.690] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.691]   - Field: 'label'
[18:41:31.691]   - Field: 'local'
[18:41:31.691]   - Field: 'owner'
[18:41:31.692]   - Field: 'envir'
[18:41:31.692]   - Field: 'packages'
[18:41:31.692]   - Field: 'gc'
[18:41:31.693]   - Field: 'conditions'
[18:41:31.693]   - Field: 'expr'
[18:41:31.693]   - Field: 'uuid'
[18:41:31.694]   - Field: 'seed'
[18:41:31.694]   - Field: 'version'
[18:41:31.694]   - Field: 'result'
[18:41:31.695]   - Field: 'asynchronous'
[18:41:31.695]   - Field: 'calls'
[18:41:31.695]   - Field: 'globals'
[18:41:31.696]   - Field: 'stdout'
[18:41:31.696]   - Field: 'earlySignal'
[18:41:31.696]   - Field: 'lazy'
[18:41:31.697]   - Field: 'state'
[18:41:31.697] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.697] - Launch lazy future ...
[18:41:31.698] Packages needed by the future expression (n = 0): <none>
[18:41:31.698] Packages needed by future strategies (n = 0): <none>
[18:41:31.700] {
[18:41:31.700]     {
[18:41:31.700]         {
[18:41:31.700]             ...future.startTime <- base::Sys.time()
[18:41:31.700]             {
[18:41:31.700]                 {
[18:41:31.700]                   {
[18:41:31.700]                     base::local({
[18:41:31.700]                       has_future <- base::requireNamespace("future", 
[18:41:31.700]                         quietly = TRUE)
[18:41:31.700]                       if (has_future) {
[18:41:31.700]                         ns <- base::getNamespace("future")
[18:41:31.700]                         version <- ns[[".package"]][["version"]]
[18:41:31.700]                         if (is.null(version)) 
[18:41:31.700]                           version <- utils::packageVersion("future")
[18:41:31.700]                       }
[18:41:31.700]                       else {
[18:41:31.700]                         version <- NULL
[18:41:31.700]                       }
[18:41:31.700]                       if (!has_future || version < "1.8.0") {
[18:41:31.700]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.700]                           "", base::R.version$version.string), 
[18:41:31.700]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.700]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.700]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.700]                             "release", "version")], collapse = " "), 
[18:41:31.700]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.700]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.700]                           info)
[18:41:31.700]                         info <- base::paste(info, collapse = "; ")
[18:41:31.700]                         if (!has_future) {
[18:41:31.700]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.700]                             info)
[18:41:31.700]                         }
[18:41:31.700]                         else {
[18:41:31.700]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.700]                             info, version)
[18:41:31.700]                         }
[18:41:31.700]                         base::stop(msg)
[18:41:31.700]                       }
[18:41:31.700]                     })
[18:41:31.700]                   }
[18:41:31.700]                   ...future.strategy.old <- future::plan("list")
[18:41:31.700]                   options(future.plan = NULL)
[18:41:31.700]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.700]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.700]                 }
[18:41:31.700]                 ...future.workdir <- getwd()
[18:41:31.700]             }
[18:41:31.700]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.700]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.700]         }
[18:41:31.700]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.700]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.700]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.700]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.700]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.700]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.700]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.700]             base::names(...future.oldOptions))
[18:41:31.700]     }
[18:41:31.700]     if (FALSE) {
[18:41:31.700]     }
[18:41:31.700]     else {
[18:41:31.700]         if (TRUE) {
[18:41:31.700]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.700]                 open = "w")
[18:41:31.700]         }
[18:41:31.700]         else {
[18:41:31.700]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.700]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.700]         }
[18:41:31.700]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.700]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.700]             base::sink(type = "output", split = FALSE)
[18:41:31.700]             base::close(...future.stdout)
[18:41:31.700]         }, add = TRUE)
[18:41:31.700]     }
[18:41:31.700]     ...future.frame <- base::sys.nframe()
[18:41:31.700]     ...future.conditions <- base::list()
[18:41:31.700]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.700]     if (FALSE) {
[18:41:31.700]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.700]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.700]     }
[18:41:31.700]     ...future.result <- base::tryCatch({
[18:41:31.700]         base::withCallingHandlers({
[18:41:31.700]             ...future.value <- base::withVisible(base::local({
[18:41:31.700]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.700]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.700]                   ...future.globals.maxSize)) {
[18:41:31.700]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.700]                   on.exit(options(oopts), add = TRUE)
[18:41:31.700]                 }
[18:41:31.700]                 {
[18:41:31.700]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.700]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.700]                     USE.NAMES = FALSE)
[18:41:31.700]                   do.call(mapply, args = args)
[18:41:31.700]                 }
[18:41:31.700]             }))
[18:41:31.700]             future::FutureResult(value = ...future.value$value, 
[18:41:31.700]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.700]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.700]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.700]                     ...future.globalenv.names))
[18:41:31.700]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.700]         }, condition = base::local({
[18:41:31.700]             c <- base::c
[18:41:31.700]             inherits <- base::inherits
[18:41:31.700]             invokeRestart <- base::invokeRestart
[18:41:31.700]             length <- base::length
[18:41:31.700]             list <- base::list
[18:41:31.700]             seq.int <- base::seq.int
[18:41:31.700]             signalCondition <- base::signalCondition
[18:41:31.700]             sys.calls <- base::sys.calls
[18:41:31.700]             `[[` <- base::`[[`
[18:41:31.700]             `+` <- base::`+`
[18:41:31.700]             `<<-` <- base::`<<-`
[18:41:31.700]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.700]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.700]                   3L)]
[18:41:31.700]             }
[18:41:31.700]             function(cond) {
[18:41:31.700]                 is_error <- inherits(cond, "error")
[18:41:31.700]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.700]                   NULL)
[18:41:31.700]                 if (is_error) {
[18:41:31.700]                   sessionInformation <- function() {
[18:41:31.700]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.700]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.700]                       search = base::search(), system = base::Sys.info())
[18:41:31.700]                   }
[18:41:31.700]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.700]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.700]                     cond$call), session = sessionInformation(), 
[18:41:31.700]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.700]                   signalCondition(cond)
[18:41:31.700]                 }
[18:41:31.700]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.700]                 "immediateCondition"))) {
[18:41:31.700]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.700]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.700]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.700]                   if (TRUE && !signal) {
[18:41:31.700]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.700]                     {
[18:41:31.700]                       inherits <- base::inherits
[18:41:31.700]                       invokeRestart <- base::invokeRestart
[18:41:31.700]                       is.null <- base::is.null
[18:41:31.700]                       muffled <- FALSE
[18:41:31.700]                       if (inherits(cond, "message")) {
[18:41:31.700]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.700]                         if (muffled) 
[18:41:31.700]                           invokeRestart("muffleMessage")
[18:41:31.700]                       }
[18:41:31.700]                       else if (inherits(cond, "warning")) {
[18:41:31.700]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.700]                         if (muffled) 
[18:41:31.700]                           invokeRestart("muffleWarning")
[18:41:31.700]                       }
[18:41:31.700]                       else if (inherits(cond, "condition")) {
[18:41:31.700]                         if (!is.null(pattern)) {
[18:41:31.700]                           computeRestarts <- base::computeRestarts
[18:41:31.700]                           grepl <- base::grepl
[18:41:31.700]                           restarts <- computeRestarts(cond)
[18:41:31.700]                           for (restart in restarts) {
[18:41:31.700]                             name <- restart$name
[18:41:31.700]                             if (is.null(name)) 
[18:41:31.700]                               next
[18:41:31.700]                             if (!grepl(pattern, name)) 
[18:41:31.700]                               next
[18:41:31.700]                             invokeRestart(restart)
[18:41:31.700]                             muffled <- TRUE
[18:41:31.700]                             break
[18:41:31.700]                           }
[18:41:31.700]                         }
[18:41:31.700]                       }
[18:41:31.700]                       invisible(muffled)
[18:41:31.700]                     }
[18:41:31.700]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.700]                   }
[18:41:31.700]                 }
[18:41:31.700]                 else {
[18:41:31.700]                   if (TRUE) {
[18:41:31.700]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.700]                     {
[18:41:31.700]                       inherits <- base::inherits
[18:41:31.700]                       invokeRestart <- base::invokeRestart
[18:41:31.700]                       is.null <- base::is.null
[18:41:31.700]                       muffled <- FALSE
[18:41:31.700]                       if (inherits(cond, "message")) {
[18:41:31.700]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.700]                         if (muffled) 
[18:41:31.700]                           invokeRestart("muffleMessage")
[18:41:31.700]                       }
[18:41:31.700]                       else if (inherits(cond, "warning")) {
[18:41:31.700]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.700]                         if (muffled) 
[18:41:31.700]                           invokeRestart("muffleWarning")
[18:41:31.700]                       }
[18:41:31.700]                       else if (inherits(cond, "condition")) {
[18:41:31.700]                         if (!is.null(pattern)) {
[18:41:31.700]                           computeRestarts <- base::computeRestarts
[18:41:31.700]                           grepl <- base::grepl
[18:41:31.700]                           restarts <- computeRestarts(cond)
[18:41:31.700]                           for (restart in restarts) {
[18:41:31.700]                             name <- restart$name
[18:41:31.700]                             if (is.null(name)) 
[18:41:31.700]                               next
[18:41:31.700]                             if (!grepl(pattern, name)) 
[18:41:31.700]                               next
[18:41:31.700]                             invokeRestart(restart)
[18:41:31.700]                             muffled <- TRUE
[18:41:31.700]                             break
[18:41:31.700]                           }
[18:41:31.700]                         }
[18:41:31.700]                       }
[18:41:31.700]                       invisible(muffled)
[18:41:31.700]                     }
[18:41:31.700]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.700]                   }
[18:41:31.700]                 }
[18:41:31.700]             }
[18:41:31.700]         }))
[18:41:31.700]     }, error = function(ex) {
[18:41:31.700]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.700]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.700]                 ...future.rng), started = ...future.startTime, 
[18:41:31.700]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.700]             version = "1.8"), class = "FutureResult")
[18:41:31.700]     }, finally = {
[18:41:31.700]         if (!identical(...future.workdir, getwd())) 
[18:41:31.700]             setwd(...future.workdir)
[18:41:31.700]         {
[18:41:31.700]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.700]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.700]             }
[18:41:31.700]             base::options(...future.oldOptions)
[18:41:31.700]             if (.Platform$OS.type == "windows") {
[18:41:31.700]                 old_names <- names(...future.oldEnvVars)
[18:41:31.700]                 envs <- base::Sys.getenv()
[18:41:31.700]                 names <- names(envs)
[18:41:31.700]                 common <- intersect(names, old_names)
[18:41:31.700]                 added <- setdiff(names, old_names)
[18:41:31.700]                 removed <- setdiff(old_names, names)
[18:41:31.700]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.700]                   envs[common]]
[18:41:31.700]                 NAMES <- toupper(changed)
[18:41:31.700]                 args <- list()
[18:41:31.700]                 for (kk in seq_along(NAMES)) {
[18:41:31.700]                   name <- changed[[kk]]
[18:41:31.700]                   NAME <- NAMES[[kk]]
[18:41:31.700]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.700]                     next
[18:41:31.700]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.700]                 }
[18:41:31.700]                 NAMES <- toupper(added)
[18:41:31.700]                 for (kk in seq_along(NAMES)) {
[18:41:31.700]                   name <- added[[kk]]
[18:41:31.700]                   NAME <- NAMES[[kk]]
[18:41:31.700]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.700]                     next
[18:41:31.700]                   args[[name]] <- ""
[18:41:31.700]                 }
[18:41:31.700]                 NAMES <- toupper(removed)
[18:41:31.700]                 for (kk in seq_along(NAMES)) {
[18:41:31.700]                   name <- removed[[kk]]
[18:41:31.700]                   NAME <- NAMES[[kk]]
[18:41:31.700]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.700]                     next
[18:41:31.700]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.700]                 }
[18:41:31.700]                 if (length(args) > 0) 
[18:41:31.700]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.700]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.700]             }
[18:41:31.700]             else {
[18:41:31.700]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.700]             }
[18:41:31.700]             {
[18:41:31.700]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.700]                   0L) {
[18:41:31.700]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.700]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.700]                   base::options(opts)
[18:41:31.700]                 }
[18:41:31.700]                 {
[18:41:31.700]                   {
[18:41:31.700]                     base::assign(".Random.seed", c(10407L, 1928835599L, 
[18:41:31.700]                     1432283652L, 74338427L, 216147826L, -1613519455L, 
[18:41:31.700]                     -486500277L), envir = base::globalenv(), 
[18:41:31.700]                       inherits = FALSE)
[18:41:31.700]                     NULL
[18:41:31.700]                   }
[18:41:31.700]                   options(future.plan = NULL)
[18:41:31.700]                   if (is.na(NA_character_)) 
[18:41:31.700]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.700]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.700]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.700]                     .init = FALSE)
[18:41:31.700]                 }
[18:41:31.700]             }
[18:41:31.700]         }
[18:41:31.700]     })
[18:41:31.700]     if (TRUE) {
[18:41:31.700]         base::sink(type = "output", split = FALSE)
[18:41:31.700]         if (TRUE) {
[18:41:31.700]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.700]         }
[18:41:31.700]         else {
[18:41:31.700]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.700]         }
[18:41:31.700]         base::close(...future.stdout)
[18:41:31.700]         ...future.stdout <- NULL
[18:41:31.700]     }
[18:41:31.700]     ...future.result$conditions <- ...future.conditions
[18:41:31.700]     ...future.result$finished <- base::Sys.time()
[18:41:31.700]     ...future.result
[18:41:31.700] }
[18:41:31.707] assign_globals() ...
[18:41:31.707] List of 5
[18:41:31.707]  $ ...future.FUN            :function (x, y)  
[18:41:31.707]  $ MoreArgs                 :List of 1
[18:41:31.707]   ..$ y: int [1:2] 3 4
[18:41:31.707]  $ ...future.elements_ii    :List of 1
[18:41:31.707]   ..$ x:List of 2
[18:41:31.707]   .. ..$ : int 1
[18:41:31.707]   .. ..$ : int 2
[18:41:31.707]  $ ...future.seeds_ii       : NULL
[18:41:31.707]  $ ...future.globals.maxSize: NULL
[18:41:31.707]  - attr(*, "where")=List of 5
[18:41:31.707]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.707]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.707]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.707]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.707]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.707]  - attr(*, "resolved")= logi FALSE
[18:41:31.707]  - attr(*, "total_size")= int 668
[18:41:31.707]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.707]  - attr(*, "already-done")= logi TRUE
[18:41:31.716] - reassign environment for '...future.FUN'
[18:41:31.716] - copied '...future.FUN' to environment
[18:41:31.716] - copied 'MoreArgs' to environment
[18:41:31.716] - copied '...future.elements_ii' to environment
[18:41:31.717] - copied '...future.seeds_ii' to environment
[18:41:31.717] - copied '...future.globals.maxSize' to environment
[18:41:31.717] assign_globals() ... done
[18:41:31.718] plan(): Setting new future strategy stack:
[18:41:31.718] List of future strategies:
[18:41:31.718] 1. sequential:
[18:41:31.718]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.718]    - tweaked: FALSE
[18:41:31.718]    - call: NULL
[18:41:31.719] plan(): nbrOfWorkers() = 1
[18:41:31.720] plan(): Setting new future strategy stack:
[18:41:31.721] List of future strategies:
[18:41:31.721] 1. sequential:
[18:41:31.721]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.721]    - tweaked: FALSE
[18:41:31.721]    - call: plan(strategy)
[18:41:31.721] plan(): nbrOfWorkers() = 1
[18:41:31.722] SequentialFuture started (and completed)
[18:41:31.722] - Launch lazy future ... done
[18:41:31.722] run() for 'SequentialFuture' ... done
[18:41:31.723] Created future:
[18:41:31.723] SequentialFuture:
[18:41:31.723] Label: 'future_mapply-1'
[18:41:31.723] Expression:
[18:41:31.723] {
[18:41:31.723]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.723]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.723]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.723]         on.exit(options(oopts), add = TRUE)
[18:41:31.723]     }
[18:41:31.723]     {
[18:41:31.723]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.723]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.723]         do.call(mapply, args = args)
[18:41:31.723]     }
[18:41:31.723] }
[18:41:31.723] Lazy evaluation: FALSE
[18:41:31.723] Asynchronous evaluation: FALSE
[18:41:31.723] Local evaluation: TRUE
[18:41:31.723] Environment: R_GlobalEnv
[18:41:31.723] Capture standard output: TRUE
[18:41:31.723] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.723] Globals: 5 objects totaling 668 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.723] Packages: <none>
[18:41:31.723] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.723] Resolved: TRUE
[18:41:31.723] Value: 217 bytes of class 'list'
[18:41:31.723] Early signaling: FALSE
[18:41:31.723] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.723] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.724] Chunk #1 of 1 ... DONE
[18:41:31.724] Launching 1 futures (chunks) ... DONE
[18:41:31.725] Resolving 1 futures (chunks) ...
[18:41:31.725] resolve() on list ...
[18:41:31.725]  recursive: 0
[18:41:31.725]  length: 1
[18:41:31.725] 
[18:41:31.726] resolved() for 'SequentialFuture' ...
[18:41:31.726] - state: 'finished'
[18:41:31.726] - run: TRUE
[18:41:31.726] - result: 'FutureResult'
[18:41:31.727] resolved() for 'SequentialFuture' ... done
[18:41:31.727] Future #1
[18:41:31.727] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.727] - nx: 1
[18:41:31.727] - relay: TRUE
[18:41:31.728] - stdout: TRUE
[18:41:31.728] - signal: TRUE
[18:41:31.728] - resignal: FALSE
[18:41:31.728] - force: TRUE
[18:41:31.728] - relayed: [n=1] FALSE
[18:41:31.729] - queued futures: [n=1] FALSE
[18:41:31.729]  - until=1
[18:41:31.729]  - relaying element #1
[18:41:31.729] - relayed: [n=1] TRUE
[18:41:31.730] - queued futures: [n=1] TRUE
[18:41:31.730] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.730]  length: 0 (resolved future 1)
[18:41:31.730] Relaying remaining futures
[18:41:31.730] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.731] - nx: 1
[18:41:31.731] - relay: TRUE
[18:41:31.731] - stdout: TRUE
[18:41:31.731] - signal: TRUE
[18:41:31.731] - resignal: FALSE
[18:41:31.732] - force: TRUE
[18:41:31.732] - relayed: [n=1] TRUE
[18:41:31.732] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.732] - relayed: [n=1] TRUE
[18:41:31.732] - queued futures: [n=1] TRUE
[18:41:31.733] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.733] resolve() on list ... DONE
[18:41:31.733]  - Number of value chunks collected: 1
[18:41:31.733] Resolving 1 futures (chunks) ... DONE
[18:41:31.734] Reducing values from 1 chunks ...
[18:41:31.734]  - Number of values collected after concatenation: 2
[18:41:31.734]  - Number of values expected: 2
[18:41:31.734] Reducing values from 1 chunks ... DONE
[18:41:31.734] future_mapply() ... DONE
[18:41:31.735] future_mapply() ...
[18:41:31.735] Generating random seeds ...
[18:41:31.735] Generating random seed streams for 2 elements ...
[18:41:31.735] Generating random seed streams for 2 elements ... DONE
[18:41:31.736] Generating random seeds ... DONE
[18:41:31.736] Will set RNG state on exit: 10407, 74338427, -1247135859, 1429913920, -486500277, 1398381932, -78108245
[18:41:31.736] Number of chunks: 1
[18:41:31.736] getGlobalsAndPackagesXApply() ...
[18:41:31.737]  - future.globals: TRUE
[18:41:31.737] getGlobalsAndPackages() ...
[18:41:31.737] Searching for globals...
[18:41:31.739] - globals found: [1] 'FUN'
[18:41:31.739] Searching for globals ... DONE
[18:41:31.740] Resolving globals: FALSE
[18:41:31.740] The total size of the 1 globals is 326 bytes (326 bytes)
[18:41:31.741] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 326 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (326 bytes of class 'function')
[18:41:31.741] - globals: [1] 'FUN'
[18:41:31.741] 
[18:41:31.741] getGlobalsAndPackages() ... DONE
[18:41:31.742]  - globals found/used: [n=1] 'FUN'
[18:41:31.742]  - needed namespaces: [n=0] 
[18:41:31.742] Finding globals ... DONE
[18:41:31.742] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.743] List of 2
[18:41:31.743]  $ ...future.FUN:function (x, y)  
[18:41:31.743]  $ MoreArgs     :List of 1
[18:41:31.743]   ..$ y: int [1:2] 3 4
[18:41:31.743]  - attr(*, "where")=List of 2
[18:41:31.743]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.743]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.743]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.743]  - attr(*, "resolved")= logi FALSE
[18:41:31.743]  - attr(*, "total_size")= num NA
[18:41:31.748] Packages to be attached in all futures: [n=0] 
[18:41:31.748] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.748] Number of futures (= number of chunks): 1
[18:41:31.748] Launching 1 futures (chunks) ...
[18:41:31.749] Chunk #1 of 1 ...
[18:41:31.749]  - Finding globals in '...' for chunk #1 ...
[18:41:31.749] getGlobalsAndPackages() ...
[18:41:31.749] Searching for globals...
[18:41:31.750] 
[18:41:31.750] Searching for globals ... DONE
[18:41:31.750] - globals: [0] <none>
[18:41:31.750] getGlobalsAndPackages() ... DONE
[18:41:31.751]    + additional globals found: [n=0] 
[18:41:31.751]    + additional namespaces needed: [n=0] 
[18:41:31.751]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.751]  - seeds: [2] <seeds>
[18:41:31.752]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.752] getGlobalsAndPackages() ...
[18:41:31.752] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.752] Resolving globals: FALSE
[18:41:31.753] The total size of the 5 globals is 744 bytes (744 bytes)
[18:41:31.754] 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 744 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (105 bytes of class 'list')
[18:41:31.754] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.754] 
[18:41:31.754] getGlobalsAndPackages() ... DONE
[18:41:31.755] run() for 'Future' ...
[18:41:31.755] - state: 'created'
[18:41:31.755] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.756] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.756] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.756]   - Field: 'label'
[18:41:31.756]   - Field: 'local'
[18:41:31.757]   - Field: 'owner'
[18:41:31.757]   - Field: 'envir'
[18:41:31.757]   - Field: 'packages'
[18:41:31.757]   - Field: 'gc'
[18:41:31.758]   - Field: 'conditions'
[18:41:31.758]   - Field: 'expr'
[18:41:31.758]   - Field: 'uuid'
[18:41:31.758]   - Field: 'seed'
[18:41:31.758]   - Field: 'version'
[18:41:31.759]   - Field: 'result'
[18:41:31.759]   - Field: 'asynchronous'
[18:41:31.759]   - Field: 'calls'
[18:41:31.759]   - Field: 'globals'
[18:41:31.759]   - Field: 'stdout'
[18:41:31.760]   - Field: 'earlySignal'
[18:41:31.760]   - Field: 'lazy'
[18:41:31.760]   - Field: 'state'
[18:41:31.760] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.760] - Launch lazy future ...
[18:41:31.761] Packages needed by the future expression (n = 0): <none>
[18:41:31.761] Packages needed by future strategies (n = 0): <none>
[18:41:31.762] {
[18:41:31.762]     {
[18:41:31.762]         {
[18:41:31.762]             ...future.startTime <- base::Sys.time()
[18:41:31.762]             {
[18:41:31.762]                 {
[18:41:31.762]                   {
[18:41:31.762]                     base::local({
[18:41:31.762]                       has_future <- base::requireNamespace("future", 
[18:41:31.762]                         quietly = TRUE)
[18:41:31.762]                       if (has_future) {
[18:41:31.762]                         ns <- base::getNamespace("future")
[18:41:31.762]                         version <- ns[[".package"]][["version"]]
[18:41:31.762]                         if (is.null(version)) 
[18:41:31.762]                           version <- utils::packageVersion("future")
[18:41:31.762]                       }
[18:41:31.762]                       else {
[18:41:31.762]                         version <- NULL
[18:41:31.762]                       }
[18:41:31.762]                       if (!has_future || version < "1.8.0") {
[18:41:31.762]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.762]                           "", base::R.version$version.string), 
[18:41:31.762]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.762]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.762]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.762]                             "release", "version")], collapse = " "), 
[18:41:31.762]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.762]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.762]                           info)
[18:41:31.762]                         info <- base::paste(info, collapse = "; ")
[18:41:31.762]                         if (!has_future) {
[18:41:31.762]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.762]                             info)
[18:41:31.762]                         }
[18:41:31.762]                         else {
[18:41:31.762]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.762]                             info, version)
[18:41:31.762]                         }
[18:41:31.762]                         base::stop(msg)
[18:41:31.762]                       }
[18:41:31.762]                     })
[18:41:31.762]                   }
[18:41:31.762]                   ...future.strategy.old <- future::plan("list")
[18:41:31.762]                   options(future.plan = NULL)
[18:41:31.762]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.762]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.762]                 }
[18:41:31.762]                 ...future.workdir <- getwd()
[18:41:31.762]             }
[18:41:31.762]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.762]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.762]         }
[18:41:31.762]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.762]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.762]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.762]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.762]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.762]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.762]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.762]             base::names(...future.oldOptions))
[18:41:31.762]     }
[18:41:31.762]     if (FALSE) {
[18:41:31.762]     }
[18:41:31.762]     else {
[18:41:31.762]         if (TRUE) {
[18:41:31.762]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.762]                 open = "w")
[18:41:31.762]         }
[18:41:31.762]         else {
[18:41:31.762]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.762]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.762]         }
[18:41:31.762]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.762]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.762]             base::sink(type = "output", split = FALSE)
[18:41:31.762]             base::close(...future.stdout)
[18:41:31.762]         }, add = TRUE)
[18:41:31.762]     }
[18:41:31.762]     ...future.frame <- base::sys.nframe()
[18:41:31.762]     ...future.conditions <- base::list()
[18:41:31.762]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.762]     if (FALSE) {
[18:41:31.762]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.762]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.762]     }
[18:41:31.762]     ...future.result <- base::tryCatch({
[18:41:31.762]         base::withCallingHandlers({
[18:41:31.762]             ...future.value <- base::withVisible(base::local({
[18:41:31.762]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.762]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.762]                   ...future.globals.maxSize)) {
[18:41:31.762]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.762]                   on.exit(options(oopts), add = TRUE)
[18:41:31.762]                 }
[18:41:31.762]                 {
[18:41:31.762]                   ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:31.762]                     assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:31.762]                       envir = globalenv(), inherits = FALSE)
[18:41:31.762]                     ...future.FUN(...)
[18:41:31.762]                   }
[18:41:31.762]                   args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:31.762]                     list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:31.762]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.762]                     USE.NAMES = FALSE)
[18:41:31.762]                   do.call(mapply, args = args)
[18:41:31.762]                 }
[18:41:31.762]             }))
[18:41:31.762]             future::FutureResult(value = ...future.value$value, 
[18:41:31.762]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.762]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.762]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.762]                     ...future.globalenv.names))
[18:41:31.762]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.762]         }, condition = base::local({
[18:41:31.762]             c <- base::c
[18:41:31.762]             inherits <- base::inherits
[18:41:31.762]             invokeRestart <- base::invokeRestart
[18:41:31.762]             length <- base::length
[18:41:31.762]             list <- base::list
[18:41:31.762]             seq.int <- base::seq.int
[18:41:31.762]             signalCondition <- base::signalCondition
[18:41:31.762]             sys.calls <- base::sys.calls
[18:41:31.762]             `[[` <- base::`[[`
[18:41:31.762]             `+` <- base::`+`
[18:41:31.762]             `<<-` <- base::`<<-`
[18:41:31.762]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.762]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.762]                   3L)]
[18:41:31.762]             }
[18:41:31.762]             function(cond) {
[18:41:31.762]                 is_error <- inherits(cond, "error")
[18:41:31.762]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.762]                   NULL)
[18:41:31.762]                 if (is_error) {
[18:41:31.762]                   sessionInformation <- function() {
[18:41:31.762]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.762]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.762]                       search = base::search(), system = base::Sys.info())
[18:41:31.762]                   }
[18:41:31.762]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.762]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.762]                     cond$call), session = sessionInformation(), 
[18:41:31.762]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.762]                   signalCondition(cond)
[18:41:31.762]                 }
[18:41:31.762]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.762]                 "immediateCondition"))) {
[18:41:31.762]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.762]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.762]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.762]                   if (TRUE && !signal) {
[18:41:31.762]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.762]                     {
[18:41:31.762]                       inherits <- base::inherits
[18:41:31.762]                       invokeRestart <- base::invokeRestart
[18:41:31.762]                       is.null <- base::is.null
[18:41:31.762]                       muffled <- FALSE
[18:41:31.762]                       if (inherits(cond, "message")) {
[18:41:31.762]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.762]                         if (muffled) 
[18:41:31.762]                           invokeRestart("muffleMessage")
[18:41:31.762]                       }
[18:41:31.762]                       else if (inherits(cond, "warning")) {
[18:41:31.762]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.762]                         if (muffled) 
[18:41:31.762]                           invokeRestart("muffleWarning")
[18:41:31.762]                       }
[18:41:31.762]                       else if (inherits(cond, "condition")) {
[18:41:31.762]                         if (!is.null(pattern)) {
[18:41:31.762]                           computeRestarts <- base::computeRestarts
[18:41:31.762]                           grepl <- base::grepl
[18:41:31.762]                           restarts <- computeRestarts(cond)
[18:41:31.762]                           for (restart in restarts) {
[18:41:31.762]                             name <- restart$name
[18:41:31.762]                             if (is.null(name)) 
[18:41:31.762]                               next
[18:41:31.762]                             if (!grepl(pattern, name)) 
[18:41:31.762]                               next
[18:41:31.762]                             invokeRestart(restart)
[18:41:31.762]                             muffled <- TRUE
[18:41:31.762]                             break
[18:41:31.762]                           }
[18:41:31.762]                         }
[18:41:31.762]                       }
[18:41:31.762]                       invisible(muffled)
[18:41:31.762]                     }
[18:41:31.762]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.762]                   }
[18:41:31.762]                 }
[18:41:31.762]                 else {
[18:41:31.762]                   if (TRUE) {
[18:41:31.762]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.762]                     {
[18:41:31.762]                       inherits <- base::inherits
[18:41:31.762]                       invokeRestart <- base::invokeRestart
[18:41:31.762]                       is.null <- base::is.null
[18:41:31.762]                       muffled <- FALSE
[18:41:31.762]                       if (inherits(cond, "message")) {
[18:41:31.762]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.762]                         if (muffled) 
[18:41:31.762]                           invokeRestart("muffleMessage")
[18:41:31.762]                       }
[18:41:31.762]                       else if (inherits(cond, "warning")) {
[18:41:31.762]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.762]                         if (muffled) 
[18:41:31.762]                           invokeRestart("muffleWarning")
[18:41:31.762]                       }
[18:41:31.762]                       else if (inherits(cond, "condition")) {
[18:41:31.762]                         if (!is.null(pattern)) {
[18:41:31.762]                           computeRestarts <- base::computeRestarts
[18:41:31.762]                           grepl <- base::grepl
[18:41:31.762]                           restarts <- computeRestarts(cond)
[18:41:31.762]                           for (restart in restarts) {
[18:41:31.762]                             name <- restart$name
[18:41:31.762]                             if (is.null(name)) 
[18:41:31.762]                               next
[18:41:31.762]                             if (!grepl(pattern, name)) 
[18:41:31.762]                               next
[18:41:31.762]                             invokeRestart(restart)
[18:41:31.762]                             muffled <- TRUE
[18:41:31.762]                             break
[18:41:31.762]                           }
[18:41:31.762]                         }
[18:41:31.762]                       }
[18:41:31.762]                       invisible(muffled)
[18:41:31.762]                     }
[18:41:31.762]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.762]                   }
[18:41:31.762]                 }
[18:41:31.762]             }
[18:41:31.762]         }))
[18:41:31.762]     }, error = function(ex) {
[18:41:31.762]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.762]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.762]                 ...future.rng), started = ...future.startTime, 
[18:41:31.762]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.762]             version = "1.8"), class = "FutureResult")
[18:41:31.762]     }, finally = {
[18:41:31.762]         if (!identical(...future.workdir, getwd())) 
[18:41:31.762]             setwd(...future.workdir)
[18:41:31.762]         {
[18:41:31.762]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.762]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.762]             }
[18:41:31.762]             base::options(...future.oldOptions)
[18:41:31.762]             if (.Platform$OS.type == "windows") {
[18:41:31.762]                 old_names <- names(...future.oldEnvVars)
[18:41:31.762]                 envs <- base::Sys.getenv()
[18:41:31.762]                 names <- names(envs)
[18:41:31.762]                 common <- intersect(names, old_names)
[18:41:31.762]                 added <- setdiff(names, old_names)
[18:41:31.762]                 removed <- setdiff(old_names, names)
[18:41:31.762]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.762]                   envs[common]]
[18:41:31.762]                 NAMES <- toupper(changed)
[18:41:31.762]                 args <- list()
[18:41:31.762]                 for (kk in seq_along(NAMES)) {
[18:41:31.762]                   name <- changed[[kk]]
[18:41:31.762]                   NAME <- NAMES[[kk]]
[18:41:31.762]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.762]                     next
[18:41:31.762]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.762]                 }
[18:41:31.762]                 NAMES <- toupper(added)
[18:41:31.762]                 for (kk in seq_along(NAMES)) {
[18:41:31.762]                   name <- added[[kk]]
[18:41:31.762]                   NAME <- NAMES[[kk]]
[18:41:31.762]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.762]                     next
[18:41:31.762]                   args[[name]] <- ""
[18:41:31.762]                 }
[18:41:31.762]                 NAMES <- toupper(removed)
[18:41:31.762]                 for (kk in seq_along(NAMES)) {
[18:41:31.762]                   name <- removed[[kk]]
[18:41:31.762]                   NAME <- NAMES[[kk]]
[18:41:31.762]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.762]                     next
[18:41:31.762]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.762]                 }
[18:41:31.762]                 if (length(args) > 0) 
[18:41:31.762]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.762]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.762]             }
[18:41:31.762]             else {
[18:41:31.762]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.762]             }
[18:41:31.762]             {
[18:41:31.762]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.762]                   0L) {
[18:41:31.762]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.762]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.762]                   base::options(opts)
[18:41:31.762]                 }
[18:41:31.762]                 {
[18:41:31.762]                   {
[18:41:31.762]                     base::assign(".Random.seed", c(10407L, 74338427L, 
[18:41:31.762]                     -1247135859L, 1429913920L, -486500277L, 1398381932L, 
[18:41:31.762]                     -78108245L), envir = base::globalenv(), inherits = FALSE)
[18:41:31.762]                     NULL
[18:41:31.762]                   }
[18:41:31.762]                   options(future.plan = NULL)
[18:41:31.762]                   if (is.na(NA_character_)) 
[18:41:31.762]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.762]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.762]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.762]                     .init = FALSE)
[18:41:31.762]                 }
[18:41:31.762]             }
[18:41:31.762]         }
[18:41:31.762]     })
[18:41:31.762]     if (TRUE) {
[18:41:31.762]         base::sink(type = "output", split = FALSE)
[18:41:31.762]         if (TRUE) {
[18:41:31.762]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.762]         }
[18:41:31.762]         else {
[18:41:31.762]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.762]         }
[18:41:31.762]         base::close(...future.stdout)
[18:41:31.762]         ...future.stdout <- NULL
[18:41:31.762]     }
[18:41:31.762]     ...future.result$conditions <- ...future.conditions
[18:41:31.762]     ...future.result$finished <- base::Sys.time()
[18:41:31.762]     ...future.result
[18:41:31.762] }
[18:41:31.766] assign_globals() ...
[18:41:31.767] List of 5
[18:41:31.767]  $ ...future.FUN            :function (x, y)  
[18:41:31.767]  $ MoreArgs                 :List of 1
[18:41:31.767]   ..$ y: int [1:2] 3 4
[18:41:31.767]  $ ...future.elements_ii    :List of 1
[18:41:31.767]   ..$ x:List of 2
[18:41:31.767]   .. ..$ : int 1
[18:41:31.767]   .. ..$ : int 2
[18:41:31.767]  $ ...future.seeds_ii       :List of 2
[18:41:31.767]   ..$ : int [1:7] 10407 1115925697 -170879692 1211386944 -297385358 1870553832 -280245761
[18:41:31.767]   ..$ : int [1:7] 10407 -526626283 -586420416 -313684473 2102729621 -791919411 -1813717865
[18:41:31.767]  $ ...future.globals.maxSize: NULL
[18:41:31.767]  - attr(*, "where")=List of 5
[18:41:31.767]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.767]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.767]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.767]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.767]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.767]  - attr(*, "resolved")= logi FALSE
[18:41:31.767]  - attr(*, "total_size")= int 744
[18:41:31.767]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.767]  - attr(*, "already-done")= logi TRUE
[18:41:31.779] - reassign environment for '...future.FUN'
[18:41:31.779] - copied '...future.FUN' to environment
[18:41:31.779] - copied 'MoreArgs' to environment
[18:41:31.780] - copied '...future.elements_ii' to environment
[18:41:31.780] - copied '...future.seeds_ii' to environment
[18:41:31.780] - copied '...future.globals.maxSize' to environment
[18:41:31.780] assign_globals() ... done
[18:41:31.781] plan(): Setting new future strategy stack:
[18:41:31.781] List of future strategies:
[18:41:31.781] 1. sequential:
[18:41:31.781]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.781]    - tweaked: FALSE
[18:41:31.781]    - call: NULL
[18:41:31.782] plan(): nbrOfWorkers() = 1
[18:41:31.784] plan(): Setting new future strategy stack:
[18:41:31.784] List of future strategies:
[18:41:31.784] 1. sequential:
[18:41:31.784]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.784]    - tweaked: FALSE
[18:41:31.784]    - call: plan(strategy)
[18:41:31.785] plan(): nbrOfWorkers() = 1
[18:41:31.785] SequentialFuture started (and completed)
[18:41:31.786] - Launch lazy future ... done
[18:41:31.786] run() for 'SequentialFuture' ... done
[18:41:31.786] Created future:
[18:41:31.787] SequentialFuture:
[18:41:31.787] Label: 'future_mapply-1'
[18:41:31.787] Expression:
[18:41:31.787] {
[18:41:31.787]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.787]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.787]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.787]         on.exit(options(oopts), add = TRUE)
[18:41:31.787]     }
[18:41:31.787]     {
[18:41:31.787]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:31.787]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:31.787]                 inherits = FALSE)
[18:41:31.787]             ...future.FUN(...)
[18:41:31.787]         }
[18:41:31.787]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:31.787]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:31.787]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.787]         do.call(mapply, args = args)
[18:41:31.787]     }
[18:41:31.787] }
[18:41:31.787] Lazy evaluation: FALSE
[18:41:31.787] Asynchronous evaluation: FALSE
[18:41:31.787] Local evaluation: TRUE
[18:41:31.787] Environment: R_GlobalEnv
[18:41:31.787] Capture standard output: TRUE
[18:41:31.787] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.787] Globals: 5 objects totaling 744 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 105 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.787] Packages: <none>
[18:41:31.787] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:31.787] Resolved: TRUE
[18:41:31.787] Value: 217 bytes of class 'list'
[18:41:31.787] Early signaling: FALSE
[18:41:31.787] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.787] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.788] Chunk #1 of 1 ... DONE
[18:41:31.789] Launching 1 futures (chunks) ... DONE
[18:41:31.789] Resolving 1 futures (chunks) ...
[18:41:31.789] resolve() on list ...
[18:41:31.789]  recursive: 0
[18:41:31.790]  length: 1
[18:41:31.790] 
[18:41:31.790] resolved() for 'SequentialFuture' ...
[18:41:31.790] - state: 'finished'
[18:41:31.791] - run: TRUE
[18:41:31.791] - result: 'FutureResult'
[18:41:31.791] resolved() for 'SequentialFuture' ... done
[18:41:31.791] Future #1
[18:41:31.792] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.792] - nx: 1
[18:41:31.792] - relay: TRUE
[18:41:31.792] - stdout: TRUE
[18:41:31.792] - signal: TRUE
[18:41:31.793] - resignal: FALSE
[18:41:31.793] - force: TRUE
[18:41:31.793] - relayed: [n=1] FALSE
[18:41:31.793] - queued futures: [n=1] FALSE
[18:41:31.794]  - until=1
[18:41:31.794]  - relaying element #1
[18:41:31.794] - relayed: [n=1] TRUE
[18:41:31.794] - queued futures: [n=1] TRUE
[18:41:31.795] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.795]  length: 0 (resolved future 1)
[18:41:31.795] Relaying remaining futures
[18:41:31.796] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.801] - nx: 1
[18:41:31.801] - relay: TRUE
[18:41:31.802] - stdout: TRUE
[18:41:31.802] - signal: TRUE
[18:41:31.802] - resignal: FALSE
[18:41:31.802] - force: TRUE
[18:41:31.802] - relayed: [n=1] TRUE
[18:41:31.802] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.803] - relayed: [n=1] TRUE
[18:41:31.803] - queued futures: [n=1] TRUE
[18:41:31.803] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.803] resolve() on list ... DONE
[18:41:31.804]  - Number of value chunks collected: 1
[18:41:31.804] Resolving 1 futures (chunks) ... DONE
[18:41:31.804] Reducing values from 1 chunks ...
[18:41:31.804]  - Number of values collected after concatenation: 2
[18:41:31.804]  - Number of values expected: 2
[18:41:31.804] Reducing values from 1 chunks ... DONE
[18:41:31.805] future_mapply() ... DONE
[18:41:31.805] future_mapply() ...
[18:41:31.805] Number of chunks: 1
[18:41:31.805] getGlobalsAndPackagesXApply() ...
[18:41:31.805]  - future.globals: TRUE
[18:41:31.806] getGlobalsAndPackages() ...
[18:41:31.806] Searching for globals...
[18:41:31.807] - globals found: [1] 'FUN'
[18:41:31.808] Searching for globals ... DONE
[18:41:31.808] Resolving globals: FALSE
[18:41:31.808] The total size of the 1 globals is 326 bytes (326 bytes)
[18:41:31.809] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 326 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (326 bytes of class 'function')
[18:41:31.809] - globals: [1] 'FUN'
[18:41:31.809] 
[18:41:31.810] getGlobalsAndPackages() ... DONE
[18:41:31.810]  - globals found/used: [n=1] 'FUN'
[18:41:31.810]  - needed namespaces: [n=0] 
[18:41:31.810] Finding globals ... DONE
[18:41:31.810] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.811] List of 2
[18:41:31.811]  $ ...future.FUN:function (x, y)  
[18:41:31.811]  $ MoreArgs     :List of 1
[18:41:31.811]   ..$ y: int [1:2] 3 4
[18:41:31.811]  - attr(*, "where")=List of 2
[18:41:31.811]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.811]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.811]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.811]  - attr(*, "resolved")= logi FALSE
[18:41:31.811]  - attr(*, "total_size")= num NA
[18:41:31.815] Packages to be attached in all futures: [n=0] 
[18:41:31.815] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.815] Number of futures (= number of chunks): 1
[18:41:31.816] Launching 1 futures (chunks) ...
[18:41:31.816] Chunk #1 of 1 ...
[18:41:31.816]  - Finding globals in '...' for chunk #1 ...
[18:41:31.816] getGlobalsAndPackages() ...
[18:41:31.817] Searching for globals...
[18:41:31.817] 
[18:41:31.817] Searching for globals ... DONE
[18:41:31.817] - globals: [0] <none>
[18:41:31.818] getGlobalsAndPackages() ... DONE
[18:41:31.818]    + additional globals found: [n=0] 
[18:41:31.818]    + additional namespaces needed: [n=0] 
[18:41:31.818]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.818]  - seeds: <none>
[18:41:31.819]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.819] getGlobalsAndPackages() ...
[18:41:31.819] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.819] Resolving globals: FALSE
[18:41:31.820] The total size of the 5 globals is 668 bytes (668 bytes)
[18:41:31.821] 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 668 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (105 bytes of class 'list')
[18:41:31.821] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.821] 
[18:41:31.821] getGlobalsAndPackages() ... DONE
[18:41:31.822] run() for 'Future' ...
[18:41:31.822] - state: 'created'
[18:41:31.822] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.823] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.823] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.823]   - Field: 'label'
[18:41:31.824]   - Field: 'local'
[18:41:31.824]   - Field: 'owner'
[18:41:31.824]   - Field: 'envir'
[18:41:31.824]   - Field: 'packages'
[18:41:31.824]   - Field: 'gc'
[18:41:31.825]   - Field: 'conditions'
[18:41:31.825]   - Field: 'expr'
[18:41:31.825]   - Field: 'uuid'
[18:41:31.825]   - Field: 'seed'
[18:41:31.825]   - Field: 'version'
[18:41:31.826]   - Field: 'result'
[18:41:31.826]   - Field: 'asynchronous'
[18:41:31.826]   - Field: 'calls'
[18:41:31.826]   - Field: 'globals'
[18:41:31.827]   - Field: 'stdout'
[18:41:31.827]   - Field: 'earlySignal'
[18:41:31.827]   - Field: 'lazy'
[18:41:31.827]   - Field: 'state'
[18:41:31.827] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.828] - Launch lazy future ...
[18:41:31.828] Packages needed by the future expression (n = 0): <none>
[18:41:31.828] Packages needed by future strategies (n = 0): <none>
[18:41:31.829] {
[18:41:31.829]     {
[18:41:31.829]         {
[18:41:31.829]             ...future.startTime <- base::Sys.time()
[18:41:31.829]             {
[18:41:31.829]                 {
[18:41:31.829]                   {
[18:41:31.829]                     base::local({
[18:41:31.829]                       has_future <- base::requireNamespace("future", 
[18:41:31.829]                         quietly = TRUE)
[18:41:31.829]                       if (has_future) {
[18:41:31.829]                         ns <- base::getNamespace("future")
[18:41:31.829]                         version <- ns[[".package"]][["version"]]
[18:41:31.829]                         if (is.null(version)) 
[18:41:31.829]                           version <- utils::packageVersion("future")
[18:41:31.829]                       }
[18:41:31.829]                       else {
[18:41:31.829]                         version <- NULL
[18:41:31.829]                       }
[18:41:31.829]                       if (!has_future || version < "1.8.0") {
[18:41:31.829]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.829]                           "", base::R.version$version.string), 
[18:41:31.829]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.829]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.829]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.829]                             "release", "version")], collapse = " "), 
[18:41:31.829]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.829]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.829]                           info)
[18:41:31.829]                         info <- base::paste(info, collapse = "; ")
[18:41:31.829]                         if (!has_future) {
[18:41:31.829]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.829]                             info)
[18:41:31.829]                         }
[18:41:31.829]                         else {
[18:41:31.829]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.829]                             info, version)
[18:41:31.829]                         }
[18:41:31.829]                         base::stop(msg)
[18:41:31.829]                       }
[18:41:31.829]                     })
[18:41:31.829]                   }
[18:41:31.829]                   ...future.strategy.old <- future::plan("list")
[18:41:31.829]                   options(future.plan = NULL)
[18:41:31.829]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.829]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.829]                 }
[18:41:31.829]                 ...future.workdir <- getwd()
[18:41:31.829]             }
[18:41:31.829]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.829]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.829]         }
[18:41:31.829]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.829]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.829]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.829]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.829]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.829]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.829]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.829]             base::names(...future.oldOptions))
[18:41:31.829]     }
[18:41:31.829]     if (FALSE) {
[18:41:31.829]     }
[18:41:31.829]     else {
[18:41:31.829]         if (TRUE) {
[18:41:31.829]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.829]                 open = "w")
[18:41:31.829]         }
[18:41:31.829]         else {
[18:41:31.829]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.829]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.829]         }
[18:41:31.829]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.829]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.829]             base::sink(type = "output", split = FALSE)
[18:41:31.829]             base::close(...future.stdout)
[18:41:31.829]         }, add = TRUE)
[18:41:31.829]     }
[18:41:31.829]     ...future.frame <- base::sys.nframe()
[18:41:31.829]     ...future.conditions <- base::list()
[18:41:31.829]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.829]     if (FALSE) {
[18:41:31.829]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.829]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.829]     }
[18:41:31.829]     ...future.result <- base::tryCatch({
[18:41:31.829]         base::withCallingHandlers({
[18:41:31.829]             ...future.value <- base::withVisible(base::local({
[18:41:31.829]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.829]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.829]                   ...future.globals.maxSize)) {
[18:41:31.829]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.829]                   on.exit(options(oopts), add = TRUE)
[18:41:31.829]                 }
[18:41:31.829]                 {
[18:41:31.829]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.829]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.829]                     USE.NAMES = FALSE)
[18:41:31.829]                   do.call(mapply, args = args)
[18:41:31.829]                 }
[18:41:31.829]             }))
[18:41:31.829]             future::FutureResult(value = ...future.value$value, 
[18:41:31.829]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.829]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.829]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.829]                     ...future.globalenv.names))
[18:41:31.829]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.829]         }, condition = base::local({
[18:41:31.829]             c <- base::c
[18:41:31.829]             inherits <- base::inherits
[18:41:31.829]             invokeRestart <- base::invokeRestart
[18:41:31.829]             length <- base::length
[18:41:31.829]             list <- base::list
[18:41:31.829]             seq.int <- base::seq.int
[18:41:31.829]             signalCondition <- base::signalCondition
[18:41:31.829]             sys.calls <- base::sys.calls
[18:41:31.829]             `[[` <- base::`[[`
[18:41:31.829]             `+` <- base::`+`
[18:41:31.829]             `<<-` <- base::`<<-`
[18:41:31.829]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.829]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.829]                   3L)]
[18:41:31.829]             }
[18:41:31.829]             function(cond) {
[18:41:31.829]                 is_error <- inherits(cond, "error")
[18:41:31.829]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.829]                   NULL)
[18:41:31.829]                 if (is_error) {
[18:41:31.829]                   sessionInformation <- function() {
[18:41:31.829]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.829]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.829]                       search = base::search(), system = base::Sys.info())
[18:41:31.829]                   }
[18:41:31.829]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.829]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.829]                     cond$call), session = sessionInformation(), 
[18:41:31.829]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.829]                   signalCondition(cond)
[18:41:31.829]                 }
[18:41:31.829]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.829]                 "immediateCondition"))) {
[18:41:31.829]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.829]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.829]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.829]                   if (TRUE && !signal) {
[18:41:31.829]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.829]                     {
[18:41:31.829]                       inherits <- base::inherits
[18:41:31.829]                       invokeRestart <- base::invokeRestart
[18:41:31.829]                       is.null <- base::is.null
[18:41:31.829]                       muffled <- FALSE
[18:41:31.829]                       if (inherits(cond, "message")) {
[18:41:31.829]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.829]                         if (muffled) 
[18:41:31.829]                           invokeRestart("muffleMessage")
[18:41:31.829]                       }
[18:41:31.829]                       else if (inherits(cond, "warning")) {
[18:41:31.829]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.829]                         if (muffled) 
[18:41:31.829]                           invokeRestart("muffleWarning")
[18:41:31.829]                       }
[18:41:31.829]                       else if (inherits(cond, "condition")) {
[18:41:31.829]                         if (!is.null(pattern)) {
[18:41:31.829]                           computeRestarts <- base::computeRestarts
[18:41:31.829]                           grepl <- base::grepl
[18:41:31.829]                           restarts <- computeRestarts(cond)
[18:41:31.829]                           for (restart in restarts) {
[18:41:31.829]                             name <- restart$name
[18:41:31.829]                             if (is.null(name)) 
[18:41:31.829]                               next
[18:41:31.829]                             if (!grepl(pattern, name)) 
[18:41:31.829]                               next
[18:41:31.829]                             invokeRestart(restart)
[18:41:31.829]                             muffled <- TRUE
[18:41:31.829]                             break
[18:41:31.829]                           }
[18:41:31.829]                         }
[18:41:31.829]                       }
[18:41:31.829]                       invisible(muffled)
[18:41:31.829]                     }
[18:41:31.829]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.829]                   }
[18:41:31.829]                 }
[18:41:31.829]                 else {
[18:41:31.829]                   if (TRUE) {
[18:41:31.829]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.829]                     {
[18:41:31.829]                       inherits <- base::inherits
[18:41:31.829]                       invokeRestart <- base::invokeRestart
[18:41:31.829]                       is.null <- base::is.null
[18:41:31.829]                       muffled <- FALSE
[18:41:31.829]                       if (inherits(cond, "message")) {
[18:41:31.829]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.829]                         if (muffled) 
[18:41:31.829]                           invokeRestart("muffleMessage")
[18:41:31.829]                       }
[18:41:31.829]                       else if (inherits(cond, "warning")) {
[18:41:31.829]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.829]                         if (muffled) 
[18:41:31.829]                           invokeRestart("muffleWarning")
[18:41:31.829]                       }
[18:41:31.829]                       else if (inherits(cond, "condition")) {
[18:41:31.829]                         if (!is.null(pattern)) {
[18:41:31.829]                           computeRestarts <- base::computeRestarts
[18:41:31.829]                           grepl <- base::grepl
[18:41:31.829]                           restarts <- computeRestarts(cond)
[18:41:31.829]                           for (restart in restarts) {
[18:41:31.829]                             name <- restart$name
[18:41:31.829]                             if (is.null(name)) 
[18:41:31.829]                               next
[18:41:31.829]                             if (!grepl(pattern, name)) 
[18:41:31.829]                               next
[18:41:31.829]                             invokeRestart(restart)
[18:41:31.829]                             muffled <- TRUE
[18:41:31.829]                             break
[18:41:31.829]                           }
[18:41:31.829]                         }
[18:41:31.829]                       }
[18:41:31.829]                       invisible(muffled)
[18:41:31.829]                     }
[18:41:31.829]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.829]                   }
[18:41:31.829]                 }
[18:41:31.829]             }
[18:41:31.829]         }))
[18:41:31.829]     }, error = function(ex) {
[18:41:31.829]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.829]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.829]                 ...future.rng), started = ...future.startTime, 
[18:41:31.829]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.829]             version = "1.8"), class = "FutureResult")
[18:41:31.829]     }, finally = {
[18:41:31.829]         if (!identical(...future.workdir, getwd())) 
[18:41:31.829]             setwd(...future.workdir)
[18:41:31.829]         {
[18:41:31.829]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.829]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.829]             }
[18:41:31.829]             base::options(...future.oldOptions)
[18:41:31.829]             if (.Platform$OS.type == "windows") {
[18:41:31.829]                 old_names <- names(...future.oldEnvVars)
[18:41:31.829]                 envs <- base::Sys.getenv()
[18:41:31.829]                 names <- names(envs)
[18:41:31.829]                 common <- intersect(names, old_names)
[18:41:31.829]                 added <- setdiff(names, old_names)
[18:41:31.829]                 removed <- setdiff(old_names, names)
[18:41:31.829]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.829]                   envs[common]]
[18:41:31.829]                 NAMES <- toupper(changed)
[18:41:31.829]                 args <- list()
[18:41:31.829]                 for (kk in seq_along(NAMES)) {
[18:41:31.829]                   name <- changed[[kk]]
[18:41:31.829]                   NAME <- NAMES[[kk]]
[18:41:31.829]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.829]                     next
[18:41:31.829]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.829]                 }
[18:41:31.829]                 NAMES <- toupper(added)
[18:41:31.829]                 for (kk in seq_along(NAMES)) {
[18:41:31.829]                   name <- added[[kk]]
[18:41:31.829]                   NAME <- NAMES[[kk]]
[18:41:31.829]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.829]                     next
[18:41:31.829]                   args[[name]] <- ""
[18:41:31.829]                 }
[18:41:31.829]                 NAMES <- toupper(removed)
[18:41:31.829]                 for (kk in seq_along(NAMES)) {
[18:41:31.829]                   name <- removed[[kk]]
[18:41:31.829]                   NAME <- NAMES[[kk]]
[18:41:31.829]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.829]                     next
[18:41:31.829]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.829]                 }
[18:41:31.829]                 if (length(args) > 0) 
[18:41:31.829]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.829]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.829]             }
[18:41:31.829]             else {
[18:41:31.829]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.829]             }
[18:41:31.829]             {
[18:41:31.829]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.829]                   0L) {
[18:41:31.829]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.829]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.829]                   base::options(opts)
[18:41:31.829]                 }
[18:41:31.829]                 {
[18:41:31.829]                   {
[18:41:31.829]                     base::assign(".Random.seed", c(10407L, 74338427L, 
[18:41:31.829]                     -1247135859L, 1429913920L, -486500277L, 1398381932L, 
[18:41:31.829]                     -78108245L), envir = base::globalenv(), inherits = FALSE)
[18:41:31.829]                     NULL
[18:41:31.829]                   }
[18:41:31.829]                   options(future.plan = NULL)
[18:41:31.829]                   if (is.na(NA_character_)) 
[18:41:31.829]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.829]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.829]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.829]                     .init = FALSE)
[18:41:31.829]                 }
[18:41:31.829]             }
[18:41:31.829]         }
[18:41:31.829]     })
[18:41:31.829]     if (TRUE) {
[18:41:31.829]         base::sink(type = "output", split = FALSE)
[18:41:31.829]         if (TRUE) {
[18:41:31.829]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.829]         }
[18:41:31.829]         else {
[18:41:31.829]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.829]         }
[18:41:31.829]         base::close(...future.stdout)
[18:41:31.829]         ...future.stdout <- NULL
[18:41:31.829]     }
[18:41:31.829]     ...future.result$conditions <- ...future.conditions
[18:41:31.829]     ...future.result$finished <- base::Sys.time()
[18:41:31.829]     ...future.result
[18:41:31.829] }
[18:41:31.833] assign_globals() ...
[18:41:31.833] List of 5
[18:41:31.833]  $ ...future.FUN            :function (x, y)  
[18:41:31.833]  $ MoreArgs                 :List of 1
[18:41:31.833]   ..$ y: int [1:2] 3 4
[18:41:31.833]  $ ...future.elements_ii    :List of 1
[18:41:31.833]   ..$ x:List of 2
[18:41:31.833]   .. ..$ : int 1
[18:41:31.833]   .. ..$ : int 2
[18:41:31.833]  $ ...future.seeds_ii       : NULL
[18:41:31.833]  $ ...future.globals.maxSize: NULL
[18:41:31.833]  - attr(*, "where")=List of 5
[18:41:31.833]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.833]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.833]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.833]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.833]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.833]  - attr(*, "resolved")= logi FALSE
[18:41:31.833]  - attr(*, "total_size")= int 668
[18:41:31.833]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.833]  - attr(*, "already-done")= logi TRUE
[18:41:31.842] - reassign environment for '...future.FUN'
[18:41:31.842] - copied '...future.FUN' to environment
[18:41:31.842] - copied 'MoreArgs' to environment
[18:41:31.843] - copied '...future.elements_ii' to environment
[18:41:31.843] - copied '...future.seeds_ii' to environment
[18:41:31.843] - copied '...future.globals.maxSize' to environment
[18:41:31.843] assign_globals() ... done
[18:41:31.844] plan(): Setting new future strategy stack:
[18:41:31.844] List of future strategies:
[18:41:31.844] 1. sequential:
[18:41:31.844]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.844]    - tweaked: FALSE
[18:41:31.844]    - call: NULL
[18:41:31.845] plan(): nbrOfWorkers() = 1
[18:41:31.846] plan(): Setting new future strategy stack:
[18:41:31.847] List of future strategies:
[18:41:31.847] 1. sequential:
[18:41:31.847]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.847]    - tweaked: FALSE
[18:41:31.847]    - call: plan(strategy)
[18:41:31.847] plan(): nbrOfWorkers() = 1
[18:41:31.848] SequentialFuture started (and completed)
[18:41:31.848] - Launch lazy future ... done
[18:41:31.848] run() for 'SequentialFuture' ... done
[18:41:31.848] Created future:
[18:41:31.848] SequentialFuture:
[18:41:31.848] Label: 'future_.mapply-1'
[18:41:31.848] Expression:
[18:41:31.848] {
[18:41:31.848]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.848]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.848]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.848]         on.exit(options(oopts), add = TRUE)
[18:41:31.848]     }
[18:41:31.848]     {
[18:41:31.848]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.848]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.848]         do.call(mapply, args = args)
[18:41:31.848]     }
[18:41:31.848] }
[18:41:31.848] Lazy evaluation: FALSE
[18:41:31.848] Asynchronous evaluation: FALSE
[18:41:31.848] Local evaluation: TRUE
[18:41:31.848] Environment: R_GlobalEnv
[18:41:31.848] Capture standard output: TRUE
[18:41:31.848] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.848] Globals: 5 objects totaling 668 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.848] Packages: <none>
[18:41:31.848] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.848] Resolved: TRUE
[18:41:31.848] Value: 217 bytes of class 'list'
[18:41:31.848] Early signaling: FALSE
[18:41:31.848] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.848] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.850] Chunk #1 of 1 ... DONE
[18:41:31.850] Launching 1 futures (chunks) ... DONE
[18:41:31.850] Resolving 1 futures (chunks) ...
[18:41:31.850] resolve() on list ...
[18:41:31.851]  recursive: 0
[18:41:31.851]  length: 1
[18:41:31.851] 
[18:41:31.851] resolved() for 'SequentialFuture' ...
[18:41:31.852] - state: 'finished'
[18:41:31.852] - run: TRUE
[18:41:31.852] - result: 'FutureResult'
[18:41:31.852] resolved() for 'SequentialFuture' ... done
[18:41:31.852] Future #1
[18:41:31.853] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.853] - nx: 1
[18:41:31.853] - relay: TRUE
[18:41:31.853] - stdout: TRUE
[18:41:31.853] - signal: TRUE
[18:41:31.854] - resignal: FALSE
[18:41:31.854] - force: TRUE
[18:41:31.854] - relayed: [n=1] FALSE
[18:41:31.854] - queued futures: [n=1] FALSE
[18:41:31.854]  - until=1
[18:41:31.854]  - relaying element #1
[18:41:31.855] - relayed: [n=1] TRUE
[18:41:31.855] - queued futures: [n=1] TRUE
[18:41:31.855] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.855]  length: 0 (resolved future 1)
[18:41:31.856] Relaying remaining futures
[18:41:31.856] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.856] - nx: 1
[18:41:31.856] - relay: TRUE
[18:41:31.856] - stdout: TRUE
[18:41:31.857] - signal: TRUE
[18:41:31.857] - resignal: FALSE
[18:41:31.857] - force: TRUE
[18:41:31.857] - relayed: [n=1] TRUE
[18:41:31.857] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.858] - relayed: [n=1] TRUE
[18:41:31.858] - queued futures: [n=1] TRUE
[18:41:31.858] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.858] resolve() on list ... DONE
[18:41:31.858]  - Number of value chunks collected: 1
[18:41:31.859] Resolving 1 futures (chunks) ... DONE
[18:41:31.859] Reducing values from 1 chunks ...
[18:41:31.859]  - Number of values collected after concatenation: 2
[18:41:31.859]  - Number of values expected: 2
[18:41:31.859] Reducing values from 1 chunks ... DONE
[18:41:31.860] future_mapply() ... DONE
- Recycle arguments to same length ...
[18:41:31.860] future_mapply() ...
[18:41:31.860] Number of chunks: 1
[18:41:31.861] getGlobalsAndPackagesXApply() ...
[18:41:31.861]  - future.globals: TRUE
[18:41:31.861] getGlobalsAndPackages() ...
[18:41:31.861] Searching for globals...
[18:41:31.862] - globals found: [1] 'FUN'
[18:41:31.862] Searching for globals ... DONE
[18:41:31.863] Resolving globals: FALSE
[18:41:31.863] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:31.864] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:31.864] - globals: [1] 'FUN'
[18:41:31.864] 
[18:41:31.864] getGlobalsAndPackages() ... DONE
[18:41:31.864]  - globals found/used: [n=1] 'FUN'
[18:41:31.865]  - needed namespaces: [n=0] 
[18:41:31.865] Finding globals ... DONE
[18:41:31.865] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.865] List of 2
[18:41:31.865]  $ ...future.FUN:function (x, ...)  
[18:41:31.865]  $ MoreArgs     : NULL
[18:41:31.865]  - attr(*, "where")=List of 2
[18:41:31.865]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.865]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.865]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.865]  - attr(*, "resolved")= logi FALSE
[18:41:31.865]  - attr(*, "total_size")= num NA
[18:41:31.869] Packages to be attached in all futures: [n=0] 
[18:41:31.869] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.870] Number of futures (= number of chunks): 1
[18:41:31.870] Launching 1 futures (chunks) ...
[18:41:31.870] Chunk #1 of 1 ...
[18:41:31.870]  - Finding globals in '...' for chunk #1 ...
[18:41:31.871] getGlobalsAndPackages() ...
[18:41:31.871] Searching for globals...
[18:41:31.871] 
[18:41:31.871] Searching for globals ... DONE
[18:41:31.872] - globals: [0] <none>
[18:41:31.872] getGlobalsAndPackages() ... DONE
[18:41:31.872]    + additional globals found: [n=0] 
[18:41:31.872]    + additional namespaces needed: [n=0] 
[18:41:31.872]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.873]  - seeds: <none>
[18:41:31.873]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.873] getGlobalsAndPackages() ...
[18:41:31.873] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.873] Resolving globals: FALSE
[18:41:31.874] The total size of the 5 globals is 258 bytes (258 bytes)
[18:41:31.875] 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 258 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (143 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:31.875] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.875] 
[18:41:31.875] getGlobalsAndPackages() ... DONE
[18:41:31.876] run() for 'Future' ...
[18:41:31.876] - state: 'created'
[18:41:31.876] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.877] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.877] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.877]   - Field: 'label'
[18:41:31.878]   - Field: 'local'
[18:41:31.878]   - Field: 'owner'
[18:41:31.878]   - Field: 'envir'
[18:41:31.878]   - Field: 'packages'
[18:41:31.878]   - Field: 'gc'
[18:41:31.879]   - Field: 'conditions'
[18:41:31.879]   - Field: 'expr'
[18:41:31.879]   - Field: 'uuid'
[18:41:31.879]   - Field: 'seed'
[18:41:31.879]   - Field: 'version'
[18:41:31.880]   - Field: 'result'
[18:41:31.880]   - Field: 'asynchronous'
[18:41:31.880]   - Field: 'calls'
[18:41:31.880]   - Field: 'globals'
[18:41:31.881]   - Field: 'stdout'
[18:41:31.881]   - Field: 'earlySignal'
[18:41:31.881]   - Field: 'lazy'
[18:41:31.881]   - Field: 'state'
[18:41:31.881] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.882] - Launch lazy future ...
[18:41:31.882] Packages needed by the future expression (n = 0): <none>
[18:41:31.882] Packages needed by future strategies (n = 0): <none>
[18:41:31.883] {
[18:41:31.883]     {
[18:41:31.883]         {
[18:41:31.883]             ...future.startTime <- base::Sys.time()
[18:41:31.883]             {
[18:41:31.883]                 {
[18:41:31.883]                   {
[18:41:31.883]                     base::local({
[18:41:31.883]                       has_future <- base::requireNamespace("future", 
[18:41:31.883]                         quietly = TRUE)
[18:41:31.883]                       if (has_future) {
[18:41:31.883]                         ns <- base::getNamespace("future")
[18:41:31.883]                         version <- ns[[".package"]][["version"]]
[18:41:31.883]                         if (is.null(version)) 
[18:41:31.883]                           version <- utils::packageVersion("future")
[18:41:31.883]                       }
[18:41:31.883]                       else {
[18:41:31.883]                         version <- NULL
[18:41:31.883]                       }
[18:41:31.883]                       if (!has_future || version < "1.8.0") {
[18:41:31.883]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.883]                           "", base::R.version$version.string), 
[18:41:31.883]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:31.883]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.883]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.883]                             "release", "version")], collapse = " "), 
[18:41:31.883]                           hostname = base::Sys.info()[["nodename"]])
[18:41:31.883]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.883]                           info)
[18:41:31.883]                         info <- base::paste(info, collapse = "; ")
[18:41:31.883]                         if (!has_future) {
[18:41:31.883]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.883]                             info)
[18:41:31.883]                         }
[18:41:31.883]                         else {
[18:41:31.883]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.883]                             info, version)
[18:41:31.883]                         }
[18:41:31.883]                         base::stop(msg)
[18:41:31.883]                       }
[18:41:31.883]                     })
[18:41:31.883]                   }
[18:41:31.883]                   ...future.strategy.old <- future::plan("list")
[18:41:31.883]                   options(future.plan = NULL)
[18:41:31.883]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.883]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.883]                 }
[18:41:31.883]                 ...future.workdir <- getwd()
[18:41:31.883]             }
[18:41:31.883]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.883]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.883]         }
[18:41:31.883]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.883]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.883]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.883]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.883]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.883]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.883]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.883]             base::names(...future.oldOptions))
[18:41:31.883]     }
[18:41:31.883]     if (FALSE) {
[18:41:31.883]     }
[18:41:31.883]     else {
[18:41:31.883]         if (TRUE) {
[18:41:31.883]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.883]                 open = "w")
[18:41:31.883]         }
[18:41:31.883]         else {
[18:41:31.883]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.883]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.883]         }
[18:41:31.883]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.883]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.883]             base::sink(type = "output", split = FALSE)
[18:41:31.883]             base::close(...future.stdout)
[18:41:31.883]         }, add = TRUE)
[18:41:31.883]     }
[18:41:31.883]     ...future.frame <- base::sys.nframe()
[18:41:31.883]     ...future.conditions <- base::list()
[18:41:31.883]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.883]     if (FALSE) {
[18:41:31.883]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.883]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.883]     }
[18:41:31.883]     ...future.result <- base::tryCatch({
[18:41:31.883]         base::withCallingHandlers({
[18:41:31.883]             ...future.value <- base::withVisible(base::local({
[18:41:31.883]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.883]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.883]                   ...future.globals.maxSize)) {
[18:41:31.883]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.883]                   on.exit(options(oopts), add = TRUE)
[18:41:31.883]                 }
[18:41:31.883]                 {
[18:41:31.883]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.883]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.883]                     USE.NAMES = FALSE)
[18:41:31.883]                   do.call(mapply, args = args)
[18:41:31.883]                 }
[18:41:31.883]             }))
[18:41:31.883]             future::FutureResult(value = ...future.value$value, 
[18:41:31.883]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.883]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.883]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.883]                     ...future.globalenv.names))
[18:41:31.883]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.883]         }, condition = base::local({
[18:41:31.883]             c <- base::c
[18:41:31.883]             inherits <- base::inherits
[18:41:31.883]             invokeRestart <- base::invokeRestart
[18:41:31.883]             length <- base::length
[18:41:31.883]             list <- base::list
[18:41:31.883]             seq.int <- base::seq.int
[18:41:31.883]             signalCondition <- base::signalCondition
[18:41:31.883]             sys.calls <- base::sys.calls
[18:41:31.883]             `[[` <- base::`[[`
[18:41:31.883]             `+` <- base::`+`
[18:41:31.883]             `<<-` <- base::`<<-`
[18:41:31.883]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.883]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.883]                   3L)]
[18:41:31.883]             }
[18:41:31.883]             function(cond) {
[18:41:31.883]                 is_error <- inherits(cond, "error")
[18:41:31.883]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.883]                   NULL)
[18:41:31.883]                 if (is_error) {
[18:41:31.883]                   sessionInformation <- function() {
[18:41:31.883]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.883]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.883]                       search = base::search(), system = base::Sys.info())
[18:41:31.883]                   }
[18:41:31.883]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.883]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.883]                     cond$call), session = sessionInformation(), 
[18:41:31.883]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.883]                   signalCondition(cond)
[18:41:31.883]                 }
[18:41:31.883]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.883]                 "immediateCondition"))) {
[18:41:31.883]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.883]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.883]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.883]                   if (TRUE && !signal) {
[18:41:31.883]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.883]                     {
[18:41:31.883]                       inherits <- base::inherits
[18:41:31.883]                       invokeRestart <- base::invokeRestart
[18:41:31.883]                       is.null <- base::is.null
[18:41:31.883]                       muffled <- FALSE
[18:41:31.883]                       if (inherits(cond, "message")) {
[18:41:31.883]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.883]                         if (muffled) 
[18:41:31.883]                           invokeRestart("muffleMessage")
[18:41:31.883]                       }
[18:41:31.883]                       else if (inherits(cond, "warning")) {
[18:41:31.883]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.883]                         if (muffled) 
[18:41:31.883]                           invokeRestart("muffleWarning")
[18:41:31.883]                       }
[18:41:31.883]                       else if (inherits(cond, "condition")) {
[18:41:31.883]                         if (!is.null(pattern)) {
[18:41:31.883]                           computeRestarts <- base::computeRestarts
[18:41:31.883]                           grepl <- base::grepl
[18:41:31.883]                           restarts <- computeRestarts(cond)
[18:41:31.883]                           for (restart in restarts) {
[18:41:31.883]                             name <- restart$name
[18:41:31.883]                             if (is.null(name)) 
[18:41:31.883]                               next
[18:41:31.883]                             if (!grepl(pattern, name)) 
[18:41:31.883]                               next
[18:41:31.883]                             invokeRestart(restart)
[18:41:31.883]                             muffled <- TRUE
[18:41:31.883]                             break
[18:41:31.883]                           }
[18:41:31.883]                         }
[18:41:31.883]                       }
[18:41:31.883]                       invisible(muffled)
[18:41:31.883]                     }
[18:41:31.883]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.883]                   }
[18:41:31.883]                 }
[18:41:31.883]                 else {
[18:41:31.883]                   if (TRUE) {
[18:41:31.883]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.883]                     {
[18:41:31.883]                       inherits <- base::inherits
[18:41:31.883]                       invokeRestart <- base::invokeRestart
[18:41:31.883]                       is.null <- base::is.null
[18:41:31.883]                       muffled <- FALSE
[18:41:31.883]                       if (inherits(cond, "message")) {
[18:41:31.883]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.883]                         if (muffled) 
[18:41:31.883]                           invokeRestart("muffleMessage")
[18:41:31.883]                       }
[18:41:31.883]                       else if (inherits(cond, "warning")) {
[18:41:31.883]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.883]                         if (muffled) 
[18:41:31.883]                           invokeRestart("muffleWarning")
[18:41:31.883]                       }
[18:41:31.883]                       else if (inherits(cond, "condition")) {
[18:41:31.883]                         if (!is.null(pattern)) {
[18:41:31.883]                           computeRestarts <- base::computeRestarts
[18:41:31.883]                           grepl <- base::grepl
[18:41:31.883]                           restarts <- computeRestarts(cond)
[18:41:31.883]                           for (restart in restarts) {
[18:41:31.883]                             name <- restart$name
[18:41:31.883]                             if (is.null(name)) 
[18:41:31.883]                               next
[18:41:31.883]                             if (!grepl(pattern, name)) 
[18:41:31.883]                               next
[18:41:31.883]                             invokeRestart(restart)
[18:41:31.883]                             muffled <- TRUE
[18:41:31.883]                             break
[18:41:31.883]                           }
[18:41:31.883]                         }
[18:41:31.883]                       }
[18:41:31.883]                       invisible(muffled)
[18:41:31.883]                     }
[18:41:31.883]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.883]                   }
[18:41:31.883]                 }
[18:41:31.883]             }
[18:41:31.883]         }))
[18:41:31.883]     }, error = function(ex) {
[18:41:31.883]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.883]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.883]                 ...future.rng), started = ...future.startTime, 
[18:41:31.883]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.883]             version = "1.8"), class = "FutureResult")
[18:41:31.883]     }, finally = {
[18:41:31.883]         if (!identical(...future.workdir, getwd())) 
[18:41:31.883]             setwd(...future.workdir)
[18:41:31.883]         {
[18:41:31.883]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.883]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.883]             }
[18:41:31.883]             base::options(...future.oldOptions)
[18:41:31.883]             if (.Platform$OS.type == "windows") {
[18:41:31.883]                 old_names <- names(...future.oldEnvVars)
[18:41:31.883]                 envs <- base::Sys.getenv()
[18:41:31.883]                 names <- names(envs)
[18:41:31.883]                 common <- intersect(names, old_names)
[18:41:31.883]                 added <- setdiff(names, old_names)
[18:41:31.883]                 removed <- setdiff(old_names, names)
[18:41:31.883]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.883]                   envs[common]]
[18:41:31.883]                 NAMES <- toupper(changed)
[18:41:31.883]                 args <- list()
[18:41:31.883]                 for (kk in seq_along(NAMES)) {
[18:41:31.883]                   name <- changed[[kk]]
[18:41:31.883]                   NAME <- NAMES[[kk]]
[18:41:31.883]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.883]                     next
[18:41:31.883]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.883]                 }
[18:41:31.883]                 NAMES <- toupper(added)
[18:41:31.883]                 for (kk in seq_along(NAMES)) {
[18:41:31.883]                   name <- added[[kk]]
[18:41:31.883]                   NAME <- NAMES[[kk]]
[18:41:31.883]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.883]                     next
[18:41:31.883]                   args[[name]] <- ""
[18:41:31.883]                 }
[18:41:31.883]                 NAMES <- toupper(removed)
[18:41:31.883]                 for (kk in seq_along(NAMES)) {
[18:41:31.883]                   name <- removed[[kk]]
[18:41:31.883]                   NAME <- NAMES[[kk]]
[18:41:31.883]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.883]                     next
[18:41:31.883]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.883]                 }
[18:41:31.883]                 if (length(args) > 0) 
[18:41:31.883]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.883]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.883]             }
[18:41:31.883]             else {
[18:41:31.883]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.883]             }
[18:41:31.883]             {
[18:41:31.883]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.883]                   0L) {
[18:41:31.883]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.883]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.883]                   base::options(opts)
[18:41:31.883]                 }
[18:41:31.883]                 {
[18:41:31.883]                   {
[18:41:31.883]                     base::assign(".Random.seed", c(10407L, 74338427L, 
[18:41:31.883]                     -1247135859L, 1429913920L, -486500277L, 1398381932L, 
[18:41:31.883]                     -78108245L), envir = base::globalenv(), inherits = FALSE)
[18:41:31.883]                     NULL
[18:41:31.883]                   }
[18:41:31.883]                   options(future.plan = NULL)
[18:41:31.883]                   if (is.na(NA_character_)) 
[18:41:31.883]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.883]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.883]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.883]                     .init = FALSE)
[18:41:31.883]                 }
[18:41:31.883]             }
[18:41:31.883]         }
[18:41:31.883]     })
[18:41:31.883]     if (TRUE) {
[18:41:31.883]         base::sink(type = "output", split = FALSE)
[18:41:31.883]         if (TRUE) {
[18:41:31.883]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.883]         }
[18:41:31.883]         else {
[18:41:31.883]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.883]         }
[18:41:31.883]         base::close(...future.stdout)
[18:41:31.883]         ...future.stdout <- NULL
[18:41:31.883]     }
[18:41:31.883]     ...future.result$conditions <- ...future.conditions
[18:41:31.883]     ...future.result$finished <- base::Sys.time()
[18:41:31.883]     ...future.result
[18:41:31.883] }
[18:41:31.887] assign_globals() ...
[18:41:31.887] List of 5
[18:41:31.887]  $ ...future.FUN            :function (x, ...)  
[18:41:31.887]  $ MoreArgs                 : NULL
[18:41:31.887]  $ ...future.elements_ii    :List of 2
[18:41:31.887]   ..$ :List of 4
[18:41:31.887]   .. ..$ : int 1
[18:41:31.887]   .. ..$ : int 2
[18:41:31.887]   .. ..$ : int 3
[18:41:31.887]   .. ..$ : int 4
[18:41:31.887]   ..$ :List of 4
[18:41:31.887]   .. ..$ : int 2
[18:41:31.887]   .. ..$ : int 1
[18:41:31.887]   .. ..$ : int 2
[18:41:31.887]   .. ..$ : int 1
[18:41:31.887]  $ ...future.seeds_ii       : NULL
[18:41:31.887]  $ ...future.globals.maxSize: NULL
[18:41:31.887]  - attr(*, "where")=List of 5
[18:41:31.887]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.887]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.887]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.887]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.887]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.887]  - attr(*, "resolved")= logi FALSE
[18:41:31.887]  - attr(*, "total_size")= int 258
[18:41:31.887]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.887]  - attr(*, "already-done")= logi TRUE
[18:41:31.898] - copied '...future.FUN' to environment
[18:41:31.899] - copied 'MoreArgs' to environment
[18:41:31.899] - copied '...future.elements_ii' to environment
[18:41:31.899] - copied '...future.seeds_ii' to environment
[18:41:31.899] - copied '...future.globals.maxSize' to environment
[18:41:31.899] assign_globals() ... done
[18:41:31.900] plan(): Setting new future strategy stack:
[18:41:31.900] List of future strategies:
[18:41:31.900] 1. sequential:
[18:41:31.900]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.900]    - tweaked: FALSE
[18:41:31.900]    - call: NULL
[18:41:31.901] plan(): nbrOfWorkers() = 1
[18:41:31.903] plan(): Setting new future strategy stack:
[18:41:31.903] List of future strategies:
[18:41:31.903] 1. sequential:
[18:41:31.903]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.903]    - tweaked: FALSE
[18:41:31.903]    - call: plan(strategy)
[18:41:31.904] plan(): nbrOfWorkers() = 1
[18:41:31.904] SequentialFuture started (and completed)
[18:41:31.904] - Launch lazy future ... done
[18:41:31.905] run() for 'SequentialFuture' ... done
[18:41:31.905] Created future:
[18:41:31.905] SequentialFuture:
[18:41:31.905] Label: 'future_mapply-1'
[18:41:31.905] Expression:
[18:41:31.905] {
[18:41:31.905]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.905]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.905]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.905]         on.exit(options(oopts), add = TRUE)
[18:41:31.905]     }
[18:41:31.905]     {
[18:41:31.905]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:31.905]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.905]         do.call(mapply, args = args)
[18:41:31.905]     }
[18:41:31.905] }
[18:41:31.905] Lazy evaluation: FALSE
[18:41:31.905] Asynchronous evaluation: FALSE
[18:41:31.905] Local evaluation: TRUE
[18:41:31.905] Environment: R_GlobalEnv
[18:41:31.905] Capture standard output: TRUE
[18:41:31.905] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.905] Globals: 5 objects totaling 258 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 143 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.905] Packages: <none>
[18:41:31.905] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:31.905] Resolved: TRUE
[18:41:31.905] Value: 87 bytes of class 'list'
[18:41:31.905] Early signaling: FALSE
[18:41:31.905] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.905] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.906] Chunk #1 of 1 ... DONE
[18:41:31.907] Launching 1 futures (chunks) ... DONE
[18:41:31.907] Resolving 1 futures (chunks) ...
[18:41:31.907] resolve() on list ...
[18:41:31.907]  recursive: 0
[18:41:31.907]  length: 1
[18:41:31.908] 
[18:41:31.908] resolved() for 'SequentialFuture' ...
[18:41:31.908] - state: 'finished'
[18:41:31.908] - run: TRUE
[18:41:31.909] - result: 'FutureResult'
[18:41:31.909] resolved() for 'SequentialFuture' ... done
[18:41:31.909] Future #1
[18:41:31.909] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.910] - nx: 1
[18:41:31.910] - relay: TRUE
[18:41:31.910] - stdout: TRUE
[18:41:31.910] - signal: TRUE
[18:41:31.910] - resignal: FALSE
[18:41:31.911] - force: TRUE
[18:41:31.911] - relayed: [n=1] FALSE
[18:41:31.911] - queued futures: [n=1] FALSE
[18:41:31.911]  - until=1
[18:41:31.911]  - relaying element #1
[18:41:31.912] - relayed: [n=1] TRUE
[18:41:31.912] - queued futures: [n=1] TRUE
[18:41:31.912] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.912]  length: 0 (resolved future 1)
[18:41:31.913] Relaying remaining futures
[18:41:31.913] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.913] - nx: 1
[18:41:31.913] - relay: TRUE
[18:41:31.913] - stdout: TRUE
[18:41:31.913] - signal: TRUE
[18:41:31.914] - resignal: FALSE
[18:41:31.914] - force: TRUE
[18:41:31.914] - relayed: [n=1] TRUE
[18:41:31.914] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.915] - relayed: [n=1] TRUE
[18:41:31.915] - queued futures: [n=1] TRUE
[18:41:31.915] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.915] resolve() on list ... DONE
[18:41:31.916]  - Number of value chunks collected: 1
[18:41:31.916] Resolving 1 futures (chunks) ... DONE
[18:41:31.916] Reducing values from 1 chunks ...
[18:41:31.916]  - Number of values collected after concatenation: 4
[18:41:31.916]  - Number of values expected: 4
[18:41:31.917] Reducing values from 1 chunks ... DONE
[18:41:31.917] future_mapply() ... DONE
- Parallel RNG ...
[18:41:31.917] future_mapply() ...
[18:41:31.917] Generating random seeds ...
[18:41:31.918] Generating random seed streams for 4 elements ...
[18:41:31.918] Generating random seed streams for 4 elements ... DONE
[18:41:31.918] Generating random seeds ... DONE
[18:41:31.918] Will set RNG state on exit: 10407, 1429913920, 864270648, 114150639, -78108245, -1136851414, 959573863
[18:41:31.919] Number of chunks: 1
[18:41:31.919] getGlobalsAndPackagesXApply() ...
[18:41:31.919]  - future.globals: TRUE
[18:41:31.919] getGlobalsAndPackages() ...
[18:41:31.920] Searching for globals...
[18:41:31.922] - globals found: [3] 'FUN', '.Call', 'C_runif'
[18:41:31.922] Searching for globals ... DONE
[18:41:31.922] Resolving globals: FALSE
[18:41:31.923] The total size of the 1 globals is 501 bytes (501 bytes)
[18:41:31.924] The total size of the 1 globals exported for future expression ('FUN(min = 1)') is 501 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (501 bytes of class 'function')
[18:41:31.924] - globals: [1] 'FUN'
[18:41:31.924] - packages: [1] 'stats'
[18:41:31.924] getGlobalsAndPackages() ... DONE
[18:41:31.925]  - globals found/used: [n=1] 'FUN'
[18:41:31.925]  - needed namespaces: [n=1] 'stats'
[18:41:31.925] Finding globals ... DONE
[18:41:31.925] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.926] List of 2
[18:41:31.926]  $ ...future.FUN:function (n, min = 0, max = 1)  
[18:41:31.926]  $ MoreArgs     :List of 1
[18:41:31.926]   ..$ min: num 1
[18:41:31.926]  - attr(*, "where")=List of 2
[18:41:31.926]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.926]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.926]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.926]  - attr(*, "resolved")= logi FALSE
[18:41:31.926]  - attr(*, "total_size")= num NA
[18:41:31.930] Packages to be attached in all futures: [n=1] 'stats'
[18:41:31.930] getGlobalsAndPackagesXApply() ... DONE
[18:41:31.931] Number of futures (= number of chunks): 1
[18:41:31.931] Launching 1 futures (chunks) ...
[18:41:31.931] Chunk #1 of 1 ...
[18:41:31.932]  - Finding globals in '...' for chunk #1 ...
[18:41:31.932] getGlobalsAndPackages() ...
[18:41:31.932] Searching for globals...
[18:41:31.932] 
[18:41:31.933] Searching for globals ... DONE
[18:41:31.933] - globals: [0] <none>
[18:41:31.933] getGlobalsAndPackages() ... DONE
[18:41:31.933]    + additional globals found: [n=0] 
[18:41:31.933]    + additional namespaces needed: [n=0] 
[18:41:31.934]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:31.934]  - seeds: [4] <seeds>
[18:41:31.934]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.934] getGlobalsAndPackages() ...
[18:41:31.934] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.935] Resolving globals: FALSE
[18:41:31.935] The total size of the 5 globals is 990 bytes (990 bytes)
[18:41:31.936] 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 990 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (501 bytes of class 'function'), '...future.elements_ii' (196 bytes of class 'list') and '...future.seeds_ii' (175 bytes of class 'list')
[18:41:31.937] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:31.937] - packages: [1] 'stats'
[18:41:31.937] getGlobalsAndPackages() ... DONE
[18:41:31.938] run() for 'Future' ...
[18:41:31.938] - state: 'created'
[18:41:31.938] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:31.939] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.939] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:31.939]   - Field: 'label'
[18:41:31.939]   - Field: 'local'
[18:41:31.940]   - Field: 'owner'
[18:41:31.940]   - Field: 'envir'
[18:41:31.940]   - Field: 'packages'
[18:41:31.940]   - Field: 'gc'
[18:41:31.941]   - Field: 'conditions'
[18:41:31.941]   - Field: 'expr'
[18:41:31.941]   - Field: 'uuid'
[18:41:31.941]   - Field: 'seed'
[18:41:31.941]   - Field: 'version'
[18:41:31.942]   - Field: 'result'
[18:41:31.942]   - Field: 'asynchronous'
[18:41:31.942]   - Field: 'calls'
[18:41:31.942]   - Field: 'globals'
[18:41:31.943]   - Field: 'stdout'
[18:41:31.943]   - Field: 'earlySignal'
[18:41:31.943]   - Field: 'lazy'
[18:41:31.943]   - Field: 'state'
[18:41:31.943] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:31.944] - Launch lazy future ...
[18:41:31.944] Packages needed by the future expression (n = 1): 'stats'
[18:41:31.944] Packages needed by future strategies (n = 0): <none>
[18:41:31.945] {
[18:41:31.945]     {
[18:41:31.945]         {
[18:41:31.945]             ...future.startTime <- base::Sys.time()
[18:41:31.945]             {
[18:41:31.945]                 {
[18:41:31.945]                   {
[18:41:31.945]                     {
[18:41:31.945]                       base::local({
[18:41:31.945]                         has_future <- base::requireNamespace("future", 
[18:41:31.945]                           quietly = TRUE)
[18:41:31.945]                         if (has_future) {
[18:41:31.945]                           ns <- base::getNamespace("future")
[18:41:31.945]                           version <- ns[[".package"]][["version"]]
[18:41:31.945]                           if (is.null(version)) 
[18:41:31.945]                             version <- utils::packageVersion("future")
[18:41:31.945]                         }
[18:41:31.945]                         else {
[18:41:31.945]                           version <- NULL
[18:41:31.945]                         }
[18:41:31.945]                         if (!has_future || version < "1.8.0") {
[18:41:31.945]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:31.945]                             "", base::R.version$version.string), 
[18:41:31.945]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:31.945]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:31.945]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:31.945]                               "release", "version")], collapse = " "), 
[18:41:31.945]                             hostname = base::Sys.info()[["nodename"]])
[18:41:31.945]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:31.945]                             info)
[18:41:31.945]                           info <- base::paste(info, collapse = "; ")
[18:41:31.945]                           if (!has_future) {
[18:41:31.945]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:31.945]                               info)
[18:41:31.945]                           }
[18:41:31.945]                           else {
[18:41:31.945]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:31.945]                               info, version)
[18:41:31.945]                           }
[18:41:31.945]                           base::stop(msg)
[18:41:31.945]                         }
[18:41:31.945]                       })
[18:41:31.945]                     }
[18:41:31.945]                     base::local({
[18:41:31.945]                       for (pkg in "stats") {
[18:41:31.945]                         base::loadNamespace(pkg)
[18:41:31.945]                         base::library(pkg, character.only = TRUE)
[18:41:31.945]                       }
[18:41:31.945]                     })
[18:41:31.945]                   }
[18:41:31.945]                   ...future.strategy.old <- future::plan("list")
[18:41:31.945]                   options(future.plan = NULL)
[18:41:31.945]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.945]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:31.945]                 }
[18:41:31.945]                 ...future.workdir <- getwd()
[18:41:31.945]             }
[18:41:31.945]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:31.945]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:31.945]         }
[18:41:31.945]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:31.945]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:31.945]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:31.945]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:31.945]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:31.945]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:31.945]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:31.945]             base::names(...future.oldOptions))
[18:41:31.945]     }
[18:41:31.945]     if (FALSE) {
[18:41:31.945]     }
[18:41:31.945]     else {
[18:41:31.945]         if (TRUE) {
[18:41:31.945]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:31.945]                 open = "w")
[18:41:31.945]         }
[18:41:31.945]         else {
[18:41:31.945]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:31.945]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:31.945]         }
[18:41:31.945]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:31.945]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:31.945]             base::sink(type = "output", split = FALSE)
[18:41:31.945]             base::close(...future.stdout)
[18:41:31.945]         }, add = TRUE)
[18:41:31.945]     }
[18:41:31.945]     ...future.frame <- base::sys.nframe()
[18:41:31.945]     ...future.conditions <- base::list()
[18:41:31.945]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:31.945]     if (FALSE) {
[18:41:31.945]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:31.945]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:31.945]     }
[18:41:31.945]     ...future.result <- base::tryCatch({
[18:41:31.945]         base::withCallingHandlers({
[18:41:31.945]             ...future.value <- base::withVisible(base::local({
[18:41:31.945]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.945]                 if (!identical(...future.globals.maxSize.org, 
[18:41:31.945]                   ...future.globals.maxSize)) {
[18:41:31.945]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.945]                   on.exit(options(oopts), add = TRUE)
[18:41:31.945]                 }
[18:41:31.945]                 {
[18:41:31.945]                   ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:31.945]                     assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:31.945]                       envir = globalenv(), inherits = FALSE)
[18:41:31.945]                     ...future.FUN(...)
[18:41:31.945]                   }
[18:41:31.945]                   args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:31.945]                     list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:31.945]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:31.945]                     USE.NAMES = FALSE)
[18:41:31.945]                   do.call(mapply, args = args)
[18:41:31.945]                 }
[18:41:31.945]             }))
[18:41:31.945]             future::FutureResult(value = ...future.value$value, 
[18:41:31.945]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.945]                   ...future.rng), globalenv = if (FALSE) 
[18:41:31.945]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:31.945]                     ...future.globalenv.names))
[18:41:31.945]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:31.945]         }, condition = base::local({
[18:41:31.945]             c <- base::c
[18:41:31.945]             inherits <- base::inherits
[18:41:31.945]             invokeRestart <- base::invokeRestart
[18:41:31.945]             length <- base::length
[18:41:31.945]             list <- base::list
[18:41:31.945]             seq.int <- base::seq.int
[18:41:31.945]             signalCondition <- base::signalCondition
[18:41:31.945]             sys.calls <- base::sys.calls
[18:41:31.945]             `[[` <- base::`[[`
[18:41:31.945]             `+` <- base::`+`
[18:41:31.945]             `<<-` <- base::`<<-`
[18:41:31.945]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:31.945]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:31.945]                   3L)]
[18:41:31.945]             }
[18:41:31.945]             function(cond) {
[18:41:31.945]                 is_error <- inherits(cond, "error")
[18:41:31.945]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:31.945]                   NULL)
[18:41:31.945]                 if (is_error) {
[18:41:31.945]                   sessionInformation <- function() {
[18:41:31.945]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:31.945]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:31.945]                       search = base::search(), system = base::Sys.info())
[18:41:31.945]                   }
[18:41:31.945]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.945]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:31.945]                     cond$call), session = sessionInformation(), 
[18:41:31.945]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:31.945]                   signalCondition(cond)
[18:41:31.945]                 }
[18:41:31.945]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:31.945]                 "immediateCondition"))) {
[18:41:31.945]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:31.945]                   ...future.conditions[[length(...future.conditions) + 
[18:41:31.945]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:31.945]                   if (TRUE && !signal) {
[18:41:31.945]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.945]                     {
[18:41:31.945]                       inherits <- base::inherits
[18:41:31.945]                       invokeRestart <- base::invokeRestart
[18:41:31.945]                       is.null <- base::is.null
[18:41:31.945]                       muffled <- FALSE
[18:41:31.945]                       if (inherits(cond, "message")) {
[18:41:31.945]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.945]                         if (muffled) 
[18:41:31.945]                           invokeRestart("muffleMessage")
[18:41:31.945]                       }
[18:41:31.945]                       else if (inherits(cond, "warning")) {
[18:41:31.945]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.945]                         if (muffled) 
[18:41:31.945]                           invokeRestart("muffleWarning")
[18:41:31.945]                       }
[18:41:31.945]                       else if (inherits(cond, "condition")) {
[18:41:31.945]                         if (!is.null(pattern)) {
[18:41:31.945]                           computeRestarts <- base::computeRestarts
[18:41:31.945]                           grepl <- base::grepl
[18:41:31.945]                           restarts <- computeRestarts(cond)
[18:41:31.945]                           for (restart in restarts) {
[18:41:31.945]                             name <- restart$name
[18:41:31.945]                             if (is.null(name)) 
[18:41:31.945]                               next
[18:41:31.945]                             if (!grepl(pattern, name)) 
[18:41:31.945]                               next
[18:41:31.945]                             invokeRestart(restart)
[18:41:31.945]                             muffled <- TRUE
[18:41:31.945]                             break
[18:41:31.945]                           }
[18:41:31.945]                         }
[18:41:31.945]                       }
[18:41:31.945]                       invisible(muffled)
[18:41:31.945]                     }
[18:41:31.945]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.945]                   }
[18:41:31.945]                 }
[18:41:31.945]                 else {
[18:41:31.945]                   if (TRUE) {
[18:41:31.945]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:31.945]                     {
[18:41:31.945]                       inherits <- base::inherits
[18:41:31.945]                       invokeRestart <- base::invokeRestart
[18:41:31.945]                       is.null <- base::is.null
[18:41:31.945]                       muffled <- FALSE
[18:41:31.945]                       if (inherits(cond, "message")) {
[18:41:31.945]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:31.945]                         if (muffled) 
[18:41:31.945]                           invokeRestart("muffleMessage")
[18:41:31.945]                       }
[18:41:31.945]                       else if (inherits(cond, "warning")) {
[18:41:31.945]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:31.945]                         if (muffled) 
[18:41:31.945]                           invokeRestart("muffleWarning")
[18:41:31.945]                       }
[18:41:31.945]                       else if (inherits(cond, "condition")) {
[18:41:31.945]                         if (!is.null(pattern)) {
[18:41:31.945]                           computeRestarts <- base::computeRestarts
[18:41:31.945]                           grepl <- base::grepl
[18:41:31.945]                           restarts <- computeRestarts(cond)
[18:41:31.945]                           for (restart in restarts) {
[18:41:31.945]                             name <- restart$name
[18:41:31.945]                             if (is.null(name)) 
[18:41:31.945]                               next
[18:41:31.945]                             if (!grepl(pattern, name)) 
[18:41:31.945]                               next
[18:41:31.945]                             invokeRestart(restart)
[18:41:31.945]                             muffled <- TRUE
[18:41:31.945]                             break
[18:41:31.945]                           }
[18:41:31.945]                         }
[18:41:31.945]                       }
[18:41:31.945]                       invisible(muffled)
[18:41:31.945]                     }
[18:41:31.945]                     muffleCondition(cond, pattern = "^muffle")
[18:41:31.945]                   }
[18:41:31.945]                 }
[18:41:31.945]             }
[18:41:31.945]         }))
[18:41:31.945]     }, error = function(ex) {
[18:41:31.945]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:31.945]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:31.945]                 ...future.rng), started = ...future.startTime, 
[18:41:31.945]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:31.945]             version = "1.8"), class = "FutureResult")
[18:41:31.945]     }, finally = {
[18:41:31.945]         if (!identical(...future.workdir, getwd())) 
[18:41:31.945]             setwd(...future.workdir)
[18:41:31.945]         {
[18:41:31.945]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:31.945]                 ...future.oldOptions$nwarnings <- NULL
[18:41:31.945]             }
[18:41:31.945]             base::options(...future.oldOptions)
[18:41:31.945]             if (.Platform$OS.type == "windows") {
[18:41:31.945]                 old_names <- names(...future.oldEnvVars)
[18:41:31.945]                 envs <- base::Sys.getenv()
[18:41:31.945]                 names <- names(envs)
[18:41:31.945]                 common <- intersect(names, old_names)
[18:41:31.945]                 added <- setdiff(names, old_names)
[18:41:31.945]                 removed <- setdiff(old_names, names)
[18:41:31.945]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:31.945]                   envs[common]]
[18:41:31.945]                 NAMES <- toupper(changed)
[18:41:31.945]                 args <- list()
[18:41:31.945]                 for (kk in seq_along(NAMES)) {
[18:41:31.945]                   name <- changed[[kk]]
[18:41:31.945]                   NAME <- NAMES[[kk]]
[18:41:31.945]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.945]                     next
[18:41:31.945]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.945]                 }
[18:41:31.945]                 NAMES <- toupper(added)
[18:41:31.945]                 for (kk in seq_along(NAMES)) {
[18:41:31.945]                   name <- added[[kk]]
[18:41:31.945]                   NAME <- NAMES[[kk]]
[18:41:31.945]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.945]                     next
[18:41:31.945]                   args[[name]] <- ""
[18:41:31.945]                 }
[18:41:31.945]                 NAMES <- toupper(removed)
[18:41:31.945]                 for (kk in seq_along(NAMES)) {
[18:41:31.945]                   name <- removed[[kk]]
[18:41:31.945]                   NAME <- NAMES[[kk]]
[18:41:31.945]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:31.945]                     next
[18:41:31.945]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:31.945]                 }
[18:41:31.945]                 if (length(args) > 0) 
[18:41:31.945]                   base::do.call(base::Sys.setenv, args = args)
[18:41:31.945]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:31.945]             }
[18:41:31.945]             else {
[18:41:31.945]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:31.945]             }
[18:41:31.945]             {
[18:41:31.945]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:31.945]                   0L) {
[18:41:31.945]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:31.945]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:31.945]                   base::options(opts)
[18:41:31.945]                 }
[18:41:31.945]                 {
[18:41:31.945]                   {
[18:41:31.945]                     base::assign(".Random.seed", c(10407L, 1429913920L, 
[18:41:31.945]                     864270648L, 114150639L, -78108245L, -1136851414L, 
[18:41:31.945]                     959573863L), envir = base::globalenv(), inherits = FALSE)
[18:41:31.945]                     NULL
[18:41:31.945]                   }
[18:41:31.945]                   options(future.plan = NULL)
[18:41:31.945]                   if (is.na(NA_character_)) 
[18:41:31.945]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:31.945]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:31.945]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:31.945]                     .init = FALSE)
[18:41:31.945]                 }
[18:41:31.945]             }
[18:41:31.945]         }
[18:41:31.945]     })
[18:41:31.945]     if (TRUE) {
[18:41:31.945]         base::sink(type = "output", split = FALSE)
[18:41:31.945]         if (TRUE) {
[18:41:31.945]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:31.945]         }
[18:41:31.945]         else {
[18:41:31.945]             ...future.result["stdout"] <- base::list(NULL)
[18:41:31.945]         }
[18:41:31.945]         base::close(...future.stdout)
[18:41:31.945]         ...future.stdout <- NULL
[18:41:31.945]     }
[18:41:31.945]     ...future.result$conditions <- ...future.conditions
[18:41:31.945]     ...future.result$finished <- base::Sys.time()
[18:41:31.945]     ...future.result
[18:41:31.945] }
[18:41:31.950] assign_globals() ...
[18:41:31.955] List of 5
[18:41:31.955]  $ ...future.FUN            :function (n, min = 0, max = 1)  
[18:41:31.955]  $ MoreArgs                 :List of 1
[18:41:31.955]   ..$ min: num 1
[18:41:31.955]  $ ...future.elements_ii    :List of 2
[18:41:31.955]   ..$ n  :List of 4
[18:41:31.955]   .. ..$ : int 1
[18:41:31.955]   .. ..$ : int 2
[18:41:31.955]   .. ..$ : int 3
[18:41:31.955]   .. ..$ : int 4
[18:41:31.955]   ..$ max:List of 4
[18:41:31.955]   .. ..$ : int 2
[18:41:31.955]   .. ..$ : int 3
[18:41:31.955]   .. ..$ : int 4
[18:41:31.955]   .. ..$ : int 5
[18:41:31.955]  $ ...future.seeds_ii       :List of 4
[18:41:31.955]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[18:41:31.955]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[18:41:31.955]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[18:41:31.955]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[18:41:31.955]  $ ...future.globals.maxSize: NULL
[18:41:31.955]  - attr(*, "where")=List of 5
[18:41:31.955]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:31.955]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:31.955]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:31.955]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:31.955]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:31.955]  - attr(*, "resolved")= logi FALSE
[18:41:31.955]  - attr(*, "total_size")= int 990
[18:41:31.955]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.955]  - attr(*, "already-done")= logi TRUE
[18:41:31.968] - copied '...future.FUN' to environment
[18:41:31.968] - copied 'MoreArgs' to environment
[18:41:31.968] - copied '...future.elements_ii' to environment
[18:41:31.968] - copied '...future.seeds_ii' to environment
[18:41:31.968] - copied '...future.globals.maxSize' to environment
[18:41:31.969] assign_globals() ... done
[18:41:31.970] plan(): Setting new future strategy stack:
[18:41:31.970] List of future strategies:
[18:41:31.970] 1. sequential:
[18:41:31.970]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.970]    - tweaked: FALSE
[18:41:31.970]    - call: NULL
[18:41:31.971] plan(): nbrOfWorkers() = 1
[18:41:31.972] plan(): Setting new future strategy stack:
[18:41:31.972] List of future strategies:
[18:41:31.972] 1. sequential:
[18:41:31.972]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:31.972]    - tweaked: FALSE
[18:41:31.972]    - call: plan(strategy)
[18:41:31.973] plan(): nbrOfWorkers() = 1
[18:41:31.973] SequentialFuture started (and completed)
[18:41:31.974] - Launch lazy future ... done
[18:41:31.974] run() for 'SequentialFuture' ... done
[18:41:31.974] Created future:
[18:41:31.975] SequentialFuture:
[18:41:31.975] Label: 'future_mapply-1'
[18:41:31.975] Expression:
[18:41:31.975] {
[18:41:31.975]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:31.975]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:31.975]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:31.975]         on.exit(options(oopts), add = TRUE)
[18:41:31.975]     }
[18:41:31.975]     {
[18:41:31.975]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:31.975]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:31.975]                 inherits = FALSE)
[18:41:31.975]             ...future.FUN(...)
[18:41:31.975]         }
[18:41:31.975]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:31.975]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:31.975]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:31.975]         do.call(mapply, args = args)
[18:41:31.975]     }
[18:41:31.975] }
[18:41:31.975] Lazy evaluation: FALSE
[18:41:31.975] Asynchronous evaluation: FALSE
[18:41:31.975] Local evaluation: TRUE
[18:41:31.975] Environment: R_GlobalEnv
[18:41:31.975] Capture standard output: TRUE
[18:41:31.975] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:31.975] Globals: 5 objects totaling 990 bytes (function '...future.FUN' of 501 bytes, list 'MoreArgs' of 91 bytes, list '...future.elements_ii' of 196 bytes, list '...future.seeds_ii' of 175 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:31.975] Packages: 1 packages ('stats')
[18:41:31.975] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:31.975] Resolved: TRUE
[18:41:31.975] Value: 143 bytes of class 'list'
[18:41:31.975] Early signaling: FALSE
[18:41:31.975] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:31.975] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:31.976] Chunk #1 of 1 ... DONE
[18:41:31.976] Launching 1 futures (chunks) ... DONE
[18:41:31.977] Resolving 1 futures (chunks) ...
[18:41:31.977] resolve() on list ...
[18:41:31.977]  recursive: 0
[18:41:31.977]  length: 1
[18:41:31.977] 
[18:41:31.978] resolved() for 'SequentialFuture' ...
[18:41:31.978] - state: 'finished'
[18:41:31.978] - run: TRUE
[18:41:31.978] - result: 'FutureResult'
[18:41:31.978] resolved() for 'SequentialFuture' ... done
[18:41:31.979] Future #1
[18:41:31.979] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:31.979] - nx: 1
[18:41:31.979] - relay: TRUE
[18:41:31.980] - stdout: TRUE
[18:41:31.980] - signal: TRUE
[18:41:31.980] - resignal: FALSE
[18:41:31.980] - force: TRUE
[18:41:31.980] - relayed: [n=1] FALSE
[18:41:31.981] - queued futures: [n=1] FALSE
[18:41:31.981]  - until=1
[18:41:31.981]  - relaying element #1
[18:41:31.981] - relayed: [n=1] TRUE
[18:41:31.982] - queued futures: [n=1] TRUE
[18:41:31.982] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:31.982]  length: 0 (resolved future 1)
[18:41:31.982] Relaying remaining futures
[18:41:31.983] signalConditionsASAP(NULL, pos=0) ...
[18:41:31.983] - nx: 1
[18:41:31.983] - relay: TRUE
[18:41:31.983] - stdout: TRUE
[18:41:31.983] - signal: TRUE
[18:41:31.984] - resignal: FALSE
[18:41:31.984] - force: TRUE
[18:41:31.984] - relayed: [n=1] TRUE
[18:41:31.984] - queued futures: [n=1] TRUE
 - flush all
[18:41:31.985] - relayed: [n=1] TRUE
[18:41:31.985] - queued futures: [n=1] TRUE
[18:41:31.985] signalConditionsASAP(NULL, pos=0) ... done
[18:41:31.985] resolve() on list ... DONE
[18:41:31.986]  - Number of value chunks collected: 1
[18:41:31.986] Resolving 1 futures (chunks) ... DONE
[18:41:31.986] Reducing values from 1 chunks ...
[18:41:31.986]  - Number of values collected after concatenation: 4
[18:41:31.986]  - Number of values expected: 4
[18:41:31.986] Reducing values from 1 chunks ... DONE
[18:41:31.987] 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() ...
[18:41:31.992] future_mapply() ...
[18:41:31.992] Number of chunks: 1
[18:41:31.992] getGlobalsAndPackagesXApply() ...
[18:41:31.992]  - future.globals: TRUE
[18:41:31.993] getGlobalsAndPackages() ...
[18:41:31.993] Searching for globals...
[18:41:31.995] - globals found: [2] 'FUN', 'UseMethod'
[18:41:31.995] Searching for globals ... DONE
[18:41:31.995] Resolving globals: FALSE
[18:41:31.996] The total size of the 1 globals is 337 bytes (337 bytes)
[18:41:31.996] The total size of the 1 globals exported for future expression ('FUN()') is 337 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (337 bytes of class 'function')
[18:41:31.997] - globals: [1] 'FUN'
[18:41:31.997] - packages: [1] 'stats'
[18:41:31.997] getGlobalsAndPackages() ... DONE
[18:41:31.997]  - globals found/used: [n=1] 'FUN'
[18:41:31.998]  - needed namespaces: [n=1] 'stats'
[18:41:31.998] Finding globals ... DONE
[18:41:31.998] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:31.998] List of 2
[18:41:31.998]  $ ...future.FUN:function (x, w, ...)  
[18:41:31.998]  $ MoreArgs     : NULL
[18:41:31.998]  - attr(*, "where")=List of 2
[18:41:31.998]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:31.998]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:31.998]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:31.998]  - attr(*, "resolved")= logi FALSE
[18:41:31.998]  - attr(*, "total_size")= num NA
[18:41:32.002] Packages to be attached in all futures: [n=1] 'stats'
[18:41:32.003] getGlobalsAndPackagesXApply() ... DONE
[18:41:32.003] Number of futures (= number of chunks): 1
[18:41:32.003] Launching 1 futures (chunks) ...
[18:41:32.003] Chunk #1 of 1 ...
[18:41:32.004]  - Finding globals in '...' for chunk #1 ...
[18:41:32.004] getGlobalsAndPackages() ...
[18:41:32.004] Searching for globals...
[18:41:32.005] 
[18:41:32.005] Searching for globals ... DONE
[18:41:32.005] - globals: [0] <none>
[18:41:32.005] getGlobalsAndPackages() ... DONE
[18:41:32.005]    + additional globals found: [n=0] 
[18:41:32.005]    + additional namespaces needed: [n=0] 
[18:41:32.006]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:32.006]  - seeds: <none>
[18:41:32.006]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.006] getGlobalsAndPackages() ...
[18:41:32.006] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.007] Resolving globals: FALSE
[18:41:32.007] The total size of the 5 globals is 1.31 KiB (1345 bytes)
[18:41:32.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 1.31 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (927 bytes of class 'list'), '...future.FUN' (337 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:32.009] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.009] - packages: [1] 'stats'
[18:41:32.009] getGlobalsAndPackages() ... DONE
[18:41:32.010] run() for 'Future' ...
[18:41:32.010] - state: 'created'
[18:41:32.010] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:32.011] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:32.011] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:32.011]   - Field: 'label'
[18:41:32.011]   - Field: 'local'
[18:41:32.011]   - Field: 'owner'
[18:41:32.012]   - Field: 'envir'
[18:41:32.012]   - Field: 'packages'
[18:41:32.012]   - Field: 'gc'
[18:41:32.012]   - Field: 'conditions'
[18:41:32.013]   - Field: 'expr'
[18:41:32.013]   - Field: 'uuid'
[18:41:32.013]   - Field: 'seed'
[18:41:32.013]   - Field: 'version'
[18:41:32.013]   - Field: 'result'
[18:41:32.014]   - Field: 'asynchronous'
[18:41:32.014]   - Field: 'calls'
[18:41:32.014]   - Field: 'globals'
[18:41:32.014]   - Field: 'stdout'
[18:41:32.014]   - Field: 'earlySignal'
[18:41:32.015]   - Field: 'lazy'
[18:41:32.015]   - Field: 'state'
[18:41:32.015] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:32.015] - Launch lazy future ...
[18:41:32.016] Packages needed by the future expression (n = 1): 'stats'
[18:41:32.016] Packages needed by future strategies (n = 0): <none>
[18:41:32.017] {
[18:41:32.017]     {
[18:41:32.017]         {
[18:41:32.017]             ...future.startTime <- base::Sys.time()
[18:41:32.017]             {
[18:41:32.017]                 {
[18:41:32.017]                   {
[18:41:32.017]                     {
[18:41:32.017]                       base::local({
[18:41:32.017]                         has_future <- base::requireNamespace("future", 
[18:41:32.017]                           quietly = TRUE)
[18:41:32.017]                         if (has_future) {
[18:41:32.017]                           ns <- base::getNamespace("future")
[18:41:32.017]                           version <- ns[[".package"]][["version"]]
[18:41:32.017]                           if (is.null(version)) 
[18:41:32.017]                             version <- utils::packageVersion("future")
[18:41:32.017]                         }
[18:41:32.017]                         else {
[18:41:32.017]                           version <- NULL
[18:41:32.017]                         }
[18:41:32.017]                         if (!has_future || version < "1.8.0") {
[18:41:32.017]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:32.017]                             "", base::R.version$version.string), 
[18:41:32.017]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:32.017]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:32.017]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:32.017]                               "release", "version")], collapse = " "), 
[18:41:32.017]                             hostname = base::Sys.info()[["nodename"]])
[18:41:32.017]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:32.017]                             info)
[18:41:32.017]                           info <- base::paste(info, collapse = "; ")
[18:41:32.017]                           if (!has_future) {
[18:41:32.017]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:32.017]                               info)
[18:41:32.017]                           }
[18:41:32.017]                           else {
[18:41:32.017]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:32.017]                               info, version)
[18:41:32.017]                           }
[18:41:32.017]                           base::stop(msg)
[18:41:32.017]                         }
[18:41:32.017]                       })
[18:41:32.017]                     }
[18:41:32.017]                     base::local({
[18:41:32.017]                       for (pkg in "stats") {
[18:41:32.017]                         base::loadNamespace(pkg)
[18:41:32.017]                         base::library(pkg, character.only = TRUE)
[18:41:32.017]                       }
[18:41:32.017]                     })
[18:41:32.017]                   }
[18:41:32.017]                   ...future.strategy.old <- future::plan("list")
[18:41:32.017]                   options(future.plan = NULL)
[18:41:32.017]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:32.017]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:32.017]                 }
[18:41:32.017]                 ...future.workdir <- getwd()
[18:41:32.017]             }
[18:41:32.017]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:32.017]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:32.017]         }
[18:41:32.017]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:32.017]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:32.017]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:32.017]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:32.017]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:32.017]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:32.017]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:32.017]             base::names(...future.oldOptions))
[18:41:32.017]     }
[18:41:32.017]     if (FALSE) {
[18:41:32.017]     }
[18:41:32.017]     else {
[18:41:32.017]         if (TRUE) {
[18:41:32.017]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:32.017]                 open = "w")
[18:41:32.017]         }
[18:41:32.017]         else {
[18:41:32.017]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:32.017]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:32.017]         }
[18:41:32.017]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:32.017]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:32.017]             base::sink(type = "output", split = FALSE)
[18:41:32.017]             base::close(...future.stdout)
[18:41:32.017]         }, add = TRUE)
[18:41:32.017]     }
[18:41:32.017]     ...future.frame <- base::sys.nframe()
[18:41:32.017]     ...future.conditions <- base::list()
[18:41:32.017]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:32.017]     if (FALSE) {
[18:41:32.017]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:32.017]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:32.017]     }
[18:41:32.017]     ...future.result <- base::tryCatch({
[18:41:32.017]         base::withCallingHandlers({
[18:41:32.017]             ...future.value <- base::withVisible(base::local({
[18:41:32.017]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:32.017]                 if (!identical(...future.globals.maxSize.org, 
[18:41:32.017]                   ...future.globals.maxSize)) {
[18:41:32.017]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:32.017]                   on.exit(options(oopts), add = TRUE)
[18:41:32.017]                 }
[18:41:32.017]                 {
[18:41:32.017]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:32.017]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:32.017]                     USE.NAMES = FALSE)
[18:41:32.017]                   do.call(mapply, args = args)
[18:41:32.017]                 }
[18:41:32.017]             }))
[18:41:32.017]             future::FutureResult(value = ...future.value$value, 
[18:41:32.017]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:32.017]                   ...future.rng), globalenv = if (FALSE) 
[18:41:32.017]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:32.017]                     ...future.globalenv.names))
[18:41:32.017]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:32.017]         }, condition = base::local({
[18:41:32.017]             c <- base::c
[18:41:32.017]             inherits <- base::inherits
[18:41:32.017]             invokeRestart <- base::invokeRestart
[18:41:32.017]             length <- base::length
[18:41:32.017]             list <- base::list
[18:41:32.017]             seq.int <- base::seq.int
[18:41:32.017]             signalCondition <- base::signalCondition
[18:41:32.017]             sys.calls <- base::sys.calls
[18:41:32.017]             `[[` <- base::`[[`
[18:41:32.017]             `+` <- base::`+`
[18:41:32.017]             `<<-` <- base::`<<-`
[18:41:32.017]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:32.017]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:32.017]                   3L)]
[18:41:32.017]             }
[18:41:32.017]             function(cond) {
[18:41:32.017]                 is_error <- inherits(cond, "error")
[18:41:32.017]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:32.017]                   NULL)
[18:41:32.017]                 if (is_error) {
[18:41:32.017]                   sessionInformation <- function() {
[18:41:32.017]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:32.017]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:32.017]                       search = base::search(), system = base::Sys.info())
[18:41:32.017]                   }
[18:41:32.017]                   ...future.conditions[[length(...future.conditions) + 
[18:41:32.017]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:32.017]                     cond$call), session = sessionInformation(), 
[18:41:32.017]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:32.017]                   signalCondition(cond)
[18:41:32.017]                 }
[18:41:32.017]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:32.017]                 "immediateCondition"))) {
[18:41:32.017]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:32.017]                   ...future.conditions[[length(...future.conditions) + 
[18:41:32.017]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:32.017]                   if (TRUE && !signal) {
[18:41:32.017]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:32.017]                     {
[18:41:32.017]                       inherits <- base::inherits
[18:41:32.017]                       invokeRestart <- base::invokeRestart
[18:41:32.017]                       is.null <- base::is.null
[18:41:32.017]                       muffled <- FALSE
[18:41:32.017]                       if (inherits(cond, "message")) {
[18:41:32.017]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:32.017]                         if (muffled) 
[18:41:32.017]                           invokeRestart("muffleMessage")
[18:41:32.017]                       }
[18:41:32.017]                       else if (inherits(cond, "warning")) {
[18:41:32.017]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:32.017]                         if (muffled) 
[18:41:32.017]                           invokeRestart("muffleWarning")
[18:41:32.017]                       }
[18:41:32.017]                       else if (inherits(cond, "condition")) {
[18:41:32.017]                         if (!is.null(pattern)) {
[18:41:32.017]                           computeRestarts <- base::computeRestarts
[18:41:32.017]                           grepl <- base::grepl
[18:41:32.017]                           restarts <- computeRestarts(cond)
[18:41:32.017]                           for (restart in restarts) {
[18:41:32.017]                             name <- restart$name
[18:41:32.017]                             if (is.null(name)) 
[18:41:32.017]                               next
[18:41:32.017]                             if (!grepl(pattern, name)) 
[18:41:32.017]                               next
[18:41:32.017]                             invokeRestart(restart)
[18:41:32.017]                             muffled <- TRUE
[18:41:32.017]                             break
[18:41:32.017]                           }
[18:41:32.017]                         }
[18:41:32.017]                       }
[18:41:32.017]                       invisible(muffled)
[18:41:32.017]                     }
[18:41:32.017]                     muffleCondition(cond, pattern = "^muffle")
[18:41:32.017]                   }
[18:41:32.017]                 }
[18:41:32.017]                 else {
[18:41:32.017]                   if (TRUE) {
[18:41:32.017]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:32.017]                     {
[18:41:32.017]                       inherits <- base::inherits
[18:41:32.017]                       invokeRestart <- base::invokeRestart
[18:41:32.017]                       is.null <- base::is.null
[18:41:32.017]                       muffled <- FALSE
[18:41:32.017]                       if (inherits(cond, "message")) {
[18:41:32.017]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:32.017]                         if (muffled) 
[18:41:32.017]                           invokeRestart("muffleMessage")
[18:41:32.017]                       }
[18:41:32.017]                       else if (inherits(cond, "warning")) {
[18:41:32.017]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:32.017]                         if (muffled) 
[18:41:32.017]                           invokeRestart("muffleWarning")
[18:41:32.017]                       }
[18:41:32.017]                       else if (inherits(cond, "condition")) {
[18:41:32.017]                         if (!is.null(pattern)) {
[18:41:32.017]                           computeRestarts <- base::computeRestarts
[18:41:32.017]                           grepl <- base::grepl
[18:41:32.017]                           restarts <- computeRestarts(cond)
[18:41:32.017]                           for (restart in restarts) {
[18:41:32.017]                             name <- restart$name
[18:41:32.017]                             if (is.null(name)) 
[18:41:32.017]                               next
[18:41:32.017]                             if (!grepl(pattern, name)) 
[18:41:32.017]                               next
[18:41:32.017]                             invokeRestart(restart)
[18:41:32.017]                             muffled <- TRUE
[18:41:32.017]                             break
[18:41:32.017]                           }
[18:41:32.017]                         }
[18:41:32.017]                       }
[18:41:32.017]                       invisible(muffled)
[18:41:32.017]                     }
[18:41:32.017]                     muffleCondition(cond, pattern = "^muffle")
[18:41:32.017]                   }
[18:41:32.017]                 }
[18:41:32.017]             }
[18:41:32.017]         }))
[18:41:32.017]     }, error = function(ex) {
[18:41:32.017]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:32.017]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:32.017]                 ...future.rng), started = ...future.startTime, 
[18:41:32.017]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:32.017]             version = "1.8"), class = "FutureResult")
[18:41:32.017]     }, finally = {
[18:41:32.017]         if (!identical(...future.workdir, getwd())) 
[18:41:32.017]             setwd(...future.workdir)
[18:41:32.017]         {
[18:41:32.017]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:32.017]                 ...future.oldOptions$nwarnings <- NULL
[18:41:32.017]             }
[18:41:32.017]             base::options(...future.oldOptions)
[18:41:32.017]             if (.Platform$OS.type == "windows") {
[18:41:32.017]                 old_names <- names(...future.oldEnvVars)
[18:41:32.017]                 envs <- base::Sys.getenv()
[18:41:32.017]                 names <- names(envs)
[18:41:32.017]                 common <- intersect(names, old_names)
[18:41:32.017]                 added <- setdiff(names, old_names)
[18:41:32.017]                 removed <- setdiff(old_names, names)
[18:41:32.017]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:32.017]                   envs[common]]
[18:41:32.017]                 NAMES <- toupper(changed)
[18:41:32.017]                 args <- list()
[18:41:32.017]                 for (kk in seq_along(NAMES)) {
[18:41:32.017]                   name <- changed[[kk]]
[18:41:32.017]                   NAME <- NAMES[[kk]]
[18:41:32.017]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.017]                     next
[18:41:32.017]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:32.017]                 }
[18:41:32.017]                 NAMES <- toupper(added)
[18:41:32.017]                 for (kk in seq_along(NAMES)) {
[18:41:32.017]                   name <- added[[kk]]
[18:41:32.017]                   NAME <- NAMES[[kk]]
[18:41:32.017]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.017]                     next
[18:41:32.017]                   args[[name]] <- ""
[18:41:32.017]                 }
[18:41:32.017]                 NAMES <- toupper(removed)
[18:41:32.017]                 for (kk in seq_along(NAMES)) {
[18:41:32.017]                   name <- removed[[kk]]
[18:41:32.017]                   NAME <- NAMES[[kk]]
[18:41:32.017]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.017]                     next
[18:41:32.017]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:32.017]                 }
[18:41:32.017]                 if (length(args) > 0) 
[18:41:32.017]                   base::do.call(base::Sys.setenv, args = args)
[18:41:32.017]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:32.017]             }
[18:41:32.017]             else {
[18:41:32.017]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:32.017]             }
[18:41:32.017]             {
[18:41:32.017]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:32.017]                   0L) {
[18:41:32.017]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:32.017]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:32.017]                   base::options(opts)
[18:41:32.017]                 }
[18:41:32.017]                 {
[18:41:32.017]                   {
[18:41:32.017]                     base::assign(".Random.seed", c(10407L, -1588477406L, 
[18:41:32.017]                     -1744278853L, 1620368110L, -1395886290L, 
[18:41:32.017]                     324784492L, 1409726724L), envir = base::globalenv(), 
[18:41:32.017]                       inherits = FALSE)
[18:41:32.017]                     NULL
[18:41:32.017]                   }
[18:41:32.017]                   options(future.plan = NULL)
[18:41:32.017]                   if (is.na(NA_character_)) 
[18:41:32.017]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:32.017]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:32.017]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:32.017]                     .init = FALSE)
[18:41:32.017]                 }
[18:41:32.017]             }
[18:41:32.017]         }
[18:41:32.017]     })
[18:41:32.017]     if (TRUE) {
[18:41:32.017]         base::sink(type = "output", split = FALSE)
[18:41:32.017]         if (TRUE) {
[18:41:32.017]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:32.017]         }
[18:41:32.017]         else {
[18:41:32.017]             ...future.result["stdout"] <- base::list(NULL)
[18:41:32.017]         }
[18:41:32.017]         base::close(...future.stdout)
[18:41:32.017]         ...future.stdout <- NULL
[18:41:32.017]     }
[18:41:32.017]     ...future.result$conditions <- ...future.conditions
[18:41:32.017]     ...future.result$finished <- base::Sys.time()
[18:41:32.017]     ...future.result
[18:41:32.017] }
[18:41:32.021] assign_globals() ...
[18:41:32.021] List of 5
[18:41:32.021]  $ ...future.FUN            :function (x, w, ...)  
[18:41:32.021]  $ MoreArgs                 : NULL
[18:41:32.021]  $ ...future.elements_ii    :List of 2
[18:41:32.021]   ..$ :List of 5
[18:41:32.021]   .. ..$ : num [1:10] 0.583 0.222 0.876 0.903 0.888 ...
[18:41:32.021]   .. ..$ : num [1:10] 0.494 0.651 0.466 0.816 0.243 ...
[18:41:32.021]   .. ..$ : num [1:10] 0.752 0.992 0.953 0.109 0.985 ...
[18:41:32.021]   .. ..$ : num [1:10] 0.1967 0.5329 0.0761 0.1256 0.6795 ...
[18:41:32.021]   .. ..$ : num [1:10] 0.183 0.932 0.543 0.64 0.591 ...
[18:41:32.021]   ..$ :List of 5
[18:41:32.021]   .. ..$ : num [1:10] 7 6 2 7 5 6 6 5 4 8
[18:41:32.021]   .. ..$ : num [1:10] 5 7 9 4 2 4 6 4 6 5
[18:41:32.021]   .. ..$ : num [1:10] 7 9 4 8 4 8 4 6 9 3
[18:41:32.021]   .. ..$ : num [1:10] 4 6 7 8 8 4 8 8 5 5
[18:41:32.021]   .. ..$ : num [1:10] 6 8 10 12 5 7 4 10 6 3
[18:41:32.021]  $ ...future.seeds_ii       : NULL
[18:41:32.021]  $ ...future.globals.maxSize: NULL
[18:41:32.021]  - attr(*, "where")=List of 5
[18:41:32.021]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:32.021]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:32.021]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:32.021]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:32.021]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:32.021]  - attr(*, "resolved")= logi FALSE
[18:41:32.021]  - attr(*, "total_size")= int 1345
[18:41:32.021]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:32.021]  - attr(*, "already-done")= logi TRUE
[18:41:32.034] - copied '...future.FUN' to environment
[18:41:32.034] - copied 'MoreArgs' to environment
[18:41:32.034] - copied '...future.elements_ii' to environment
[18:41:32.034] - copied '...future.seeds_ii' to environment
[18:41:32.035] - copied '...future.globals.maxSize' to environment
[18:41:32.035] assign_globals() ... done
[18:41:32.036] plan(): Setting new future strategy stack:
[18:41:32.036] List of future strategies:
[18:41:32.036] 1. sequential:
[18:41:32.036]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.036]    - tweaked: FALSE
[18:41:32.036]    - call: NULL
[18:41:32.037] plan(): nbrOfWorkers() = 1
[18:41:32.038] plan(): Setting new future strategy stack:
[18:41:32.039] List of future strategies:
[18:41:32.039] 1. sequential:
[18:41:32.039]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.039]    - tweaked: FALSE
[18:41:32.039]    - call: plan(strategy)
[18:41:32.039] plan(): nbrOfWorkers() = 1
[18:41:32.040] SequentialFuture started (and completed)
[18:41:32.040] - Launch lazy future ... done
[18:41:32.040] run() for 'SequentialFuture' ... done
[18:41:32.040] Created future:
[18:41:32.041] SequentialFuture:
[18:41:32.041] Label: 'future_Map-1'
[18:41:32.041] Expression:
[18:41:32.041] {
[18:41:32.041]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:32.041]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:32.041]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:32.041]         on.exit(options(oopts), add = TRUE)
[18:41:32.041]     }
[18:41:32.041]     {
[18:41:32.041]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:32.041]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:32.041]         do.call(mapply, args = args)
[18:41:32.041]     }
[18:41:32.041] }
[18:41:32.041] Lazy evaluation: FALSE
[18:41:32.041] Asynchronous evaluation: FALSE
[18:41:32.041] Local evaluation: TRUE
[18:41:32.041] Environment: R_GlobalEnv
[18:41:32.041] Capture standard output: TRUE
[18:41:32.041] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:32.041] Globals: 5 objects totaling 1.31 KiB (function '...future.FUN' of 337 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 927 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:32.041] Packages: 1 packages ('stats')
[18:41:32.041] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:32.041] Resolved: TRUE
[18:41:32.041] Value: 111 bytes of class 'list'
[18:41:32.041] Early signaling: FALSE
[18:41:32.041] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:32.041] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:32.042] Chunk #1 of 1 ... DONE
[18:41:32.042] Launching 1 futures (chunks) ... DONE
[18:41:32.042] Resolving 1 futures (chunks) ...
[18:41:32.043] resolve() on list ...
[18:41:32.043]  recursive: 0
[18:41:32.043]  length: 1
[18:41:32.043] 
[18:41:32.043] resolved() for 'SequentialFuture' ...
[18:41:32.044] - state: 'finished'
[18:41:32.044] - run: TRUE
[18:41:32.044] - result: 'FutureResult'
[18:41:32.044] resolved() for 'SequentialFuture' ... done
[18:41:32.044] Future #1
[18:41:32.045] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:32.045] - nx: 1
[18:41:32.045] - relay: TRUE
[18:41:32.045] - stdout: TRUE
[18:41:32.045] - signal: TRUE
[18:41:32.046] - resignal: FALSE
[18:41:32.046] - force: TRUE
[18:41:32.046] - relayed: [n=1] FALSE
[18:41:32.046] - queued futures: [n=1] FALSE
[18:41:32.046]  - until=1
[18:41:32.047]  - relaying element #1
[18:41:32.047] - relayed: [n=1] TRUE
[18:41:32.047] - queued futures: [n=1] TRUE
[18:41:32.047] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:32.047]  length: 0 (resolved future 1)
[18:41:32.048] Relaying remaining futures
[18:41:32.048] signalConditionsASAP(NULL, pos=0) ...
[18:41:32.048] - nx: 1
[18:41:32.048] - relay: TRUE
[18:41:32.048] - stdout: TRUE
[18:41:32.049] - signal: TRUE
[18:41:32.049] - resignal: FALSE
[18:41:32.049] - force: TRUE
[18:41:32.049] - relayed: [n=1] TRUE
[18:41:32.049] - queued futures: [n=1] TRUE
 - flush all
[18:41:32.050] - relayed: [n=1] TRUE
[18:41:32.050] - queued futures: [n=1] TRUE
[18:41:32.050] signalConditionsASAP(NULL, pos=0) ... done
[18:41:32.050] resolve() on list ... DONE
[18:41:32.050]  - Number of value chunks collected: 1
[18:41:32.051] Resolving 1 futures (chunks) ... DONE
[18:41:32.051] Reducing values from 1 chunks ...
[18:41:32.051]  - Number of values collected after concatenation: 5
[18:41:32.051]  - Number of values expected: 5
[18:41:32.051] Reducing values from 1 chunks ... DONE
[18:41:32.051] future_mapply() ... DONE
- future_mapply() - 'max-or-0-if' recycling rule ...
[18:41:32.055] future_mapply() ...
[18:41:32.055] Number of chunks: 1
[18:41:32.055] getGlobalsAndPackagesXApply() ...
[18:41:32.055]  - future.globals: TRUE
[18:41:32.056] getGlobalsAndPackages() ...
[18:41:32.056] Searching for globals...
[18:41:32.057] - globals found: [1] 'FUN'
[18:41:32.057] Searching for globals ... DONE
[18:41:32.057] Resolving globals: FALSE
[18:41:32.058] The total size of the 1 globals is 32 bytes (32 bytes)
[18:41:32.058] The total size of the 1 globals exported for future expression ('FUN()') is 32 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (32 bytes of class 'function')
[18:41:32.058] - globals: [1] 'FUN'
[18:41:32.059] 
[18:41:32.059] getGlobalsAndPackages() ... DONE
[18:41:32.059]  - globals found/used: [n=1] 'FUN'
[18:41:32.059]  - needed namespaces: [n=0] 
[18:41:32.059] Finding globals ... DONE
[18:41:32.060] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:32.060] List of 2
[18:41:32.060]  $ ...future.FUN:function (e1, e2)  
[18:41:32.060]  $ MoreArgs     : NULL
[18:41:32.060]  - attr(*, "where")=List of 2
[18:41:32.060]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:32.060]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:32.060]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:32.060]  - attr(*, "resolved")= logi FALSE
[18:41:32.060]  - attr(*, "total_size")= num NA
[18:41:32.064] Packages to be attached in all futures: [n=0] 
[18:41:32.064] getGlobalsAndPackagesXApply() ... DONE
[18:41:32.064] Number of futures (= number of chunks): 1
[18:41:32.065] Launching 1 futures (chunks) ...
[18:41:32.065] Chunk #1 of 1 ...
[18:41:32.065]  - Finding globals in '...' for chunk #1 ...
[18:41:32.065] getGlobalsAndPackages() ...
[18:41:32.066] Searching for globals...
[18:41:32.066] 
[18:41:32.066] Searching for globals ... DONE
[18:41:32.067] - globals: [0] <none>
[18:41:32.067] getGlobalsAndPackages() ... DONE
[18:41:32.067]    + additional globals found: [n=0] 
[18:41:32.067]    + additional namespaces needed: [n=0] 
[18:41:32.067]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:32.067]  - seeds: <none>
[18:41:32.068]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.068] getGlobalsAndPackages() ...
[18:41:32.068] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.068] Resolving globals: FALSE
[18:41:32.069] The total size of the 5 globals is 244 bytes (244 bytes)
[18:41:32.070] 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 244 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (131 bytes of class 'list'), '...future.FUN' (32 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:32.070] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.070] 
[18:41:32.070] getGlobalsAndPackages() ... DONE
[18:41:32.071] run() for 'Future' ...
[18:41:32.071] - state: 'created'
[18:41:32.071] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:32.072] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:32.072] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:32.072]   - Field: 'label'
[18:41:32.073]   - Field: 'local'
[18:41:32.073]   - Field: 'owner'
[18:41:32.073]   - Field: 'envir'
[18:41:32.073]   - Field: 'packages'
[18:41:32.073]   - Field: 'gc'
[18:41:32.074]   - Field: 'conditions'
[18:41:32.074]   - Field: 'expr'
[18:41:32.074]   - Field: 'uuid'
[18:41:32.074]   - Field: 'seed'
[18:41:32.074]   - Field: 'version'
[18:41:32.075]   - Field: 'result'
[18:41:32.075]   - Field: 'asynchronous'
[18:41:32.075]   - Field: 'calls'
[18:41:32.075]   - Field: 'globals'
[18:41:32.075]   - Field: 'stdout'
[18:41:32.076]   - Field: 'earlySignal'
[18:41:32.076]   - Field: 'lazy'
[18:41:32.076]   - Field: 'state'
[18:41:32.076] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:32.076] - Launch lazy future ...
[18:41:32.077] Packages needed by the future expression (n = 0): <none>
[18:41:32.077] Packages needed by future strategies (n = 0): <none>
[18:41:32.078] {
[18:41:32.078]     {
[18:41:32.078]         {
[18:41:32.078]             ...future.startTime <- base::Sys.time()
[18:41:32.078]             {
[18:41:32.078]                 {
[18:41:32.078]                   {
[18:41:32.078]                     base::local({
[18:41:32.078]                       has_future <- base::requireNamespace("future", 
[18:41:32.078]                         quietly = TRUE)
[18:41:32.078]                       if (has_future) {
[18:41:32.078]                         ns <- base::getNamespace("future")
[18:41:32.078]                         version <- ns[[".package"]][["version"]]
[18:41:32.078]                         if (is.null(version)) 
[18:41:32.078]                           version <- utils::packageVersion("future")
[18:41:32.078]                       }
[18:41:32.078]                       else {
[18:41:32.078]                         version <- NULL
[18:41:32.078]                       }
[18:41:32.078]                       if (!has_future || version < "1.8.0") {
[18:41:32.078]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:32.078]                           "", base::R.version$version.string), 
[18:41:32.078]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:32.078]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:32.078]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:32.078]                             "release", "version")], collapse = " "), 
[18:41:32.078]                           hostname = base::Sys.info()[["nodename"]])
[18:41:32.078]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:32.078]                           info)
[18:41:32.078]                         info <- base::paste(info, collapse = "; ")
[18:41:32.078]                         if (!has_future) {
[18:41:32.078]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:32.078]                             info)
[18:41:32.078]                         }
[18:41:32.078]                         else {
[18:41:32.078]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:32.078]                             info, version)
[18:41:32.078]                         }
[18:41:32.078]                         base::stop(msg)
[18:41:32.078]                       }
[18:41:32.078]                     })
[18:41:32.078]                   }
[18:41:32.078]                   ...future.strategy.old <- future::plan("list")
[18:41:32.078]                   options(future.plan = NULL)
[18:41:32.078]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:32.078]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:32.078]                 }
[18:41:32.078]                 ...future.workdir <- getwd()
[18:41:32.078]             }
[18:41:32.078]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:32.078]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:32.078]         }
[18:41:32.078]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:32.078]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:32.078]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:32.078]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:32.078]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:32.078]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:32.078]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:32.078]             base::names(...future.oldOptions))
[18:41:32.078]     }
[18:41:32.078]     if (FALSE) {
[18:41:32.078]     }
[18:41:32.078]     else {
[18:41:32.078]         if (TRUE) {
[18:41:32.078]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:32.078]                 open = "w")
[18:41:32.078]         }
[18:41:32.078]         else {
[18:41:32.078]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:32.078]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:32.078]         }
[18:41:32.078]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:32.078]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:32.078]             base::sink(type = "output", split = FALSE)
[18:41:32.078]             base::close(...future.stdout)
[18:41:32.078]         }, add = TRUE)
[18:41:32.078]     }
[18:41:32.078]     ...future.frame <- base::sys.nframe()
[18:41:32.078]     ...future.conditions <- base::list()
[18:41:32.078]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:32.078]     if (FALSE) {
[18:41:32.078]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:32.078]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:32.078]     }
[18:41:32.078]     ...future.result <- base::tryCatch({
[18:41:32.078]         base::withCallingHandlers({
[18:41:32.078]             ...future.value <- base::withVisible(base::local({
[18:41:32.078]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:32.078]                 if (!identical(...future.globals.maxSize.org, 
[18:41:32.078]                   ...future.globals.maxSize)) {
[18:41:32.078]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:32.078]                   on.exit(options(oopts), add = TRUE)
[18:41:32.078]                 }
[18:41:32.078]                 {
[18:41:32.078]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:32.078]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:32.078]                     USE.NAMES = FALSE)
[18:41:32.078]                   do.call(mapply, args = args)
[18:41:32.078]                 }
[18:41:32.078]             }))
[18:41:32.078]             future::FutureResult(value = ...future.value$value, 
[18:41:32.078]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:32.078]                   ...future.rng), globalenv = if (FALSE) 
[18:41:32.078]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:32.078]                     ...future.globalenv.names))
[18:41:32.078]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:32.078]         }, condition = base::local({
[18:41:32.078]             c <- base::c
[18:41:32.078]             inherits <- base::inherits
[18:41:32.078]             invokeRestart <- base::invokeRestart
[18:41:32.078]             length <- base::length
[18:41:32.078]             list <- base::list
[18:41:32.078]             seq.int <- base::seq.int
[18:41:32.078]             signalCondition <- base::signalCondition
[18:41:32.078]             sys.calls <- base::sys.calls
[18:41:32.078]             `[[` <- base::`[[`
[18:41:32.078]             `+` <- base::`+`
[18:41:32.078]             `<<-` <- base::`<<-`
[18:41:32.078]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:32.078]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:32.078]                   3L)]
[18:41:32.078]             }
[18:41:32.078]             function(cond) {
[18:41:32.078]                 is_error <- inherits(cond, "error")
[18:41:32.078]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:32.078]                   NULL)
[18:41:32.078]                 if (is_error) {
[18:41:32.078]                   sessionInformation <- function() {
[18:41:32.078]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:32.078]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:32.078]                       search = base::search(), system = base::Sys.info())
[18:41:32.078]                   }
[18:41:32.078]                   ...future.conditions[[length(...future.conditions) + 
[18:41:32.078]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:32.078]                     cond$call), session = sessionInformation(), 
[18:41:32.078]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:32.078]                   signalCondition(cond)
[18:41:32.078]                 }
[18:41:32.078]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:32.078]                 "immediateCondition"))) {
[18:41:32.078]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:32.078]                   ...future.conditions[[length(...future.conditions) + 
[18:41:32.078]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:32.078]                   if (TRUE && !signal) {
[18:41:32.078]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:32.078]                     {
[18:41:32.078]                       inherits <- base::inherits
[18:41:32.078]                       invokeRestart <- base::invokeRestart
[18:41:32.078]                       is.null <- base::is.null
[18:41:32.078]                       muffled <- FALSE
[18:41:32.078]                       if (inherits(cond, "message")) {
[18:41:32.078]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:32.078]                         if (muffled) 
[18:41:32.078]                           invokeRestart("muffleMessage")
[18:41:32.078]                       }
[18:41:32.078]                       else if (inherits(cond, "warning")) {
[18:41:32.078]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:32.078]                         if (muffled) 
[18:41:32.078]                           invokeRestart("muffleWarning")
[18:41:32.078]                       }
[18:41:32.078]                       else if (inherits(cond, "condition")) {
[18:41:32.078]                         if (!is.null(pattern)) {
[18:41:32.078]                           computeRestarts <- base::computeRestarts
[18:41:32.078]                           grepl <- base::grepl
[18:41:32.078]                           restarts <- computeRestarts(cond)
[18:41:32.078]                           for (restart in restarts) {
[18:41:32.078]                             name <- restart$name
[18:41:32.078]                             if (is.null(name)) 
[18:41:32.078]                               next
[18:41:32.078]                             if (!grepl(pattern, name)) 
[18:41:32.078]                               next
[18:41:32.078]                             invokeRestart(restart)
[18:41:32.078]                             muffled <- TRUE
[18:41:32.078]                             break
[18:41:32.078]                           }
[18:41:32.078]                         }
[18:41:32.078]                       }
[18:41:32.078]                       invisible(muffled)
[18:41:32.078]                     }
[18:41:32.078]                     muffleCondition(cond, pattern = "^muffle")
[18:41:32.078]                   }
[18:41:32.078]                 }
[18:41:32.078]                 else {
[18:41:32.078]                   if (TRUE) {
[18:41:32.078]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:32.078]                     {
[18:41:32.078]                       inherits <- base::inherits
[18:41:32.078]                       invokeRestart <- base::invokeRestart
[18:41:32.078]                       is.null <- base::is.null
[18:41:32.078]                       muffled <- FALSE
[18:41:32.078]                       if (inherits(cond, "message")) {
[18:41:32.078]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:32.078]                         if (muffled) 
[18:41:32.078]                           invokeRestart("muffleMessage")
[18:41:32.078]                       }
[18:41:32.078]                       else if (inherits(cond, "warning")) {
[18:41:32.078]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:32.078]                         if (muffled) 
[18:41:32.078]                           invokeRestart("muffleWarning")
[18:41:32.078]                       }
[18:41:32.078]                       else if (inherits(cond, "condition")) {
[18:41:32.078]                         if (!is.null(pattern)) {
[18:41:32.078]                           computeRestarts <- base::computeRestarts
[18:41:32.078]                           grepl <- base::grepl
[18:41:32.078]                           restarts <- computeRestarts(cond)
[18:41:32.078]                           for (restart in restarts) {
[18:41:32.078]                             name <- restart$name
[18:41:32.078]                             if (is.null(name)) 
[18:41:32.078]                               next
[18:41:32.078]                             if (!grepl(pattern, name)) 
[18:41:32.078]                               next
[18:41:32.078]                             invokeRestart(restart)
[18:41:32.078]                             muffled <- TRUE
[18:41:32.078]                             break
[18:41:32.078]                           }
[18:41:32.078]                         }
[18:41:32.078]                       }
[18:41:32.078]                       invisible(muffled)
[18:41:32.078]                     }
[18:41:32.078]                     muffleCondition(cond, pattern = "^muffle")
[18:41:32.078]                   }
[18:41:32.078]                 }
[18:41:32.078]             }
[18:41:32.078]         }))
[18:41:32.078]     }, error = function(ex) {
[18:41:32.078]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:32.078]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:32.078]                 ...future.rng), started = ...future.startTime, 
[18:41:32.078]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:32.078]             version = "1.8"), class = "FutureResult")
[18:41:32.078]     }, finally = {
[18:41:32.078]         if (!identical(...future.workdir, getwd())) 
[18:41:32.078]             setwd(...future.workdir)
[18:41:32.078]         {
[18:41:32.078]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:32.078]                 ...future.oldOptions$nwarnings <- NULL
[18:41:32.078]             }
[18:41:32.078]             base::options(...future.oldOptions)
[18:41:32.078]             if (.Platform$OS.type == "windows") {
[18:41:32.078]                 old_names <- names(...future.oldEnvVars)
[18:41:32.078]                 envs <- base::Sys.getenv()
[18:41:32.078]                 names <- names(envs)
[18:41:32.078]                 common <- intersect(names, old_names)
[18:41:32.078]                 added <- setdiff(names, old_names)
[18:41:32.078]                 removed <- setdiff(old_names, names)
[18:41:32.078]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:32.078]                   envs[common]]
[18:41:32.078]                 NAMES <- toupper(changed)
[18:41:32.078]                 args <- list()
[18:41:32.078]                 for (kk in seq_along(NAMES)) {
[18:41:32.078]                   name <- changed[[kk]]
[18:41:32.078]                   NAME <- NAMES[[kk]]
[18:41:32.078]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.078]                     next
[18:41:32.078]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:32.078]                 }
[18:41:32.078]                 NAMES <- toupper(added)
[18:41:32.078]                 for (kk in seq_along(NAMES)) {
[18:41:32.078]                   name <- added[[kk]]
[18:41:32.078]                   NAME <- NAMES[[kk]]
[18:41:32.078]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.078]                     next
[18:41:32.078]                   args[[name]] <- ""
[18:41:32.078]                 }
[18:41:32.078]                 NAMES <- toupper(removed)
[18:41:32.078]                 for (kk in seq_along(NAMES)) {
[18:41:32.078]                   name <- removed[[kk]]
[18:41:32.078]                   NAME <- NAMES[[kk]]
[18:41:32.078]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.078]                     next
[18:41:32.078]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:32.078]                 }
[18:41:32.078]                 if (length(args) > 0) 
[18:41:32.078]                   base::do.call(base::Sys.setenv, args = args)
[18:41:32.078]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:32.078]             }
[18:41:32.078]             else {
[18:41:32.078]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:32.078]             }
[18:41:32.078]             {
[18:41:32.078]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:32.078]                   0L) {
[18:41:32.078]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:32.078]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:32.078]                   base::options(opts)
[18:41:32.078]                 }
[18:41:32.078]                 {
[18:41:32.078]                   {
[18:41:32.078]                     base::assign(".Random.seed", c(10407L, -1588477406L, 
[18:41:32.078]                     -1744278853L, 1620368110L, -1395886290L, 
[18:41:32.078]                     324784492L, 1409726724L), envir = base::globalenv(), 
[18:41:32.078]                       inherits = FALSE)
[18:41:32.078]                     NULL
[18:41:32.078]                   }
[18:41:32.078]                   options(future.plan = NULL)
[18:41:32.078]                   if (is.na(NA_character_)) 
[18:41:32.078]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:32.078]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:32.078]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:32.078]                     .init = FALSE)
[18:41:32.078]                 }
[18:41:32.078]             }
[18:41:32.078]         }
[18:41:32.078]     })
[18:41:32.078]     if (TRUE) {
[18:41:32.078]         base::sink(type = "output", split = FALSE)
[18:41:32.078]         if (TRUE) {
[18:41:32.078]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:32.078]         }
[18:41:32.078]         else {
[18:41:32.078]             ...future.result["stdout"] <- base::list(NULL)
[18:41:32.078]         }
[18:41:32.078]         base::close(...future.stdout)
[18:41:32.078]         ...future.stdout <- NULL
[18:41:32.078]     }
[18:41:32.078]     ...future.result$conditions <- ...future.conditions
[18:41:32.078]     ...future.result$finished <- base::Sys.time()
[18:41:32.078]     ...future.result
[18:41:32.078] }
[18:41:32.082] assign_globals() ...
[18:41:32.082] List of 5
[18:41:32.082]  $ ...future.FUN            :function (e1, e2)  
[18:41:32.082]  $ MoreArgs                 : NULL
[18:41:32.082]  $ ...future.elements_ii    :List of 2
[18:41:32.082]   ..$ :List of 3
[18:41:32.082]   .. ..$ : num 1
[18:41:32.082]   .. ..$ : num 1
[18:41:32.082]   .. ..$ : num 1
[18:41:32.082]   ..$ :List of 3
[18:41:32.082]   .. ..$ : int 1
[18:41:32.082]   .. ..$ : int 2
[18:41:32.082]   .. ..$ : int 3
[18:41:32.082]  $ ...future.seeds_ii       : NULL
[18:41:32.082]  $ ...future.globals.maxSize: NULL
[18:41:32.082]  - attr(*, "where")=List of 5
[18:41:32.082]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:32.082]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:32.082]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:32.082]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:32.082]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:32.082]  - attr(*, "resolved")= logi FALSE
[18:41:32.082]  - attr(*, "total_size")= int 244
[18:41:32.082]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:32.082]  - attr(*, "already-done")= logi TRUE
[18:41:32.092] - copied '...future.FUN' to environment
[18:41:32.092] - copied 'MoreArgs' to environment
[18:41:32.098] - copied '...future.elements_ii' to environment
[18:41:32.098] - copied '...future.seeds_ii' to environment
[18:41:32.098] - copied '...future.globals.maxSize' to environment
[18:41:32.099] assign_globals() ... done
[18:41:32.099] plan(): Setting new future strategy stack:
[18:41:32.099] List of future strategies:
[18:41:32.099] 1. sequential:
[18:41:32.099]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.099]    - tweaked: FALSE
[18:41:32.099]    - call: NULL
[18:41:32.100] plan(): nbrOfWorkers() = 1
[18:41:32.101] plan(): Setting new future strategy stack:
[18:41:32.102] List of future strategies:
[18:41:32.102] 1. sequential:
[18:41:32.102]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.102]    - tweaked: FALSE
[18:41:32.102]    - call: plan(strategy)
[18:41:32.102] plan(): nbrOfWorkers() = 1
[18:41:32.103] SequentialFuture started (and completed)
[18:41:32.103] - Launch lazy future ... done
[18:41:32.103] run() for 'SequentialFuture' ... done
[18:41:32.103] Created future:
[18:41:32.103] SequentialFuture:
[18:41:32.103] Label: 'future_Map-1'
[18:41:32.103] Expression:
[18:41:32.103] {
[18:41:32.103]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:32.103]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:32.103]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:32.103]         on.exit(options(oopts), add = TRUE)
[18:41:32.103]     }
[18:41:32.103]     {
[18:41:32.103]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:32.103]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:32.103]         do.call(mapply, args = args)
[18:41:32.103]     }
[18:41:32.103] }
[18:41:32.103] Lazy evaluation: FALSE
[18:41:32.103] Asynchronous evaluation: FALSE
[18:41:32.103] Local evaluation: TRUE
[18:41:32.103] Environment: R_GlobalEnv
[18:41:32.103] Capture standard output: TRUE
[18:41:32.103] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:32.103] Globals: 5 objects totaling 244 bytes (function '...future.FUN' of 32 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 131 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:32.103] Packages: <none>
[18:41:32.103] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:32.103] Resolved: TRUE
[18:41:32.103] Value: 79 bytes of class 'list'
[18:41:32.103] Early signaling: FALSE
[18:41:32.103] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:32.103] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:32.105] Chunk #1 of 1 ... DONE
[18:41:32.105] Launching 1 futures (chunks) ... DONE
[18:41:32.105] Resolving 1 futures (chunks) ...
[18:41:32.105] resolve() on list ...
[18:41:32.105]  recursive: 0
[18:41:32.106]  length: 1
[18:41:32.106] 
[18:41:32.106] resolved() for 'SequentialFuture' ...
[18:41:32.106] - state: 'finished'
[18:41:32.106] - run: TRUE
[18:41:32.107] - result: 'FutureResult'
[18:41:32.107] resolved() for 'SequentialFuture' ... done
[18:41:32.107] Future #1
[18:41:32.107] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:32.107] - nx: 1
[18:41:32.108] - relay: TRUE
[18:41:32.108] - stdout: TRUE
[18:41:32.108] - signal: TRUE
[18:41:32.108] - resignal: FALSE
[18:41:32.108] - force: TRUE
[18:41:32.108] - relayed: [n=1] FALSE
[18:41:32.109] - queued futures: [n=1] FALSE
[18:41:32.109]  - until=1
[18:41:32.109]  - relaying element #1
[18:41:32.109] - relayed: [n=1] TRUE
[18:41:32.110] - queued futures: [n=1] TRUE
[18:41:32.110] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:32.110]  length: 0 (resolved future 1)
[18:41:32.110] Relaying remaining futures
[18:41:32.110] signalConditionsASAP(NULL, pos=0) ...
[18:41:32.110] - nx: 1
[18:41:32.111] - relay: TRUE
[18:41:32.111] - stdout: TRUE
[18:41:32.111] - signal: TRUE
[18:41:32.111] - resignal: FALSE
[18:41:32.111] - force: TRUE
[18:41:32.112] - relayed: [n=1] TRUE
[18:41:32.112] - queued futures: [n=1] TRUE
 - flush all
[18:41:32.112] - relayed: [n=1] TRUE
[18:41:32.112] - queued futures: [n=1] TRUE
[18:41:32.112] signalConditionsASAP(NULL, pos=0) ... done
[18:41:32.113] resolve() on list ... DONE
[18:41:32.113]  - Number of value chunks collected: 1
[18:41:32.113] Resolving 1 futures (chunks) ... DONE
[18:41:32.113] Reducing values from 1 chunks ...
[18:41:32.113]  - Number of values collected after concatenation: 3
[18:41:32.114]  - Number of values expected: 3
[18:41:32.114] Reducing values from 1 chunks ... DONE
[18:41:32.114] future_mapply() ... DONE
- future_mapply(x, ...) where x[[i]] subsets via S3 method ...
[18:41:32.115] future_mapply() ...
[18:41:32.115] Number of chunks: 1
[18:41:32.115] getGlobalsAndPackagesXApply() ...
[18:41:32.115]  - future.globals: TRUE
[18:41:32.116] getGlobalsAndPackages() ...
[18:41:32.116] Searching for globals...
[18:41:32.117] - globals found: [1] 'FUN'
[18:41:32.118] Searching for globals ... DONE
[18:41:32.118] Resolving globals: FALSE
[18:41:32.119] The total size of the 1 globals is 185 bytes (185 bytes)
[18:41:32.119] The total size of the 1 globals exported for future expression ('FUN()') is 185 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (185 bytes of class 'function')
[18:41:32.119] - globals: [1] 'FUN'
[18:41:32.120] 
[18:41:32.120] getGlobalsAndPackages() ... DONE
[18:41:32.120]  - globals found/used: [n=1] 'FUN'
[18:41:32.120]  - needed namespaces: [n=0] 
[18:41:32.121] Finding globals ... DONE
[18:41:32.121] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:32.121] List of 2
[18:41:32.121]  $ ...future.FUN:function (x)  
[18:41:32.121]  $ MoreArgs     : NULL
[18:41:32.121]  - attr(*, "where")=List of 2
[18:41:32.121]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:32.121]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:32.121]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:32.121]  - attr(*, "resolved")= logi FALSE
[18:41:32.121]  - attr(*, "total_size")= num NA
[18:41:32.125] Packages to be attached in all futures: [n=0] 
[18:41:32.125] getGlobalsAndPackagesXApply() ... DONE
[18:41:32.126] Number of futures (= number of chunks): 1
[18:41:32.126] Launching 1 futures (chunks) ...
[18:41:32.126] Chunk #1 of 1 ...
[18:41:32.126]  - Finding globals in '...' for chunk #1 ...
[18:41:32.127] getGlobalsAndPackages() ...
[18:41:32.127] Searching for globals...
[18:41:32.127] 
[18:41:32.128] Searching for globals ... DONE
[18:41:32.128] - globals: [0] <none>
[18:41:32.128] getGlobalsAndPackages() ... DONE
[18:41:32.128]    + additional globals found: [n=0] 
[18:41:32.128]    + additional namespaces needed: [n=0] 
[18:41:32.129]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:32.129]  - seeds: <none>
[18:41:32.129]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.129] getGlobalsAndPackages() ...
[18:41:32.129] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.130] Resolving globals: FALSE
[18:41:32.131] The total size of the 5 globals is 388 bytes (388 bytes)
[18:41:32.131] 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 388 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (122 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:32.132] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:32.132] 
[18:41:32.132] getGlobalsAndPackages() ... DONE
[18:41:32.133] run() for 'Future' ...
[18:41:32.133] - state: 'created'
[18:41:32.133] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:32.134] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:32.134] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:32.134]   - Field: 'label'
[18:41:32.134]   - Field: 'local'
[18:41:32.135]   - Field: 'owner'
[18:41:32.135]   - Field: 'envir'
[18:41:32.135]   - Field: 'packages'
[18:41:32.135]   - Field: 'gc'
[18:41:32.135]   - Field: 'conditions'
[18:41:32.136]   - Field: 'expr'
[18:41:32.136]   - Field: 'uuid'
[18:41:32.136]   - Field: 'seed'
[18:41:32.136]   - Field: 'version'
[18:41:32.137]   - Field: 'result'
[18:41:32.137]   - Field: 'asynchronous'
[18:41:32.137]   - Field: 'calls'
[18:41:32.137]   - Field: 'globals'
[18:41:32.137]   - Field: 'stdout'
[18:41:32.138]   - Field: 'earlySignal'
[18:41:32.138]   - Field: 'lazy'
[18:41:32.138]   - Field: 'state'
[18:41:32.138] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:32.139] - Launch lazy future ...
[18:41:32.139] Packages needed by the future expression (n = 0): <none>
[18:41:32.139] Packages needed by future strategies (n = 0): <none>
[18:41:32.140] {
[18:41:32.140]     {
[18:41:32.140]         {
[18:41:32.140]             ...future.startTime <- base::Sys.time()
[18:41:32.140]             {
[18:41:32.140]                 {
[18:41:32.140]                   {
[18:41:32.140]                     base::local({
[18:41:32.140]                       has_future <- base::requireNamespace("future", 
[18:41:32.140]                         quietly = TRUE)
[18:41:32.140]                       if (has_future) {
[18:41:32.140]                         ns <- base::getNamespace("future")
[18:41:32.140]                         version <- ns[[".package"]][["version"]]
[18:41:32.140]                         if (is.null(version)) 
[18:41:32.140]                           version <- utils::packageVersion("future")
[18:41:32.140]                       }
[18:41:32.140]                       else {
[18:41:32.140]                         version <- NULL
[18:41:32.140]                       }
[18:41:32.140]                       if (!has_future || version < "1.8.0") {
[18:41:32.140]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:32.140]                           "", base::R.version$version.string), 
[18:41:32.140]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:32.140]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:32.140]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:32.140]                             "release", "version")], collapse = " "), 
[18:41:32.140]                           hostname = base::Sys.info()[["nodename"]])
[18:41:32.140]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:32.140]                           info)
[18:41:32.140]                         info <- base::paste(info, collapse = "; ")
[18:41:32.140]                         if (!has_future) {
[18:41:32.140]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:32.140]                             info)
[18:41:32.140]                         }
[18:41:32.140]                         else {
[18:41:32.140]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:32.140]                             info, version)
[18:41:32.140]                         }
[18:41:32.140]                         base::stop(msg)
[18:41:32.140]                       }
[18:41:32.140]                     })
[18:41:32.140]                   }
[18:41:32.140]                   ...future.strategy.old <- future::plan("list")
[18:41:32.140]                   options(future.plan = NULL)
[18:41:32.140]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:32.140]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:32.140]                 }
[18:41:32.140]                 ...future.workdir <- getwd()
[18:41:32.140]             }
[18:41:32.140]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:32.140]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:32.140]         }
[18:41:32.140]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:32.140]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:32.140]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:32.140]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:32.140]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:32.140]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:32.140]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:32.140]             base::names(...future.oldOptions))
[18:41:32.140]     }
[18:41:32.140]     if (FALSE) {
[18:41:32.140]     }
[18:41:32.140]     else {
[18:41:32.140]         if (TRUE) {
[18:41:32.140]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:32.140]                 open = "w")
[18:41:32.140]         }
[18:41:32.140]         else {
[18:41:32.140]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:32.140]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:32.140]         }
[18:41:32.140]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:32.140]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:32.140]             base::sink(type = "output", split = FALSE)
[18:41:32.140]             base::close(...future.stdout)
[18:41:32.140]         }, add = TRUE)
[18:41:32.140]     }
[18:41:32.140]     ...future.frame <- base::sys.nframe()
[18:41:32.140]     ...future.conditions <- base::list()
[18:41:32.140]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:32.140]     if (FALSE) {
[18:41:32.140]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:32.140]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:32.140]     }
[18:41:32.140]     ...future.result <- base::tryCatch({
[18:41:32.140]         base::withCallingHandlers({
[18:41:32.140]             ...future.value <- base::withVisible(base::local({
[18:41:32.140]                 ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:32.140]                 if (!identical(...future.globals.maxSize.org, 
[18:41:32.140]                   ...future.globals.maxSize)) {
[18:41:32.140]                   oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:32.140]                   on.exit(options(oopts), add = TRUE)
[18:41:32.140]                 }
[18:41:32.140]                 {
[18:41:32.140]                   args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:32.140]                     MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:32.140]                     USE.NAMES = FALSE)
[18:41:32.140]                   do.call(mapply, args = args)
[18:41:32.140]                 }
[18:41:32.140]             }))
[18:41:32.140]             future::FutureResult(value = ...future.value$value, 
[18:41:32.140]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:32.140]                   ...future.rng), globalenv = if (FALSE) 
[18:41:32.140]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:32.140]                     ...future.globalenv.names))
[18:41:32.140]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:32.140]         }, condition = base::local({
[18:41:32.140]             c <- base::c
[18:41:32.140]             inherits <- base::inherits
[18:41:32.140]             invokeRestart <- base::invokeRestart
[18:41:32.140]             length <- base::length
[18:41:32.140]             list <- base::list
[18:41:32.140]             seq.int <- base::seq.int
[18:41:32.140]             signalCondition <- base::signalCondition
[18:41:32.140]             sys.calls <- base::sys.calls
[18:41:32.140]             `[[` <- base::`[[`
[18:41:32.140]             `+` <- base::`+`
[18:41:32.140]             `<<-` <- base::`<<-`
[18:41:32.140]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:32.140]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:32.140]                   3L)]
[18:41:32.140]             }
[18:41:32.140]             function(cond) {
[18:41:32.140]                 is_error <- inherits(cond, "error")
[18:41:32.140]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:32.140]                   NULL)
[18:41:32.140]                 if (is_error) {
[18:41:32.140]                   sessionInformation <- function() {
[18:41:32.140]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:32.140]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:32.140]                       search = base::search(), system = base::Sys.info())
[18:41:32.140]                   }
[18:41:32.140]                   ...future.conditions[[length(...future.conditions) + 
[18:41:32.140]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:32.140]                     cond$call), session = sessionInformation(), 
[18:41:32.140]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:32.140]                   signalCondition(cond)
[18:41:32.140]                 }
[18:41:32.140]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:32.140]                 "immediateCondition"))) {
[18:41:32.140]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:32.140]                   ...future.conditions[[length(...future.conditions) + 
[18:41:32.140]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:32.140]                   if (TRUE && !signal) {
[18:41:32.140]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:32.140]                     {
[18:41:32.140]                       inherits <- base::inherits
[18:41:32.140]                       invokeRestart <- base::invokeRestart
[18:41:32.140]                       is.null <- base::is.null
[18:41:32.140]                       muffled <- FALSE
[18:41:32.140]                       if (inherits(cond, "message")) {
[18:41:32.140]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:32.140]                         if (muffled) 
[18:41:32.140]                           invokeRestart("muffleMessage")
[18:41:32.140]                       }
[18:41:32.140]                       else if (inherits(cond, "warning")) {
[18:41:32.140]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:32.140]                         if (muffled) 
[18:41:32.140]                           invokeRestart("muffleWarning")
[18:41:32.140]                       }
[18:41:32.140]                       else if (inherits(cond, "condition")) {
[18:41:32.140]                         if (!is.null(pattern)) {
[18:41:32.140]                           computeRestarts <- base::computeRestarts
[18:41:32.140]                           grepl <- base::grepl
[18:41:32.140]                           restarts <- computeRestarts(cond)
[18:41:32.140]                           for (restart in restarts) {
[18:41:32.140]                             name <- restart$name
[18:41:32.140]                             if (is.null(name)) 
[18:41:32.140]                               next
[18:41:32.140]                             if (!grepl(pattern, name)) 
[18:41:32.140]                               next
[18:41:32.140]                             invokeRestart(restart)
[18:41:32.140]                             muffled <- TRUE
[18:41:32.140]                             break
[18:41:32.140]                           }
[18:41:32.140]                         }
[18:41:32.140]                       }
[18:41:32.140]                       invisible(muffled)
[18:41:32.140]                     }
[18:41:32.140]                     muffleCondition(cond, pattern = "^muffle")
[18:41:32.140]                   }
[18:41:32.140]                 }
[18:41:32.140]                 else {
[18:41:32.140]                   if (TRUE) {
[18:41:32.140]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:32.140]                     {
[18:41:32.140]                       inherits <- base::inherits
[18:41:32.140]                       invokeRestart <- base::invokeRestart
[18:41:32.140]                       is.null <- base::is.null
[18:41:32.140]                       muffled <- FALSE
[18:41:32.140]                       if (inherits(cond, "message")) {
[18:41:32.140]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:32.140]                         if (muffled) 
[18:41:32.140]                           invokeRestart("muffleMessage")
[18:41:32.140]                       }
[18:41:32.140]                       else if (inherits(cond, "warning")) {
[18:41:32.140]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:32.140]                         if (muffled) 
[18:41:32.140]                           invokeRestart("muffleWarning")
[18:41:32.140]                       }
[18:41:32.140]                       else if (inherits(cond, "condition")) {
[18:41:32.140]                         if (!is.null(pattern)) {
[18:41:32.140]                           computeRestarts <- base::computeRestarts
[18:41:32.140]                           grepl <- base::grepl
[18:41:32.140]                           restarts <- computeRestarts(cond)
[18:41:32.140]                           for (restart in restarts) {
[18:41:32.140]                             name <- restart$name
[18:41:32.140]                             if (is.null(name)) 
[18:41:32.140]                               next
[18:41:32.140]                             if (!grepl(pattern, name)) 
[18:41:32.140]                               next
[18:41:32.140]                             invokeRestart(restart)
[18:41:32.140]                             muffled <- TRUE
[18:41:32.140]                             break
[18:41:32.140]                           }
[18:41:32.140]                         }
[18:41:32.140]                       }
[18:41:32.140]                       invisible(muffled)
[18:41:32.140]                     }
[18:41:32.140]                     muffleCondition(cond, pattern = "^muffle")
[18:41:32.140]                   }
[18:41:32.140]                 }
[18:41:32.140]             }
[18:41:32.140]         }))
[18:41:32.140]     }, error = function(ex) {
[18:41:32.140]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:32.140]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:32.140]                 ...future.rng), started = ...future.startTime, 
[18:41:32.140]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:32.140]             version = "1.8"), class = "FutureResult")
[18:41:32.140]     }, finally = {
[18:41:32.140]         if (!identical(...future.workdir, getwd())) 
[18:41:32.140]             setwd(...future.workdir)
[18:41:32.140]         {
[18:41:32.140]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:32.140]                 ...future.oldOptions$nwarnings <- NULL
[18:41:32.140]             }
[18:41:32.140]             base::options(...future.oldOptions)
[18:41:32.140]             if (.Platform$OS.type == "windows") {
[18:41:32.140]                 old_names <- names(...future.oldEnvVars)
[18:41:32.140]                 envs <- base::Sys.getenv()
[18:41:32.140]                 names <- names(envs)
[18:41:32.140]                 common <- intersect(names, old_names)
[18:41:32.140]                 added <- setdiff(names, old_names)
[18:41:32.140]                 removed <- setdiff(old_names, names)
[18:41:32.140]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:32.140]                   envs[common]]
[18:41:32.140]                 NAMES <- toupper(changed)
[18:41:32.140]                 args <- list()
[18:41:32.140]                 for (kk in seq_along(NAMES)) {
[18:41:32.140]                   name <- changed[[kk]]
[18:41:32.140]                   NAME <- NAMES[[kk]]
[18:41:32.140]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.140]                     next
[18:41:32.140]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:32.140]                 }
[18:41:32.140]                 NAMES <- toupper(added)
[18:41:32.140]                 for (kk in seq_along(NAMES)) {
[18:41:32.140]                   name <- added[[kk]]
[18:41:32.140]                   NAME <- NAMES[[kk]]
[18:41:32.140]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.140]                     next
[18:41:32.140]                   args[[name]] <- ""
[18:41:32.140]                 }
[18:41:32.140]                 NAMES <- toupper(removed)
[18:41:32.140]                 for (kk in seq_along(NAMES)) {
[18:41:32.140]                   name <- removed[[kk]]
[18:41:32.140]                   NAME <- NAMES[[kk]]
[18:41:32.140]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:32.140]                     next
[18:41:32.140]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:32.140]                 }
[18:41:32.140]                 if (length(args) > 0) 
[18:41:32.140]                   base::do.call(base::Sys.setenv, args = args)
[18:41:32.140]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:32.140]             }
[18:41:32.140]             else {
[18:41:32.140]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:32.140]             }
[18:41:32.140]             {
[18:41:32.140]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:32.140]                   0L) {
[18:41:32.140]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:32.140]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:32.140]                   base::options(opts)
[18:41:32.140]                 }
[18:41:32.140]                 {
[18:41:32.140]                   {
[18:41:32.140]                     base::assign(".Random.seed", c(10407L, -1588477406L, 
[18:41:32.140]                     -1744278853L, 1620368110L, -1395886290L, 
[18:41:32.140]                     324784492L, 1409726724L), envir = base::globalenv(), 
[18:41:32.140]                       inherits = FALSE)
[18:41:32.140]                     NULL
[18:41:32.140]                   }
[18:41:32.140]                   options(future.plan = NULL)
[18:41:32.140]                   if (is.na(NA_character_)) 
[18:41:32.140]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:32.140]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:32.140]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:32.140]                     .init = FALSE)
[18:41:32.140]                 }
[18:41:32.140]             }
[18:41:32.140]         }
[18:41:32.140]     })
[18:41:32.140]     if (TRUE) {
[18:41:32.140]         base::sink(type = "output", split = FALSE)
[18:41:32.140]         if (TRUE) {
[18:41:32.140]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:32.140]         }
[18:41:32.140]         else {
[18:41:32.140]             ...future.result["stdout"] <- base::list(NULL)
[18:41:32.140]         }
[18:41:32.140]         base::close(...future.stdout)
[18:41:32.140]         ...future.stdout <- NULL
[18:41:32.140]     }
[18:41:32.140]     ...future.result$conditions <- ...future.conditions
[18:41:32.140]     ...future.result$finished <- base::Sys.time()
[18:41:32.140]     ...future.result
[18:41:32.140] }
[18:41:32.144] assign_globals() ...
[18:41:32.144] List of 5
[18:41:32.144]  $ ...future.FUN            :function (x)  
[18:41:32.144]  $ MoreArgs                 : NULL
[18:41:32.144]  $ ...future.elements_ii    :List of 1
[18:41:32.144]   ..$ :List of 2
[18:41:32.144]   .. ..$ a: num 0
[18:41:32.144]   .. ..$ b: num 0
[18:41:32.144]  $ ...future.seeds_ii       : NULL
[18:41:32.144]  $ ...future.globals.maxSize: NULL
[18:41:32.144]  - attr(*, "where")=List of 5
[18:41:32.144]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:32.144]   ..$ MoreArgs                 :<environment: R_EmptyEnv> 
[18:41:32.144]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:32.144]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:32.144]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:32.144]  - attr(*, "resolved")= logi FALSE
[18:41:32.144]  - attr(*, "total_size")= int 388
[18:41:32.144]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:32.144]  - attr(*, "already-done")= logi TRUE
[18:41:32.152] - copied '...future.FUN' to environment
[18:41:32.152] - copied 'MoreArgs' to environment
[18:41:32.153] - copied '...future.elements_ii' to environment
[18:41:32.153] - copied '...future.seeds_ii' to environment
[18:41:32.153] - copied '...future.globals.maxSize' to environment
[18:41:32.153] assign_globals() ... done
[18:41:32.154] plan(): Setting new future strategy stack:
[18:41:32.154] List of future strategies:
[18:41:32.154] 1. sequential:
[18:41:32.154]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.154]    - tweaked: FALSE
[18:41:32.154]    - call: NULL
[18:41:32.155] plan(): nbrOfWorkers() = 1
[18:41:32.156] plan(): Setting new future strategy stack:
[18:41:32.156] List of future strategies:
[18:41:32.156] 1. sequential:
[18:41:32.156]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.156]    - tweaked: FALSE
[18:41:32.156]    - call: plan(strategy)
[18:41:32.157] plan(): nbrOfWorkers() = 1
[18:41:32.157] SequentialFuture started (and completed)
[18:41:32.158] - Launch lazy future ... done
[18:41:32.158] run() for 'SequentialFuture' ... done
[18:41:32.158] Created future:
[18:41:32.158] SequentialFuture:
[18:41:32.158] Label: 'future_mapply-1'
[18:41:32.158] Expression:
[18:41:32.158] {
[18:41:32.158]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:32.158]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:32.158]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:32.158]         on.exit(options(oopts), add = TRUE)
[18:41:32.158]     }
[18:41:32.158]     {
[18:41:32.158]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:32.158]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:32.158]         do.call(mapply, args = args)
[18:41:32.158]     }
[18:41:32.158] }
[18:41:32.158] Lazy evaluation: FALSE
[18:41:32.158] Asynchronous evaluation: FALSE
[18:41:32.158] Local evaluation: TRUE
[18:41:32.158] Environment: R_GlobalEnv
[18:41:32.158] Capture standard output: TRUE
[18:41:32.158] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:32.158] Globals: 5 objects totaling 388 bytes (function '...future.FUN' of 185 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 122 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:32.158] Packages: <none>
[18:41:32.158] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:32.158] Resolved: TRUE
[18:41:32.158] Value: 63 bytes of class 'list'
[18:41:32.158] Early signaling: FALSE
[18:41:32.158] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:32.158] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:32.160] Chunk #1 of 1 ... DONE
[18:41:32.160] Launching 1 futures (chunks) ... DONE
[18:41:32.160] Resolving 1 futures (chunks) ...
[18:41:32.160] resolve() on list ...
[18:41:32.161]  recursive: 0
[18:41:32.161]  length: 1
[18:41:32.161] 
[18:41:32.161] resolved() for 'SequentialFuture' ...
[18:41:32.161] - state: 'finished'
[18:41:32.162] - run: TRUE
[18:41:32.162] - result: 'FutureResult'
[18:41:32.162] resolved() for 'SequentialFuture' ... done
[18:41:32.162] Future #1
[18:41:32.163] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:32.163] - nx: 1
[18:41:32.163] - relay: TRUE
[18:41:32.163] - stdout: TRUE
[18:41:32.163] - signal: TRUE
[18:41:32.163] - resignal: FALSE
[18:41:32.164] - force: TRUE
[18:41:32.164] - relayed: [n=1] FALSE
[18:41:32.164] - queued futures: [n=1] FALSE
[18:41:32.164]  - until=1
[18:41:32.165]  - relaying element #1
[18:41:32.165] - relayed: [n=1] TRUE
[18:41:32.165] - queued futures: [n=1] TRUE
[18:41:32.165] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:32.166]  length: 0 (resolved future 1)
[18:41:32.166] Relaying remaining futures
[18:41:32.166] signalConditionsASAP(NULL, pos=0) ...
[18:41:32.166] - nx: 1
[18:41:32.166] - relay: TRUE
[18:41:32.166] - stdout: TRUE
[18:41:32.167] - signal: TRUE
[18:41:32.167] - resignal: FALSE
[18:41:32.167] - force: TRUE
[18:41:32.167] - relayed: [n=1] TRUE
[18:41:32.167] - queued futures: [n=1] TRUE
 - flush all
[18:41:32.168] - relayed: [n=1] TRUE
[18:41:32.168] - queued futures: [n=1] TRUE
[18:41:32.168] signalConditionsASAP(NULL, pos=0) ... done
[18:41:32.168] resolve() on list ... DONE
[18:41:32.168]  - Number of value chunks collected: 1
[18:41:32.169] Resolving 1 futures (chunks) ... DONE
[18:41:32.169] Reducing values from 1 chunks ...
[18:41:32.169]  - Number of values collected after concatenation: 2
[18:41:32.169]  - Number of values expected: 2
[18:41:32.169] Reducing values from 1 chunks ... DONE
[18:41:32.170] future_mapply() ... DONE
[18:41:32.170] plan(): Setting new future strategy stack:
[18:41:32.170] List of future strategies:
[18:41:32.170] 1. sequential:
[18:41:32.170]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:32.170]    - tweaked: FALSE
[18:41:32.170]    - call: plan(sequential)
[18:41:32.171] plan(): nbrOfWorkers() = 1
*** strategy = 'sequential' ... done
*** strategy = 'multisession' ...
[18:41:32.172] plan(): Setting new future strategy stack:
[18:41:32.172] List of future strategies:
[18:41:32.172] 1. multisession:
[18:41:32.172]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[18:41:32.172]    - tweaked: FALSE
[18:41:32.172]    - call: plan(strategy)
[18:41:32.172] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[18:41:32.173] multisession:
[18:41:32.173] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[18:41:32.173] - tweaked: FALSE
[18:41:32.173] - call: plan(strategy)
[18:41:32.178] getGlobalsAndPackages() ...
[18:41:32.178] Not searching for globals
[18:41:32.178] - globals: [0] <none>
[18:41:32.178] getGlobalsAndPackages() ... DONE
[18:41:32.179] [local output] makeClusterPSOCK() ...
[18:41:32.273] [local output] Workers: [n = 2] 'localhost', 'localhost'
[18:41:32.281] [local output] Base port: 25386
[18:41:32.281] [local output] Getting setup options for 2 cluster nodes ...
[18:41:32.282] [local output]  - Node #1 of 2 ...
[18:41:32.283] [local output] localMachine=TRUE => revtunnel=FALSE

[18:41:32.285] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpCwzElD/worker.rank=1.parallelly.parent=88372.159347f00744c.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpCwzElD/worker.rank=1.parallelly.parent=88372.159347f00744c.pid\")"'
[18:41:32.722] - Possible to infer worker's PID: TRUE
[18:41:32.723] [local output] Rscript port: 25386

[18:41:32.724] [local output]  - Node #2 of 2 ...
[18:41:32.724] [local output] localMachine=TRUE => revtunnel=FALSE

[18:41:32.726] [local output] Rscript port: 25386

[18:41:32.726] [local output] Getting setup options for 2 cluster nodes ... done
[18:41:32.727] [local output]  - Parallel setup requested for some PSOCK nodes
[18:41:32.727] [local output] Setting up PSOCK nodes in parallel
[18:41:32.727] List of 36
[18:41:32.727]  $ worker          : chr "localhost"
[18:41:32.727]   ..- attr(*, "localhost")= logi TRUE
[18:41:32.727]  $ master          : chr "localhost"
[18:41:32.727]  $ port            : int 25386
[18:41:32.727]  $ connectTimeout  : num 120
[18:41:32.727]  $ timeout         : num 120
[18:41:32.727]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[18:41:32.727]  $ homogeneous     : logi TRUE
[18:41:32.727]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future_mapply.R:88372:CRANWIN3:C"| __truncated__
[18:41:32.727]  $ rscript_envs    : NULL
[18:41:32.727]  $ rscript_libs    : chr [1:2] "D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8" "D:/RCompile/recent/R/library"
[18:41:32.727]  $ rscript_startup : NULL
[18:41:32.727]  $ rscript_sh      : chr [1:2] "cmd" "cmd"
[18:41:32.727]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[18:41:32.727]  $ methods         : logi TRUE
[18:41:32.727]  $ socketOptions   : chr "no-delay"
[18:41:32.727]  $ useXDR          : logi FALSE
[18:41:32.727]  $ outfile         : chr "/dev/null"
[18:41:32.727]  $ renice          : int NA
[18:41:32.727]  $ rshcmd          : NULL
[18:41:32.727]  $ user            : chr(0) 
[18:41:32.727]  $ revtunnel       : logi FALSE
[18:41:32.727]  $ rshlogfile      : NULL
[18:41:32.727]  $ rshopts         : chr(0) 
[18:41:32.727]  $ rank            : int 1
[18:41:32.727]  $ manual          : logi FALSE
[18:41:32.727]  $ dryrun          : logi FALSE
[18:41:32.727]  $ quiet           : logi FALSE
[18:41:32.727]  $ setup_strategy  : chr "parallel"
[18:41:32.727]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[18:41:32.727]  $ pidfile         : chr "D:/temp/RtmpCwzElD/worker.rank=1.parallelly.parent=88372.159347f00744c.pid"
[18:41:32.727]  $ rshcmd_label    : NULL
[18:41:32.727]  $ rsh_call        : NULL
[18:41:32.727]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[18:41:32.727]  $ localMachine    : logi TRUE
[18:41:32.727]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[18:41:32.727]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[18:41:32.727]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[18:41:32.727]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[18:41:32.727]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[18:41:32.727]         "cmd", "sh", "none"), default_packages = c("datasets", "utils", 
[18:41:32.727]         "grDevices", "graphics", "stats", if (methods) "methods"), methods = TRUE, 
[18:41:32.727]     socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[18:41:32.727]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[18:41:32.727]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[18:41:32.727]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[18:41:32.727]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[18:41:32.727]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[18:41:32.727]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[18:41:32.727]  $ arguments       :List of 28
[18:41:32.727]   ..$ worker          : chr "localhost"
[18:41:32.727]   ..$ master          : NULL
[18:41:32.727]   ..$ port            : int 25386
[18:41:32.727]   ..$ connectTimeout  : num 120
[18:41:32.727]   ..$ timeout         : num 120
[18:41:32.727]   ..$ rscript         : NULL
[18:41:32.727]   ..$ homogeneous     : NULL
[18:41:32.727]   ..$ rscript_args    : NULL
[18:41:32.727]   ..$ rscript_envs    : NULL
[18:41:32.727]   ..$ rscript_libs    : chr [1:2] "D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8" "D:/RCompile/recent/R/library"
[18:41:32.727]   ..$ rscript_startup : NULL
[18:41:32.727]   ..$ rscript_sh      : chr "auto"
[18:41:32.727]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[18:41:32.727]   ..$ methods         : logi TRUE
[18:41:32.727]   ..$ socketOptions   : chr "no-delay"
[18:41:32.727]   ..$ useXDR          : logi FALSE
[18:41:32.727]   ..$ outfile         : chr "/dev/null"
[18:41:32.727]   ..$ renice          : int NA
[18:41:32.727]   ..$ rshcmd          : NULL
[18:41:32.727]   ..$ user            : NULL
[18:41:32.727]   ..$ revtunnel       : logi NA
[18:41:32.727]   ..$ rshlogfile      : NULL
[18:41:32.727]   ..$ rshopts         : NULL
[18:41:32.727]   ..$ rank            : int 1
[18:41:32.727]   ..$ manual          : logi FALSE
[18:41:32.727]   ..$ dryrun          : logi FALSE
[18:41:32.727]   ..$ quiet           : logi FALSE
[18:41:32.727]   ..$ setup_strategy  : chr "parallel"
[18:41:32.727]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[18:41:32.750] [local output] System call to launch all workers:
[18:41:32.750] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_mapply.R:88372:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpCwzElD/worker.rank=1.parallelly.parent=88372.159347f00744c.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=25386 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[18:41:32.750] [local output] Starting PSOCK main server
[18:41:32.758] [local output] Workers launched
[18:41:32.758] [local output] Waiting for workers to connect back
[18:41:32.759]  - [local output] 0 workers out of 2 ready
[18:41:32.937]  - [local output] 0 workers out of 2 ready
[18:41:32.938]  - [local output] 1 workers out of 2 ready
[18:41:33.013]  - [local output] 1 workers out of 2 ready
[18:41:33.014]  - [local output] 2 workers out of 2 ready
[18:41:33.014] [local output] Launching of 2 workers completed
[18:41:33.014] [local output] Number of nodes in cluster: 2
[18:41:33.014] [local output] Collecting session information from 2 workers
[18:41:33.016] [local output]  - Worker #1 of 2
[18:41:33.016] [local output]  - Worker #2 of 2
[18:41:33.017] [local output] makeClusterPSOCK() ... done
[18:41:33.031] Packages needed by the future expression (n = 0): <none>
[18:41:33.031] Packages needed by future strategies (n = 0): <none>
[18:41:33.032] {
[18:41:33.032]     {
[18:41:33.032]         {
[18:41:33.032]             ...future.startTime <- base::Sys.time()
[18:41:33.032]             {
[18:41:33.032]                 {
[18:41:33.032]                   {
[18:41:33.032]                     {
[18:41:33.032]                       base::local({
[18:41:33.032]                         has_future <- base::requireNamespace("future", 
[18:41:33.032]                           quietly = TRUE)
[18:41:33.032]                         if (has_future) {
[18:41:33.032]                           ns <- base::getNamespace("future")
[18:41:33.032]                           version <- ns[[".package"]][["version"]]
[18:41:33.032]                           if (is.null(version)) 
[18:41:33.032]                             version <- utils::packageVersion("future")
[18:41:33.032]                         }
[18:41:33.032]                         else {
[18:41:33.032]                           version <- NULL
[18:41:33.032]                         }
[18:41:33.032]                         if (!has_future || version < "1.8.0") {
[18:41:33.032]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.032]                             "", base::R.version$version.string), 
[18:41:33.032]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.032]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.032]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.032]                               "release", "version")], collapse = " "), 
[18:41:33.032]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.032]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.032]                             info)
[18:41:33.032]                           info <- base::paste(info, collapse = "; ")
[18:41:33.032]                           if (!has_future) {
[18:41:33.032]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.032]                               info)
[18:41:33.032]                           }
[18:41:33.032]                           else {
[18:41:33.032]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.032]                               info, version)
[18:41:33.032]                           }
[18:41:33.032]                           base::stop(msg)
[18:41:33.032]                         }
[18:41:33.032]                       })
[18:41:33.032]                     }
[18:41:33.032]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.032]                     base::options(mc.cores = 1L)
[18:41:33.032]                   }
[18:41:33.032]                   ...future.strategy.old <- future::plan("list")
[18:41:33.032]                   options(future.plan = NULL)
[18:41:33.032]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.032]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.032]                 }
[18:41:33.032]                 ...future.workdir <- getwd()
[18:41:33.032]             }
[18:41:33.032]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.032]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.032]         }
[18:41:33.032]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.032]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:33.032]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.032]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.032]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.032]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.032]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.032]             base::names(...future.oldOptions))
[18:41:33.032]     }
[18:41:33.032]     if (FALSE) {
[18:41:33.032]     }
[18:41:33.032]     else {
[18:41:33.032]         if (TRUE) {
[18:41:33.032]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.032]                 open = "w")
[18:41:33.032]         }
[18:41:33.032]         else {
[18:41:33.032]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.032]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.032]         }
[18:41:33.032]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.032]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.032]             base::sink(type = "output", split = FALSE)
[18:41:33.032]             base::close(...future.stdout)
[18:41:33.032]         }, add = TRUE)
[18:41:33.032]     }
[18:41:33.032]     ...future.frame <- base::sys.nframe()
[18:41:33.032]     ...future.conditions <- base::list()
[18:41:33.032]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.032]     if (FALSE) {
[18:41:33.032]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.032]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.032]     }
[18:41:33.032]     ...future.result <- base::tryCatch({
[18:41:33.032]         base::withCallingHandlers({
[18:41:33.032]             ...future.value <- base::withVisible(base::local({
[18:41:33.032]                 ...future.makeSendCondition <- base::local({
[18:41:33.032]                   sendCondition <- NULL
[18:41:33.032]                   function(frame = 1L) {
[18:41:33.032]                     if (is.function(sendCondition)) 
[18:41:33.032]                       return(sendCondition)
[18:41:33.032]                     ns <- getNamespace("parallel")
[18:41:33.032]                     if (exists("sendData", mode = "function", 
[18:41:33.032]                       envir = ns)) {
[18:41:33.032]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.032]                         envir = ns)
[18:41:33.032]                       envir <- sys.frame(frame)
[18:41:33.032]                       master <- NULL
[18:41:33.032]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.032]                         !identical(envir, emptyenv())) {
[18:41:33.032]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.032]                           inherits = FALSE)) {
[18:41:33.032]                           master <- get("master", mode = "list", 
[18:41:33.032]                             envir = envir, inherits = FALSE)
[18:41:33.032]                           if (inherits(master, c("SOCKnode", 
[18:41:33.032]                             "SOCK0node"))) {
[18:41:33.032]                             sendCondition <<- function(cond) {
[18:41:33.032]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.032]                                 success = TRUE)
[18:41:33.032]                               parallel_sendData(master, data)
[18:41:33.032]                             }
[18:41:33.032]                             return(sendCondition)
[18:41:33.032]                           }
[18:41:33.032]                         }
[18:41:33.032]                         frame <- frame + 1L
[18:41:33.032]                         envir <- sys.frame(frame)
[18:41:33.032]                       }
[18:41:33.032]                     }
[18:41:33.032]                     sendCondition <<- function(cond) NULL
[18:41:33.032]                   }
[18:41:33.032]                 })
[18:41:33.032]                 withCallingHandlers({
[18:41:33.032]                   NA
[18:41:33.032]                 }, immediateCondition = function(cond) {
[18:41:33.032]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.032]                   sendCondition(cond)
[18:41:33.032]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.032]                   {
[18:41:33.032]                     inherits <- base::inherits
[18:41:33.032]                     invokeRestart <- base::invokeRestart
[18:41:33.032]                     is.null <- base::is.null
[18:41:33.032]                     muffled <- FALSE
[18:41:33.032]                     if (inherits(cond, "message")) {
[18:41:33.032]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.032]                       if (muffled) 
[18:41:33.032]                         invokeRestart("muffleMessage")
[18:41:33.032]                     }
[18:41:33.032]                     else if (inherits(cond, "warning")) {
[18:41:33.032]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.032]                       if (muffled) 
[18:41:33.032]                         invokeRestart("muffleWarning")
[18:41:33.032]                     }
[18:41:33.032]                     else if (inherits(cond, "condition")) {
[18:41:33.032]                       if (!is.null(pattern)) {
[18:41:33.032]                         computeRestarts <- base::computeRestarts
[18:41:33.032]                         grepl <- base::grepl
[18:41:33.032]                         restarts <- computeRestarts(cond)
[18:41:33.032]                         for (restart in restarts) {
[18:41:33.032]                           name <- restart$name
[18:41:33.032]                           if (is.null(name)) 
[18:41:33.032]                             next
[18:41:33.032]                           if (!grepl(pattern, name)) 
[18:41:33.032]                             next
[18:41:33.032]                           invokeRestart(restart)
[18:41:33.032]                           muffled <- TRUE
[18:41:33.032]                           break
[18:41:33.032]                         }
[18:41:33.032]                       }
[18:41:33.032]                     }
[18:41:33.032]                     invisible(muffled)
[18:41:33.032]                   }
[18:41:33.032]                   muffleCondition(cond)
[18:41:33.032]                 })
[18:41:33.032]             }))
[18:41:33.032]             future::FutureResult(value = ...future.value$value, 
[18:41:33.032]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.032]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.032]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.032]                     ...future.globalenv.names))
[18:41:33.032]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.032]         }, condition = base::local({
[18:41:33.032]             c <- base::c
[18:41:33.032]             inherits <- base::inherits
[18:41:33.032]             invokeRestart <- base::invokeRestart
[18:41:33.032]             length <- base::length
[18:41:33.032]             list <- base::list
[18:41:33.032]             seq.int <- base::seq.int
[18:41:33.032]             signalCondition <- base::signalCondition
[18:41:33.032]             sys.calls <- base::sys.calls
[18:41:33.032]             `[[` <- base::`[[`
[18:41:33.032]             `+` <- base::`+`
[18:41:33.032]             `<<-` <- base::`<<-`
[18:41:33.032]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.032]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.032]                   3L)]
[18:41:33.032]             }
[18:41:33.032]             function(cond) {
[18:41:33.032]                 is_error <- inherits(cond, "error")
[18:41:33.032]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.032]                   NULL)
[18:41:33.032]                 if (is_error) {
[18:41:33.032]                   sessionInformation <- function() {
[18:41:33.032]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.032]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.032]                       search = base::search(), system = base::Sys.info())
[18:41:33.032]                   }
[18:41:33.032]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.032]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.032]                     cond$call), session = sessionInformation(), 
[18:41:33.032]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.032]                   signalCondition(cond)
[18:41:33.032]                 }
[18:41:33.032]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.032]                 "immediateCondition"))) {
[18:41:33.032]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.032]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.032]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.032]                   if (TRUE && !signal) {
[18:41:33.032]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.032]                     {
[18:41:33.032]                       inherits <- base::inherits
[18:41:33.032]                       invokeRestart <- base::invokeRestart
[18:41:33.032]                       is.null <- base::is.null
[18:41:33.032]                       muffled <- FALSE
[18:41:33.032]                       if (inherits(cond, "message")) {
[18:41:33.032]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.032]                         if (muffled) 
[18:41:33.032]                           invokeRestart("muffleMessage")
[18:41:33.032]                       }
[18:41:33.032]                       else if (inherits(cond, "warning")) {
[18:41:33.032]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.032]                         if (muffled) 
[18:41:33.032]                           invokeRestart("muffleWarning")
[18:41:33.032]                       }
[18:41:33.032]                       else if (inherits(cond, "condition")) {
[18:41:33.032]                         if (!is.null(pattern)) {
[18:41:33.032]                           computeRestarts <- base::computeRestarts
[18:41:33.032]                           grepl <- base::grepl
[18:41:33.032]                           restarts <- computeRestarts(cond)
[18:41:33.032]                           for (restart in restarts) {
[18:41:33.032]                             name <- restart$name
[18:41:33.032]                             if (is.null(name)) 
[18:41:33.032]                               next
[18:41:33.032]                             if (!grepl(pattern, name)) 
[18:41:33.032]                               next
[18:41:33.032]                             invokeRestart(restart)
[18:41:33.032]                             muffled <- TRUE
[18:41:33.032]                             break
[18:41:33.032]                           }
[18:41:33.032]                         }
[18:41:33.032]                       }
[18:41:33.032]                       invisible(muffled)
[18:41:33.032]                     }
[18:41:33.032]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.032]                   }
[18:41:33.032]                 }
[18:41:33.032]                 else {
[18:41:33.032]                   if (TRUE) {
[18:41:33.032]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.032]                     {
[18:41:33.032]                       inherits <- base::inherits
[18:41:33.032]                       invokeRestart <- base::invokeRestart
[18:41:33.032]                       is.null <- base::is.null
[18:41:33.032]                       muffled <- FALSE
[18:41:33.032]                       if (inherits(cond, "message")) {
[18:41:33.032]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.032]                         if (muffled) 
[18:41:33.032]                           invokeRestart("muffleMessage")
[18:41:33.032]                       }
[18:41:33.032]                       else if (inherits(cond, "warning")) {
[18:41:33.032]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.032]                         if (muffled) 
[18:41:33.032]                           invokeRestart("muffleWarning")
[18:41:33.032]                       }
[18:41:33.032]                       else if (inherits(cond, "condition")) {
[18:41:33.032]                         if (!is.null(pattern)) {
[18:41:33.032]                           computeRestarts <- base::computeRestarts
[18:41:33.032]                           grepl <- base::grepl
[18:41:33.032]                           restarts <- computeRestarts(cond)
[18:41:33.032]                           for (restart in restarts) {
[18:41:33.032]                             name <- restart$name
[18:41:33.032]                             if (is.null(name)) 
[18:41:33.032]                               next
[18:41:33.032]                             if (!grepl(pattern, name)) 
[18:41:33.032]                               next
[18:41:33.032]                             invokeRestart(restart)
[18:41:33.032]                             muffled <- TRUE
[18:41:33.032]                             break
[18:41:33.032]                           }
[18:41:33.032]                         }
[18:41:33.032]                       }
[18:41:33.032]                       invisible(muffled)
[18:41:33.032]                     }
[18:41:33.032]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.032]                   }
[18:41:33.032]                 }
[18:41:33.032]             }
[18:41:33.032]         }))
[18:41:33.032]     }, error = function(ex) {
[18:41:33.032]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.032]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.032]                 ...future.rng), started = ...future.startTime, 
[18:41:33.032]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.032]             version = "1.8"), class = "FutureResult")
[18:41:33.032]     }, finally = {
[18:41:33.032]         if (!identical(...future.workdir, getwd())) 
[18:41:33.032]             setwd(...future.workdir)
[18:41:33.032]         {
[18:41:33.032]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.032]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.032]             }
[18:41:33.032]             base::options(...future.oldOptions)
[18:41:33.032]             if (.Platform$OS.type == "windows") {
[18:41:33.032]                 old_names <- names(...future.oldEnvVars)
[18:41:33.032]                 envs <- base::Sys.getenv()
[18:41:33.032]                 names <- names(envs)
[18:41:33.032]                 common <- intersect(names, old_names)
[18:41:33.032]                 added <- setdiff(names, old_names)
[18:41:33.032]                 removed <- setdiff(old_names, names)
[18:41:33.032]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.032]                   envs[common]]
[18:41:33.032]                 NAMES <- toupper(changed)
[18:41:33.032]                 args <- list()
[18:41:33.032]                 for (kk in seq_along(NAMES)) {
[18:41:33.032]                   name <- changed[[kk]]
[18:41:33.032]                   NAME <- NAMES[[kk]]
[18:41:33.032]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.032]                     next
[18:41:33.032]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.032]                 }
[18:41:33.032]                 NAMES <- toupper(added)
[18:41:33.032]                 for (kk in seq_along(NAMES)) {
[18:41:33.032]                   name <- added[[kk]]
[18:41:33.032]                   NAME <- NAMES[[kk]]
[18:41:33.032]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.032]                     next
[18:41:33.032]                   args[[name]] <- ""
[18:41:33.032]                 }
[18:41:33.032]                 NAMES <- toupper(removed)
[18:41:33.032]                 for (kk in seq_along(NAMES)) {
[18:41:33.032]                   name <- removed[[kk]]
[18:41:33.032]                   NAME <- NAMES[[kk]]
[18:41:33.032]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.032]                     next
[18:41:33.032]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.032]                 }
[18:41:33.032]                 if (length(args) > 0) 
[18:41:33.032]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.032]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.032]             }
[18:41:33.032]             else {
[18:41:33.032]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.032]             }
[18:41:33.032]             {
[18:41:33.032]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.032]                   0L) {
[18:41:33.032]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.032]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.032]                   base::options(opts)
[18:41:33.032]                 }
[18:41:33.032]                 {
[18:41:33.032]                   {
[18:41:33.032]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.032]                     NULL
[18:41:33.032]                   }
[18:41:33.032]                   options(future.plan = NULL)
[18:41:33.032]                   if (is.na(NA_character_)) 
[18:41:33.032]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.032]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.032]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.032]                     .init = FALSE)
[18:41:33.032]                 }
[18:41:33.032]             }
[18:41:33.032]         }
[18:41:33.032]     })
[18:41:33.032]     if (TRUE) {
[18:41:33.032]         base::sink(type = "output", split = FALSE)
[18:41:33.032]         if (TRUE) {
[18:41:33.032]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.032]         }
[18:41:33.032]         else {
[18:41:33.032]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.032]         }
[18:41:33.032]         base::close(...future.stdout)
[18:41:33.032]         ...future.stdout <- NULL
[18:41:33.032]     }
[18:41:33.032]     ...future.result$conditions <- ...future.conditions
[18:41:33.032]     ...future.result$finished <- base::Sys.time()
[18:41:33.032]     ...future.result
[18:41:33.032] }
[18:41:33.124] MultisessionFuture started
[18:41:33.124] result() for ClusterFuture ...
[18:41:33.125] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.125] - Validating connection of MultisessionFuture
[18:41:33.203] - received message: FutureResult
[18:41:33.204] - Received FutureResult
[18:41:33.210] - Erased future from FutureRegistry
[18:41:33.210] result() for ClusterFuture ...
[18:41:33.210] - result already collected: FutureResult
[18:41:33.211] result() for ClusterFuture ... done
[18:41:33.211] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.211] result() for ClusterFuture ... done
[18:41:33.212] result() for ClusterFuture ...
[18:41:33.212] - result already collected: FutureResult
[18:41:33.212] result() for ClusterFuture ... done
[18:41:33.213] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[18:41:33.217] plan(): nbrOfWorkers() = 2
- From example(mapply) ...
[18:41:33.218] future_mapply() ...
[18:41:33.222] Number of chunks: 2
[18:41:33.223] getGlobalsAndPackagesXApply() ...
[18:41:33.223]  - future.globals: TRUE
[18:41:33.223] getGlobalsAndPackages() ...
[18:41:33.223] Searching for globals...
[18:41:33.225] - globals found: [1] 'FUN'
[18:41:33.225] Searching for globals ... DONE
[18:41:33.226] Resolving globals: FALSE
[18:41:33.226] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:33.227] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:33.227] - globals: [1] 'FUN'
[18:41:33.228] 
[18:41:33.228] getGlobalsAndPackages() ... DONE
[18:41:33.228]  - globals found/used: [n=1] 'FUN'
[18:41:33.229]  - needed namespaces: [n=0] 
[18:41:33.229] Finding globals ... DONE
[18:41:33.230] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:33.230] List of 2
[18:41:33.230]  $ ...future.FUN:function (x, ...)  
[18:41:33.230]  $ MoreArgs     : NULL
[18:41:33.230]  - attr(*, "where")=List of 2
[18:41:33.230]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:33.230]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:33.230]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:33.230]  - attr(*, "resolved")= logi FALSE
[18:41:33.230]  - attr(*, "total_size")= num NA
[18:41:33.236] Packages to be attached in all futures: [n=0] 
[18:41:33.237] getGlobalsAndPackagesXApply() ... DONE
[18:41:33.237] Number of futures (= number of chunks): 2
[18:41:33.237] Launching 2 futures (chunks) ...
[18:41:33.238] Chunk #1 of 2 ...
[18:41:33.238]  - Finding globals in '...' for chunk #1 ...
[18:41:33.239] getGlobalsAndPackages() ...
[18:41:33.239] Searching for globals...
[18:41:33.240] 
[18:41:33.240] Searching for globals ... DONE
[18:41:33.240] - globals: [0] <none>
[18:41:33.241] getGlobalsAndPackages() ... DONE
[18:41:33.241]    + additional globals found: [n=0] 
[18:41:33.241]    + additional namespaces needed: [n=0] 
[18:41:33.242]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:33.242]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.242]  - seeds: <none>
[18:41:33.242]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.243] getGlobalsAndPackages() ...
[18:41:33.243] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.243] Resolving globals: FALSE
[18:41:33.244] The total size of the 5 globals is 210 bytes (210 bytes)
[18:41:33.246] 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 210 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (95 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.246] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.246] 
[18:41:33.247] getGlobalsAndPackages() ... DONE
[18:41:33.247] run() for 'Future' ...
[18:41:33.248] - state: 'created'
[18:41:33.248] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.275] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.276] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.276]   - Field: 'node'
[18:41:33.277]   - Field: 'label'
[18:41:33.277]   - Field: 'local'
[18:41:33.277]   - Field: 'owner'
[18:41:33.278]   - Field: 'envir'
[18:41:33.278]   - Field: 'workers'
[18:41:33.278]   - Field: 'packages'
[18:41:33.279]   - Field: 'gc'
[18:41:33.279]   - Field: 'conditions'
[18:41:33.279]   - Field: 'persistent'
[18:41:33.280]   - Field: 'expr'
[18:41:33.280]   - Field: 'uuid'
[18:41:33.280]   - Field: 'seed'
[18:41:33.281]   - Field: 'version'
[18:41:33.281]   - Field: 'result'
[18:41:33.281]   - Field: 'asynchronous'
[18:41:33.282]   - Field: 'calls'
[18:41:33.282]   - Field: 'globals'
[18:41:33.282]   - Field: 'stdout'
[18:41:33.283]   - Field: 'earlySignal'
[18:41:33.283]   - Field: 'lazy'
[18:41:33.283]   - Field: 'state'
[18:41:33.284] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.284] - Launch lazy future ...
[18:41:33.285] Packages needed by the future expression (n = 0): <none>
[18:41:33.285] Packages needed by future strategies (n = 0): <none>
[18:41:33.286] {
[18:41:33.286]     {
[18:41:33.286]         {
[18:41:33.286]             ...future.startTime <- base::Sys.time()
[18:41:33.286]             {
[18:41:33.286]                 {
[18:41:33.286]                   {
[18:41:33.286]                     {
[18:41:33.286]                       base::local({
[18:41:33.286]                         has_future <- base::requireNamespace("future", 
[18:41:33.286]                           quietly = TRUE)
[18:41:33.286]                         if (has_future) {
[18:41:33.286]                           ns <- base::getNamespace("future")
[18:41:33.286]                           version <- ns[[".package"]][["version"]]
[18:41:33.286]                           if (is.null(version)) 
[18:41:33.286]                             version <- utils::packageVersion("future")
[18:41:33.286]                         }
[18:41:33.286]                         else {
[18:41:33.286]                           version <- NULL
[18:41:33.286]                         }
[18:41:33.286]                         if (!has_future || version < "1.8.0") {
[18:41:33.286]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.286]                             "", base::R.version$version.string), 
[18:41:33.286]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.286]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.286]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.286]                               "release", "version")], collapse = " "), 
[18:41:33.286]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.286]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.286]                             info)
[18:41:33.286]                           info <- base::paste(info, collapse = "; ")
[18:41:33.286]                           if (!has_future) {
[18:41:33.286]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.286]                               info)
[18:41:33.286]                           }
[18:41:33.286]                           else {
[18:41:33.286]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.286]                               info, version)
[18:41:33.286]                           }
[18:41:33.286]                           base::stop(msg)
[18:41:33.286]                         }
[18:41:33.286]                       })
[18:41:33.286]                     }
[18:41:33.286]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.286]                     base::options(mc.cores = 1L)
[18:41:33.286]                   }
[18:41:33.286]                   ...future.strategy.old <- future::plan("list")
[18:41:33.286]                   options(future.plan = NULL)
[18:41:33.286]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.286]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.286]                 }
[18:41:33.286]                 ...future.workdir <- getwd()
[18:41:33.286]             }
[18:41:33.286]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.286]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.286]         }
[18:41:33.286]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.286]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.286]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.286]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.286]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.286]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.286]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.286]             base::names(...future.oldOptions))
[18:41:33.286]     }
[18:41:33.286]     if (FALSE) {
[18:41:33.286]     }
[18:41:33.286]     else {
[18:41:33.286]         if (TRUE) {
[18:41:33.286]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.286]                 open = "w")
[18:41:33.286]         }
[18:41:33.286]         else {
[18:41:33.286]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.286]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.286]         }
[18:41:33.286]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.286]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.286]             base::sink(type = "output", split = FALSE)
[18:41:33.286]             base::close(...future.stdout)
[18:41:33.286]         }, add = TRUE)
[18:41:33.286]     }
[18:41:33.286]     ...future.frame <- base::sys.nframe()
[18:41:33.286]     ...future.conditions <- base::list()
[18:41:33.286]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.286]     if (FALSE) {
[18:41:33.286]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.286]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.286]     }
[18:41:33.286]     ...future.result <- base::tryCatch({
[18:41:33.286]         base::withCallingHandlers({
[18:41:33.286]             ...future.value <- base::withVisible(base::local({
[18:41:33.286]                 ...future.makeSendCondition <- base::local({
[18:41:33.286]                   sendCondition <- NULL
[18:41:33.286]                   function(frame = 1L) {
[18:41:33.286]                     if (is.function(sendCondition)) 
[18:41:33.286]                       return(sendCondition)
[18:41:33.286]                     ns <- getNamespace("parallel")
[18:41:33.286]                     if (exists("sendData", mode = "function", 
[18:41:33.286]                       envir = ns)) {
[18:41:33.286]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.286]                         envir = ns)
[18:41:33.286]                       envir <- sys.frame(frame)
[18:41:33.286]                       master <- NULL
[18:41:33.286]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.286]                         !identical(envir, emptyenv())) {
[18:41:33.286]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.286]                           inherits = FALSE)) {
[18:41:33.286]                           master <- get("master", mode = "list", 
[18:41:33.286]                             envir = envir, inherits = FALSE)
[18:41:33.286]                           if (inherits(master, c("SOCKnode", 
[18:41:33.286]                             "SOCK0node"))) {
[18:41:33.286]                             sendCondition <<- function(cond) {
[18:41:33.286]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.286]                                 success = TRUE)
[18:41:33.286]                               parallel_sendData(master, data)
[18:41:33.286]                             }
[18:41:33.286]                             return(sendCondition)
[18:41:33.286]                           }
[18:41:33.286]                         }
[18:41:33.286]                         frame <- frame + 1L
[18:41:33.286]                         envir <- sys.frame(frame)
[18:41:33.286]                       }
[18:41:33.286]                     }
[18:41:33.286]                     sendCondition <<- function(cond) NULL
[18:41:33.286]                   }
[18:41:33.286]                 })
[18:41:33.286]                 withCallingHandlers({
[18:41:33.286]                   {
[18:41:33.286]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.286]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.286]                       ...future.globals.maxSize)) {
[18:41:33.286]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.286]                       on.exit(options(oopts), add = TRUE)
[18:41:33.286]                     }
[18:41:33.286]                     {
[18:41:33.286]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.286]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.286]                         USE.NAMES = FALSE)
[18:41:33.286]                       do.call(mapply, args = args)
[18:41:33.286]                     }
[18:41:33.286]                   }
[18:41:33.286]                 }, immediateCondition = function(cond) {
[18:41:33.286]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.286]                   sendCondition(cond)
[18:41:33.286]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.286]                   {
[18:41:33.286]                     inherits <- base::inherits
[18:41:33.286]                     invokeRestart <- base::invokeRestart
[18:41:33.286]                     is.null <- base::is.null
[18:41:33.286]                     muffled <- FALSE
[18:41:33.286]                     if (inherits(cond, "message")) {
[18:41:33.286]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.286]                       if (muffled) 
[18:41:33.286]                         invokeRestart("muffleMessage")
[18:41:33.286]                     }
[18:41:33.286]                     else if (inherits(cond, "warning")) {
[18:41:33.286]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.286]                       if (muffled) 
[18:41:33.286]                         invokeRestart("muffleWarning")
[18:41:33.286]                     }
[18:41:33.286]                     else if (inherits(cond, "condition")) {
[18:41:33.286]                       if (!is.null(pattern)) {
[18:41:33.286]                         computeRestarts <- base::computeRestarts
[18:41:33.286]                         grepl <- base::grepl
[18:41:33.286]                         restarts <- computeRestarts(cond)
[18:41:33.286]                         for (restart in restarts) {
[18:41:33.286]                           name <- restart$name
[18:41:33.286]                           if (is.null(name)) 
[18:41:33.286]                             next
[18:41:33.286]                           if (!grepl(pattern, name)) 
[18:41:33.286]                             next
[18:41:33.286]                           invokeRestart(restart)
[18:41:33.286]                           muffled <- TRUE
[18:41:33.286]                           break
[18:41:33.286]                         }
[18:41:33.286]                       }
[18:41:33.286]                     }
[18:41:33.286]                     invisible(muffled)
[18:41:33.286]                   }
[18:41:33.286]                   muffleCondition(cond)
[18:41:33.286]                 })
[18:41:33.286]             }))
[18:41:33.286]             future::FutureResult(value = ...future.value$value, 
[18:41:33.286]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.286]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.286]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.286]                     ...future.globalenv.names))
[18:41:33.286]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.286]         }, condition = base::local({
[18:41:33.286]             c <- base::c
[18:41:33.286]             inherits <- base::inherits
[18:41:33.286]             invokeRestart <- base::invokeRestart
[18:41:33.286]             length <- base::length
[18:41:33.286]             list <- base::list
[18:41:33.286]             seq.int <- base::seq.int
[18:41:33.286]             signalCondition <- base::signalCondition
[18:41:33.286]             sys.calls <- base::sys.calls
[18:41:33.286]             `[[` <- base::`[[`
[18:41:33.286]             `+` <- base::`+`
[18:41:33.286]             `<<-` <- base::`<<-`
[18:41:33.286]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.286]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.286]                   3L)]
[18:41:33.286]             }
[18:41:33.286]             function(cond) {
[18:41:33.286]                 is_error <- inherits(cond, "error")
[18:41:33.286]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.286]                   NULL)
[18:41:33.286]                 if (is_error) {
[18:41:33.286]                   sessionInformation <- function() {
[18:41:33.286]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.286]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.286]                       search = base::search(), system = base::Sys.info())
[18:41:33.286]                   }
[18:41:33.286]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.286]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.286]                     cond$call), session = sessionInformation(), 
[18:41:33.286]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.286]                   signalCondition(cond)
[18:41:33.286]                 }
[18:41:33.286]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.286]                 "immediateCondition"))) {
[18:41:33.286]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.286]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.286]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.286]                   if (TRUE && !signal) {
[18:41:33.286]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.286]                     {
[18:41:33.286]                       inherits <- base::inherits
[18:41:33.286]                       invokeRestart <- base::invokeRestart
[18:41:33.286]                       is.null <- base::is.null
[18:41:33.286]                       muffled <- FALSE
[18:41:33.286]                       if (inherits(cond, "message")) {
[18:41:33.286]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.286]                         if (muffled) 
[18:41:33.286]                           invokeRestart("muffleMessage")
[18:41:33.286]                       }
[18:41:33.286]                       else if (inherits(cond, "warning")) {
[18:41:33.286]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.286]                         if (muffled) 
[18:41:33.286]                           invokeRestart("muffleWarning")
[18:41:33.286]                       }
[18:41:33.286]                       else if (inherits(cond, "condition")) {
[18:41:33.286]                         if (!is.null(pattern)) {
[18:41:33.286]                           computeRestarts <- base::computeRestarts
[18:41:33.286]                           grepl <- base::grepl
[18:41:33.286]                           restarts <- computeRestarts(cond)
[18:41:33.286]                           for (restart in restarts) {
[18:41:33.286]                             name <- restart$name
[18:41:33.286]                             if (is.null(name)) 
[18:41:33.286]                               next
[18:41:33.286]                             if (!grepl(pattern, name)) 
[18:41:33.286]                               next
[18:41:33.286]                             invokeRestart(restart)
[18:41:33.286]                             muffled <- TRUE
[18:41:33.286]                             break
[18:41:33.286]                           }
[18:41:33.286]                         }
[18:41:33.286]                       }
[18:41:33.286]                       invisible(muffled)
[18:41:33.286]                     }
[18:41:33.286]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.286]                   }
[18:41:33.286]                 }
[18:41:33.286]                 else {
[18:41:33.286]                   if (TRUE) {
[18:41:33.286]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.286]                     {
[18:41:33.286]                       inherits <- base::inherits
[18:41:33.286]                       invokeRestart <- base::invokeRestart
[18:41:33.286]                       is.null <- base::is.null
[18:41:33.286]                       muffled <- FALSE
[18:41:33.286]                       if (inherits(cond, "message")) {
[18:41:33.286]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.286]                         if (muffled) 
[18:41:33.286]                           invokeRestart("muffleMessage")
[18:41:33.286]                       }
[18:41:33.286]                       else if (inherits(cond, "warning")) {
[18:41:33.286]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.286]                         if (muffled) 
[18:41:33.286]                           invokeRestart("muffleWarning")
[18:41:33.286]                       }
[18:41:33.286]                       else if (inherits(cond, "condition")) {
[18:41:33.286]                         if (!is.null(pattern)) {
[18:41:33.286]                           computeRestarts <- base::computeRestarts
[18:41:33.286]                           grepl <- base::grepl
[18:41:33.286]                           restarts <- computeRestarts(cond)
[18:41:33.286]                           for (restart in restarts) {
[18:41:33.286]                             name <- restart$name
[18:41:33.286]                             if (is.null(name)) 
[18:41:33.286]                               next
[18:41:33.286]                             if (!grepl(pattern, name)) 
[18:41:33.286]                               next
[18:41:33.286]                             invokeRestart(restart)
[18:41:33.286]                             muffled <- TRUE
[18:41:33.286]                             break
[18:41:33.286]                           }
[18:41:33.286]                         }
[18:41:33.286]                       }
[18:41:33.286]                       invisible(muffled)
[18:41:33.286]                     }
[18:41:33.286]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.286]                   }
[18:41:33.286]                 }
[18:41:33.286]             }
[18:41:33.286]         }))
[18:41:33.286]     }, error = function(ex) {
[18:41:33.286]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.286]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.286]                 ...future.rng), started = ...future.startTime, 
[18:41:33.286]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.286]             version = "1.8"), class = "FutureResult")
[18:41:33.286]     }, finally = {
[18:41:33.286]         if (!identical(...future.workdir, getwd())) 
[18:41:33.286]             setwd(...future.workdir)
[18:41:33.286]         {
[18:41:33.286]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.286]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.286]             }
[18:41:33.286]             base::options(...future.oldOptions)
[18:41:33.286]             if (.Platform$OS.type == "windows") {
[18:41:33.286]                 old_names <- names(...future.oldEnvVars)
[18:41:33.286]                 envs <- base::Sys.getenv()
[18:41:33.286]                 names <- names(envs)
[18:41:33.286]                 common <- intersect(names, old_names)
[18:41:33.286]                 added <- setdiff(names, old_names)
[18:41:33.286]                 removed <- setdiff(old_names, names)
[18:41:33.286]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.286]                   envs[common]]
[18:41:33.286]                 NAMES <- toupper(changed)
[18:41:33.286]                 args <- list()
[18:41:33.286]                 for (kk in seq_along(NAMES)) {
[18:41:33.286]                   name <- changed[[kk]]
[18:41:33.286]                   NAME <- NAMES[[kk]]
[18:41:33.286]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.286]                     next
[18:41:33.286]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.286]                 }
[18:41:33.286]                 NAMES <- toupper(added)
[18:41:33.286]                 for (kk in seq_along(NAMES)) {
[18:41:33.286]                   name <- added[[kk]]
[18:41:33.286]                   NAME <- NAMES[[kk]]
[18:41:33.286]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.286]                     next
[18:41:33.286]                   args[[name]] <- ""
[18:41:33.286]                 }
[18:41:33.286]                 NAMES <- toupper(removed)
[18:41:33.286]                 for (kk in seq_along(NAMES)) {
[18:41:33.286]                   name <- removed[[kk]]
[18:41:33.286]                   NAME <- NAMES[[kk]]
[18:41:33.286]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.286]                     next
[18:41:33.286]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.286]                 }
[18:41:33.286]                 if (length(args) > 0) 
[18:41:33.286]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.286]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.286]             }
[18:41:33.286]             else {
[18:41:33.286]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.286]             }
[18:41:33.286]             {
[18:41:33.286]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.286]                   0L) {
[18:41:33.286]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.286]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.286]                   base::options(opts)
[18:41:33.286]                 }
[18:41:33.286]                 {
[18:41:33.286]                   {
[18:41:33.286]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.286]                     NULL
[18:41:33.286]                   }
[18:41:33.286]                   options(future.plan = NULL)
[18:41:33.286]                   if (is.na(NA_character_)) 
[18:41:33.286]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.286]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.286]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.286]                     .init = FALSE)
[18:41:33.286]                 }
[18:41:33.286]             }
[18:41:33.286]         }
[18:41:33.286]     })
[18:41:33.286]     if (TRUE) {
[18:41:33.286]         base::sink(type = "output", split = FALSE)
[18:41:33.286]         if (TRUE) {
[18:41:33.286]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.286]         }
[18:41:33.286]         else {
[18:41:33.286]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.286]         }
[18:41:33.286]         base::close(...future.stdout)
[18:41:33.286]         ...future.stdout <- NULL
[18:41:33.286]     }
[18:41:33.286]     ...future.result$conditions <- ...future.conditions
[18:41:33.286]     ...future.result$finished <- base::Sys.time()
[18:41:33.286]     ...future.result
[18:41:33.286] }
[18:41:33.296] Exporting 5 global objects (669 bytes) to cluster node #1 ...
[18:41:33.296] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.297] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.297] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:33.298] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:33.298] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ...
[18:41:33.299] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ... DONE
[18:41:33.299] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.300] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.301] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.301] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.301] Exporting 5 global objects (669 bytes) to cluster node #1 ... DONE
[18:41:33.303] MultisessionFuture started
[18:41:33.303] - Launch lazy future ... done
[18:41:33.303] run() for 'MultisessionFuture' ... done
[18:41:33.304] Created future:
[18:41:33.326] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.327] - Validating connection of MultisessionFuture
[18:41:33.327] - received message: FutureResult
[18:41:33.327] - Received FutureResult
[18:41:33.328] - Erased future from FutureRegistry
[18:41:33.328] result() for ClusterFuture ...
[18:41:33.328] - result already collected: FutureResult
[18:41:33.329] result() for ClusterFuture ... done
[18:41:33.329] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.304] MultisessionFuture:
[18:41:33.304] Label: 'future_mapply-1'
[18:41:33.304] Expression:
[18:41:33.304] {
[18:41:33.304]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.304]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.304]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.304]         on.exit(options(oopts), add = TRUE)
[18:41:33.304]     }
[18:41:33.304]     {
[18:41:33.304]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.304]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.304]         do.call(mapply, args = args)
[18:41:33.304]     }
[18:41:33.304] }
[18:41:33.304] Lazy evaluation: FALSE
[18:41:33.304] Asynchronous evaluation: TRUE
[18:41:33.304] Local evaluation: TRUE
[18:41:33.304] Environment: R_GlobalEnv
[18:41:33.304] Capture standard output: TRUE
[18:41:33.304] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.304] Globals: 5 objects totaling 210 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 95 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.304] Packages: <none>
[18:41:33.304] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.304] Resolved: TRUE
[18:41:33.304] Value: <not collected>
[18:41:33.304] Conditions captured: <none>
[18:41:33.304] Early signaling: FALSE
[18:41:33.304] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.304] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.330] Chunk #1 of 2 ... DONE
[18:41:33.330] Chunk #2 of 2 ...
[18:41:33.331]  - Finding globals in '...' for chunk #2 ...
[18:41:33.331] getGlobalsAndPackages() ...
[18:41:33.331] Searching for globals...
[18:41:33.332] 
[18:41:33.332] Searching for globals ... DONE
[18:41:33.333] - globals: [0] <none>
[18:41:33.333] getGlobalsAndPackages() ... DONE
[18:41:33.333]    + additional globals found: [n=0] 
[18:41:33.334]    + additional namespaces needed: [n=0] 
[18:41:33.334]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:33.334]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.335]  - seeds: <none>
[18:41:33.335]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.335] getGlobalsAndPackages() ...
[18:41:33.335] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.336] Resolving globals: FALSE
[18:41:33.337] The total size of the 5 globals is 210 bytes (210 bytes)
[18:41:33.338] 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 210 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (95 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.338] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.339] 
[18:41:33.339] getGlobalsAndPackages() ... DONE
[18:41:33.340] run() for 'Future' ...
[18:41:33.340] - state: 'created'
[18:41:33.341] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.368] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.368] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.368]   - Field: 'node'
[18:41:33.369]   - Field: 'label'
[18:41:33.369]   - Field: 'local'
[18:41:33.369]   - Field: 'owner'
[18:41:33.370]   - Field: 'envir'
[18:41:33.370]   - Field: 'workers'
[18:41:33.370]   - Field: 'packages'
[18:41:33.371]   - Field: 'gc'
[18:41:33.371]   - Field: 'conditions'
[18:41:33.371]   - Field: 'persistent'
[18:41:33.372]   - Field: 'expr'
[18:41:33.372]   - Field: 'uuid'
[18:41:33.372]   - Field: 'seed'
[18:41:33.373]   - Field: 'version'
[18:41:33.373]   - Field: 'result'
[18:41:33.373]   - Field: 'asynchronous'
[18:41:33.374]   - Field: 'calls'
[18:41:33.374]   - Field: 'globals'
[18:41:33.374]   - Field: 'stdout'
[18:41:33.375]   - Field: 'earlySignal'
[18:41:33.375]   - Field: 'lazy'
[18:41:33.375]   - Field: 'state'
[18:41:33.376] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.376] - Launch lazy future ...
[18:41:33.377] Packages needed by the future expression (n = 0): <none>
[18:41:33.377] Packages needed by future strategies (n = 0): <none>
[18:41:33.378] {
[18:41:33.378]     {
[18:41:33.378]         {
[18:41:33.378]             ...future.startTime <- base::Sys.time()
[18:41:33.378]             {
[18:41:33.378]                 {
[18:41:33.378]                   {
[18:41:33.378]                     {
[18:41:33.378]                       base::local({
[18:41:33.378]                         has_future <- base::requireNamespace("future", 
[18:41:33.378]                           quietly = TRUE)
[18:41:33.378]                         if (has_future) {
[18:41:33.378]                           ns <- base::getNamespace("future")
[18:41:33.378]                           version <- ns[[".package"]][["version"]]
[18:41:33.378]                           if (is.null(version)) 
[18:41:33.378]                             version <- utils::packageVersion("future")
[18:41:33.378]                         }
[18:41:33.378]                         else {
[18:41:33.378]                           version <- NULL
[18:41:33.378]                         }
[18:41:33.378]                         if (!has_future || version < "1.8.0") {
[18:41:33.378]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.378]                             "", base::R.version$version.string), 
[18:41:33.378]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.378]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.378]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.378]                               "release", "version")], collapse = " "), 
[18:41:33.378]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.378]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.378]                             info)
[18:41:33.378]                           info <- base::paste(info, collapse = "; ")
[18:41:33.378]                           if (!has_future) {
[18:41:33.378]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.378]                               info)
[18:41:33.378]                           }
[18:41:33.378]                           else {
[18:41:33.378]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.378]                               info, version)
[18:41:33.378]                           }
[18:41:33.378]                           base::stop(msg)
[18:41:33.378]                         }
[18:41:33.378]                       })
[18:41:33.378]                     }
[18:41:33.378]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.378]                     base::options(mc.cores = 1L)
[18:41:33.378]                   }
[18:41:33.378]                   ...future.strategy.old <- future::plan("list")
[18:41:33.378]                   options(future.plan = NULL)
[18:41:33.378]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.378]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.378]                 }
[18:41:33.378]                 ...future.workdir <- getwd()
[18:41:33.378]             }
[18:41:33.378]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.378]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.378]         }
[18:41:33.378]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.378]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.378]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.378]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.378]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.378]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.378]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.378]             base::names(...future.oldOptions))
[18:41:33.378]     }
[18:41:33.378]     if (FALSE) {
[18:41:33.378]     }
[18:41:33.378]     else {
[18:41:33.378]         if (TRUE) {
[18:41:33.378]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.378]                 open = "w")
[18:41:33.378]         }
[18:41:33.378]         else {
[18:41:33.378]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.378]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.378]         }
[18:41:33.378]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.378]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.378]             base::sink(type = "output", split = FALSE)
[18:41:33.378]             base::close(...future.stdout)
[18:41:33.378]         }, add = TRUE)
[18:41:33.378]     }
[18:41:33.378]     ...future.frame <- base::sys.nframe()
[18:41:33.378]     ...future.conditions <- base::list()
[18:41:33.378]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.378]     if (FALSE) {
[18:41:33.378]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.378]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.378]     }
[18:41:33.378]     ...future.result <- base::tryCatch({
[18:41:33.378]         base::withCallingHandlers({
[18:41:33.378]             ...future.value <- base::withVisible(base::local({
[18:41:33.378]                 ...future.makeSendCondition <- base::local({
[18:41:33.378]                   sendCondition <- NULL
[18:41:33.378]                   function(frame = 1L) {
[18:41:33.378]                     if (is.function(sendCondition)) 
[18:41:33.378]                       return(sendCondition)
[18:41:33.378]                     ns <- getNamespace("parallel")
[18:41:33.378]                     if (exists("sendData", mode = "function", 
[18:41:33.378]                       envir = ns)) {
[18:41:33.378]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.378]                         envir = ns)
[18:41:33.378]                       envir <- sys.frame(frame)
[18:41:33.378]                       master <- NULL
[18:41:33.378]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.378]                         !identical(envir, emptyenv())) {
[18:41:33.378]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.378]                           inherits = FALSE)) {
[18:41:33.378]                           master <- get("master", mode = "list", 
[18:41:33.378]                             envir = envir, inherits = FALSE)
[18:41:33.378]                           if (inherits(master, c("SOCKnode", 
[18:41:33.378]                             "SOCK0node"))) {
[18:41:33.378]                             sendCondition <<- function(cond) {
[18:41:33.378]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.378]                                 success = TRUE)
[18:41:33.378]                               parallel_sendData(master, data)
[18:41:33.378]                             }
[18:41:33.378]                             return(sendCondition)
[18:41:33.378]                           }
[18:41:33.378]                         }
[18:41:33.378]                         frame <- frame + 1L
[18:41:33.378]                         envir <- sys.frame(frame)
[18:41:33.378]                       }
[18:41:33.378]                     }
[18:41:33.378]                     sendCondition <<- function(cond) NULL
[18:41:33.378]                   }
[18:41:33.378]                 })
[18:41:33.378]                 withCallingHandlers({
[18:41:33.378]                   {
[18:41:33.378]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.378]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.378]                       ...future.globals.maxSize)) {
[18:41:33.378]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.378]                       on.exit(options(oopts), add = TRUE)
[18:41:33.378]                     }
[18:41:33.378]                     {
[18:41:33.378]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.378]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.378]                         USE.NAMES = FALSE)
[18:41:33.378]                       do.call(mapply, args = args)
[18:41:33.378]                     }
[18:41:33.378]                   }
[18:41:33.378]                 }, immediateCondition = function(cond) {
[18:41:33.378]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.378]                   sendCondition(cond)
[18:41:33.378]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.378]                   {
[18:41:33.378]                     inherits <- base::inherits
[18:41:33.378]                     invokeRestart <- base::invokeRestart
[18:41:33.378]                     is.null <- base::is.null
[18:41:33.378]                     muffled <- FALSE
[18:41:33.378]                     if (inherits(cond, "message")) {
[18:41:33.378]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.378]                       if (muffled) 
[18:41:33.378]                         invokeRestart("muffleMessage")
[18:41:33.378]                     }
[18:41:33.378]                     else if (inherits(cond, "warning")) {
[18:41:33.378]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.378]                       if (muffled) 
[18:41:33.378]                         invokeRestart("muffleWarning")
[18:41:33.378]                     }
[18:41:33.378]                     else if (inherits(cond, "condition")) {
[18:41:33.378]                       if (!is.null(pattern)) {
[18:41:33.378]                         computeRestarts <- base::computeRestarts
[18:41:33.378]                         grepl <- base::grepl
[18:41:33.378]                         restarts <- computeRestarts(cond)
[18:41:33.378]                         for (restart in restarts) {
[18:41:33.378]                           name <- restart$name
[18:41:33.378]                           if (is.null(name)) 
[18:41:33.378]                             next
[18:41:33.378]                           if (!grepl(pattern, name)) 
[18:41:33.378]                             next
[18:41:33.378]                           invokeRestart(restart)
[18:41:33.378]                           muffled <- TRUE
[18:41:33.378]                           break
[18:41:33.378]                         }
[18:41:33.378]                       }
[18:41:33.378]                     }
[18:41:33.378]                     invisible(muffled)
[18:41:33.378]                   }
[18:41:33.378]                   muffleCondition(cond)
[18:41:33.378]                 })
[18:41:33.378]             }))
[18:41:33.378]             future::FutureResult(value = ...future.value$value, 
[18:41:33.378]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.378]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.378]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.378]                     ...future.globalenv.names))
[18:41:33.378]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.378]         }, condition = base::local({
[18:41:33.378]             c <- base::c
[18:41:33.378]             inherits <- base::inherits
[18:41:33.378]             invokeRestart <- base::invokeRestart
[18:41:33.378]             length <- base::length
[18:41:33.378]             list <- base::list
[18:41:33.378]             seq.int <- base::seq.int
[18:41:33.378]             signalCondition <- base::signalCondition
[18:41:33.378]             sys.calls <- base::sys.calls
[18:41:33.378]             `[[` <- base::`[[`
[18:41:33.378]             `+` <- base::`+`
[18:41:33.378]             `<<-` <- base::`<<-`
[18:41:33.378]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.378]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.378]                   3L)]
[18:41:33.378]             }
[18:41:33.378]             function(cond) {
[18:41:33.378]                 is_error <- inherits(cond, "error")
[18:41:33.378]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.378]                   NULL)
[18:41:33.378]                 if (is_error) {
[18:41:33.378]                   sessionInformation <- function() {
[18:41:33.378]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.378]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.378]                       search = base::search(), system = base::Sys.info())
[18:41:33.378]                   }
[18:41:33.378]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.378]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.378]                     cond$call), session = sessionInformation(), 
[18:41:33.378]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.378]                   signalCondition(cond)
[18:41:33.378]                 }
[18:41:33.378]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.378]                 "immediateCondition"))) {
[18:41:33.378]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.378]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.378]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.378]                   if (TRUE && !signal) {
[18:41:33.378]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.378]                     {
[18:41:33.378]                       inherits <- base::inherits
[18:41:33.378]                       invokeRestart <- base::invokeRestart
[18:41:33.378]                       is.null <- base::is.null
[18:41:33.378]                       muffled <- FALSE
[18:41:33.378]                       if (inherits(cond, "message")) {
[18:41:33.378]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.378]                         if (muffled) 
[18:41:33.378]                           invokeRestart("muffleMessage")
[18:41:33.378]                       }
[18:41:33.378]                       else if (inherits(cond, "warning")) {
[18:41:33.378]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.378]                         if (muffled) 
[18:41:33.378]                           invokeRestart("muffleWarning")
[18:41:33.378]                       }
[18:41:33.378]                       else if (inherits(cond, "condition")) {
[18:41:33.378]                         if (!is.null(pattern)) {
[18:41:33.378]                           computeRestarts <- base::computeRestarts
[18:41:33.378]                           grepl <- base::grepl
[18:41:33.378]                           restarts <- computeRestarts(cond)
[18:41:33.378]                           for (restart in restarts) {
[18:41:33.378]                             name <- restart$name
[18:41:33.378]                             if (is.null(name)) 
[18:41:33.378]                               next
[18:41:33.378]                             if (!grepl(pattern, name)) 
[18:41:33.378]                               next
[18:41:33.378]                             invokeRestart(restart)
[18:41:33.378]                             muffled <- TRUE
[18:41:33.378]                             break
[18:41:33.378]                           }
[18:41:33.378]                         }
[18:41:33.378]                       }
[18:41:33.378]                       invisible(muffled)
[18:41:33.378]                     }
[18:41:33.378]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.378]                   }
[18:41:33.378]                 }
[18:41:33.378]                 else {
[18:41:33.378]                   if (TRUE) {
[18:41:33.378]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.378]                     {
[18:41:33.378]                       inherits <- base::inherits
[18:41:33.378]                       invokeRestart <- base::invokeRestart
[18:41:33.378]                       is.null <- base::is.null
[18:41:33.378]                       muffled <- FALSE
[18:41:33.378]                       if (inherits(cond, "message")) {
[18:41:33.378]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.378]                         if (muffled) 
[18:41:33.378]                           invokeRestart("muffleMessage")
[18:41:33.378]                       }
[18:41:33.378]                       else if (inherits(cond, "warning")) {
[18:41:33.378]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.378]                         if (muffled) 
[18:41:33.378]                           invokeRestart("muffleWarning")
[18:41:33.378]                       }
[18:41:33.378]                       else if (inherits(cond, "condition")) {
[18:41:33.378]                         if (!is.null(pattern)) {
[18:41:33.378]                           computeRestarts <- base::computeRestarts
[18:41:33.378]                           grepl <- base::grepl
[18:41:33.378]                           restarts <- computeRestarts(cond)
[18:41:33.378]                           for (restart in restarts) {
[18:41:33.378]                             name <- restart$name
[18:41:33.378]                             if (is.null(name)) 
[18:41:33.378]                               next
[18:41:33.378]                             if (!grepl(pattern, name)) 
[18:41:33.378]                               next
[18:41:33.378]                             invokeRestart(restart)
[18:41:33.378]                             muffled <- TRUE
[18:41:33.378]                             break
[18:41:33.378]                           }
[18:41:33.378]                         }
[18:41:33.378]                       }
[18:41:33.378]                       invisible(muffled)
[18:41:33.378]                     }
[18:41:33.378]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.378]                   }
[18:41:33.378]                 }
[18:41:33.378]             }
[18:41:33.378]         }))
[18:41:33.378]     }, error = function(ex) {
[18:41:33.378]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.378]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.378]                 ...future.rng), started = ...future.startTime, 
[18:41:33.378]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.378]             version = "1.8"), class = "FutureResult")
[18:41:33.378]     }, finally = {
[18:41:33.378]         if (!identical(...future.workdir, getwd())) 
[18:41:33.378]             setwd(...future.workdir)
[18:41:33.378]         {
[18:41:33.378]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.378]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.378]             }
[18:41:33.378]             base::options(...future.oldOptions)
[18:41:33.378]             if (.Platform$OS.type == "windows") {
[18:41:33.378]                 old_names <- names(...future.oldEnvVars)
[18:41:33.378]                 envs <- base::Sys.getenv()
[18:41:33.378]                 names <- names(envs)
[18:41:33.378]                 common <- intersect(names, old_names)
[18:41:33.378]                 added <- setdiff(names, old_names)
[18:41:33.378]                 removed <- setdiff(old_names, names)
[18:41:33.378]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.378]                   envs[common]]
[18:41:33.378]                 NAMES <- toupper(changed)
[18:41:33.378]                 args <- list()
[18:41:33.378]                 for (kk in seq_along(NAMES)) {
[18:41:33.378]                   name <- changed[[kk]]
[18:41:33.378]                   NAME <- NAMES[[kk]]
[18:41:33.378]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.378]                     next
[18:41:33.378]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.378]                 }
[18:41:33.378]                 NAMES <- toupper(added)
[18:41:33.378]                 for (kk in seq_along(NAMES)) {
[18:41:33.378]                   name <- added[[kk]]
[18:41:33.378]                   NAME <- NAMES[[kk]]
[18:41:33.378]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.378]                     next
[18:41:33.378]                   args[[name]] <- ""
[18:41:33.378]                 }
[18:41:33.378]                 NAMES <- toupper(removed)
[18:41:33.378]                 for (kk in seq_along(NAMES)) {
[18:41:33.378]                   name <- removed[[kk]]
[18:41:33.378]                   NAME <- NAMES[[kk]]
[18:41:33.378]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.378]                     next
[18:41:33.378]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.378]                 }
[18:41:33.378]                 if (length(args) > 0) 
[18:41:33.378]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.378]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.378]             }
[18:41:33.378]             else {
[18:41:33.378]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.378]             }
[18:41:33.378]             {
[18:41:33.378]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.378]                   0L) {
[18:41:33.378]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.378]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.378]                   base::options(opts)
[18:41:33.378]                 }
[18:41:33.378]                 {
[18:41:33.378]                   {
[18:41:33.378]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.378]                     NULL
[18:41:33.378]                   }
[18:41:33.378]                   options(future.plan = NULL)
[18:41:33.378]                   if (is.na(NA_character_)) 
[18:41:33.378]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.378]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.378]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.378]                     .init = FALSE)
[18:41:33.378]                 }
[18:41:33.378]             }
[18:41:33.378]         }
[18:41:33.378]     })
[18:41:33.378]     if (TRUE) {
[18:41:33.378]         base::sink(type = "output", split = FALSE)
[18:41:33.378]         if (TRUE) {
[18:41:33.378]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.378]         }
[18:41:33.378]         else {
[18:41:33.378]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.378]         }
[18:41:33.378]         base::close(...future.stdout)
[18:41:33.378]         ...future.stdout <- NULL
[18:41:33.378]     }
[18:41:33.378]     ...future.result$conditions <- ...future.conditions
[18:41:33.378]     ...future.result$finished <- base::Sys.time()
[18:41:33.378]     ...future.result
[18:41:33.378] }
[18:41:33.387] Exporting 5 global objects (669 bytes) to cluster node #1 ...
[18:41:33.388] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.389] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.389] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:33.390] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:33.390] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ...
[18:41:33.391] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ... DONE
[18:41:33.391] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.392] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.392] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.393] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.393] Exporting 5 global objects (669 bytes) to cluster node #1 ... DONE
[18:41:33.394] MultisessionFuture started
[18:41:33.394] - Launch lazy future ... done
[18:41:33.395] run() for 'MultisessionFuture' ... done
[18:41:33.395] Created future:
[18:41:33.420] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.420] - Validating connection of MultisessionFuture
[18:41:33.421] - received message: FutureResult
[18:41:33.421] - Received FutureResult
[18:41:33.421] - Erased future from FutureRegistry
[18:41:33.422] result() for ClusterFuture ...
[18:41:33.422] - result already collected: FutureResult
[18:41:33.422] result() for ClusterFuture ... done
[18:41:33.423] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.395] MultisessionFuture:
[18:41:33.395] Label: 'future_mapply-2'
[18:41:33.395] Expression:
[18:41:33.395] {
[18:41:33.395]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.395]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.395]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.395]         on.exit(options(oopts), add = TRUE)
[18:41:33.395]     }
[18:41:33.395]     {
[18:41:33.395]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.395]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.395]         do.call(mapply, args = args)
[18:41:33.395]     }
[18:41:33.395] }
[18:41:33.395] Lazy evaluation: FALSE
[18:41:33.395] Asynchronous evaluation: TRUE
[18:41:33.395] Local evaluation: TRUE
[18:41:33.395] Environment: R_GlobalEnv
[18:41:33.395] Capture standard output: TRUE
[18:41:33.395] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.395] Globals: 5 objects totaling 210 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 95 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.395] Packages: <none>
[18:41:33.395] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.395] Resolved: TRUE
[18:41:33.395] Value: <not collected>
[18:41:33.395] Conditions captured: <none>
[18:41:33.395] Early signaling: FALSE
[18:41:33.395] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.395] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.424] Chunk #2 of 2 ... DONE
[18:41:33.424] Launching 2 futures (chunks) ... DONE
[18:41:33.424] Resolving 2 futures (chunks) ...
[18:41:33.425] resolve() on list ...
[18:41:33.425]  recursive: 0
[18:41:33.425]  length: 2
[18:41:33.426] 
[18:41:33.426] Future #1
[18:41:33.426] result() for ClusterFuture ...
[18:41:33.427] - result already collected: FutureResult
[18:41:33.427] result() for ClusterFuture ... done
[18:41:33.427] result() for ClusterFuture ...
[18:41:33.427] - result already collected: FutureResult
[18:41:33.428] result() for ClusterFuture ... done
[18:41:33.428] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:33.429] - nx: 2
[18:41:33.429] - relay: TRUE
[18:41:33.429] - stdout: TRUE
[18:41:33.433] - signal: TRUE
[18:41:33.434] - resignal: FALSE
[18:41:33.434] - force: TRUE
[18:41:33.434] - relayed: [n=2] FALSE, FALSE
[18:41:33.434] - queued futures: [n=2] FALSE, FALSE
[18:41:33.435]  - until=1
[18:41:33.435]  - relaying element #1
[18:41:33.435] result() for ClusterFuture ...
[18:41:33.436] - result already collected: FutureResult
[18:41:33.436] result() for ClusterFuture ... done
[18:41:33.436] result() for ClusterFuture ...
[18:41:33.436] - result already collected: FutureResult
[18:41:33.437] result() for ClusterFuture ... done
[18:41:33.437] result() for ClusterFuture ...
[18:41:33.437] - result already collected: FutureResult
[18:41:33.438] result() for ClusterFuture ... done
[18:41:33.438] result() for ClusterFuture ...
[18:41:33.438] - result already collected: FutureResult
[18:41:33.439] result() for ClusterFuture ... done
[18:41:33.439] - relayed: [n=2] TRUE, FALSE
[18:41:33.439] - queued futures: [n=2] TRUE, FALSE
[18:41:33.439] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:33.440]  length: 1 (resolved future 1)
[18:41:33.440] Future #2
[18:41:33.441] result() for ClusterFuture ...
[18:41:33.441] - result already collected: FutureResult
[18:41:33.441] result() for ClusterFuture ... done
[18:41:33.441] result() for ClusterFuture ...
[18:41:33.442] - result already collected: FutureResult
[18:41:33.442] result() for ClusterFuture ... done
[18:41:33.442] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:33.443] - nx: 2
[18:41:33.443] - relay: TRUE
[18:41:33.443] - stdout: TRUE
[18:41:33.444] - signal: TRUE
[18:41:33.444] - resignal: FALSE
[18:41:33.444] - force: TRUE
[18:41:33.444] - relayed: [n=2] TRUE, FALSE
[18:41:33.445] - queued futures: [n=2] TRUE, FALSE
[18:41:33.445]  - until=2
[18:41:33.445]  - relaying element #2
[18:41:33.446] result() for ClusterFuture ...
[18:41:33.446] - result already collected: FutureResult
[18:41:33.446] result() for ClusterFuture ... done
[18:41:33.446] result() for ClusterFuture ...
[18:41:33.447] - result already collected: FutureResult
[18:41:33.447] result() for ClusterFuture ... done
[18:41:33.447] result() for ClusterFuture ...
[18:41:33.448] - result already collected: FutureResult
[18:41:33.448] result() for ClusterFuture ... done
[18:41:33.448] result() for ClusterFuture ...
[18:41:33.449] - result already collected: FutureResult
[18:41:33.449] result() for ClusterFuture ... done
[18:41:33.449] - relayed: [n=2] TRUE, TRUE
[18:41:33.449] - queued futures: [n=2] TRUE, TRUE
[18:41:33.450] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:33.450]  length: 0 (resolved future 2)
[18:41:33.450] Relaying remaining futures
[18:41:33.451] signalConditionsASAP(NULL, pos=0) ...
[18:41:33.451] - nx: 2
[18:41:33.451] - relay: TRUE
[18:41:33.452] - stdout: TRUE
[18:41:33.452] - signal: TRUE
[18:41:33.452] - resignal: FALSE
[18:41:33.452] - force: TRUE
[18:41:33.453] - relayed: [n=2] TRUE, TRUE
[18:41:33.453] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:33.453] - relayed: [n=2] TRUE, TRUE
[18:41:33.454] - queued futures: [n=2] TRUE, TRUE
[18:41:33.454] signalConditionsASAP(NULL, pos=0) ... done
[18:41:33.454] resolve() on list ... DONE
[18:41:33.455] result() for ClusterFuture ...
[18:41:33.455] - result already collected: FutureResult
[18:41:33.455] result() for ClusterFuture ... done
[18:41:33.456] result() for ClusterFuture ...
[18:41:33.456] - result already collected: FutureResult
[18:41:33.456] result() for ClusterFuture ... done
[18:41:33.457] result() for ClusterFuture ...
[18:41:33.457] - result already collected: FutureResult
[18:41:33.457] result() for ClusterFuture ... done
[18:41:33.457] result() for ClusterFuture ...
[18:41:33.458] - result already collected: FutureResult
[18:41:33.458] result() for ClusterFuture ... done
[18:41:33.458]  - Number of value chunks collected: 2
[18:41:33.459] Resolving 2 futures (chunks) ... DONE
[18:41:33.459] Reducing values from 2 chunks ...
[18:41:33.459]  - Number of values collected after concatenation: 4
[18:41:33.460]  - Number of values expected: 4
[18:41:33.460] Reducing values from 2 chunks ... DONE
[18:41:33.460] future_mapply() ... DONE
[18:41:33.461] future_mapply() ...
[18:41:33.465] Number of chunks: 2
[18:41:33.466] getGlobalsAndPackagesXApply() ...
[18:41:33.466]  - future.globals: TRUE
[18:41:33.466] getGlobalsAndPackages() ...
[18:41:33.467] Searching for globals...
[18:41:33.468] - globals found: [1] 'FUN'
[18:41:33.468] Searching for globals ... DONE
[18:41:33.469] Resolving globals: FALSE
[18:41:33.469] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:33.470] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:33.471] - globals: [1] 'FUN'
[18:41:33.471] 
[18:41:33.471] getGlobalsAndPackages() ... DONE
[18:41:33.471]  - globals found/used: [n=1] 'FUN'
[18:41:33.472]  - needed namespaces: [n=0] 
[18:41:33.472] Finding globals ... DONE
[18:41:33.473] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:33.473] List of 2
[18:41:33.473]  $ ...future.FUN:function (x, ...)  
[18:41:33.473]  $ MoreArgs     : NULL
[18:41:33.473]  - attr(*, "where")=List of 2
[18:41:33.473]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:33.473]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:33.473]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:33.473]  - attr(*, "resolved")= logi FALSE
[18:41:33.473]  - attr(*, "total_size")= num NA
[18:41:33.479] Packages to be attached in all futures: [n=0] 
[18:41:33.479] getGlobalsAndPackagesXApply() ... DONE
[18:41:33.480] Number of futures (= number of chunks): 2
[18:41:33.480] Launching 2 futures (chunks) ...
[18:41:33.480] Chunk #1 of 2 ...
[18:41:33.481]  - Finding globals in '...' for chunk #1 ...
[18:41:33.481] getGlobalsAndPackages() ...
[18:41:33.481] Searching for globals...
[18:41:33.482] 
[18:41:33.482] Searching for globals ... DONE
[18:41:33.483] - globals: [0] <none>
[18:41:33.483] getGlobalsAndPackages() ... DONE
[18:41:33.483]    + additional globals found: [n=0] 
[18:41:33.484]    + additional namespaces needed: [n=0] 
[18:41:33.484]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:33.484]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.484]  - seeds: <none>
[18:41:33.485]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.485] getGlobalsAndPackages() ...
[18:41:33.485] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.486] Resolving globals: FALSE
[18:41:33.487] The total size of the 5 globals is 210 bytes (210 bytes)
[18:41:33.488] 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 210 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (95 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.488] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.489] 
[18:41:33.489] getGlobalsAndPackages() ... DONE
[18:41:33.490] run() for 'Future' ...
[18:41:33.490] - state: 'created'
[18:41:33.490] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.522] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.522] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.523]   - Field: 'node'
[18:41:33.523]   - Field: 'label'
[18:41:33.523]   - Field: 'local'
[18:41:33.524]   - Field: 'owner'
[18:41:33.524]   - Field: 'envir'
[18:41:33.524]   - Field: 'workers'
[18:41:33.525]   - Field: 'packages'
[18:41:33.525]   - Field: 'gc'
[18:41:33.525]   - Field: 'conditions'
[18:41:33.526]   - Field: 'persistent'
[18:41:33.526]   - Field: 'expr'
[18:41:33.526]   - Field: 'uuid'
[18:41:33.527]   - Field: 'seed'
[18:41:33.527]   - Field: 'version'
[18:41:33.527]   - Field: 'result'
[18:41:33.528]   - Field: 'asynchronous'
[18:41:33.528]   - Field: 'calls'
[18:41:33.528]   - Field: 'globals'
[18:41:33.529]   - Field: 'stdout'
[18:41:33.529]   - Field: 'earlySignal'
[18:41:33.529]   - Field: 'lazy'
[18:41:33.530]   - Field: 'state'
[18:41:33.530] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.530] - Launch lazy future ...
[18:41:33.531] Packages needed by the future expression (n = 0): <none>
[18:41:33.531] Packages needed by future strategies (n = 0): <none>
[18:41:33.532] {
[18:41:33.532]     {
[18:41:33.532]         {
[18:41:33.532]             ...future.startTime <- base::Sys.time()
[18:41:33.532]             {
[18:41:33.532]                 {
[18:41:33.532]                   {
[18:41:33.532]                     {
[18:41:33.532]                       base::local({
[18:41:33.532]                         has_future <- base::requireNamespace("future", 
[18:41:33.532]                           quietly = TRUE)
[18:41:33.532]                         if (has_future) {
[18:41:33.532]                           ns <- base::getNamespace("future")
[18:41:33.532]                           version <- ns[[".package"]][["version"]]
[18:41:33.532]                           if (is.null(version)) 
[18:41:33.532]                             version <- utils::packageVersion("future")
[18:41:33.532]                         }
[18:41:33.532]                         else {
[18:41:33.532]                           version <- NULL
[18:41:33.532]                         }
[18:41:33.532]                         if (!has_future || version < "1.8.0") {
[18:41:33.532]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.532]                             "", base::R.version$version.string), 
[18:41:33.532]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.532]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.532]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.532]                               "release", "version")], collapse = " "), 
[18:41:33.532]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.532]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.532]                             info)
[18:41:33.532]                           info <- base::paste(info, collapse = "; ")
[18:41:33.532]                           if (!has_future) {
[18:41:33.532]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.532]                               info)
[18:41:33.532]                           }
[18:41:33.532]                           else {
[18:41:33.532]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.532]                               info, version)
[18:41:33.532]                           }
[18:41:33.532]                           base::stop(msg)
[18:41:33.532]                         }
[18:41:33.532]                       })
[18:41:33.532]                     }
[18:41:33.532]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.532]                     base::options(mc.cores = 1L)
[18:41:33.532]                   }
[18:41:33.532]                   ...future.strategy.old <- future::plan("list")
[18:41:33.532]                   options(future.plan = NULL)
[18:41:33.532]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.532]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.532]                 }
[18:41:33.532]                 ...future.workdir <- getwd()
[18:41:33.532]             }
[18:41:33.532]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.532]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.532]         }
[18:41:33.532]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.532]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.532]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.532]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.532]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.532]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.532]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.532]             base::names(...future.oldOptions))
[18:41:33.532]     }
[18:41:33.532]     if (FALSE) {
[18:41:33.532]     }
[18:41:33.532]     else {
[18:41:33.532]         if (TRUE) {
[18:41:33.532]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.532]                 open = "w")
[18:41:33.532]         }
[18:41:33.532]         else {
[18:41:33.532]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.532]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.532]         }
[18:41:33.532]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.532]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.532]             base::sink(type = "output", split = FALSE)
[18:41:33.532]             base::close(...future.stdout)
[18:41:33.532]         }, add = TRUE)
[18:41:33.532]     }
[18:41:33.532]     ...future.frame <- base::sys.nframe()
[18:41:33.532]     ...future.conditions <- base::list()
[18:41:33.532]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.532]     if (FALSE) {
[18:41:33.532]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.532]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.532]     }
[18:41:33.532]     ...future.result <- base::tryCatch({
[18:41:33.532]         base::withCallingHandlers({
[18:41:33.532]             ...future.value <- base::withVisible(base::local({
[18:41:33.532]                 ...future.makeSendCondition <- base::local({
[18:41:33.532]                   sendCondition <- NULL
[18:41:33.532]                   function(frame = 1L) {
[18:41:33.532]                     if (is.function(sendCondition)) 
[18:41:33.532]                       return(sendCondition)
[18:41:33.532]                     ns <- getNamespace("parallel")
[18:41:33.532]                     if (exists("sendData", mode = "function", 
[18:41:33.532]                       envir = ns)) {
[18:41:33.532]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.532]                         envir = ns)
[18:41:33.532]                       envir <- sys.frame(frame)
[18:41:33.532]                       master <- NULL
[18:41:33.532]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.532]                         !identical(envir, emptyenv())) {
[18:41:33.532]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.532]                           inherits = FALSE)) {
[18:41:33.532]                           master <- get("master", mode = "list", 
[18:41:33.532]                             envir = envir, inherits = FALSE)
[18:41:33.532]                           if (inherits(master, c("SOCKnode", 
[18:41:33.532]                             "SOCK0node"))) {
[18:41:33.532]                             sendCondition <<- function(cond) {
[18:41:33.532]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.532]                                 success = TRUE)
[18:41:33.532]                               parallel_sendData(master, data)
[18:41:33.532]                             }
[18:41:33.532]                             return(sendCondition)
[18:41:33.532]                           }
[18:41:33.532]                         }
[18:41:33.532]                         frame <- frame + 1L
[18:41:33.532]                         envir <- sys.frame(frame)
[18:41:33.532]                       }
[18:41:33.532]                     }
[18:41:33.532]                     sendCondition <<- function(cond) NULL
[18:41:33.532]                   }
[18:41:33.532]                 })
[18:41:33.532]                 withCallingHandlers({
[18:41:33.532]                   {
[18:41:33.532]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.532]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.532]                       ...future.globals.maxSize)) {
[18:41:33.532]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.532]                       on.exit(options(oopts), add = TRUE)
[18:41:33.532]                     }
[18:41:33.532]                     {
[18:41:33.532]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.532]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.532]                         USE.NAMES = FALSE)
[18:41:33.532]                       do.call(mapply, args = args)
[18:41:33.532]                     }
[18:41:33.532]                   }
[18:41:33.532]                 }, immediateCondition = function(cond) {
[18:41:33.532]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.532]                   sendCondition(cond)
[18:41:33.532]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.532]                   {
[18:41:33.532]                     inherits <- base::inherits
[18:41:33.532]                     invokeRestart <- base::invokeRestart
[18:41:33.532]                     is.null <- base::is.null
[18:41:33.532]                     muffled <- FALSE
[18:41:33.532]                     if (inherits(cond, "message")) {
[18:41:33.532]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.532]                       if (muffled) 
[18:41:33.532]                         invokeRestart("muffleMessage")
[18:41:33.532]                     }
[18:41:33.532]                     else if (inherits(cond, "warning")) {
[18:41:33.532]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.532]                       if (muffled) 
[18:41:33.532]                         invokeRestart("muffleWarning")
[18:41:33.532]                     }
[18:41:33.532]                     else if (inherits(cond, "condition")) {
[18:41:33.532]                       if (!is.null(pattern)) {
[18:41:33.532]                         computeRestarts <- base::computeRestarts
[18:41:33.532]                         grepl <- base::grepl
[18:41:33.532]                         restarts <- computeRestarts(cond)
[18:41:33.532]                         for (restart in restarts) {
[18:41:33.532]                           name <- restart$name
[18:41:33.532]                           if (is.null(name)) 
[18:41:33.532]                             next
[18:41:33.532]                           if (!grepl(pattern, name)) 
[18:41:33.532]                             next
[18:41:33.532]                           invokeRestart(restart)
[18:41:33.532]                           muffled <- TRUE
[18:41:33.532]                           break
[18:41:33.532]                         }
[18:41:33.532]                       }
[18:41:33.532]                     }
[18:41:33.532]                     invisible(muffled)
[18:41:33.532]                   }
[18:41:33.532]                   muffleCondition(cond)
[18:41:33.532]                 })
[18:41:33.532]             }))
[18:41:33.532]             future::FutureResult(value = ...future.value$value, 
[18:41:33.532]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.532]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.532]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.532]                     ...future.globalenv.names))
[18:41:33.532]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.532]         }, condition = base::local({
[18:41:33.532]             c <- base::c
[18:41:33.532]             inherits <- base::inherits
[18:41:33.532]             invokeRestart <- base::invokeRestart
[18:41:33.532]             length <- base::length
[18:41:33.532]             list <- base::list
[18:41:33.532]             seq.int <- base::seq.int
[18:41:33.532]             signalCondition <- base::signalCondition
[18:41:33.532]             sys.calls <- base::sys.calls
[18:41:33.532]             `[[` <- base::`[[`
[18:41:33.532]             `+` <- base::`+`
[18:41:33.532]             `<<-` <- base::`<<-`
[18:41:33.532]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.532]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.532]                   3L)]
[18:41:33.532]             }
[18:41:33.532]             function(cond) {
[18:41:33.532]                 is_error <- inherits(cond, "error")
[18:41:33.532]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.532]                   NULL)
[18:41:33.532]                 if (is_error) {
[18:41:33.532]                   sessionInformation <- function() {
[18:41:33.532]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.532]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.532]                       search = base::search(), system = base::Sys.info())
[18:41:33.532]                   }
[18:41:33.532]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.532]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.532]                     cond$call), session = sessionInformation(), 
[18:41:33.532]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.532]                   signalCondition(cond)
[18:41:33.532]                 }
[18:41:33.532]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.532]                 "immediateCondition"))) {
[18:41:33.532]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.532]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.532]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.532]                   if (TRUE && !signal) {
[18:41:33.532]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.532]                     {
[18:41:33.532]                       inherits <- base::inherits
[18:41:33.532]                       invokeRestart <- base::invokeRestart
[18:41:33.532]                       is.null <- base::is.null
[18:41:33.532]                       muffled <- FALSE
[18:41:33.532]                       if (inherits(cond, "message")) {
[18:41:33.532]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.532]                         if (muffled) 
[18:41:33.532]                           invokeRestart("muffleMessage")
[18:41:33.532]                       }
[18:41:33.532]                       else if (inherits(cond, "warning")) {
[18:41:33.532]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.532]                         if (muffled) 
[18:41:33.532]                           invokeRestart("muffleWarning")
[18:41:33.532]                       }
[18:41:33.532]                       else if (inherits(cond, "condition")) {
[18:41:33.532]                         if (!is.null(pattern)) {
[18:41:33.532]                           computeRestarts <- base::computeRestarts
[18:41:33.532]                           grepl <- base::grepl
[18:41:33.532]                           restarts <- computeRestarts(cond)
[18:41:33.532]                           for (restart in restarts) {
[18:41:33.532]                             name <- restart$name
[18:41:33.532]                             if (is.null(name)) 
[18:41:33.532]                               next
[18:41:33.532]                             if (!grepl(pattern, name)) 
[18:41:33.532]                               next
[18:41:33.532]                             invokeRestart(restart)
[18:41:33.532]                             muffled <- TRUE
[18:41:33.532]                             break
[18:41:33.532]                           }
[18:41:33.532]                         }
[18:41:33.532]                       }
[18:41:33.532]                       invisible(muffled)
[18:41:33.532]                     }
[18:41:33.532]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.532]                   }
[18:41:33.532]                 }
[18:41:33.532]                 else {
[18:41:33.532]                   if (TRUE) {
[18:41:33.532]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.532]                     {
[18:41:33.532]                       inherits <- base::inherits
[18:41:33.532]                       invokeRestart <- base::invokeRestart
[18:41:33.532]                       is.null <- base::is.null
[18:41:33.532]                       muffled <- FALSE
[18:41:33.532]                       if (inherits(cond, "message")) {
[18:41:33.532]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.532]                         if (muffled) 
[18:41:33.532]                           invokeRestart("muffleMessage")
[18:41:33.532]                       }
[18:41:33.532]                       else if (inherits(cond, "warning")) {
[18:41:33.532]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.532]                         if (muffled) 
[18:41:33.532]                           invokeRestart("muffleWarning")
[18:41:33.532]                       }
[18:41:33.532]                       else if (inherits(cond, "condition")) {
[18:41:33.532]                         if (!is.null(pattern)) {
[18:41:33.532]                           computeRestarts <- base::computeRestarts
[18:41:33.532]                           grepl <- base::grepl
[18:41:33.532]                           restarts <- computeRestarts(cond)
[18:41:33.532]                           for (restart in restarts) {
[18:41:33.532]                             name <- restart$name
[18:41:33.532]                             if (is.null(name)) 
[18:41:33.532]                               next
[18:41:33.532]                             if (!grepl(pattern, name)) 
[18:41:33.532]                               next
[18:41:33.532]                             invokeRestart(restart)
[18:41:33.532]                             muffled <- TRUE
[18:41:33.532]                             break
[18:41:33.532]                           }
[18:41:33.532]                         }
[18:41:33.532]                       }
[18:41:33.532]                       invisible(muffled)
[18:41:33.532]                     }
[18:41:33.532]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.532]                   }
[18:41:33.532]                 }
[18:41:33.532]             }
[18:41:33.532]         }))
[18:41:33.532]     }, error = function(ex) {
[18:41:33.532]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.532]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.532]                 ...future.rng), started = ...future.startTime, 
[18:41:33.532]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.532]             version = "1.8"), class = "FutureResult")
[18:41:33.532]     }, finally = {
[18:41:33.532]         if (!identical(...future.workdir, getwd())) 
[18:41:33.532]             setwd(...future.workdir)
[18:41:33.532]         {
[18:41:33.532]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.532]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.532]             }
[18:41:33.532]             base::options(...future.oldOptions)
[18:41:33.532]             if (.Platform$OS.type == "windows") {
[18:41:33.532]                 old_names <- names(...future.oldEnvVars)
[18:41:33.532]                 envs <- base::Sys.getenv()
[18:41:33.532]                 names <- names(envs)
[18:41:33.532]                 common <- intersect(names, old_names)
[18:41:33.532]                 added <- setdiff(names, old_names)
[18:41:33.532]                 removed <- setdiff(old_names, names)
[18:41:33.532]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.532]                   envs[common]]
[18:41:33.532]                 NAMES <- toupper(changed)
[18:41:33.532]                 args <- list()
[18:41:33.532]                 for (kk in seq_along(NAMES)) {
[18:41:33.532]                   name <- changed[[kk]]
[18:41:33.532]                   NAME <- NAMES[[kk]]
[18:41:33.532]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.532]                     next
[18:41:33.532]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.532]                 }
[18:41:33.532]                 NAMES <- toupper(added)
[18:41:33.532]                 for (kk in seq_along(NAMES)) {
[18:41:33.532]                   name <- added[[kk]]
[18:41:33.532]                   NAME <- NAMES[[kk]]
[18:41:33.532]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.532]                     next
[18:41:33.532]                   args[[name]] <- ""
[18:41:33.532]                 }
[18:41:33.532]                 NAMES <- toupper(removed)
[18:41:33.532]                 for (kk in seq_along(NAMES)) {
[18:41:33.532]                   name <- removed[[kk]]
[18:41:33.532]                   NAME <- NAMES[[kk]]
[18:41:33.532]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.532]                     next
[18:41:33.532]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.532]                 }
[18:41:33.532]                 if (length(args) > 0) 
[18:41:33.532]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.532]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.532]             }
[18:41:33.532]             else {
[18:41:33.532]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.532]             }
[18:41:33.532]             {
[18:41:33.532]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.532]                   0L) {
[18:41:33.532]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.532]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.532]                   base::options(opts)
[18:41:33.532]                 }
[18:41:33.532]                 {
[18:41:33.532]                   {
[18:41:33.532]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.532]                     NULL
[18:41:33.532]                   }
[18:41:33.532]                   options(future.plan = NULL)
[18:41:33.532]                   if (is.na(NA_character_)) 
[18:41:33.532]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.532]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.532]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.532]                     .init = FALSE)
[18:41:33.532]                 }
[18:41:33.532]             }
[18:41:33.532]         }
[18:41:33.532]     })
[18:41:33.532]     if (TRUE) {
[18:41:33.532]         base::sink(type = "output", split = FALSE)
[18:41:33.532]         if (TRUE) {
[18:41:33.532]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.532]         }
[18:41:33.532]         else {
[18:41:33.532]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.532]         }
[18:41:33.532]         base::close(...future.stdout)
[18:41:33.532]         ...future.stdout <- NULL
[18:41:33.532]     }
[18:41:33.532]     ...future.result$conditions <- ...future.conditions
[18:41:33.532]     ...future.result$finished <- base::Sys.time()
[18:41:33.532]     ...future.result
[18:41:33.532] }
[18:41:33.542] Exporting 5 global objects (669 bytes) to cluster node #1 ...
[18:41:33.542] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.543] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.543] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:33.544] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:33.544] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ...
[18:41:33.545] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ... DONE
[18:41:33.545] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.546] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.546] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.547] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.547] Exporting 5 global objects (669 bytes) to cluster node #1 ... DONE
[18:41:33.548] MultisessionFuture started
[18:41:33.548] - Launch lazy future ... done
[18:41:33.549] run() for 'MultisessionFuture' ... done
[18:41:33.549] Created future:
[18:41:33.572] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.573] - Validating connection of MultisessionFuture
[18:41:33.573] - received message: FutureResult
[18:41:33.573] - Received FutureResult
[18:41:33.574] - Erased future from FutureRegistry
[18:41:33.574] result() for ClusterFuture ...
[18:41:33.574] - result already collected: FutureResult
[18:41:33.575] result() for ClusterFuture ... done
[18:41:33.575] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.549] MultisessionFuture:
[18:41:33.549] Label: 'future_mapply-1'
[18:41:33.549] Expression:
[18:41:33.549] {
[18:41:33.549]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.549]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.549]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.549]         on.exit(options(oopts), add = TRUE)
[18:41:33.549]     }
[18:41:33.549]     {
[18:41:33.549]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.549]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.549]         do.call(mapply, args = args)
[18:41:33.549]     }
[18:41:33.549] }
[18:41:33.549] Lazy evaluation: FALSE
[18:41:33.549] Asynchronous evaluation: TRUE
[18:41:33.549] Local evaluation: TRUE
[18:41:33.549] Environment: R_GlobalEnv
[18:41:33.549] Capture standard output: TRUE
[18:41:33.549] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.549] Globals: 5 objects totaling 210 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 95 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.549] Packages: <none>
[18:41:33.549] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.549] Resolved: TRUE
[18:41:33.549] Value: <not collected>
[18:41:33.549] Conditions captured: <none>
[18:41:33.549] Early signaling: FALSE
[18:41:33.549] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.549] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.576] Chunk #1 of 2 ... DONE
[18:41:33.576] Chunk #2 of 2 ...
[18:41:33.577]  - Finding globals in '...' for chunk #2 ...
[18:41:33.577] getGlobalsAndPackages() ...
[18:41:33.577] Searching for globals...
[18:41:33.578] 
[18:41:33.578] Searching for globals ... DONE
[18:41:33.579] - globals: [0] <none>
[18:41:33.579] getGlobalsAndPackages() ... DONE
[18:41:33.579]    + additional globals found: [n=0] 
[18:41:33.580]    + additional namespaces needed: [n=0] 
[18:41:33.580]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:33.580]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.580]  - seeds: <none>
[18:41:33.581]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.581] getGlobalsAndPackages() ...
[18:41:33.581] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.582] Resolving globals: FALSE
[18:41:33.583] The total size of the 5 globals is 210 bytes (210 bytes)
[18:41:33.584] 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 210 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (95 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.584] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.585] 
[18:41:33.585] getGlobalsAndPackages() ... DONE
[18:41:33.586] run() for 'Future' ...
[18:41:33.586] - state: 'created'
[18:41:33.586] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.613] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.613] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.613]   - Field: 'node'
[18:41:33.614]   - Field: 'label'
[18:41:33.614]   - Field: 'local'
[18:41:33.614]   - Field: 'owner'
[18:41:33.615]   - Field: 'envir'
[18:41:33.615]   - Field: 'workers'
[18:41:33.615]   - Field: 'packages'
[18:41:33.616]   - Field: 'gc'
[18:41:33.616]   - Field: 'conditions'
[18:41:33.616]   - Field: 'persistent'
[18:41:33.617]   - Field: 'expr'
[18:41:33.617]   - Field: 'uuid'
[18:41:33.617]   - Field: 'seed'
[18:41:33.618]   - Field: 'version'
[18:41:33.618]   - Field: 'result'
[18:41:33.618]   - Field: 'asynchronous'
[18:41:33.619]   - Field: 'calls'
[18:41:33.619]   - Field: 'globals'
[18:41:33.619]   - Field: 'stdout'
[18:41:33.620]   - Field: 'earlySignal'
[18:41:33.620]   - Field: 'lazy'
[18:41:33.620]   - Field: 'state'
[18:41:33.621] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.621] - Launch lazy future ...
[18:41:33.622] Packages needed by the future expression (n = 0): <none>
[18:41:33.622] Packages needed by future strategies (n = 0): <none>
[18:41:33.623] {
[18:41:33.623]     {
[18:41:33.623]         {
[18:41:33.623]             ...future.startTime <- base::Sys.time()
[18:41:33.623]             {
[18:41:33.623]                 {
[18:41:33.623]                   {
[18:41:33.623]                     {
[18:41:33.623]                       base::local({
[18:41:33.623]                         has_future <- base::requireNamespace("future", 
[18:41:33.623]                           quietly = TRUE)
[18:41:33.623]                         if (has_future) {
[18:41:33.623]                           ns <- base::getNamespace("future")
[18:41:33.623]                           version <- ns[[".package"]][["version"]]
[18:41:33.623]                           if (is.null(version)) 
[18:41:33.623]                             version <- utils::packageVersion("future")
[18:41:33.623]                         }
[18:41:33.623]                         else {
[18:41:33.623]                           version <- NULL
[18:41:33.623]                         }
[18:41:33.623]                         if (!has_future || version < "1.8.0") {
[18:41:33.623]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.623]                             "", base::R.version$version.string), 
[18:41:33.623]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.623]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.623]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.623]                               "release", "version")], collapse = " "), 
[18:41:33.623]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.623]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.623]                             info)
[18:41:33.623]                           info <- base::paste(info, collapse = "; ")
[18:41:33.623]                           if (!has_future) {
[18:41:33.623]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.623]                               info)
[18:41:33.623]                           }
[18:41:33.623]                           else {
[18:41:33.623]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.623]                               info, version)
[18:41:33.623]                           }
[18:41:33.623]                           base::stop(msg)
[18:41:33.623]                         }
[18:41:33.623]                       })
[18:41:33.623]                     }
[18:41:33.623]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.623]                     base::options(mc.cores = 1L)
[18:41:33.623]                   }
[18:41:33.623]                   ...future.strategy.old <- future::plan("list")
[18:41:33.623]                   options(future.plan = NULL)
[18:41:33.623]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.623]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.623]                 }
[18:41:33.623]                 ...future.workdir <- getwd()
[18:41:33.623]             }
[18:41:33.623]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.623]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.623]         }
[18:41:33.623]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.623]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.623]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.623]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.623]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.623]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.623]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.623]             base::names(...future.oldOptions))
[18:41:33.623]     }
[18:41:33.623]     if (FALSE) {
[18:41:33.623]     }
[18:41:33.623]     else {
[18:41:33.623]         if (TRUE) {
[18:41:33.623]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.623]                 open = "w")
[18:41:33.623]         }
[18:41:33.623]         else {
[18:41:33.623]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.623]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.623]         }
[18:41:33.623]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.623]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.623]             base::sink(type = "output", split = FALSE)
[18:41:33.623]             base::close(...future.stdout)
[18:41:33.623]         }, add = TRUE)
[18:41:33.623]     }
[18:41:33.623]     ...future.frame <- base::sys.nframe()
[18:41:33.623]     ...future.conditions <- base::list()
[18:41:33.623]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.623]     if (FALSE) {
[18:41:33.623]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.623]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.623]     }
[18:41:33.623]     ...future.result <- base::tryCatch({
[18:41:33.623]         base::withCallingHandlers({
[18:41:33.623]             ...future.value <- base::withVisible(base::local({
[18:41:33.623]                 ...future.makeSendCondition <- base::local({
[18:41:33.623]                   sendCondition <- NULL
[18:41:33.623]                   function(frame = 1L) {
[18:41:33.623]                     if (is.function(sendCondition)) 
[18:41:33.623]                       return(sendCondition)
[18:41:33.623]                     ns <- getNamespace("parallel")
[18:41:33.623]                     if (exists("sendData", mode = "function", 
[18:41:33.623]                       envir = ns)) {
[18:41:33.623]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.623]                         envir = ns)
[18:41:33.623]                       envir <- sys.frame(frame)
[18:41:33.623]                       master <- NULL
[18:41:33.623]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.623]                         !identical(envir, emptyenv())) {
[18:41:33.623]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.623]                           inherits = FALSE)) {
[18:41:33.623]                           master <- get("master", mode = "list", 
[18:41:33.623]                             envir = envir, inherits = FALSE)
[18:41:33.623]                           if (inherits(master, c("SOCKnode", 
[18:41:33.623]                             "SOCK0node"))) {
[18:41:33.623]                             sendCondition <<- function(cond) {
[18:41:33.623]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.623]                                 success = TRUE)
[18:41:33.623]                               parallel_sendData(master, data)
[18:41:33.623]                             }
[18:41:33.623]                             return(sendCondition)
[18:41:33.623]                           }
[18:41:33.623]                         }
[18:41:33.623]                         frame <- frame + 1L
[18:41:33.623]                         envir <- sys.frame(frame)
[18:41:33.623]                       }
[18:41:33.623]                     }
[18:41:33.623]                     sendCondition <<- function(cond) NULL
[18:41:33.623]                   }
[18:41:33.623]                 })
[18:41:33.623]                 withCallingHandlers({
[18:41:33.623]                   {
[18:41:33.623]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.623]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.623]                       ...future.globals.maxSize)) {
[18:41:33.623]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.623]                       on.exit(options(oopts), add = TRUE)
[18:41:33.623]                     }
[18:41:33.623]                     {
[18:41:33.623]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.623]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.623]                         USE.NAMES = FALSE)
[18:41:33.623]                       do.call(mapply, args = args)
[18:41:33.623]                     }
[18:41:33.623]                   }
[18:41:33.623]                 }, immediateCondition = function(cond) {
[18:41:33.623]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.623]                   sendCondition(cond)
[18:41:33.623]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.623]                   {
[18:41:33.623]                     inherits <- base::inherits
[18:41:33.623]                     invokeRestart <- base::invokeRestart
[18:41:33.623]                     is.null <- base::is.null
[18:41:33.623]                     muffled <- FALSE
[18:41:33.623]                     if (inherits(cond, "message")) {
[18:41:33.623]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.623]                       if (muffled) 
[18:41:33.623]                         invokeRestart("muffleMessage")
[18:41:33.623]                     }
[18:41:33.623]                     else if (inherits(cond, "warning")) {
[18:41:33.623]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.623]                       if (muffled) 
[18:41:33.623]                         invokeRestart("muffleWarning")
[18:41:33.623]                     }
[18:41:33.623]                     else if (inherits(cond, "condition")) {
[18:41:33.623]                       if (!is.null(pattern)) {
[18:41:33.623]                         computeRestarts <- base::computeRestarts
[18:41:33.623]                         grepl <- base::grepl
[18:41:33.623]                         restarts <- computeRestarts(cond)
[18:41:33.623]                         for (restart in restarts) {
[18:41:33.623]                           name <- restart$name
[18:41:33.623]                           if (is.null(name)) 
[18:41:33.623]                             next
[18:41:33.623]                           if (!grepl(pattern, name)) 
[18:41:33.623]                             next
[18:41:33.623]                           invokeRestart(restart)
[18:41:33.623]                           muffled <- TRUE
[18:41:33.623]                           break
[18:41:33.623]                         }
[18:41:33.623]                       }
[18:41:33.623]                     }
[18:41:33.623]                     invisible(muffled)
[18:41:33.623]                   }
[18:41:33.623]                   muffleCondition(cond)
[18:41:33.623]                 })
[18:41:33.623]             }))
[18:41:33.623]             future::FutureResult(value = ...future.value$value, 
[18:41:33.623]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.623]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.623]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.623]                     ...future.globalenv.names))
[18:41:33.623]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.623]         }, condition = base::local({
[18:41:33.623]             c <- base::c
[18:41:33.623]             inherits <- base::inherits
[18:41:33.623]             invokeRestart <- base::invokeRestart
[18:41:33.623]             length <- base::length
[18:41:33.623]             list <- base::list
[18:41:33.623]             seq.int <- base::seq.int
[18:41:33.623]             signalCondition <- base::signalCondition
[18:41:33.623]             sys.calls <- base::sys.calls
[18:41:33.623]             `[[` <- base::`[[`
[18:41:33.623]             `+` <- base::`+`
[18:41:33.623]             `<<-` <- base::`<<-`
[18:41:33.623]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.623]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.623]                   3L)]
[18:41:33.623]             }
[18:41:33.623]             function(cond) {
[18:41:33.623]                 is_error <- inherits(cond, "error")
[18:41:33.623]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.623]                   NULL)
[18:41:33.623]                 if (is_error) {
[18:41:33.623]                   sessionInformation <- function() {
[18:41:33.623]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.623]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.623]                       search = base::search(), system = base::Sys.info())
[18:41:33.623]                   }
[18:41:33.623]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.623]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.623]                     cond$call), session = sessionInformation(), 
[18:41:33.623]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.623]                   signalCondition(cond)
[18:41:33.623]                 }
[18:41:33.623]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.623]                 "immediateCondition"))) {
[18:41:33.623]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.623]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.623]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.623]                   if (TRUE && !signal) {
[18:41:33.623]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.623]                     {
[18:41:33.623]                       inherits <- base::inherits
[18:41:33.623]                       invokeRestart <- base::invokeRestart
[18:41:33.623]                       is.null <- base::is.null
[18:41:33.623]                       muffled <- FALSE
[18:41:33.623]                       if (inherits(cond, "message")) {
[18:41:33.623]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.623]                         if (muffled) 
[18:41:33.623]                           invokeRestart("muffleMessage")
[18:41:33.623]                       }
[18:41:33.623]                       else if (inherits(cond, "warning")) {
[18:41:33.623]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.623]                         if (muffled) 
[18:41:33.623]                           invokeRestart("muffleWarning")
[18:41:33.623]                       }
[18:41:33.623]                       else if (inherits(cond, "condition")) {
[18:41:33.623]                         if (!is.null(pattern)) {
[18:41:33.623]                           computeRestarts <- base::computeRestarts
[18:41:33.623]                           grepl <- base::grepl
[18:41:33.623]                           restarts <- computeRestarts(cond)
[18:41:33.623]                           for (restart in restarts) {
[18:41:33.623]                             name <- restart$name
[18:41:33.623]                             if (is.null(name)) 
[18:41:33.623]                               next
[18:41:33.623]                             if (!grepl(pattern, name)) 
[18:41:33.623]                               next
[18:41:33.623]                             invokeRestart(restart)
[18:41:33.623]                             muffled <- TRUE
[18:41:33.623]                             break
[18:41:33.623]                           }
[18:41:33.623]                         }
[18:41:33.623]                       }
[18:41:33.623]                       invisible(muffled)
[18:41:33.623]                     }
[18:41:33.623]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.623]                   }
[18:41:33.623]                 }
[18:41:33.623]                 else {
[18:41:33.623]                   if (TRUE) {
[18:41:33.623]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.623]                     {
[18:41:33.623]                       inherits <- base::inherits
[18:41:33.623]                       invokeRestart <- base::invokeRestart
[18:41:33.623]                       is.null <- base::is.null
[18:41:33.623]                       muffled <- FALSE
[18:41:33.623]                       if (inherits(cond, "message")) {
[18:41:33.623]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.623]                         if (muffled) 
[18:41:33.623]                           invokeRestart("muffleMessage")
[18:41:33.623]                       }
[18:41:33.623]                       else if (inherits(cond, "warning")) {
[18:41:33.623]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.623]                         if (muffled) 
[18:41:33.623]                           invokeRestart("muffleWarning")
[18:41:33.623]                       }
[18:41:33.623]                       else if (inherits(cond, "condition")) {
[18:41:33.623]                         if (!is.null(pattern)) {
[18:41:33.623]                           computeRestarts <- base::computeRestarts
[18:41:33.623]                           grepl <- base::grepl
[18:41:33.623]                           restarts <- computeRestarts(cond)
[18:41:33.623]                           for (restart in restarts) {
[18:41:33.623]                             name <- restart$name
[18:41:33.623]                             if (is.null(name)) 
[18:41:33.623]                               next
[18:41:33.623]                             if (!grepl(pattern, name)) 
[18:41:33.623]                               next
[18:41:33.623]                             invokeRestart(restart)
[18:41:33.623]                             muffled <- TRUE
[18:41:33.623]                             break
[18:41:33.623]                           }
[18:41:33.623]                         }
[18:41:33.623]                       }
[18:41:33.623]                       invisible(muffled)
[18:41:33.623]                     }
[18:41:33.623]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.623]                   }
[18:41:33.623]                 }
[18:41:33.623]             }
[18:41:33.623]         }))
[18:41:33.623]     }, error = function(ex) {
[18:41:33.623]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.623]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.623]                 ...future.rng), started = ...future.startTime, 
[18:41:33.623]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.623]             version = "1.8"), class = "FutureResult")
[18:41:33.623]     }, finally = {
[18:41:33.623]         if (!identical(...future.workdir, getwd())) 
[18:41:33.623]             setwd(...future.workdir)
[18:41:33.623]         {
[18:41:33.623]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.623]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.623]             }
[18:41:33.623]             base::options(...future.oldOptions)
[18:41:33.623]             if (.Platform$OS.type == "windows") {
[18:41:33.623]                 old_names <- names(...future.oldEnvVars)
[18:41:33.623]                 envs <- base::Sys.getenv()
[18:41:33.623]                 names <- names(envs)
[18:41:33.623]                 common <- intersect(names, old_names)
[18:41:33.623]                 added <- setdiff(names, old_names)
[18:41:33.623]                 removed <- setdiff(old_names, names)
[18:41:33.623]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.623]                   envs[common]]
[18:41:33.623]                 NAMES <- toupper(changed)
[18:41:33.623]                 args <- list()
[18:41:33.623]                 for (kk in seq_along(NAMES)) {
[18:41:33.623]                   name <- changed[[kk]]
[18:41:33.623]                   NAME <- NAMES[[kk]]
[18:41:33.623]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.623]                     next
[18:41:33.623]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.623]                 }
[18:41:33.623]                 NAMES <- toupper(added)
[18:41:33.623]                 for (kk in seq_along(NAMES)) {
[18:41:33.623]                   name <- added[[kk]]
[18:41:33.623]                   NAME <- NAMES[[kk]]
[18:41:33.623]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.623]                     next
[18:41:33.623]                   args[[name]] <- ""
[18:41:33.623]                 }
[18:41:33.623]                 NAMES <- toupper(removed)
[18:41:33.623]                 for (kk in seq_along(NAMES)) {
[18:41:33.623]                   name <- removed[[kk]]
[18:41:33.623]                   NAME <- NAMES[[kk]]
[18:41:33.623]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.623]                     next
[18:41:33.623]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.623]                 }
[18:41:33.623]                 if (length(args) > 0) 
[18:41:33.623]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.623]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.623]             }
[18:41:33.623]             else {
[18:41:33.623]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.623]             }
[18:41:33.623]             {
[18:41:33.623]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.623]                   0L) {
[18:41:33.623]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.623]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.623]                   base::options(opts)
[18:41:33.623]                 }
[18:41:33.623]                 {
[18:41:33.623]                   {
[18:41:33.623]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.623]                     NULL
[18:41:33.623]                   }
[18:41:33.623]                   options(future.plan = NULL)
[18:41:33.623]                   if (is.na(NA_character_)) 
[18:41:33.623]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.623]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.623]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.623]                     .init = FALSE)
[18:41:33.623]                 }
[18:41:33.623]             }
[18:41:33.623]         }
[18:41:33.623]     })
[18:41:33.623]     if (TRUE) {
[18:41:33.623]         base::sink(type = "output", split = FALSE)
[18:41:33.623]         if (TRUE) {
[18:41:33.623]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.623]         }
[18:41:33.623]         else {
[18:41:33.623]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.623]         }
[18:41:33.623]         base::close(...future.stdout)
[18:41:33.623]         ...future.stdout <- NULL
[18:41:33.623]     }
[18:41:33.623]     ...future.result$conditions <- ...future.conditions
[18:41:33.623]     ...future.result$finished <- base::Sys.time()
[18:41:33.623]     ...future.result
[18:41:33.623] }
[18:41:33.632] Exporting 5 global objects (669 bytes) to cluster node #1 ...
[18:41:33.632] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.633] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.633] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:33.634] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:33.634] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ...
[18:41:33.634] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ... DONE
[18:41:33.635] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.635] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.636] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.636] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.636] Exporting 5 global objects (669 bytes) to cluster node #1 ... DONE
[18:41:33.637] MultisessionFuture started
[18:41:33.637] - Launch lazy future ... done
[18:41:33.638] run() for 'MultisessionFuture' ... done
[18:41:33.638] Created future:
[18:41:33.653] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.653] - Validating connection of MultisessionFuture
[18:41:33.654] - received message: FutureResult
[18:41:33.654] - Received FutureResult
[18:41:33.654] - Erased future from FutureRegistry
[18:41:33.654] result() for ClusterFuture ...
[18:41:33.654] - result already collected: FutureResult
[18:41:33.655] result() for ClusterFuture ... done
[18:41:33.655] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.638] MultisessionFuture:
[18:41:33.638] Label: 'future_mapply-2'
[18:41:33.638] Expression:
[18:41:33.638] {
[18:41:33.638]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.638]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.638]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.638]         on.exit(options(oopts), add = TRUE)
[18:41:33.638]     }
[18:41:33.638]     {
[18:41:33.638]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.638]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.638]         do.call(mapply, args = args)
[18:41:33.638]     }
[18:41:33.638] }
[18:41:33.638] Lazy evaluation: FALSE
[18:41:33.638] Asynchronous evaluation: TRUE
[18:41:33.638] Local evaluation: TRUE
[18:41:33.638] Environment: R_GlobalEnv
[18:41:33.638] Capture standard output: TRUE
[18:41:33.638] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.638] Globals: 5 objects totaling 210 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 95 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.638] Packages: <none>
[18:41:33.638] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.638] Resolved: TRUE
[18:41:33.638] Value: <not collected>
[18:41:33.638] Conditions captured: <none>
[18:41:33.638] Early signaling: FALSE
[18:41:33.638] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.638] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.655] Chunk #2 of 2 ... DONE
[18:41:33.655] Launching 2 futures (chunks) ... DONE
[18:41:33.655] Resolving 2 futures (chunks) ...
[18:41:33.656] resolve() on list ...
[18:41:33.656]  recursive: 0
[18:41:33.656]  length: 2
[18:41:33.656] 
[18:41:33.656] Future #1
[18:41:33.656] result() for ClusterFuture ...
[18:41:33.657] - result already collected: FutureResult
[18:41:33.657] result() for ClusterFuture ... done
[18:41:33.657] result() for ClusterFuture ...
[18:41:33.657] - result already collected: FutureResult
[18:41:33.657] result() for ClusterFuture ... done
[18:41:33.658] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:33.658] - nx: 2
[18:41:33.658] - relay: TRUE
[18:41:33.658] - stdout: TRUE
[18:41:33.658] - signal: TRUE
[18:41:33.658] - resignal: FALSE
[18:41:33.658] - force: TRUE
[18:41:33.659] - relayed: [n=2] FALSE, FALSE
[18:41:33.659] - queued futures: [n=2] FALSE, FALSE
[18:41:33.659]  - until=1
[18:41:33.659]  - relaying element #1
[18:41:33.659] result() for ClusterFuture ...
[18:41:33.660] - result already collected: FutureResult
[18:41:33.660] result() for ClusterFuture ... done
[18:41:33.660] result() for ClusterFuture ...
[18:41:33.660] - result already collected: FutureResult
[18:41:33.660] result() for ClusterFuture ... done
[18:41:33.661] result() for ClusterFuture ...
[18:41:33.661] - result already collected: FutureResult
[18:41:33.661] result() for ClusterFuture ... done
[18:41:33.662] result() for ClusterFuture ...
[18:41:33.662] - result already collected: FutureResult
[18:41:33.662] result() for ClusterFuture ... done
[18:41:33.662] - relayed: [n=2] TRUE, FALSE
[18:41:33.662] - queued futures: [n=2] TRUE, FALSE
[18:41:33.662] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:33.663]  length: 1 (resolved future 1)
[18:41:33.663] Future #2
[18:41:33.663] result() for ClusterFuture ...
[18:41:33.663] - result already collected: FutureResult
[18:41:33.663] result() for ClusterFuture ... done
[18:41:33.664] result() for ClusterFuture ...
[18:41:33.664] - result already collected: FutureResult
[18:41:33.664] result() for ClusterFuture ... done
[18:41:33.664] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:33.664] - nx: 2
[18:41:33.664] - relay: TRUE
[18:41:33.665] - stdout: TRUE
[18:41:33.665] - signal: TRUE
[18:41:33.665] - resignal: FALSE
[18:41:33.665] - force: TRUE
[18:41:33.665] - relayed: [n=2] TRUE, FALSE
[18:41:33.665] - queued futures: [n=2] TRUE, FALSE
[18:41:33.666]  - until=2
[18:41:33.666]  - relaying element #2
[18:41:33.666] result() for ClusterFuture ...
[18:41:33.666] - result already collected: FutureResult
[18:41:33.666] result() for ClusterFuture ... done
[18:41:33.666] result() for ClusterFuture ...
[18:41:33.667] - result already collected: FutureResult
[18:41:33.667] result() for ClusterFuture ... done
[18:41:33.667] result() for ClusterFuture ...
[18:41:33.667] - result already collected: FutureResult
[18:41:33.667] result() for ClusterFuture ... done
[18:41:33.668] result() for ClusterFuture ...
[18:41:33.668] - result already collected: FutureResult
[18:41:33.668] result() for ClusterFuture ... done
[18:41:33.668] - relayed: [n=2] TRUE, TRUE
[18:41:33.668] - queued futures: [n=2] TRUE, TRUE
[18:41:33.668] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:33.669]  length: 0 (resolved future 2)
[18:41:33.669] Relaying remaining futures
[18:41:33.669] signalConditionsASAP(NULL, pos=0) ...
[18:41:33.669] - nx: 2
[18:41:33.669] - relay: TRUE
[18:41:33.670] - stdout: TRUE
[18:41:33.670] - signal: TRUE
[18:41:33.670] - resignal: FALSE
[18:41:33.670] - force: TRUE
[18:41:33.670] - relayed: [n=2] TRUE, TRUE
[18:41:33.670] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:33.671] - relayed: [n=2] TRUE, TRUE
[18:41:33.671] - queued futures: [n=2] TRUE, TRUE
[18:41:33.671] signalConditionsASAP(NULL, pos=0) ... done
[18:41:33.671] resolve() on list ... DONE
[18:41:33.671] result() for ClusterFuture ...
[18:41:33.672] - result already collected: FutureResult
[18:41:33.672] result() for ClusterFuture ... done
[18:41:33.672] result() for ClusterFuture ...
[18:41:33.672] - result already collected: FutureResult
[18:41:33.672] result() for ClusterFuture ... done
[18:41:33.672] result() for ClusterFuture ...
[18:41:33.673] - result already collected: FutureResult
[18:41:33.673] result() for ClusterFuture ... done
[18:41:33.673] result() for ClusterFuture ...
[18:41:33.673] - result already collected: FutureResult
[18:41:33.673] result() for ClusterFuture ... done
[18:41:33.673]  - Number of value chunks collected: 2
[18:41:33.674] Resolving 2 futures (chunks) ... DONE
[18:41:33.674] Reducing values from 2 chunks ...
[18:41:33.674]  - Number of values collected after concatenation: 4
[18:41:33.674]  - Number of values expected: 4
[18:41:33.674] Reducing values from 2 chunks ... DONE
[18:41:33.675] future_mapply() ... DONE
[18:41:33.675] future_mapply() ...
[18:41:33.678] Number of chunks: 2
[18:41:33.678] getGlobalsAndPackagesXApply() ...
[18:41:33.678]  - future.globals: TRUE
[18:41:33.678] getGlobalsAndPackages() ...
[18:41:33.678] Searching for globals...
[18:41:33.679] - globals found: [1] 'FUN'
[18:41:33.679] Searching for globals ... DONE
[18:41:33.680] Resolving globals: FALSE
[18:41:33.680] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:33.681] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:33.681] - globals: [1] 'FUN'
[18:41:33.681] 
[18:41:33.681] getGlobalsAndPackages() ... DONE
[18:41:33.681]  - globals found/used: [n=1] 'FUN'
[18:41:33.682]  - needed namespaces: [n=0] 
[18:41:33.682] Finding globals ... DONE
[18:41:33.682] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:33.682] List of 2
[18:41:33.682]  $ ...future.FUN:function (x, ...)  
[18:41:33.682]  $ MoreArgs     : NULL
[18:41:33.682]  - attr(*, "where")=List of 2
[18:41:33.682]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:33.682]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:33.682]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:33.682]  - attr(*, "resolved")= logi FALSE
[18:41:33.682]  - attr(*, "total_size")= num NA
[18:41:33.686] Packages to be attached in all futures: [n=0] 
[18:41:33.686] getGlobalsAndPackagesXApply() ... DONE
[18:41:33.686] Number of futures (= number of chunks): 2
[18:41:33.686] Launching 2 futures (chunks) ...
[18:41:33.686] Chunk #1 of 2 ...
[18:41:33.687]  - Finding globals in '...' for chunk #1 ...
[18:41:33.687] getGlobalsAndPackages() ...
[18:41:33.687] Searching for globals...
[18:41:33.687] 
[18:41:33.688] Searching for globals ... DONE
[18:41:33.688] - globals: [0] <none>
[18:41:33.688] getGlobalsAndPackages() ... DONE
[18:41:33.688]    + additional globals found: [n=0] 
[18:41:33.688]    + additional namespaces needed: [n=0] 
[18:41:33.688]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:33.689]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.689]  - seeds: <none>
[18:41:33.689]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.689] getGlobalsAndPackages() ...
[18:41:33.689] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.689] Resolving globals: FALSE
[18:41:33.690] The total size of the 5 globals is 265 bytes (265 bytes)
[18:41:33.691] 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 265 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (150 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.691] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.691] 
[18:41:33.691] getGlobalsAndPackages() ... DONE
[18:41:33.692] run() for 'Future' ...
[18:41:33.692] - state: 'created'
[18:41:33.692] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.707] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.708] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.708]   - Field: 'node'
[18:41:33.708]   - Field: 'label'
[18:41:33.708]   - Field: 'local'
[18:41:33.708]   - Field: 'owner'
[18:41:33.709]   - Field: 'envir'
[18:41:33.709]   - Field: 'workers'
[18:41:33.709]   - Field: 'packages'
[18:41:33.709]   - Field: 'gc'
[18:41:33.709]   - Field: 'conditions'
[18:41:33.710]   - Field: 'persistent'
[18:41:33.710]   - Field: 'expr'
[18:41:33.710]   - Field: 'uuid'
[18:41:33.710]   - Field: 'seed'
[18:41:33.710]   - Field: 'version'
[18:41:33.710]   - Field: 'result'
[18:41:33.711]   - Field: 'asynchronous'
[18:41:33.711]   - Field: 'calls'
[18:41:33.711]   - Field: 'globals'
[18:41:33.711]   - Field: 'stdout'
[18:41:33.711]   - Field: 'earlySignal'
[18:41:33.712]   - Field: 'lazy'
[18:41:33.712]   - Field: 'state'
[18:41:33.712] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.712] - Launch lazy future ...
[18:41:33.712] Packages needed by the future expression (n = 0): <none>
[18:41:33.713] Packages needed by future strategies (n = 0): <none>
[18:41:33.713] {
[18:41:33.713]     {
[18:41:33.713]         {
[18:41:33.713]             ...future.startTime <- base::Sys.time()
[18:41:33.713]             {
[18:41:33.713]                 {
[18:41:33.713]                   {
[18:41:33.713]                     {
[18:41:33.713]                       base::local({
[18:41:33.713]                         has_future <- base::requireNamespace("future", 
[18:41:33.713]                           quietly = TRUE)
[18:41:33.713]                         if (has_future) {
[18:41:33.713]                           ns <- base::getNamespace("future")
[18:41:33.713]                           version <- ns[[".package"]][["version"]]
[18:41:33.713]                           if (is.null(version)) 
[18:41:33.713]                             version <- utils::packageVersion("future")
[18:41:33.713]                         }
[18:41:33.713]                         else {
[18:41:33.713]                           version <- NULL
[18:41:33.713]                         }
[18:41:33.713]                         if (!has_future || version < "1.8.0") {
[18:41:33.713]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.713]                             "", base::R.version$version.string), 
[18:41:33.713]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.713]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.713]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.713]                               "release", "version")], collapse = " "), 
[18:41:33.713]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.713]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.713]                             info)
[18:41:33.713]                           info <- base::paste(info, collapse = "; ")
[18:41:33.713]                           if (!has_future) {
[18:41:33.713]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.713]                               info)
[18:41:33.713]                           }
[18:41:33.713]                           else {
[18:41:33.713]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.713]                               info, version)
[18:41:33.713]                           }
[18:41:33.713]                           base::stop(msg)
[18:41:33.713]                         }
[18:41:33.713]                       })
[18:41:33.713]                     }
[18:41:33.713]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.713]                     base::options(mc.cores = 1L)
[18:41:33.713]                   }
[18:41:33.713]                   ...future.strategy.old <- future::plan("list")
[18:41:33.713]                   options(future.plan = NULL)
[18:41:33.713]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.713]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.713]                 }
[18:41:33.713]                 ...future.workdir <- getwd()
[18:41:33.713]             }
[18:41:33.713]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.713]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.713]         }
[18:41:33.713]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.713]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.713]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.713]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.713]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.713]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.713]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.713]             base::names(...future.oldOptions))
[18:41:33.713]     }
[18:41:33.713]     if (FALSE) {
[18:41:33.713]     }
[18:41:33.713]     else {
[18:41:33.713]         if (TRUE) {
[18:41:33.713]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.713]                 open = "w")
[18:41:33.713]         }
[18:41:33.713]         else {
[18:41:33.713]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.713]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.713]         }
[18:41:33.713]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.713]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.713]             base::sink(type = "output", split = FALSE)
[18:41:33.713]             base::close(...future.stdout)
[18:41:33.713]         }, add = TRUE)
[18:41:33.713]     }
[18:41:33.713]     ...future.frame <- base::sys.nframe()
[18:41:33.713]     ...future.conditions <- base::list()
[18:41:33.713]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.713]     if (FALSE) {
[18:41:33.713]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.713]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.713]     }
[18:41:33.713]     ...future.result <- base::tryCatch({
[18:41:33.713]         base::withCallingHandlers({
[18:41:33.713]             ...future.value <- base::withVisible(base::local({
[18:41:33.713]                 ...future.makeSendCondition <- base::local({
[18:41:33.713]                   sendCondition <- NULL
[18:41:33.713]                   function(frame = 1L) {
[18:41:33.713]                     if (is.function(sendCondition)) 
[18:41:33.713]                       return(sendCondition)
[18:41:33.713]                     ns <- getNamespace("parallel")
[18:41:33.713]                     if (exists("sendData", mode = "function", 
[18:41:33.713]                       envir = ns)) {
[18:41:33.713]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.713]                         envir = ns)
[18:41:33.713]                       envir <- sys.frame(frame)
[18:41:33.713]                       master <- NULL
[18:41:33.713]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.713]                         !identical(envir, emptyenv())) {
[18:41:33.713]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.713]                           inherits = FALSE)) {
[18:41:33.713]                           master <- get("master", mode = "list", 
[18:41:33.713]                             envir = envir, inherits = FALSE)
[18:41:33.713]                           if (inherits(master, c("SOCKnode", 
[18:41:33.713]                             "SOCK0node"))) {
[18:41:33.713]                             sendCondition <<- function(cond) {
[18:41:33.713]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.713]                                 success = TRUE)
[18:41:33.713]                               parallel_sendData(master, data)
[18:41:33.713]                             }
[18:41:33.713]                             return(sendCondition)
[18:41:33.713]                           }
[18:41:33.713]                         }
[18:41:33.713]                         frame <- frame + 1L
[18:41:33.713]                         envir <- sys.frame(frame)
[18:41:33.713]                       }
[18:41:33.713]                     }
[18:41:33.713]                     sendCondition <<- function(cond) NULL
[18:41:33.713]                   }
[18:41:33.713]                 })
[18:41:33.713]                 withCallingHandlers({
[18:41:33.713]                   {
[18:41:33.713]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.713]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.713]                       ...future.globals.maxSize)) {
[18:41:33.713]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.713]                       on.exit(options(oopts), add = TRUE)
[18:41:33.713]                     }
[18:41:33.713]                     {
[18:41:33.713]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.713]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.713]                         USE.NAMES = FALSE)
[18:41:33.713]                       do.call(mapply, args = args)
[18:41:33.713]                     }
[18:41:33.713]                   }
[18:41:33.713]                 }, immediateCondition = function(cond) {
[18:41:33.713]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.713]                   sendCondition(cond)
[18:41:33.713]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.713]                   {
[18:41:33.713]                     inherits <- base::inherits
[18:41:33.713]                     invokeRestart <- base::invokeRestart
[18:41:33.713]                     is.null <- base::is.null
[18:41:33.713]                     muffled <- FALSE
[18:41:33.713]                     if (inherits(cond, "message")) {
[18:41:33.713]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.713]                       if (muffled) 
[18:41:33.713]                         invokeRestart("muffleMessage")
[18:41:33.713]                     }
[18:41:33.713]                     else if (inherits(cond, "warning")) {
[18:41:33.713]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.713]                       if (muffled) 
[18:41:33.713]                         invokeRestart("muffleWarning")
[18:41:33.713]                     }
[18:41:33.713]                     else if (inherits(cond, "condition")) {
[18:41:33.713]                       if (!is.null(pattern)) {
[18:41:33.713]                         computeRestarts <- base::computeRestarts
[18:41:33.713]                         grepl <- base::grepl
[18:41:33.713]                         restarts <- computeRestarts(cond)
[18:41:33.713]                         for (restart in restarts) {
[18:41:33.713]                           name <- restart$name
[18:41:33.713]                           if (is.null(name)) 
[18:41:33.713]                             next
[18:41:33.713]                           if (!grepl(pattern, name)) 
[18:41:33.713]                             next
[18:41:33.713]                           invokeRestart(restart)
[18:41:33.713]                           muffled <- TRUE
[18:41:33.713]                           break
[18:41:33.713]                         }
[18:41:33.713]                       }
[18:41:33.713]                     }
[18:41:33.713]                     invisible(muffled)
[18:41:33.713]                   }
[18:41:33.713]                   muffleCondition(cond)
[18:41:33.713]                 })
[18:41:33.713]             }))
[18:41:33.713]             future::FutureResult(value = ...future.value$value, 
[18:41:33.713]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.713]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.713]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.713]                     ...future.globalenv.names))
[18:41:33.713]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.713]         }, condition = base::local({
[18:41:33.713]             c <- base::c
[18:41:33.713]             inherits <- base::inherits
[18:41:33.713]             invokeRestart <- base::invokeRestart
[18:41:33.713]             length <- base::length
[18:41:33.713]             list <- base::list
[18:41:33.713]             seq.int <- base::seq.int
[18:41:33.713]             signalCondition <- base::signalCondition
[18:41:33.713]             sys.calls <- base::sys.calls
[18:41:33.713]             `[[` <- base::`[[`
[18:41:33.713]             `+` <- base::`+`
[18:41:33.713]             `<<-` <- base::`<<-`
[18:41:33.713]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.713]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.713]                   3L)]
[18:41:33.713]             }
[18:41:33.713]             function(cond) {
[18:41:33.713]                 is_error <- inherits(cond, "error")
[18:41:33.713]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.713]                   NULL)
[18:41:33.713]                 if (is_error) {
[18:41:33.713]                   sessionInformation <- function() {
[18:41:33.713]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.713]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.713]                       search = base::search(), system = base::Sys.info())
[18:41:33.713]                   }
[18:41:33.713]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.713]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.713]                     cond$call), session = sessionInformation(), 
[18:41:33.713]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.713]                   signalCondition(cond)
[18:41:33.713]                 }
[18:41:33.713]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.713]                 "immediateCondition"))) {
[18:41:33.713]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.713]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.713]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.713]                   if (TRUE && !signal) {
[18:41:33.713]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.713]                     {
[18:41:33.713]                       inherits <- base::inherits
[18:41:33.713]                       invokeRestart <- base::invokeRestart
[18:41:33.713]                       is.null <- base::is.null
[18:41:33.713]                       muffled <- FALSE
[18:41:33.713]                       if (inherits(cond, "message")) {
[18:41:33.713]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.713]                         if (muffled) 
[18:41:33.713]                           invokeRestart("muffleMessage")
[18:41:33.713]                       }
[18:41:33.713]                       else if (inherits(cond, "warning")) {
[18:41:33.713]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.713]                         if (muffled) 
[18:41:33.713]                           invokeRestart("muffleWarning")
[18:41:33.713]                       }
[18:41:33.713]                       else if (inherits(cond, "condition")) {
[18:41:33.713]                         if (!is.null(pattern)) {
[18:41:33.713]                           computeRestarts <- base::computeRestarts
[18:41:33.713]                           grepl <- base::grepl
[18:41:33.713]                           restarts <- computeRestarts(cond)
[18:41:33.713]                           for (restart in restarts) {
[18:41:33.713]                             name <- restart$name
[18:41:33.713]                             if (is.null(name)) 
[18:41:33.713]                               next
[18:41:33.713]                             if (!grepl(pattern, name)) 
[18:41:33.713]                               next
[18:41:33.713]                             invokeRestart(restart)
[18:41:33.713]                             muffled <- TRUE
[18:41:33.713]                             break
[18:41:33.713]                           }
[18:41:33.713]                         }
[18:41:33.713]                       }
[18:41:33.713]                       invisible(muffled)
[18:41:33.713]                     }
[18:41:33.713]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.713]                   }
[18:41:33.713]                 }
[18:41:33.713]                 else {
[18:41:33.713]                   if (TRUE) {
[18:41:33.713]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.713]                     {
[18:41:33.713]                       inherits <- base::inherits
[18:41:33.713]                       invokeRestart <- base::invokeRestart
[18:41:33.713]                       is.null <- base::is.null
[18:41:33.713]                       muffled <- FALSE
[18:41:33.713]                       if (inherits(cond, "message")) {
[18:41:33.713]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.713]                         if (muffled) 
[18:41:33.713]                           invokeRestart("muffleMessage")
[18:41:33.713]                       }
[18:41:33.713]                       else if (inherits(cond, "warning")) {
[18:41:33.713]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.713]                         if (muffled) 
[18:41:33.713]                           invokeRestart("muffleWarning")
[18:41:33.713]                       }
[18:41:33.713]                       else if (inherits(cond, "condition")) {
[18:41:33.713]                         if (!is.null(pattern)) {
[18:41:33.713]                           computeRestarts <- base::computeRestarts
[18:41:33.713]                           grepl <- base::grepl
[18:41:33.713]                           restarts <- computeRestarts(cond)
[18:41:33.713]                           for (restart in restarts) {
[18:41:33.713]                             name <- restart$name
[18:41:33.713]                             if (is.null(name)) 
[18:41:33.713]                               next
[18:41:33.713]                             if (!grepl(pattern, name)) 
[18:41:33.713]                               next
[18:41:33.713]                             invokeRestart(restart)
[18:41:33.713]                             muffled <- TRUE
[18:41:33.713]                             break
[18:41:33.713]                           }
[18:41:33.713]                         }
[18:41:33.713]                       }
[18:41:33.713]                       invisible(muffled)
[18:41:33.713]                     }
[18:41:33.713]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.713]                   }
[18:41:33.713]                 }
[18:41:33.713]             }
[18:41:33.713]         }))
[18:41:33.713]     }, error = function(ex) {
[18:41:33.713]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.713]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.713]                 ...future.rng), started = ...future.startTime, 
[18:41:33.713]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.713]             version = "1.8"), class = "FutureResult")
[18:41:33.713]     }, finally = {
[18:41:33.713]         if (!identical(...future.workdir, getwd())) 
[18:41:33.713]             setwd(...future.workdir)
[18:41:33.713]         {
[18:41:33.713]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.713]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.713]             }
[18:41:33.713]             base::options(...future.oldOptions)
[18:41:33.713]             if (.Platform$OS.type == "windows") {
[18:41:33.713]                 old_names <- names(...future.oldEnvVars)
[18:41:33.713]                 envs <- base::Sys.getenv()
[18:41:33.713]                 names <- names(envs)
[18:41:33.713]                 common <- intersect(names, old_names)
[18:41:33.713]                 added <- setdiff(names, old_names)
[18:41:33.713]                 removed <- setdiff(old_names, names)
[18:41:33.713]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.713]                   envs[common]]
[18:41:33.713]                 NAMES <- toupper(changed)
[18:41:33.713]                 args <- list()
[18:41:33.713]                 for (kk in seq_along(NAMES)) {
[18:41:33.713]                   name <- changed[[kk]]
[18:41:33.713]                   NAME <- NAMES[[kk]]
[18:41:33.713]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.713]                     next
[18:41:33.713]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.713]                 }
[18:41:33.713]                 NAMES <- toupper(added)
[18:41:33.713]                 for (kk in seq_along(NAMES)) {
[18:41:33.713]                   name <- added[[kk]]
[18:41:33.713]                   NAME <- NAMES[[kk]]
[18:41:33.713]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.713]                     next
[18:41:33.713]                   args[[name]] <- ""
[18:41:33.713]                 }
[18:41:33.713]                 NAMES <- toupper(removed)
[18:41:33.713]                 for (kk in seq_along(NAMES)) {
[18:41:33.713]                   name <- removed[[kk]]
[18:41:33.713]                   NAME <- NAMES[[kk]]
[18:41:33.713]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.713]                     next
[18:41:33.713]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.713]                 }
[18:41:33.713]                 if (length(args) > 0) 
[18:41:33.713]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.713]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.713]             }
[18:41:33.713]             else {
[18:41:33.713]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.713]             }
[18:41:33.713]             {
[18:41:33.713]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.713]                   0L) {
[18:41:33.713]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.713]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.713]                   base::options(opts)
[18:41:33.713]                 }
[18:41:33.713]                 {
[18:41:33.713]                   {
[18:41:33.713]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.713]                     NULL
[18:41:33.713]                   }
[18:41:33.713]                   options(future.plan = NULL)
[18:41:33.713]                   if (is.na(NA_character_)) 
[18:41:33.713]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.713]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.713]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.713]                     .init = FALSE)
[18:41:33.713]                 }
[18:41:33.713]             }
[18:41:33.713]         }
[18:41:33.713]     })
[18:41:33.713]     if (TRUE) {
[18:41:33.713]         base::sink(type = "output", split = FALSE)
[18:41:33.713]         if (TRUE) {
[18:41:33.713]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.713]         }
[18:41:33.713]         else {
[18:41:33.713]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.713]         }
[18:41:33.713]         base::close(...future.stdout)
[18:41:33.713]         ...future.stdout <- NULL
[18:41:33.713]     }
[18:41:33.713]     ...future.result$conditions <- ...future.conditions
[18:41:33.713]     ...future.result$finished <- base::Sys.time()
[18:41:33.713]     ...future.result
[18:41:33.713] }
[18:41:33.718] Exporting 5 global objects (711 bytes) to cluster node #1 ...
[18:41:33.719] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.719] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.719] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:33.720] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:33.720] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ...
[18:41:33.720] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ... DONE
[18:41:33.721] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.721] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.721] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.722] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.722] Exporting 5 global objects (711 bytes) to cluster node #1 ... DONE
[18:41:33.723] MultisessionFuture started
[18:41:33.723] - Launch lazy future ... done
[18:41:33.723] run() for 'MultisessionFuture' ... done
[18:41:33.725] Created future:
[18:41:33.737] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.738] - Validating connection of MultisessionFuture
[18:41:33.738] - received message: FutureResult
[18:41:33.738] - Received FutureResult
[18:41:33.738] - Erased future from FutureRegistry
[18:41:33.739] result() for ClusterFuture ...
[18:41:33.739] - result already collected: FutureResult
[18:41:33.739] result() for ClusterFuture ... done
[18:41:33.739] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.725] MultisessionFuture:
[18:41:33.725] Label: 'future_mapply-1'
[18:41:33.725] Expression:
[18:41:33.725] {
[18:41:33.725]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.725]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.725]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.725]         on.exit(options(oopts), add = TRUE)
[18:41:33.725]     }
[18:41:33.725]     {
[18:41:33.725]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.725]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.725]         do.call(mapply, args = args)
[18:41:33.725]     }
[18:41:33.725] }
[18:41:33.725] Lazy evaluation: FALSE
[18:41:33.725] Asynchronous evaluation: TRUE
[18:41:33.725] Local evaluation: TRUE
[18:41:33.725] Environment: R_GlobalEnv
[18:41:33.725] Capture standard output: TRUE
[18:41:33.725] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.725] Globals: 5 objects totaling 265 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 150 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.725] Packages: <none>
[18:41:33.725] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.725] Resolved: TRUE
[18:41:33.725] Value: <not collected>
[18:41:33.725] Conditions captured: <none>
[18:41:33.725] Early signaling: FALSE
[18:41:33.725] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.725] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.739] Chunk #1 of 2 ... DONE
[18:41:33.740] Chunk #2 of 2 ...
[18:41:33.740]  - Finding globals in '...' for chunk #2 ...
[18:41:33.740] getGlobalsAndPackages() ...
[18:41:33.740] Searching for globals...
[18:41:33.741] 
[18:41:33.741] Searching for globals ... DONE
[18:41:33.741] - globals: [0] <none>
[18:41:33.741] getGlobalsAndPackages() ... DONE
[18:41:33.741]    + additional globals found: [n=0] 
[18:41:33.741]    + additional namespaces needed: [n=0] 
[18:41:33.742]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:33.742]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.742]  - seeds: <none>
[18:41:33.742]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.742] getGlobalsAndPackages() ...
[18:41:33.742] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.743] Resolving globals: FALSE
[18:41:33.743] The total size of the 5 globals is 265 bytes (265 bytes)
[18:41:33.744] 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 265 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (150 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.744] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.744] 
[18:41:33.744] getGlobalsAndPackages() ... DONE
[18:41:33.745] run() for 'Future' ...
[18:41:33.745] - state: 'created'
[18:41:33.745] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.760] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.760] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.761]   - Field: 'node'
[18:41:33.761]   - Field: 'label'
[18:41:33.761]   - Field: 'local'
[18:41:33.761]   - Field: 'owner'
[18:41:33.761]   - Field: 'envir'
[18:41:33.761]   - Field: 'workers'
[18:41:33.762]   - Field: 'packages'
[18:41:33.762]   - Field: 'gc'
[18:41:33.762]   - Field: 'conditions'
[18:41:33.762]   - Field: 'persistent'
[18:41:33.762]   - Field: 'expr'
[18:41:33.762]   - Field: 'uuid'
[18:41:33.763]   - Field: 'seed'
[18:41:33.763]   - Field: 'version'
[18:41:33.763]   - Field: 'result'
[18:41:33.763]   - Field: 'asynchronous'
[18:41:33.763]   - Field: 'calls'
[18:41:33.763]   - Field: 'globals'
[18:41:33.764]   - Field: 'stdout'
[18:41:33.764]   - Field: 'earlySignal'
[18:41:33.764]   - Field: 'lazy'
[18:41:33.764]   - Field: 'state'
[18:41:33.764] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.765] - Launch lazy future ...
[18:41:33.765] Packages needed by the future expression (n = 0): <none>
[18:41:33.765] Packages needed by future strategies (n = 0): <none>
[18:41:33.766] {
[18:41:33.766]     {
[18:41:33.766]         {
[18:41:33.766]             ...future.startTime <- base::Sys.time()
[18:41:33.766]             {
[18:41:33.766]                 {
[18:41:33.766]                   {
[18:41:33.766]                     {
[18:41:33.766]                       base::local({
[18:41:33.766]                         has_future <- base::requireNamespace("future", 
[18:41:33.766]                           quietly = TRUE)
[18:41:33.766]                         if (has_future) {
[18:41:33.766]                           ns <- base::getNamespace("future")
[18:41:33.766]                           version <- ns[[".package"]][["version"]]
[18:41:33.766]                           if (is.null(version)) 
[18:41:33.766]                             version <- utils::packageVersion("future")
[18:41:33.766]                         }
[18:41:33.766]                         else {
[18:41:33.766]                           version <- NULL
[18:41:33.766]                         }
[18:41:33.766]                         if (!has_future || version < "1.8.0") {
[18:41:33.766]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.766]                             "", base::R.version$version.string), 
[18:41:33.766]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.766]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.766]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.766]                               "release", "version")], collapse = " "), 
[18:41:33.766]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.766]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.766]                             info)
[18:41:33.766]                           info <- base::paste(info, collapse = "; ")
[18:41:33.766]                           if (!has_future) {
[18:41:33.766]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.766]                               info)
[18:41:33.766]                           }
[18:41:33.766]                           else {
[18:41:33.766]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.766]                               info, version)
[18:41:33.766]                           }
[18:41:33.766]                           base::stop(msg)
[18:41:33.766]                         }
[18:41:33.766]                       })
[18:41:33.766]                     }
[18:41:33.766]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.766]                     base::options(mc.cores = 1L)
[18:41:33.766]                   }
[18:41:33.766]                   ...future.strategy.old <- future::plan("list")
[18:41:33.766]                   options(future.plan = NULL)
[18:41:33.766]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.766]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.766]                 }
[18:41:33.766]                 ...future.workdir <- getwd()
[18:41:33.766]             }
[18:41:33.766]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.766]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.766]         }
[18:41:33.766]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.766]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.766]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.766]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.766]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.766]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.766]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.766]             base::names(...future.oldOptions))
[18:41:33.766]     }
[18:41:33.766]     if (FALSE) {
[18:41:33.766]     }
[18:41:33.766]     else {
[18:41:33.766]         if (TRUE) {
[18:41:33.766]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.766]                 open = "w")
[18:41:33.766]         }
[18:41:33.766]         else {
[18:41:33.766]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.766]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.766]         }
[18:41:33.766]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.766]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.766]             base::sink(type = "output", split = FALSE)
[18:41:33.766]             base::close(...future.stdout)
[18:41:33.766]         }, add = TRUE)
[18:41:33.766]     }
[18:41:33.766]     ...future.frame <- base::sys.nframe()
[18:41:33.766]     ...future.conditions <- base::list()
[18:41:33.766]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.766]     if (FALSE) {
[18:41:33.766]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.766]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.766]     }
[18:41:33.766]     ...future.result <- base::tryCatch({
[18:41:33.766]         base::withCallingHandlers({
[18:41:33.766]             ...future.value <- base::withVisible(base::local({
[18:41:33.766]                 ...future.makeSendCondition <- base::local({
[18:41:33.766]                   sendCondition <- NULL
[18:41:33.766]                   function(frame = 1L) {
[18:41:33.766]                     if (is.function(sendCondition)) 
[18:41:33.766]                       return(sendCondition)
[18:41:33.766]                     ns <- getNamespace("parallel")
[18:41:33.766]                     if (exists("sendData", mode = "function", 
[18:41:33.766]                       envir = ns)) {
[18:41:33.766]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.766]                         envir = ns)
[18:41:33.766]                       envir <- sys.frame(frame)
[18:41:33.766]                       master <- NULL
[18:41:33.766]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.766]                         !identical(envir, emptyenv())) {
[18:41:33.766]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.766]                           inherits = FALSE)) {
[18:41:33.766]                           master <- get("master", mode = "list", 
[18:41:33.766]                             envir = envir, inherits = FALSE)
[18:41:33.766]                           if (inherits(master, c("SOCKnode", 
[18:41:33.766]                             "SOCK0node"))) {
[18:41:33.766]                             sendCondition <<- function(cond) {
[18:41:33.766]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.766]                                 success = TRUE)
[18:41:33.766]                               parallel_sendData(master, data)
[18:41:33.766]                             }
[18:41:33.766]                             return(sendCondition)
[18:41:33.766]                           }
[18:41:33.766]                         }
[18:41:33.766]                         frame <- frame + 1L
[18:41:33.766]                         envir <- sys.frame(frame)
[18:41:33.766]                       }
[18:41:33.766]                     }
[18:41:33.766]                     sendCondition <<- function(cond) NULL
[18:41:33.766]                   }
[18:41:33.766]                 })
[18:41:33.766]                 withCallingHandlers({
[18:41:33.766]                   {
[18:41:33.766]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.766]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.766]                       ...future.globals.maxSize)) {
[18:41:33.766]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.766]                       on.exit(options(oopts), add = TRUE)
[18:41:33.766]                     }
[18:41:33.766]                     {
[18:41:33.766]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.766]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.766]                         USE.NAMES = FALSE)
[18:41:33.766]                       do.call(mapply, args = args)
[18:41:33.766]                     }
[18:41:33.766]                   }
[18:41:33.766]                 }, immediateCondition = function(cond) {
[18:41:33.766]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.766]                   sendCondition(cond)
[18:41:33.766]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.766]                   {
[18:41:33.766]                     inherits <- base::inherits
[18:41:33.766]                     invokeRestart <- base::invokeRestart
[18:41:33.766]                     is.null <- base::is.null
[18:41:33.766]                     muffled <- FALSE
[18:41:33.766]                     if (inherits(cond, "message")) {
[18:41:33.766]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.766]                       if (muffled) 
[18:41:33.766]                         invokeRestart("muffleMessage")
[18:41:33.766]                     }
[18:41:33.766]                     else if (inherits(cond, "warning")) {
[18:41:33.766]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.766]                       if (muffled) 
[18:41:33.766]                         invokeRestart("muffleWarning")
[18:41:33.766]                     }
[18:41:33.766]                     else if (inherits(cond, "condition")) {
[18:41:33.766]                       if (!is.null(pattern)) {
[18:41:33.766]                         computeRestarts <- base::computeRestarts
[18:41:33.766]                         grepl <- base::grepl
[18:41:33.766]                         restarts <- computeRestarts(cond)
[18:41:33.766]                         for (restart in restarts) {
[18:41:33.766]                           name <- restart$name
[18:41:33.766]                           if (is.null(name)) 
[18:41:33.766]                             next
[18:41:33.766]                           if (!grepl(pattern, name)) 
[18:41:33.766]                             next
[18:41:33.766]                           invokeRestart(restart)
[18:41:33.766]                           muffled <- TRUE
[18:41:33.766]                           break
[18:41:33.766]                         }
[18:41:33.766]                       }
[18:41:33.766]                     }
[18:41:33.766]                     invisible(muffled)
[18:41:33.766]                   }
[18:41:33.766]                   muffleCondition(cond)
[18:41:33.766]                 })
[18:41:33.766]             }))
[18:41:33.766]             future::FutureResult(value = ...future.value$value, 
[18:41:33.766]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.766]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.766]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.766]                     ...future.globalenv.names))
[18:41:33.766]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.766]         }, condition = base::local({
[18:41:33.766]             c <- base::c
[18:41:33.766]             inherits <- base::inherits
[18:41:33.766]             invokeRestart <- base::invokeRestart
[18:41:33.766]             length <- base::length
[18:41:33.766]             list <- base::list
[18:41:33.766]             seq.int <- base::seq.int
[18:41:33.766]             signalCondition <- base::signalCondition
[18:41:33.766]             sys.calls <- base::sys.calls
[18:41:33.766]             `[[` <- base::`[[`
[18:41:33.766]             `+` <- base::`+`
[18:41:33.766]             `<<-` <- base::`<<-`
[18:41:33.766]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.766]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.766]                   3L)]
[18:41:33.766]             }
[18:41:33.766]             function(cond) {
[18:41:33.766]                 is_error <- inherits(cond, "error")
[18:41:33.766]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.766]                   NULL)
[18:41:33.766]                 if (is_error) {
[18:41:33.766]                   sessionInformation <- function() {
[18:41:33.766]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.766]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.766]                       search = base::search(), system = base::Sys.info())
[18:41:33.766]                   }
[18:41:33.766]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.766]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.766]                     cond$call), session = sessionInformation(), 
[18:41:33.766]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.766]                   signalCondition(cond)
[18:41:33.766]                 }
[18:41:33.766]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.766]                 "immediateCondition"))) {
[18:41:33.766]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.766]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.766]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.766]                   if (TRUE && !signal) {
[18:41:33.766]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.766]                     {
[18:41:33.766]                       inherits <- base::inherits
[18:41:33.766]                       invokeRestart <- base::invokeRestart
[18:41:33.766]                       is.null <- base::is.null
[18:41:33.766]                       muffled <- FALSE
[18:41:33.766]                       if (inherits(cond, "message")) {
[18:41:33.766]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.766]                         if (muffled) 
[18:41:33.766]                           invokeRestart("muffleMessage")
[18:41:33.766]                       }
[18:41:33.766]                       else if (inherits(cond, "warning")) {
[18:41:33.766]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.766]                         if (muffled) 
[18:41:33.766]                           invokeRestart("muffleWarning")
[18:41:33.766]                       }
[18:41:33.766]                       else if (inherits(cond, "condition")) {
[18:41:33.766]                         if (!is.null(pattern)) {
[18:41:33.766]                           computeRestarts <- base::computeRestarts
[18:41:33.766]                           grepl <- base::grepl
[18:41:33.766]                           restarts <- computeRestarts(cond)
[18:41:33.766]                           for (restart in restarts) {
[18:41:33.766]                             name <- restart$name
[18:41:33.766]                             if (is.null(name)) 
[18:41:33.766]                               next
[18:41:33.766]                             if (!grepl(pattern, name)) 
[18:41:33.766]                               next
[18:41:33.766]                             invokeRestart(restart)
[18:41:33.766]                             muffled <- TRUE
[18:41:33.766]                             break
[18:41:33.766]                           }
[18:41:33.766]                         }
[18:41:33.766]                       }
[18:41:33.766]                       invisible(muffled)
[18:41:33.766]                     }
[18:41:33.766]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.766]                   }
[18:41:33.766]                 }
[18:41:33.766]                 else {
[18:41:33.766]                   if (TRUE) {
[18:41:33.766]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.766]                     {
[18:41:33.766]                       inherits <- base::inherits
[18:41:33.766]                       invokeRestart <- base::invokeRestart
[18:41:33.766]                       is.null <- base::is.null
[18:41:33.766]                       muffled <- FALSE
[18:41:33.766]                       if (inherits(cond, "message")) {
[18:41:33.766]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.766]                         if (muffled) 
[18:41:33.766]                           invokeRestart("muffleMessage")
[18:41:33.766]                       }
[18:41:33.766]                       else if (inherits(cond, "warning")) {
[18:41:33.766]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.766]                         if (muffled) 
[18:41:33.766]                           invokeRestart("muffleWarning")
[18:41:33.766]                       }
[18:41:33.766]                       else if (inherits(cond, "condition")) {
[18:41:33.766]                         if (!is.null(pattern)) {
[18:41:33.766]                           computeRestarts <- base::computeRestarts
[18:41:33.766]                           grepl <- base::grepl
[18:41:33.766]                           restarts <- computeRestarts(cond)
[18:41:33.766]                           for (restart in restarts) {
[18:41:33.766]                             name <- restart$name
[18:41:33.766]                             if (is.null(name)) 
[18:41:33.766]                               next
[18:41:33.766]                             if (!grepl(pattern, name)) 
[18:41:33.766]                               next
[18:41:33.766]                             invokeRestart(restart)
[18:41:33.766]                             muffled <- TRUE
[18:41:33.766]                             break
[18:41:33.766]                           }
[18:41:33.766]                         }
[18:41:33.766]                       }
[18:41:33.766]                       invisible(muffled)
[18:41:33.766]                     }
[18:41:33.766]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.766]                   }
[18:41:33.766]                 }
[18:41:33.766]             }
[18:41:33.766]         }))
[18:41:33.766]     }, error = function(ex) {
[18:41:33.766]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.766]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.766]                 ...future.rng), started = ...future.startTime, 
[18:41:33.766]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.766]             version = "1.8"), class = "FutureResult")
[18:41:33.766]     }, finally = {
[18:41:33.766]         if (!identical(...future.workdir, getwd())) 
[18:41:33.766]             setwd(...future.workdir)
[18:41:33.766]         {
[18:41:33.766]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.766]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.766]             }
[18:41:33.766]             base::options(...future.oldOptions)
[18:41:33.766]             if (.Platform$OS.type == "windows") {
[18:41:33.766]                 old_names <- names(...future.oldEnvVars)
[18:41:33.766]                 envs <- base::Sys.getenv()
[18:41:33.766]                 names <- names(envs)
[18:41:33.766]                 common <- intersect(names, old_names)
[18:41:33.766]                 added <- setdiff(names, old_names)
[18:41:33.766]                 removed <- setdiff(old_names, names)
[18:41:33.766]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.766]                   envs[common]]
[18:41:33.766]                 NAMES <- toupper(changed)
[18:41:33.766]                 args <- list()
[18:41:33.766]                 for (kk in seq_along(NAMES)) {
[18:41:33.766]                   name <- changed[[kk]]
[18:41:33.766]                   NAME <- NAMES[[kk]]
[18:41:33.766]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.766]                     next
[18:41:33.766]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.766]                 }
[18:41:33.766]                 NAMES <- toupper(added)
[18:41:33.766]                 for (kk in seq_along(NAMES)) {
[18:41:33.766]                   name <- added[[kk]]
[18:41:33.766]                   NAME <- NAMES[[kk]]
[18:41:33.766]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.766]                     next
[18:41:33.766]                   args[[name]] <- ""
[18:41:33.766]                 }
[18:41:33.766]                 NAMES <- toupper(removed)
[18:41:33.766]                 for (kk in seq_along(NAMES)) {
[18:41:33.766]                   name <- removed[[kk]]
[18:41:33.766]                   NAME <- NAMES[[kk]]
[18:41:33.766]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.766]                     next
[18:41:33.766]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.766]                 }
[18:41:33.766]                 if (length(args) > 0) 
[18:41:33.766]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.766]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.766]             }
[18:41:33.766]             else {
[18:41:33.766]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.766]             }
[18:41:33.766]             {
[18:41:33.766]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.766]                   0L) {
[18:41:33.766]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.766]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.766]                   base::options(opts)
[18:41:33.766]                 }
[18:41:33.766]                 {
[18:41:33.766]                   {
[18:41:33.766]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.766]                     NULL
[18:41:33.766]                   }
[18:41:33.766]                   options(future.plan = NULL)
[18:41:33.766]                   if (is.na(NA_character_)) 
[18:41:33.766]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.766]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.766]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.766]                     .init = FALSE)
[18:41:33.766]                 }
[18:41:33.766]             }
[18:41:33.766]         }
[18:41:33.766]     })
[18:41:33.766]     if (TRUE) {
[18:41:33.766]         base::sink(type = "output", split = FALSE)
[18:41:33.766]         if (TRUE) {
[18:41:33.766]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.766]         }
[18:41:33.766]         else {
[18:41:33.766]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.766]         }
[18:41:33.766]         base::close(...future.stdout)
[18:41:33.766]         ...future.stdout <- NULL
[18:41:33.766]     }
[18:41:33.766]     ...future.result$conditions <- ...future.conditions
[18:41:33.766]     ...future.result$finished <- base::Sys.time()
[18:41:33.766]     ...future.result
[18:41:33.766] }
[18:41:33.771] Exporting 5 global objects (711 bytes) to cluster node #1 ...
[18:41:33.771] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.772] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.772] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:33.773] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:33.773] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ...
[18:41:33.774] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ... DONE
[18:41:33.774] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.774] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.775] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.775] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.776] Exporting 5 global objects (711 bytes) to cluster node #1 ... DONE
[18:41:33.777] MultisessionFuture started
[18:41:33.777] - Launch lazy future ... done
[18:41:33.777] run() for 'MultisessionFuture' ... done
[18:41:33.778] Created future:
[18:41:33.790] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.791] - Validating connection of MultisessionFuture
[18:41:33.791] - received message: FutureResult
[18:41:33.791] - Received FutureResult
[18:41:33.791] - Erased future from FutureRegistry
[18:41:33.792] result() for ClusterFuture ...
[18:41:33.792] - result already collected: FutureResult
[18:41:33.792] result() for ClusterFuture ... done
[18:41:33.792] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.778] MultisessionFuture:
[18:41:33.778] Label: 'future_mapply-2'
[18:41:33.778] Expression:
[18:41:33.778] {
[18:41:33.778]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.778]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.778]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.778]         on.exit(options(oopts), add = TRUE)
[18:41:33.778]     }
[18:41:33.778]     {
[18:41:33.778]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.778]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.778]         do.call(mapply, args = args)
[18:41:33.778]     }
[18:41:33.778] }
[18:41:33.778] Lazy evaluation: FALSE
[18:41:33.778] Asynchronous evaluation: TRUE
[18:41:33.778] Local evaluation: TRUE
[18:41:33.778] Environment: R_GlobalEnv
[18:41:33.778] Capture standard output: TRUE
[18:41:33.778] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.778] Globals: 5 objects totaling 265 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 150 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.778] Packages: <none>
[18:41:33.778] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.778] Resolved: TRUE
[18:41:33.778] Value: <not collected>
[18:41:33.778] Conditions captured: <none>
[18:41:33.778] Early signaling: FALSE
[18:41:33.778] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.778] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.792] Chunk #2 of 2 ... DONE
[18:41:33.793] Launching 2 futures (chunks) ... DONE
[18:41:33.793] Resolving 2 futures (chunks) ...
[18:41:33.793] resolve() on list ...
[18:41:33.793]  recursive: 0
[18:41:33.793]  length: 2
[18:41:33.793] 
[18:41:33.794] Future #1
[18:41:33.794] result() for ClusterFuture ...
[18:41:33.794] - result already collected: FutureResult
[18:41:33.794] result() for ClusterFuture ... done
[18:41:33.794] result() for ClusterFuture ...
[18:41:33.794] - result already collected: FutureResult
[18:41:33.794] result() for ClusterFuture ... done
[18:41:33.795] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:33.795] - nx: 2
[18:41:33.795] - relay: TRUE
[18:41:33.795] - stdout: TRUE
[18:41:33.795] - signal: TRUE
[18:41:33.795] - resignal: FALSE
[18:41:33.796] - force: TRUE
[18:41:33.796] - relayed: [n=2] FALSE, FALSE
[18:41:33.796] - queued futures: [n=2] FALSE, FALSE
[18:41:33.796]  - until=1
[18:41:33.796]  - relaying element #1
[18:41:33.796] result() for ClusterFuture ...
[18:41:33.797] - result already collected: FutureResult
[18:41:33.797] result() for ClusterFuture ... done
[18:41:33.797] result() for ClusterFuture ...
[18:41:33.797] - result already collected: FutureResult
[18:41:33.797] result() for ClusterFuture ... done
[18:41:33.797] result() for ClusterFuture ...
[18:41:33.797] - result already collected: FutureResult
[18:41:33.798] result() for ClusterFuture ... done
[18:41:33.798] result() for ClusterFuture ...
[18:41:33.798] - result already collected: FutureResult
[18:41:33.798] result() for ClusterFuture ... done
[18:41:33.798] - relayed: [n=2] TRUE, FALSE
[18:41:33.798] - queued futures: [n=2] TRUE, FALSE
[18:41:33.799] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:33.799]  length: 1 (resolved future 1)
[18:41:33.799] Future #2
[18:41:33.799] result() for ClusterFuture ...
[18:41:33.799] - result already collected: FutureResult
[18:41:33.799] result() for ClusterFuture ... done
[18:41:33.800] result() for ClusterFuture ...
[18:41:33.800] - result already collected: FutureResult
[18:41:33.800] result() for ClusterFuture ... done
[18:41:33.800] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:33.800] - nx: 2
[18:41:33.800] - relay: TRUE
[18:41:33.801] - stdout: TRUE
[18:41:33.801] - signal: TRUE
[18:41:33.801] - resignal: FALSE
[18:41:33.801] - force: TRUE
[18:41:33.801] - relayed: [n=2] TRUE, FALSE
[18:41:33.801] - queued futures: [n=2] TRUE, FALSE
[18:41:33.801]  - until=2
[18:41:33.802]  - relaying element #2
[18:41:33.802] result() for ClusterFuture ...
[18:41:33.802] - result already collected: FutureResult
[18:41:33.802] result() for ClusterFuture ... done
[18:41:33.802] result() for ClusterFuture ...
[18:41:33.802] - result already collected: FutureResult
[18:41:33.803] result() for ClusterFuture ... done
[18:41:33.803] result() for ClusterFuture ...
[18:41:33.803] - result already collected: FutureResult
[18:41:33.803] result() for ClusterFuture ... done
[18:41:33.803] result() for ClusterFuture ...
[18:41:33.803] - result already collected: FutureResult
[18:41:33.804] result() for ClusterFuture ... done
[18:41:33.804] - relayed: [n=2] TRUE, TRUE
[18:41:33.804] - queued futures: [n=2] TRUE, TRUE
[18:41:33.804] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:33.804]  length: 0 (resolved future 2)
[18:41:33.804] Relaying remaining futures
[18:41:33.805] signalConditionsASAP(NULL, pos=0) ...
[18:41:33.805] - nx: 2
[18:41:33.805] - relay: TRUE
[18:41:33.805] - stdout: TRUE
[18:41:33.805] - signal: TRUE
[18:41:33.805] - resignal: FALSE
[18:41:33.805] - force: TRUE
[18:41:33.806] - relayed: [n=2] TRUE, TRUE
[18:41:33.806] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:33.806] - relayed: [n=2] TRUE, TRUE
[18:41:33.806] - queued futures: [n=2] TRUE, TRUE
[18:41:33.806] signalConditionsASAP(NULL, pos=0) ... done
[18:41:33.806] resolve() on list ... DONE
[18:41:33.807] result() for ClusterFuture ...
[18:41:33.807] - result already collected: FutureResult
[18:41:33.807] result() for ClusterFuture ... done
[18:41:33.807] result() for ClusterFuture ...
[18:41:33.807] - result already collected: FutureResult
[18:41:33.807] result() for ClusterFuture ... done
[18:41:33.808] result() for ClusterFuture ...
[18:41:33.808] - result already collected: FutureResult
[18:41:33.808] result() for ClusterFuture ... done
[18:41:33.808] result() for ClusterFuture ...
[18:41:33.808] - result already collected: FutureResult
[18:41:33.808] result() for ClusterFuture ... done
[18:41:33.808]  - Number of value chunks collected: 2
[18:41:33.809] Resolving 2 futures (chunks) ... DONE
[18:41:33.809] Reducing values from 2 chunks ...
[18:41:33.809]  - Number of values collected after concatenation: 4
[18:41:33.809]  - Number of values expected: 4
[18:41:33.809] Reducing values from 2 chunks ... DONE
[18:41:33.809] future_mapply() ... DONE
[18:41:33.810] future_mapply() ...
[18:41:33.812] Number of chunks: 2
[18:41:33.812] getGlobalsAndPackagesXApply() ...
[18:41:33.812]  - future.globals: TRUE
[18:41:33.813] getGlobalsAndPackages() ...
[18:41:33.813] Searching for globals...
[18:41:33.814] - globals found: [1] 'FUN'
[18:41:33.814] Searching for globals ... DONE
[18:41:33.814] Resolving globals: FALSE
[18:41:33.814] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:33.815] The total size of the 1 globals exported for future expression ('FUN(x = 42)') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:33.815] - globals: [1] 'FUN'
[18:41:33.815] 
[18:41:33.815] getGlobalsAndPackages() ... DONE
[18:41:33.815]  - globals found/used: [n=1] 'FUN'
[18:41:33.816]  - needed namespaces: [n=0] 
[18:41:33.816] Finding globals ... DONE
[18:41:33.816] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:33.816] List of 2
[18:41:33.816]  $ ...future.FUN:function (x, ...)  
[18:41:33.816]  $ MoreArgs     :List of 1
[18:41:33.816]   ..$ x: num 42
[18:41:33.816]  - attr(*, "where")=List of 2
[18:41:33.816]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:33.816]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:33.816]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:33.816]  - attr(*, "resolved")= logi FALSE
[18:41:33.816]  - attr(*, "total_size")= num NA
[18:41:33.820] Packages to be attached in all futures: [n=0] 
[18:41:33.820] getGlobalsAndPackagesXApply() ... DONE
[18:41:33.820] Number of futures (= number of chunks): 2
[18:41:33.820] Launching 2 futures (chunks) ...
[18:41:33.821] Chunk #1 of 2 ...
[18:41:33.821]  - Finding globals in '...' for chunk #1 ...
[18:41:33.821] getGlobalsAndPackages() ...
[18:41:33.821] Searching for globals...
[18:41:33.822] 
[18:41:33.822] Searching for globals ... DONE
[18:41:33.822] - globals: [0] <none>
[18:41:33.822] getGlobalsAndPackages() ... DONE
[18:41:33.822]    + additional globals found: [n=0] 
[18:41:33.822]    + additional namespaces needed: [n=0] 
[18:41:33.823]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:33.823]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.823]  - seeds: <none>
[18:41:33.823]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.823] getGlobalsAndPackages() ...
[18:41:33.823] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.824] Resolving globals: FALSE
[18:41:33.824] The total size of the 5 globals is 286 bytes (286 bytes)
[18:41:33.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 286 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (109 bytes of class 'list'), 'MoreArgs' (89 bytes of class 'list') and '...future.FUN' (34 bytes of class 'function')
[18:41:33.825] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.825] 
[18:41:33.825] getGlobalsAndPackages() ... DONE
[18:41:33.826] run() for 'Future' ...
[18:41:33.826] - state: 'created'
[18:41:33.826] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.842] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.842] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.842]   - Field: 'node'
[18:41:33.842]   - Field: 'label'
[18:41:33.842]   - Field: 'local'
[18:41:33.843]   - Field: 'owner'
[18:41:33.843]   - Field: 'envir'
[18:41:33.843]   - Field: 'workers'
[18:41:33.843]   - Field: 'packages'
[18:41:33.843]   - Field: 'gc'
[18:41:33.843]   - Field: 'conditions'
[18:41:33.844]   - Field: 'persistent'
[18:41:33.844]   - Field: 'expr'
[18:41:33.844]   - Field: 'uuid'
[18:41:33.844]   - Field: 'seed'
[18:41:33.844]   - Field: 'version'
[18:41:33.844]   - Field: 'result'
[18:41:33.845]   - Field: 'asynchronous'
[18:41:33.845]   - Field: 'calls'
[18:41:33.845]   - Field: 'globals'
[18:41:33.845]   - Field: 'stdout'
[18:41:33.845]   - Field: 'earlySignal'
[18:41:33.845]   - Field: 'lazy'
[18:41:33.846]   - Field: 'state'
[18:41:33.846] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.846] - Launch lazy future ...
[18:41:33.846] Packages needed by the future expression (n = 0): <none>
[18:41:33.847] Packages needed by future strategies (n = 0): <none>
[18:41:33.847] {
[18:41:33.847]     {
[18:41:33.847]         {
[18:41:33.847]             ...future.startTime <- base::Sys.time()
[18:41:33.847]             {
[18:41:33.847]                 {
[18:41:33.847]                   {
[18:41:33.847]                     {
[18:41:33.847]                       base::local({
[18:41:33.847]                         has_future <- base::requireNamespace("future", 
[18:41:33.847]                           quietly = TRUE)
[18:41:33.847]                         if (has_future) {
[18:41:33.847]                           ns <- base::getNamespace("future")
[18:41:33.847]                           version <- ns[[".package"]][["version"]]
[18:41:33.847]                           if (is.null(version)) 
[18:41:33.847]                             version <- utils::packageVersion("future")
[18:41:33.847]                         }
[18:41:33.847]                         else {
[18:41:33.847]                           version <- NULL
[18:41:33.847]                         }
[18:41:33.847]                         if (!has_future || version < "1.8.0") {
[18:41:33.847]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.847]                             "", base::R.version$version.string), 
[18:41:33.847]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.847]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.847]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.847]                               "release", "version")], collapse = " "), 
[18:41:33.847]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.847]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.847]                             info)
[18:41:33.847]                           info <- base::paste(info, collapse = "; ")
[18:41:33.847]                           if (!has_future) {
[18:41:33.847]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.847]                               info)
[18:41:33.847]                           }
[18:41:33.847]                           else {
[18:41:33.847]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.847]                               info, version)
[18:41:33.847]                           }
[18:41:33.847]                           base::stop(msg)
[18:41:33.847]                         }
[18:41:33.847]                       })
[18:41:33.847]                     }
[18:41:33.847]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.847]                     base::options(mc.cores = 1L)
[18:41:33.847]                   }
[18:41:33.847]                   ...future.strategy.old <- future::plan("list")
[18:41:33.847]                   options(future.plan = NULL)
[18:41:33.847]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.847]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.847]                 }
[18:41:33.847]                 ...future.workdir <- getwd()
[18:41:33.847]             }
[18:41:33.847]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.847]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.847]         }
[18:41:33.847]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.847]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.847]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.847]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.847]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.847]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.847]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.847]             base::names(...future.oldOptions))
[18:41:33.847]     }
[18:41:33.847]     if (FALSE) {
[18:41:33.847]     }
[18:41:33.847]     else {
[18:41:33.847]         if (TRUE) {
[18:41:33.847]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.847]                 open = "w")
[18:41:33.847]         }
[18:41:33.847]         else {
[18:41:33.847]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.847]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.847]         }
[18:41:33.847]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.847]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.847]             base::sink(type = "output", split = FALSE)
[18:41:33.847]             base::close(...future.stdout)
[18:41:33.847]         }, add = TRUE)
[18:41:33.847]     }
[18:41:33.847]     ...future.frame <- base::sys.nframe()
[18:41:33.847]     ...future.conditions <- base::list()
[18:41:33.847]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.847]     if (FALSE) {
[18:41:33.847]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.847]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.847]     }
[18:41:33.847]     ...future.result <- base::tryCatch({
[18:41:33.847]         base::withCallingHandlers({
[18:41:33.847]             ...future.value <- base::withVisible(base::local({
[18:41:33.847]                 ...future.makeSendCondition <- base::local({
[18:41:33.847]                   sendCondition <- NULL
[18:41:33.847]                   function(frame = 1L) {
[18:41:33.847]                     if (is.function(sendCondition)) 
[18:41:33.847]                       return(sendCondition)
[18:41:33.847]                     ns <- getNamespace("parallel")
[18:41:33.847]                     if (exists("sendData", mode = "function", 
[18:41:33.847]                       envir = ns)) {
[18:41:33.847]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.847]                         envir = ns)
[18:41:33.847]                       envir <- sys.frame(frame)
[18:41:33.847]                       master <- NULL
[18:41:33.847]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.847]                         !identical(envir, emptyenv())) {
[18:41:33.847]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.847]                           inherits = FALSE)) {
[18:41:33.847]                           master <- get("master", mode = "list", 
[18:41:33.847]                             envir = envir, inherits = FALSE)
[18:41:33.847]                           if (inherits(master, c("SOCKnode", 
[18:41:33.847]                             "SOCK0node"))) {
[18:41:33.847]                             sendCondition <<- function(cond) {
[18:41:33.847]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.847]                                 success = TRUE)
[18:41:33.847]                               parallel_sendData(master, data)
[18:41:33.847]                             }
[18:41:33.847]                             return(sendCondition)
[18:41:33.847]                           }
[18:41:33.847]                         }
[18:41:33.847]                         frame <- frame + 1L
[18:41:33.847]                         envir <- sys.frame(frame)
[18:41:33.847]                       }
[18:41:33.847]                     }
[18:41:33.847]                     sendCondition <<- function(cond) NULL
[18:41:33.847]                   }
[18:41:33.847]                 })
[18:41:33.847]                 withCallingHandlers({
[18:41:33.847]                   {
[18:41:33.847]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.847]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.847]                       ...future.globals.maxSize)) {
[18:41:33.847]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.847]                       on.exit(options(oopts), add = TRUE)
[18:41:33.847]                     }
[18:41:33.847]                     {
[18:41:33.847]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.847]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.847]                         USE.NAMES = FALSE)
[18:41:33.847]                       do.call(mapply, args = args)
[18:41:33.847]                     }
[18:41:33.847]                   }
[18:41:33.847]                 }, immediateCondition = function(cond) {
[18:41:33.847]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.847]                   sendCondition(cond)
[18:41:33.847]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.847]                   {
[18:41:33.847]                     inherits <- base::inherits
[18:41:33.847]                     invokeRestart <- base::invokeRestart
[18:41:33.847]                     is.null <- base::is.null
[18:41:33.847]                     muffled <- FALSE
[18:41:33.847]                     if (inherits(cond, "message")) {
[18:41:33.847]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.847]                       if (muffled) 
[18:41:33.847]                         invokeRestart("muffleMessage")
[18:41:33.847]                     }
[18:41:33.847]                     else if (inherits(cond, "warning")) {
[18:41:33.847]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.847]                       if (muffled) 
[18:41:33.847]                         invokeRestart("muffleWarning")
[18:41:33.847]                     }
[18:41:33.847]                     else if (inherits(cond, "condition")) {
[18:41:33.847]                       if (!is.null(pattern)) {
[18:41:33.847]                         computeRestarts <- base::computeRestarts
[18:41:33.847]                         grepl <- base::grepl
[18:41:33.847]                         restarts <- computeRestarts(cond)
[18:41:33.847]                         for (restart in restarts) {
[18:41:33.847]                           name <- restart$name
[18:41:33.847]                           if (is.null(name)) 
[18:41:33.847]                             next
[18:41:33.847]                           if (!grepl(pattern, name)) 
[18:41:33.847]                             next
[18:41:33.847]                           invokeRestart(restart)
[18:41:33.847]                           muffled <- TRUE
[18:41:33.847]                           break
[18:41:33.847]                         }
[18:41:33.847]                       }
[18:41:33.847]                     }
[18:41:33.847]                     invisible(muffled)
[18:41:33.847]                   }
[18:41:33.847]                   muffleCondition(cond)
[18:41:33.847]                 })
[18:41:33.847]             }))
[18:41:33.847]             future::FutureResult(value = ...future.value$value, 
[18:41:33.847]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.847]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.847]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.847]                     ...future.globalenv.names))
[18:41:33.847]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.847]         }, condition = base::local({
[18:41:33.847]             c <- base::c
[18:41:33.847]             inherits <- base::inherits
[18:41:33.847]             invokeRestart <- base::invokeRestart
[18:41:33.847]             length <- base::length
[18:41:33.847]             list <- base::list
[18:41:33.847]             seq.int <- base::seq.int
[18:41:33.847]             signalCondition <- base::signalCondition
[18:41:33.847]             sys.calls <- base::sys.calls
[18:41:33.847]             `[[` <- base::`[[`
[18:41:33.847]             `+` <- base::`+`
[18:41:33.847]             `<<-` <- base::`<<-`
[18:41:33.847]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.847]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.847]                   3L)]
[18:41:33.847]             }
[18:41:33.847]             function(cond) {
[18:41:33.847]                 is_error <- inherits(cond, "error")
[18:41:33.847]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.847]                   NULL)
[18:41:33.847]                 if (is_error) {
[18:41:33.847]                   sessionInformation <- function() {
[18:41:33.847]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.847]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.847]                       search = base::search(), system = base::Sys.info())
[18:41:33.847]                   }
[18:41:33.847]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.847]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.847]                     cond$call), session = sessionInformation(), 
[18:41:33.847]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.847]                   signalCondition(cond)
[18:41:33.847]                 }
[18:41:33.847]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.847]                 "immediateCondition"))) {
[18:41:33.847]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.847]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.847]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.847]                   if (TRUE && !signal) {
[18:41:33.847]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.847]                     {
[18:41:33.847]                       inherits <- base::inherits
[18:41:33.847]                       invokeRestart <- base::invokeRestart
[18:41:33.847]                       is.null <- base::is.null
[18:41:33.847]                       muffled <- FALSE
[18:41:33.847]                       if (inherits(cond, "message")) {
[18:41:33.847]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.847]                         if (muffled) 
[18:41:33.847]                           invokeRestart("muffleMessage")
[18:41:33.847]                       }
[18:41:33.847]                       else if (inherits(cond, "warning")) {
[18:41:33.847]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.847]                         if (muffled) 
[18:41:33.847]                           invokeRestart("muffleWarning")
[18:41:33.847]                       }
[18:41:33.847]                       else if (inherits(cond, "condition")) {
[18:41:33.847]                         if (!is.null(pattern)) {
[18:41:33.847]                           computeRestarts <- base::computeRestarts
[18:41:33.847]                           grepl <- base::grepl
[18:41:33.847]                           restarts <- computeRestarts(cond)
[18:41:33.847]                           for (restart in restarts) {
[18:41:33.847]                             name <- restart$name
[18:41:33.847]                             if (is.null(name)) 
[18:41:33.847]                               next
[18:41:33.847]                             if (!grepl(pattern, name)) 
[18:41:33.847]                               next
[18:41:33.847]                             invokeRestart(restart)
[18:41:33.847]                             muffled <- TRUE
[18:41:33.847]                             break
[18:41:33.847]                           }
[18:41:33.847]                         }
[18:41:33.847]                       }
[18:41:33.847]                       invisible(muffled)
[18:41:33.847]                     }
[18:41:33.847]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.847]                   }
[18:41:33.847]                 }
[18:41:33.847]                 else {
[18:41:33.847]                   if (TRUE) {
[18:41:33.847]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.847]                     {
[18:41:33.847]                       inherits <- base::inherits
[18:41:33.847]                       invokeRestart <- base::invokeRestart
[18:41:33.847]                       is.null <- base::is.null
[18:41:33.847]                       muffled <- FALSE
[18:41:33.847]                       if (inherits(cond, "message")) {
[18:41:33.847]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.847]                         if (muffled) 
[18:41:33.847]                           invokeRestart("muffleMessage")
[18:41:33.847]                       }
[18:41:33.847]                       else if (inherits(cond, "warning")) {
[18:41:33.847]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.847]                         if (muffled) 
[18:41:33.847]                           invokeRestart("muffleWarning")
[18:41:33.847]                       }
[18:41:33.847]                       else if (inherits(cond, "condition")) {
[18:41:33.847]                         if (!is.null(pattern)) {
[18:41:33.847]                           computeRestarts <- base::computeRestarts
[18:41:33.847]                           grepl <- base::grepl
[18:41:33.847]                           restarts <- computeRestarts(cond)
[18:41:33.847]                           for (restart in restarts) {
[18:41:33.847]                             name <- restart$name
[18:41:33.847]                             if (is.null(name)) 
[18:41:33.847]                               next
[18:41:33.847]                             if (!grepl(pattern, name)) 
[18:41:33.847]                               next
[18:41:33.847]                             invokeRestart(restart)
[18:41:33.847]                             muffled <- TRUE
[18:41:33.847]                             break
[18:41:33.847]                           }
[18:41:33.847]                         }
[18:41:33.847]                       }
[18:41:33.847]                       invisible(muffled)
[18:41:33.847]                     }
[18:41:33.847]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.847]                   }
[18:41:33.847]                 }
[18:41:33.847]             }
[18:41:33.847]         }))
[18:41:33.847]     }, error = function(ex) {
[18:41:33.847]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.847]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.847]                 ...future.rng), started = ...future.startTime, 
[18:41:33.847]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.847]             version = "1.8"), class = "FutureResult")
[18:41:33.847]     }, finally = {
[18:41:33.847]         if (!identical(...future.workdir, getwd())) 
[18:41:33.847]             setwd(...future.workdir)
[18:41:33.847]         {
[18:41:33.847]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.847]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.847]             }
[18:41:33.847]             base::options(...future.oldOptions)
[18:41:33.847]             if (.Platform$OS.type == "windows") {
[18:41:33.847]                 old_names <- names(...future.oldEnvVars)
[18:41:33.847]                 envs <- base::Sys.getenv()
[18:41:33.847]                 names <- names(envs)
[18:41:33.847]                 common <- intersect(names, old_names)
[18:41:33.847]                 added <- setdiff(names, old_names)
[18:41:33.847]                 removed <- setdiff(old_names, names)
[18:41:33.847]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.847]                   envs[common]]
[18:41:33.847]                 NAMES <- toupper(changed)
[18:41:33.847]                 args <- list()
[18:41:33.847]                 for (kk in seq_along(NAMES)) {
[18:41:33.847]                   name <- changed[[kk]]
[18:41:33.847]                   NAME <- NAMES[[kk]]
[18:41:33.847]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.847]                     next
[18:41:33.847]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.847]                 }
[18:41:33.847]                 NAMES <- toupper(added)
[18:41:33.847]                 for (kk in seq_along(NAMES)) {
[18:41:33.847]                   name <- added[[kk]]
[18:41:33.847]                   NAME <- NAMES[[kk]]
[18:41:33.847]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.847]                     next
[18:41:33.847]                   args[[name]] <- ""
[18:41:33.847]                 }
[18:41:33.847]                 NAMES <- toupper(removed)
[18:41:33.847]                 for (kk in seq_along(NAMES)) {
[18:41:33.847]                   name <- removed[[kk]]
[18:41:33.847]                   NAME <- NAMES[[kk]]
[18:41:33.847]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.847]                     next
[18:41:33.847]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.847]                 }
[18:41:33.847]                 if (length(args) > 0) 
[18:41:33.847]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.847]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.847]             }
[18:41:33.847]             else {
[18:41:33.847]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.847]             }
[18:41:33.847]             {
[18:41:33.847]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.847]                   0L) {
[18:41:33.847]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.847]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.847]                   base::options(opts)
[18:41:33.847]                 }
[18:41:33.847]                 {
[18:41:33.847]                   {
[18:41:33.847]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.847]                     NULL
[18:41:33.847]                   }
[18:41:33.847]                   options(future.plan = NULL)
[18:41:33.847]                   if (is.na(NA_character_)) 
[18:41:33.847]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.847]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.847]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.847]                     .init = FALSE)
[18:41:33.847]                 }
[18:41:33.847]             }
[18:41:33.847]         }
[18:41:33.847]     })
[18:41:33.847]     if (TRUE) {
[18:41:33.847]         base::sink(type = "output", split = FALSE)
[18:41:33.847]         if (TRUE) {
[18:41:33.847]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.847]         }
[18:41:33.847]         else {
[18:41:33.847]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.847]         }
[18:41:33.847]         base::close(...future.stdout)
[18:41:33.847]         ...future.stdout <- NULL
[18:41:33.847]     }
[18:41:33.847]     ...future.result$conditions <- ...future.conditions
[18:41:33.847]     ...future.result$finished <- base::Sys.time()
[18:41:33.847]     ...future.result
[18:41:33.847] }
[18:41:33.854] Exporting 5 global objects (719 bytes) to cluster node #1 ...
[18:41:33.854] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.855] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.855] Exporting 'MoreArgs' (89 bytes) to cluster node #1 ...
[18:41:33.856] Exporting 'MoreArgs' (89 bytes) to cluster node #1 ... DONE
[18:41:33.856] Exporting '...future.elements_ii' (109 bytes) to cluster node #1 ...
[18:41:33.857] Exporting '...future.elements_ii' (109 bytes) to cluster node #1 ... DONE
[18:41:33.857] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.858] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.858] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.859] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.859] Exporting 5 global objects (719 bytes) to cluster node #1 ... DONE
[18:41:33.860] MultisessionFuture started
[18:41:33.860] - Launch lazy future ... done
[18:41:33.861] run() for 'MultisessionFuture' ... done
[18:41:33.861] Created future:
[18:41:33.877] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.877] - Validating connection of MultisessionFuture
[18:41:33.877] - received message: FutureResult
[18:41:33.877] - Received FutureResult
[18:41:33.878] - Erased future from FutureRegistry
[18:41:33.878] result() for ClusterFuture ...
[18:41:33.878] - result already collected: FutureResult
[18:41:33.878] result() for ClusterFuture ... done
[18:41:33.878] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.861] MultisessionFuture:
[18:41:33.861] Label: 'future_mapply-1'
[18:41:33.861] Expression:
[18:41:33.861] {
[18:41:33.861]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.861]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.861]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.861]         on.exit(options(oopts), add = TRUE)
[18:41:33.861]     }
[18:41:33.861]     {
[18:41:33.861]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.861]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.861]         do.call(mapply, args = args)
[18:41:33.861]     }
[18:41:33.861] }
[18:41:33.861] Lazy evaluation: FALSE
[18:41:33.861] Asynchronous evaluation: TRUE
[18:41:33.861] Local evaluation: TRUE
[18:41:33.861] Environment: R_GlobalEnv
[18:41:33.861] Capture standard output: TRUE
[18:41:33.861] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.861] Globals: 5 objects totaling 286 bytes (function '...future.FUN' of 34 bytes, list 'MoreArgs' of 89 bytes, list '...future.elements_ii' of 109 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.861] Packages: <none>
[18:41:33.861] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.861] Resolved: TRUE
[18:41:33.861] Value: <not collected>
[18:41:33.861] Conditions captured: <none>
[18:41:33.861] Early signaling: FALSE
[18:41:33.861] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.861] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.879] Chunk #1 of 2 ... DONE
[18:41:33.879] Chunk #2 of 2 ...
[18:41:33.879]  - Finding globals in '...' for chunk #2 ...
[18:41:33.879] getGlobalsAndPackages() ...
[18:41:33.879] Searching for globals...
[18:41:33.880] 
[18:41:33.880] Searching for globals ... DONE
[18:41:33.880] - globals: [0] <none>
[18:41:33.880] getGlobalsAndPackages() ... DONE
[18:41:33.880]    + additional globals found: [n=0] 
[18:41:33.881]    + additional namespaces needed: [n=0] 
[18:41:33.881]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:33.881]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.881]  - seeds: <none>
[18:41:33.881]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.881] getGlobalsAndPackages() ...
[18:41:33.882] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.882] Resolving globals: FALSE
[18:41:33.882] The total size of the 5 globals is 286 bytes (286 bytes)
[18:41:33.883] 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 286 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (109 bytes of class 'list'), 'MoreArgs' (89 bytes of class 'list') and '...future.FUN' (34 bytes of class 'function')
[18:41:33.883] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.883] 
[18:41:33.884] getGlobalsAndPackages() ... DONE
[18:41:33.884] run() for 'Future' ...
[18:41:33.884] - state: 'created'
[18:41:33.884] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.899] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.900] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.900]   - Field: 'node'
[18:41:33.900]   - Field: 'label'
[18:41:33.900]   - Field: 'local'
[18:41:33.900]   - Field: 'owner'
[18:41:33.901]   - Field: 'envir'
[18:41:33.901]   - Field: 'workers'
[18:41:33.901]   - Field: 'packages'
[18:41:33.901]   - Field: 'gc'
[18:41:33.901]   - Field: 'conditions'
[18:41:33.901]   - Field: 'persistent'
[18:41:33.902]   - Field: 'expr'
[18:41:33.902]   - Field: 'uuid'
[18:41:33.902]   - Field: 'seed'
[18:41:33.902]   - Field: 'version'
[18:41:33.902]   - Field: 'result'
[18:41:33.902]   - Field: 'asynchronous'
[18:41:33.903]   - Field: 'calls'
[18:41:33.903]   - Field: 'globals'
[18:41:33.903]   - Field: 'stdout'
[18:41:33.903]   - Field: 'earlySignal'
[18:41:33.903]   - Field: 'lazy'
[18:41:33.904]   - Field: 'state'
[18:41:33.904] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.904] - Launch lazy future ...
[18:41:33.904] Packages needed by the future expression (n = 0): <none>
[18:41:33.904] Packages needed by future strategies (n = 0): <none>
[18:41:33.905] {
[18:41:33.905]     {
[18:41:33.905]         {
[18:41:33.905]             ...future.startTime <- base::Sys.time()
[18:41:33.905]             {
[18:41:33.905]                 {
[18:41:33.905]                   {
[18:41:33.905]                     {
[18:41:33.905]                       base::local({
[18:41:33.905]                         has_future <- base::requireNamespace("future", 
[18:41:33.905]                           quietly = TRUE)
[18:41:33.905]                         if (has_future) {
[18:41:33.905]                           ns <- base::getNamespace("future")
[18:41:33.905]                           version <- ns[[".package"]][["version"]]
[18:41:33.905]                           if (is.null(version)) 
[18:41:33.905]                             version <- utils::packageVersion("future")
[18:41:33.905]                         }
[18:41:33.905]                         else {
[18:41:33.905]                           version <- NULL
[18:41:33.905]                         }
[18:41:33.905]                         if (!has_future || version < "1.8.0") {
[18:41:33.905]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.905]                             "", base::R.version$version.string), 
[18:41:33.905]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.905]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.905]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.905]                               "release", "version")], collapse = " "), 
[18:41:33.905]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.905]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.905]                             info)
[18:41:33.905]                           info <- base::paste(info, collapse = "; ")
[18:41:33.905]                           if (!has_future) {
[18:41:33.905]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.905]                               info)
[18:41:33.905]                           }
[18:41:33.905]                           else {
[18:41:33.905]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.905]                               info, version)
[18:41:33.905]                           }
[18:41:33.905]                           base::stop(msg)
[18:41:33.905]                         }
[18:41:33.905]                       })
[18:41:33.905]                     }
[18:41:33.905]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.905]                     base::options(mc.cores = 1L)
[18:41:33.905]                   }
[18:41:33.905]                   ...future.strategy.old <- future::plan("list")
[18:41:33.905]                   options(future.plan = NULL)
[18:41:33.905]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.905]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.905]                 }
[18:41:33.905]                 ...future.workdir <- getwd()
[18:41:33.905]             }
[18:41:33.905]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.905]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.905]         }
[18:41:33.905]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.905]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.905]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.905]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.905]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.905]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.905]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.905]             base::names(...future.oldOptions))
[18:41:33.905]     }
[18:41:33.905]     if (FALSE) {
[18:41:33.905]     }
[18:41:33.905]     else {
[18:41:33.905]         if (TRUE) {
[18:41:33.905]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.905]                 open = "w")
[18:41:33.905]         }
[18:41:33.905]         else {
[18:41:33.905]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.905]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.905]         }
[18:41:33.905]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.905]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.905]             base::sink(type = "output", split = FALSE)
[18:41:33.905]             base::close(...future.stdout)
[18:41:33.905]         }, add = TRUE)
[18:41:33.905]     }
[18:41:33.905]     ...future.frame <- base::sys.nframe()
[18:41:33.905]     ...future.conditions <- base::list()
[18:41:33.905]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.905]     if (FALSE) {
[18:41:33.905]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.905]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.905]     }
[18:41:33.905]     ...future.result <- base::tryCatch({
[18:41:33.905]         base::withCallingHandlers({
[18:41:33.905]             ...future.value <- base::withVisible(base::local({
[18:41:33.905]                 ...future.makeSendCondition <- base::local({
[18:41:33.905]                   sendCondition <- NULL
[18:41:33.905]                   function(frame = 1L) {
[18:41:33.905]                     if (is.function(sendCondition)) 
[18:41:33.905]                       return(sendCondition)
[18:41:33.905]                     ns <- getNamespace("parallel")
[18:41:33.905]                     if (exists("sendData", mode = "function", 
[18:41:33.905]                       envir = ns)) {
[18:41:33.905]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.905]                         envir = ns)
[18:41:33.905]                       envir <- sys.frame(frame)
[18:41:33.905]                       master <- NULL
[18:41:33.905]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.905]                         !identical(envir, emptyenv())) {
[18:41:33.905]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.905]                           inherits = FALSE)) {
[18:41:33.905]                           master <- get("master", mode = "list", 
[18:41:33.905]                             envir = envir, inherits = FALSE)
[18:41:33.905]                           if (inherits(master, c("SOCKnode", 
[18:41:33.905]                             "SOCK0node"))) {
[18:41:33.905]                             sendCondition <<- function(cond) {
[18:41:33.905]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.905]                                 success = TRUE)
[18:41:33.905]                               parallel_sendData(master, data)
[18:41:33.905]                             }
[18:41:33.905]                             return(sendCondition)
[18:41:33.905]                           }
[18:41:33.905]                         }
[18:41:33.905]                         frame <- frame + 1L
[18:41:33.905]                         envir <- sys.frame(frame)
[18:41:33.905]                       }
[18:41:33.905]                     }
[18:41:33.905]                     sendCondition <<- function(cond) NULL
[18:41:33.905]                   }
[18:41:33.905]                 })
[18:41:33.905]                 withCallingHandlers({
[18:41:33.905]                   {
[18:41:33.905]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.905]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.905]                       ...future.globals.maxSize)) {
[18:41:33.905]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.905]                       on.exit(options(oopts), add = TRUE)
[18:41:33.905]                     }
[18:41:33.905]                     {
[18:41:33.905]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.905]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.905]                         USE.NAMES = FALSE)
[18:41:33.905]                       do.call(mapply, args = args)
[18:41:33.905]                     }
[18:41:33.905]                   }
[18:41:33.905]                 }, immediateCondition = function(cond) {
[18:41:33.905]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.905]                   sendCondition(cond)
[18:41:33.905]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.905]                   {
[18:41:33.905]                     inherits <- base::inherits
[18:41:33.905]                     invokeRestart <- base::invokeRestart
[18:41:33.905]                     is.null <- base::is.null
[18:41:33.905]                     muffled <- FALSE
[18:41:33.905]                     if (inherits(cond, "message")) {
[18:41:33.905]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.905]                       if (muffled) 
[18:41:33.905]                         invokeRestart("muffleMessage")
[18:41:33.905]                     }
[18:41:33.905]                     else if (inherits(cond, "warning")) {
[18:41:33.905]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.905]                       if (muffled) 
[18:41:33.905]                         invokeRestart("muffleWarning")
[18:41:33.905]                     }
[18:41:33.905]                     else if (inherits(cond, "condition")) {
[18:41:33.905]                       if (!is.null(pattern)) {
[18:41:33.905]                         computeRestarts <- base::computeRestarts
[18:41:33.905]                         grepl <- base::grepl
[18:41:33.905]                         restarts <- computeRestarts(cond)
[18:41:33.905]                         for (restart in restarts) {
[18:41:33.905]                           name <- restart$name
[18:41:33.905]                           if (is.null(name)) 
[18:41:33.905]                             next
[18:41:33.905]                           if (!grepl(pattern, name)) 
[18:41:33.905]                             next
[18:41:33.905]                           invokeRestart(restart)
[18:41:33.905]                           muffled <- TRUE
[18:41:33.905]                           break
[18:41:33.905]                         }
[18:41:33.905]                       }
[18:41:33.905]                     }
[18:41:33.905]                     invisible(muffled)
[18:41:33.905]                   }
[18:41:33.905]                   muffleCondition(cond)
[18:41:33.905]                 })
[18:41:33.905]             }))
[18:41:33.905]             future::FutureResult(value = ...future.value$value, 
[18:41:33.905]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.905]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.905]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.905]                     ...future.globalenv.names))
[18:41:33.905]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.905]         }, condition = base::local({
[18:41:33.905]             c <- base::c
[18:41:33.905]             inherits <- base::inherits
[18:41:33.905]             invokeRestart <- base::invokeRestart
[18:41:33.905]             length <- base::length
[18:41:33.905]             list <- base::list
[18:41:33.905]             seq.int <- base::seq.int
[18:41:33.905]             signalCondition <- base::signalCondition
[18:41:33.905]             sys.calls <- base::sys.calls
[18:41:33.905]             `[[` <- base::`[[`
[18:41:33.905]             `+` <- base::`+`
[18:41:33.905]             `<<-` <- base::`<<-`
[18:41:33.905]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.905]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.905]                   3L)]
[18:41:33.905]             }
[18:41:33.905]             function(cond) {
[18:41:33.905]                 is_error <- inherits(cond, "error")
[18:41:33.905]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.905]                   NULL)
[18:41:33.905]                 if (is_error) {
[18:41:33.905]                   sessionInformation <- function() {
[18:41:33.905]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.905]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.905]                       search = base::search(), system = base::Sys.info())
[18:41:33.905]                   }
[18:41:33.905]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.905]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.905]                     cond$call), session = sessionInformation(), 
[18:41:33.905]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.905]                   signalCondition(cond)
[18:41:33.905]                 }
[18:41:33.905]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.905]                 "immediateCondition"))) {
[18:41:33.905]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.905]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.905]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.905]                   if (TRUE && !signal) {
[18:41:33.905]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.905]                     {
[18:41:33.905]                       inherits <- base::inherits
[18:41:33.905]                       invokeRestart <- base::invokeRestart
[18:41:33.905]                       is.null <- base::is.null
[18:41:33.905]                       muffled <- FALSE
[18:41:33.905]                       if (inherits(cond, "message")) {
[18:41:33.905]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.905]                         if (muffled) 
[18:41:33.905]                           invokeRestart("muffleMessage")
[18:41:33.905]                       }
[18:41:33.905]                       else if (inherits(cond, "warning")) {
[18:41:33.905]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.905]                         if (muffled) 
[18:41:33.905]                           invokeRestart("muffleWarning")
[18:41:33.905]                       }
[18:41:33.905]                       else if (inherits(cond, "condition")) {
[18:41:33.905]                         if (!is.null(pattern)) {
[18:41:33.905]                           computeRestarts <- base::computeRestarts
[18:41:33.905]                           grepl <- base::grepl
[18:41:33.905]                           restarts <- computeRestarts(cond)
[18:41:33.905]                           for (restart in restarts) {
[18:41:33.905]                             name <- restart$name
[18:41:33.905]                             if (is.null(name)) 
[18:41:33.905]                               next
[18:41:33.905]                             if (!grepl(pattern, name)) 
[18:41:33.905]                               next
[18:41:33.905]                             invokeRestart(restart)
[18:41:33.905]                             muffled <- TRUE
[18:41:33.905]                             break
[18:41:33.905]                           }
[18:41:33.905]                         }
[18:41:33.905]                       }
[18:41:33.905]                       invisible(muffled)
[18:41:33.905]                     }
[18:41:33.905]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.905]                   }
[18:41:33.905]                 }
[18:41:33.905]                 else {
[18:41:33.905]                   if (TRUE) {
[18:41:33.905]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.905]                     {
[18:41:33.905]                       inherits <- base::inherits
[18:41:33.905]                       invokeRestart <- base::invokeRestart
[18:41:33.905]                       is.null <- base::is.null
[18:41:33.905]                       muffled <- FALSE
[18:41:33.905]                       if (inherits(cond, "message")) {
[18:41:33.905]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.905]                         if (muffled) 
[18:41:33.905]                           invokeRestart("muffleMessage")
[18:41:33.905]                       }
[18:41:33.905]                       else if (inherits(cond, "warning")) {
[18:41:33.905]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.905]                         if (muffled) 
[18:41:33.905]                           invokeRestart("muffleWarning")
[18:41:33.905]                       }
[18:41:33.905]                       else if (inherits(cond, "condition")) {
[18:41:33.905]                         if (!is.null(pattern)) {
[18:41:33.905]                           computeRestarts <- base::computeRestarts
[18:41:33.905]                           grepl <- base::grepl
[18:41:33.905]                           restarts <- computeRestarts(cond)
[18:41:33.905]                           for (restart in restarts) {
[18:41:33.905]                             name <- restart$name
[18:41:33.905]                             if (is.null(name)) 
[18:41:33.905]                               next
[18:41:33.905]                             if (!grepl(pattern, name)) 
[18:41:33.905]                               next
[18:41:33.905]                             invokeRestart(restart)
[18:41:33.905]                             muffled <- TRUE
[18:41:33.905]                             break
[18:41:33.905]                           }
[18:41:33.905]                         }
[18:41:33.905]                       }
[18:41:33.905]                       invisible(muffled)
[18:41:33.905]                     }
[18:41:33.905]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.905]                   }
[18:41:33.905]                 }
[18:41:33.905]             }
[18:41:33.905]         }))
[18:41:33.905]     }, error = function(ex) {
[18:41:33.905]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.905]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.905]                 ...future.rng), started = ...future.startTime, 
[18:41:33.905]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.905]             version = "1.8"), class = "FutureResult")
[18:41:33.905]     }, finally = {
[18:41:33.905]         if (!identical(...future.workdir, getwd())) 
[18:41:33.905]             setwd(...future.workdir)
[18:41:33.905]         {
[18:41:33.905]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.905]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.905]             }
[18:41:33.905]             base::options(...future.oldOptions)
[18:41:33.905]             if (.Platform$OS.type == "windows") {
[18:41:33.905]                 old_names <- names(...future.oldEnvVars)
[18:41:33.905]                 envs <- base::Sys.getenv()
[18:41:33.905]                 names <- names(envs)
[18:41:33.905]                 common <- intersect(names, old_names)
[18:41:33.905]                 added <- setdiff(names, old_names)
[18:41:33.905]                 removed <- setdiff(old_names, names)
[18:41:33.905]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.905]                   envs[common]]
[18:41:33.905]                 NAMES <- toupper(changed)
[18:41:33.905]                 args <- list()
[18:41:33.905]                 for (kk in seq_along(NAMES)) {
[18:41:33.905]                   name <- changed[[kk]]
[18:41:33.905]                   NAME <- NAMES[[kk]]
[18:41:33.905]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.905]                     next
[18:41:33.905]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.905]                 }
[18:41:33.905]                 NAMES <- toupper(added)
[18:41:33.905]                 for (kk in seq_along(NAMES)) {
[18:41:33.905]                   name <- added[[kk]]
[18:41:33.905]                   NAME <- NAMES[[kk]]
[18:41:33.905]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.905]                     next
[18:41:33.905]                   args[[name]] <- ""
[18:41:33.905]                 }
[18:41:33.905]                 NAMES <- toupper(removed)
[18:41:33.905]                 for (kk in seq_along(NAMES)) {
[18:41:33.905]                   name <- removed[[kk]]
[18:41:33.905]                   NAME <- NAMES[[kk]]
[18:41:33.905]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.905]                     next
[18:41:33.905]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.905]                 }
[18:41:33.905]                 if (length(args) > 0) 
[18:41:33.905]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.905]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.905]             }
[18:41:33.905]             else {
[18:41:33.905]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.905]             }
[18:41:33.905]             {
[18:41:33.905]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.905]                   0L) {
[18:41:33.905]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.905]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.905]                   base::options(opts)
[18:41:33.905]                 }
[18:41:33.905]                 {
[18:41:33.905]                   {
[18:41:33.905]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.905]                     NULL
[18:41:33.905]                   }
[18:41:33.905]                   options(future.plan = NULL)
[18:41:33.905]                   if (is.na(NA_character_)) 
[18:41:33.905]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.905]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.905]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.905]                     .init = FALSE)
[18:41:33.905]                 }
[18:41:33.905]             }
[18:41:33.905]         }
[18:41:33.905]     })
[18:41:33.905]     if (TRUE) {
[18:41:33.905]         base::sink(type = "output", split = FALSE)
[18:41:33.905]         if (TRUE) {
[18:41:33.905]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.905]         }
[18:41:33.905]         else {
[18:41:33.905]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.905]         }
[18:41:33.905]         base::close(...future.stdout)
[18:41:33.905]         ...future.stdout <- NULL
[18:41:33.905]     }
[18:41:33.905]     ...future.result$conditions <- ...future.conditions
[18:41:33.905]     ...future.result$finished <- base::Sys.time()
[18:41:33.905]     ...future.result
[18:41:33.905] }
[18:41:33.911] Exporting 5 global objects (719 bytes) to cluster node #1 ...
[18:41:33.911] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:33.912] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:33.912] Exporting 'MoreArgs' (89 bytes) to cluster node #1 ...
[18:41:33.913] Exporting 'MoreArgs' (89 bytes) to cluster node #1 ... DONE
[18:41:33.913] Exporting '...future.elements_ii' (109 bytes) to cluster node #1 ...
[18:41:33.913] Exporting '...future.elements_ii' (109 bytes) to cluster node #1 ... DONE
[18:41:33.914] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:33.914] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:33.914] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:33.915] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:33.915] Exporting 5 global objects (719 bytes) to cluster node #1 ... DONE
[18:41:33.915] MultisessionFuture started
[18:41:33.915] - Launch lazy future ... done
[18:41:33.916] run() for 'MultisessionFuture' ... done
[18:41:33.916] Created future:
[18:41:33.935] receiveMessageFromWorker() for ClusterFuture ...
[18:41:33.935] - Validating connection of MultisessionFuture
[18:41:33.935] - received message: FutureResult
[18:41:33.936] - Received FutureResult
[18:41:33.936] - Erased future from FutureRegistry
[18:41:33.936] result() for ClusterFuture ...
[18:41:33.936] - result already collected: FutureResult
[18:41:33.936] result() for ClusterFuture ... done
[18:41:33.937] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:33.916] MultisessionFuture:
[18:41:33.916] Label: 'future_mapply-2'
[18:41:33.916] Expression:
[18:41:33.916] {
[18:41:33.916]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.916]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:33.916]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.916]         on.exit(options(oopts), add = TRUE)
[18:41:33.916]     }
[18:41:33.916]     {
[18:41:33.916]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.916]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:33.916]         do.call(mapply, args = args)
[18:41:33.916]     }
[18:41:33.916] }
[18:41:33.916] Lazy evaluation: FALSE
[18:41:33.916] Asynchronous evaluation: TRUE
[18:41:33.916] Local evaluation: TRUE
[18:41:33.916] Environment: R_GlobalEnv
[18:41:33.916] Capture standard output: TRUE
[18:41:33.916] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:33.916] Globals: 5 objects totaling 286 bytes (function '...future.FUN' of 34 bytes, list 'MoreArgs' of 89 bytes, list '...future.elements_ii' of 109 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:33.916] Packages: <none>
[18:41:33.916] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:33.916] Resolved: TRUE
[18:41:33.916] Value: <not collected>
[18:41:33.916] Conditions captured: <none>
[18:41:33.916] Early signaling: FALSE
[18:41:33.916] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:33.916] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.937] Chunk #2 of 2 ... DONE
[18:41:33.937] Launching 2 futures (chunks) ... DONE
[18:41:33.937] Resolving 2 futures (chunks) ...
[18:41:33.937] resolve() on list ...
[18:41:33.938]  recursive: 0
[18:41:33.938]  length: 2
[18:41:33.938] 
[18:41:33.938] Future #1
[18:41:33.938] result() for ClusterFuture ...
[18:41:33.938] - result already collected: FutureResult
[18:41:33.939] result() for ClusterFuture ... done
[18:41:33.939] result() for ClusterFuture ...
[18:41:33.939] - result already collected: FutureResult
[18:41:33.939] result() for ClusterFuture ... done
[18:41:33.939] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:33.939] - nx: 2
[18:41:33.940] - relay: TRUE
[18:41:33.940] - stdout: TRUE
[18:41:33.940] - signal: TRUE
[18:41:33.940] - resignal: FALSE
[18:41:33.940] - force: TRUE
[18:41:33.940] - relayed: [n=2] FALSE, FALSE
[18:41:33.941] - queued futures: [n=2] FALSE, FALSE
[18:41:33.941]  - until=1
[18:41:33.941]  - relaying element #1
[18:41:33.941] result() for ClusterFuture ...
[18:41:33.941] - result already collected: FutureResult
[18:41:33.941] result() for ClusterFuture ... done
[18:41:33.941] result() for ClusterFuture ...
[18:41:33.942] - result already collected: FutureResult
[18:41:33.942] result() for ClusterFuture ... done
[18:41:33.942] result() for ClusterFuture ...
[18:41:33.942] - result already collected: FutureResult
[18:41:33.942] result() for ClusterFuture ... done
[18:41:33.942] result() for ClusterFuture ...
[18:41:33.943] - result already collected: FutureResult
[18:41:33.943] result() for ClusterFuture ... done
[18:41:33.943] - relayed: [n=2] TRUE, FALSE
[18:41:33.943] - queued futures: [n=2] TRUE, FALSE
[18:41:33.943] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:33.943]  length: 1 (resolved future 1)
[18:41:33.944] Future #2
[18:41:33.944] result() for ClusterFuture ...
[18:41:33.944] - result already collected: FutureResult
[18:41:33.944] result() for ClusterFuture ... done
[18:41:33.944] result() for ClusterFuture ...
[18:41:33.944] - result already collected: FutureResult
[18:41:33.945] result() for ClusterFuture ... done
[18:41:33.945] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:33.945] - nx: 2
[18:41:33.945] - relay: TRUE
[18:41:33.945] - stdout: TRUE
[18:41:33.945] - signal: TRUE
[18:41:33.946] - resignal: FALSE
[18:41:33.946] - force: TRUE
[18:41:33.946] - relayed: [n=2] TRUE, FALSE
[18:41:33.946] - queued futures: [n=2] TRUE, FALSE
[18:41:33.946]  - until=2
[18:41:33.946]  - relaying element #2
[18:41:33.947] result() for ClusterFuture ...
[18:41:33.947] - result already collected: FutureResult
[18:41:33.947] result() for ClusterFuture ... done
[18:41:33.947] result() for ClusterFuture ...
[18:41:33.947] - result already collected: FutureResult
[18:41:33.947] result() for ClusterFuture ... done
[18:41:33.947] result() for ClusterFuture ...
[18:41:33.948] - result already collected: FutureResult
[18:41:33.948] result() for ClusterFuture ... done
[18:41:33.948] result() for ClusterFuture ...
[18:41:33.948] - result already collected: FutureResult
[18:41:33.948] result() for ClusterFuture ... done
[18:41:33.948] - relayed: [n=2] TRUE, TRUE
[18:41:33.949] - queued futures: [n=2] TRUE, TRUE
[18:41:33.949] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:33.949]  length: 0 (resolved future 2)
[18:41:33.949] Relaying remaining futures
[18:41:33.949] signalConditionsASAP(NULL, pos=0) ...
[18:41:33.949] - nx: 2
[18:41:33.950] - relay: TRUE
[18:41:33.950] - stdout: TRUE
[18:41:33.950] - signal: TRUE
[18:41:33.950] - resignal: FALSE
[18:41:33.950] - force: TRUE
[18:41:33.950] - relayed: [n=2] TRUE, TRUE
[18:41:33.950] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:33.951] - relayed: [n=2] TRUE, TRUE
[18:41:33.951] - queued futures: [n=2] TRUE, TRUE
[18:41:33.951] signalConditionsASAP(NULL, pos=0) ... done
[18:41:33.951] resolve() on list ... DONE
[18:41:33.951] result() for ClusterFuture ...
[18:41:33.952] - result already collected: FutureResult
[18:41:33.952] result() for ClusterFuture ... done
[18:41:33.952] result() for ClusterFuture ...
[18:41:33.952] - result already collected: FutureResult
[18:41:33.952] result() for ClusterFuture ... done
[18:41:33.952] result() for ClusterFuture ...
[18:41:33.952] - result already collected: FutureResult
[18:41:33.953] result() for ClusterFuture ... done
[18:41:33.953] result() for ClusterFuture ...
[18:41:33.953] - result already collected: FutureResult
[18:41:33.953] result() for ClusterFuture ... done
[18:41:33.953]  - Number of value chunks collected: 2
[18:41:33.953] Resolving 2 futures (chunks) ... DONE
[18:41:33.954] Reducing values from 2 chunks ...
[18:41:33.954]  - Number of values collected after concatenation: 4
[18:41:33.954]  - Number of values expected: 4
[18:41:33.954] Reducing values from 2 chunks ... DONE
[18:41:33.954] future_mapply() ... DONE
[18:41:33.954] future_mapply() ...
[18:41:33.959] Number of chunks: 2
[18:41:33.959] getGlobalsAndPackagesXApply() ...
[18:41:33.959]  - future.globals: TRUE
[18:41:33.960] getGlobalsAndPackages() ...
[18:41:33.960] Searching for globals...
[18:41:33.961] - globals found: [3] 'FUN', '+', 'seq_len'
[18:41:33.961] Searching for globals ... DONE
[18:41:33.962] Resolving globals: FALSE
[18:41:33.962] The total size of the 1 globals is 414 bytes (414 bytes)
[18:41:33.963] The total size of the 1 globals exported for future expression ('FUN()') is 414 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (414 bytes of class 'function')
[18:41:33.963] - globals: [1] 'FUN'
[18:41:33.963] 
[18:41:33.963] getGlobalsAndPackages() ... DONE
[18:41:33.963]  - globals found/used: [n=1] 'FUN'
[18:41:33.963]  - needed namespaces: [n=0] 
[18:41:33.964] Finding globals ... DONE
[18:41:33.964] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:33.964] List of 2
[18:41:33.964]  $ ...future.FUN:function (x, y)  
[18:41:33.964]  $ MoreArgs     : NULL
[18:41:33.964]  - attr(*, "where")=List of 2
[18:41:33.964]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:33.964]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:33.964]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:33.964]  - attr(*, "resolved")= logi FALSE
[18:41:33.964]  - attr(*, "total_size")= num NA
[18:41:33.967] Packages to be attached in all futures: [n=0] 
[18:41:33.967] getGlobalsAndPackagesXApply() ... DONE
[18:41:33.968] Number of futures (= number of chunks): 2
[18:41:33.968] Launching 2 futures (chunks) ...
[18:41:33.968] Chunk #1 of 2 ...
[18:41:33.968]  - Finding globals in '...' for chunk #1 ...
[18:41:33.968] getGlobalsAndPackages() ...
[18:41:33.968] Searching for globals...
[18:41:33.969] 
[18:41:33.969] Searching for globals ... DONE
[18:41:33.969] - globals: [0] <none>
[18:41:33.969] getGlobalsAndPackages() ... DONE
[18:41:33.969]    + additional globals found: [n=0] 
[18:41:33.970]    + additional namespaces needed: [n=0] 
[18:41:33.970]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:33.970]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:33.970]  - seeds: <none>
[18:41:33.970]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.970] getGlobalsAndPackages() ...
[18:41:33.971] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.971] Resolving globals: FALSE
[18:41:33.971] The total size of the 5 globals is 645 bytes (645 bytes)
[18:41:33.972] 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 645 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (414 bytes of class 'function'), '...future.elements_ii' (150 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:33.972] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:33.972] 
[18:41:33.973] getGlobalsAndPackages() ... DONE
[18:41:33.973] run() for 'Future' ...
[18:41:33.973] - state: 'created'
[18:41:33.973] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:33.989] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:33.990] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:33.990]   - Field: 'node'
[18:41:33.990]   - Field: 'label'
[18:41:33.990]   - Field: 'local'
[18:41:33.990]   - Field: 'owner'
[18:41:33.991]   - Field: 'envir'
[18:41:33.991]   - Field: 'workers'
[18:41:33.991]   - Field: 'packages'
[18:41:33.991]   - Field: 'gc'
[18:41:33.991]   - Field: 'conditions'
[18:41:33.991]   - Field: 'persistent'
[18:41:33.992]   - Field: 'expr'
[18:41:33.992]   - Field: 'uuid'
[18:41:33.992]   - Field: 'seed'
[18:41:33.992]   - Field: 'version'
[18:41:33.992]   - Field: 'result'
[18:41:33.993]   - Field: 'asynchronous'
[18:41:33.993]   - Field: 'calls'
[18:41:33.993]   - Field: 'globals'
[18:41:33.993]   - Field: 'stdout'
[18:41:33.993]   - Field: 'earlySignal'
[18:41:33.993]   - Field: 'lazy'
[18:41:33.994]   - Field: 'state'
[18:41:33.994] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:33.994] - Launch lazy future ...
[18:41:33.994] Packages needed by the future expression (n = 0): <none>
[18:41:33.994] Packages needed by future strategies (n = 0): <none>
[18:41:33.995] {
[18:41:33.995]     {
[18:41:33.995]         {
[18:41:33.995]             ...future.startTime <- base::Sys.time()
[18:41:33.995]             {
[18:41:33.995]                 {
[18:41:33.995]                   {
[18:41:33.995]                     {
[18:41:33.995]                       base::local({
[18:41:33.995]                         has_future <- base::requireNamespace("future", 
[18:41:33.995]                           quietly = TRUE)
[18:41:33.995]                         if (has_future) {
[18:41:33.995]                           ns <- base::getNamespace("future")
[18:41:33.995]                           version <- ns[[".package"]][["version"]]
[18:41:33.995]                           if (is.null(version)) 
[18:41:33.995]                             version <- utils::packageVersion("future")
[18:41:33.995]                         }
[18:41:33.995]                         else {
[18:41:33.995]                           version <- NULL
[18:41:33.995]                         }
[18:41:33.995]                         if (!has_future || version < "1.8.0") {
[18:41:33.995]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:33.995]                             "", base::R.version$version.string), 
[18:41:33.995]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:33.995]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:33.995]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:33.995]                               "release", "version")], collapse = " "), 
[18:41:33.995]                             hostname = base::Sys.info()[["nodename"]])
[18:41:33.995]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:33.995]                             info)
[18:41:33.995]                           info <- base::paste(info, collapse = "; ")
[18:41:33.995]                           if (!has_future) {
[18:41:33.995]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:33.995]                               info)
[18:41:33.995]                           }
[18:41:33.995]                           else {
[18:41:33.995]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:33.995]                               info, version)
[18:41:33.995]                           }
[18:41:33.995]                           base::stop(msg)
[18:41:33.995]                         }
[18:41:33.995]                       })
[18:41:33.995]                     }
[18:41:33.995]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:33.995]                     base::options(mc.cores = 1L)
[18:41:33.995]                   }
[18:41:33.995]                   ...future.strategy.old <- future::plan("list")
[18:41:33.995]                   options(future.plan = NULL)
[18:41:33.995]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.995]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:33.995]                 }
[18:41:33.995]                 ...future.workdir <- getwd()
[18:41:33.995]             }
[18:41:33.995]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:33.995]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:33.995]         }
[18:41:33.995]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:33.995]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:33.995]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:33.995]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:33.995]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:33.995]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:33.995]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:33.995]             base::names(...future.oldOptions))
[18:41:33.995]     }
[18:41:33.995]     if (FALSE) {
[18:41:33.995]     }
[18:41:33.995]     else {
[18:41:33.995]         if (TRUE) {
[18:41:33.995]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:33.995]                 open = "w")
[18:41:33.995]         }
[18:41:33.995]         else {
[18:41:33.995]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:33.995]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:33.995]         }
[18:41:33.995]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:33.995]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:33.995]             base::sink(type = "output", split = FALSE)
[18:41:33.995]             base::close(...future.stdout)
[18:41:33.995]         }, add = TRUE)
[18:41:33.995]     }
[18:41:33.995]     ...future.frame <- base::sys.nframe()
[18:41:33.995]     ...future.conditions <- base::list()
[18:41:33.995]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:33.995]     if (FALSE) {
[18:41:33.995]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:33.995]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:33.995]     }
[18:41:33.995]     ...future.result <- base::tryCatch({
[18:41:33.995]         base::withCallingHandlers({
[18:41:33.995]             ...future.value <- base::withVisible(base::local({
[18:41:33.995]                 ...future.makeSendCondition <- base::local({
[18:41:33.995]                   sendCondition <- NULL
[18:41:33.995]                   function(frame = 1L) {
[18:41:33.995]                     if (is.function(sendCondition)) 
[18:41:33.995]                       return(sendCondition)
[18:41:33.995]                     ns <- getNamespace("parallel")
[18:41:33.995]                     if (exists("sendData", mode = "function", 
[18:41:33.995]                       envir = ns)) {
[18:41:33.995]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:33.995]                         envir = ns)
[18:41:33.995]                       envir <- sys.frame(frame)
[18:41:33.995]                       master <- NULL
[18:41:33.995]                       while (!identical(envir, .GlobalEnv) && 
[18:41:33.995]                         !identical(envir, emptyenv())) {
[18:41:33.995]                         if (exists("master", mode = "list", envir = envir, 
[18:41:33.995]                           inherits = FALSE)) {
[18:41:33.995]                           master <- get("master", mode = "list", 
[18:41:33.995]                             envir = envir, inherits = FALSE)
[18:41:33.995]                           if (inherits(master, c("SOCKnode", 
[18:41:33.995]                             "SOCK0node"))) {
[18:41:33.995]                             sendCondition <<- function(cond) {
[18:41:33.995]                               data <- list(type = "VALUE", value = cond, 
[18:41:33.995]                                 success = TRUE)
[18:41:33.995]                               parallel_sendData(master, data)
[18:41:33.995]                             }
[18:41:33.995]                             return(sendCondition)
[18:41:33.995]                           }
[18:41:33.995]                         }
[18:41:33.995]                         frame <- frame + 1L
[18:41:33.995]                         envir <- sys.frame(frame)
[18:41:33.995]                       }
[18:41:33.995]                     }
[18:41:33.995]                     sendCondition <<- function(cond) NULL
[18:41:33.995]                   }
[18:41:33.995]                 })
[18:41:33.995]                 withCallingHandlers({
[18:41:33.995]                   {
[18:41:33.995]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:33.995]                     if (!identical(...future.globals.maxSize.org, 
[18:41:33.995]                       ...future.globals.maxSize)) {
[18:41:33.995]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:33.995]                       on.exit(options(oopts), add = TRUE)
[18:41:33.995]                     }
[18:41:33.995]                     {
[18:41:33.995]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:33.995]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:33.995]                         USE.NAMES = FALSE)
[18:41:33.995]                       do.call(mapply, args = args)
[18:41:33.995]                     }
[18:41:33.995]                   }
[18:41:33.995]                 }, immediateCondition = function(cond) {
[18:41:33.995]                   sendCondition <- ...future.makeSendCondition()
[18:41:33.995]                   sendCondition(cond)
[18:41:33.995]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.995]                   {
[18:41:33.995]                     inherits <- base::inherits
[18:41:33.995]                     invokeRestart <- base::invokeRestart
[18:41:33.995]                     is.null <- base::is.null
[18:41:33.995]                     muffled <- FALSE
[18:41:33.995]                     if (inherits(cond, "message")) {
[18:41:33.995]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:33.995]                       if (muffled) 
[18:41:33.995]                         invokeRestart("muffleMessage")
[18:41:33.995]                     }
[18:41:33.995]                     else if (inherits(cond, "warning")) {
[18:41:33.995]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:33.995]                       if (muffled) 
[18:41:33.995]                         invokeRestart("muffleWarning")
[18:41:33.995]                     }
[18:41:33.995]                     else if (inherits(cond, "condition")) {
[18:41:33.995]                       if (!is.null(pattern)) {
[18:41:33.995]                         computeRestarts <- base::computeRestarts
[18:41:33.995]                         grepl <- base::grepl
[18:41:33.995]                         restarts <- computeRestarts(cond)
[18:41:33.995]                         for (restart in restarts) {
[18:41:33.995]                           name <- restart$name
[18:41:33.995]                           if (is.null(name)) 
[18:41:33.995]                             next
[18:41:33.995]                           if (!grepl(pattern, name)) 
[18:41:33.995]                             next
[18:41:33.995]                           invokeRestart(restart)
[18:41:33.995]                           muffled <- TRUE
[18:41:33.995]                           break
[18:41:33.995]                         }
[18:41:33.995]                       }
[18:41:33.995]                     }
[18:41:33.995]                     invisible(muffled)
[18:41:33.995]                   }
[18:41:33.995]                   muffleCondition(cond)
[18:41:33.995]                 })
[18:41:33.995]             }))
[18:41:33.995]             future::FutureResult(value = ...future.value$value, 
[18:41:33.995]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.995]                   ...future.rng), globalenv = if (FALSE) 
[18:41:33.995]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:33.995]                     ...future.globalenv.names))
[18:41:33.995]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:33.995]         }, condition = base::local({
[18:41:33.995]             c <- base::c
[18:41:33.995]             inherits <- base::inherits
[18:41:33.995]             invokeRestart <- base::invokeRestart
[18:41:33.995]             length <- base::length
[18:41:33.995]             list <- base::list
[18:41:33.995]             seq.int <- base::seq.int
[18:41:33.995]             signalCondition <- base::signalCondition
[18:41:33.995]             sys.calls <- base::sys.calls
[18:41:33.995]             `[[` <- base::`[[`
[18:41:33.995]             `+` <- base::`+`
[18:41:33.995]             `<<-` <- base::`<<-`
[18:41:33.995]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:33.995]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:33.995]                   3L)]
[18:41:33.995]             }
[18:41:33.995]             function(cond) {
[18:41:33.995]                 is_error <- inherits(cond, "error")
[18:41:33.995]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:33.995]                   NULL)
[18:41:33.995]                 if (is_error) {
[18:41:33.995]                   sessionInformation <- function() {
[18:41:33.995]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:33.995]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:33.995]                       search = base::search(), system = base::Sys.info())
[18:41:33.995]                   }
[18:41:33.995]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.995]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:33.995]                     cond$call), session = sessionInformation(), 
[18:41:33.995]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:33.995]                   signalCondition(cond)
[18:41:33.995]                 }
[18:41:33.995]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:33.995]                 "immediateCondition"))) {
[18:41:33.995]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:33.995]                   ...future.conditions[[length(...future.conditions) + 
[18:41:33.995]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:33.995]                   if (TRUE && !signal) {
[18:41:33.995]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.995]                     {
[18:41:33.995]                       inherits <- base::inherits
[18:41:33.995]                       invokeRestart <- base::invokeRestart
[18:41:33.995]                       is.null <- base::is.null
[18:41:33.995]                       muffled <- FALSE
[18:41:33.995]                       if (inherits(cond, "message")) {
[18:41:33.995]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.995]                         if (muffled) 
[18:41:33.995]                           invokeRestart("muffleMessage")
[18:41:33.995]                       }
[18:41:33.995]                       else if (inherits(cond, "warning")) {
[18:41:33.995]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.995]                         if (muffled) 
[18:41:33.995]                           invokeRestart("muffleWarning")
[18:41:33.995]                       }
[18:41:33.995]                       else if (inherits(cond, "condition")) {
[18:41:33.995]                         if (!is.null(pattern)) {
[18:41:33.995]                           computeRestarts <- base::computeRestarts
[18:41:33.995]                           grepl <- base::grepl
[18:41:33.995]                           restarts <- computeRestarts(cond)
[18:41:33.995]                           for (restart in restarts) {
[18:41:33.995]                             name <- restart$name
[18:41:33.995]                             if (is.null(name)) 
[18:41:33.995]                               next
[18:41:33.995]                             if (!grepl(pattern, name)) 
[18:41:33.995]                               next
[18:41:33.995]                             invokeRestart(restart)
[18:41:33.995]                             muffled <- TRUE
[18:41:33.995]                             break
[18:41:33.995]                           }
[18:41:33.995]                         }
[18:41:33.995]                       }
[18:41:33.995]                       invisible(muffled)
[18:41:33.995]                     }
[18:41:33.995]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.995]                   }
[18:41:33.995]                 }
[18:41:33.995]                 else {
[18:41:33.995]                   if (TRUE) {
[18:41:33.995]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:33.995]                     {
[18:41:33.995]                       inherits <- base::inherits
[18:41:33.995]                       invokeRestart <- base::invokeRestart
[18:41:33.995]                       is.null <- base::is.null
[18:41:33.995]                       muffled <- FALSE
[18:41:33.995]                       if (inherits(cond, "message")) {
[18:41:33.995]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:33.995]                         if (muffled) 
[18:41:33.995]                           invokeRestart("muffleMessage")
[18:41:33.995]                       }
[18:41:33.995]                       else if (inherits(cond, "warning")) {
[18:41:33.995]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:33.995]                         if (muffled) 
[18:41:33.995]                           invokeRestart("muffleWarning")
[18:41:33.995]                       }
[18:41:33.995]                       else if (inherits(cond, "condition")) {
[18:41:33.995]                         if (!is.null(pattern)) {
[18:41:33.995]                           computeRestarts <- base::computeRestarts
[18:41:33.995]                           grepl <- base::grepl
[18:41:33.995]                           restarts <- computeRestarts(cond)
[18:41:33.995]                           for (restart in restarts) {
[18:41:33.995]                             name <- restart$name
[18:41:33.995]                             if (is.null(name)) 
[18:41:33.995]                               next
[18:41:33.995]                             if (!grepl(pattern, name)) 
[18:41:33.995]                               next
[18:41:33.995]                             invokeRestart(restart)
[18:41:33.995]                             muffled <- TRUE
[18:41:33.995]                             break
[18:41:33.995]                           }
[18:41:33.995]                         }
[18:41:33.995]                       }
[18:41:33.995]                       invisible(muffled)
[18:41:33.995]                     }
[18:41:33.995]                     muffleCondition(cond, pattern = "^muffle")
[18:41:33.995]                   }
[18:41:33.995]                 }
[18:41:33.995]             }
[18:41:33.995]         }))
[18:41:33.995]     }, error = function(ex) {
[18:41:33.995]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:33.995]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:33.995]                 ...future.rng), started = ...future.startTime, 
[18:41:33.995]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:33.995]             version = "1.8"), class = "FutureResult")
[18:41:33.995]     }, finally = {
[18:41:33.995]         if (!identical(...future.workdir, getwd())) 
[18:41:33.995]             setwd(...future.workdir)
[18:41:33.995]         {
[18:41:33.995]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:33.995]                 ...future.oldOptions$nwarnings <- NULL
[18:41:33.995]             }
[18:41:33.995]             base::options(...future.oldOptions)
[18:41:33.995]             if (.Platform$OS.type == "windows") {
[18:41:33.995]                 old_names <- names(...future.oldEnvVars)
[18:41:33.995]                 envs <- base::Sys.getenv()
[18:41:33.995]                 names <- names(envs)
[18:41:33.995]                 common <- intersect(names, old_names)
[18:41:33.995]                 added <- setdiff(names, old_names)
[18:41:33.995]                 removed <- setdiff(old_names, names)
[18:41:33.995]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:33.995]                   envs[common]]
[18:41:33.995]                 NAMES <- toupper(changed)
[18:41:33.995]                 args <- list()
[18:41:33.995]                 for (kk in seq_along(NAMES)) {
[18:41:33.995]                   name <- changed[[kk]]
[18:41:33.995]                   NAME <- NAMES[[kk]]
[18:41:33.995]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.995]                     next
[18:41:33.995]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.995]                 }
[18:41:33.995]                 NAMES <- toupper(added)
[18:41:33.995]                 for (kk in seq_along(NAMES)) {
[18:41:33.995]                   name <- added[[kk]]
[18:41:33.995]                   NAME <- NAMES[[kk]]
[18:41:33.995]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.995]                     next
[18:41:33.995]                   args[[name]] <- ""
[18:41:33.995]                 }
[18:41:33.995]                 NAMES <- toupper(removed)
[18:41:33.995]                 for (kk in seq_along(NAMES)) {
[18:41:33.995]                   name <- removed[[kk]]
[18:41:33.995]                   NAME <- NAMES[[kk]]
[18:41:33.995]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:33.995]                     next
[18:41:33.995]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:33.995]                 }
[18:41:33.995]                 if (length(args) > 0) 
[18:41:33.995]                   base::do.call(base::Sys.setenv, args = args)
[18:41:33.995]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:33.995]             }
[18:41:33.995]             else {
[18:41:33.995]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:33.995]             }
[18:41:33.995]             {
[18:41:33.995]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:33.995]                   0L) {
[18:41:33.995]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:33.995]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:33.995]                   base::options(opts)
[18:41:33.995]                 }
[18:41:33.995]                 {
[18:41:33.995]                   {
[18:41:33.995]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:33.995]                     NULL
[18:41:33.995]                   }
[18:41:33.995]                   options(future.plan = NULL)
[18:41:33.995]                   if (is.na(NA_character_)) 
[18:41:33.995]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:33.995]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:33.995]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:33.995]                     .init = FALSE)
[18:41:33.995]                 }
[18:41:33.995]             }
[18:41:33.995]         }
[18:41:33.995]     })
[18:41:33.995]     if (TRUE) {
[18:41:33.995]         base::sink(type = "output", split = FALSE)
[18:41:33.995]         if (TRUE) {
[18:41:33.995]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:33.995]         }
[18:41:33.995]         else {
[18:41:33.995]             ...future.result["stdout"] <- base::list(NULL)
[18:41:33.995]         }
[18:41:33.995]         base::close(...future.stdout)
[18:41:33.995]         ...future.stdout <- NULL
[18:41:33.995]     }
[18:41:33.995]     ...future.result$conditions <- ...future.conditions
[18:41:33.995]     ...future.result$finished <- base::Sys.time()
[18:41:33.995]     ...future.result
[18:41:33.995] }
[18:41:34.000] Exporting 5 global objects (1.05 KiB) to cluster node #1 ...
[18:41:34.000] Exporting '...future.FUN' (414 bytes) to cluster node #1 ...
[18:41:34.001] Exporting '...future.FUN' (414 bytes) to cluster node #1 ... DONE
[18:41:34.001] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.001] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.002] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ...
[18:41:34.002] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ... DONE
[18:41:34.002] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.003] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.003] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.003] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.003] Exporting 5 global objects (1.05 KiB) to cluster node #1 ... DONE
[18:41:34.004] MultisessionFuture started
[18:41:34.004] - Launch lazy future ... done
[18:41:34.005] run() for 'MultisessionFuture' ... done
[18:41:34.005] Created future:
[18:41:34.019] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.019] - Validating connection of MultisessionFuture
[18:41:34.019] - received message: FutureResult
[18:41:34.020] - Received FutureResult
[18:41:34.020] - Erased future from FutureRegistry
[18:41:34.020] result() for ClusterFuture ...
[18:41:34.020] - result already collected: FutureResult
[18:41:34.020] result() for ClusterFuture ... done
[18:41:34.021] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.005] MultisessionFuture:
[18:41:34.005] Label: 'future_mapply-1'
[18:41:34.005] Expression:
[18:41:34.005] {
[18:41:34.005]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.005]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.005]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.005]         on.exit(options(oopts), add = TRUE)
[18:41:34.005]     }
[18:41:34.005]     {
[18:41:34.005]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.005]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.005]         do.call(mapply, args = args)
[18:41:34.005]     }
[18:41:34.005] }
[18:41:34.005] Lazy evaluation: FALSE
[18:41:34.005] Asynchronous evaluation: TRUE
[18:41:34.005] Local evaluation: TRUE
[18:41:34.005] Environment: R_GlobalEnv
[18:41:34.005] Capture standard output: TRUE
[18:41:34.005] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.005] Globals: 5 objects totaling 645 bytes (function '...future.FUN' of 414 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 150 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.005] Packages: <none>
[18:41:34.005] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.005] Resolved: TRUE
[18:41:34.005] Value: <not collected>
[18:41:34.005] Conditions captured: <none>
[18:41:34.005] Early signaling: FALSE
[18:41:34.005] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.005] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.021] Chunk #1 of 2 ... DONE
[18:41:34.021] Chunk #2 of 2 ...
[18:41:34.021]  - Finding globals in '...' for chunk #2 ...
[18:41:34.021] getGlobalsAndPackages() ...
[18:41:34.022] Searching for globals...
[18:41:34.022] 
[18:41:34.022] Searching for globals ... DONE
[18:41:34.022] - globals: [0] <none>
[18:41:34.022] getGlobalsAndPackages() ... DONE
[18:41:34.023]    + additional globals found: [n=0] 
[18:41:34.023]    + additional namespaces needed: [n=0] 
[18:41:34.023]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:34.023]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:34.023]  - seeds: <none>
[18:41:34.024]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.024] getGlobalsAndPackages() ...
[18:41:34.024] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.024] Resolving globals: FALSE
[18:41:34.025] The total size of the 5 globals is 695 bytes (695 bytes)
[18:41:34.025] 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 695 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (414 bytes of class 'function'), '...future.elements_ii' (200 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.026] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.026] 
[18:41:34.026] getGlobalsAndPackages() ... DONE
[18:41:34.026] run() for 'Future' ...
[18:41:34.026] - state: 'created'
[18:41:34.027] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.042] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.042] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.042]   - Field: 'node'
[18:41:34.042]   - Field: 'label'
[18:41:34.043]   - Field: 'local'
[18:41:34.043]   - Field: 'owner'
[18:41:34.043]   - Field: 'envir'
[18:41:34.043]   - Field: 'workers'
[18:41:34.043]   - Field: 'packages'
[18:41:34.043]   - Field: 'gc'
[18:41:34.044]   - Field: 'conditions'
[18:41:34.044]   - Field: 'persistent'
[18:41:34.044]   - Field: 'expr'
[18:41:34.044]   - Field: 'uuid'
[18:41:34.044]   - Field: 'seed'
[18:41:34.044]   - Field: 'version'
[18:41:34.045]   - Field: 'result'
[18:41:34.045]   - Field: 'asynchronous'
[18:41:34.045]   - Field: 'calls'
[18:41:34.045]   - Field: 'globals'
[18:41:34.045]   - Field: 'stdout'
[18:41:34.045]   - Field: 'earlySignal'
[18:41:34.046]   - Field: 'lazy'
[18:41:34.046]   - Field: 'state'
[18:41:34.046] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.046] - Launch lazy future ...
[18:41:34.047] Packages needed by the future expression (n = 0): <none>
[18:41:34.047] Packages needed by future strategies (n = 0): <none>
[18:41:34.047] {
[18:41:34.047]     {
[18:41:34.047]         {
[18:41:34.047]             ...future.startTime <- base::Sys.time()
[18:41:34.047]             {
[18:41:34.047]                 {
[18:41:34.047]                   {
[18:41:34.047]                     {
[18:41:34.047]                       base::local({
[18:41:34.047]                         has_future <- base::requireNamespace("future", 
[18:41:34.047]                           quietly = TRUE)
[18:41:34.047]                         if (has_future) {
[18:41:34.047]                           ns <- base::getNamespace("future")
[18:41:34.047]                           version <- ns[[".package"]][["version"]]
[18:41:34.047]                           if (is.null(version)) 
[18:41:34.047]                             version <- utils::packageVersion("future")
[18:41:34.047]                         }
[18:41:34.047]                         else {
[18:41:34.047]                           version <- NULL
[18:41:34.047]                         }
[18:41:34.047]                         if (!has_future || version < "1.8.0") {
[18:41:34.047]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.047]                             "", base::R.version$version.string), 
[18:41:34.047]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.047]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.047]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.047]                               "release", "version")], collapse = " "), 
[18:41:34.047]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.047]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.047]                             info)
[18:41:34.047]                           info <- base::paste(info, collapse = "; ")
[18:41:34.047]                           if (!has_future) {
[18:41:34.047]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.047]                               info)
[18:41:34.047]                           }
[18:41:34.047]                           else {
[18:41:34.047]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.047]                               info, version)
[18:41:34.047]                           }
[18:41:34.047]                           base::stop(msg)
[18:41:34.047]                         }
[18:41:34.047]                       })
[18:41:34.047]                     }
[18:41:34.047]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.047]                     base::options(mc.cores = 1L)
[18:41:34.047]                   }
[18:41:34.047]                   ...future.strategy.old <- future::plan("list")
[18:41:34.047]                   options(future.plan = NULL)
[18:41:34.047]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.047]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.047]                 }
[18:41:34.047]                 ...future.workdir <- getwd()
[18:41:34.047]             }
[18:41:34.047]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.047]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.047]         }
[18:41:34.047]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.047]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:34.047]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.047]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.047]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.047]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.047]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.047]             base::names(...future.oldOptions))
[18:41:34.047]     }
[18:41:34.047]     if (FALSE) {
[18:41:34.047]     }
[18:41:34.047]     else {
[18:41:34.047]         if (TRUE) {
[18:41:34.047]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.047]                 open = "w")
[18:41:34.047]         }
[18:41:34.047]         else {
[18:41:34.047]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.047]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.047]         }
[18:41:34.047]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.047]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.047]             base::sink(type = "output", split = FALSE)
[18:41:34.047]             base::close(...future.stdout)
[18:41:34.047]         }, add = TRUE)
[18:41:34.047]     }
[18:41:34.047]     ...future.frame <- base::sys.nframe()
[18:41:34.047]     ...future.conditions <- base::list()
[18:41:34.047]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.047]     if (FALSE) {
[18:41:34.047]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.047]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.047]     }
[18:41:34.047]     ...future.result <- base::tryCatch({
[18:41:34.047]         base::withCallingHandlers({
[18:41:34.047]             ...future.value <- base::withVisible(base::local({
[18:41:34.047]                 ...future.makeSendCondition <- base::local({
[18:41:34.047]                   sendCondition <- NULL
[18:41:34.047]                   function(frame = 1L) {
[18:41:34.047]                     if (is.function(sendCondition)) 
[18:41:34.047]                       return(sendCondition)
[18:41:34.047]                     ns <- getNamespace("parallel")
[18:41:34.047]                     if (exists("sendData", mode = "function", 
[18:41:34.047]                       envir = ns)) {
[18:41:34.047]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.047]                         envir = ns)
[18:41:34.047]                       envir <- sys.frame(frame)
[18:41:34.047]                       master <- NULL
[18:41:34.047]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.047]                         !identical(envir, emptyenv())) {
[18:41:34.047]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.047]                           inherits = FALSE)) {
[18:41:34.047]                           master <- get("master", mode = "list", 
[18:41:34.047]                             envir = envir, inherits = FALSE)
[18:41:34.047]                           if (inherits(master, c("SOCKnode", 
[18:41:34.047]                             "SOCK0node"))) {
[18:41:34.047]                             sendCondition <<- function(cond) {
[18:41:34.047]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.047]                                 success = TRUE)
[18:41:34.047]                               parallel_sendData(master, data)
[18:41:34.047]                             }
[18:41:34.047]                             return(sendCondition)
[18:41:34.047]                           }
[18:41:34.047]                         }
[18:41:34.047]                         frame <- frame + 1L
[18:41:34.047]                         envir <- sys.frame(frame)
[18:41:34.047]                       }
[18:41:34.047]                     }
[18:41:34.047]                     sendCondition <<- function(cond) NULL
[18:41:34.047]                   }
[18:41:34.047]                 })
[18:41:34.047]                 withCallingHandlers({
[18:41:34.047]                   {
[18:41:34.047]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.047]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.047]                       ...future.globals.maxSize)) {
[18:41:34.047]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.047]                       on.exit(options(oopts), add = TRUE)
[18:41:34.047]                     }
[18:41:34.047]                     {
[18:41:34.047]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.047]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.047]                         USE.NAMES = FALSE)
[18:41:34.047]                       do.call(mapply, args = args)
[18:41:34.047]                     }
[18:41:34.047]                   }
[18:41:34.047]                 }, immediateCondition = function(cond) {
[18:41:34.047]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.047]                   sendCondition(cond)
[18:41:34.047]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.047]                   {
[18:41:34.047]                     inherits <- base::inherits
[18:41:34.047]                     invokeRestart <- base::invokeRestart
[18:41:34.047]                     is.null <- base::is.null
[18:41:34.047]                     muffled <- FALSE
[18:41:34.047]                     if (inherits(cond, "message")) {
[18:41:34.047]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.047]                       if (muffled) 
[18:41:34.047]                         invokeRestart("muffleMessage")
[18:41:34.047]                     }
[18:41:34.047]                     else if (inherits(cond, "warning")) {
[18:41:34.047]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.047]                       if (muffled) 
[18:41:34.047]                         invokeRestart("muffleWarning")
[18:41:34.047]                     }
[18:41:34.047]                     else if (inherits(cond, "condition")) {
[18:41:34.047]                       if (!is.null(pattern)) {
[18:41:34.047]                         computeRestarts <- base::computeRestarts
[18:41:34.047]                         grepl <- base::grepl
[18:41:34.047]                         restarts <- computeRestarts(cond)
[18:41:34.047]                         for (restart in restarts) {
[18:41:34.047]                           name <- restart$name
[18:41:34.047]                           if (is.null(name)) 
[18:41:34.047]                             next
[18:41:34.047]                           if (!grepl(pattern, name)) 
[18:41:34.047]                             next
[18:41:34.047]                           invokeRestart(restart)
[18:41:34.047]                           muffled <- TRUE
[18:41:34.047]                           break
[18:41:34.047]                         }
[18:41:34.047]                       }
[18:41:34.047]                     }
[18:41:34.047]                     invisible(muffled)
[18:41:34.047]                   }
[18:41:34.047]                   muffleCondition(cond)
[18:41:34.047]                 })
[18:41:34.047]             }))
[18:41:34.047]             future::FutureResult(value = ...future.value$value, 
[18:41:34.047]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.047]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.047]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.047]                     ...future.globalenv.names))
[18:41:34.047]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.047]         }, condition = base::local({
[18:41:34.047]             c <- base::c
[18:41:34.047]             inherits <- base::inherits
[18:41:34.047]             invokeRestart <- base::invokeRestart
[18:41:34.047]             length <- base::length
[18:41:34.047]             list <- base::list
[18:41:34.047]             seq.int <- base::seq.int
[18:41:34.047]             signalCondition <- base::signalCondition
[18:41:34.047]             sys.calls <- base::sys.calls
[18:41:34.047]             `[[` <- base::`[[`
[18:41:34.047]             `+` <- base::`+`
[18:41:34.047]             `<<-` <- base::`<<-`
[18:41:34.047]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.047]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.047]                   3L)]
[18:41:34.047]             }
[18:41:34.047]             function(cond) {
[18:41:34.047]                 is_error <- inherits(cond, "error")
[18:41:34.047]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.047]                   NULL)
[18:41:34.047]                 if (is_error) {
[18:41:34.047]                   sessionInformation <- function() {
[18:41:34.047]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.047]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.047]                       search = base::search(), system = base::Sys.info())
[18:41:34.047]                   }
[18:41:34.047]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.047]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.047]                     cond$call), session = sessionInformation(), 
[18:41:34.047]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.047]                   signalCondition(cond)
[18:41:34.047]                 }
[18:41:34.047]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.047]                 "immediateCondition"))) {
[18:41:34.047]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.047]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.047]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.047]                   if (TRUE && !signal) {
[18:41:34.047]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.047]                     {
[18:41:34.047]                       inherits <- base::inherits
[18:41:34.047]                       invokeRestart <- base::invokeRestart
[18:41:34.047]                       is.null <- base::is.null
[18:41:34.047]                       muffled <- FALSE
[18:41:34.047]                       if (inherits(cond, "message")) {
[18:41:34.047]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.047]                         if (muffled) 
[18:41:34.047]                           invokeRestart("muffleMessage")
[18:41:34.047]                       }
[18:41:34.047]                       else if (inherits(cond, "warning")) {
[18:41:34.047]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.047]                         if (muffled) 
[18:41:34.047]                           invokeRestart("muffleWarning")
[18:41:34.047]                       }
[18:41:34.047]                       else if (inherits(cond, "condition")) {
[18:41:34.047]                         if (!is.null(pattern)) {
[18:41:34.047]                           computeRestarts <- base::computeRestarts
[18:41:34.047]                           grepl <- base::grepl
[18:41:34.047]                           restarts <- computeRestarts(cond)
[18:41:34.047]                           for (restart in restarts) {
[18:41:34.047]                             name <- restart$name
[18:41:34.047]                             if (is.null(name)) 
[18:41:34.047]                               next
[18:41:34.047]                             if (!grepl(pattern, name)) 
[18:41:34.047]                               next
[18:41:34.047]                             invokeRestart(restart)
[18:41:34.047]                             muffled <- TRUE
[18:41:34.047]                             break
[18:41:34.047]                           }
[18:41:34.047]                         }
[18:41:34.047]                       }
[18:41:34.047]                       invisible(muffled)
[18:41:34.047]                     }
[18:41:34.047]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.047]                   }
[18:41:34.047]                 }
[18:41:34.047]                 else {
[18:41:34.047]                   if (TRUE) {
[18:41:34.047]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.047]                     {
[18:41:34.047]                       inherits <- base::inherits
[18:41:34.047]                       invokeRestart <- base::invokeRestart
[18:41:34.047]                       is.null <- base::is.null
[18:41:34.047]                       muffled <- FALSE
[18:41:34.047]                       if (inherits(cond, "message")) {
[18:41:34.047]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.047]                         if (muffled) 
[18:41:34.047]                           invokeRestart("muffleMessage")
[18:41:34.047]                       }
[18:41:34.047]                       else if (inherits(cond, "warning")) {
[18:41:34.047]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.047]                         if (muffled) 
[18:41:34.047]                           invokeRestart("muffleWarning")
[18:41:34.047]                       }
[18:41:34.047]                       else if (inherits(cond, "condition")) {
[18:41:34.047]                         if (!is.null(pattern)) {
[18:41:34.047]                           computeRestarts <- base::computeRestarts
[18:41:34.047]                           grepl <- base::grepl
[18:41:34.047]                           restarts <- computeRestarts(cond)
[18:41:34.047]                           for (restart in restarts) {
[18:41:34.047]                             name <- restart$name
[18:41:34.047]                             if (is.null(name)) 
[18:41:34.047]                               next
[18:41:34.047]                             if (!grepl(pattern, name)) 
[18:41:34.047]                               next
[18:41:34.047]                             invokeRestart(restart)
[18:41:34.047]                             muffled <- TRUE
[18:41:34.047]                             break
[18:41:34.047]                           }
[18:41:34.047]                         }
[18:41:34.047]                       }
[18:41:34.047]                       invisible(muffled)
[18:41:34.047]                     }
[18:41:34.047]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.047]                   }
[18:41:34.047]                 }
[18:41:34.047]             }
[18:41:34.047]         }))
[18:41:34.047]     }, error = function(ex) {
[18:41:34.047]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.047]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.047]                 ...future.rng), started = ...future.startTime, 
[18:41:34.047]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.047]             version = "1.8"), class = "FutureResult")
[18:41:34.047]     }, finally = {
[18:41:34.047]         if (!identical(...future.workdir, getwd())) 
[18:41:34.047]             setwd(...future.workdir)
[18:41:34.047]         {
[18:41:34.047]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.047]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.047]             }
[18:41:34.047]             base::options(...future.oldOptions)
[18:41:34.047]             if (.Platform$OS.type == "windows") {
[18:41:34.047]                 old_names <- names(...future.oldEnvVars)
[18:41:34.047]                 envs <- base::Sys.getenv()
[18:41:34.047]                 names <- names(envs)
[18:41:34.047]                 common <- intersect(names, old_names)
[18:41:34.047]                 added <- setdiff(names, old_names)
[18:41:34.047]                 removed <- setdiff(old_names, names)
[18:41:34.047]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.047]                   envs[common]]
[18:41:34.047]                 NAMES <- toupper(changed)
[18:41:34.047]                 args <- list()
[18:41:34.047]                 for (kk in seq_along(NAMES)) {
[18:41:34.047]                   name <- changed[[kk]]
[18:41:34.047]                   NAME <- NAMES[[kk]]
[18:41:34.047]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.047]                     next
[18:41:34.047]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.047]                 }
[18:41:34.047]                 NAMES <- toupper(added)
[18:41:34.047]                 for (kk in seq_along(NAMES)) {
[18:41:34.047]                   name <- added[[kk]]
[18:41:34.047]                   NAME <- NAMES[[kk]]
[18:41:34.047]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.047]                     next
[18:41:34.047]                   args[[name]] <- ""
[18:41:34.047]                 }
[18:41:34.047]                 NAMES <- toupper(removed)
[18:41:34.047]                 for (kk in seq_along(NAMES)) {
[18:41:34.047]                   name <- removed[[kk]]
[18:41:34.047]                   NAME <- NAMES[[kk]]
[18:41:34.047]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.047]                     next
[18:41:34.047]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.047]                 }
[18:41:34.047]                 if (length(args) > 0) 
[18:41:34.047]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.047]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.047]             }
[18:41:34.047]             else {
[18:41:34.047]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.047]             }
[18:41:34.047]             {
[18:41:34.047]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.047]                   0L) {
[18:41:34.047]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.047]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.047]                   base::options(opts)
[18:41:34.047]                 }
[18:41:34.047]                 {
[18:41:34.047]                   {
[18:41:34.047]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.047]                     NULL
[18:41:34.047]                   }
[18:41:34.047]                   options(future.plan = NULL)
[18:41:34.047]                   if (is.na(NA_character_)) 
[18:41:34.047]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.047]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.047]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.047]                     .init = FALSE)
[18:41:34.047]                 }
[18:41:34.047]             }
[18:41:34.047]         }
[18:41:34.047]     })
[18:41:34.047]     if (TRUE) {
[18:41:34.047]         base::sink(type = "output", split = FALSE)
[18:41:34.047]         if (TRUE) {
[18:41:34.047]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.047]         }
[18:41:34.047]         else {
[18:41:34.047]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.047]         }
[18:41:34.047]         base::close(...future.stdout)
[18:41:34.047]         ...future.stdout <- NULL
[18:41:34.047]     }
[18:41:34.047]     ...future.result$conditions <- ...future.conditions
[18:41:34.047]     ...future.result$finished <- base::Sys.time()
[18:41:34.047]     ...future.result
[18:41:34.047] }
[18:41:34.052] Exporting 5 global objects (1.10 KiB) to cluster node #1 ...
[18:41:34.053] Exporting '...future.FUN' (414 bytes) to cluster node #1 ...
[18:41:34.053] Exporting '...future.FUN' (414 bytes) to cluster node #1 ... DONE
[18:41:34.053] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.054] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.054] Exporting '...future.elements_ii' (200 bytes) to cluster node #1 ...
[18:41:34.054] Exporting '...future.elements_ii' (200 bytes) to cluster node #1 ... DONE
[18:41:34.054] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.055] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.055] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.055] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.056] Exporting 5 global objects (1.10 KiB) to cluster node #1 ... DONE
[18:41:34.056] MultisessionFuture started
[18:41:34.057] - Launch lazy future ... done
[18:41:34.057] run() for 'MultisessionFuture' ... done
[18:41:34.057] Created future:
[18:41:34.073] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.073] - Validating connection of MultisessionFuture
[18:41:34.073] - received message: FutureResult
[18:41:34.073] - Received FutureResult
[18:41:34.074] - Erased future from FutureRegistry
[18:41:34.074] result() for ClusterFuture ...
[18:41:34.074] - result already collected: FutureResult
[18:41:34.074] result() for ClusterFuture ... done
[18:41:34.074] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.058] MultisessionFuture:
[18:41:34.058] Label: 'future_mapply-2'
[18:41:34.058] Expression:
[18:41:34.058] {
[18:41:34.058]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.058]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.058]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.058]         on.exit(options(oopts), add = TRUE)
[18:41:34.058]     }
[18:41:34.058]     {
[18:41:34.058]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.058]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.058]         do.call(mapply, args = args)
[18:41:34.058]     }
[18:41:34.058] }
[18:41:34.058] Lazy evaluation: FALSE
[18:41:34.058] Asynchronous evaluation: TRUE
[18:41:34.058] Local evaluation: TRUE
[18:41:34.058] Environment: R_GlobalEnv
[18:41:34.058] Capture standard output: TRUE
[18:41:34.058] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.058] Globals: 5 objects totaling 695 bytes (function '...future.FUN' of 414 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 200 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.058] Packages: <none>
[18:41:34.058] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.058] Resolved: TRUE
[18:41:34.058] Value: <not collected>
[18:41:34.058] Conditions captured: <none>
[18:41:34.058] Early signaling: FALSE
[18:41:34.058] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.058] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.075] Chunk #2 of 2 ... DONE
[18:41:34.075] Launching 2 futures (chunks) ... DONE
[18:41:34.075] Resolving 2 futures (chunks) ...
[18:41:34.075] resolve() on list ...
[18:41:34.075]  recursive: 0
[18:41:34.075]  length: 2
[18:41:34.076] 
[18:41:34.076] Future #1
[18:41:34.076] result() for ClusterFuture ...
[18:41:34.076] - result already collected: FutureResult
[18:41:34.076] result() for ClusterFuture ... done
[18:41:34.076] result() for ClusterFuture ...
[18:41:34.077] - result already collected: FutureResult
[18:41:34.077] result() for ClusterFuture ... done
[18:41:34.077] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:34.077] - nx: 2
[18:41:34.077] - relay: TRUE
[18:41:34.077] - stdout: TRUE
[18:41:34.077] - signal: TRUE
[18:41:34.078] - resignal: FALSE
[18:41:34.078] - force: TRUE
[18:41:34.078] - relayed: [n=2] FALSE, FALSE
[18:41:34.078] - queued futures: [n=2] FALSE, FALSE
[18:41:34.078]  - until=1
[18:41:34.078]  - relaying element #1
[18:41:34.079] result() for ClusterFuture ...
[18:41:34.079] - result already collected: FutureResult
[18:41:34.079] result() for ClusterFuture ... done
[18:41:34.079] result() for ClusterFuture ...
[18:41:34.079] - result already collected: FutureResult
[18:41:34.079] result() for ClusterFuture ... done
[18:41:34.080] result() for ClusterFuture ...
[18:41:34.080] - result already collected: FutureResult
[18:41:34.080] result() for ClusterFuture ... done
[18:41:34.080] result() for ClusterFuture ...
[18:41:34.080] - result already collected: FutureResult
[18:41:34.080] result() for ClusterFuture ... done
[18:41:34.080] - relayed: [n=2] TRUE, FALSE
[18:41:34.081] - queued futures: [n=2] TRUE, FALSE
[18:41:34.081] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:34.081]  length: 1 (resolved future 1)
[18:41:34.081] Future #2
[18:41:34.081] result() for ClusterFuture ...
[18:41:34.082] - result already collected: FutureResult
[18:41:34.082] result() for ClusterFuture ... done
[18:41:34.082] result() for ClusterFuture ...
[18:41:34.082] - result already collected: FutureResult
[18:41:34.082] result() for ClusterFuture ... done
[18:41:34.082] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:34.082] - nx: 2
[18:41:34.083] - relay: TRUE
[18:41:34.083] - stdout: TRUE
[18:41:34.083] - signal: TRUE
[18:41:34.083] - resignal: FALSE
[18:41:34.083] - force: TRUE
[18:41:34.083] - relayed: [n=2] TRUE, FALSE
[18:41:34.083] - queued futures: [n=2] TRUE, FALSE
[18:41:34.084]  - until=2
[18:41:34.084]  - relaying element #2
[18:41:34.084] result() for ClusterFuture ...
[18:41:34.084] - result already collected: FutureResult
[18:41:34.084] result() for ClusterFuture ... done
[18:41:34.084] result() for ClusterFuture ...
[18:41:34.085] - result already collected: FutureResult
[18:41:34.085] result() for ClusterFuture ... done
[18:41:34.085] result() for ClusterFuture ...
[18:41:34.085] - result already collected: FutureResult
[18:41:34.085] result() for ClusterFuture ... done
[18:41:34.085] result() for ClusterFuture ...
[18:41:34.086] - result already collected: FutureResult
[18:41:34.086] result() for ClusterFuture ... done
[18:41:34.086] - relayed: [n=2] TRUE, TRUE
[18:41:34.086] - queued futures: [n=2] TRUE, TRUE
[18:41:34.086] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:34.086]  length: 0 (resolved future 2)
[18:41:34.087] Relaying remaining futures
[18:41:34.087] signalConditionsASAP(NULL, pos=0) ...
[18:41:34.087] - nx: 2
[18:41:34.087] - relay: TRUE
[18:41:34.087] - stdout: TRUE
[18:41:34.087] - signal: TRUE
[18:41:34.087] - resignal: FALSE
[18:41:34.088] - force: TRUE
[18:41:34.088] - relayed: [n=2] TRUE, TRUE
[18:41:34.088] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:34.088] - relayed: [n=2] TRUE, TRUE
[18:41:34.088] - queued futures: [n=2] TRUE, TRUE
[18:41:34.088] signalConditionsASAP(NULL, pos=0) ... done
[18:41:34.089] resolve() on list ... DONE
[18:41:34.089] result() for ClusterFuture ...
[18:41:34.089] - result already collected: FutureResult
[18:41:34.089] result() for ClusterFuture ... done
[18:41:34.089] result() for ClusterFuture ...
[18:41:34.089] - result already collected: FutureResult
[18:41:34.089] result() for ClusterFuture ... done
[18:41:34.090] result() for ClusterFuture ...
[18:41:34.090] - result already collected: FutureResult
[18:41:34.090] result() for ClusterFuture ... done
[18:41:34.090] result() for ClusterFuture ...
[18:41:34.090] - result already collected: FutureResult
[18:41:34.090] result() for ClusterFuture ... done
[18:41:34.091]  - Number of value chunks collected: 2
[18:41:34.091] Resolving 2 futures (chunks) ... DONE
[18:41:34.091] Reducing values from 2 chunks ...
[18:41:34.091]  - Number of values collected after concatenation: 3
[18:41:34.091]  - Number of values expected: 3
[18:41:34.091] Reducing values from 2 chunks ... DONE
[18:41:34.092] future_mapply() ... DONE
- future_.mapply()
[18:41:34.092] future_mapply() ...
[18:41:34.094] Number of chunks: 2
[18:41:34.095] getGlobalsAndPackagesXApply() ...
[18:41:34.095]  - future.globals: TRUE
[18:41:34.095] getGlobalsAndPackages() ...
[18:41:34.095] Searching for globals...
[18:41:34.097] - globals found: [3] 'FUN', '+', 'seq_len'
[18:41:34.097] Searching for globals ... DONE
[18:41:34.097] Resolving globals: FALSE
[18:41:34.098] The total size of the 1 globals is 414 bytes (414 bytes)
[18:41:34.098] The total size of the 1 globals exported for future expression ('FUN()') is 414 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (414 bytes of class 'function')
[18:41:34.098] - globals: [1] 'FUN'
[18:41:34.098] 
[18:41:34.099] getGlobalsAndPackages() ... DONE
[18:41:34.099]  - globals found/used: [n=1] 'FUN'
[18:41:34.099]  - needed namespaces: [n=0] 
[18:41:34.099] Finding globals ... DONE
[18:41:34.099] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:34.100] List of 2
[18:41:34.100]  $ ...future.FUN:function (x, y)  
[18:41:34.100]  $ MoreArgs     : list()
[18:41:34.100]  - attr(*, "where")=List of 2
[18:41:34.100]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:34.100]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:34.100]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:34.100]  - attr(*, "resolved")= logi FALSE
[18:41:34.100]  - attr(*, "total_size")= num NA
[18:41:34.103] Packages to be attached in all futures: [n=0] 
[18:41:34.103] getGlobalsAndPackagesXApply() ... DONE
[18:41:34.103] Number of futures (= number of chunks): 2
[18:41:34.103] Launching 2 futures (chunks) ...
[18:41:34.103] Chunk #1 of 2 ...
[18:41:34.104]  - Finding globals in '...' for chunk #1 ...
[18:41:34.104] getGlobalsAndPackages() ...
[18:41:34.104] Searching for globals...
[18:41:34.104] 
[18:41:34.105] Searching for globals ... DONE
[18:41:34.105] - globals: [0] <none>
[18:41:34.105] getGlobalsAndPackages() ... DONE
[18:41:34.105]    + additional globals found: [n=0] 
[18:41:34.105]    + additional namespaces needed: [n=0] 
[18:41:34.105]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:34.105]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:34.106]  - seeds: <none>
[18:41:34.106]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.106] getGlobalsAndPackages() ...
[18:41:34.106] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.106] Resolving globals: FALSE
[18:41:34.107] The total size of the 5 globals is 649 bytes (649 bytes)
[18:41:34.107] 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 649 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (414 bytes of class 'function'), '...future.elements_ii' (150 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:34.108] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.108] 
[18:41:34.108] getGlobalsAndPackages() ... DONE
[18:41:34.108] run() for 'Future' ...
[18:41:34.109] - state: 'created'
[18:41:34.109] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.124] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.124] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.125]   - Field: 'node'
[18:41:34.125]   - Field: 'label'
[18:41:34.125]   - Field: 'local'
[18:41:34.125]   - Field: 'owner'
[18:41:34.125]   - Field: 'envir'
[18:41:34.125]   - Field: 'workers'
[18:41:34.126]   - Field: 'packages'
[18:41:34.126]   - Field: 'gc'
[18:41:34.126]   - Field: 'conditions'
[18:41:34.126]   - Field: 'persistent'
[18:41:34.126]   - Field: 'expr'
[18:41:34.126]   - Field: 'uuid'
[18:41:34.127]   - Field: 'seed'
[18:41:34.127]   - Field: 'version'
[18:41:34.127]   - Field: 'result'
[18:41:34.127]   - Field: 'asynchronous'
[18:41:34.127]   - Field: 'calls'
[18:41:34.128]   - Field: 'globals'
[18:41:34.128]   - Field: 'stdout'
[18:41:34.128]   - Field: 'earlySignal'
[18:41:34.128]   - Field: 'lazy'
[18:41:34.128]   - Field: 'state'
[18:41:34.128] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.129] - Launch lazy future ...
[18:41:34.129] Packages needed by the future expression (n = 0): <none>
[18:41:34.129] Packages needed by future strategies (n = 0): <none>
[18:41:34.130] {
[18:41:34.130]     {
[18:41:34.130]         {
[18:41:34.130]             ...future.startTime <- base::Sys.time()
[18:41:34.130]             {
[18:41:34.130]                 {
[18:41:34.130]                   {
[18:41:34.130]                     {
[18:41:34.130]                       base::local({
[18:41:34.130]                         has_future <- base::requireNamespace("future", 
[18:41:34.130]                           quietly = TRUE)
[18:41:34.130]                         if (has_future) {
[18:41:34.130]                           ns <- base::getNamespace("future")
[18:41:34.130]                           version <- ns[[".package"]][["version"]]
[18:41:34.130]                           if (is.null(version)) 
[18:41:34.130]                             version <- utils::packageVersion("future")
[18:41:34.130]                         }
[18:41:34.130]                         else {
[18:41:34.130]                           version <- NULL
[18:41:34.130]                         }
[18:41:34.130]                         if (!has_future || version < "1.8.0") {
[18:41:34.130]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.130]                             "", base::R.version$version.string), 
[18:41:34.130]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.130]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.130]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.130]                               "release", "version")], collapse = " "), 
[18:41:34.130]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.130]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.130]                             info)
[18:41:34.130]                           info <- base::paste(info, collapse = "; ")
[18:41:34.130]                           if (!has_future) {
[18:41:34.130]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.130]                               info)
[18:41:34.130]                           }
[18:41:34.130]                           else {
[18:41:34.130]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.130]                               info, version)
[18:41:34.130]                           }
[18:41:34.130]                           base::stop(msg)
[18:41:34.130]                         }
[18:41:34.130]                       })
[18:41:34.130]                     }
[18:41:34.130]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.130]                     base::options(mc.cores = 1L)
[18:41:34.130]                   }
[18:41:34.130]                   ...future.strategy.old <- future::plan("list")
[18:41:34.130]                   options(future.plan = NULL)
[18:41:34.130]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.130]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.130]                 }
[18:41:34.130]                 ...future.workdir <- getwd()
[18:41:34.130]             }
[18:41:34.130]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.130]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.130]         }
[18:41:34.130]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.130]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:34.130]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.130]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.130]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.130]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.130]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.130]             base::names(...future.oldOptions))
[18:41:34.130]     }
[18:41:34.130]     if (FALSE) {
[18:41:34.130]     }
[18:41:34.130]     else {
[18:41:34.130]         if (TRUE) {
[18:41:34.130]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.130]                 open = "w")
[18:41:34.130]         }
[18:41:34.130]         else {
[18:41:34.130]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.130]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.130]         }
[18:41:34.130]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.130]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.130]             base::sink(type = "output", split = FALSE)
[18:41:34.130]             base::close(...future.stdout)
[18:41:34.130]         }, add = TRUE)
[18:41:34.130]     }
[18:41:34.130]     ...future.frame <- base::sys.nframe()
[18:41:34.130]     ...future.conditions <- base::list()
[18:41:34.130]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.130]     if (FALSE) {
[18:41:34.130]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.130]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.130]     }
[18:41:34.130]     ...future.result <- base::tryCatch({
[18:41:34.130]         base::withCallingHandlers({
[18:41:34.130]             ...future.value <- base::withVisible(base::local({
[18:41:34.130]                 ...future.makeSendCondition <- base::local({
[18:41:34.130]                   sendCondition <- NULL
[18:41:34.130]                   function(frame = 1L) {
[18:41:34.130]                     if (is.function(sendCondition)) 
[18:41:34.130]                       return(sendCondition)
[18:41:34.130]                     ns <- getNamespace("parallel")
[18:41:34.130]                     if (exists("sendData", mode = "function", 
[18:41:34.130]                       envir = ns)) {
[18:41:34.130]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.130]                         envir = ns)
[18:41:34.130]                       envir <- sys.frame(frame)
[18:41:34.130]                       master <- NULL
[18:41:34.130]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.130]                         !identical(envir, emptyenv())) {
[18:41:34.130]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.130]                           inherits = FALSE)) {
[18:41:34.130]                           master <- get("master", mode = "list", 
[18:41:34.130]                             envir = envir, inherits = FALSE)
[18:41:34.130]                           if (inherits(master, c("SOCKnode", 
[18:41:34.130]                             "SOCK0node"))) {
[18:41:34.130]                             sendCondition <<- function(cond) {
[18:41:34.130]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.130]                                 success = TRUE)
[18:41:34.130]                               parallel_sendData(master, data)
[18:41:34.130]                             }
[18:41:34.130]                             return(sendCondition)
[18:41:34.130]                           }
[18:41:34.130]                         }
[18:41:34.130]                         frame <- frame + 1L
[18:41:34.130]                         envir <- sys.frame(frame)
[18:41:34.130]                       }
[18:41:34.130]                     }
[18:41:34.130]                     sendCondition <<- function(cond) NULL
[18:41:34.130]                   }
[18:41:34.130]                 })
[18:41:34.130]                 withCallingHandlers({
[18:41:34.130]                   {
[18:41:34.130]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.130]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.130]                       ...future.globals.maxSize)) {
[18:41:34.130]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.130]                       on.exit(options(oopts), add = TRUE)
[18:41:34.130]                     }
[18:41:34.130]                     {
[18:41:34.130]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.130]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.130]                         USE.NAMES = FALSE)
[18:41:34.130]                       do.call(mapply, args = args)
[18:41:34.130]                     }
[18:41:34.130]                   }
[18:41:34.130]                 }, immediateCondition = function(cond) {
[18:41:34.130]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.130]                   sendCondition(cond)
[18:41:34.130]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.130]                   {
[18:41:34.130]                     inherits <- base::inherits
[18:41:34.130]                     invokeRestart <- base::invokeRestart
[18:41:34.130]                     is.null <- base::is.null
[18:41:34.130]                     muffled <- FALSE
[18:41:34.130]                     if (inherits(cond, "message")) {
[18:41:34.130]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.130]                       if (muffled) 
[18:41:34.130]                         invokeRestart("muffleMessage")
[18:41:34.130]                     }
[18:41:34.130]                     else if (inherits(cond, "warning")) {
[18:41:34.130]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.130]                       if (muffled) 
[18:41:34.130]                         invokeRestart("muffleWarning")
[18:41:34.130]                     }
[18:41:34.130]                     else if (inherits(cond, "condition")) {
[18:41:34.130]                       if (!is.null(pattern)) {
[18:41:34.130]                         computeRestarts <- base::computeRestarts
[18:41:34.130]                         grepl <- base::grepl
[18:41:34.130]                         restarts <- computeRestarts(cond)
[18:41:34.130]                         for (restart in restarts) {
[18:41:34.130]                           name <- restart$name
[18:41:34.130]                           if (is.null(name)) 
[18:41:34.130]                             next
[18:41:34.130]                           if (!grepl(pattern, name)) 
[18:41:34.130]                             next
[18:41:34.130]                           invokeRestart(restart)
[18:41:34.130]                           muffled <- TRUE
[18:41:34.130]                           break
[18:41:34.130]                         }
[18:41:34.130]                       }
[18:41:34.130]                     }
[18:41:34.130]                     invisible(muffled)
[18:41:34.130]                   }
[18:41:34.130]                   muffleCondition(cond)
[18:41:34.130]                 })
[18:41:34.130]             }))
[18:41:34.130]             future::FutureResult(value = ...future.value$value, 
[18:41:34.130]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.130]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.130]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.130]                     ...future.globalenv.names))
[18:41:34.130]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.130]         }, condition = base::local({
[18:41:34.130]             c <- base::c
[18:41:34.130]             inherits <- base::inherits
[18:41:34.130]             invokeRestart <- base::invokeRestart
[18:41:34.130]             length <- base::length
[18:41:34.130]             list <- base::list
[18:41:34.130]             seq.int <- base::seq.int
[18:41:34.130]             signalCondition <- base::signalCondition
[18:41:34.130]             sys.calls <- base::sys.calls
[18:41:34.130]             `[[` <- base::`[[`
[18:41:34.130]             `+` <- base::`+`
[18:41:34.130]             `<<-` <- base::`<<-`
[18:41:34.130]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.130]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.130]                   3L)]
[18:41:34.130]             }
[18:41:34.130]             function(cond) {
[18:41:34.130]                 is_error <- inherits(cond, "error")
[18:41:34.130]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.130]                   NULL)
[18:41:34.130]                 if (is_error) {
[18:41:34.130]                   sessionInformation <- function() {
[18:41:34.130]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.130]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.130]                       search = base::search(), system = base::Sys.info())
[18:41:34.130]                   }
[18:41:34.130]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.130]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.130]                     cond$call), session = sessionInformation(), 
[18:41:34.130]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.130]                   signalCondition(cond)
[18:41:34.130]                 }
[18:41:34.130]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.130]                 "immediateCondition"))) {
[18:41:34.130]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.130]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.130]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.130]                   if (TRUE && !signal) {
[18:41:34.130]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.130]                     {
[18:41:34.130]                       inherits <- base::inherits
[18:41:34.130]                       invokeRestart <- base::invokeRestart
[18:41:34.130]                       is.null <- base::is.null
[18:41:34.130]                       muffled <- FALSE
[18:41:34.130]                       if (inherits(cond, "message")) {
[18:41:34.130]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.130]                         if (muffled) 
[18:41:34.130]                           invokeRestart("muffleMessage")
[18:41:34.130]                       }
[18:41:34.130]                       else if (inherits(cond, "warning")) {
[18:41:34.130]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.130]                         if (muffled) 
[18:41:34.130]                           invokeRestart("muffleWarning")
[18:41:34.130]                       }
[18:41:34.130]                       else if (inherits(cond, "condition")) {
[18:41:34.130]                         if (!is.null(pattern)) {
[18:41:34.130]                           computeRestarts <- base::computeRestarts
[18:41:34.130]                           grepl <- base::grepl
[18:41:34.130]                           restarts <- computeRestarts(cond)
[18:41:34.130]                           for (restart in restarts) {
[18:41:34.130]                             name <- restart$name
[18:41:34.130]                             if (is.null(name)) 
[18:41:34.130]                               next
[18:41:34.130]                             if (!grepl(pattern, name)) 
[18:41:34.130]                               next
[18:41:34.130]                             invokeRestart(restart)
[18:41:34.130]                             muffled <- TRUE
[18:41:34.130]                             break
[18:41:34.130]                           }
[18:41:34.130]                         }
[18:41:34.130]                       }
[18:41:34.130]                       invisible(muffled)
[18:41:34.130]                     }
[18:41:34.130]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.130]                   }
[18:41:34.130]                 }
[18:41:34.130]                 else {
[18:41:34.130]                   if (TRUE) {
[18:41:34.130]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.130]                     {
[18:41:34.130]                       inherits <- base::inherits
[18:41:34.130]                       invokeRestart <- base::invokeRestart
[18:41:34.130]                       is.null <- base::is.null
[18:41:34.130]                       muffled <- FALSE
[18:41:34.130]                       if (inherits(cond, "message")) {
[18:41:34.130]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.130]                         if (muffled) 
[18:41:34.130]                           invokeRestart("muffleMessage")
[18:41:34.130]                       }
[18:41:34.130]                       else if (inherits(cond, "warning")) {
[18:41:34.130]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.130]                         if (muffled) 
[18:41:34.130]                           invokeRestart("muffleWarning")
[18:41:34.130]                       }
[18:41:34.130]                       else if (inherits(cond, "condition")) {
[18:41:34.130]                         if (!is.null(pattern)) {
[18:41:34.130]                           computeRestarts <- base::computeRestarts
[18:41:34.130]                           grepl <- base::grepl
[18:41:34.130]                           restarts <- computeRestarts(cond)
[18:41:34.130]                           for (restart in restarts) {
[18:41:34.130]                             name <- restart$name
[18:41:34.130]                             if (is.null(name)) 
[18:41:34.130]                               next
[18:41:34.130]                             if (!grepl(pattern, name)) 
[18:41:34.130]                               next
[18:41:34.130]                             invokeRestart(restart)
[18:41:34.130]                             muffled <- TRUE
[18:41:34.130]                             break
[18:41:34.130]                           }
[18:41:34.130]                         }
[18:41:34.130]                       }
[18:41:34.130]                       invisible(muffled)
[18:41:34.130]                     }
[18:41:34.130]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.130]                   }
[18:41:34.130]                 }
[18:41:34.130]             }
[18:41:34.130]         }))
[18:41:34.130]     }, error = function(ex) {
[18:41:34.130]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.130]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.130]                 ...future.rng), started = ...future.startTime, 
[18:41:34.130]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.130]             version = "1.8"), class = "FutureResult")
[18:41:34.130]     }, finally = {
[18:41:34.130]         if (!identical(...future.workdir, getwd())) 
[18:41:34.130]             setwd(...future.workdir)
[18:41:34.130]         {
[18:41:34.130]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.130]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.130]             }
[18:41:34.130]             base::options(...future.oldOptions)
[18:41:34.130]             if (.Platform$OS.type == "windows") {
[18:41:34.130]                 old_names <- names(...future.oldEnvVars)
[18:41:34.130]                 envs <- base::Sys.getenv()
[18:41:34.130]                 names <- names(envs)
[18:41:34.130]                 common <- intersect(names, old_names)
[18:41:34.130]                 added <- setdiff(names, old_names)
[18:41:34.130]                 removed <- setdiff(old_names, names)
[18:41:34.130]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.130]                   envs[common]]
[18:41:34.130]                 NAMES <- toupper(changed)
[18:41:34.130]                 args <- list()
[18:41:34.130]                 for (kk in seq_along(NAMES)) {
[18:41:34.130]                   name <- changed[[kk]]
[18:41:34.130]                   NAME <- NAMES[[kk]]
[18:41:34.130]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.130]                     next
[18:41:34.130]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.130]                 }
[18:41:34.130]                 NAMES <- toupper(added)
[18:41:34.130]                 for (kk in seq_along(NAMES)) {
[18:41:34.130]                   name <- added[[kk]]
[18:41:34.130]                   NAME <- NAMES[[kk]]
[18:41:34.130]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.130]                     next
[18:41:34.130]                   args[[name]] <- ""
[18:41:34.130]                 }
[18:41:34.130]                 NAMES <- toupper(removed)
[18:41:34.130]                 for (kk in seq_along(NAMES)) {
[18:41:34.130]                   name <- removed[[kk]]
[18:41:34.130]                   NAME <- NAMES[[kk]]
[18:41:34.130]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.130]                     next
[18:41:34.130]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.130]                 }
[18:41:34.130]                 if (length(args) > 0) 
[18:41:34.130]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.130]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.130]             }
[18:41:34.130]             else {
[18:41:34.130]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.130]             }
[18:41:34.130]             {
[18:41:34.130]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.130]                   0L) {
[18:41:34.130]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.130]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.130]                   base::options(opts)
[18:41:34.130]                 }
[18:41:34.130]                 {
[18:41:34.130]                   {
[18:41:34.130]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.130]                     NULL
[18:41:34.130]                   }
[18:41:34.130]                   options(future.plan = NULL)
[18:41:34.130]                   if (is.na(NA_character_)) 
[18:41:34.130]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.130]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.130]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.130]                     .init = FALSE)
[18:41:34.130]                 }
[18:41:34.130]             }
[18:41:34.130]         }
[18:41:34.130]     })
[18:41:34.130]     if (TRUE) {
[18:41:34.130]         base::sink(type = "output", split = FALSE)
[18:41:34.130]         if (TRUE) {
[18:41:34.130]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.130]         }
[18:41:34.130]         else {
[18:41:34.130]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.130]         }
[18:41:34.130]         base::close(...future.stdout)
[18:41:34.130]         ...future.stdout <- NULL
[18:41:34.130]     }
[18:41:34.130]     ...future.result$conditions <- ...future.conditions
[18:41:34.130]     ...future.result$finished <- base::Sys.time()
[18:41:34.130]     ...future.result
[18:41:34.130] }
[18:41:34.135] Exporting 5 global objects (1.06 KiB) to cluster node #1 ...
[18:41:34.135] Exporting '...future.FUN' (414 bytes) to cluster node #1 ...
[18:41:34.136] Exporting '...future.FUN' (414 bytes) to cluster node #1 ... DONE
[18:41:34.136] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:34.136] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:34.136] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ...
[18:41:34.137] Exporting '...future.elements_ii' (150 bytes) to cluster node #1 ... DONE
[18:41:34.137] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.137] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.138] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.138] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.138] Exporting 5 global objects (1.06 KiB) to cluster node #1 ... DONE
[18:41:34.139] MultisessionFuture started
[18:41:34.139] - Launch lazy future ... done
[18:41:34.140] run() for 'MultisessionFuture' ... done
[18:41:34.140] Created future:
[18:41:34.155] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.155] - Validating connection of MultisessionFuture
[18:41:34.156] - received message: FutureResult
[18:41:34.156] - Received FutureResult
[18:41:34.156] - Erased future from FutureRegistry
[18:41:34.156] result() for ClusterFuture ...
[18:41:34.156] - result already collected: FutureResult
[18:41:34.157] result() for ClusterFuture ... done
[18:41:34.157] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.140] MultisessionFuture:
[18:41:34.140] Label: 'future_.mapply-1'
[18:41:34.140] Expression:
[18:41:34.140] {
[18:41:34.140]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.140]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.140]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.140]         on.exit(options(oopts), add = TRUE)
[18:41:34.140]     }
[18:41:34.140]     {
[18:41:34.140]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.140]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.140]         do.call(mapply, args = args)
[18:41:34.140]     }
[18:41:34.140] }
[18:41:34.140] Lazy evaluation: FALSE
[18:41:34.140] Asynchronous evaluation: TRUE
[18:41:34.140] Local evaluation: TRUE
[18:41:34.140] Environment: R_GlobalEnv
[18:41:34.140] Capture standard output: TRUE
[18:41:34.140] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.140] Globals: 5 objects totaling 649 bytes (function '...future.FUN' of 414 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 150 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.140] Packages: <none>
[18:41:34.140] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.140] Resolved: TRUE
[18:41:34.140] Value: <not collected>
[18:41:34.140] Conditions captured: <none>
[18:41:34.140] Early signaling: FALSE
[18:41:34.140] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.140] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.157] Chunk #1 of 2 ... DONE
[18:41:34.157] Chunk #2 of 2 ...
[18:41:34.158]  - Finding globals in '...' for chunk #2 ...
[18:41:34.158] getGlobalsAndPackages() ...
[18:41:34.158] Searching for globals...
[18:41:34.158] 
[18:41:34.158] Searching for globals ... DONE
[18:41:34.159] - globals: [0] <none>
[18:41:34.159] getGlobalsAndPackages() ... DONE
[18:41:34.159]    + additional globals found: [n=0] 
[18:41:34.159]    + additional namespaces needed: [n=0] 
[18:41:34.160]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:34.160]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:34.160]  - seeds: <none>
[18:41:34.160]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.161] getGlobalsAndPackages() ...
[18:41:34.161] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.161] Resolving globals: FALSE
[18:41:34.162] The total size of the 5 globals is 699 bytes (699 bytes)
[18:41:34.163] 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 699 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (414 bytes of class 'function'), '...future.elements_ii' (200 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:34.164] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.164] 
[18:41:34.164] getGlobalsAndPackages() ... DONE
[18:41:34.164] run() for 'Future' ...
[18:41:34.164] - state: 'created'
[18:41:34.165] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.183] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.183] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.183]   - Field: 'node'
[18:41:34.183]   - Field: 'label'
[18:41:34.184]   - Field: 'local'
[18:41:34.184]   - Field: 'owner'
[18:41:34.184]   - Field: 'envir'
[18:41:34.184]   - Field: 'workers'
[18:41:34.184]   - Field: 'packages'
[18:41:34.184]   - Field: 'gc'
[18:41:34.185]   - Field: 'conditions'
[18:41:34.185]   - Field: 'persistent'
[18:41:34.185]   - Field: 'expr'
[18:41:34.185]   - Field: 'uuid'
[18:41:34.185]   - Field: 'seed'
[18:41:34.185]   - Field: 'version'
[18:41:34.186]   - Field: 'result'
[18:41:34.186]   - Field: 'asynchronous'
[18:41:34.186]   - Field: 'calls'
[18:41:34.186]   - Field: 'globals'
[18:41:34.186]   - Field: 'stdout'
[18:41:34.186]   - Field: 'earlySignal'
[18:41:34.187]   - Field: 'lazy'
[18:41:34.187]   - Field: 'state'
[18:41:34.187] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.187] - Launch lazy future ...
[18:41:34.188] Packages needed by the future expression (n = 0): <none>
[18:41:34.188] Packages needed by future strategies (n = 0): <none>
[18:41:34.188] {
[18:41:34.188]     {
[18:41:34.188]         {
[18:41:34.188]             ...future.startTime <- base::Sys.time()
[18:41:34.188]             {
[18:41:34.188]                 {
[18:41:34.188]                   {
[18:41:34.188]                     {
[18:41:34.188]                       base::local({
[18:41:34.188]                         has_future <- base::requireNamespace("future", 
[18:41:34.188]                           quietly = TRUE)
[18:41:34.188]                         if (has_future) {
[18:41:34.188]                           ns <- base::getNamespace("future")
[18:41:34.188]                           version <- ns[[".package"]][["version"]]
[18:41:34.188]                           if (is.null(version)) 
[18:41:34.188]                             version <- utils::packageVersion("future")
[18:41:34.188]                         }
[18:41:34.188]                         else {
[18:41:34.188]                           version <- NULL
[18:41:34.188]                         }
[18:41:34.188]                         if (!has_future || version < "1.8.0") {
[18:41:34.188]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.188]                             "", base::R.version$version.string), 
[18:41:34.188]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.188]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.188]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.188]                               "release", "version")], collapse = " "), 
[18:41:34.188]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.188]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.188]                             info)
[18:41:34.188]                           info <- base::paste(info, collapse = "; ")
[18:41:34.188]                           if (!has_future) {
[18:41:34.188]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.188]                               info)
[18:41:34.188]                           }
[18:41:34.188]                           else {
[18:41:34.188]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.188]                               info, version)
[18:41:34.188]                           }
[18:41:34.188]                           base::stop(msg)
[18:41:34.188]                         }
[18:41:34.188]                       })
[18:41:34.188]                     }
[18:41:34.188]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.188]                     base::options(mc.cores = 1L)
[18:41:34.188]                   }
[18:41:34.188]                   ...future.strategy.old <- future::plan("list")
[18:41:34.188]                   options(future.plan = NULL)
[18:41:34.188]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.188]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.188]                 }
[18:41:34.188]                 ...future.workdir <- getwd()
[18:41:34.188]             }
[18:41:34.188]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.188]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.188]         }
[18:41:34.188]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.188]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:34.188]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.188]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.188]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.188]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.188]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.188]             base::names(...future.oldOptions))
[18:41:34.188]     }
[18:41:34.188]     if (FALSE) {
[18:41:34.188]     }
[18:41:34.188]     else {
[18:41:34.188]         if (TRUE) {
[18:41:34.188]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.188]                 open = "w")
[18:41:34.188]         }
[18:41:34.188]         else {
[18:41:34.188]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.188]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.188]         }
[18:41:34.188]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.188]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.188]             base::sink(type = "output", split = FALSE)
[18:41:34.188]             base::close(...future.stdout)
[18:41:34.188]         }, add = TRUE)
[18:41:34.188]     }
[18:41:34.188]     ...future.frame <- base::sys.nframe()
[18:41:34.188]     ...future.conditions <- base::list()
[18:41:34.188]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.188]     if (FALSE) {
[18:41:34.188]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.188]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.188]     }
[18:41:34.188]     ...future.result <- base::tryCatch({
[18:41:34.188]         base::withCallingHandlers({
[18:41:34.188]             ...future.value <- base::withVisible(base::local({
[18:41:34.188]                 ...future.makeSendCondition <- base::local({
[18:41:34.188]                   sendCondition <- NULL
[18:41:34.188]                   function(frame = 1L) {
[18:41:34.188]                     if (is.function(sendCondition)) 
[18:41:34.188]                       return(sendCondition)
[18:41:34.188]                     ns <- getNamespace("parallel")
[18:41:34.188]                     if (exists("sendData", mode = "function", 
[18:41:34.188]                       envir = ns)) {
[18:41:34.188]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.188]                         envir = ns)
[18:41:34.188]                       envir <- sys.frame(frame)
[18:41:34.188]                       master <- NULL
[18:41:34.188]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.188]                         !identical(envir, emptyenv())) {
[18:41:34.188]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.188]                           inherits = FALSE)) {
[18:41:34.188]                           master <- get("master", mode = "list", 
[18:41:34.188]                             envir = envir, inherits = FALSE)
[18:41:34.188]                           if (inherits(master, c("SOCKnode", 
[18:41:34.188]                             "SOCK0node"))) {
[18:41:34.188]                             sendCondition <<- function(cond) {
[18:41:34.188]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.188]                                 success = TRUE)
[18:41:34.188]                               parallel_sendData(master, data)
[18:41:34.188]                             }
[18:41:34.188]                             return(sendCondition)
[18:41:34.188]                           }
[18:41:34.188]                         }
[18:41:34.188]                         frame <- frame + 1L
[18:41:34.188]                         envir <- sys.frame(frame)
[18:41:34.188]                       }
[18:41:34.188]                     }
[18:41:34.188]                     sendCondition <<- function(cond) NULL
[18:41:34.188]                   }
[18:41:34.188]                 })
[18:41:34.188]                 withCallingHandlers({
[18:41:34.188]                   {
[18:41:34.188]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.188]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.188]                       ...future.globals.maxSize)) {
[18:41:34.188]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.188]                       on.exit(options(oopts), add = TRUE)
[18:41:34.188]                     }
[18:41:34.188]                     {
[18:41:34.188]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.188]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.188]                         USE.NAMES = FALSE)
[18:41:34.188]                       do.call(mapply, args = args)
[18:41:34.188]                     }
[18:41:34.188]                   }
[18:41:34.188]                 }, immediateCondition = function(cond) {
[18:41:34.188]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.188]                   sendCondition(cond)
[18:41:34.188]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.188]                   {
[18:41:34.188]                     inherits <- base::inherits
[18:41:34.188]                     invokeRestart <- base::invokeRestart
[18:41:34.188]                     is.null <- base::is.null
[18:41:34.188]                     muffled <- FALSE
[18:41:34.188]                     if (inherits(cond, "message")) {
[18:41:34.188]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.188]                       if (muffled) 
[18:41:34.188]                         invokeRestart("muffleMessage")
[18:41:34.188]                     }
[18:41:34.188]                     else if (inherits(cond, "warning")) {
[18:41:34.188]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.188]                       if (muffled) 
[18:41:34.188]                         invokeRestart("muffleWarning")
[18:41:34.188]                     }
[18:41:34.188]                     else if (inherits(cond, "condition")) {
[18:41:34.188]                       if (!is.null(pattern)) {
[18:41:34.188]                         computeRestarts <- base::computeRestarts
[18:41:34.188]                         grepl <- base::grepl
[18:41:34.188]                         restarts <- computeRestarts(cond)
[18:41:34.188]                         for (restart in restarts) {
[18:41:34.188]                           name <- restart$name
[18:41:34.188]                           if (is.null(name)) 
[18:41:34.188]                             next
[18:41:34.188]                           if (!grepl(pattern, name)) 
[18:41:34.188]                             next
[18:41:34.188]                           invokeRestart(restart)
[18:41:34.188]                           muffled <- TRUE
[18:41:34.188]                           break
[18:41:34.188]                         }
[18:41:34.188]                       }
[18:41:34.188]                     }
[18:41:34.188]                     invisible(muffled)
[18:41:34.188]                   }
[18:41:34.188]                   muffleCondition(cond)
[18:41:34.188]                 })
[18:41:34.188]             }))
[18:41:34.188]             future::FutureResult(value = ...future.value$value, 
[18:41:34.188]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.188]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.188]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.188]                     ...future.globalenv.names))
[18:41:34.188]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.188]         }, condition = base::local({
[18:41:34.188]             c <- base::c
[18:41:34.188]             inherits <- base::inherits
[18:41:34.188]             invokeRestart <- base::invokeRestart
[18:41:34.188]             length <- base::length
[18:41:34.188]             list <- base::list
[18:41:34.188]             seq.int <- base::seq.int
[18:41:34.188]             signalCondition <- base::signalCondition
[18:41:34.188]             sys.calls <- base::sys.calls
[18:41:34.188]             `[[` <- base::`[[`
[18:41:34.188]             `+` <- base::`+`
[18:41:34.188]             `<<-` <- base::`<<-`
[18:41:34.188]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.188]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.188]                   3L)]
[18:41:34.188]             }
[18:41:34.188]             function(cond) {
[18:41:34.188]                 is_error <- inherits(cond, "error")
[18:41:34.188]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.188]                   NULL)
[18:41:34.188]                 if (is_error) {
[18:41:34.188]                   sessionInformation <- function() {
[18:41:34.188]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.188]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.188]                       search = base::search(), system = base::Sys.info())
[18:41:34.188]                   }
[18:41:34.188]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.188]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.188]                     cond$call), session = sessionInformation(), 
[18:41:34.188]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.188]                   signalCondition(cond)
[18:41:34.188]                 }
[18:41:34.188]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.188]                 "immediateCondition"))) {
[18:41:34.188]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.188]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.188]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.188]                   if (TRUE && !signal) {
[18:41:34.188]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.188]                     {
[18:41:34.188]                       inherits <- base::inherits
[18:41:34.188]                       invokeRestart <- base::invokeRestart
[18:41:34.188]                       is.null <- base::is.null
[18:41:34.188]                       muffled <- FALSE
[18:41:34.188]                       if (inherits(cond, "message")) {
[18:41:34.188]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.188]                         if (muffled) 
[18:41:34.188]                           invokeRestart("muffleMessage")
[18:41:34.188]                       }
[18:41:34.188]                       else if (inherits(cond, "warning")) {
[18:41:34.188]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.188]                         if (muffled) 
[18:41:34.188]                           invokeRestart("muffleWarning")
[18:41:34.188]                       }
[18:41:34.188]                       else if (inherits(cond, "condition")) {
[18:41:34.188]                         if (!is.null(pattern)) {
[18:41:34.188]                           computeRestarts <- base::computeRestarts
[18:41:34.188]                           grepl <- base::grepl
[18:41:34.188]                           restarts <- computeRestarts(cond)
[18:41:34.188]                           for (restart in restarts) {
[18:41:34.188]                             name <- restart$name
[18:41:34.188]                             if (is.null(name)) 
[18:41:34.188]                               next
[18:41:34.188]                             if (!grepl(pattern, name)) 
[18:41:34.188]                               next
[18:41:34.188]                             invokeRestart(restart)
[18:41:34.188]                             muffled <- TRUE
[18:41:34.188]                             break
[18:41:34.188]                           }
[18:41:34.188]                         }
[18:41:34.188]                       }
[18:41:34.188]                       invisible(muffled)
[18:41:34.188]                     }
[18:41:34.188]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.188]                   }
[18:41:34.188]                 }
[18:41:34.188]                 else {
[18:41:34.188]                   if (TRUE) {
[18:41:34.188]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.188]                     {
[18:41:34.188]                       inherits <- base::inherits
[18:41:34.188]                       invokeRestart <- base::invokeRestart
[18:41:34.188]                       is.null <- base::is.null
[18:41:34.188]                       muffled <- FALSE
[18:41:34.188]                       if (inherits(cond, "message")) {
[18:41:34.188]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.188]                         if (muffled) 
[18:41:34.188]                           invokeRestart("muffleMessage")
[18:41:34.188]                       }
[18:41:34.188]                       else if (inherits(cond, "warning")) {
[18:41:34.188]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.188]                         if (muffled) 
[18:41:34.188]                           invokeRestart("muffleWarning")
[18:41:34.188]                       }
[18:41:34.188]                       else if (inherits(cond, "condition")) {
[18:41:34.188]                         if (!is.null(pattern)) {
[18:41:34.188]                           computeRestarts <- base::computeRestarts
[18:41:34.188]                           grepl <- base::grepl
[18:41:34.188]                           restarts <- computeRestarts(cond)
[18:41:34.188]                           for (restart in restarts) {
[18:41:34.188]                             name <- restart$name
[18:41:34.188]                             if (is.null(name)) 
[18:41:34.188]                               next
[18:41:34.188]                             if (!grepl(pattern, name)) 
[18:41:34.188]                               next
[18:41:34.188]                             invokeRestart(restart)
[18:41:34.188]                             muffled <- TRUE
[18:41:34.188]                             break
[18:41:34.188]                           }
[18:41:34.188]                         }
[18:41:34.188]                       }
[18:41:34.188]                       invisible(muffled)
[18:41:34.188]                     }
[18:41:34.188]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.188]                   }
[18:41:34.188]                 }
[18:41:34.188]             }
[18:41:34.188]         }))
[18:41:34.188]     }, error = function(ex) {
[18:41:34.188]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.188]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.188]                 ...future.rng), started = ...future.startTime, 
[18:41:34.188]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.188]             version = "1.8"), class = "FutureResult")
[18:41:34.188]     }, finally = {
[18:41:34.188]         if (!identical(...future.workdir, getwd())) 
[18:41:34.188]             setwd(...future.workdir)
[18:41:34.188]         {
[18:41:34.188]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.188]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.188]             }
[18:41:34.188]             base::options(...future.oldOptions)
[18:41:34.188]             if (.Platform$OS.type == "windows") {
[18:41:34.188]                 old_names <- names(...future.oldEnvVars)
[18:41:34.188]                 envs <- base::Sys.getenv()
[18:41:34.188]                 names <- names(envs)
[18:41:34.188]                 common <- intersect(names, old_names)
[18:41:34.188]                 added <- setdiff(names, old_names)
[18:41:34.188]                 removed <- setdiff(old_names, names)
[18:41:34.188]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.188]                   envs[common]]
[18:41:34.188]                 NAMES <- toupper(changed)
[18:41:34.188]                 args <- list()
[18:41:34.188]                 for (kk in seq_along(NAMES)) {
[18:41:34.188]                   name <- changed[[kk]]
[18:41:34.188]                   NAME <- NAMES[[kk]]
[18:41:34.188]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.188]                     next
[18:41:34.188]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.188]                 }
[18:41:34.188]                 NAMES <- toupper(added)
[18:41:34.188]                 for (kk in seq_along(NAMES)) {
[18:41:34.188]                   name <- added[[kk]]
[18:41:34.188]                   NAME <- NAMES[[kk]]
[18:41:34.188]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.188]                     next
[18:41:34.188]                   args[[name]] <- ""
[18:41:34.188]                 }
[18:41:34.188]                 NAMES <- toupper(removed)
[18:41:34.188]                 for (kk in seq_along(NAMES)) {
[18:41:34.188]                   name <- removed[[kk]]
[18:41:34.188]                   NAME <- NAMES[[kk]]
[18:41:34.188]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.188]                     next
[18:41:34.188]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.188]                 }
[18:41:34.188]                 if (length(args) > 0) 
[18:41:34.188]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.188]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.188]             }
[18:41:34.188]             else {
[18:41:34.188]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.188]             }
[18:41:34.188]             {
[18:41:34.188]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.188]                   0L) {
[18:41:34.188]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.188]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.188]                   base::options(opts)
[18:41:34.188]                 }
[18:41:34.188]                 {
[18:41:34.188]                   {
[18:41:34.188]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.188]                     NULL
[18:41:34.188]                   }
[18:41:34.188]                   options(future.plan = NULL)
[18:41:34.188]                   if (is.na(NA_character_)) 
[18:41:34.188]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.188]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.188]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.188]                     .init = FALSE)
[18:41:34.188]                 }
[18:41:34.188]             }
[18:41:34.188]         }
[18:41:34.188]     })
[18:41:34.188]     if (TRUE) {
[18:41:34.188]         base::sink(type = "output", split = FALSE)
[18:41:34.188]         if (TRUE) {
[18:41:34.188]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.188]         }
[18:41:34.188]         else {
[18:41:34.188]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.188]         }
[18:41:34.188]         base::close(...future.stdout)
[18:41:34.188]         ...future.stdout <- NULL
[18:41:34.188]     }
[18:41:34.188]     ...future.result$conditions <- ...future.conditions
[18:41:34.188]     ...future.result$finished <- base::Sys.time()
[18:41:34.188]     ...future.result
[18:41:34.188] }
[18:41:34.194] Exporting 5 global objects (1.11 KiB) to cluster node #1 ...
[18:41:34.194] Exporting '...future.FUN' (414 bytes) to cluster node #1 ...
[18:41:34.194] Exporting '...future.FUN' (414 bytes) to cluster node #1 ... DONE
[18:41:34.194] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:34.195] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:34.195] Exporting '...future.elements_ii' (200 bytes) to cluster node #1 ...
[18:41:34.195] Exporting '...future.elements_ii' (200 bytes) to cluster node #1 ... DONE
[18:41:34.196] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.196] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.196] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.197] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.197] Exporting 5 global objects (1.11 KiB) to cluster node #1 ... DONE
[18:41:34.198] MultisessionFuture started
[18:41:34.198] - Launch lazy future ... done
[18:41:34.198] run() for 'MultisessionFuture' ... done
[18:41:34.198] Created future:
[18:41:34.212] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.213] - Validating connection of MultisessionFuture
[18:41:34.213] - received message: FutureResult
[18:41:34.213] - Received FutureResult
[18:41:34.213] - Erased future from FutureRegistry
[18:41:34.213] result() for ClusterFuture ...
[18:41:34.214] - result already collected: FutureResult
[18:41:34.214] result() for ClusterFuture ... done
[18:41:34.214] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.199] MultisessionFuture:
[18:41:34.199] Label: 'future_.mapply-2'
[18:41:34.199] Expression:
[18:41:34.199] {
[18:41:34.199]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.199]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.199]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.199]         on.exit(options(oopts), add = TRUE)
[18:41:34.199]     }
[18:41:34.199]     {
[18:41:34.199]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.199]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.199]         do.call(mapply, args = args)
[18:41:34.199]     }
[18:41:34.199] }
[18:41:34.199] Lazy evaluation: FALSE
[18:41:34.199] Asynchronous evaluation: TRUE
[18:41:34.199] Local evaluation: TRUE
[18:41:34.199] Environment: R_GlobalEnv
[18:41:34.199] Capture standard output: TRUE
[18:41:34.199] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.199] Globals: 5 objects totaling 699 bytes (function '...future.FUN' of 414 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 200 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.199] Packages: <none>
[18:41:34.199] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.199] Resolved: TRUE
[18:41:34.199] Value: <not collected>
[18:41:34.199] Conditions captured: <none>
[18:41:34.199] Early signaling: FALSE
[18:41:34.199] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.199] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.214] Chunk #2 of 2 ... DONE
[18:41:34.214] Launching 2 futures (chunks) ... DONE
[18:41:34.215] Resolving 2 futures (chunks) ...
[18:41:34.215] resolve() on list ...
[18:41:34.215]  recursive: 0
[18:41:34.215]  length: 2
[18:41:34.215] 
[18:41:34.215] Future #1
[18:41:34.216] result() for ClusterFuture ...
[18:41:34.216] - result already collected: FutureResult
[18:41:34.216] result() for ClusterFuture ... done
[18:41:34.216] result() for ClusterFuture ...
[18:41:34.216] - result already collected: FutureResult
[18:41:34.216] result() for ClusterFuture ... done
[18:41:34.217] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:34.217] - nx: 2
[18:41:34.217] - relay: TRUE
[18:41:34.217] - stdout: TRUE
[18:41:34.217] - signal: TRUE
[18:41:34.217] - resignal: FALSE
[18:41:34.217] - force: TRUE
[18:41:34.218] - relayed: [n=2] FALSE, FALSE
[18:41:34.218] - queued futures: [n=2] FALSE, FALSE
[18:41:34.218]  - until=1
[18:41:34.218]  - relaying element #1
[18:41:34.218] result() for ClusterFuture ...
[18:41:34.218] - result already collected: FutureResult
[18:41:34.219] result() for ClusterFuture ... done
[18:41:34.219] result() for ClusterFuture ...
[18:41:34.219] - result already collected: FutureResult
[18:41:34.219] result() for ClusterFuture ... done
[18:41:34.219] result() for ClusterFuture ...
[18:41:34.219] - result already collected: FutureResult
[18:41:34.219] result() for ClusterFuture ... done
[18:41:34.220] result() for ClusterFuture ...
[18:41:34.220] - result already collected: FutureResult
[18:41:34.220] result() for ClusterFuture ... done
[18:41:34.220] - relayed: [n=2] TRUE, FALSE
[18:41:34.220] - queued futures: [n=2] TRUE, FALSE
[18:41:34.220] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:34.221]  length: 1 (resolved future 1)
[18:41:34.221] Future #2
[18:41:34.221] result() for ClusterFuture ...
[18:41:34.221] - result already collected: FutureResult
[18:41:34.221] result() for ClusterFuture ... done
[18:41:34.222] result() for ClusterFuture ...
[18:41:34.222] - result already collected: FutureResult
[18:41:34.222] result() for ClusterFuture ... done
[18:41:34.223] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:34.223] - nx: 2
[18:41:34.223] - relay: TRUE
[18:41:34.223] - stdout: TRUE
[18:41:34.224] - signal: TRUE
[18:41:34.224] - resignal: FALSE
[18:41:34.224] - force: TRUE
[18:41:34.224] - relayed: [n=2] TRUE, FALSE
[18:41:34.225] - queued futures: [n=2] TRUE, FALSE
[18:41:34.225]  - until=2
[18:41:34.225]  - relaying element #2
[18:41:34.225] result() for ClusterFuture ...
[18:41:34.225] - result already collected: FutureResult
[18:41:34.225] result() for ClusterFuture ... done
[18:41:34.226] result() for ClusterFuture ...
[18:41:34.226] - result already collected: FutureResult
[18:41:34.226] result() for ClusterFuture ... done
[18:41:34.226] result() for ClusterFuture ...
[18:41:34.226] - result already collected: FutureResult
[18:41:34.226] result() for ClusterFuture ... done
[18:41:34.227] result() for ClusterFuture ...
[18:41:34.227] - result already collected: FutureResult
[18:41:34.227] result() for ClusterFuture ... done
[18:41:34.227] - relayed: [n=2] TRUE, TRUE
[18:41:34.227] - queued futures: [n=2] TRUE, TRUE
[18:41:34.227] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:34.228]  length: 0 (resolved future 2)
[18:41:34.228] Relaying remaining futures
[18:41:34.228] signalConditionsASAP(NULL, pos=0) ...
[18:41:34.228] - nx: 2
[18:41:34.228] - relay: TRUE
[18:41:34.228] - stdout: TRUE
[18:41:34.228] - signal: TRUE
[18:41:34.229] - resignal: FALSE
[18:41:34.229] - force: TRUE
[18:41:34.229] - relayed: [n=2] TRUE, TRUE
[18:41:34.229] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:34.229] - relayed: [n=2] TRUE, TRUE
[18:41:34.229] - queued futures: [n=2] TRUE, TRUE
[18:41:34.230] signalConditionsASAP(NULL, pos=0) ... done
[18:41:34.230] resolve() on list ... DONE
[18:41:34.230] result() for ClusterFuture ...
[18:41:34.230] - result already collected: FutureResult
[18:41:34.230] result() for ClusterFuture ... done
[18:41:34.230] result() for ClusterFuture ...
[18:41:34.231] - result already collected: FutureResult
[18:41:34.231] result() for ClusterFuture ... done
[18:41:34.231] result() for ClusterFuture ...
[18:41:34.231] - result already collected: FutureResult
[18:41:34.231] result() for ClusterFuture ... done
[18:41:34.231] result() for ClusterFuture ...
[18:41:34.231] - result already collected: FutureResult
[18:41:34.232] result() for ClusterFuture ... done
[18:41:34.232]  - Number of value chunks collected: 2
[18:41:34.232] Resolving 2 futures (chunks) ... DONE
[18:41:34.232] Reducing values from 2 chunks ...
[18:41:34.232]  - Number of values collected after concatenation: 3
[18:41:34.232]  - Number of values expected: 3
[18:41:34.233] Reducing values from 2 chunks ... DONE
[18:41:34.233] future_mapply() ... DONE
[18:41:34.233] future_mapply() ...
[18:41:34.236] Number of chunks: 5
[18:41:34.236] getGlobalsAndPackagesXApply() ...
[18:41:34.236]  - future.globals: TRUE
[18:41:34.236] getGlobalsAndPackages() ...
[18:41:34.236] Searching for globals...
[18:41:34.238] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:34.238] Searching for globals ... DONE
[18:41:34.238] Resolving globals: FALSE
[18:41:34.239] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:34.239] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:34.239] - globals: [1] 'FUN'
[18:41:34.240] 
[18:41:34.240] getGlobalsAndPackages() ... DONE
[18:41:34.240]  - globals found/used: [n=1] 'FUN'
[18:41:34.240]  - needed namespaces: [n=0] 
[18:41:34.240] Finding globals ... DONE
[18:41:34.240] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:34.241] List of 2
[18:41:34.241]  $ ...future.FUN:function (C, k)  
[18:41:34.241]  $ MoreArgs     : NULL
[18:41:34.241]  - attr(*, "where")=List of 2
[18:41:34.241]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:34.241]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:34.241]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:34.241]  - attr(*, "resolved")= logi FALSE
[18:41:34.241]  - attr(*, "total_size")= num NA
[18:41:34.244] Packages to be attached in all futures: [n=0] 
[18:41:34.244] getGlobalsAndPackagesXApply() ... DONE
[18:41:34.244] Number of futures (= number of chunks): 5
[18:41:34.244] Launching 5 futures (chunks) ...
[18:41:34.245] Chunk #1 of 5 ...
[18:41:34.245]  - Finding globals in '...' for chunk #1 ...
[18:41:34.245] getGlobalsAndPackages() ...
[18:41:34.245] Searching for globals...
[18:41:34.245] 
[18:41:34.246] Searching for globals ... DONE
[18:41:34.246] - globals: [0] <none>
[18:41:34.246] getGlobalsAndPackages() ... DONE
[18:41:34.246]    + additional globals found: [n=0] 
[18:41:34.246]    + additional namespaces needed: [n=0] 
[18:41:34.246]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:34.247]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:34.247]  - seeds: <none>
[18:41:34.247]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.247] getGlobalsAndPackages() ...
[18:41:34.247] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.247] Resolving globals: FALSE
[18:41:34.248] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:34.249] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.249] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.249] 
[18:41:34.249] getGlobalsAndPackages() ... DONE
[18:41:34.249] run() for 'Future' ...
[18:41:34.250] - state: 'created'
[18:41:34.250] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.265] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.266] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.266]   - Field: 'node'
[18:41:34.266]   - Field: 'label'
[18:41:34.266]   - Field: 'local'
[18:41:34.266]   - Field: 'owner'
[18:41:34.267]   - Field: 'envir'
[18:41:34.267]   - Field: 'workers'
[18:41:34.267]   - Field: 'packages'
[18:41:34.267]   - Field: 'gc'
[18:41:34.267]   - Field: 'conditions'
[18:41:34.267]   - Field: 'persistent'
[18:41:34.268]   - Field: 'expr'
[18:41:34.268]   - Field: 'uuid'
[18:41:34.268]   - Field: 'seed'
[18:41:34.268]   - Field: 'version'
[18:41:34.268]   - Field: 'result'
[18:41:34.268]   - Field: 'asynchronous'
[18:41:34.269]   - Field: 'calls'
[18:41:34.269]   - Field: 'globals'
[18:41:34.269]   - Field: 'stdout'
[18:41:34.269]   - Field: 'earlySignal'
[18:41:34.269]   - Field: 'lazy'
[18:41:34.269]   - Field: 'state'
[18:41:34.270] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.270] - Launch lazy future ...
[18:41:34.270] Packages needed by the future expression (n = 0): <none>
[18:41:34.270] Packages needed by future strategies (n = 0): <none>
[18:41:34.271] {
[18:41:34.271]     {
[18:41:34.271]         {
[18:41:34.271]             ...future.startTime <- base::Sys.time()
[18:41:34.271]             {
[18:41:34.271]                 {
[18:41:34.271]                   {
[18:41:34.271]                     {
[18:41:34.271]                       base::local({
[18:41:34.271]                         has_future <- base::requireNamespace("future", 
[18:41:34.271]                           quietly = TRUE)
[18:41:34.271]                         if (has_future) {
[18:41:34.271]                           ns <- base::getNamespace("future")
[18:41:34.271]                           version <- ns[[".package"]][["version"]]
[18:41:34.271]                           if (is.null(version)) 
[18:41:34.271]                             version <- utils::packageVersion("future")
[18:41:34.271]                         }
[18:41:34.271]                         else {
[18:41:34.271]                           version <- NULL
[18:41:34.271]                         }
[18:41:34.271]                         if (!has_future || version < "1.8.0") {
[18:41:34.271]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.271]                             "", base::R.version$version.string), 
[18:41:34.271]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.271]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.271]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.271]                               "release", "version")], collapse = " "), 
[18:41:34.271]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.271]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.271]                             info)
[18:41:34.271]                           info <- base::paste(info, collapse = "; ")
[18:41:34.271]                           if (!has_future) {
[18:41:34.271]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.271]                               info)
[18:41:34.271]                           }
[18:41:34.271]                           else {
[18:41:34.271]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.271]                               info, version)
[18:41:34.271]                           }
[18:41:34.271]                           base::stop(msg)
[18:41:34.271]                         }
[18:41:34.271]                       })
[18:41:34.271]                     }
[18:41:34.271]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.271]                     base::options(mc.cores = 1L)
[18:41:34.271]                   }
[18:41:34.271]                   ...future.strategy.old <- future::plan("list")
[18:41:34.271]                   options(future.plan = NULL)
[18:41:34.271]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.271]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.271]                 }
[18:41:34.271]                 ...future.workdir <- getwd()
[18:41:34.271]             }
[18:41:34.271]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.271]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.271]         }
[18:41:34.271]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.271]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:34.271]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.271]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.271]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.271]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.271]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.271]             base::names(...future.oldOptions))
[18:41:34.271]     }
[18:41:34.271]     if (FALSE) {
[18:41:34.271]     }
[18:41:34.271]     else {
[18:41:34.271]         if (TRUE) {
[18:41:34.271]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.271]                 open = "w")
[18:41:34.271]         }
[18:41:34.271]         else {
[18:41:34.271]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.271]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.271]         }
[18:41:34.271]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.271]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.271]             base::sink(type = "output", split = FALSE)
[18:41:34.271]             base::close(...future.stdout)
[18:41:34.271]         }, add = TRUE)
[18:41:34.271]     }
[18:41:34.271]     ...future.frame <- base::sys.nframe()
[18:41:34.271]     ...future.conditions <- base::list()
[18:41:34.271]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.271]     if (FALSE) {
[18:41:34.271]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.271]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.271]     }
[18:41:34.271]     ...future.result <- base::tryCatch({
[18:41:34.271]         base::withCallingHandlers({
[18:41:34.271]             ...future.value <- base::withVisible(base::local({
[18:41:34.271]                 ...future.makeSendCondition <- base::local({
[18:41:34.271]                   sendCondition <- NULL
[18:41:34.271]                   function(frame = 1L) {
[18:41:34.271]                     if (is.function(sendCondition)) 
[18:41:34.271]                       return(sendCondition)
[18:41:34.271]                     ns <- getNamespace("parallel")
[18:41:34.271]                     if (exists("sendData", mode = "function", 
[18:41:34.271]                       envir = ns)) {
[18:41:34.271]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.271]                         envir = ns)
[18:41:34.271]                       envir <- sys.frame(frame)
[18:41:34.271]                       master <- NULL
[18:41:34.271]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.271]                         !identical(envir, emptyenv())) {
[18:41:34.271]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.271]                           inherits = FALSE)) {
[18:41:34.271]                           master <- get("master", mode = "list", 
[18:41:34.271]                             envir = envir, inherits = FALSE)
[18:41:34.271]                           if (inherits(master, c("SOCKnode", 
[18:41:34.271]                             "SOCK0node"))) {
[18:41:34.271]                             sendCondition <<- function(cond) {
[18:41:34.271]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.271]                                 success = TRUE)
[18:41:34.271]                               parallel_sendData(master, data)
[18:41:34.271]                             }
[18:41:34.271]                             return(sendCondition)
[18:41:34.271]                           }
[18:41:34.271]                         }
[18:41:34.271]                         frame <- frame + 1L
[18:41:34.271]                         envir <- sys.frame(frame)
[18:41:34.271]                       }
[18:41:34.271]                     }
[18:41:34.271]                     sendCondition <<- function(cond) NULL
[18:41:34.271]                   }
[18:41:34.271]                 })
[18:41:34.271]                 withCallingHandlers({
[18:41:34.271]                   {
[18:41:34.271]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.271]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.271]                       ...future.globals.maxSize)) {
[18:41:34.271]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.271]                       on.exit(options(oopts), add = TRUE)
[18:41:34.271]                     }
[18:41:34.271]                     {
[18:41:34.271]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.271]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.271]                         USE.NAMES = FALSE)
[18:41:34.271]                       do.call(mapply, args = args)
[18:41:34.271]                     }
[18:41:34.271]                   }
[18:41:34.271]                 }, immediateCondition = function(cond) {
[18:41:34.271]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.271]                   sendCondition(cond)
[18:41:34.271]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.271]                   {
[18:41:34.271]                     inherits <- base::inherits
[18:41:34.271]                     invokeRestart <- base::invokeRestart
[18:41:34.271]                     is.null <- base::is.null
[18:41:34.271]                     muffled <- FALSE
[18:41:34.271]                     if (inherits(cond, "message")) {
[18:41:34.271]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.271]                       if (muffled) 
[18:41:34.271]                         invokeRestart("muffleMessage")
[18:41:34.271]                     }
[18:41:34.271]                     else if (inherits(cond, "warning")) {
[18:41:34.271]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.271]                       if (muffled) 
[18:41:34.271]                         invokeRestart("muffleWarning")
[18:41:34.271]                     }
[18:41:34.271]                     else if (inherits(cond, "condition")) {
[18:41:34.271]                       if (!is.null(pattern)) {
[18:41:34.271]                         computeRestarts <- base::computeRestarts
[18:41:34.271]                         grepl <- base::grepl
[18:41:34.271]                         restarts <- computeRestarts(cond)
[18:41:34.271]                         for (restart in restarts) {
[18:41:34.271]                           name <- restart$name
[18:41:34.271]                           if (is.null(name)) 
[18:41:34.271]                             next
[18:41:34.271]                           if (!grepl(pattern, name)) 
[18:41:34.271]                             next
[18:41:34.271]                           invokeRestart(restart)
[18:41:34.271]                           muffled <- TRUE
[18:41:34.271]                           break
[18:41:34.271]                         }
[18:41:34.271]                       }
[18:41:34.271]                     }
[18:41:34.271]                     invisible(muffled)
[18:41:34.271]                   }
[18:41:34.271]                   muffleCondition(cond)
[18:41:34.271]                 })
[18:41:34.271]             }))
[18:41:34.271]             future::FutureResult(value = ...future.value$value, 
[18:41:34.271]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.271]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.271]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.271]                     ...future.globalenv.names))
[18:41:34.271]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.271]         }, condition = base::local({
[18:41:34.271]             c <- base::c
[18:41:34.271]             inherits <- base::inherits
[18:41:34.271]             invokeRestart <- base::invokeRestart
[18:41:34.271]             length <- base::length
[18:41:34.271]             list <- base::list
[18:41:34.271]             seq.int <- base::seq.int
[18:41:34.271]             signalCondition <- base::signalCondition
[18:41:34.271]             sys.calls <- base::sys.calls
[18:41:34.271]             `[[` <- base::`[[`
[18:41:34.271]             `+` <- base::`+`
[18:41:34.271]             `<<-` <- base::`<<-`
[18:41:34.271]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.271]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.271]                   3L)]
[18:41:34.271]             }
[18:41:34.271]             function(cond) {
[18:41:34.271]                 is_error <- inherits(cond, "error")
[18:41:34.271]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.271]                   NULL)
[18:41:34.271]                 if (is_error) {
[18:41:34.271]                   sessionInformation <- function() {
[18:41:34.271]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.271]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.271]                       search = base::search(), system = base::Sys.info())
[18:41:34.271]                   }
[18:41:34.271]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.271]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.271]                     cond$call), session = sessionInformation(), 
[18:41:34.271]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.271]                   signalCondition(cond)
[18:41:34.271]                 }
[18:41:34.271]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.271]                 "immediateCondition"))) {
[18:41:34.271]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.271]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.271]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.271]                   if (TRUE && !signal) {
[18:41:34.271]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.271]                     {
[18:41:34.271]                       inherits <- base::inherits
[18:41:34.271]                       invokeRestart <- base::invokeRestart
[18:41:34.271]                       is.null <- base::is.null
[18:41:34.271]                       muffled <- FALSE
[18:41:34.271]                       if (inherits(cond, "message")) {
[18:41:34.271]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.271]                         if (muffled) 
[18:41:34.271]                           invokeRestart("muffleMessage")
[18:41:34.271]                       }
[18:41:34.271]                       else if (inherits(cond, "warning")) {
[18:41:34.271]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.271]                         if (muffled) 
[18:41:34.271]                           invokeRestart("muffleWarning")
[18:41:34.271]                       }
[18:41:34.271]                       else if (inherits(cond, "condition")) {
[18:41:34.271]                         if (!is.null(pattern)) {
[18:41:34.271]                           computeRestarts <- base::computeRestarts
[18:41:34.271]                           grepl <- base::grepl
[18:41:34.271]                           restarts <- computeRestarts(cond)
[18:41:34.271]                           for (restart in restarts) {
[18:41:34.271]                             name <- restart$name
[18:41:34.271]                             if (is.null(name)) 
[18:41:34.271]                               next
[18:41:34.271]                             if (!grepl(pattern, name)) 
[18:41:34.271]                               next
[18:41:34.271]                             invokeRestart(restart)
[18:41:34.271]                             muffled <- TRUE
[18:41:34.271]                             break
[18:41:34.271]                           }
[18:41:34.271]                         }
[18:41:34.271]                       }
[18:41:34.271]                       invisible(muffled)
[18:41:34.271]                     }
[18:41:34.271]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.271]                   }
[18:41:34.271]                 }
[18:41:34.271]                 else {
[18:41:34.271]                   if (TRUE) {
[18:41:34.271]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.271]                     {
[18:41:34.271]                       inherits <- base::inherits
[18:41:34.271]                       invokeRestart <- base::invokeRestart
[18:41:34.271]                       is.null <- base::is.null
[18:41:34.271]                       muffled <- FALSE
[18:41:34.271]                       if (inherits(cond, "message")) {
[18:41:34.271]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.271]                         if (muffled) 
[18:41:34.271]                           invokeRestart("muffleMessage")
[18:41:34.271]                       }
[18:41:34.271]                       else if (inherits(cond, "warning")) {
[18:41:34.271]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.271]                         if (muffled) 
[18:41:34.271]                           invokeRestart("muffleWarning")
[18:41:34.271]                       }
[18:41:34.271]                       else if (inherits(cond, "condition")) {
[18:41:34.271]                         if (!is.null(pattern)) {
[18:41:34.271]                           computeRestarts <- base::computeRestarts
[18:41:34.271]                           grepl <- base::grepl
[18:41:34.271]                           restarts <- computeRestarts(cond)
[18:41:34.271]                           for (restart in restarts) {
[18:41:34.271]                             name <- restart$name
[18:41:34.271]                             if (is.null(name)) 
[18:41:34.271]                               next
[18:41:34.271]                             if (!grepl(pattern, name)) 
[18:41:34.271]                               next
[18:41:34.271]                             invokeRestart(restart)
[18:41:34.271]                             muffled <- TRUE
[18:41:34.271]                             break
[18:41:34.271]                           }
[18:41:34.271]                         }
[18:41:34.271]                       }
[18:41:34.271]                       invisible(muffled)
[18:41:34.271]                     }
[18:41:34.271]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.271]                   }
[18:41:34.271]                 }
[18:41:34.271]             }
[18:41:34.271]         }))
[18:41:34.271]     }, error = function(ex) {
[18:41:34.271]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.271]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.271]                 ...future.rng), started = ...future.startTime, 
[18:41:34.271]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.271]             version = "1.8"), class = "FutureResult")
[18:41:34.271]     }, finally = {
[18:41:34.271]         if (!identical(...future.workdir, getwd())) 
[18:41:34.271]             setwd(...future.workdir)
[18:41:34.271]         {
[18:41:34.271]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.271]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.271]             }
[18:41:34.271]             base::options(...future.oldOptions)
[18:41:34.271]             if (.Platform$OS.type == "windows") {
[18:41:34.271]                 old_names <- names(...future.oldEnvVars)
[18:41:34.271]                 envs <- base::Sys.getenv()
[18:41:34.271]                 names <- names(envs)
[18:41:34.271]                 common <- intersect(names, old_names)
[18:41:34.271]                 added <- setdiff(names, old_names)
[18:41:34.271]                 removed <- setdiff(old_names, names)
[18:41:34.271]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.271]                   envs[common]]
[18:41:34.271]                 NAMES <- toupper(changed)
[18:41:34.271]                 args <- list()
[18:41:34.271]                 for (kk in seq_along(NAMES)) {
[18:41:34.271]                   name <- changed[[kk]]
[18:41:34.271]                   NAME <- NAMES[[kk]]
[18:41:34.271]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.271]                     next
[18:41:34.271]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.271]                 }
[18:41:34.271]                 NAMES <- toupper(added)
[18:41:34.271]                 for (kk in seq_along(NAMES)) {
[18:41:34.271]                   name <- added[[kk]]
[18:41:34.271]                   NAME <- NAMES[[kk]]
[18:41:34.271]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.271]                     next
[18:41:34.271]                   args[[name]] <- ""
[18:41:34.271]                 }
[18:41:34.271]                 NAMES <- toupper(removed)
[18:41:34.271]                 for (kk in seq_along(NAMES)) {
[18:41:34.271]                   name <- removed[[kk]]
[18:41:34.271]                   NAME <- NAMES[[kk]]
[18:41:34.271]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.271]                     next
[18:41:34.271]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.271]                 }
[18:41:34.271]                 if (length(args) > 0) 
[18:41:34.271]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.271]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.271]             }
[18:41:34.271]             else {
[18:41:34.271]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.271]             }
[18:41:34.271]             {
[18:41:34.271]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.271]                   0L) {
[18:41:34.271]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.271]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.271]                   base::options(opts)
[18:41:34.271]                 }
[18:41:34.271]                 {
[18:41:34.271]                   {
[18:41:34.271]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.271]                     NULL
[18:41:34.271]                   }
[18:41:34.271]                   options(future.plan = NULL)
[18:41:34.271]                   if (is.na(NA_character_)) 
[18:41:34.271]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.271]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.271]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.271]                     .init = FALSE)
[18:41:34.271]                 }
[18:41:34.271]             }
[18:41:34.271]         }
[18:41:34.271]     })
[18:41:34.271]     if (TRUE) {
[18:41:34.271]         base::sink(type = "output", split = FALSE)
[18:41:34.271]         if (TRUE) {
[18:41:34.271]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.271]         }
[18:41:34.271]         else {
[18:41:34.271]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.271]         }
[18:41:34.271]         base::close(...future.stdout)
[18:41:34.271]         ...future.stdout <- NULL
[18:41:34.271]     }
[18:41:34.271]     ...future.result$conditions <- ...future.conditions
[18:41:34.271]     ...future.result$finished <- base::Sys.time()
[18:41:34.271]     ...future.result
[18:41:34.271] }
[18:41:34.276] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:34.276] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.277] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.277] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.277] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.278] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ...
[18:41:34.278] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ... DONE
[18:41:34.278] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.279] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.279] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.279] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.279] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:34.280] MultisessionFuture started
[18:41:34.281] - Launch lazy future ... done
[18:41:34.281] run() for 'MultisessionFuture' ... done
[18:41:34.281] Created future:
[18:41:34.297] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.297] - Validating connection of MultisessionFuture
[18:41:34.298] - received message: FutureResult
[18:41:34.298] - Received FutureResult
[18:41:34.298] - Erased future from FutureRegistry
[18:41:34.298] result() for ClusterFuture ...
[18:41:34.298] - result already collected: FutureResult
[18:41:34.298] result() for ClusterFuture ... done
[18:41:34.299] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.281] MultisessionFuture:
[18:41:34.281] Label: 'future_mapply-1'
[18:41:34.281] Expression:
[18:41:34.281] {
[18:41:34.281]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.281]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.281]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.281]         on.exit(options(oopts), add = TRUE)
[18:41:34.281]     }
[18:41:34.281]     {
[18:41:34.281]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.281]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.281]         do.call(mapply, args = args)
[18:41:34.281]     }
[18:41:34.281] }
[18:41:34.281] Lazy evaluation: FALSE
[18:41:34.281] Asynchronous evaluation: TRUE
[18:41:34.281] Local evaluation: TRUE
[18:41:34.281] Environment: R_GlobalEnv
[18:41:34.281] Capture standard output: TRUE
[18:41:34.281] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.281] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.281] Packages: <none>
[18:41:34.281] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.281] Resolved: TRUE
[18:41:34.281] Value: <not collected>
[18:41:34.281] Conditions captured: <none>
[18:41:34.281] Early signaling: FALSE
[18:41:34.281] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.281] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.299] Chunk #1 of 5 ... DONE
[18:41:34.299] Chunk #2 of 5 ...
[18:41:34.300]  - Finding globals in '...' for chunk #2 ...
[18:41:34.300] getGlobalsAndPackages() ...
[18:41:34.300] Searching for globals...
[18:41:34.301] 
[18:41:34.302] Searching for globals ... DONE
[18:41:34.303] - globals: [0] <none>
[18:41:34.303] getGlobalsAndPackages() ... DONE
[18:41:34.303]    + additional globals found: [n=0] 
[18:41:34.303]    + additional namespaces needed: [n=0] 
[18:41:34.304]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:34.304]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:34.304]  - seeds: <none>
[18:41:34.304]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.304] getGlobalsAndPackages() ...
[18:41:34.305] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.305] Resolving globals: FALSE
[18:41:34.306] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:34.307] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.307] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.307] 
[18:41:34.307] getGlobalsAndPackages() ... DONE
[18:41:34.308] run() for 'Future' ...
[18:41:34.308] - state: 'created'
[18:41:34.309] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.327] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.327] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.327]   - Field: 'node'
[18:41:34.327]   - Field: 'label'
[18:41:34.328]   - Field: 'local'
[18:41:34.328]   - Field: 'owner'
[18:41:34.328]   - Field: 'envir'
[18:41:34.328]   - Field: 'workers'
[18:41:34.328]   - Field: 'packages'
[18:41:34.328]   - Field: 'gc'
[18:41:34.329]   - Field: 'conditions'
[18:41:34.329]   - Field: 'persistent'
[18:41:34.329]   - Field: 'expr'
[18:41:34.329]   - Field: 'uuid'
[18:41:34.329]   - Field: 'seed'
[18:41:34.330]   - Field: 'version'
[18:41:34.330]   - Field: 'result'
[18:41:34.330]   - Field: 'asynchronous'
[18:41:34.330]   - Field: 'calls'
[18:41:34.330]   - Field: 'globals'
[18:41:34.331]   - Field: 'stdout'
[18:41:34.331]   - Field: 'earlySignal'
[18:41:34.331]   - Field: 'lazy'
[18:41:34.331]   - Field: 'state'
[18:41:34.332] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.332] - Launch lazy future ...
[18:41:34.332] Packages needed by the future expression (n = 0): <none>
[18:41:34.333] Packages needed by future strategies (n = 0): <none>
[18:41:34.333] {
[18:41:34.333]     {
[18:41:34.333]         {
[18:41:34.333]             ...future.startTime <- base::Sys.time()
[18:41:34.333]             {
[18:41:34.333]                 {
[18:41:34.333]                   {
[18:41:34.333]                     {
[18:41:34.333]                       base::local({
[18:41:34.333]                         has_future <- base::requireNamespace("future", 
[18:41:34.333]                           quietly = TRUE)
[18:41:34.333]                         if (has_future) {
[18:41:34.333]                           ns <- base::getNamespace("future")
[18:41:34.333]                           version <- ns[[".package"]][["version"]]
[18:41:34.333]                           if (is.null(version)) 
[18:41:34.333]                             version <- utils::packageVersion("future")
[18:41:34.333]                         }
[18:41:34.333]                         else {
[18:41:34.333]                           version <- NULL
[18:41:34.333]                         }
[18:41:34.333]                         if (!has_future || version < "1.8.0") {
[18:41:34.333]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.333]                             "", base::R.version$version.string), 
[18:41:34.333]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.333]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.333]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.333]                               "release", "version")], collapse = " "), 
[18:41:34.333]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.333]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.333]                             info)
[18:41:34.333]                           info <- base::paste(info, collapse = "; ")
[18:41:34.333]                           if (!has_future) {
[18:41:34.333]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.333]                               info)
[18:41:34.333]                           }
[18:41:34.333]                           else {
[18:41:34.333]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.333]                               info, version)
[18:41:34.333]                           }
[18:41:34.333]                           base::stop(msg)
[18:41:34.333]                         }
[18:41:34.333]                       })
[18:41:34.333]                     }
[18:41:34.333]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.333]                     base::options(mc.cores = 1L)
[18:41:34.333]                   }
[18:41:34.333]                   ...future.strategy.old <- future::plan("list")
[18:41:34.333]                   options(future.plan = NULL)
[18:41:34.333]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.333]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.333]                 }
[18:41:34.333]                 ...future.workdir <- getwd()
[18:41:34.333]             }
[18:41:34.333]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.333]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.333]         }
[18:41:34.333]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.333]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:34.333]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.333]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.333]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.333]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.333]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.333]             base::names(...future.oldOptions))
[18:41:34.333]     }
[18:41:34.333]     if (FALSE) {
[18:41:34.333]     }
[18:41:34.333]     else {
[18:41:34.333]         if (TRUE) {
[18:41:34.333]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.333]                 open = "w")
[18:41:34.333]         }
[18:41:34.333]         else {
[18:41:34.333]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.333]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.333]         }
[18:41:34.333]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.333]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.333]             base::sink(type = "output", split = FALSE)
[18:41:34.333]             base::close(...future.stdout)
[18:41:34.333]         }, add = TRUE)
[18:41:34.333]     }
[18:41:34.333]     ...future.frame <- base::sys.nframe()
[18:41:34.333]     ...future.conditions <- base::list()
[18:41:34.333]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.333]     if (FALSE) {
[18:41:34.333]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.333]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.333]     }
[18:41:34.333]     ...future.result <- base::tryCatch({
[18:41:34.333]         base::withCallingHandlers({
[18:41:34.333]             ...future.value <- base::withVisible(base::local({
[18:41:34.333]                 ...future.makeSendCondition <- base::local({
[18:41:34.333]                   sendCondition <- NULL
[18:41:34.333]                   function(frame = 1L) {
[18:41:34.333]                     if (is.function(sendCondition)) 
[18:41:34.333]                       return(sendCondition)
[18:41:34.333]                     ns <- getNamespace("parallel")
[18:41:34.333]                     if (exists("sendData", mode = "function", 
[18:41:34.333]                       envir = ns)) {
[18:41:34.333]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.333]                         envir = ns)
[18:41:34.333]                       envir <- sys.frame(frame)
[18:41:34.333]                       master <- NULL
[18:41:34.333]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.333]                         !identical(envir, emptyenv())) {
[18:41:34.333]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.333]                           inherits = FALSE)) {
[18:41:34.333]                           master <- get("master", mode = "list", 
[18:41:34.333]                             envir = envir, inherits = FALSE)
[18:41:34.333]                           if (inherits(master, c("SOCKnode", 
[18:41:34.333]                             "SOCK0node"))) {
[18:41:34.333]                             sendCondition <<- function(cond) {
[18:41:34.333]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.333]                                 success = TRUE)
[18:41:34.333]                               parallel_sendData(master, data)
[18:41:34.333]                             }
[18:41:34.333]                             return(sendCondition)
[18:41:34.333]                           }
[18:41:34.333]                         }
[18:41:34.333]                         frame <- frame + 1L
[18:41:34.333]                         envir <- sys.frame(frame)
[18:41:34.333]                       }
[18:41:34.333]                     }
[18:41:34.333]                     sendCondition <<- function(cond) NULL
[18:41:34.333]                   }
[18:41:34.333]                 })
[18:41:34.333]                 withCallingHandlers({
[18:41:34.333]                   {
[18:41:34.333]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.333]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.333]                       ...future.globals.maxSize)) {
[18:41:34.333]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.333]                       on.exit(options(oopts), add = TRUE)
[18:41:34.333]                     }
[18:41:34.333]                     {
[18:41:34.333]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.333]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.333]                         USE.NAMES = FALSE)
[18:41:34.333]                       do.call(mapply, args = args)
[18:41:34.333]                     }
[18:41:34.333]                   }
[18:41:34.333]                 }, immediateCondition = function(cond) {
[18:41:34.333]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.333]                   sendCondition(cond)
[18:41:34.333]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.333]                   {
[18:41:34.333]                     inherits <- base::inherits
[18:41:34.333]                     invokeRestart <- base::invokeRestart
[18:41:34.333]                     is.null <- base::is.null
[18:41:34.333]                     muffled <- FALSE
[18:41:34.333]                     if (inherits(cond, "message")) {
[18:41:34.333]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.333]                       if (muffled) 
[18:41:34.333]                         invokeRestart("muffleMessage")
[18:41:34.333]                     }
[18:41:34.333]                     else if (inherits(cond, "warning")) {
[18:41:34.333]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.333]                       if (muffled) 
[18:41:34.333]                         invokeRestart("muffleWarning")
[18:41:34.333]                     }
[18:41:34.333]                     else if (inherits(cond, "condition")) {
[18:41:34.333]                       if (!is.null(pattern)) {
[18:41:34.333]                         computeRestarts <- base::computeRestarts
[18:41:34.333]                         grepl <- base::grepl
[18:41:34.333]                         restarts <- computeRestarts(cond)
[18:41:34.333]                         for (restart in restarts) {
[18:41:34.333]                           name <- restart$name
[18:41:34.333]                           if (is.null(name)) 
[18:41:34.333]                             next
[18:41:34.333]                           if (!grepl(pattern, name)) 
[18:41:34.333]                             next
[18:41:34.333]                           invokeRestart(restart)
[18:41:34.333]                           muffled <- TRUE
[18:41:34.333]                           break
[18:41:34.333]                         }
[18:41:34.333]                       }
[18:41:34.333]                     }
[18:41:34.333]                     invisible(muffled)
[18:41:34.333]                   }
[18:41:34.333]                   muffleCondition(cond)
[18:41:34.333]                 })
[18:41:34.333]             }))
[18:41:34.333]             future::FutureResult(value = ...future.value$value, 
[18:41:34.333]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.333]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.333]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.333]                     ...future.globalenv.names))
[18:41:34.333]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.333]         }, condition = base::local({
[18:41:34.333]             c <- base::c
[18:41:34.333]             inherits <- base::inherits
[18:41:34.333]             invokeRestart <- base::invokeRestart
[18:41:34.333]             length <- base::length
[18:41:34.333]             list <- base::list
[18:41:34.333]             seq.int <- base::seq.int
[18:41:34.333]             signalCondition <- base::signalCondition
[18:41:34.333]             sys.calls <- base::sys.calls
[18:41:34.333]             `[[` <- base::`[[`
[18:41:34.333]             `+` <- base::`+`
[18:41:34.333]             `<<-` <- base::`<<-`
[18:41:34.333]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.333]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.333]                   3L)]
[18:41:34.333]             }
[18:41:34.333]             function(cond) {
[18:41:34.333]                 is_error <- inherits(cond, "error")
[18:41:34.333]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.333]                   NULL)
[18:41:34.333]                 if (is_error) {
[18:41:34.333]                   sessionInformation <- function() {
[18:41:34.333]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.333]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.333]                       search = base::search(), system = base::Sys.info())
[18:41:34.333]                   }
[18:41:34.333]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.333]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.333]                     cond$call), session = sessionInformation(), 
[18:41:34.333]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.333]                   signalCondition(cond)
[18:41:34.333]                 }
[18:41:34.333]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.333]                 "immediateCondition"))) {
[18:41:34.333]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.333]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.333]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.333]                   if (TRUE && !signal) {
[18:41:34.333]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.333]                     {
[18:41:34.333]                       inherits <- base::inherits
[18:41:34.333]                       invokeRestart <- base::invokeRestart
[18:41:34.333]                       is.null <- base::is.null
[18:41:34.333]                       muffled <- FALSE
[18:41:34.333]                       if (inherits(cond, "message")) {
[18:41:34.333]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.333]                         if (muffled) 
[18:41:34.333]                           invokeRestart("muffleMessage")
[18:41:34.333]                       }
[18:41:34.333]                       else if (inherits(cond, "warning")) {
[18:41:34.333]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.333]                         if (muffled) 
[18:41:34.333]                           invokeRestart("muffleWarning")
[18:41:34.333]                       }
[18:41:34.333]                       else if (inherits(cond, "condition")) {
[18:41:34.333]                         if (!is.null(pattern)) {
[18:41:34.333]                           computeRestarts <- base::computeRestarts
[18:41:34.333]                           grepl <- base::grepl
[18:41:34.333]                           restarts <- computeRestarts(cond)
[18:41:34.333]                           for (restart in restarts) {
[18:41:34.333]                             name <- restart$name
[18:41:34.333]                             if (is.null(name)) 
[18:41:34.333]                               next
[18:41:34.333]                             if (!grepl(pattern, name)) 
[18:41:34.333]                               next
[18:41:34.333]                             invokeRestart(restart)
[18:41:34.333]                             muffled <- TRUE
[18:41:34.333]                             break
[18:41:34.333]                           }
[18:41:34.333]                         }
[18:41:34.333]                       }
[18:41:34.333]                       invisible(muffled)
[18:41:34.333]                     }
[18:41:34.333]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.333]                   }
[18:41:34.333]                 }
[18:41:34.333]                 else {
[18:41:34.333]                   if (TRUE) {
[18:41:34.333]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.333]                     {
[18:41:34.333]                       inherits <- base::inherits
[18:41:34.333]                       invokeRestart <- base::invokeRestart
[18:41:34.333]                       is.null <- base::is.null
[18:41:34.333]                       muffled <- FALSE
[18:41:34.333]                       if (inherits(cond, "message")) {
[18:41:34.333]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.333]                         if (muffled) 
[18:41:34.333]                           invokeRestart("muffleMessage")
[18:41:34.333]                       }
[18:41:34.333]                       else if (inherits(cond, "warning")) {
[18:41:34.333]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.333]                         if (muffled) 
[18:41:34.333]                           invokeRestart("muffleWarning")
[18:41:34.333]                       }
[18:41:34.333]                       else if (inherits(cond, "condition")) {
[18:41:34.333]                         if (!is.null(pattern)) {
[18:41:34.333]                           computeRestarts <- base::computeRestarts
[18:41:34.333]                           grepl <- base::grepl
[18:41:34.333]                           restarts <- computeRestarts(cond)
[18:41:34.333]                           for (restart in restarts) {
[18:41:34.333]                             name <- restart$name
[18:41:34.333]                             if (is.null(name)) 
[18:41:34.333]                               next
[18:41:34.333]                             if (!grepl(pattern, name)) 
[18:41:34.333]                               next
[18:41:34.333]                             invokeRestart(restart)
[18:41:34.333]                             muffled <- TRUE
[18:41:34.333]                             break
[18:41:34.333]                           }
[18:41:34.333]                         }
[18:41:34.333]                       }
[18:41:34.333]                       invisible(muffled)
[18:41:34.333]                     }
[18:41:34.333]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.333]                   }
[18:41:34.333]                 }
[18:41:34.333]             }
[18:41:34.333]         }))
[18:41:34.333]     }, error = function(ex) {
[18:41:34.333]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.333]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.333]                 ...future.rng), started = ...future.startTime, 
[18:41:34.333]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.333]             version = "1.8"), class = "FutureResult")
[18:41:34.333]     }, finally = {
[18:41:34.333]         if (!identical(...future.workdir, getwd())) 
[18:41:34.333]             setwd(...future.workdir)
[18:41:34.333]         {
[18:41:34.333]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.333]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.333]             }
[18:41:34.333]             base::options(...future.oldOptions)
[18:41:34.333]             if (.Platform$OS.type == "windows") {
[18:41:34.333]                 old_names <- names(...future.oldEnvVars)
[18:41:34.333]                 envs <- base::Sys.getenv()
[18:41:34.333]                 names <- names(envs)
[18:41:34.333]                 common <- intersect(names, old_names)
[18:41:34.333]                 added <- setdiff(names, old_names)
[18:41:34.333]                 removed <- setdiff(old_names, names)
[18:41:34.333]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.333]                   envs[common]]
[18:41:34.333]                 NAMES <- toupper(changed)
[18:41:34.333]                 args <- list()
[18:41:34.333]                 for (kk in seq_along(NAMES)) {
[18:41:34.333]                   name <- changed[[kk]]
[18:41:34.333]                   NAME <- NAMES[[kk]]
[18:41:34.333]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.333]                     next
[18:41:34.333]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.333]                 }
[18:41:34.333]                 NAMES <- toupper(added)
[18:41:34.333]                 for (kk in seq_along(NAMES)) {
[18:41:34.333]                   name <- added[[kk]]
[18:41:34.333]                   NAME <- NAMES[[kk]]
[18:41:34.333]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.333]                     next
[18:41:34.333]                   args[[name]] <- ""
[18:41:34.333]                 }
[18:41:34.333]                 NAMES <- toupper(removed)
[18:41:34.333]                 for (kk in seq_along(NAMES)) {
[18:41:34.333]                   name <- removed[[kk]]
[18:41:34.333]                   NAME <- NAMES[[kk]]
[18:41:34.333]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.333]                     next
[18:41:34.333]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.333]                 }
[18:41:34.333]                 if (length(args) > 0) 
[18:41:34.333]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.333]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.333]             }
[18:41:34.333]             else {
[18:41:34.333]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.333]             }
[18:41:34.333]             {
[18:41:34.333]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.333]                   0L) {
[18:41:34.333]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.333]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.333]                   base::options(opts)
[18:41:34.333]                 }
[18:41:34.333]                 {
[18:41:34.333]                   {
[18:41:34.333]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.333]                     NULL
[18:41:34.333]                   }
[18:41:34.333]                   options(future.plan = NULL)
[18:41:34.333]                   if (is.na(NA_character_)) 
[18:41:34.333]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.333]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.333]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.333]                     .init = FALSE)
[18:41:34.333]                 }
[18:41:34.333]             }
[18:41:34.333]         }
[18:41:34.333]     })
[18:41:34.333]     if (TRUE) {
[18:41:34.333]         base::sink(type = "output", split = FALSE)
[18:41:34.333]         if (TRUE) {
[18:41:34.333]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.333]         }
[18:41:34.333]         else {
[18:41:34.333]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.333]         }
[18:41:34.333]         base::close(...future.stdout)
[18:41:34.333]         ...future.stdout <- NULL
[18:41:34.333]     }
[18:41:34.333]     ...future.result$conditions <- ...future.conditions
[18:41:34.333]     ...future.result$finished <- base::Sys.time()
[18:41:34.333]     ...future.result
[18:41:34.333] }
[18:41:34.340] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:34.340] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.341] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.341] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.342] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.342] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ...
[18:41:34.343] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ... DONE
[18:41:34.343] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.344] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.344] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.345] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.345] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:34.346] MultisessionFuture started
[18:41:34.347] - Launch lazy future ... done
[18:41:34.347] run() for 'MultisessionFuture' ... done
[18:41:34.347] Created future:
[18:41:34.361] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.362] - Validating connection of MultisessionFuture
[18:41:34.362] - received message: FutureResult
[18:41:34.362] - Received FutureResult
[18:41:34.362] - Erased future from FutureRegistry
[18:41:34.362] result() for ClusterFuture ...
[18:41:34.363] - result already collected: FutureResult
[18:41:34.363] result() for ClusterFuture ... done
[18:41:34.363] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.348] MultisessionFuture:
[18:41:34.348] Label: 'future_mapply-2'
[18:41:34.348] Expression:
[18:41:34.348] {
[18:41:34.348]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.348]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.348]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.348]         on.exit(options(oopts), add = TRUE)
[18:41:34.348]     }
[18:41:34.348]     {
[18:41:34.348]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.348]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.348]         do.call(mapply, args = args)
[18:41:34.348]     }
[18:41:34.348] }
[18:41:34.348] Lazy evaluation: FALSE
[18:41:34.348] Asynchronous evaluation: TRUE
[18:41:34.348] Local evaluation: TRUE
[18:41:34.348] Environment: R_GlobalEnv
[18:41:34.348] Capture standard output: TRUE
[18:41:34.348] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.348] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.348] Packages: <none>
[18:41:34.348] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.348] Resolved: TRUE
[18:41:34.348] Value: <not collected>
[18:41:34.348] Conditions captured: <none>
[18:41:34.348] Early signaling: FALSE
[18:41:34.348] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.348] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.363] Chunk #2 of 5 ... DONE
[18:41:34.364] Chunk #3 of 5 ...
[18:41:34.364]  - Finding globals in '...' for chunk #3 ...
[18:41:34.364] getGlobalsAndPackages() ...
[18:41:34.364] Searching for globals...
[18:41:34.365] 
[18:41:34.365] Searching for globals ... DONE
[18:41:34.365] - globals: [0] <none>
[18:41:34.365] getGlobalsAndPackages() ... DONE
[18:41:34.365]    + additional globals found: [n=0] 
[18:41:34.366]    + additional namespaces needed: [n=0] 
[18:41:34.366]  - Finding globals in '...' for chunk #3 ... DONE
[18:41:34.366]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:34.366]  - seeds: <none>
[18:41:34.366]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.366] getGlobalsAndPackages() ...
[18:41:34.367] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.367] Resolving globals: FALSE
[18:41:34.367] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:34.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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.368] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.369] 
[18:41:34.369] getGlobalsAndPackages() ... DONE
[18:41:34.369] run() for 'Future' ...
[18:41:34.369] - state: 'created'
[18:41:34.370] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.386] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.387] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.387]   - Field: 'node'
[18:41:34.387]   - Field: 'label'
[18:41:34.387]   - Field: 'local'
[18:41:34.388]   - Field: 'owner'
[18:41:34.388]   - Field: 'envir'
[18:41:34.388]   - Field: 'workers'
[18:41:34.388]   - Field: 'packages'
[18:41:34.388]   - Field: 'gc'
[18:41:34.388]   - Field: 'conditions'
[18:41:34.389]   - Field: 'persistent'
[18:41:34.389]   - Field: 'expr'
[18:41:34.389]   - Field: 'uuid'
[18:41:34.389]   - Field: 'seed'
[18:41:34.389]   - Field: 'version'
[18:41:34.390]   - Field: 'result'
[18:41:34.390]   - Field: 'asynchronous'
[18:41:34.390]   - Field: 'calls'
[18:41:34.390]   - Field: 'globals'
[18:41:34.390]   - Field: 'stdout'
[18:41:34.391]   - Field: 'earlySignal'
[18:41:34.391]   - Field: 'lazy'
[18:41:34.391]   - Field: 'state'
[18:41:34.391] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.391] - Launch lazy future ...
[18:41:34.392] Packages needed by the future expression (n = 0): <none>
[18:41:34.392] Packages needed by future strategies (n = 0): <none>
[18:41:34.393] {
[18:41:34.393]     {
[18:41:34.393]         {
[18:41:34.393]             ...future.startTime <- base::Sys.time()
[18:41:34.393]             {
[18:41:34.393]                 {
[18:41:34.393]                   {
[18:41:34.393]                     {
[18:41:34.393]                       base::local({
[18:41:34.393]                         has_future <- base::requireNamespace("future", 
[18:41:34.393]                           quietly = TRUE)
[18:41:34.393]                         if (has_future) {
[18:41:34.393]                           ns <- base::getNamespace("future")
[18:41:34.393]                           version <- ns[[".package"]][["version"]]
[18:41:34.393]                           if (is.null(version)) 
[18:41:34.393]                             version <- utils::packageVersion("future")
[18:41:34.393]                         }
[18:41:34.393]                         else {
[18:41:34.393]                           version <- NULL
[18:41:34.393]                         }
[18:41:34.393]                         if (!has_future || version < "1.8.0") {
[18:41:34.393]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.393]                             "", base::R.version$version.string), 
[18:41:34.393]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.393]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.393]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.393]                               "release", "version")], collapse = " "), 
[18:41:34.393]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.393]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.393]                             info)
[18:41:34.393]                           info <- base::paste(info, collapse = "; ")
[18:41:34.393]                           if (!has_future) {
[18:41:34.393]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.393]                               info)
[18:41:34.393]                           }
[18:41:34.393]                           else {
[18:41:34.393]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.393]                               info, version)
[18:41:34.393]                           }
[18:41:34.393]                           base::stop(msg)
[18:41:34.393]                         }
[18:41:34.393]                       })
[18:41:34.393]                     }
[18:41:34.393]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.393]                     base::options(mc.cores = 1L)
[18:41:34.393]                   }
[18:41:34.393]                   ...future.strategy.old <- future::plan("list")
[18:41:34.393]                   options(future.plan = NULL)
[18:41:34.393]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.393]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.393]                 }
[18:41:34.393]                 ...future.workdir <- getwd()
[18:41:34.393]             }
[18:41:34.393]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.393]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.393]         }
[18:41:34.393]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.393]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:34.393]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.393]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.393]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.393]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.393]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.393]             base::names(...future.oldOptions))
[18:41:34.393]     }
[18:41:34.393]     if (FALSE) {
[18:41:34.393]     }
[18:41:34.393]     else {
[18:41:34.393]         if (TRUE) {
[18:41:34.393]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.393]                 open = "w")
[18:41:34.393]         }
[18:41:34.393]         else {
[18:41:34.393]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.393]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.393]         }
[18:41:34.393]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.393]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.393]             base::sink(type = "output", split = FALSE)
[18:41:34.393]             base::close(...future.stdout)
[18:41:34.393]         }, add = TRUE)
[18:41:34.393]     }
[18:41:34.393]     ...future.frame <- base::sys.nframe()
[18:41:34.393]     ...future.conditions <- base::list()
[18:41:34.393]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.393]     if (FALSE) {
[18:41:34.393]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.393]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.393]     }
[18:41:34.393]     ...future.result <- base::tryCatch({
[18:41:34.393]         base::withCallingHandlers({
[18:41:34.393]             ...future.value <- base::withVisible(base::local({
[18:41:34.393]                 ...future.makeSendCondition <- base::local({
[18:41:34.393]                   sendCondition <- NULL
[18:41:34.393]                   function(frame = 1L) {
[18:41:34.393]                     if (is.function(sendCondition)) 
[18:41:34.393]                       return(sendCondition)
[18:41:34.393]                     ns <- getNamespace("parallel")
[18:41:34.393]                     if (exists("sendData", mode = "function", 
[18:41:34.393]                       envir = ns)) {
[18:41:34.393]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.393]                         envir = ns)
[18:41:34.393]                       envir <- sys.frame(frame)
[18:41:34.393]                       master <- NULL
[18:41:34.393]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.393]                         !identical(envir, emptyenv())) {
[18:41:34.393]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.393]                           inherits = FALSE)) {
[18:41:34.393]                           master <- get("master", mode = "list", 
[18:41:34.393]                             envir = envir, inherits = FALSE)
[18:41:34.393]                           if (inherits(master, c("SOCKnode", 
[18:41:34.393]                             "SOCK0node"))) {
[18:41:34.393]                             sendCondition <<- function(cond) {
[18:41:34.393]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.393]                                 success = TRUE)
[18:41:34.393]                               parallel_sendData(master, data)
[18:41:34.393]                             }
[18:41:34.393]                             return(sendCondition)
[18:41:34.393]                           }
[18:41:34.393]                         }
[18:41:34.393]                         frame <- frame + 1L
[18:41:34.393]                         envir <- sys.frame(frame)
[18:41:34.393]                       }
[18:41:34.393]                     }
[18:41:34.393]                     sendCondition <<- function(cond) NULL
[18:41:34.393]                   }
[18:41:34.393]                 })
[18:41:34.393]                 withCallingHandlers({
[18:41:34.393]                   {
[18:41:34.393]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.393]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.393]                       ...future.globals.maxSize)) {
[18:41:34.393]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.393]                       on.exit(options(oopts), add = TRUE)
[18:41:34.393]                     }
[18:41:34.393]                     {
[18:41:34.393]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.393]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.393]                         USE.NAMES = FALSE)
[18:41:34.393]                       do.call(mapply, args = args)
[18:41:34.393]                     }
[18:41:34.393]                   }
[18:41:34.393]                 }, immediateCondition = function(cond) {
[18:41:34.393]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.393]                   sendCondition(cond)
[18:41:34.393]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.393]                   {
[18:41:34.393]                     inherits <- base::inherits
[18:41:34.393]                     invokeRestart <- base::invokeRestart
[18:41:34.393]                     is.null <- base::is.null
[18:41:34.393]                     muffled <- FALSE
[18:41:34.393]                     if (inherits(cond, "message")) {
[18:41:34.393]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.393]                       if (muffled) 
[18:41:34.393]                         invokeRestart("muffleMessage")
[18:41:34.393]                     }
[18:41:34.393]                     else if (inherits(cond, "warning")) {
[18:41:34.393]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.393]                       if (muffled) 
[18:41:34.393]                         invokeRestart("muffleWarning")
[18:41:34.393]                     }
[18:41:34.393]                     else if (inherits(cond, "condition")) {
[18:41:34.393]                       if (!is.null(pattern)) {
[18:41:34.393]                         computeRestarts <- base::computeRestarts
[18:41:34.393]                         grepl <- base::grepl
[18:41:34.393]                         restarts <- computeRestarts(cond)
[18:41:34.393]                         for (restart in restarts) {
[18:41:34.393]                           name <- restart$name
[18:41:34.393]                           if (is.null(name)) 
[18:41:34.393]                             next
[18:41:34.393]                           if (!grepl(pattern, name)) 
[18:41:34.393]                             next
[18:41:34.393]                           invokeRestart(restart)
[18:41:34.393]                           muffled <- TRUE
[18:41:34.393]                           break
[18:41:34.393]                         }
[18:41:34.393]                       }
[18:41:34.393]                     }
[18:41:34.393]                     invisible(muffled)
[18:41:34.393]                   }
[18:41:34.393]                   muffleCondition(cond)
[18:41:34.393]                 })
[18:41:34.393]             }))
[18:41:34.393]             future::FutureResult(value = ...future.value$value, 
[18:41:34.393]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.393]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.393]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.393]                     ...future.globalenv.names))
[18:41:34.393]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.393]         }, condition = base::local({
[18:41:34.393]             c <- base::c
[18:41:34.393]             inherits <- base::inherits
[18:41:34.393]             invokeRestart <- base::invokeRestart
[18:41:34.393]             length <- base::length
[18:41:34.393]             list <- base::list
[18:41:34.393]             seq.int <- base::seq.int
[18:41:34.393]             signalCondition <- base::signalCondition
[18:41:34.393]             sys.calls <- base::sys.calls
[18:41:34.393]             `[[` <- base::`[[`
[18:41:34.393]             `+` <- base::`+`
[18:41:34.393]             `<<-` <- base::`<<-`
[18:41:34.393]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.393]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.393]                   3L)]
[18:41:34.393]             }
[18:41:34.393]             function(cond) {
[18:41:34.393]                 is_error <- inherits(cond, "error")
[18:41:34.393]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.393]                   NULL)
[18:41:34.393]                 if (is_error) {
[18:41:34.393]                   sessionInformation <- function() {
[18:41:34.393]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.393]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.393]                       search = base::search(), system = base::Sys.info())
[18:41:34.393]                   }
[18:41:34.393]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.393]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.393]                     cond$call), session = sessionInformation(), 
[18:41:34.393]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.393]                   signalCondition(cond)
[18:41:34.393]                 }
[18:41:34.393]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.393]                 "immediateCondition"))) {
[18:41:34.393]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.393]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.393]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.393]                   if (TRUE && !signal) {
[18:41:34.393]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.393]                     {
[18:41:34.393]                       inherits <- base::inherits
[18:41:34.393]                       invokeRestart <- base::invokeRestart
[18:41:34.393]                       is.null <- base::is.null
[18:41:34.393]                       muffled <- FALSE
[18:41:34.393]                       if (inherits(cond, "message")) {
[18:41:34.393]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.393]                         if (muffled) 
[18:41:34.393]                           invokeRestart("muffleMessage")
[18:41:34.393]                       }
[18:41:34.393]                       else if (inherits(cond, "warning")) {
[18:41:34.393]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.393]                         if (muffled) 
[18:41:34.393]                           invokeRestart("muffleWarning")
[18:41:34.393]                       }
[18:41:34.393]                       else if (inherits(cond, "condition")) {
[18:41:34.393]                         if (!is.null(pattern)) {
[18:41:34.393]                           computeRestarts <- base::computeRestarts
[18:41:34.393]                           grepl <- base::grepl
[18:41:34.393]                           restarts <- computeRestarts(cond)
[18:41:34.393]                           for (restart in restarts) {
[18:41:34.393]                             name <- restart$name
[18:41:34.393]                             if (is.null(name)) 
[18:41:34.393]                               next
[18:41:34.393]                             if (!grepl(pattern, name)) 
[18:41:34.393]                               next
[18:41:34.393]                             invokeRestart(restart)
[18:41:34.393]                             muffled <- TRUE
[18:41:34.393]                             break
[18:41:34.393]                           }
[18:41:34.393]                         }
[18:41:34.393]                       }
[18:41:34.393]                       invisible(muffled)
[18:41:34.393]                     }
[18:41:34.393]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.393]                   }
[18:41:34.393]                 }
[18:41:34.393]                 else {
[18:41:34.393]                   if (TRUE) {
[18:41:34.393]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.393]                     {
[18:41:34.393]                       inherits <- base::inherits
[18:41:34.393]                       invokeRestart <- base::invokeRestart
[18:41:34.393]                       is.null <- base::is.null
[18:41:34.393]                       muffled <- FALSE
[18:41:34.393]                       if (inherits(cond, "message")) {
[18:41:34.393]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.393]                         if (muffled) 
[18:41:34.393]                           invokeRestart("muffleMessage")
[18:41:34.393]                       }
[18:41:34.393]                       else if (inherits(cond, "warning")) {
[18:41:34.393]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.393]                         if (muffled) 
[18:41:34.393]                           invokeRestart("muffleWarning")
[18:41:34.393]                       }
[18:41:34.393]                       else if (inherits(cond, "condition")) {
[18:41:34.393]                         if (!is.null(pattern)) {
[18:41:34.393]                           computeRestarts <- base::computeRestarts
[18:41:34.393]                           grepl <- base::grepl
[18:41:34.393]                           restarts <- computeRestarts(cond)
[18:41:34.393]                           for (restart in restarts) {
[18:41:34.393]                             name <- restart$name
[18:41:34.393]                             if (is.null(name)) 
[18:41:34.393]                               next
[18:41:34.393]                             if (!grepl(pattern, name)) 
[18:41:34.393]                               next
[18:41:34.393]                             invokeRestart(restart)
[18:41:34.393]                             muffled <- TRUE
[18:41:34.393]                             break
[18:41:34.393]                           }
[18:41:34.393]                         }
[18:41:34.393]                       }
[18:41:34.393]                       invisible(muffled)
[18:41:34.393]                     }
[18:41:34.393]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.393]                   }
[18:41:34.393]                 }
[18:41:34.393]             }
[18:41:34.393]         }))
[18:41:34.393]     }, error = function(ex) {
[18:41:34.393]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.393]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.393]                 ...future.rng), started = ...future.startTime, 
[18:41:34.393]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.393]             version = "1.8"), class = "FutureResult")
[18:41:34.393]     }, finally = {
[18:41:34.393]         if (!identical(...future.workdir, getwd())) 
[18:41:34.393]             setwd(...future.workdir)
[18:41:34.393]         {
[18:41:34.393]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.393]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.393]             }
[18:41:34.393]             base::options(...future.oldOptions)
[18:41:34.393]             if (.Platform$OS.type == "windows") {
[18:41:34.393]                 old_names <- names(...future.oldEnvVars)
[18:41:34.393]                 envs <- base::Sys.getenv()
[18:41:34.393]                 names <- names(envs)
[18:41:34.393]                 common <- intersect(names, old_names)
[18:41:34.393]                 added <- setdiff(names, old_names)
[18:41:34.393]                 removed <- setdiff(old_names, names)
[18:41:34.393]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.393]                   envs[common]]
[18:41:34.393]                 NAMES <- toupper(changed)
[18:41:34.393]                 args <- list()
[18:41:34.393]                 for (kk in seq_along(NAMES)) {
[18:41:34.393]                   name <- changed[[kk]]
[18:41:34.393]                   NAME <- NAMES[[kk]]
[18:41:34.393]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.393]                     next
[18:41:34.393]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.393]                 }
[18:41:34.393]                 NAMES <- toupper(added)
[18:41:34.393]                 for (kk in seq_along(NAMES)) {
[18:41:34.393]                   name <- added[[kk]]
[18:41:34.393]                   NAME <- NAMES[[kk]]
[18:41:34.393]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.393]                     next
[18:41:34.393]                   args[[name]] <- ""
[18:41:34.393]                 }
[18:41:34.393]                 NAMES <- toupper(removed)
[18:41:34.393]                 for (kk in seq_along(NAMES)) {
[18:41:34.393]                   name <- removed[[kk]]
[18:41:34.393]                   NAME <- NAMES[[kk]]
[18:41:34.393]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.393]                     next
[18:41:34.393]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.393]                 }
[18:41:34.393]                 if (length(args) > 0) 
[18:41:34.393]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.393]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.393]             }
[18:41:34.393]             else {
[18:41:34.393]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.393]             }
[18:41:34.393]             {
[18:41:34.393]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.393]                   0L) {
[18:41:34.393]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.393]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.393]                   base::options(opts)
[18:41:34.393]                 }
[18:41:34.393]                 {
[18:41:34.393]                   {
[18:41:34.393]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.393]                     NULL
[18:41:34.393]                   }
[18:41:34.393]                   options(future.plan = NULL)
[18:41:34.393]                   if (is.na(NA_character_)) 
[18:41:34.393]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.393]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.393]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.393]                     .init = FALSE)
[18:41:34.393]                 }
[18:41:34.393]             }
[18:41:34.393]         }
[18:41:34.393]     })
[18:41:34.393]     if (TRUE) {
[18:41:34.393]         base::sink(type = "output", split = FALSE)
[18:41:34.393]         if (TRUE) {
[18:41:34.393]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.393]         }
[18:41:34.393]         else {
[18:41:34.393]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.393]         }
[18:41:34.393]         base::close(...future.stdout)
[18:41:34.393]         ...future.stdout <- NULL
[18:41:34.393]     }
[18:41:34.393]     ...future.result$conditions <- ...future.conditions
[18:41:34.393]     ...future.result$finished <- base::Sys.time()
[18:41:34.393]     ...future.result
[18:41:34.393] }
[18:41:34.399] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:34.399] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.399] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.400] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.400] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.400] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ...
[18:41:34.401] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ... DONE
[18:41:34.401] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.401] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.402] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.402] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.402] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:34.403] MultisessionFuture started
[18:41:34.404] - Launch lazy future ... done
[18:41:34.404] run() for 'MultisessionFuture' ... done
[18:41:34.404] Created future:
[18:41:34.421] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.421] - Validating connection of MultisessionFuture
[18:41:34.421] - received message: FutureResult
[18:41:34.422] - Received FutureResult
[18:41:34.422] - Erased future from FutureRegistry
[18:41:34.422] result() for ClusterFuture ...
[18:41:34.422] - result already collected: FutureResult
[18:41:34.422] result() for ClusterFuture ... done
[18:41:34.423] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.405] MultisessionFuture:
[18:41:34.405] Label: 'future_mapply-3'
[18:41:34.405] Expression:
[18:41:34.405] {
[18:41:34.405]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.405]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.405]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.405]         on.exit(options(oopts), add = TRUE)
[18:41:34.405]     }
[18:41:34.405]     {
[18:41:34.405]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.405]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.405]         do.call(mapply, args = args)
[18:41:34.405]     }
[18:41:34.405] }
[18:41:34.405] Lazy evaluation: FALSE
[18:41:34.405] Asynchronous evaluation: TRUE
[18:41:34.405] Local evaluation: TRUE
[18:41:34.405] Environment: R_GlobalEnv
[18:41:34.405] Capture standard output: TRUE
[18:41:34.405] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.405] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.405] Packages: <none>
[18:41:34.405] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.405] Resolved: TRUE
[18:41:34.405] Value: <not collected>
[18:41:34.405] Conditions captured: <none>
[18:41:34.405] Early signaling: FALSE
[18:41:34.405] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.405] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.423] Chunk #3 of 5 ... DONE
[18:41:34.423] Chunk #4 of 5 ...
[18:41:34.423]  - Finding globals in '...' for chunk #4 ...
[18:41:34.424] getGlobalsAndPackages() ...
[18:41:34.424] Searching for globals...
[18:41:34.424] 
[18:41:34.424] Searching for globals ... DONE
[18:41:34.425] - globals: [0] <none>
[18:41:34.425] getGlobalsAndPackages() ... DONE
[18:41:34.425]    + additional globals found: [n=0] 
[18:41:34.425]    + additional namespaces needed: [n=0] 
[18:41:34.425]  - Finding globals in '...' for chunk #4 ... DONE
[18:41:34.425]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:34.426]  - seeds: <none>
[18:41:34.426]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.426] getGlobalsAndPackages() ...
[18:41:34.426] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.426] Resolving globals: FALSE
[18:41:34.427] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:34.428] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.432] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.433] 
[18:41:34.433] getGlobalsAndPackages() ... DONE
[18:41:34.433] run() for 'Future' ...
[18:41:34.433] - state: 'created'
[18:41:34.434] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.454] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.454] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.455]   - Field: 'node'
[18:41:34.455]   - Field: 'label'
[18:41:34.455]   - Field: 'local'
[18:41:34.456]   - Field: 'owner'
[18:41:34.456]   - Field: 'envir'
[18:41:34.456]   - Field: 'workers'
[18:41:34.457]   - Field: 'packages'
[18:41:34.457]   - Field: 'gc'
[18:41:34.457]   - Field: 'conditions'
[18:41:34.457]   - Field: 'persistent'
[18:41:34.458]   - Field: 'expr'
[18:41:34.458]   - Field: 'uuid'
[18:41:34.458]   - Field: 'seed'
[18:41:34.459]   - Field: 'version'
[18:41:34.459]   - Field: 'result'
[18:41:34.459]   - Field: 'asynchronous'
[18:41:34.459]   - Field: 'calls'
[18:41:34.460]   - Field: 'globals'
[18:41:34.460]   - Field: 'stdout'
[18:41:34.460]   - Field: 'earlySignal'
[18:41:34.461]   - Field: 'lazy'
[18:41:34.461]   - Field: 'state'
[18:41:34.461] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.462] - Launch lazy future ...
[18:41:34.462] Packages needed by the future expression (n = 0): <none>
[18:41:34.462] Packages needed by future strategies (n = 0): <none>
[18:41:34.463] {
[18:41:34.463]     {
[18:41:34.463]         {
[18:41:34.463]             ...future.startTime <- base::Sys.time()
[18:41:34.463]             {
[18:41:34.463]                 {
[18:41:34.463]                   {
[18:41:34.463]                     {
[18:41:34.463]                       base::local({
[18:41:34.463]                         has_future <- base::requireNamespace("future", 
[18:41:34.463]                           quietly = TRUE)
[18:41:34.463]                         if (has_future) {
[18:41:34.463]                           ns <- base::getNamespace("future")
[18:41:34.463]                           version <- ns[[".package"]][["version"]]
[18:41:34.463]                           if (is.null(version)) 
[18:41:34.463]                             version <- utils::packageVersion("future")
[18:41:34.463]                         }
[18:41:34.463]                         else {
[18:41:34.463]                           version <- NULL
[18:41:34.463]                         }
[18:41:34.463]                         if (!has_future || version < "1.8.0") {
[18:41:34.463]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.463]                             "", base::R.version$version.string), 
[18:41:34.463]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.463]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.463]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.463]                               "release", "version")], collapse = " "), 
[18:41:34.463]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.463]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.463]                             info)
[18:41:34.463]                           info <- base::paste(info, collapse = "; ")
[18:41:34.463]                           if (!has_future) {
[18:41:34.463]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.463]                               info)
[18:41:34.463]                           }
[18:41:34.463]                           else {
[18:41:34.463]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.463]                               info, version)
[18:41:34.463]                           }
[18:41:34.463]                           base::stop(msg)
[18:41:34.463]                         }
[18:41:34.463]                       })
[18:41:34.463]                     }
[18:41:34.463]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.463]                     base::options(mc.cores = 1L)
[18:41:34.463]                   }
[18:41:34.463]                   ...future.strategy.old <- future::plan("list")
[18:41:34.463]                   options(future.plan = NULL)
[18:41:34.463]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.463]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.463]                 }
[18:41:34.463]                 ...future.workdir <- getwd()
[18:41:34.463]             }
[18:41:34.463]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.463]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.463]         }
[18:41:34.463]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.463]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:34.463]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.463]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.463]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.463]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.463]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.463]             base::names(...future.oldOptions))
[18:41:34.463]     }
[18:41:34.463]     if (FALSE) {
[18:41:34.463]     }
[18:41:34.463]     else {
[18:41:34.463]         if (TRUE) {
[18:41:34.463]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.463]                 open = "w")
[18:41:34.463]         }
[18:41:34.463]         else {
[18:41:34.463]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.463]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.463]         }
[18:41:34.463]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.463]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.463]             base::sink(type = "output", split = FALSE)
[18:41:34.463]             base::close(...future.stdout)
[18:41:34.463]         }, add = TRUE)
[18:41:34.463]     }
[18:41:34.463]     ...future.frame <- base::sys.nframe()
[18:41:34.463]     ...future.conditions <- base::list()
[18:41:34.463]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.463]     if (FALSE) {
[18:41:34.463]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.463]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.463]     }
[18:41:34.463]     ...future.result <- base::tryCatch({
[18:41:34.463]         base::withCallingHandlers({
[18:41:34.463]             ...future.value <- base::withVisible(base::local({
[18:41:34.463]                 ...future.makeSendCondition <- base::local({
[18:41:34.463]                   sendCondition <- NULL
[18:41:34.463]                   function(frame = 1L) {
[18:41:34.463]                     if (is.function(sendCondition)) 
[18:41:34.463]                       return(sendCondition)
[18:41:34.463]                     ns <- getNamespace("parallel")
[18:41:34.463]                     if (exists("sendData", mode = "function", 
[18:41:34.463]                       envir = ns)) {
[18:41:34.463]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.463]                         envir = ns)
[18:41:34.463]                       envir <- sys.frame(frame)
[18:41:34.463]                       master <- NULL
[18:41:34.463]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.463]                         !identical(envir, emptyenv())) {
[18:41:34.463]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.463]                           inherits = FALSE)) {
[18:41:34.463]                           master <- get("master", mode = "list", 
[18:41:34.463]                             envir = envir, inherits = FALSE)
[18:41:34.463]                           if (inherits(master, c("SOCKnode", 
[18:41:34.463]                             "SOCK0node"))) {
[18:41:34.463]                             sendCondition <<- function(cond) {
[18:41:34.463]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.463]                                 success = TRUE)
[18:41:34.463]                               parallel_sendData(master, data)
[18:41:34.463]                             }
[18:41:34.463]                             return(sendCondition)
[18:41:34.463]                           }
[18:41:34.463]                         }
[18:41:34.463]                         frame <- frame + 1L
[18:41:34.463]                         envir <- sys.frame(frame)
[18:41:34.463]                       }
[18:41:34.463]                     }
[18:41:34.463]                     sendCondition <<- function(cond) NULL
[18:41:34.463]                   }
[18:41:34.463]                 })
[18:41:34.463]                 withCallingHandlers({
[18:41:34.463]                   {
[18:41:34.463]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.463]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.463]                       ...future.globals.maxSize)) {
[18:41:34.463]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.463]                       on.exit(options(oopts), add = TRUE)
[18:41:34.463]                     }
[18:41:34.463]                     {
[18:41:34.463]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.463]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.463]                         USE.NAMES = FALSE)
[18:41:34.463]                       do.call(mapply, args = args)
[18:41:34.463]                     }
[18:41:34.463]                   }
[18:41:34.463]                 }, immediateCondition = function(cond) {
[18:41:34.463]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.463]                   sendCondition(cond)
[18:41:34.463]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.463]                   {
[18:41:34.463]                     inherits <- base::inherits
[18:41:34.463]                     invokeRestart <- base::invokeRestart
[18:41:34.463]                     is.null <- base::is.null
[18:41:34.463]                     muffled <- FALSE
[18:41:34.463]                     if (inherits(cond, "message")) {
[18:41:34.463]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.463]                       if (muffled) 
[18:41:34.463]                         invokeRestart("muffleMessage")
[18:41:34.463]                     }
[18:41:34.463]                     else if (inherits(cond, "warning")) {
[18:41:34.463]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.463]                       if (muffled) 
[18:41:34.463]                         invokeRestart("muffleWarning")
[18:41:34.463]                     }
[18:41:34.463]                     else if (inherits(cond, "condition")) {
[18:41:34.463]                       if (!is.null(pattern)) {
[18:41:34.463]                         computeRestarts <- base::computeRestarts
[18:41:34.463]                         grepl <- base::grepl
[18:41:34.463]                         restarts <- computeRestarts(cond)
[18:41:34.463]                         for (restart in restarts) {
[18:41:34.463]                           name <- restart$name
[18:41:34.463]                           if (is.null(name)) 
[18:41:34.463]                             next
[18:41:34.463]                           if (!grepl(pattern, name)) 
[18:41:34.463]                             next
[18:41:34.463]                           invokeRestart(restart)
[18:41:34.463]                           muffled <- TRUE
[18:41:34.463]                           break
[18:41:34.463]                         }
[18:41:34.463]                       }
[18:41:34.463]                     }
[18:41:34.463]                     invisible(muffled)
[18:41:34.463]                   }
[18:41:34.463]                   muffleCondition(cond)
[18:41:34.463]                 })
[18:41:34.463]             }))
[18:41:34.463]             future::FutureResult(value = ...future.value$value, 
[18:41:34.463]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.463]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.463]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.463]                     ...future.globalenv.names))
[18:41:34.463]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.463]         }, condition = base::local({
[18:41:34.463]             c <- base::c
[18:41:34.463]             inherits <- base::inherits
[18:41:34.463]             invokeRestart <- base::invokeRestart
[18:41:34.463]             length <- base::length
[18:41:34.463]             list <- base::list
[18:41:34.463]             seq.int <- base::seq.int
[18:41:34.463]             signalCondition <- base::signalCondition
[18:41:34.463]             sys.calls <- base::sys.calls
[18:41:34.463]             `[[` <- base::`[[`
[18:41:34.463]             `+` <- base::`+`
[18:41:34.463]             `<<-` <- base::`<<-`
[18:41:34.463]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.463]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.463]                   3L)]
[18:41:34.463]             }
[18:41:34.463]             function(cond) {
[18:41:34.463]                 is_error <- inherits(cond, "error")
[18:41:34.463]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.463]                   NULL)
[18:41:34.463]                 if (is_error) {
[18:41:34.463]                   sessionInformation <- function() {
[18:41:34.463]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.463]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.463]                       search = base::search(), system = base::Sys.info())
[18:41:34.463]                   }
[18:41:34.463]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.463]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.463]                     cond$call), session = sessionInformation(), 
[18:41:34.463]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.463]                   signalCondition(cond)
[18:41:34.463]                 }
[18:41:34.463]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.463]                 "immediateCondition"))) {
[18:41:34.463]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.463]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.463]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.463]                   if (TRUE && !signal) {
[18:41:34.463]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.463]                     {
[18:41:34.463]                       inherits <- base::inherits
[18:41:34.463]                       invokeRestart <- base::invokeRestart
[18:41:34.463]                       is.null <- base::is.null
[18:41:34.463]                       muffled <- FALSE
[18:41:34.463]                       if (inherits(cond, "message")) {
[18:41:34.463]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.463]                         if (muffled) 
[18:41:34.463]                           invokeRestart("muffleMessage")
[18:41:34.463]                       }
[18:41:34.463]                       else if (inherits(cond, "warning")) {
[18:41:34.463]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.463]                         if (muffled) 
[18:41:34.463]                           invokeRestart("muffleWarning")
[18:41:34.463]                       }
[18:41:34.463]                       else if (inherits(cond, "condition")) {
[18:41:34.463]                         if (!is.null(pattern)) {
[18:41:34.463]                           computeRestarts <- base::computeRestarts
[18:41:34.463]                           grepl <- base::grepl
[18:41:34.463]                           restarts <- computeRestarts(cond)
[18:41:34.463]                           for (restart in restarts) {
[18:41:34.463]                             name <- restart$name
[18:41:34.463]                             if (is.null(name)) 
[18:41:34.463]                               next
[18:41:34.463]                             if (!grepl(pattern, name)) 
[18:41:34.463]                               next
[18:41:34.463]                             invokeRestart(restart)
[18:41:34.463]                             muffled <- TRUE
[18:41:34.463]                             break
[18:41:34.463]                           }
[18:41:34.463]                         }
[18:41:34.463]                       }
[18:41:34.463]                       invisible(muffled)
[18:41:34.463]                     }
[18:41:34.463]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.463]                   }
[18:41:34.463]                 }
[18:41:34.463]                 else {
[18:41:34.463]                   if (TRUE) {
[18:41:34.463]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.463]                     {
[18:41:34.463]                       inherits <- base::inherits
[18:41:34.463]                       invokeRestart <- base::invokeRestart
[18:41:34.463]                       is.null <- base::is.null
[18:41:34.463]                       muffled <- FALSE
[18:41:34.463]                       if (inherits(cond, "message")) {
[18:41:34.463]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.463]                         if (muffled) 
[18:41:34.463]                           invokeRestart("muffleMessage")
[18:41:34.463]                       }
[18:41:34.463]                       else if (inherits(cond, "warning")) {
[18:41:34.463]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.463]                         if (muffled) 
[18:41:34.463]                           invokeRestart("muffleWarning")
[18:41:34.463]                       }
[18:41:34.463]                       else if (inherits(cond, "condition")) {
[18:41:34.463]                         if (!is.null(pattern)) {
[18:41:34.463]                           computeRestarts <- base::computeRestarts
[18:41:34.463]                           grepl <- base::grepl
[18:41:34.463]                           restarts <- computeRestarts(cond)
[18:41:34.463]                           for (restart in restarts) {
[18:41:34.463]                             name <- restart$name
[18:41:34.463]                             if (is.null(name)) 
[18:41:34.463]                               next
[18:41:34.463]                             if (!grepl(pattern, name)) 
[18:41:34.463]                               next
[18:41:34.463]                             invokeRestart(restart)
[18:41:34.463]                             muffled <- TRUE
[18:41:34.463]                             break
[18:41:34.463]                           }
[18:41:34.463]                         }
[18:41:34.463]                       }
[18:41:34.463]                       invisible(muffled)
[18:41:34.463]                     }
[18:41:34.463]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.463]                   }
[18:41:34.463]                 }
[18:41:34.463]             }
[18:41:34.463]         }))
[18:41:34.463]     }, error = function(ex) {
[18:41:34.463]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.463]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.463]                 ...future.rng), started = ...future.startTime, 
[18:41:34.463]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.463]             version = "1.8"), class = "FutureResult")
[18:41:34.463]     }, finally = {
[18:41:34.463]         if (!identical(...future.workdir, getwd())) 
[18:41:34.463]             setwd(...future.workdir)
[18:41:34.463]         {
[18:41:34.463]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.463]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.463]             }
[18:41:34.463]             base::options(...future.oldOptions)
[18:41:34.463]             if (.Platform$OS.type == "windows") {
[18:41:34.463]                 old_names <- names(...future.oldEnvVars)
[18:41:34.463]                 envs <- base::Sys.getenv()
[18:41:34.463]                 names <- names(envs)
[18:41:34.463]                 common <- intersect(names, old_names)
[18:41:34.463]                 added <- setdiff(names, old_names)
[18:41:34.463]                 removed <- setdiff(old_names, names)
[18:41:34.463]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.463]                   envs[common]]
[18:41:34.463]                 NAMES <- toupper(changed)
[18:41:34.463]                 args <- list()
[18:41:34.463]                 for (kk in seq_along(NAMES)) {
[18:41:34.463]                   name <- changed[[kk]]
[18:41:34.463]                   NAME <- NAMES[[kk]]
[18:41:34.463]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.463]                     next
[18:41:34.463]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.463]                 }
[18:41:34.463]                 NAMES <- toupper(added)
[18:41:34.463]                 for (kk in seq_along(NAMES)) {
[18:41:34.463]                   name <- added[[kk]]
[18:41:34.463]                   NAME <- NAMES[[kk]]
[18:41:34.463]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.463]                     next
[18:41:34.463]                   args[[name]] <- ""
[18:41:34.463]                 }
[18:41:34.463]                 NAMES <- toupper(removed)
[18:41:34.463]                 for (kk in seq_along(NAMES)) {
[18:41:34.463]                   name <- removed[[kk]]
[18:41:34.463]                   NAME <- NAMES[[kk]]
[18:41:34.463]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.463]                     next
[18:41:34.463]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.463]                 }
[18:41:34.463]                 if (length(args) > 0) 
[18:41:34.463]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.463]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.463]             }
[18:41:34.463]             else {
[18:41:34.463]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.463]             }
[18:41:34.463]             {
[18:41:34.463]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.463]                   0L) {
[18:41:34.463]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.463]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.463]                   base::options(opts)
[18:41:34.463]                 }
[18:41:34.463]                 {
[18:41:34.463]                   {
[18:41:34.463]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.463]                     NULL
[18:41:34.463]                   }
[18:41:34.463]                   options(future.plan = NULL)
[18:41:34.463]                   if (is.na(NA_character_)) 
[18:41:34.463]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.463]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.463]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.463]                     .init = FALSE)
[18:41:34.463]                 }
[18:41:34.463]             }
[18:41:34.463]         }
[18:41:34.463]     })
[18:41:34.463]     if (TRUE) {
[18:41:34.463]         base::sink(type = "output", split = FALSE)
[18:41:34.463]         if (TRUE) {
[18:41:34.463]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.463]         }
[18:41:34.463]         else {
[18:41:34.463]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.463]         }
[18:41:34.463]         base::close(...future.stdout)
[18:41:34.463]         ...future.stdout <- NULL
[18:41:34.463]     }
[18:41:34.463]     ...future.result$conditions <- ...future.conditions
[18:41:34.463]     ...future.result$finished <- base::Sys.time()
[18:41:34.463]     ...future.result
[18:41:34.463] }
[18:41:34.473] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:34.473] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.474] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.474] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.475] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.475] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ...
[18:41:34.476] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ... DONE
[18:41:34.476] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.477] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.477] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.478] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.478] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:34.480] MultisessionFuture started
[18:41:34.480] - Launch lazy future ... done
[18:41:34.480] run() for 'MultisessionFuture' ... done
[18:41:34.481] Created future:
[18:41:34.500] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.500] - Validating connection of MultisessionFuture
[18:41:34.501] - received message: FutureResult
[18:41:34.501] - Received FutureResult
[18:41:34.501] - Erased future from FutureRegistry
[18:41:34.502] result() for ClusterFuture ...
[18:41:34.502] - result already collected: FutureResult
[18:41:34.502] result() for ClusterFuture ... done
[18:41:34.502] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.481] MultisessionFuture:
[18:41:34.481] Label: 'future_mapply-4'
[18:41:34.481] Expression:
[18:41:34.481] {
[18:41:34.481]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.481]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.481]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.481]         on.exit(options(oopts), add = TRUE)
[18:41:34.481]     }
[18:41:34.481]     {
[18:41:34.481]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.481]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.481]         do.call(mapply, args = args)
[18:41:34.481]     }
[18:41:34.481] }
[18:41:34.481] Lazy evaluation: FALSE
[18:41:34.481] Asynchronous evaluation: TRUE
[18:41:34.481] Local evaluation: TRUE
[18:41:34.481] Environment: R_GlobalEnv
[18:41:34.481] Capture standard output: TRUE
[18:41:34.481] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.481] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.481] Packages: <none>
[18:41:34.481] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.481] Resolved: TRUE
[18:41:34.481] Value: <not collected>
[18:41:34.481] Conditions captured: <none>
[18:41:34.481] Early signaling: FALSE
[18:41:34.481] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.481] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.503] Chunk #4 of 5 ... DONE
[18:41:34.504] Chunk #5 of 5 ...
[18:41:34.504]  - Finding globals in '...' for chunk #5 ...
[18:41:34.505] getGlobalsAndPackages() ...
[18:41:34.505] Searching for globals...
[18:41:34.506] 
[18:41:34.506] Searching for globals ... DONE
[18:41:34.506] - globals: [0] <none>
[18:41:34.507] getGlobalsAndPackages() ... DONE
[18:41:34.507]    + additional globals found: [n=0] 
[18:41:34.507]    + additional namespaces needed: [n=0] 
[18:41:34.508]  - Finding globals in '...' for chunk #5 ... DONE
[18:41:34.508]  - Adjusted option 'future.globals.maxSize': 524288000 -> 5 * 524288000 = 2621440000 (bytes)
[18:41:34.508]  - seeds: <none>
[18:41:34.508]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.509] getGlobalsAndPackages() ...
[18:41:34.509] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.510] Resolving globals: FALSE
[18:41:34.511] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:34.512] 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 847 bytes.. This exceeds the maximum allowed size of 2.44 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.512] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.513] 
[18:41:34.513] getGlobalsAndPackages() ... DONE
[18:41:34.514] run() for 'Future' ...
[18:41:34.514] - state: 'created'
[18:41:34.514] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.541] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.542] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.542]   - Field: 'node'
[18:41:34.542]   - Field: 'label'
[18:41:34.543]   - Field: 'local'
[18:41:34.543]   - Field: 'owner'
[18:41:34.543]   - Field: 'envir'
[18:41:34.544]   - Field: 'workers'
[18:41:34.544]   - Field: 'packages'
[18:41:34.544]   - Field: 'gc'
[18:41:34.545]   - Field: 'conditions'
[18:41:34.545]   - Field: 'persistent'
[18:41:34.545]   - Field: 'expr'
[18:41:34.546]   - Field: 'uuid'
[18:41:34.546]   - Field: 'seed'
[18:41:34.546]   - Field: 'version'
[18:41:34.547]   - Field: 'result'
[18:41:34.547]   - Field: 'asynchronous'
[18:41:34.548]   - Field: 'calls'
[18:41:34.548]   - Field: 'globals'
[18:41:34.548]   - Field: 'stdout'
[18:41:34.549]   - Field: 'earlySignal'
[18:41:34.549]   - Field: 'lazy'
[18:41:34.549]   - Field: 'state'
[18:41:34.550] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.550] - Launch lazy future ...
[18:41:34.551] Packages needed by the future expression (n = 0): <none>
[18:41:34.551] Packages needed by future strategies (n = 0): <none>
[18:41:34.552] {
[18:41:34.552]     {
[18:41:34.552]         {
[18:41:34.552]             ...future.startTime <- base::Sys.time()
[18:41:34.552]             {
[18:41:34.552]                 {
[18:41:34.552]                   {
[18:41:34.552]                     {
[18:41:34.552]                       base::local({
[18:41:34.552]                         has_future <- base::requireNamespace("future", 
[18:41:34.552]                           quietly = TRUE)
[18:41:34.552]                         if (has_future) {
[18:41:34.552]                           ns <- base::getNamespace("future")
[18:41:34.552]                           version <- ns[[".package"]][["version"]]
[18:41:34.552]                           if (is.null(version)) 
[18:41:34.552]                             version <- utils::packageVersion("future")
[18:41:34.552]                         }
[18:41:34.552]                         else {
[18:41:34.552]                           version <- NULL
[18:41:34.552]                         }
[18:41:34.552]                         if (!has_future || version < "1.8.0") {
[18:41:34.552]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.552]                             "", base::R.version$version.string), 
[18:41:34.552]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.552]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.552]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.552]                               "release", "version")], collapse = " "), 
[18:41:34.552]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.552]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.552]                             info)
[18:41:34.552]                           info <- base::paste(info, collapse = "; ")
[18:41:34.552]                           if (!has_future) {
[18:41:34.552]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.552]                               info)
[18:41:34.552]                           }
[18:41:34.552]                           else {
[18:41:34.552]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.552]                               info, version)
[18:41:34.552]                           }
[18:41:34.552]                           base::stop(msg)
[18:41:34.552]                         }
[18:41:34.552]                       })
[18:41:34.552]                     }
[18:41:34.552]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.552]                     base::options(mc.cores = 1L)
[18:41:34.552]                   }
[18:41:34.552]                   ...future.strategy.old <- future::plan("list")
[18:41:34.552]                   options(future.plan = NULL)
[18:41:34.552]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.552]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.552]                 }
[18:41:34.552]                 ...future.workdir <- getwd()
[18:41:34.552]             }
[18:41:34.552]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.552]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.552]         }
[18:41:34.552]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.552]             future.globals.maxSize = 2621440000, future.globals.method = NULL, 
[18:41:34.552]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.552]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.552]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.552]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.552]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.552]             base::names(...future.oldOptions))
[18:41:34.552]     }
[18:41:34.552]     if (FALSE) {
[18:41:34.552]     }
[18:41:34.552]     else {
[18:41:34.552]         if (TRUE) {
[18:41:34.552]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.552]                 open = "w")
[18:41:34.552]         }
[18:41:34.552]         else {
[18:41:34.552]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.552]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.552]         }
[18:41:34.552]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.552]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.552]             base::sink(type = "output", split = FALSE)
[18:41:34.552]             base::close(...future.stdout)
[18:41:34.552]         }, add = TRUE)
[18:41:34.552]     }
[18:41:34.552]     ...future.frame <- base::sys.nframe()
[18:41:34.552]     ...future.conditions <- base::list()
[18:41:34.552]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.552]     if (FALSE) {
[18:41:34.552]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.552]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.552]     }
[18:41:34.552]     ...future.result <- base::tryCatch({
[18:41:34.552]         base::withCallingHandlers({
[18:41:34.552]             ...future.value <- base::withVisible(base::local({
[18:41:34.552]                 ...future.makeSendCondition <- base::local({
[18:41:34.552]                   sendCondition <- NULL
[18:41:34.552]                   function(frame = 1L) {
[18:41:34.552]                     if (is.function(sendCondition)) 
[18:41:34.552]                       return(sendCondition)
[18:41:34.552]                     ns <- getNamespace("parallel")
[18:41:34.552]                     if (exists("sendData", mode = "function", 
[18:41:34.552]                       envir = ns)) {
[18:41:34.552]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.552]                         envir = ns)
[18:41:34.552]                       envir <- sys.frame(frame)
[18:41:34.552]                       master <- NULL
[18:41:34.552]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.552]                         !identical(envir, emptyenv())) {
[18:41:34.552]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.552]                           inherits = FALSE)) {
[18:41:34.552]                           master <- get("master", mode = "list", 
[18:41:34.552]                             envir = envir, inherits = FALSE)
[18:41:34.552]                           if (inherits(master, c("SOCKnode", 
[18:41:34.552]                             "SOCK0node"))) {
[18:41:34.552]                             sendCondition <<- function(cond) {
[18:41:34.552]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.552]                                 success = TRUE)
[18:41:34.552]                               parallel_sendData(master, data)
[18:41:34.552]                             }
[18:41:34.552]                             return(sendCondition)
[18:41:34.552]                           }
[18:41:34.552]                         }
[18:41:34.552]                         frame <- frame + 1L
[18:41:34.552]                         envir <- sys.frame(frame)
[18:41:34.552]                       }
[18:41:34.552]                     }
[18:41:34.552]                     sendCondition <<- function(cond) NULL
[18:41:34.552]                   }
[18:41:34.552]                 })
[18:41:34.552]                 withCallingHandlers({
[18:41:34.552]                   {
[18:41:34.552]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.552]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.552]                       ...future.globals.maxSize)) {
[18:41:34.552]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.552]                       on.exit(options(oopts), add = TRUE)
[18:41:34.552]                     }
[18:41:34.552]                     {
[18:41:34.552]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.552]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.552]                         USE.NAMES = FALSE)
[18:41:34.552]                       do.call(mapply, args = args)
[18:41:34.552]                     }
[18:41:34.552]                   }
[18:41:34.552]                 }, immediateCondition = function(cond) {
[18:41:34.552]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.552]                   sendCondition(cond)
[18:41:34.552]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.552]                   {
[18:41:34.552]                     inherits <- base::inherits
[18:41:34.552]                     invokeRestart <- base::invokeRestart
[18:41:34.552]                     is.null <- base::is.null
[18:41:34.552]                     muffled <- FALSE
[18:41:34.552]                     if (inherits(cond, "message")) {
[18:41:34.552]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.552]                       if (muffled) 
[18:41:34.552]                         invokeRestart("muffleMessage")
[18:41:34.552]                     }
[18:41:34.552]                     else if (inherits(cond, "warning")) {
[18:41:34.552]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.552]                       if (muffled) 
[18:41:34.552]                         invokeRestart("muffleWarning")
[18:41:34.552]                     }
[18:41:34.552]                     else if (inherits(cond, "condition")) {
[18:41:34.552]                       if (!is.null(pattern)) {
[18:41:34.552]                         computeRestarts <- base::computeRestarts
[18:41:34.552]                         grepl <- base::grepl
[18:41:34.552]                         restarts <- computeRestarts(cond)
[18:41:34.552]                         for (restart in restarts) {
[18:41:34.552]                           name <- restart$name
[18:41:34.552]                           if (is.null(name)) 
[18:41:34.552]                             next
[18:41:34.552]                           if (!grepl(pattern, name)) 
[18:41:34.552]                             next
[18:41:34.552]                           invokeRestart(restart)
[18:41:34.552]                           muffled <- TRUE
[18:41:34.552]                           break
[18:41:34.552]                         }
[18:41:34.552]                       }
[18:41:34.552]                     }
[18:41:34.552]                     invisible(muffled)
[18:41:34.552]                   }
[18:41:34.552]                   muffleCondition(cond)
[18:41:34.552]                 })
[18:41:34.552]             }))
[18:41:34.552]             future::FutureResult(value = ...future.value$value, 
[18:41:34.552]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.552]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.552]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.552]                     ...future.globalenv.names))
[18:41:34.552]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.552]         }, condition = base::local({
[18:41:34.552]             c <- base::c
[18:41:34.552]             inherits <- base::inherits
[18:41:34.552]             invokeRestart <- base::invokeRestart
[18:41:34.552]             length <- base::length
[18:41:34.552]             list <- base::list
[18:41:34.552]             seq.int <- base::seq.int
[18:41:34.552]             signalCondition <- base::signalCondition
[18:41:34.552]             sys.calls <- base::sys.calls
[18:41:34.552]             `[[` <- base::`[[`
[18:41:34.552]             `+` <- base::`+`
[18:41:34.552]             `<<-` <- base::`<<-`
[18:41:34.552]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.552]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.552]                   3L)]
[18:41:34.552]             }
[18:41:34.552]             function(cond) {
[18:41:34.552]                 is_error <- inherits(cond, "error")
[18:41:34.552]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.552]                   NULL)
[18:41:34.552]                 if (is_error) {
[18:41:34.552]                   sessionInformation <- function() {
[18:41:34.552]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.552]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.552]                       search = base::search(), system = base::Sys.info())
[18:41:34.552]                   }
[18:41:34.552]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.552]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.552]                     cond$call), session = sessionInformation(), 
[18:41:34.552]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.552]                   signalCondition(cond)
[18:41:34.552]                 }
[18:41:34.552]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.552]                 "immediateCondition"))) {
[18:41:34.552]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.552]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.552]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.552]                   if (TRUE && !signal) {
[18:41:34.552]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.552]                     {
[18:41:34.552]                       inherits <- base::inherits
[18:41:34.552]                       invokeRestart <- base::invokeRestart
[18:41:34.552]                       is.null <- base::is.null
[18:41:34.552]                       muffled <- FALSE
[18:41:34.552]                       if (inherits(cond, "message")) {
[18:41:34.552]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.552]                         if (muffled) 
[18:41:34.552]                           invokeRestart("muffleMessage")
[18:41:34.552]                       }
[18:41:34.552]                       else if (inherits(cond, "warning")) {
[18:41:34.552]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.552]                         if (muffled) 
[18:41:34.552]                           invokeRestart("muffleWarning")
[18:41:34.552]                       }
[18:41:34.552]                       else if (inherits(cond, "condition")) {
[18:41:34.552]                         if (!is.null(pattern)) {
[18:41:34.552]                           computeRestarts <- base::computeRestarts
[18:41:34.552]                           grepl <- base::grepl
[18:41:34.552]                           restarts <- computeRestarts(cond)
[18:41:34.552]                           for (restart in restarts) {
[18:41:34.552]                             name <- restart$name
[18:41:34.552]                             if (is.null(name)) 
[18:41:34.552]                               next
[18:41:34.552]                             if (!grepl(pattern, name)) 
[18:41:34.552]                               next
[18:41:34.552]                             invokeRestart(restart)
[18:41:34.552]                             muffled <- TRUE
[18:41:34.552]                             break
[18:41:34.552]                           }
[18:41:34.552]                         }
[18:41:34.552]                       }
[18:41:34.552]                       invisible(muffled)
[18:41:34.552]                     }
[18:41:34.552]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.552]                   }
[18:41:34.552]                 }
[18:41:34.552]                 else {
[18:41:34.552]                   if (TRUE) {
[18:41:34.552]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.552]                     {
[18:41:34.552]                       inherits <- base::inherits
[18:41:34.552]                       invokeRestart <- base::invokeRestart
[18:41:34.552]                       is.null <- base::is.null
[18:41:34.552]                       muffled <- FALSE
[18:41:34.552]                       if (inherits(cond, "message")) {
[18:41:34.552]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.552]                         if (muffled) 
[18:41:34.552]                           invokeRestart("muffleMessage")
[18:41:34.552]                       }
[18:41:34.552]                       else if (inherits(cond, "warning")) {
[18:41:34.552]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.552]                         if (muffled) 
[18:41:34.552]                           invokeRestart("muffleWarning")
[18:41:34.552]                       }
[18:41:34.552]                       else if (inherits(cond, "condition")) {
[18:41:34.552]                         if (!is.null(pattern)) {
[18:41:34.552]                           computeRestarts <- base::computeRestarts
[18:41:34.552]                           grepl <- base::grepl
[18:41:34.552]                           restarts <- computeRestarts(cond)
[18:41:34.552]                           for (restart in restarts) {
[18:41:34.552]                             name <- restart$name
[18:41:34.552]                             if (is.null(name)) 
[18:41:34.552]                               next
[18:41:34.552]                             if (!grepl(pattern, name)) 
[18:41:34.552]                               next
[18:41:34.552]                             invokeRestart(restart)
[18:41:34.552]                             muffled <- TRUE
[18:41:34.552]                             break
[18:41:34.552]                           }
[18:41:34.552]                         }
[18:41:34.552]                       }
[18:41:34.552]                       invisible(muffled)
[18:41:34.552]                     }
[18:41:34.552]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.552]                   }
[18:41:34.552]                 }
[18:41:34.552]             }
[18:41:34.552]         }))
[18:41:34.552]     }, error = function(ex) {
[18:41:34.552]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.552]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.552]                 ...future.rng), started = ...future.startTime, 
[18:41:34.552]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.552]             version = "1.8"), class = "FutureResult")
[18:41:34.552]     }, finally = {
[18:41:34.552]         if (!identical(...future.workdir, getwd())) 
[18:41:34.552]             setwd(...future.workdir)
[18:41:34.552]         {
[18:41:34.552]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.552]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.552]             }
[18:41:34.552]             base::options(...future.oldOptions)
[18:41:34.552]             if (.Platform$OS.type == "windows") {
[18:41:34.552]                 old_names <- names(...future.oldEnvVars)
[18:41:34.552]                 envs <- base::Sys.getenv()
[18:41:34.552]                 names <- names(envs)
[18:41:34.552]                 common <- intersect(names, old_names)
[18:41:34.552]                 added <- setdiff(names, old_names)
[18:41:34.552]                 removed <- setdiff(old_names, names)
[18:41:34.552]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.552]                   envs[common]]
[18:41:34.552]                 NAMES <- toupper(changed)
[18:41:34.552]                 args <- list()
[18:41:34.552]                 for (kk in seq_along(NAMES)) {
[18:41:34.552]                   name <- changed[[kk]]
[18:41:34.552]                   NAME <- NAMES[[kk]]
[18:41:34.552]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.552]                     next
[18:41:34.552]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.552]                 }
[18:41:34.552]                 NAMES <- toupper(added)
[18:41:34.552]                 for (kk in seq_along(NAMES)) {
[18:41:34.552]                   name <- added[[kk]]
[18:41:34.552]                   NAME <- NAMES[[kk]]
[18:41:34.552]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.552]                     next
[18:41:34.552]                   args[[name]] <- ""
[18:41:34.552]                 }
[18:41:34.552]                 NAMES <- toupper(removed)
[18:41:34.552]                 for (kk in seq_along(NAMES)) {
[18:41:34.552]                   name <- removed[[kk]]
[18:41:34.552]                   NAME <- NAMES[[kk]]
[18:41:34.552]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.552]                     next
[18:41:34.552]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.552]                 }
[18:41:34.552]                 if (length(args) > 0) 
[18:41:34.552]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.552]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.552]             }
[18:41:34.552]             else {
[18:41:34.552]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.552]             }
[18:41:34.552]             {
[18:41:34.552]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.552]                   0L) {
[18:41:34.552]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.552]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.552]                   base::options(opts)
[18:41:34.552]                 }
[18:41:34.552]                 {
[18:41:34.552]                   {
[18:41:34.552]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.552]                     NULL
[18:41:34.552]                   }
[18:41:34.552]                   options(future.plan = NULL)
[18:41:34.552]                   if (is.na(NA_character_)) 
[18:41:34.552]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.552]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.552]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.552]                     .init = FALSE)
[18:41:34.552]                 }
[18:41:34.552]             }
[18:41:34.552]         }
[18:41:34.552]     })
[18:41:34.552]     if (TRUE) {
[18:41:34.552]         base::sink(type = "output", split = FALSE)
[18:41:34.552]         if (TRUE) {
[18:41:34.552]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.552]         }
[18:41:34.552]         else {
[18:41:34.552]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.552]         }
[18:41:34.552]         base::close(...future.stdout)
[18:41:34.552]         ...future.stdout <- NULL
[18:41:34.552]     }
[18:41:34.552]     ...future.result$conditions <- ...future.conditions
[18:41:34.552]     ...future.result$finished <- base::Sys.time()
[18:41:34.552]     ...future.result
[18:41:34.552] }
[18:41:34.562] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:34.562] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.563] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.563] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.564] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.565] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ...
[18:41:34.565] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ... DONE
[18:41:34.566] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.566] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.567] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.567] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.568] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:34.569] MultisessionFuture started
[18:41:34.569] - Launch lazy future ... done
[18:41:34.569] run() for 'MultisessionFuture' ... done
[18:41:34.570] Created future:
[18:41:34.612] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.612] - Validating connection of MultisessionFuture
[18:41:34.612] - received message: FutureResult
[18:41:34.613] - Received FutureResult
[18:41:34.613] - Erased future from FutureRegistry
[18:41:34.613] result() for ClusterFuture ...
[18:41:34.613] - result already collected: FutureResult
[18:41:34.613] result() for ClusterFuture ... done
[18:41:34.614] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.570] MultisessionFuture:
[18:41:34.570] Label: 'future_mapply-5'
[18:41:34.570] Expression:
[18:41:34.570] {
[18:41:34.570]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.570]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.570]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.570]         on.exit(options(oopts), add = TRUE)
[18:41:34.570]     }
[18:41:34.570]     {
[18:41:34.570]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.570]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.570]         do.call(mapply, args = args)
[18:41:34.570]     }
[18:41:34.570] }
[18:41:34.570] Lazy evaluation: FALSE
[18:41:34.570] Asynchronous evaluation: TRUE
[18:41:34.570] Local evaluation: TRUE
[18:41:34.570] Environment: R_GlobalEnv
[18:41:34.570] Capture standard output: TRUE
[18:41:34.570] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.570] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.570] Packages: <none>
[18:41:34.570] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.570] Resolved: TRUE
[18:41:34.570] Value: <not collected>
[18:41:34.570] Conditions captured: <none>
[18:41:34.570] Early signaling: FALSE
[18:41:34.570] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.570] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.614] Chunk #5 of 5 ... DONE
[18:41:34.614] Launching 5 futures (chunks) ... DONE
[18:41:34.614] Resolving 5 futures (chunks) ...
[18:41:34.615] resolve() on list ...
[18:41:34.615]  recursive: 0
[18:41:34.615]  length: 5
[18:41:34.615] 
[18:41:34.615] Future #1
[18:41:34.615] result() for ClusterFuture ...
[18:41:34.616] - result already collected: FutureResult
[18:41:34.616] result() for ClusterFuture ... done
[18:41:34.616] result() for ClusterFuture ...
[18:41:34.616] - result already collected: FutureResult
[18:41:34.616] result() for ClusterFuture ... done
[18:41:34.617] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:34.617] - nx: 5
[18:41:34.617] - relay: TRUE
[18:41:34.617] - stdout: TRUE
[18:41:34.617] - signal: TRUE
[18:41:34.617] - resignal: FALSE
[18:41:34.618] - force: TRUE
[18:41:34.618] - relayed: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[18:41:34.618] - queued futures: [n=5] FALSE, FALSE, FALSE, FALSE, FALSE
[18:41:34.618]  - until=1
[18:41:34.618]  - relaying element #1
[18:41:34.618] result() for ClusterFuture ...
[18:41:34.619] - result already collected: FutureResult
[18:41:34.619] result() for ClusterFuture ... done
[18:41:34.619] result() for ClusterFuture ...
[18:41:34.619] - result already collected: FutureResult
[18:41:34.619] result() for ClusterFuture ... done
[18:41:34.619] result() for ClusterFuture ...
[18:41:34.620] - result already collected: FutureResult
[18:41:34.620] result() for ClusterFuture ... done
[18:41:34.620] result() for ClusterFuture ...
[18:41:34.620] - result already collected: FutureResult
[18:41:34.620] result() for ClusterFuture ... done
[18:41:34.620] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:34.621] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:34.621] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:34.621]  length: 4 (resolved future 1)
[18:41:34.621] Future #2
[18:41:34.621] result() for ClusterFuture ...
[18:41:34.621] - result already collected: FutureResult
[18:41:34.622] result() for ClusterFuture ... done
[18:41:34.622] result() for ClusterFuture ...
[18:41:34.622] - result already collected: FutureResult
[18:41:34.622] result() for ClusterFuture ... done
[18:41:34.622] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:34.623] - nx: 5
[18:41:34.623] - relay: TRUE
[18:41:34.623] - stdout: TRUE
[18:41:34.623] - signal: TRUE
[18:41:34.623] - resignal: FALSE
[18:41:34.623] - force: TRUE
[18:41:34.623] - relayed: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:34.624] - queued futures: [n=5] TRUE, FALSE, FALSE, FALSE, FALSE
[18:41:34.624]  - until=2
[18:41:34.624]  - relaying element #2
[18:41:34.624] result() for ClusterFuture ...
[18:41:34.624] - result already collected: FutureResult
[18:41:34.624] result() for ClusterFuture ... done
[18:41:34.625] result() for ClusterFuture ...
[18:41:34.625] - result already collected: FutureResult
[18:41:34.625] result() for ClusterFuture ... done
[18:41:34.625] result() for ClusterFuture ...
[18:41:34.625] - result already collected: FutureResult
[18:41:34.625] result() for ClusterFuture ... done
[18:41:34.626] result() for ClusterFuture ...
[18:41:34.626] - result already collected: FutureResult
[18:41:34.626] result() for ClusterFuture ... done
[18:41:34.626] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:34.626] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:34.626] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:34.627]  length: 3 (resolved future 2)
[18:41:34.627] Future #3
[18:41:34.627] result() for ClusterFuture ...
[18:41:34.627] - result already collected: FutureResult
[18:41:34.627] result() for ClusterFuture ... done
[18:41:34.628] result() for ClusterFuture ...
[18:41:34.628] - result already collected: FutureResult
[18:41:34.628] result() for ClusterFuture ... done
[18:41:34.628] signalConditionsASAP(MultisessionFuture, pos=3) ...
[18:41:34.628] - nx: 5
[18:41:34.628] - relay: TRUE
[18:41:34.629] - stdout: TRUE
[18:41:34.629] - signal: TRUE
[18:41:34.629] - resignal: FALSE
[18:41:34.629] - force: TRUE
[18:41:34.629] - relayed: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:34.629] - queued futures: [n=5] TRUE, TRUE, FALSE, FALSE, FALSE
[18:41:34.629]  - until=3
[18:41:34.630]  - relaying element #3
[18:41:34.630] result() for ClusterFuture ...
[18:41:34.630] - result already collected: FutureResult
[18:41:34.630] result() for ClusterFuture ... done
[18:41:34.630] result() for ClusterFuture ...
[18:41:34.630] - result already collected: FutureResult
[18:41:34.631] result() for ClusterFuture ... done
[18:41:34.631] result() for ClusterFuture ...
[18:41:34.631] - result already collected: FutureResult
[18:41:34.631] result() for ClusterFuture ... done
[18:41:34.631] result() for ClusterFuture ...
[18:41:34.631] - result already collected: FutureResult
[18:41:34.632] result() for ClusterFuture ... done
[18:41:34.632] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:34.632] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:34.632] signalConditionsASAP(MultisessionFuture, pos=3) ... done
[18:41:34.632]  length: 2 (resolved future 3)
[18:41:34.632] Future #4
[18:41:34.633] result() for ClusterFuture ...
[18:41:34.633] - result already collected: FutureResult
[18:41:34.633] result() for ClusterFuture ... done
[18:41:34.633] result() for ClusterFuture ...
[18:41:34.633] - result already collected: FutureResult
[18:41:34.633] result() for ClusterFuture ... done
[18:41:34.634] signalConditionsASAP(MultisessionFuture, pos=4) ...
[18:41:34.634] - nx: 5
[18:41:34.634] - relay: TRUE
[18:41:34.634] - stdout: TRUE
[18:41:34.634] - signal: TRUE
[18:41:34.634] - resignal: FALSE
[18:41:34.635] - force: TRUE
[18:41:34.635] - relayed: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:34.635] - queued futures: [n=5] TRUE, TRUE, TRUE, FALSE, FALSE
[18:41:34.635]  - until=4
[18:41:34.635]  - relaying element #4
[18:41:34.635] result() for ClusterFuture ...
[18:41:34.636] - result already collected: FutureResult
[18:41:34.636] result() for ClusterFuture ... done
[18:41:34.636] result() for ClusterFuture ...
[18:41:34.636] - result already collected: FutureResult
[18:41:34.636] result() for ClusterFuture ... done
[18:41:34.636] result() for ClusterFuture ...
[18:41:34.637] - result already collected: FutureResult
[18:41:34.637] result() for ClusterFuture ... done
[18:41:34.637] result() for ClusterFuture ...
[18:41:34.637] - result already collected: FutureResult
[18:41:34.637] result() for ClusterFuture ... done
[18:41:34.637] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:34.638] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:34.638] signalConditionsASAP(MultisessionFuture, pos=4) ... done
[18:41:34.638]  length: 1 (resolved future 4)
[18:41:34.638] Future #5
[18:41:34.638] result() for ClusterFuture ...
[18:41:34.638] - result already collected: FutureResult
[18:41:34.639] result() for ClusterFuture ... done
[18:41:34.639] result() for ClusterFuture ...
[18:41:34.639] - result already collected: FutureResult
[18:41:34.639] result() for ClusterFuture ... done
[18:41:34.639] signalConditionsASAP(MultisessionFuture, pos=5) ...
[18:41:34.639] - nx: 5
[18:41:34.640] - relay: TRUE
[18:41:34.640] - stdout: TRUE
[18:41:34.640] - signal: TRUE
[18:41:34.640] - resignal: FALSE
[18:41:34.640] - force: TRUE
[18:41:34.640] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:34.641] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, FALSE
[18:41:34.641]  - until=5
[18:41:34.641]  - relaying element #5
[18:41:34.641] result() for ClusterFuture ...
[18:41:34.641] - result already collected: FutureResult
[18:41:34.641] result() for ClusterFuture ... done
[18:41:34.642] result() for ClusterFuture ...
[18:41:34.642] - result already collected: FutureResult
[18:41:34.642] result() for ClusterFuture ... done
[18:41:34.642] result() for ClusterFuture ...
[18:41:34.642] - result already collected: FutureResult
[18:41:34.642] result() for ClusterFuture ... done
[18:41:34.643] result() for ClusterFuture ...
[18:41:34.643] - result already collected: FutureResult
[18:41:34.643] result() for ClusterFuture ... done
[18:41:34.643] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:34.644] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:34.644] signalConditionsASAP(MultisessionFuture, pos=5) ... done
[18:41:34.644]  length: 0 (resolved future 5)
[18:41:34.645] Relaying remaining futures
[18:41:34.645] signalConditionsASAP(NULL, pos=0) ...
[18:41:34.646] - nx: 5
[18:41:34.646] - relay: TRUE
[18:41:34.646] - stdout: TRUE
[18:41:34.647] - signal: TRUE
[18:41:34.647] - resignal: FALSE
[18:41:34.647] - force: TRUE
[18:41:34.648] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:34.648] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
 - flush all
[18:41:34.648] - relayed: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:34.649] - queued futures: [n=5] TRUE, TRUE, TRUE, TRUE, TRUE
[18:41:34.649] signalConditionsASAP(NULL, pos=0) ... done
[18:41:34.650] resolve() on list ... DONE
[18:41:34.650] result() for ClusterFuture ...
[18:41:34.650] - result already collected: FutureResult
[18:41:34.651] result() for ClusterFuture ... done
[18:41:34.651] result() for ClusterFuture ...
[18:41:34.651] - result already collected: FutureResult
[18:41:34.652] result() for ClusterFuture ... done
[18:41:34.652] result() for ClusterFuture ...
[18:41:34.653] - result already collected: FutureResult
[18:41:34.653] result() for ClusterFuture ... done
[18:41:34.654] result() for ClusterFuture ...
[18:41:34.654] - result already collected: FutureResult
[18:41:34.654] result() for ClusterFuture ... done
[18:41:34.655] result() for ClusterFuture ...
[18:41:34.655] - result already collected: FutureResult
[18:41:34.655] result() for ClusterFuture ... done
[18:41:34.656] result() for ClusterFuture ...
[18:41:34.656] - result already collected: FutureResult
[18:41:34.657] result() for ClusterFuture ... done
[18:41:34.657] result() for ClusterFuture ...
[18:41:34.657] - result already collected: FutureResult
[18:41:34.658] result() for ClusterFuture ... done
[18:41:34.658] result() for ClusterFuture ...
[18:41:34.659] - result already collected: FutureResult
[18:41:34.659] result() for ClusterFuture ... done
[18:41:34.659] result() for ClusterFuture ...
[18:41:34.660] - result already collected: FutureResult
[18:41:34.660] result() for ClusterFuture ... done
[18:41:34.661] result() for ClusterFuture ...
[18:41:34.661] - result already collected: FutureResult
[18:41:34.661] result() for ClusterFuture ... done
[18:41:34.662]  - Number of value chunks collected: 5
[18:41:34.662] Resolving 5 futures (chunks) ... DONE
[18:41:34.663] Reducing values from 5 chunks ...
[18:41:34.663]  - Number of values collected after concatenation: 5
[18:41:34.663]  - Number of values expected: 5
[18:41:34.664] Reducing values from 5 chunks ... DONE
[18:41:34.664] future_mapply() ... DONE
[18:41:34.665] future_mapply() ...
[18:41:34.671] Number of chunks: 2
[18:41:34.672] getGlobalsAndPackagesXApply() ...
[18:41:34.672]  - future.globals: TRUE
[18:41:34.672] getGlobalsAndPackages() ...
[18:41:34.673] Searching for globals...
[18:41:34.677] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:34.677] Searching for globals ... DONE
[18:41:34.677] Resolving globals: FALSE
[18:41:34.678] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:34.679] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:34.680] - globals: [1] 'FUN'
[18:41:34.680] 
[18:41:34.680] getGlobalsAndPackages() ... DONE
[18:41:34.681]  - globals found/used: [n=1] 'FUN'
[18:41:34.681]  - needed namespaces: [n=0] 
[18:41:34.681] Finding globals ... DONE
[18:41:34.682] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:34.682] List of 2
[18:41:34.682]  $ ...future.FUN:function (C, k)  
[18:41:34.682]  $ MoreArgs     : list()
[18:41:34.682]  - attr(*, "where")=List of 2
[18:41:34.682]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:34.682]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:34.682]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:34.682]  - attr(*, "resolved")= logi FALSE
[18:41:34.682]  - attr(*, "total_size")= num NA
[18:41:34.688] Packages to be attached in all futures: [n=0] 
[18:41:34.689] getGlobalsAndPackagesXApply() ... DONE
[18:41:34.689] Number of futures (= number of chunks): 2
[18:41:34.689] Launching 2 futures (chunks) ...
[18:41:34.690] Chunk #1 of 2 ...
[18:41:34.690]  - Finding globals in '...' for chunk #1 ...
[18:41:34.690] getGlobalsAndPackages() ...
[18:41:34.691] Searching for globals...
[18:41:34.691] 
[18:41:34.692] Searching for globals ... DONE
[18:41:34.692] - globals: [0] <none>
[18:41:34.692] getGlobalsAndPackages() ... DONE
[18:41:34.693]    + additional globals found: [n=0] 
[18:41:34.693]    + additional namespaces needed: [n=0] 
[18:41:34.693]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:34.693]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:34.694]  - seeds: <none>
[18:41:34.694]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.694] getGlobalsAndPackages() ...
[18:41:34.695] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.695] Resolving globals: FALSE
[18:41:34.696] The total size of the 5 globals is 880 bytes (880 bytes)
[18:41:34.697] 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 880 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:34.698] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.698] 
[18:41:34.698] getGlobalsAndPackages() ... DONE
[18:41:34.699] run() for 'Future' ...
[18:41:34.699] - state: 'created'
[18:41:34.700] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.728] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.728] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.728]   - Field: 'node'
[18:41:34.729]   - Field: 'label'
[18:41:34.729]   - Field: 'local'
[18:41:34.729]   - Field: 'owner'
[18:41:34.730]   - Field: 'envir'
[18:41:34.730]   - Field: 'workers'
[18:41:34.730]   - Field: 'packages'
[18:41:34.731]   - Field: 'gc'
[18:41:34.731]   - Field: 'conditions'
[18:41:34.731]   - Field: 'persistent'
[18:41:34.732]   - Field: 'expr'
[18:41:34.732]   - Field: 'uuid'
[18:41:34.732]   - Field: 'seed'
[18:41:34.733]   - Field: 'version'
[18:41:34.733]   - Field: 'result'
[18:41:34.733]   - Field: 'asynchronous'
[18:41:34.733]   - Field: 'calls'
[18:41:34.734]   - Field: 'globals'
[18:41:34.734]   - Field: 'stdout'
[18:41:34.734]   - Field: 'earlySignal'
[18:41:34.735]   - Field: 'lazy'
[18:41:34.735]   - Field: 'state'
[18:41:34.735] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.736] - Launch lazy future ...
[18:41:34.736] Packages needed by the future expression (n = 0): <none>
[18:41:34.737] Packages needed by future strategies (n = 0): <none>
[18:41:34.738] {
[18:41:34.738]     {
[18:41:34.738]         {
[18:41:34.738]             ...future.startTime <- base::Sys.time()
[18:41:34.738]             {
[18:41:34.738]                 {
[18:41:34.738]                   {
[18:41:34.738]                     {
[18:41:34.738]                       base::local({
[18:41:34.738]                         has_future <- base::requireNamespace("future", 
[18:41:34.738]                           quietly = TRUE)
[18:41:34.738]                         if (has_future) {
[18:41:34.738]                           ns <- base::getNamespace("future")
[18:41:34.738]                           version <- ns[[".package"]][["version"]]
[18:41:34.738]                           if (is.null(version)) 
[18:41:34.738]                             version <- utils::packageVersion("future")
[18:41:34.738]                         }
[18:41:34.738]                         else {
[18:41:34.738]                           version <- NULL
[18:41:34.738]                         }
[18:41:34.738]                         if (!has_future || version < "1.8.0") {
[18:41:34.738]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.738]                             "", base::R.version$version.string), 
[18:41:34.738]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.738]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.738]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.738]                               "release", "version")], collapse = " "), 
[18:41:34.738]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.738]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.738]                             info)
[18:41:34.738]                           info <- base::paste(info, collapse = "; ")
[18:41:34.738]                           if (!has_future) {
[18:41:34.738]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.738]                               info)
[18:41:34.738]                           }
[18:41:34.738]                           else {
[18:41:34.738]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.738]                               info, version)
[18:41:34.738]                           }
[18:41:34.738]                           base::stop(msg)
[18:41:34.738]                         }
[18:41:34.738]                       })
[18:41:34.738]                     }
[18:41:34.738]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.738]                     base::options(mc.cores = 1L)
[18:41:34.738]                   }
[18:41:34.738]                   ...future.strategy.old <- future::plan("list")
[18:41:34.738]                   options(future.plan = NULL)
[18:41:34.738]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.738]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.738]                 }
[18:41:34.738]                 ...future.workdir <- getwd()
[18:41:34.738]             }
[18:41:34.738]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.738]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.738]         }
[18:41:34.738]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.738]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:34.738]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.738]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.738]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.738]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.738]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.738]             base::names(...future.oldOptions))
[18:41:34.738]     }
[18:41:34.738]     if (FALSE) {
[18:41:34.738]     }
[18:41:34.738]     else {
[18:41:34.738]         if (TRUE) {
[18:41:34.738]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.738]                 open = "w")
[18:41:34.738]         }
[18:41:34.738]         else {
[18:41:34.738]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.738]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.738]         }
[18:41:34.738]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.738]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.738]             base::sink(type = "output", split = FALSE)
[18:41:34.738]             base::close(...future.stdout)
[18:41:34.738]         }, add = TRUE)
[18:41:34.738]     }
[18:41:34.738]     ...future.frame <- base::sys.nframe()
[18:41:34.738]     ...future.conditions <- base::list()
[18:41:34.738]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.738]     if (FALSE) {
[18:41:34.738]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.738]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.738]     }
[18:41:34.738]     ...future.result <- base::tryCatch({
[18:41:34.738]         base::withCallingHandlers({
[18:41:34.738]             ...future.value <- base::withVisible(base::local({
[18:41:34.738]                 ...future.makeSendCondition <- base::local({
[18:41:34.738]                   sendCondition <- NULL
[18:41:34.738]                   function(frame = 1L) {
[18:41:34.738]                     if (is.function(sendCondition)) 
[18:41:34.738]                       return(sendCondition)
[18:41:34.738]                     ns <- getNamespace("parallel")
[18:41:34.738]                     if (exists("sendData", mode = "function", 
[18:41:34.738]                       envir = ns)) {
[18:41:34.738]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.738]                         envir = ns)
[18:41:34.738]                       envir <- sys.frame(frame)
[18:41:34.738]                       master <- NULL
[18:41:34.738]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.738]                         !identical(envir, emptyenv())) {
[18:41:34.738]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.738]                           inherits = FALSE)) {
[18:41:34.738]                           master <- get("master", mode = "list", 
[18:41:34.738]                             envir = envir, inherits = FALSE)
[18:41:34.738]                           if (inherits(master, c("SOCKnode", 
[18:41:34.738]                             "SOCK0node"))) {
[18:41:34.738]                             sendCondition <<- function(cond) {
[18:41:34.738]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.738]                                 success = TRUE)
[18:41:34.738]                               parallel_sendData(master, data)
[18:41:34.738]                             }
[18:41:34.738]                             return(sendCondition)
[18:41:34.738]                           }
[18:41:34.738]                         }
[18:41:34.738]                         frame <- frame + 1L
[18:41:34.738]                         envir <- sys.frame(frame)
[18:41:34.738]                       }
[18:41:34.738]                     }
[18:41:34.738]                     sendCondition <<- function(cond) NULL
[18:41:34.738]                   }
[18:41:34.738]                 })
[18:41:34.738]                 withCallingHandlers({
[18:41:34.738]                   {
[18:41:34.738]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.738]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.738]                       ...future.globals.maxSize)) {
[18:41:34.738]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.738]                       on.exit(options(oopts), add = TRUE)
[18:41:34.738]                     }
[18:41:34.738]                     {
[18:41:34.738]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.738]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.738]                         USE.NAMES = FALSE)
[18:41:34.738]                       do.call(mapply, args = args)
[18:41:34.738]                     }
[18:41:34.738]                   }
[18:41:34.738]                 }, immediateCondition = function(cond) {
[18:41:34.738]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.738]                   sendCondition(cond)
[18:41:34.738]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.738]                   {
[18:41:34.738]                     inherits <- base::inherits
[18:41:34.738]                     invokeRestart <- base::invokeRestart
[18:41:34.738]                     is.null <- base::is.null
[18:41:34.738]                     muffled <- FALSE
[18:41:34.738]                     if (inherits(cond, "message")) {
[18:41:34.738]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.738]                       if (muffled) 
[18:41:34.738]                         invokeRestart("muffleMessage")
[18:41:34.738]                     }
[18:41:34.738]                     else if (inherits(cond, "warning")) {
[18:41:34.738]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.738]                       if (muffled) 
[18:41:34.738]                         invokeRestart("muffleWarning")
[18:41:34.738]                     }
[18:41:34.738]                     else if (inherits(cond, "condition")) {
[18:41:34.738]                       if (!is.null(pattern)) {
[18:41:34.738]                         computeRestarts <- base::computeRestarts
[18:41:34.738]                         grepl <- base::grepl
[18:41:34.738]                         restarts <- computeRestarts(cond)
[18:41:34.738]                         for (restart in restarts) {
[18:41:34.738]                           name <- restart$name
[18:41:34.738]                           if (is.null(name)) 
[18:41:34.738]                             next
[18:41:34.738]                           if (!grepl(pattern, name)) 
[18:41:34.738]                             next
[18:41:34.738]                           invokeRestart(restart)
[18:41:34.738]                           muffled <- TRUE
[18:41:34.738]                           break
[18:41:34.738]                         }
[18:41:34.738]                       }
[18:41:34.738]                     }
[18:41:34.738]                     invisible(muffled)
[18:41:34.738]                   }
[18:41:34.738]                   muffleCondition(cond)
[18:41:34.738]                 })
[18:41:34.738]             }))
[18:41:34.738]             future::FutureResult(value = ...future.value$value, 
[18:41:34.738]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.738]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.738]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.738]                     ...future.globalenv.names))
[18:41:34.738]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.738]         }, condition = base::local({
[18:41:34.738]             c <- base::c
[18:41:34.738]             inherits <- base::inherits
[18:41:34.738]             invokeRestart <- base::invokeRestart
[18:41:34.738]             length <- base::length
[18:41:34.738]             list <- base::list
[18:41:34.738]             seq.int <- base::seq.int
[18:41:34.738]             signalCondition <- base::signalCondition
[18:41:34.738]             sys.calls <- base::sys.calls
[18:41:34.738]             `[[` <- base::`[[`
[18:41:34.738]             `+` <- base::`+`
[18:41:34.738]             `<<-` <- base::`<<-`
[18:41:34.738]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.738]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.738]                   3L)]
[18:41:34.738]             }
[18:41:34.738]             function(cond) {
[18:41:34.738]                 is_error <- inherits(cond, "error")
[18:41:34.738]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.738]                   NULL)
[18:41:34.738]                 if (is_error) {
[18:41:34.738]                   sessionInformation <- function() {
[18:41:34.738]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.738]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.738]                       search = base::search(), system = base::Sys.info())
[18:41:34.738]                   }
[18:41:34.738]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.738]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.738]                     cond$call), session = sessionInformation(), 
[18:41:34.738]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.738]                   signalCondition(cond)
[18:41:34.738]                 }
[18:41:34.738]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.738]                 "immediateCondition"))) {
[18:41:34.738]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.738]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.738]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.738]                   if (TRUE && !signal) {
[18:41:34.738]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.738]                     {
[18:41:34.738]                       inherits <- base::inherits
[18:41:34.738]                       invokeRestart <- base::invokeRestart
[18:41:34.738]                       is.null <- base::is.null
[18:41:34.738]                       muffled <- FALSE
[18:41:34.738]                       if (inherits(cond, "message")) {
[18:41:34.738]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.738]                         if (muffled) 
[18:41:34.738]                           invokeRestart("muffleMessage")
[18:41:34.738]                       }
[18:41:34.738]                       else if (inherits(cond, "warning")) {
[18:41:34.738]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.738]                         if (muffled) 
[18:41:34.738]                           invokeRestart("muffleWarning")
[18:41:34.738]                       }
[18:41:34.738]                       else if (inherits(cond, "condition")) {
[18:41:34.738]                         if (!is.null(pattern)) {
[18:41:34.738]                           computeRestarts <- base::computeRestarts
[18:41:34.738]                           grepl <- base::grepl
[18:41:34.738]                           restarts <- computeRestarts(cond)
[18:41:34.738]                           for (restart in restarts) {
[18:41:34.738]                             name <- restart$name
[18:41:34.738]                             if (is.null(name)) 
[18:41:34.738]                               next
[18:41:34.738]                             if (!grepl(pattern, name)) 
[18:41:34.738]                               next
[18:41:34.738]                             invokeRestart(restart)
[18:41:34.738]                             muffled <- TRUE
[18:41:34.738]                             break
[18:41:34.738]                           }
[18:41:34.738]                         }
[18:41:34.738]                       }
[18:41:34.738]                       invisible(muffled)
[18:41:34.738]                     }
[18:41:34.738]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.738]                   }
[18:41:34.738]                 }
[18:41:34.738]                 else {
[18:41:34.738]                   if (TRUE) {
[18:41:34.738]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.738]                     {
[18:41:34.738]                       inherits <- base::inherits
[18:41:34.738]                       invokeRestart <- base::invokeRestart
[18:41:34.738]                       is.null <- base::is.null
[18:41:34.738]                       muffled <- FALSE
[18:41:34.738]                       if (inherits(cond, "message")) {
[18:41:34.738]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.738]                         if (muffled) 
[18:41:34.738]                           invokeRestart("muffleMessage")
[18:41:34.738]                       }
[18:41:34.738]                       else if (inherits(cond, "warning")) {
[18:41:34.738]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.738]                         if (muffled) 
[18:41:34.738]                           invokeRestart("muffleWarning")
[18:41:34.738]                       }
[18:41:34.738]                       else if (inherits(cond, "condition")) {
[18:41:34.738]                         if (!is.null(pattern)) {
[18:41:34.738]                           computeRestarts <- base::computeRestarts
[18:41:34.738]                           grepl <- base::grepl
[18:41:34.738]                           restarts <- computeRestarts(cond)
[18:41:34.738]                           for (restart in restarts) {
[18:41:34.738]                             name <- restart$name
[18:41:34.738]                             if (is.null(name)) 
[18:41:34.738]                               next
[18:41:34.738]                             if (!grepl(pattern, name)) 
[18:41:34.738]                               next
[18:41:34.738]                             invokeRestart(restart)
[18:41:34.738]                             muffled <- TRUE
[18:41:34.738]                             break
[18:41:34.738]                           }
[18:41:34.738]                         }
[18:41:34.738]                       }
[18:41:34.738]                       invisible(muffled)
[18:41:34.738]                     }
[18:41:34.738]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.738]                   }
[18:41:34.738]                 }
[18:41:34.738]             }
[18:41:34.738]         }))
[18:41:34.738]     }, error = function(ex) {
[18:41:34.738]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.738]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.738]                 ...future.rng), started = ...future.startTime, 
[18:41:34.738]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.738]             version = "1.8"), class = "FutureResult")
[18:41:34.738]     }, finally = {
[18:41:34.738]         if (!identical(...future.workdir, getwd())) 
[18:41:34.738]             setwd(...future.workdir)
[18:41:34.738]         {
[18:41:34.738]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.738]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.738]             }
[18:41:34.738]             base::options(...future.oldOptions)
[18:41:34.738]             if (.Platform$OS.type == "windows") {
[18:41:34.738]                 old_names <- names(...future.oldEnvVars)
[18:41:34.738]                 envs <- base::Sys.getenv()
[18:41:34.738]                 names <- names(envs)
[18:41:34.738]                 common <- intersect(names, old_names)
[18:41:34.738]                 added <- setdiff(names, old_names)
[18:41:34.738]                 removed <- setdiff(old_names, names)
[18:41:34.738]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.738]                   envs[common]]
[18:41:34.738]                 NAMES <- toupper(changed)
[18:41:34.738]                 args <- list()
[18:41:34.738]                 for (kk in seq_along(NAMES)) {
[18:41:34.738]                   name <- changed[[kk]]
[18:41:34.738]                   NAME <- NAMES[[kk]]
[18:41:34.738]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.738]                     next
[18:41:34.738]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.738]                 }
[18:41:34.738]                 NAMES <- toupper(added)
[18:41:34.738]                 for (kk in seq_along(NAMES)) {
[18:41:34.738]                   name <- added[[kk]]
[18:41:34.738]                   NAME <- NAMES[[kk]]
[18:41:34.738]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.738]                     next
[18:41:34.738]                   args[[name]] <- ""
[18:41:34.738]                 }
[18:41:34.738]                 NAMES <- toupper(removed)
[18:41:34.738]                 for (kk in seq_along(NAMES)) {
[18:41:34.738]                   name <- removed[[kk]]
[18:41:34.738]                   NAME <- NAMES[[kk]]
[18:41:34.738]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.738]                     next
[18:41:34.738]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.738]                 }
[18:41:34.738]                 if (length(args) > 0) 
[18:41:34.738]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.738]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.738]             }
[18:41:34.738]             else {
[18:41:34.738]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.738]             }
[18:41:34.738]             {
[18:41:34.738]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.738]                   0L) {
[18:41:34.738]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.738]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.738]                   base::options(opts)
[18:41:34.738]                 }
[18:41:34.738]                 {
[18:41:34.738]                   {
[18:41:34.738]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.738]                     NULL
[18:41:34.738]                   }
[18:41:34.738]                   options(future.plan = NULL)
[18:41:34.738]                   if (is.na(NA_character_)) 
[18:41:34.738]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.738]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.738]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.738]                     .init = FALSE)
[18:41:34.738]                 }
[18:41:34.738]             }
[18:41:34.738]         }
[18:41:34.738]     })
[18:41:34.738]     if (TRUE) {
[18:41:34.738]         base::sink(type = "output", split = FALSE)
[18:41:34.738]         if (TRUE) {
[18:41:34.738]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.738]         }
[18:41:34.738]         else {
[18:41:34.738]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.738]         }
[18:41:34.738]         base::close(...future.stdout)
[18:41:34.738]         ...future.stdout <- NULL
[18:41:34.738]     }
[18:41:34.738]     ...future.result$conditions <- ...future.conditions
[18:41:34.738]     ...future.result$finished <- base::Sys.time()
[18:41:34.738]     ...future.result
[18:41:34.738] }
[18:41:34.747] Exporting 5 global objects (1.29 KiB) to cluster node #1 ...
[18:41:34.748] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.748] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.749] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:34.749] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:34.750] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ...
[18:41:34.750] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ... DONE
[18:41:34.751] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.751] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.752] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.752] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.753] Exporting 5 global objects (1.29 KiB) to cluster node #1 ... DONE
[18:41:34.754] MultisessionFuture started
[18:41:34.754] - Launch lazy future ... done
[18:41:34.755] run() for 'MultisessionFuture' ... done
[18:41:34.755] Created future:
[18:41:34.793] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.794] - Validating connection of MultisessionFuture
[18:41:34.794] - received message: FutureResult
[18:41:34.795] - Received FutureResult
[18:41:34.795] - Erased future from FutureRegistry
[18:41:34.795] result() for ClusterFuture ...
[18:41:34.796] - result already collected: FutureResult
[18:41:34.796] result() for ClusterFuture ... done
[18:41:34.796] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.755] MultisessionFuture:
[18:41:34.755] Label: 'future_.mapply-1'
[18:41:34.755] Expression:
[18:41:34.755] {
[18:41:34.755]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.755]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.755]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.755]         on.exit(options(oopts), add = TRUE)
[18:41:34.755]     }
[18:41:34.755]     {
[18:41:34.755]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.755]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.755]         do.call(mapply, args = args)
[18:41:34.755]     }
[18:41:34.755] }
[18:41:34.755] Lazy evaluation: FALSE
[18:41:34.755] Asynchronous evaluation: TRUE
[18:41:34.755] Local evaluation: TRUE
[18:41:34.755] Environment: R_GlobalEnv
[18:41:34.755] Capture standard output: TRUE
[18:41:34.755] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.755] Globals: 5 objects totaling 880 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.755] Packages: <none>
[18:41:34.755] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.755] Resolved: TRUE
[18:41:34.755] Value: <not collected>
[18:41:34.755] Conditions captured: <none>
[18:41:34.755] Early signaling: FALSE
[18:41:34.755] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.755] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.797] Chunk #1 of 2 ... DONE
[18:41:34.798] Chunk #2 of 2 ...
[18:41:34.798]  - Finding globals in '...' for chunk #2 ...
[18:41:34.798] getGlobalsAndPackages() ...
[18:41:34.799] Searching for globals...
[18:41:34.799] 
[18:41:34.800] Searching for globals ... DONE
[18:41:34.800] - globals: [0] <none>
[18:41:34.800] getGlobalsAndPackages() ... DONE
[18:41:34.801]    + additional globals found: [n=0] 
[18:41:34.801]    + additional namespaces needed: [n=0] 
[18:41:34.801]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:34.802]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:34.802]  - seeds: <none>
[18:41:34.802]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.813] getGlobalsAndPackages() ...
[18:41:34.813] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.813] Resolving globals: FALSE
[18:41:34.815] The total size of the 5 globals is 909 bytes (909 bytes)
[18:41:34.816] 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 909 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (134 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:34.816] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.816] 
[18:41:34.816] getGlobalsAndPackages() ... DONE
[18:41:34.817] run() for 'Future' ...
[18:41:34.817] - state: 'created'
[18:41:34.817] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.834] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.834] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.834]   - Field: 'node'
[18:41:34.834]   - Field: 'label'
[18:41:34.834]   - Field: 'local'
[18:41:34.835]   - Field: 'owner'
[18:41:34.835]   - Field: 'envir'
[18:41:34.835]   - Field: 'workers'
[18:41:34.835]   - Field: 'packages'
[18:41:34.835]   - Field: 'gc'
[18:41:34.835]   - Field: 'conditions'
[18:41:34.836]   - Field: 'persistent'
[18:41:34.836]   - Field: 'expr'
[18:41:34.836]   - Field: 'uuid'
[18:41:34.836]   - Field: 'seed'
[18:41:34.836]   - Field: 'version'
[18:41:34.837]   - Field: 'result'
[18:41:34.837]   - Field: 'asynchronous'
[18:41:34.837]   - Field: 'calls'
[18:41:34.837]   - Field: 'globals'
[18:41:34.837]   - Field: 'stdout'
[18:41:34.837]   - Field: 'earlySignal'
[18:41:34.838]   - Field: 'lazy'
[18:41:34.838]   - Field: 'state'
[18:41:34.838] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.838] - Launch lazy future ...
[18:41:34.839] Packages needed by the future expression (n = 0): <none>
[18:41:34.839] Packages needed by future strategies (n = 0): <none>
[18:41:34.839] {
[18:41:34.839]     {
[18:41:34.839]         {
[18:41:34.839]             ...future.startTime <- base::Sys.time()
[18:41:34.839]             {
[18:41:34.839]                 {
[18:41:34.839]                   {
[18:41:34.839]                     {
[18:41:34.839]                       base::local({
[18:41:34.839]                         has_future <- base::requireNamespace("future", 
[18:41:34.839]                           quietly = TRUE)
[18:41:34.839]                         if (has_future) {
[18:41:34.839]                           ns <- base::getNamespace("future")
[18:41:34.839]                           version <- ns[[".package"]][["version"]]
[18:41:34.839]                           if (is.null(version)) 
[18:41:34.839]                             version <- utils::packageVersion("future")
[18:41:34.839]                         }
[18:41:34.839]                         else {
[18:41:34.839]                           version <- NULL
[18:41:34.839]                         }
[18:41:34.839]                         if (!has_future || version < "1.8.0") {
[18:41:34.839]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.839]                             "", base::R.version$version.string), 
[18:41:34.839]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.839]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.839]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.839]                               "release", "version")], collapse = " "), 
[18:41:34.839]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.839]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.839]                             info)
[18:41:34.839]                           info <- base::paste(info, collapse = "; ")
[18:41:34.839]                           if (!has_future) {
[18:41:34.839]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.839]                               info)
[18:41:34.839]                           }
[18:41:34.839]                           else {
[18:41:34.839]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.839]                               info, version)
[18:41:34.839]                           }
[18:41:34.839]                           base::stop(msg)
[18:41:34.839]                         }
[18:41:34.839]                       })
[18:41:34.839]                     }
[18:41:34.839]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.839]                     base::options(mc.cores = 1L)
[18:41:34.839]                   }
[18:41:34.839]                   ...future.strategy.old <- future::plan("list")
[18:41:34.839]                   options(future.plan = NULL)
[18:41:34.839]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.839]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.839]                 }
[18:41:34.839]                 ...future.workdir <- getwd()
[18:41:34.839]             }
[18:41:34.839]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.839]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.839]         }
[18:41:34.839]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.839]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:34.839]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.839]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.839]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.839]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.839]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.839]             base::names(...future.oldOptions))
[18:41:34.839]     }
[18:41:34.839]     if (FALSE) {
[18:41:34.839]     }
[18:41:34.839]     else {
[18:41:34.839]         if (TRUE) {
[18:41:34.839]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.839]                 open = "w")
[18:41:34.839]         }
[18:41:34.839]         else {
[18:41:34.839]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.839]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.839]         }
[18:41:34.839]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.839]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.839]             base::sink(type = "output", split = FALSE)
[18:41:34.839]             base::close(...future.stdout)
[18:41:34.839]         }, add = TRUE)
[18:41:34.839]     }
[18:41:34.839]     ...future.frame <- base::sys.nframe()
[18:41:34.839]     ...future.conditions <- base::list()
[18:41:34.839]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.839]     if (FALSE) {
[18:41:34.839]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.839]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.839]     }
[18:41:34.839]     ...future.result <- base::tryCatch({
[18:41:34.839]         base::withCallingHandlers({
[18:41:34.839]             ...future.value <- base::withVisible(base::local({
[18:41:34.839]                 ...future.makeSendCondition <- base::local({
[18:41:34.839]                   sendCondition <- NULL
[18:41:34.839]                   function(frame = 1L) {
[18:41:34.839]                     if (is.function(sendCondition)) 
[18:41:34.839]                       return(sendCondition)
[18:41:34.839]                     ns <- getNamespace("parallel")
[18:41:34.839]                     if (exists("sendData", mode = "function", 
[18:41:34.839]                       envir = ns)) {
[18:41:34.839]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.839]                         envir = ns)
[18:41:34.839]                       envir <- sys.frame(frame)
[18:41:34.839]                       master <- NULL
[18:41:34.839]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.839]                         !identical(envir, emptyenv())) {
[18:41:34.839]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.839]                           inherits = FALSE)) {
[18:41:34.839]                           master <- get("master", mode = "list", 
[18:41:34.839]                             envir = envir, inherits = FALSE)
[18:41:34.839]                           if (inherits(master, c("SOCKnode", 
[18:41:34.839]                             "SOCK0node"))) {
[18:41:34.839]                             sendCondition <<- function(cond) {
[18:41:34.839]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.839]                                 success = TRUE)
[18:41:34.839]                               parallel_sendData(master, data)
[18:41:34.839]                             }
[18:41:34.839]                             return(sendCondition)
[18:41:34.839]                           }
[18:41:34.839]                         }
[18:41:34.839]                         frame <- frame + 1L
[18:41:34.839]                         envir <- sys.frame(frame)
[18:41:34.839]                       }
[18:41:34.839]                     }
[18:41:34.839]                     sendCondition <<- function(cond) NULL
[18:41:34.839]                   }
[18:41:34.839]                 })
[18:41:34.839]                 withCallingHandlers({
[18:41:34.839]                   {
[18:41:34.839]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.839]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.839]                       ...future.globals.maxSize)) {
[18:41:34.839]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.839]                       on.exit(options(oopts), add = TRUE)
[18:41:34.839]                     }
[18:41:34.839]                     {
[18:41:34.839]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.839]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.839]                         USE.NAMES = FALSE)
[18:41:34.839]                       do.call(mapply, args = args)
[18:41:34.839]                     }
[18:41:34.839]                   }
[18:41:34.839]                 }, immediateCondition = function(cond) {
[18:41:34.839]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.839]                   sendCondition(cond)
[18:41:34.839]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.839]                   {
[18:41:34.839]                     inherits <- base::inherits
[18:41:34.839]                     invokeRestart <- base::invokeRestart
[18:41:34.839]                     is.null <- base::is.null
[18:41:34.839]                     muffled <- FALSE
[18:41:34.839]                     if (inherits(cond, "message")) {
[18:41:34.839]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.839]                       if (muffled) 
[18:41:34.839]                         invokeRestart("muffleMessage")
[18:41:34.839]                     }
[18:41:34.839]                     else if (inherits(cond, "warning")) {
[18:41:34.839]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.839]                       if (muffled) 
[18:41:34.839]                         invokeRestart("muffleWarning")
[18:41:34.839]                     }
[18:41:34.839]                     else if (inherits(cond, "condition")) {
[18:41:34.839]                       if (!is.null(pattern)) {
[18:41:34.839]                         computeRestarts <- base::computeRestarts
[18:41:34.839]                         grepl <- base::grepl
[18:41:34.839]                         restarts <- computeRestarts(cond)
[18:41:34.839]                         for (restart in restarts) {
[18:41:34.839]                           name <- restart$name
[18:41:34.839]                           if (is.null(name)) 
[18:41:34.839]                             next
[18:41:34.839]                           if (!grepl(pattern, name)) 
[18:41:34.839]                             next
[18:41:34.839]                           invokeRestart(restart)
[18:41:34.839]                           muffled <- TRUE
[18:41:34.839]                           break
[18:41:34.839]                         }
[18:41:34.839]                       }
[18:41:34.839]                     }
[18:41:34.839]                     invisible(muffled)
[18:41:34.839]                   }
[18:41:34.839]                   muffleCondition(cond)
[18:41:34.839]                 })
[18:41:34.839]             }))
[18:41:34.839]             future::FutureResult(value = ...future.value$value, 
[18:41:34.839]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.839]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.839]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.839]                     ...future.globalenv.names))
[18:41:34.839]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.839]         }, condition = base::local({
[18:41:34.839]             c <- base::c
[18:41:34.839]             inherits <- base::inherits
[18:41:34.839]             invokeRestart <- base::invokeRestart
[18:41:34.839]             length <- base::length
[18:41:34.839]             list <- base::list
[18:41:34.839]             seq.int <- base::seq.int
[18:41:34.839]             signalCondition <- base::signalCondition
[18:41:34.839]             sys.calls <- base::sys.calls
[18:41:34.839]             `[[` <- base::`[[`
[18:41:34.839]             `+` <- base::`+`
[18:41:34.839]             `<<-` <- base::`<<-`
[18:41:34.839]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.839]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.839]                   3L)]
[18:41:34.839]             }
[18:41:34.839]             function(cond) {
[18:41:34.839]                 is_error <- inherits(cond, "error")
[18:41:34.839]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.839]                   NULL)
[18:41:34.839]                 if (is_error) {
[18:41:34.839]                   sessionInformation <- function() {
[18:41:34.839]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.839]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.839]                       search = base::search(), system = base::Sys.info())
[18:41:34.839]                   }
[18:41:34.839]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.839]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.839]                     cond$call), session = sessionInformation(), 
[18:41:34.839]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.839]                   signalCondition(cond)
[18:41:34.839]                 }
[18:41:34.839]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.839]                 "immediateCondition"))) {
[18:41:34.839]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.839]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.839]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.839]                   if (TRUE && !signal) {
[18:41:34.839]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.839]                     {
[18:41:34.839]                       inherits <- base::inherits
[18:41:34.839]                       invokeRestart <- base::invokeRestart
[18:41:34.839]                       is.null <- base::is.null
[18:41:34.839]                       muffled <- FALSE
[18:41:34.839]                       if (inherits(cond, "message")) {
[18:41:34.839]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.839]                         if (muffled) 
[18:41:34.839]                           invokeRestart("muffleMessage")
[18:41:34.839]                       }
[18:41:34.839]                       else if (inherits(cond, "warning")) {
[18:41:34.839]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.839]                         if (muffled) 
[18:41:34.839]                           invokeRestart("muffleWarning")
[18:41:34.839]                       }
[18:41:34.839]                       else if (inherits(cond, "condition")) {
[18:41:34.839]                         if (!is.null(pattern)) {
[18:41:34.839]                           computeRestarts <- base::computeRestarts
[18:41:34.839]                           grepl <- base::grepl
[18:41:34.839]                           restarts <- computeRestarts(cond)
[18:41:34.839]                           for (restart in restarts) {
[18:41:34.839]                             name <- restart$name
[18:41:34.839]                             if (is.null(name)) 
[18:41:34.839]                               next
[18:41:34.839]                             if (!grepl(pattern, name)) 
[18:41:34.839]                               next
[18:41:34.839]                             invokeRestart(restart)
[18:41:34.839]                             muffled <- TRUE
[18:41:34.839]                             break
[18:41:34.839]                           }
[18:41:34.839]                         }
[18:41:34.839]                       }
[18:41:34.839]                       invisible(muffled)
[18:41:34.839]                     }
[18:41:34.839]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.839]                   }
[18:41:34.839]                 }
[18:41:34.839]                 else {
[18:41:34.839]                   if (TRUE) {
[18:41:34.839]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.839]                     {
[18:41:34.839]                       inherits <- base::inherits
[18:41:34.839]                       invokeRestart <- base::invokeRestart
[18:41:34.839]                       is.null <- base::is.null
[18:41:34.839]                       muffled <- FALSE
[18:41:34.839]                       if (inherits(cond, "message")) {
[18:41:34.839]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.839]                         if (muffled) 
[18:41:34.839]                           invokeRestart("muffleMessage")
[18:41:34.839]                       }
[18:41:34.839]                       else if (inherits(cond, "warning")) {
[18:41:34.839]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.839]                         if (muffled) 
[18:41:34.839]                           invokeRestart("muffleWarning")
[18:41:34.839]                       }
[18:41:34.839]                       else if (inherits(cond, "condition")) {
[18:41:34.839]                         if (!is.null(pattern)) {
[18:41:34.839]                           computeRestarts <- base::computeRestarts
[18:41:34.839]                           grepl <- base::grepl
[18:41:34.839]                           restarts <- computeRestarts(cond)
[18:41:34.839]                           for (restart in restarts) {
[18:41:34.839]                             name <- restart$name
[18:41:34.839]                             if (is.null(name)) 
[18:41:34.839]                               next
[18:41:34.839]                             if (!grepl(pattern, name)) 
[18:41:34.839]                               next
[18:41:34.839]                             invokeRestart(restart)
[18:41:34.839]                             muffled <- TRUE
[18:41:34.839]                             break
[18:41:34.839]                           }
[18:41:34.839]                         }
[18:41:34.839]                       }
[18:41:34.839]                       invisible(muffled)
[18:41:34.839]                     }
[18:41:34.839]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.839]                   }
[18:41:34.839]                 }
[18:41:34.839]             }
[18:41:34.839]         }))
[18:41:34.839]     }, error = function(ex) {
[18:41:34.839]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.839]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.839]                 ...future.rng), started = ...future.startTime, 
[18:41:34.839]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.839]             version = "1.8"), class = "FutureResult")
[18:41:34.839]     }, finally = {
[18:41:34.839]         if (!identical(...future.workdir, getwd())) 
[18:41:34.839]             setwd(...future.workdir)
[18:41:34.839]         {
[18:41:34.839]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.839]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.839]             }
[18:41:34.839]             base::options(...future.oldOptions)
[18:41:34.839]             if (.Platform$OS.type == "windows") {
[18:41:34.839]                 old_names <- names(...future.oldEnvVars)
[18:41:34.839]                 envs <- base::Sys.getenv()
[18:41:34.839]                 names <- names(envs)
[18:41:34.839]                 common <- intersect(names, old_names)
[18:41:34.839]                 added <- setdiff(names, old_names)
[18:41:34.839]                 removed <- setdiff(old_names, names)
[18:41:34.839]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.839]                   envs[common]]
[18:41:34.839]                 NAMES <- toupper(changed)
[18:41:34.839]                 args <- list()
[18:41:34.839]                 for (kk in seq_along(NAMES)) {
[18:41:34.839]                   name <- changed[[kk]]
[18:41:34.839]                   NAME <- NAMES[[kk]]
[18:41:34.839]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.839]                     next
[18:41:34.839]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.839]                 }
[18:41:34.839]                 NAMES <- toupper(added)
[18:41:34.839]                 for (kk in seq_along(NAMES)) {
[18:41:34.839]                   name <- added[[kk]]
[18:41:34.839]                   NAME <- NAMES[[kk]]
[18:41:34.839]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.839]                     next
[18:41:34.839]                   args[[name]] <- ""
[18:41:34.839]                 }
[18:41:34.839]                 NAMES <- toupper(removed)
[18:41:34.839]                 for (kk in seq_along(NAMES)) {
[18:41:34.839]                   name <- removed[[kk]]
[18:41:34.839]                   NAME <- NAMES[[kk]]
[18:41:34.839]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.839]                     next
[18:41:34.839]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.839]                 }
[18:41:34.839]                 if (length(args) > 0) 
[18:41:34.839]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.839]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.839]             }
[18:41:34.839]             else {
[18:41:34.839]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.839]             }
[18:41:34.839]             {
[18:41:34.839]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.839]                   0L) {
[18:41:34.839]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.839]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.839]                   base::options(opts)
[18:41:34.839]                 }
[18:41:34.839]                 {
[18:41:34.839]                   {
[18:41:34.839]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.839]                     NULL
[18:41:34.839]                   }
[18:41:34.839]                   options(future.plan = NULL)
[18:41:34.839]                   if (is.na(NA_character_)) 
[18:41:34.839]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.839]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.839]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.839]                     .init = FALSE)
[18:41:34.839]                 }
[18:41:34.839]             }
[18:41:34.839]         }
[18:41:34.839]     })
[18:41:34.839]     if (TRUE) {
[18:41:34.839]         base::sink(type = "output", split = FALSE)
[18:41:34.839]         if (TRUE) {
[18:41:34.839]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.839]         }
[18:41:34.839]         else {
[18:41:34.839]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.839]         }
[18:41:34.839]         base::close(...future.stdout)
[18:41:34.839]         ...future.stdout <- NULL
[18:41:34.839]     }
[18:41:34.839]     ...future.result$conditions <- ...future.conditions
[18:41:34.839]     ...future.result$finished <- base::Sys.time()
[18:41:34.839]     ...future.result
[18:41:34.839] }
[18:41:34.845] Exporting 5 global objects (1.32 KiB) to cluster node #1 ...
[18:41:34.845] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.846] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.846] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:34.847] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:34.847] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ...
[18:41:34.848] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ... DONE
[18:41:34.848] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.849] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.849] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.850] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.850] Exporting 5 global objects (1.32 KiB) to cluster node #1 ... DONE
[18:41:34.851] MultisessionFuture started
[18:41:34.851] - Launch lazy future ... done
[18:41:34.851] run() for 'MultisessionFuture' ... done
[18:41:34.852] Created future:
[18:41:34.874] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.874] - Validating connection of MultisessionFuture
[18:41:34.875] - received message: FutureResult
[18:41:34.875] - Received FutureResult
[18:41:34.875] - Erased future from FutureRegistry
[18:41:34.875] result() for ClusterFuture ...
[18:41:34.876] - result already collected: FutureResult
[18:41:34.876] result() for ClusterFuture ... done
[18:41:34.876] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.852] MultisessionFuture:
[18:41:34.852] Label: 'future_.mapply-2'
[18:41:34.852] Expression:
[18:41:34.852] {
[18:41:34.852]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.852]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.852]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.852]         on.exit(options(oopts), add = TRUE)
[18:41:34.852]     }
[18:41:34.852]     {
[18:41:34.852]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.852]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.852]         do.call(mapply, args = args)
[18:41:34.852]     }
[18:41:34.852] }
[18:41:34.852] Lazy evaluation: FALSE
[18:41:34.852] Asynchronous evaluation: TRUE
[18:41:34.852] Local evaluation: TRUE
[18:41:34.852] Environment: R_GlobalEnv
[18:41:34.852] Capture standard output: TRUE
[18:41:34.852] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.852] Globals: 5 objects totaling 909 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 134 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.852] Packages: <none>
[18:41:34.852] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.852] Resolved: TRUE
[18:41:34.852] Value: <not collected>
[18:41:34.852] Conditions captured: <none>
[18:41:34.852] Early signaling: FALSE
[18:41:34.852] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.852] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.876] Chunk #2 of 2 ... DONE
[18:41:34.876] Launching 2 futures (chunks) ... DONE
[18:41:34.877] Resolving 2 futures (chunks) ...
[18:41:34.877] resolve() on list ...
[18:41:34.877]  recursive: 0
[18:41:34.877]  length: 2
[18:41:34.877] 
[18:41:34.878] Future #1
[18:41:34.878] result() for ClusterFuture ...
[18:41:34.878] - result already collected: FutureResult
[18:41:34.878] result() for ClusterFuture ... done
[18:41:34.878] result() for ClusterFuture ...
[18:41:34.879] - result already collected: FutureResult
[18:41:34.879] result() for ClusterFuture ... done
[18:41:34.879] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:34.879] - nx: 2
[18:41:34.879] - relay: TRUE
[18:41:34.879] - stdout: TRUE
[18:41:34.880] - signal: TRUE
[18:41:34.880] - resignal: FALSE
[18:41:34.880] - force: TRUE
[18:41:34.880] - relayed: [n=2] FALSE, FALSE
[18:41:34.880] - queued futures: [n=2] FALSE, FALSE
[18:41:34.880]  - until=1
[18:41:34.880]  - relaying element #1
[18:41:34.881] result() for ClusterFuture ...
[18:41:34.881] - result already collected: FutureResult
[18:41:34.881] result() for ClusterFuture ... done
[18:41:34.881] result() for ClusterFuture ...
[18:41:34.881] - result already collected: FutureResult
[18:41:34.881] result() for ClusterFuture ... done
[18:41:34.882] result() for ClusterFuture ...
[18:41:34.882] - result already collected: FutureResult
[18:41:34.882] result() for ClusterFuture ... done
[18:41:34.882] result() for ClusterFuture ...
[18:41:34.882] - result already collected: FutureResult
[18:41:34.882] result() for ClusterFuture ... done
[18:41:34.883] - relayed: [n=2] TRUE, FALSE
[18:41:34.883] - queued futures: [n=2] TRUE, FALSE
[18:41:34.883] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:34.883]  length: 1 (resolved future 1)
[18:41:34.883] Future #2
[18:41:34.883] result() for ClusterFuture ...
[18:41:34.884] - result already collected: FutureResult
[18:41:34.884] result() for ClusterFuture ... done
[18:41:34.884] result() for ClusterFuture ...
[18:41:34.884] - result already collected: FutureResult
[18:41:34.884] result() for ClusterFuture ... done
[18:41:34.884] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:34.885] - nx: 2
[18:41:34.885] - relay: TRUE
[18:41:34.885] - stdout: TRUE
[18:41:34.885] - signal: TRUE
[18:41:34.885] - resignal: FALSE
[18:41:34.885] - force: TRUE
[18:41:34.886] - relayed: [n=2] TRUE, FALSE
[18:41:34.886] - queued futures: [n=2] TRUE, FALSE
[18:41:34.886]  - until=2
[18:41:34.886]  - relaying element #2
[18:41:34.886] result() for ClusterFuture ...
[18:41:34.886] - result already collected: FutureResult
[18:41:34.887] result() for ClusterFuture ... done
[18:41:34.887] result() for ClusterFuture ...
[18:41:34.887] - result already collected: FutureResult
[18:41:34.887] result() for ClusterFuture ... done
[18:41:34.887] result() for ClusterFuture ...
[18:41:34.887] - result already collected: FutureResult
[18:41:34.888] result() for ClusterFuture ... done
[18:41:34.888] result() for ClusterFuture ...
[18:41:34.888] - result already collected: FutureResult
[18:41:34.888] result() for ClusterFuture ... done
[18:41:34.888] - relayed: [n=2] TRUE, TRUE
[18:41:34.888] - queued futures: [n=2] TRUE, TRUE
[18:41:34.889] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:34.889]  length: 0 (resolved future 2)
[18:41:34.889] Relaying remaining futures
[18:41:34.889] signalConditionsASAP(NULL, pos=0) ...
[18:41:34.889] - nx: 2
[18:41:34.889] - relay: TRUE
[18:41:34.890] - stdout: TRUE
[18:41:34.890] - signal: TRUE
[18:41:34.890] - resignal: FALSE
[18:41:34.890] - force: TRUE
[18:41:34.890] - relayed: [n=2] TRUE, TRUE
[18:41:34.890] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:34.891] - relayed: [n=2] TRUE, TRUE
[18:41:34.891] - queued futures: [n=2] TRUE, TRUE
[18:41:34.891] signalConditionsASAP(NULL, pos=0) ... done
[18:41:34.891] resolve() on list ... DONE
[18:41:34.891] result() for ClusterFuture ...
[18:41:34.891] - result already collected: FutureResult
[18:41:34.892] result() for ClusterFuture ... done
[18:41:34.892] result() for ClusterFuture ...
[18:41:34.892] - result already collected: FutureResult
[18:41:34.892] result() for ClusterFuture ... done
[18:41:34.892] result() for ClusterFuture ...
[18:41:34.892] - result already collected: FutureResult
[18:41:34.893] result() for ClusterFuture ... done
[18:41:34.893] result() for ClusterFuture ...
[18:41:34.893] - result already collected: FutureResult
[18:41:34.893] result() for ClusterFuture ... done
[18:41:34.893]  - Number of value chunks collected: 2
[18:41:34.894] Resolving 2 futures (chunks) ... DONE
[18:41:34.894] Reducing values from 2 chunks ...
[18:41:34.894]  - Number of values collected after concatenation: 5
[18:41:34.894]  - Number of values expected: 5
[18:41:34.894] Reducing values from 2 chunks ... DONE
[18:41:34.895] future_mapply() ... DONE
[18:41:34.895] future_mapply() ...
[18:41:34.898] Number of chunks: 3
[18:41:34.898] Index remapping (attribute 'ordering'): [n = 5] 1, 4, 2, 3, 5
[18:41:34.898] getGlobalsAndPackagesXApply() ...
[18:41:34.899]  - future.globals: TRUE
[18:41:34.899] getGlobalsAndPackages() ...
[18:41:34.899] Searching for globals...
[18:41:34.901] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:34.901] Searching for globals ... DONE
[18:41:34.901] Resolving globals: FALSE
[18:41:34.902] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:34.902] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:34.902] - globals: [1] 'FUN'
[18:41:34.903] 
[18:41:34.903] getGlobalsAndPackages() ... DONE
[18:41:34.903]  - globals found/used: [n=1] 'FUN'
[18:41:34.903]  - needed namespaces: [n=0] 
[18:41:34.903] Finding globals ... DONE
[18:41:34.904] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:34.904] List of 2
[18:41:34.904]  $ ...future.FUN:function (C, k)  
[18:41:34.904]  $ MoreArgs     : NULL
[18:41:34.904]  - attr(*, "where")=List of 2
[18:41:34.904]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:34.904]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:34.904]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:34.904]  - attr(*, "resolved")= logi FALSE
[18:41:34.904]  - attr(*, "total_size")= num NA
[18:41:34.907] Packages to be attached in all futures: [n=0] 
[18:41:34.908] getGlobalsAndPackagesXApply() ... DONE
[18:41:34.908] Number of futures (= number of chunks): 3
[18:41:34.908] Launching 3 futures (chunks) ...
[18:41:34.908] Chunk #1 of 3 ...
[18:41:34.908]  - Finding globals in '...' for chunk #1 ...
[18:41:34.909] getGlobalsAndPackages() ...
[18:41:34.909] Searching for globals...
[18:41:34.909] 
[18:41:34.909] Searching for globals ... DONE
[18:41:34.910] - globals: [0] <none>
[18:41:34.910] getGlobalsAndPackages() ... DONE
[18:41:34.910]    + additional globals found: [n=0] 
[18:41:34.910]    + additional namespaces needed: [n=0] 
[18:41:34.910]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:34.910]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[18:41:34.911]  - seeds: <none>
[18:41:34.911]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.911] getGlobalsAndPackages() ...
[18:41:34.911] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.911] Resolving globals: FALSE
[18:41:34.912] The total size of the 5 globals is 876 bytes (876 bytes)
[18:41:34.913] 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 876 bytes.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.913] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.913] 
[18:41:34.913] getGlobalsAndPackages() ... DONE
[18:41:34.914] run() for 'Future' ...
[18:41:34.914] - state: 'created'
[18:41:34.914] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.930] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.930] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.930]   - Field: 'node'
[18:41:34.931]   - Field: 'label'
[18:41:34.931]   - Field: 'local'
[18:41:34.931]   - Field: 'owner'
[18:41:34.931]   - Field: 'envir'
[18:41:34.931]   - Field: 'workers'
[18:41:34.932]   - Field: 'packages'
[18:41:34.932]   - Field: 'gc'
[18:41:34.932]   - Field: 'conditions'
[18:41:34.932]   - Field: 'persistent'
[18:41:34.932]   - Field: 'expr'
[18:41:34.932]   - Field: 'uuid'
[18:41:34.933]   - Field: 'seed'
[18:41:34.933]   - Field: 'version'
[18:41:34.933]   - Field: 'result'
[18:41:34.933]   - Field: 'asynchronous'
[18:41:34.933]   - Field: 'calls'
[18:41:34.934]   - Field: 'globals'
[18:41:34.934]   - Field: 'stdout'
[18:41:34.934]   - Field: 'earlySignal'
[18:41:34.934]   - Field: 'lazy'
[18:41:34.934]   - Field: 'state'
[18:41:34.934] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.935] - Launch lazy future ...
[18:41:34.935] Packages needed by the future expression (n = 0): <none>
[18:41:34.935] Packages needed by future strategies (n = 0): <none>
[18:41:34.936] {
[18:41:34.936]     {
[18:41:34.936]         {
[18:41:34.936]             ...future.startTime <- base::Sys.time()
[18:41:34.936]             {
[18:41:34.936]                 {
[18:41:34.936]                   {
[18:41:34.936]                     {
[18:41:34.936]                       base::local({
[18:41:34.936]                         has_future <- base::requireNamespace("future", 
[18:41:34.936]                           quietly = TRUE)
[18:41:34.936]                         if (has_future) {
[18:41:34.936]                           ns <- base::getNamespace("future")
[18:41:34.936]                           version <- ns[[".package"]][["version"]]
[18:41:34.936]                           if (is.null(version)) 
[18:41:34.936]                             version <- utils::packageVersion("future")
[18:41:34.936]                         }
[18:41:34.936]                         else {
[18:41:34.936]                           version <- NULL
[18:41:34.936]                         }
[18:41:34.936]                         if (!has_future || version < "1.8.0") {
[18:41:34.936]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:34.936]                             "", base::R.version$version.string), 
[18:41:34.936]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:34.936]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:34.936]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:34.936]                               "release", "version")], collapse = " "), 
[18:41:34.936]                             hostname = base::Sys.info()[["nodename"]])
[18:41:34.936]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:34.936]                             info)
[18:41:34.936]                           info <- base::paste(info, collapse = "; ")
[18:41:34.936]                           if (!has_future) {
[18:41:34.936]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:34.936]                               info)
[18:41:34.936]                           }
[18:41:34.936]                           else {
[18:41:34.936]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:34.936]                               info, version)
[18:41:34.936]                           }
[18:41:34.936]                           base::stop(msg)
[18:41:34.936]                         }
[18:41:34.936]                       })
[18:41:34.936]                     }
[18:41:34.936]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:34.936]                     base::options(mc.cores = 1L)
[18:41:34.936]                   }
[18:41:34.936]                   ...future.strategy.old <- future::plan("list")
[18:41:34.936]                   options(future.plan = NULL)
[18:41:34.936]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.936]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:34.936]                 }
[18:41:34.936]                 ...future.workdir <- getwd()
[18:41:34.936]             }
[18:41:34.936]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:34.936]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:34.936]         }
[18:41:34.936]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:34.936]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[18:41:34.936]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:34.936]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:34.936]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:34.936]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:34.936]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:34.936]             base::names(...future.oldOptions))
[18:41:34.936]     }
[18:41:34.936]     if (FALSE) {
[18:41:34.936]     }
[18:41:34.936]     else {
[18:41:34.936]         if (TRUE) {
[18:41:34.936]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:34.936]                 open = "w")
[18:41:34.936]         }
[18:41:34.936]         else {
[18:41:34.936]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:34.936]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:34.936]         }
[18:41:34.936]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:34.936]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:34.936]             base::sink(type = "output", split = FALSE)
[18:41:34.936]             base::close(...future.stdout)
[18:41:34.936]         }, add = TRUE)
[18:41:34.936]     }
[18:41:34.936]     ...future.frame <- base::sys.nframe()
[18:41:34.936]     ...future.conditions <- base::list()
[18:41:34.936]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:34.936]     if (FALSE) {
[18:41:34.936]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:34.936]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:34.936]     }
[18:41:34.936]     ...future.result <- base::tryCatch({
[18:41:34.936]         base::withCallingHandlers({
[18:41:34.936]             ...future.value <- base::withVisible(base::local({
[18:41:34.936]                 ...future.makeSendCondition <- base::local({
[18:41:34.936]                   sendCondition <- NULL
[18:41:34.936]                   function(frame = 1L) {
[18:41:34.936]                     if (is.function(sendCondition)) 
[18:41:34.936]                       return(sendCondition)
[18:41:34.936]                     ns <- getNamespace("parallel")
[18:41:34.936]                     if (exists("sendData", mode = "function", 
[18:41:34.936]                       envir = ns)) {
[18:41:34.936]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:34.936]                         envir = ns)
[18:41:34.936]                       envir <- sys.frame(frame)
[18:41:34.936]                       master <- NULL
[18:41:34.936]                       while (!identical(envir, .GlobalEnv) && 
[18:41:34.936]                         !identical(envir, emptyenv())) {
[18:41:34.936]                         if (exists("master", mode = "list", envir = envir, 
[18:41:34.936]                           inherits = FALSE)) {
[18:41:34.936]                           master <- get("master", mode = "list", 
[18:41:34.936]                             envir = envir, inherits = FALSE)
[18:41:34.936]                           if (inherits(master, c("SOCKnode", 
[18:41:34.936]                             "SOCK0node"))) {
[18:41:34.936]                             sendCondition <<- function(cond) {
[18:41:34.936]                               data <- list(type = "VALUE", value = cond, 
[18:41:34.936]                                 success = TRUE)
[18:41:34.936]                               parallel_sendData(master, data)
[18:41:34.936]                             }
[18:41:34.936]                             return(sendCondition)
[18:41:34.936]                           }
[18:41:34.936]                         }
[18:41:34.936]                         frame <- frame + 1L
[18:41:34.936]                         envir <- sys.frame(frame)
[18:41:34.936]                       }
[18:41:34.936]                     }
[18:41:34.936]                     sendCondition <<- function(cond) NULL
[18:41:34.936]                   }
[18:41:34.936]                 })
[18:41:34.936]                 withCallingHandlers({
[18:41:34.936]                   {
[18:41:34.936]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.936]                     if (!identical(...future.globals.maxSize.org, 
[18:41:34.936]                       ...future.globals.maxSize)) {
[18:41:34.936]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.936]                       on.exit(options(oopts), add = TRUE)
[18:41:34.936]                     }
[18:41:34.936]                     {
[18:41:34.936]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.936]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:34.936]                         USE.NAMES = FALSE)
[18:41:34.936]                       do.call(mapply, args = args)
[18:41:34.936]                     }
[18:41:34.936]                   }
[18:41:34.936]                 }, immediateCondition = function(cond) {
[18:41:34.936]                   sendCondition <- ...future.makeSendCondition()
[18:41:34.936]                   sendCondition(cond)
[18:41:34.936]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.936]                   {
[18:41:34.936]                     inherits <- base::inherits
[18:41:34.936]                     invokeRestart <- base::invokeRestart
[18:41:34.936]                     is.null <- base::is.null
[18:41:34.936]                     muffled <- FALSE
[18:41:34.936]                     if (inherits(cond, "message")) {
[18:41:34.936]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:34.936]                       if (muffled) 
[18:41:34.936]                         invokeRestart("muffleMessage")
[18:41:34.936]                     }
[18:41:34.936]                     else if (inherits(cond, "warning")) {
[18:41:34.936]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:34.936]                       if (muffled) 
[18:41:34.936]                         invokeRestart("muffleWarning")
[18:41:34.936]                     }
[18:41:34.936]                     else if (inherits(cond, "condition")) {
[18:41:34.936]                       if (!is.null(pattern)) {
[18:41:34.936]                         computeRestarts <- base::computeRestarts
[18:41:34.936]                         grepl <- base::grepl
[18:41:34.936]                         restarts <- computeRestarts(cond)
[18:41:34.936]                         for (restart in restarts) {
[18:41:34.936]                           name <- restart$name
[18:41:34.936]                           if (is.null(name)) 
[18:41:34.936]                             next
[18:41:34.936]                           if (!grepl(pattern, name)) 
[18:41:34.936]                             next
[18:41:34.936]                           invokeRestart(restart)
[18:41:34.936]                           muffled <- TRUE
[18:41:34.936]                           break
[18:41:34.936]                         }
[18:41:34.936]                       }
[18:41:34.936]                     }
[18:41:34.936]                     invisible(muffled)
[18:41:34.936]                   }
[18:41:34.936]                   muffleCondition(cond)
[18:41:34.936]                 })
[18:41:34.936]             }))
[18:41:34.936]             future::FutureResult(value = ...future.value$value, 
[18:41:34.936]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.936]                   ...future.rng), globalenv = if (FALSE) 
[18:41:34.936]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:34.936]                     ...future.globalenv.names))
[18:41:34.936]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:34.936]         }, condition = base::local({
[18:41:34.936]             c <- base::c
[18:41:34.936]             inherits <- base::inherits
[18:41:34.936]             invokeRestart <- base::invokeRestart
[18:41:34.936]             length <- base::length
[18:41:34.936]             list <- base::list
[18:41:34.936]             seq.int <- base::seq.int
[18:41:34.936]             signalCondition <- base::signalCondition
[18:41:34.936]             sys.calls <- base::sys.calls
[18:41:34.936]             `[[` <- base::`[[`
[18:41:34.936]             `+` <- base::`+`
[18:41:34.936]             `<<-` <- base::`<<-`
[18:41:34.936]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:34.936]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:34.936]                   3L)]
[18:41:34.936]             }
[18:41:34.936]             function(cond) {
[18:41:34.936]                 is_error <- inherits(cond, "error")
[18:41:34.936]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:34.936]                   NULL)
[18:41:34.936]                 if (is_error) {
[18:41:34.936]                   sessionInformation <- function() {
[18:41:34.936]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:34.936]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:34.936]                       search = base::search(), system = base::Sys.info())
[18:41:34.936]                   }
[18:41:34.936]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.936]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:34.936]                     cond$call), session = sessionInformation(), 
[18:41:34.936]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:34.936]                   signalCondition(cond)
[18:41:34.936]                 }
[18:41:34.936]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:34.936]                 "immediateCondition"))) {
[18:41:34.936]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:34.936]                   ...future.conditions[[length(...future.conditions) + 
[18:41:34.936]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:34.936]                   if (TRUE && !signal) {
[18:41:34.936]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.936]                     {
[18:41:34.936]                       inherits <- base::inherits
[18:41:34.936]                       invokeRestart <- base::invokeRestart
[18:41:34.936]                       is.null <- base::is.null
[18:41:34.936]                       muffled <- FALSE
[18:41:34.936]                       if (inherits(cond, "message")) {
[18:41:34.936]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.936]                         if (muffled) 
[18:41:34.936]                           invokeRestart("muffleMessage")
[18:41:34.936]                       }
[18:41:34.936]                       else if (inherits(cond, "warning")) {
[18:41:34.936]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.936]                         if (muffled) 
[18:41:34.936]                           invokeRestart("muffleWarning")
[18:41:34.936]                       }
[18:41:34.936]                       else if (inherits(cond, "condition")) {
[18:41:34.936]                         if (!is.null(pattern)) {
[18:41:34.936]                           computeRestarts <- base::computeRestarts
[18:41:34.936]                           grepl <- base::grepl
[18:41:34.936]                           restarts <- computeRestarts(cond)
[18:41:34.936]                           for (restart in restarts) {
[18:41:34.936]                             name <- restart$name
[18:41:34.936]                             if (is.null(name)) 
[18:41:34.936]                               next
[18:41:34.936]                             if (!grepl(pattern, name)) 
[18:41:34.936]                               next
[18:41:34.936]                             invokeRestart(restart)
[18:41:34.936]                             muffled <- TRUE
[18:41:34.936]                             break
[18:41:34.936]                           }
[18:41:34.936]                         }
[18:41:34.936]                       }
[18:41:34.936]                       invisible(muffled)
[18:41:34.936]                     }
[18:41:34.936]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.936]                   }
[18:41:34.936]                 }
[18:41:34.936]                 else {
[18:41:34.936]                   if (TRUE) {
[18:41:34.936]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:34.936]                     {
[18:41:34.936]                       inherits <- base::inherits
[18:41:34.936]                       invokeRestart <- base::invokeRestart
[18:41:34.936]                       is.null <- base::is.null
[18:41:34.936]                       muffled <- FALSE
[18:41:34.936]                       if (inherits(cond, "message")) {
[18:41:34.936]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:34.936]                         if (muffled) 
[18:41:34.936]                           invokeRestart("muffleMessage")
[18:41:34.936]                       }
[18:41:34.936]                       else if (inherits(cond, "warning")) {
[18:41:34.936]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:34.936]                         if (muffled) 
[18:41:34.936]                           invokeRestart("muffleWarning")
[18:41:34.936]                       }
[18:41:34.936]                       else if (inherits(cond, "condition")) {
[18:41:34.936]                         if (!is.null(pattern)) {
[18:41:34.936]                           computeRestarts <- base::computeRestarts
[18:41:34.936]                           grepl <- base::grepl
[18:41:34.936]                           restarts <- computeRestarts(cond)
[18:41:34.936]                           for (restart in restarts) {
[18:41:34.936]                             name <- restart$name
[18:41:34.936]                             if (is.null(name)) 
[18:41:34.936]                               next
[18:41:34.936]                             if (!grepl(pattern, name)) 
[18:41:34.936]                               next
[18:41:34.936]                             invokeRestart(restart)
[18:41:34.936]                             muffled <- TRUE
[18:41:34.936]                             break
[18:41:34.936]                           }
[18:41:34.936]                         }
[18:41:34.936]                       }
[18:41:34.936]                       invisible(muffled)
[18:41:34.936]                     }
[18:41:34.936]                     muffleCondition(cond, pattern = "^muffle")
[18:41:34.936]                   }
[18:41:34.936]                 }
[18:41:34.936]             }
[18:41:34.936]         }))
[18:41:34.936]     }, error = function(ex) {
[18:41:34.936]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:34.936]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:34.936]                 ...future.rng), started = ...future.startTime, 
[18:41:34.936]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:34.936]             version = "1.8"), class = "FutureResult")
[18:41:34.936]     }, finally = {
[18:41:34.936]         if (!identical(...future.workdir, getwd())) 
[18:41:34.936]             setwd(...future.workdir)
[18:41:34.936]         {
[18:41:34.936]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:34.936]                 ...future.oldOptions$nwarnings <- NULL
[18:41:34.936]             }
[18:41:34.936]             base::options(...future.oldOptions)
[18:41:34.936]             if (.Platform$OS.type == "windows") {
[18:41:34.936]                 old_names <- names(...future.oldEnvVars)
[18:41:34.936]                 envs <- base::Sys.getenv()
[18:41:34.936]                 names <- names(envs)
[18:41:34.936]                 common <- intersect(names, old_names)
[18:41:34.936]                 added <- setdiff(names, old_names)
[18:41:34.936]                 removed <- setdiff(old_names, names)
[18:41:34.936]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:34.936]                   envs[common]]
[18:41:34.936]                 NAMES <- toupper(changed)
[18:41:34.936]                 args <- list()
[18:41:34.936]                 for (kk in seq_along(NAMES)) {
[18:41:34.936]                   name <- changed[[kk]]
[18:41:34.936]                   NAME <- NAMES[[kk]]
[18:41:34.936]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.936]                     next
[18:41:34.936]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.936]                 }
[18:41:34.936]                 NAMES <- toupper(added)
[18:41:34.936]                 for (kk in seq_along(NAMES)) {
[18:41:34.936]                   name <- added[[kk]]
[18:41:34.936]                   NAME <- NAMES[[kk]]
[18:41:34.936]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.936]                     next
[18:41:34.936]                   args[[name]] <- ""
[18:41:34.936]                 }
[18:41:34.936]                 NAMES <- toupper(removed)
[18:41:34.936]                 for (kk in seq_along(NAMES)) {
[18:41:34.936]                   name <- removed[[kk]]
[18:41:34.936]                   NAME <- NAMES[[kk]]
[18:41:34.936]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:34.936]                     next
[18:41:34.936]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:34.936]                 }
[18:41:34.936]                 if (length(args) > 0) 
[18:41:34.936]                   base::do.call(base::Sys.setenv, args = args)
[18:41:34.936]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:34.936]             }
[18:41:34.936]             else {
[18:41:34.936]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:34.936]             }
[18:41:34.936]             {
[18:41:34.936]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:34.936]                   0L) {
[18:41:34.936]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:34.936]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:34.936]                   base::options(opts)
[18:41:34.936]                 }
[18:41:34.936]                 {
[18:41:34.936]                   {
[18:41:34.936]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:34.936]                     NULL
[18:41:34.936]                   }
[18:41:34.936]                   options(future.plan = NULL)
[18:41:34.936]                   if (is.na(NA_character_)) 
[18:41:34.936]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:34.936]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:34.936]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:34.936]                     .init = FALSE)
[18:41:34.936]                 }
[18:41:34.936]             }
[18:41:34.936]         }
[18:41:34.936]     })
[18:41:34.936]     if (TRUE) {
[18:41:34.936]         base::sink(type = "output", split = FALSE)
[18:41:34.936]         if (TRUE) {
[18:41:34.936]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:34.936]         }
[18:41:34.936]         else {
[18:41:34.936]             ...future.result["stdout"] <- base::list(NULL)
[18:41:34.936]         }
[18:41:34.936]         base::close(...future.stdout)
[18:41:34.936]         ...future.stdout <- NULL
[18:41:34.936]     }
[18:41:34.936]     ...future.result$conditions <- ...future.conditions
[18:41:34.936]     ...future.result$finished <- base::Sys.time()
[18:41:34.936]     ...future.result
[18:41:34.936] }
[18:41:34.942] Exporting 5 global objects (1.29 KiB) to cluster node #1 ...
[18:41:34.942] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:34.942] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:34.943] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:34.943] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:34.943] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ...
[18:41:34.944] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ... DONE
[18:41:34.944] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:34.945] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:34.945] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:34.945] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:34.945] Exporting 5 global objects (1.29 KiB) to cluster node #1 ... DONE
[18:41:34.946] MultisessionFuture started
[18:41:34.947] - Launch lazy future ... done
[18:41:34.947] run() for 'MultisessionFuture' ... done
[18:41:34.947] Created future:
[18:41:34.969] receiveMessageFromWorker() for ClusterFuture ...
[18:41:34.969] - Validating connection of MultisessionFuture
[18:41:34.969] - received message: FutureResult
[18:41:34.970] - Received FutureResult
[18:41:34.970] - Erased future from FutureRegistry
[18:41:34.970] result() for ClusterFuture ...
[18:41:34.970] - result already collected: FutureResult
[18:41:34.970] result() for ClusterFuture ... done
[18:41:34.971] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:34.947] MultisessionFuture:
[18:41:34.947] Label: 'future_mapply-1'
[18:41:34.947] Expression:
[18:41:34.947] {
[18:41:34.947]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:34.947]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:34.947]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:34.947]         on.exit(options(oopts), add = TRUE)
[18:41:34.947]     }
[18:41:34.947]     {
[18:41:34.947]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:34.947]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:34.947]         do.call(mapply, args = args)
[18:41:34.947]     }
[18:41:34.947] }
[18:41:34.947] Lazy evaluation: FALSE
[18:41:34.947] Asynchronous evaluation: TRUE
[18:41:34.947] Local evaluation: TRUE
[18:41:34.947] Environment: R_GlobalEnv
[18:41:34.947] Capture standard output: TRUE
[18:41:34.947] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:34.947] Globals: 5 objects totaling 876 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:34.947] Packages: <none>
[18:41:34.947] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:34.947] Resolved: TRUE
[18:41:34.947] Value: <not collected>
[18:41:34.947] Conditions captured: <none>
[18:41:34.947] Early signaling: FALSE
[18:41:34.947] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:34.947] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.971] Chunk #1 of 3 ... DONE
[18:41:34.971] Chunk #2 of 3 ...
[18:41:34.971]  - Finding globals in '...' for chunk #2 ...
[18:41:34.972] getGlobalsAndPackages() ...
[18:41:34.972] Searching for globals...
[18:41:34.972] 
[18:41:34.973] Searching for globals ... DONE
[18:41:34.973] - globals: [0] <none>
[18:41:34.973] getGlobalsAndPackages() ... DONE
[18:41:34.973]    + additional globals found: [n=0] 
[18:41:34.973]    + additional namespaces needed: [n=0] 
[18:41:34.973]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:34.974]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[18:41:34.974]  - seeds: <none>
[18:41:34.974]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.974] getGlobalsAndPackages() ...
[18:41:34.974] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.975] Resolving globals: FALSE
[18:41:34.975] The total size of the 5 globals is 847 bytes (847 bytes)
[18:41:34.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 847 bytes.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (76 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:34.976] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:34.976] 
[18:41:34.977] getGlobalsAndPackages() ... DONE
[18:41:34.977] run() for 'Future' ...
[18:41:34.977] - state: 'created'
[18:41:34.978] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:34.994] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:34.994] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:34.994]   - Field: 'node'
[18:41:34.994]   - Field: 'label'
[18:41:34.995]   - Field: 'local'
[18:41:34.995]   - Field: 'owner'
[18:41:34.995]   - Field: 'envir'
[18:41:34.995]   - Field: 'workers'
[18:41:34.995]   - Field: 'packages'
[18:41:34.996]   - Field: 'gc'
[18:41:34.996]   - Field: 'conditions'
[18:41:34.996]   - Field: 'persistent'
[18:41:34.996]   - Field: 'expr'
[18:41:34.996]   - Field: 'uuid'
[18:41:34.996]   - Field: 'seed'
[18:41:34.997]   - Field: 'version'
[18:41:34.997]   - Field: 'result'
[18:41:34.997]   - Field: 'asynchronous'
[18:41:34.997]   - Field: 'calls'
[18:41:34.997]   - Field: 'globals'
[18:41:34.997]   - Field: 'stdout'
[18:41:34.998]   - Field: 'earlySignal'
[18:41:34.998]   - Field: 'lazy'
[18:41:34.998]   - Field: 'state'
[18:41:34.998] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:34.998] - Launch lazy future ...
[18:41:34.999] Packages needed by the future expression (n = 0): <none>
[18:41:34.999] Packages needed by future strategies (n = 0): <none>
[18:41:35.000] {
[18:41:35.000]     {
[18:41:35.000]         {
[18:41:35.000]             ...future.startTime <- base::Sys.time()
[18:41:35.000]             {
[18:41:35.000]                 {
[18:41:35.000]                   {
[18:41:35.000]                     {
[18:41:35.000]                       base::local({
[18:41:35.000]                         has_future <- base::requireNamespace("future", 
[18:41:35.000]                           quietly = TRUE)
[18:41:35.000]                         if (has_future) {
[18:41:35.000]                           ns <- base::getNamespace("future")
[18:41:35.000]                           version <- ns[[".package"]][["version"]]
[18:41:35.000]                           if (is.null(version)) 
[18:41:35.000]                             version <- utils::packageVersion("future")
[18:41:35.000]                         }
[18:41:35.000]                         else {
[18:41:35.000]                           version <- NULL
[18:41:35.000]                         }
[18:41:35.000]                         if (!has_future || version < "1.8.0") {
[18:41:35.000]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.000]                             "", base::R.version$version.string), 
[18:41:35.000]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.000]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.000]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.000]                               "release", "version")], collapse = " "), 
[18:41:35.000]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.000]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.000]                             info)
[18:41:35.000]                           info <- base::paste(info, collapse = "; ")
[18:41:35.000]                           if (!has_future) {
[18:41:35.000]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.000]                               info)
[18:41:35.000]                           }
[18:41:35.000]                           else {
[18:41:35.000]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.000]                               info, version)
[18:41:35.000]                           }
[18:41:35.000]                           base::stop(msg)
[18:41:35.000]                         }
[18:41:35.000]                       })
[18:41:35.000]                     }
[18:41:35.000]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.000]                     base::options(mc.cores = 1L)
[18:41:35.000]                   }
[18:41:35.000]                   ...future.strategy.old <- future::plan("list")
[18:41:35.000]                   options(future.plan = NULL)
[18:41:35.000]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.000]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.000]                 }
[18:41:35.000]                 ...future.workdir <- getwd()
[18:41:35.000]             }
[18:41:35.000]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.000]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.000]         }
[18:41:35.000]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.000]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[18:41:35.000]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.000]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.000]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.000]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.000]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.000]             base::names(...future.oldOptions))
[18:41:35.000]     }
[18:41:35.000]     if (FALSE) {
[18:41:35.000]     }
[18:41:35.000]     else {
[18:41:35.000]         if (TRUE) {
[18:41:35.000]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.000]                 open = "w")
[18:41:35.000]         }
[18:41:35.000]         else {
[18:41:35.000]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.000]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.000]         }
[18:41:35.000]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.000]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.000]             base::sink(type = "output", split = FALSE)
[18:41:35.000]             base::close(...future.stdout)
[18:41:35.000]         }, add = TRUE)
[18:41:35.000]     }
[18:41:35.000]     ...future.frame <- base::sys.nframe()
[18:41:35.000]     ...future.conditions <- base::list()
[18:41:35.000]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.000]     if (FALSE) {
[18:41:35.000]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.000]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.000]     }
[18:41:35.000]     ...future.result <- base::tryCatch({
[18:41:35.000]         base::withCallingHandlers({
[18:41:35.000]             ...future.value <- base::withVisible(base::local({
[18:41:35.000]                 ...future.makeSendCondition <- base::local({
[18:41:35.000]                   sendCondition <- NULL
[18:41:35.000]                   function(frame = 1L) {
[18:41:35.000]                     if (is.function(sendCondition)) 
[18:41:35.000]                       return(sendCondition)
[18:41:35.000]                     ns <- getNamespace("parallel")
[18:41:35.000]                     if (exists("sendData", mode = "function", 
[18:41:35.000]                       envir = ns)) {
[18:41:35.000]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.000]                         envir = ns)
[18:41:35.000]                       envir <- sys.frame(frame)
[18:41:35.000]                       master <- NULL
[18:41:35.000]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.000]                         !identical(envir, emptyenv())) {
[18:41:35.000]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.000]                           inherits = FALSE)) {
[18:41:35.000]                           master <- get("master", mode = "list", 
[18:41:35.000]                             envir = envir, inherits = FALSE)
[18:41:35.000]                           if (inherits(master, c("SOCKnode", 
[18:41:35.000]                             "SOCK0node"))) {
[18:41:35.000]                             sendCondition <<- function(cond) {
[18:41:35.000]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.000]                                 success = TRUE)
[18:41:35.000]                               parallel_sendData(master, data)
[18:41:35.000]                             }
[18:41:35.000]                             return(sendCondition)
[18:41:35.000]                           }
[18:41:35.000]                         }
[18:41:35.000]                         frame <- frame + 1L
[18:41:35.000]                         envir <- sys.frame(frame)
[18:41:35.000]                       }
[18:41:35.000]                     }
[18:41:35.000]                     sendCondition <<- function(cond) NULL
[18:41:35.000]                   }
[18:41:35.000]                 })
[18:41:35.000]                 withCallingHandlers({
[18:41:35.000]                   {
[18:41:35.000]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.000]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.000]                       ...future.globals.maxSize)) {
[18:41:35.000]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.000]                       on.exit(options(oopts), add = TRUE)
[18:41:35.000]                     }
[18:41:35.000]                     {
[18:41:35.000]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.000]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.000]                         USE.NAMES = FALSE)
[18:41:35.000]                       do.call(mapply, args = args)
[18:41:35.000]                     }
[18:41:35.000]                   }
[18:41:35.000]                 }, immediateCondition = function(cond) {
[18:41:35.000]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.000]                   sendCondition(cond)
[18:41:35.000]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.000]                   {
[18:41:35.000]                     inherits <- base::inherits
[18:41:35.000]                     invokeRestart <- base::invokeRestart
[18:41:35.000]                     is.null <- base::is.null
[18:41:35.000]                     muffled <- FALSE
[18:41:35.000]                     if (inherits(cond, "message")) {
[18:41:35.000]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.000]                       if (muffled) 
[18:41:35.000]                         invokeRestart("muffleMessage")
[18:41:35.000]                     }
[18:41:35.000]                     else if (inherits(cond, "warning")) {
[18:41:35.000]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.000]                       if (muffled) 
[18:41:35.000]                         invokeRestart("muffleWarning")
[18:41:35.000]                     }
[18:41:35.000]                     else if (inherits(cond, "condition")) {
[18:41:35.000]                       if (!is.null(pattern)) {
[18:41:35.000]                         computeRestarts <- base::computeRestarts
[18:41:35.000]                         grepl <- base::grepl
[18:41:35.000]                         restarts <- computeRestarts(cond)
[18:41:35.000]                         for (restart in restarts) {
[18:41:35.000]                           name <- restart$name
[18:41:35.000]                           if (is.null(name)) 
[18:41:35.000]                             next
[18:41:35.000]                           if (!grepl(pattern, name)) 
[18:41:35.000]                             next
[18:41:35.000]                           invokeRestart(restart)
[18:41:35.000]                           muffled <- TRUE
[18:41:35.000]                           break
[18:41:35.000]                         }
[18:41:35.000]                       }
[18:41:35.000]                     }
[18:41:35.000]                     invisible(muffled)
[18:41:35.000]                   }
[18:41:35.000]                   muffleCondition(cond)
[18:41:35.000]                 })
[18:41:35.000]             }))
[18:41:35.000]             future::FutureResult(value = ...future.value$value, 
[18:41:35.000]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.000]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.000]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.000]                     ...future.globalenv.names))
[18:41:35.000]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.000]         }, condition = base::local({
[18:41:35.000]             c <- base::c
[18:41:35.000]             inherits <- base::inherits
[18:41:35.000]             invokeRestart <- base::invokeRestart
[18:41:35.000]             length <- base::length
[18:41:35.000]             list <- base::list
[18:41:35.000]             seq.int <- base::seq.int
[18:41:35.000]             signalCondition <- base::signalCondition
[18:41:35.000]             sys.calls <- base::sys.calls
[18:41:35.000]             `[[` <- base::`[[`
[18:41:35.000]             `+` <- base::`+`
[18:41:35.000]             `<<-` <- base::`<<-`
[18:41:35.000]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.000]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.000]                   3L)]
[18:41:35.000]             }
[18:41:35.000]             function(cond) {
[18:41:35.000]                 is_error <- inherits(cond, "error")
[18:41:35.000]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.000]                   NULL)
[18:41:35.000]                 if (is_error) {
[18:41:35.000]                   sessionInformation <- function() {
[18:41:35.000]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.000]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.000]                       search = base::search(), system = base::Sys.info())
[18:41:35.000]                   }
[18:41:35.000]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.000]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.000]                     cond$call), session = sessionInformation(), 
[18:41:35.000]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.000]                   signalCondition(cond)
[18:41:35.000]                 }
[18:41:35.000]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.000]                 "immediateCondition"))) {
[18:41:35.000]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.000]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.000]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.000]                   if (TRUE && !signal) {
[18:41:35.000]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.000]                     {
[18:41:35.000]                       inherits <- base::inherits
[18:41:35.000]                       invokeRestart <- base::invokeRestart
[18:41:35.000]                       is.null <- base::is.null
[18:41:35.000]                       muffled <- FALSE
[18:41:35.000]                       if (inherits(cond, "message")) {
[18:41:35.000]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.000]                         if (muffled) 
[18:41:35.000]                           invokeRestart("muffleMessage")
[18:41:35.000]                       }
[18:41:35.000]                       else if (inherits(cond, "warning")) {
[18:41:35.000]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.000]                         if (muffled) 
[18:41:35.000]                           invokeRestart("muffleWarning")
[18:41:35.000]                       }
[18:41:35.000]                       else if (inherits(cond, "condition")) {
[18:41:35.000]                         if (!is.null(pattern)) {
[18:41:35.000]                           computeRestarts <- base::computeRestarts
[18:41:35.000]                           grepl <- base::grepl
[18:41:35.000]                           restarts <- computeRestarts(cond)
[18:41:35.000]                           for (restart in restarts) {
[18:41:35.000]                             name <- restart$name
[18:41:35.000]                             if (is.null(name)) 
[18:41:35.000]                               next
[18:41:35.000]                             if (!grepl(pattern, name)) 
[18:41:35.000]                               next
[18:41:35.000]                             invokeRestart(restart)
[18:41:35.000]                             muffled <- TRUE
[18:41:35.000]                             break
[18:41:35.000]                           }
[18:41:35.000]                         }
[18:41:35.000]                       }
[18:41:35.000]                       invisible(muffled)
[18:41:35.000]                     }
[18:41:35.000]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.000]                   }
[18:41:35.000]                 }
[18:41:35.000]                 else {
[18:41:35.000]                   if (TRUE) {
[18:41:35.000]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.000]                     {
[18:41:35.000]                       inherits <- base::inherits
[18:41:35.000]                       invokeRestart <- base::invokeRestart
[18:41:35.000]                       is.null <- base::is.null
[18:41:35.000]                       muffled <- FALSE
[18:41:35.000]                       if (inherits(cond, "message")) {
[18:41:35.000]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.000]                         if (muffled) 
[18:41:35.000]                           invokeRestart("muffleMessage")
[18:41:35.000]                       }
[18:41:35.000]                       else if (inherits(cond, "warning")) {
[18:41:35.000]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.000]                         if (muffled) 
[18:41:35.000]                           invokeRestart("muffleWarning")
[18:41:35.000]                       }
[18:41:35.000]                       else if (inherits(cond, "condition")) {
[18:41:35.000]                         if (!is.null(pattern)) {
[18:41:35.000]                           computeRestarts <- base::computeRestarts
[18:41:35.000]                           grepl <- base::grepl
[18:41:35.000]                           restarts <- computeRestarts(cond)
[18:41:35.000]                           for (restart in restarts) {
[18:41:35.000]                             name <- restart$name
[18:41:35.000]                             if (is.null(name)) 
[18:41:35.000]                               next
[18:41:35.000]                             if (!grepl(pattern, name)) 
[18:41:35.000]                               next
[18:41:35.000]                             invokeRestart(restart)
[18:41:35.000]                             muffled <- TRUE
[18:41:35.000]                             break
[18:41:35.000]                           }
[18:41:35.000]                         }
[18:41:35.000]                       }
[18:41:35.000]                       invisible(muffled)
[18:41:35.000]                     }
[18:41:35.000]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.000]                   }
[18:41:35.000]                 }
[18:41:35.000]             }
[18:41:35.000]         }))
[18:41:35.000]     }, error = function(ex) {
[18:41:35.000]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.000]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.000]                 ...future.rng), started = ...future.startTime, 
[18:41:35.000]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.000]             version = "1.8"), class = "FutureResult")
[18:41:35.000]     }, finally = {
[18:41:35.000]         if (!identical(...future.workdir, getwd())) 
[18:41:35.000]             setwd(...future.workdir)
[18:41:35.000]         {
[18:41:35.000]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.000]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.000]             }
[18:41:35.000]             base::options(...future.oldOptions)
[18:41:35.000]             if (.Platform$OS.type == "windows") {
[18:41:35.000]                 old_names <- names(...future.oldEnvVars)
[18:41:35.000]                 envs <- base::Sys.getenv()
[18:41:35.000]                 names <- names(envs)
[18:41:35.000]                 common <- intersect(names, old_names)
[18:41:35.000]                 added <- setdiff(names, old_names)
[18:41:35.000]                 removed <- setdiff(old_names, names)
[18:41:35.000]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.000]                   envs[common]]
[18:41:35.000]                 NAMES <- toupper(changed)
[18:41:35.000]                 args <- list()
[18:41:35.000]                 for (kk in seq_along(NAMES)) {
[18:41:35.000]                   name <- changed[[kk]]
[18:41:35.000]                   NAME <- NAMES[[kk]]
[18:41:35.000]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.000]                     next
[18:41:35.000]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.000]                 }
[18:41:35.000]                 NAMES <- toupper(added)
[18:41:35.000]                 for (kk in seq_along(NAMES)) {
[18:41:35.000]                   name <- added[[kk]]
[18:41:35.000]                   NAME <- NAMES[[kk]]
[18:41:35.000]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.000]                     next
[18:41:35.000]                   args[[name]] <- ""
[18:41:35.000]                 }
[18:41:35.000]                 NAMES <- toupper(removed)
[18:41:35.000]                 for (kk in seq_along(NAMES)) {
[18:41:35.000]                   name <- removed[[kk]]
[18:41:35.000]                   NAME <- NAMES[[kk]]
[18:41:35.000]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.000]                     next
[18:41:35.000]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.000]                 }
[18:41:35.000]                 if (length(args) > 0) 
[18:41:35.000]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.000]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.000]             }
[18:41:35.000]             else {
[18:41:35.000]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.000]             }
[18:41:35.000]             {
[18:41:35.000]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.000]                   0L) {
[18:41:35.000]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.000]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.000]                   base::options(opts)
[18:41:35.000]                 }
[18:41:35.000]                 {
[18:41:35.000]                   {
[18:41:35.000]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.000]                     NULL
[18:41:35.000]                   }
[18:41:35.000]                   options(future.plan = NULL)
[18:41:35.000]                   if (is.na(NA_character_)) 
[18:41:35.000]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.000]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.000]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.000]                     .init = FALSE)
[18:41:35.000]                 }
[18:41:35.000]             }
[18:41:35.000]         }
[18:41:35.000]     })
[18:41:35.000]     if (TRUE) {
[18:41:35.000]         base::sink(type = "output", split = FALSE)
[18:41:35.000]         if (TRUE) {
[18:41:35.000]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.000]         }
[18:41:35.000]         else {
[18:41:35.000]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.000]         }
[18:41:35.000]         base::close(...future.stdout)
[18:41:35.000]         ...future.stdout <- NULL
[18:41:35.000]     }
[18:41:35.000]     ...future.result$conditions <- ...future.conditions
[18:41:35.000]     ...future.result$finished <- base::Sys.time()
[18:41:35.000]     ...future.result
[18:41:35.000] }
[18:41:35.005] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:35.005] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.006] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.006] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:35.006] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:35.006] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ...
[18:41:35.007] Exporting '...future.elements_ii' (76 bytes) to cluster node #1 ... DONE
[18:41:35.007] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.008] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.008] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.008] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.008] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:35.009] MultisessionFuture started
[18:41:35.009] - Launch lazy future ... done
[18:41:35.010] run() for 'MultisessionFuture' ... done
[18:41:35.010] Created future:
[18:41:35.033] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.033] - Validating connection of MultisessionFuture
[18:41:35.034] - received message: FutureResult
[18:41:35.034] - Received FutureResult
[18:41:35.034] - Erased future from FutureRegistry
[18:41:35.034] result() for ClusterFuture ...
[18:41:35.034] - result already collected: FutureResult
[18:41:35.035] result() for ClusterFuture ... done
[18:41:35.035] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.010] MultisessionFuture:
[18:41:35.010] Label: 'future_mapply-2'
[18:41:35.010] Expression:
[18:41:35.010] {
[18:41:35.010]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.010]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.010]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.010]         on.exit(options(oopts), add = TRUE)
[18:41:35.010]     }
[18:41:35.010]     {
[18:41:35.010]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.010]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.010]         do.call(mapply, args = args)
[18:41:35.010]     }
[18:41:35.010] }
[18:41:35.010] Lazy evaluation: FALSE
[18:41:35.010] Asynchronous evaluation: TRUE
[18:41:35.010] Local evaluation: TRUE
[18:41:35.010] Environment: R_GlobalEnv
[18:41:35.010] Capture standard output: TRUE
[18:41:35.010] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.010] Globals: 5 objects totaling 847 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 76 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.010] Packages: <none>
[18:41:35.010] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.010] Resolved: TRUE
[18:41:35.010] Value: <not collected>
[18:41:35.010] Conditions captured: <none>
[18:41:35.010] Early signaling: FALSE
[18:41:35.010] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.010] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.035] Chunk #2 of 3 ... DONE
[18:41:35.035] Chunk #3 of 3 ...
[18:41:35.036]  - Finding globals in '...' for chunk #3 ...
[18:41:35.036] getGlobalsAndPackages() ...
[18:41:35.036] Searching for globals...
[18:41:35.036] 
[18:41:35.036] Searching for globals ... DONE
[18:41:35.037] - globals: [0] <none>
[18:41:35.037] getGlobalsAndPackages() ... DONE
[18:41:35.037]    + additional globals found: [n=0] 
[18:41:35.037]    + additional namespaces needed: [n=0] 
[18:41:35.037]  - Finding globals in '...' for chunk #3 ... DONE
[18:41:35.037]  - Adjusted option 'future.globals.maxSize': 524288000 -> 3 * 524288000 = 1572864000 (bytes)
[18:41:35.038]  - seeds: <none>
[18:41:35.038]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.038] getGlobalsAndPackages() ...
[18:41:35.038] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.038] Resolving globals: FALSE
[18:41:35.039] The total size of the 5 globals is 876 bytes (876 bytes)
[18:41:35.040] 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 876 bytes.. This exceeds the maximum allowed size of 1.46 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:35.040] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.040] 
[18:41:35.040] getGlobalsAndPackages() ... DONE
[18:41:35.041] run() for 'Future' ...
[18:41:35.041] - state: 'created'
[18:41:35.041] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.057] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.057] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.057]   - Field: 'node'
[18:41:35.058]   - Field: 'label'
[18:41:35.058]   - Field: 'local'
[18:41:35.058]   - Field: 'owner'
[18:41:35.058]   - Field: 'envir'
[18:41:35.058]   - Field: 'workers'
[18:41:35.059]   - Field: 'packages'
[18:41:35.059]   - Field: 'gc'
[18:41:35.059]   - Field: 'conditions'
[18:41:35.059]   - Field: 'persistent'
[18:41:35.059]   - Field: 'expr'
[18:41:35.059]   - Field: 'uuid'
[18:41:35.060]   - Field: 'seed'
[18:41:35.060]   - Field: 'version'
[18:41:35.060]   - Field: 'result'
[18:41:35.060]   - Field: 'asynchronous'
[18:41:35.060]   - Field: 'calls'
[18:41:35.060]   - Field: 'globals'
[18:41:35.061]   - Field: 'stdout'
[18:41:35.061]   - Field: 'earlySignal'
[18:41:35.061]   - Field: 'lazy'
[18:41:35.061]   - Field: 'state'
[18:41:35.061] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.062] - Launch lazy future ...
[18:41:35.062] Packages needed by the future expression (n = 0): <none>
[18:41:35.062] Packages needed by future strategies (n = 0): <none>
[18:41:35.063] {
[18:41:35.063]     {
[18:41:35.063]         {
[18:41:35.063]             ...future.startTime <- base::Sys.time()
[18:41:35.063]             {
[18:41:35.063]                 {
[18:41:35.063]                   {
[18:41:35.063]                     {
[18:41:35.063]                       base::local({
[18:41:35.063]                         has_future <- base::requireNamespace("future", 
[18:41:35.063]                           quietly = TRUE)
[18:41:35.063]                         if (has_future) {
[18:41:35.063]                           ns <- base::getNamespace("future")
[18:41:35.063]                           version <- ns[[".package"]][["version"]]
[18:41:35.063]                           if (is.null(version)) 
[18:41:35.063]                             version <- utils::packageVersion("future")
[18:41:35.063]                         }
[18:41:35.063]                         else {
[18:41:35.063]                           version <- NULL
[18:41:35.063]                         }
[18:41:35.063]                         if (!has_future || version < "1.8.0") {
[18:41:35.063]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.063]                             "", base::R.version$version.string), 
[18:41:35.063]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.063]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.063]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.063]                               "release", "version")], collapse = " "), 
[18:41:35.063]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.063]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.063]                             info)
[18:41:35.063]                           info <- base::paste(info, collapse = "; ")
[18:41:35.063]                           if (!has_future) {
[18:41:35.063]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.063]                               info)
[18:41:35.063]                           }
[18:41:35.063]                           else {
[18:41:35.063]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.063]                               info, version)
[18:41:35.063]                           }
[18:41:35.063]                           base::stop(msg)
[18:41:35.063]                         }
[18:41:35.063]                       })
[18:41:35.063]                     }
[18:41:35.063]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.063]                     base::options(mc.cores = 1L)
[18:41:35.063]                   }
[18:41:35.063]                   ...future.strategy.old <- future::plan("list")
[18:41:35.063]                   options(future.plan = NULL)
[18:41:35.063]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.063]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.063]                 }
[18:41:35.063]                 ...future.workdir <- getwd()
[18:41:35.063]             }
[18:41:35.063]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.063]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.063]         }
[18:41:35.063]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.063]             future.globals.maxSize = 1572864000, future.globals.method = NULL, 
[18:41:35.063]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.063]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.063]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.063]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.063]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.063]             base::names(...future.oldOptions))
[18:41:35.063]     }
[18:41:35.063]     if (FALSE) {
[18:41:35.063]     }
[18:41:35.063]     else {
[18:41:35.063]         if (TRUE) {
[18:41:35.063]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.063]                 open = "w")
[18:41:35.063]         }
[18:41:35.063]         else {
[18:41:35.063]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.063]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.063]         }
[18:41:35.063]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.063]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.063]             base::sink(type = "output", split = FALSE)
[18:41:35.063]             base::close(...future.stdout)
[18:41:35.063]         }, add = TRUE)
[18:41:35.063]     }
[18:41:35.063]     ...future.frame <- base::sys.nframe()
[18:41:35.063]     ...future.conditions <- base::list()
[18:41:35.063]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.063]     if (FALSE) {
[18:41:35.063]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.063]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.063]     }
[18:41:35.063]     ...future.result <- base::tryCatch({
[18:41:35.063]         base::withCallingHandlers({
[18:41:35.063]             ...future.value <- base::withVisible(base::local({
[18:41:35.063]                 ...future.makeSendCondition <- base::local({
[18:41:35.063]                   sendCondition <- NULL
[18:41:35.063]                   function(frame = 1L) {
[18:41:35.063]                     if (is.function(sendCondition)) 
[18:41:35.063]                       return(sendCondition)
[18:41:35.063]                     ns <- getNamespace("parallel")
[18:41:35.063]                     if (exists("sendData", mode = "function", 
[18:41:35.063]                       envir = ns)) {
[18:41:35.063]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.063]                         envir = ns)
[18:41:35.063]                       envir <- sys.frame(frame)
[18:41:35.063]                       master <- NULL
[18:41:35.063]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.063]                         !identical(envir, emptyenv())) {
[18:41:35.063]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.063]                           inherits = FALSE)) {
[18:41:35.063]                           master <- get("master", mode = "list", 
[18:41:35.063]                             envir = envir, inherits = FALSE)
[18:41:35.063]                           if (inherits(master, c("SOCKnode", 
[18:41:35.063]                             "SOCK0node"))) {
[18:41:35.063]                             sendCondition <<- function(cond) {
[18:41:35.063]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.063]                                 success = TRUE)
[18:41:35.063]                               parallel_sendData(master, data)
[18:41:35.063]                             }
[18:41:35.063]                             return(sendCondition)
[18:41:35.063]                           }
[18:41:35.063]                         }
[18:41:35.063]                         frame <- frame + 1L
[18:41:35.063]                         envir <- sys.frame(frame)
[18:41:35.063]                       }
[18:41:35.063]                     }
[18:41:35.063]                     sendCondition <<- function(cond) NULL
[18:41:35.063]                   }
[18:41:35.063]                 })
[18:41:35.063]                 withCallingHandlers({
[18:41:35.063]                   {
[18:41:35.063]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.063]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.063]                       ...future.globals.maxSize)) {
[18:41:35.063]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.063]                       on.exit(options(oopts), add = TRUE)
[18:41:35.063]                     }
[18:41:35.063]                     {
[18:41:35.063]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.063]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.063]                         USE.NAMES = FALSE)
[18:41:35.063]                       do.call(mapply, args = args)
[18:41:35.063]                     }
[18:41:35.063]                   }
[18:41:35.063]                 }, immediateCondition = function(cond) {
[18:41:35.063]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.063]                   sendCondition(cond)
[18:41:35.063]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.063]                   {
[18:41:35.063]                     inherits <- base::inherits
[18:41:35.063]                     invokeRestart <- base::invokeRestart
[18:41:35.063]                     is.null <- base::is.null
[18:41:35.063]                     muffled <- FALSE
[18:41:35.063]                     if (inherits(cond, "message")) {
[18:41:35.063]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.063]                       if (muffled) 
[18:41:35.063]                         invokeRestart("muffleMessage")
[18:41:35.063]                     }
[18:41:35.063]                     else if (inherits(cond, "warning")) {
[18:41:35.063]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.063]                       if (muffled) 
[18:41:35.063]                         invokeRestart("muffleWarning")
[18:41:35.063]                     }
[18:41:35.063]                     else if (inherits(cond, "condition")) {
[18:41:35.063]                       if (!is.null(pattern)) {
[18:41:35.063]                         computeRestarts <- base::computeRestarts
[18:41:35.063]                         grepl <- base::grepl
[18:41:35.063]                         restarts <- computeRestarts(cond)
[18:41:35.063]                         for (restart in restarts) {
[18:41:35.063]                           name <- restart$name
[18:41:35.063]                           if (is.null(name)) 
[18:41:35.063]                             next
[18:41:35.063]                           if (!grepl(pattern, name)) 
[18:41:35.063]                             next
[18:41:35.063]                           invokeRestart(restart)
[18:41:35.063]                           muffled <- TRUE
[18:41:35.063]                           break
[18:41:35.063]                         }
[18:41:35.063]                       }
[18:41:35.063]                     }
[18:41:35.063]                     invisible(muffled)
[18:41:35.063]                   }
[18:41:35.063]                   muffleCondition(cond)
[18:41:35.063]                 })
[18:41:35.063]             }))
[18:41:35.063]             future::FutureResult(value = ...future.value$value, 
[18:41:35.063]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.063]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.063]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.063]                     ...future.globalenv.names))
[18:41:35.063]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.063]         }, condition = base::local({
[18:41:35.063]             c <- base::c
[18:41:35.063]             inherits <- base::inherits
[18:41:35.063]             invokeRestart <- base::invokeRestart
[18:41:35.063]             length <- base::length
[18:41:35.063]             list <- base::list
[18:41:35.063]             seq.int <- base::seq.int
[18:41:35.063]             signalCondition <- base::signalCondition
[18:41:35.063]             sys.calls <- base::sys.calls
[18:41:35.063]             `[[` <- base::`[[`
[18:41:35.063]             `+` <- base::`+`
[18:41:35.063]             `<<-` <- base::`<<-`
[18:41:35.063]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.063]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.063]                   3L)]
[18:41:35.063]             }
[18:41:35.063]             function(cond) {
[18:41:35.063]                 is_error <- inherits(cond, "error")
[18:41:35.063]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.063]                   NULL)
[18:41:35.063]                 if (is_error) {
[18:41:35.063]                   sessionInformation <- function() {
[18:41:35.063]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.063]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.063]                       search = base::search(), system = base::Sys.info())
[18:41:35.063]                   }
[18:41:35.063]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.063]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.063]                     cond$call), session = sessionInformation(), 
[18:41:35.063]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.063]                   signalCondition(cond)
[18:41:35.063]                 }
[18:41:35.063]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.063]                 "immediateCondition"))) {
[18:41:35.063]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.063]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.063]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.063]                   if (TRUE && !signal) {
[18:41:35.063]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.063]                     {
[18:41:35.063]                       inherits <- base::inherits
[18:41:35.063]                       invokeRestart <- base::invokeRestart
[18:41:35.063]                       is.null <- base::is.null
[18:41:35.063]                       muffled <- FALSE
[18:41:35.063]                       if (inherits(cond, "message")) {
[18:41:35.063]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.063]                         if (muffled) 
[18:41:35.063]                           invokeRestart("muffleMessage")
[18:41:35.063]                       }
[18:41:35.063]                       else if (inherits(cond, "warning")) {
[18:41:35.063]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.063]                         if (muffled) 
[18:41:35.063]                           invokeRestart("muffleWarning")
[18:41:35.063]                       }
[18:41:35.063]                       else if (inherits(cond, "condition")) {
[18:41:35.063]                         if (!is.null(pattern)) {
[18:41:35.063]                           computeRestarts <- base::computeRestarts
[18:41:35.063]                           grepl <- base::grepl
[18:41:35.063]                           restarts <- computeRestarts(cond)
[18:41:35.063]                           for (restart in restarts) {
[18:41:35.063]                             name <- restart$name
[18:41:35.063]                             if (is.null(name)) 
[18:41:35.063]                               next
[18:41:35.063]                             if (!grepl(pattern, name)) 
[18:41:35.063]                               next
[18:41:35.063]                             invokeRestart(restart)
[18:41:35.063]                             muffled <- TRUE
[18:41:35.063]                             break
[18:41:35.063]                           }
[18:41:35.063]                         }
[18:41:35.063]                       }
[18:41:35.063]                       invisible(muffled)
[18:41:35.063]                     }
[18:41:35.063]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.063]                   }
[18:41:35.063]                 }
[18:41:35.063]                 else {
[18:41:35.063]                   if (TRUE) {
[18:41:35.063]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.063]                     {
[18:41:35.063]                       inherits <- base::inherits
[18:41:35.063]                       invokeRestart <- base::invokeRestart
[18:41:35.063]                       is.null <- base::is.null
[18:41:35.063]                       muffled <- FALSE
[18:41:35.063]                       if (inherits(cond, "message")) {
[18:41:35.063]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.063]                         if (muffled) 
[18:41:35.063]                           invokeRestart("muffleMessage")
[18:41:35.063]                       }
[18:41:35.063]                       else if (inherits(cond, "warning")) {
[18:41:35.063]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.063]                         if (muffled) 
[18:41:35.063]                           invokeRestart("muffleWarning")
[18:41:35.063]                       }
[18:41:35.063]                       else if (inherits(cond, "condition")) {
[18:41:35.063]                         if (!is.null(pattern)) {
[18:41:35.063]                           computeRestarts <- base::computeRestarts
[18:41:35.063]                           grepl <- base::grepl
[18:41:35.063]                           restarts <- computeRestarts(cond)
[18:41:35.063]                           for (restart in restarts) {
[18:41:35.063]                             name <- restart$name
[18:41:35.063]                             if (is.null(name)) 
[18:41:35.063]                               next
[18:41:35.063]                             if (!grepl(pattern, name)) 
[18:41:35.063]                               next
[18:41:35.063]                             invokeRestart(restart)
[18:41:35.063]                             muffled <- TRUE
[18:41:35.063]                             break
[18:41:35.063]                           }
[18:41:35.063]                         }
[18:41:35.063]                       }
[18:41:35.063]                       invisible(muffled)
[18:41:35.063]                     }
[18:41:35.063]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.063]                   }
[18:41:35.063]                 }
[18:41:35.063]             }
[18:41:35.063]         }))
[18:41:35.063]     }, error = function(ex) {
[18:41:35.063]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.063]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.063]                 ...future.rng), started = ...future.startTime, 
[18:41:35.063]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.063]             version = "1.8"), class = "FutureResult")
[18:41:35.063]     }, finally = {
[18:41:35.063]         if (!identical(...future.workdir, getwd())) 
[18:41:35.063]             setwd(...future.workdir)
[18:41:35.063]         {
[18:41:35.063]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.063]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.063]             }
[18:41:35.063]             base::options(...future.oldOptions)
[18:41:35.063]             if (.Platform$OS.type == "windows") {
[18:41:35.063]                 old_names <- names(...future.oldEnvVars)
[18:41:35.063]                 envs <- base::Sys.getenv()
[18:41:35.063]                 names <- names(envs)
[18:41:35.063]                 common <- intersect(names, old_names)
[18:41:35.063]                 added <- setdiff(names, old_names)
[18:41:35.063]                 removed <- setdiff(old_names, names)
[18:41:35.063]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.063]                   envs[common]]
[18:41:35.063]                 NAMES <- toupper(changed)
[18:41:35.063]                 args <- list()
[18:41:35.063]                 for (kk in seq_along(NAMES)) {
[18:41:35.063]                   name <- changed[[kk]]
[18:41:35.063]                   NAME <- NAMES[[kk]]
[18:41:35.063]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.063]                     next
[18:41:35.063]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.063]                 }
[18:41:35.063]                 NAMES <- toupper(added)
[18:41:35.063]                 for (kk in seq_along(NAMES)) {
[18:41:35.063]                   name <- added[[kk]]
[18:41:35.063]                   NAME <- NAMES[[kk]]
[18:41:35.063]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.063]                     next
[18:41:35.063]                   args[[name]] <- ""
[18:41:35.063]                 }
[18:41:35.063]                 NAMES <- toupper(removed)
[18:41:35.063]                 for (kk in seq_along(NAMES)) {
[18:41:35.063]                   name <- removed[[kk]]
[18:41:35.063]                   NAME <- NAMES[[kk]]
[18:41:35.063]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.063]                     next
[18:41:35.063]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.063]                 }
[18:41:35.063]                 if (length(args) > 0) 
[18:41:35.063]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.063]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.063]             }
[18:41:35.063]             else {
[18:41:35.063]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.063]             }
[18:41:35.063]             {
[18:41:35.063]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.063]                   0L) {
[18:41:35.063]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.063]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.063]                   base::options(opts)
[18:41:35.063]                 }
[18:41:35.063]                 {
[18:41:35.063]                   {
[18:41:35.063]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.063]                     NULL
[18:41:35.063]                   }
[18:41:35.063]                   options(future.plan = NULL)
[18:41:35.063]                   if (is.na(NA_character_)) 
[18:41:35.063]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.063]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.063]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.063]                     .init = FALSE)
[18:41:35.063]                 }
[18:41:35.063]             }
[18:41:35.063]         }
[18:41:35.063]     })
[18:41:35.063]     if (TRUE) {
[18:41:35.063]         base::sink(type = "output", split = FALSE)
[18:41:35.063]         if (TRUE) {
[18:41:35.063]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.063]         }
[18:41:35.063]         else {
[18:41:35.063]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.063]         }
[18:41:35.063]         base::close(...future.stdout)
[18:41:35.063]         ...future.stdout <- NULL
[18:41:35.063]     }
[18:41:35.063]     ...future.result$conditions <- ...future.conditions
[18:41:35.063]     ...future.result$finished <- base::Sys.time()
[18:41:35.063]     ...future.result
[18:41:35.063] }
[18:41:35.068] Exporting 5 global objects (1.29 KiB) to cluster node #1 ...
[18:41:35.069] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.069] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.069] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:35.070] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:35.070] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ...
[18:41:35.070] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ... DONE
[18:41:35.071] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.071] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.071] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.072] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.072] Exporting 5 global objects (1.29 KiB) to cluster node #1 ... DONE
[18:41:35.073] MultisessionFuture started
[18:41:35.073] - Launch lazy future ... done
[18:41:35.073] run() for 'MultisessionFuture' ... done
[18:41:35.074] Created future:
[18:41:35.095] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.096] - Validating connection of MultisessionFuture
[18:41:35.096] - received message: FutureResult
[18:41:35.096] - Received FutureResult
[18:41:35.097] - Erased future from FutureRegistry
[18:41:35.097] result() for ClusterFuture ...
[18:41:35.101] - result already collected: FutureResult
[18:41:35.102] result() for ClusterFuture ... done
[18:41:35.102] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.074] MultisessionFuture:
[18:41:35.074] Label: 'future_mapply-3'
[18:41:35.074] Expression:
[18:41:35.074] {
[18:41:35.074]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.074]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.074]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.074]         on.exit(options(oopts), add = TRUE)
[18:41:35.074]     }
[18:41:35.074]     {
[18:41:35.074]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.074]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.074]         do.call(mapply, args = args)
[18:41:35.074]     }
[18:41:35.074] }
[18:41:35.074] Lazy evaluation: FALSE
[18:41:35.074] Asynchronous evaluation: TRUE
[18:41:35.074] Local evaluation: TRUE
[18:41:35.074] Environment: R_GlobalEnv
[18:41:35.074] Capture standard output: TRUE
[18:41:35.074] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.074] Globals: 5 objects totaling 876 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.074] Packages: <none>
[18:41:35.074] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.074] Resolved: TRUE
[18:41:35.074] Value: <not collected>
[18:41:35.074] Conditions captured: <none>
[18:41:35.074] Early signaling: FALSE
[18:41:35.074] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.074] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.102] Chunk #3 of 3 ... DONE
[18:41:35.103] Launching 3 futures (chunks) ... DONE
[18:41:35.103] Resolving 3 futures (chunks) ...
[18:41:35.103] resolve() on list ...
[18:41:35.103]  recursive: 0
[18:41:35.103]  length: 3
[18:41:35.104] 
[18:41:35.104] Future #1
[18:41:35.104] result() for ClusterFuture ...
[18:41:35.104] - result already collected: FutureResult
[18:41:35.104] result() for ClusterFuture ... done
[18:41:35.104] result() for ClusterFuture ...
[18:41:35.105] - result already collected: FutureResult
[18:41:35.105] result() for ClusterFuture ... done
[18:41:35.105] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:35.105] - nx: 3
[18:41:35.105] - relay: TRUE
[18:41:35.105] - stdout: TRUE
[18:41:35.106] - signal: TRUE
[18:41:35.106] - resignal: FALSE
[18:41:35.106] - force: TRUE
[18:41:35.106] - relayed: [n=3] FALSE, FALSE, FALSE
[18:41:35.106] - queued futures: [n=3] FALSE, FALSE, FALSE
[18:41:35.106]  - until=1
[18:41:35.107]  - relaying element #1
[18:41:35.107] result() for ClusterFuture ...
[18:41:35.107] - result already collected: FutureResult
[18:41:35.107] result() for ClusterFuture ... done
[18:41:35.107] result() for ClusterFuture ...
[18:41:35.107] - result already collected: FutureResult
[18:41:35.108] result() for ClusterFuture ... done
[18:41:35.108] result() for ClusterFuture ...
[18:41:35.108] - result already collected: FutureResult
[18:41:35.108] result() for ClusterFuture ... done
[18:41:35.108] result() for ClusterFuture ...
[18:41:35.108] - result already collected: FutureResult
[18:41:35.109] result() for ClusterFuture ... done
[18:41:35.109] - relayed: [n=3] TRUE, FALSE, FALSE
[18:41:35.109] - queued futures: [n=3] TRUE, FALSE, FALSE
[18:41:35.109] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:35.109]  length: 2 (resolved future 1)
[18:41:35.109] Future #2
[18:41:35.110] result() for ClusterFuture ...
[18:41:35.110] - result already collected: FutureResult
[18:41:35.110] result() for ClusterFuture ... done
[18:41:35.110] result() for ClusterFuture ...
[18:41:35.110] - result already collected: FutureResult
[18:41:35.110] result() for ClusterFuture ... done
[18:41:35.111] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:35.111] - nx: 3
[18:41:35.111] - relay: TRUE
[18:41:35.111] - stdout: TRUE
[18:41:35.111] - signal: TRUE
[18:41:35.111] - resignal: FALSE
[18:41:35.111] - force: TRUE
[18:41:35.112] - relayed: [n=3] TRUE, FALSE, FALSE
[18:41:35.112] - queued futures: [n=3] TRUE, FALSE, FALSE
[18:41:35.112]  - until=2
[18:41:35.112]  - relaying element #2
[18:41:35.112] result() for ClusterFuture ...
[18:41:35.112] - result already collected: FutureResult
[18:41:35.113] result() for ClusterFuture ... done
[18:41:35.113] result() for ClusterFuture ...
[18:41:35.113] - result already collected: FutureResult
[18:41:35.113] result() for ClusterFuture ... done
[18:41:35.113] result() for ClusterFuture ...
[18:41:35.114] - result already collected: FutureResult
[18:41:35.114] result() for ClusterFuture ... done
[18:41:35.114] result() for ClusterFuture ...
[18:41:35.114] - result already collected: FutureResult
[18:41:35.114] result() for ClusterFuture ... done
[18:41:35.114] - relayed: [n=3] TRUE, TRUE, FALSE
[18:41:35.115] - queued futures: [n=3] TRUE, TRUE, FALSE
[18:41:35.115] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:35.115]  length: 1 (resolved future 2)
[18:41:35.115] Future #3
[18:41:35.115] result() for ClusterFuture ...
[18:41:35.115] - result already collected: FutureResult
[18:41:35.116] result() for ClusterFuture ... done
[18:41:35.116] result() for ClusterFuture ...
[18:41:35.116] - result already collected: FutureResult
[18:41:35.116] result() for ClusterFuture ... done
[18:41:35.116] signalConditionsASAP(MultisessionFuture, pos=3) ...
[18:41:35.117] - nx: 3
[18:41:35.117] - relay: TRUE
[18:41:35.117] - stdout: TRUE
[18:41:35.117] - signal: TRUE
[18:41:35.117] - resignal: FALSE
[18:41:35.117] - force: TRUE
[18:41:35.117] - relayed: [n=3] TRUE, TRUE, FALSE
[18:41:35.118] - queued futures: [n=3] TRUE, TRUE, FALSE
[18:41:35.118]  - until=3
[18:41:35.118]  - relaying element #3
[18:41:35.118] result() for ClusterFuture ...
[18:41:35.118] - result already collected: FutureResult
[18:41:35.119] result() for ClusterFuture ... done
[18:41:35.119] result() for ClusterFuture ...
[18:41:35.119] - result already collected: FutureResult
[18:41:35.119] result() for ClusterFuture ... done
[18:41:35.119] result() for ClusterFuture ...
[18:41:35.119] - result already collected: FutureResult
[18:41:35.120] result() for ClusterFuture ... done
[18:41:35.120] result() for ClusterFuture ...
[18:41:35.120] - result already collected: FutureResult
[18:41:35.120] result() for ClusterFuture ... done
[18:41:35.120] - relayed: [n=3] TRUE, TRUE, TRUE
[18:41:35.120] - queued futures: [n=3] TRUE, TRUE, TRUE
[18:41:35.120] signalConditionsASAP(MultisessionFuture, pos=3) ... done
[18:41:35.121]  length: 0 (resolved future 3)
[18:41:35.121] Relaying remaining futures
[18:41:35.121] signalConditionsASAP(NULL, pos=0) ...
[18:41:35.121] - nx: 3
[18:41:35.121] - relay: TRUE
[18:41:35.121] - stdout: TRUE
[18:41:35.122] - signal: TRUE
[18:41:35.122] - resignal: FALSE
[18:41:35.122] - force: TRUE
[18:41:35.122] - relayed: [n=3] TRUE, TRUE, TRUE
[18:41:35.122] - queued futures: [n=3] TRUE, TRUE, TRUE
 - flush all
[18:41:35.122] - relayed: [n=3] TRUE, TRUE, TRUE
[18:41:35.123] - queued futures: [n=3] TRUE, TRUE, TRUE
[18:41:35.123] signalConditionsASAP(NULL, pos=0) ... done
[18:41:35.123] resolve() on list ... DONE
[18:41:35.123] result() for ClusterFuture ...
[18:41:35.123] - result already collected: FutureResult
[18:41:35.123] result() for ClusterFuture ... done
[18:41:35.124] result() for ClusterFuture ...
[18:41:35.124] - result already collected: FutureResult
[18:41:35.124] result() for ClusterFuture ... done
[18:41:35.124] result() for ClusterFuture ...
[18:41:35.124] - result already collected: FutureResult
[18:41:35.124] result() for ClusterFuture ... done
[18:41:35.125] result() for ClusterFuture ...
[18:41:35.125] - result already collected: FutureResult
[18:41:35.125] result() for ClusterFuture ... done
[18:41:35.125] result() for ClusterFuture ...
[18:41:35.125] - result already collected: FutureResult
[18:41:35.125] result() for ClusterFuture ... done
[18:41:35.126] result() for ClusterFuture ...
[18:41:35.126] - result already collected: FutureResult
[18:41:35.126] result() for ClusterFuture ... done
[18:41:35.126]  - Number of value chunks collected: 3
[18:41:35.126] Resolving 3 futures (chunks) ... DONE
[18:41:35.126] Reducing values from 3 chunks ...
[18:41:35.126]  - Number of values collected after concatenation: 5
[18:41:35.127]  - Number of values expected: 5
[18:41:35.127] Reverse index remapping (attribute 'ordering'): [n = 5] 1, 3, 4, 2, 5
[18:41:35.127] Reducing values from 3 chunks ... DONE
[18:41:35.127] future_mapply() ... DONE
[18:41:35.128] future_mapply() ...
[18:41:35.131] Number of chunks: 2
[18:41:35.131] getGlobalsAndPackagesXApply() ...
[18:41:35.131]  - future.globals: TRUE
[18:41:35.131] getGlobalsAndPackages() ...
[18:41:35.131] Searching for globals...
[18:41:35.133] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:35.133] Searching for globals ... DONE
[18:41:35.134] Resolving globals: FALSE
[18:41:35.134] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:35.135] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:35.135] - globals: [1] 'FUN'
[18:41:35.135] 
[18:41:35.135] getGlobalsAndPackages() ... DONE
[18:41:35.135]  - globals found/used: [n=1] 'FUN'
[18:41:35.136]  - needed namespaces: [n=0] 
[18:41:35.136] Finding globals ... DONE
[18:41:35.136] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:35.136] List of 2
[18:41:35.136]  $ ...future.FUN:function (C, k)  
[18:41:35.136]  $ MoreArgs     : list()
[18:41:35.136]  - attr(*, "where")=List of 2
[18:41:35.136]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:35.136]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:35.136]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:35.136]  - attr(*, "resolved")= logi FALSE
[18:41:35.136]  - attr(*, "total_size")= num NA
[18:41:35.140] Packages to be attached in all futures: [n=0] 
[18:41:35.140] getGlobalsAndPackagesXApply() ... DONE
[18:41:35.140] Number of futures (= number of chunks): 2
[18:41:35.141] Launching 2 futures (chunks) ...
[18:41:35.141] Chunk #1 of 2 ...
[18:41:35.141]  - Finding globals in '...' for chunk #1 ...
[18:41:35.141] getGlobalsAndPackages() ...
[18:41:35.141] Searching for globals...
[18:41:35.142] 
[18:41:35.142] Searching for globals ... DONE
[18:41:35.142] - globals: [0] <none>
[18:41:35.142] getGlobalsAndPackages() ... DONE
[18:41:35.142]    + additional globals found: [n=0] 
[18:41:35.143]    + additional namespaces needed: [n=0] 
[18:41:35.143]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:35.143]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.143]  - seeds: <none>
[18:41:35.143]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.143] getGlobalsAndPackages() ...
[18:41:35.144] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.144] Resolving globals: FALSE
[18:41:35.144] The total size of the 5 globals is 880 bytes (880 bytes)
[18:41:35.145] 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 880 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:35.145] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.146] 
[18:41:35.146] getGlobalsAndPackages() ... DONE
[18:41:35.146] run() for 'Future' ...
[18:41:35.146] - state: 'created'
[18:41:35.147] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.163] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.163] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.163]   - Field: 'node'
[18:41:35.163]   - Field: 'label'
[18:41:35.164]   - Field: 'local'
[18:41:35.164]   - Field: 'owner'
[18:41:35.164]   - Field: 'envir'
[18:41:35.164]   - Field: 'workers'
[18:41:35.164]   - Field: 'packages'
[18:41:35.165]   - Field: 'gc'
[18:41:35.165]   - Field: 'conditions'
[18:41:35.165]   - Field: 'persistent'
[18:41:35.165]   - Field: 'expr'
[18:41:35.165]   - Field: 'uuid'
[18:41:35.165]   - Field: 'seed'
[18:41:35.166]   - Field: 'version'
[18:41:35.166]   - Field: 'result'
[18:41:35.166]   - Field: 'asynchronous'
[18:41:35.166]   - Field: 'calls'
[18:41:35.166]   - Field: 'globals'
[18:41:35.166]   - Field: 'stdout'
[18:41:35.167]   - Field: 'earlySignal'
[18:41:35.167]   - Field: 'lazy'
[18:41:35.167]   - Field: 'state'
[18:41:35.167] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.167] - Launch lazy future ...
[18:41:35.168] Packages needed by the future expression (n = 0): <none>
[18:41:35.168] Packages needed by future strategies (n = 0): <none>
[18:41:35.169] {
[18:41:35.169]     {
[18:41:35.169]         {
[18:41:35.169]             ...future.startTime <- base::Sys.time()
[18:41:35.169]             {
[18:41:35.169]                 {
[18:41:35.169]                   {
[18:41:35.169]                     {
[18:41:35.169]                       base::local({
[18:41:35.169]                         has_future <- base::requireNamespace("future", 
[18:41:35.169]                           quietly = TRUE)
[18:41:35.169]                         if (has_future) {
[18:41:35.169]                           ns <- base::getNamespace("future")
[18:41:35.169]                           version <- ns[[".package"]][["version"]]
[18:41:35.169]                           if (is.null(version)) 
[18:41:35.169]                             version <- utils::packageVersion("future")
[18:41:35.169]                         }
[18:41:35.169]                         else {
[18:41:35.169]                           version <- NULL
[18:41:35.169]                         }
[18:41:35.169]                         if (!has_future || version < "1.8.0") {
[18:41:35.169]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.169]                             "", base::R.version$version.string), 
[18:41:35.169]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.169]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.169]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.169]                               "release", "version")], collapse = " "), 
[18:41:35.169]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.169]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.169]                             info)
[18:41:35.169]                           info <- base::paste(info, collapse = "; ")
[18:41:35.169]                           if (!has_future) {
[18:41:35.169]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.169]                               info)
[18:41:35.169]                           }
[18:41:35.169]                           else {
[18:41:35.169]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.169]                               info, version)
[18:41:35.169]                           }
[18:41:35.169]                           base::stop(msg)
[18:41:35.169]                         }
[18:41:35.169]                       })
[18:41:35.169]                     }
[18:41:35.169]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.169]                     base::options(mc.cores = 1L)
[18:41:35.169]                   }
[18:41:35.169]                   ...future.strategy.old <- future::plan("list")
[18:41:35.169]                   options(future.plan = NULL)
[18:41:35.169]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.169]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.169]                 }
[18:41:35.169]                 ...future.workdir <- getwd()
[18:41:35.169]             }
[18:41:35.169]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.169]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.169]         }
[18:41:35.169]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.169]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.169]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.169]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.169]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.169]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.169]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.169]             base::names(...future.oldOptions))
[18:41:35.169]     }
[18:41:35.169]     if (FALSE) {
[18:41:35.169]     }
[18:41:35.169]     else {
[18:41:35.169]         if (TRUE) {
[18:41:35.169]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.169]                 open = "w")
[18:41:35.169]         }
[18:41:35.169]         else {
[18:41:35.169]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.169]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.169]         }
[18:41:35.169]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.169]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.169]             base::sink(type = "output", split = FALSE)
[18:41:35.169]             base::close(...future.stdout)
[18:41:35.169]         }, add = TRUE)
[18:41:35.169]     }
[18:41:35.169]     ...future.frame <- base::sys.nframe()
[18:41:35.169]     ...future.conditions <- base::list()
[18:41:35.169]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.169]     if (FALSE) {
[18:41:35.169]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.169]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.169]     }
[18:41:35.169]     ...future.result <- base::tryCatch({
[18:41:35.169]         base::withCallingHandlers({
[18:41:35.169]             ...future.value <- base::withVisible(base::local({
[18:41:35.169]                 ...future.makeSendCondition <- base::local({
[18:41:35.169]                   sendCondition <- NULL
[18:41:35.169]                   function(frame = 1L) {
[18:41:35.169]                     if (is.function(sendCondition)) 
[18:41:35.169]                       return(sendCondition)
[18:41:35.169]                     ns <- getNamespace("parallel")
[18:41:35.169]                     if (exists("sendData", mode = "function", 
[18:41:35.169]                       envir = ns)) {
[18:41:35.169]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.169]                         envir = ns)
[18:41:35.169]                       envir <- sys.frame(frame)
[18:41:35.169]                       master <- NULL
[18:41:35.169]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.169]                         !identical(envir, emptyenv())) {
[18:41:35.169]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.169]                           inherits = FALSE)) {
[18:41:35.169]                           master <- get("master", mode = "list", 
[18:41:35.169]                             envir = envir, inherits = FALSE)
[18:41:35.169]                           if (inherits(master, c("SOCKnode", 
[18:41:35.169]                             "SOCK0node"))) {
[18:41:35.169]                             sendCondition <<- function(cond) {
[18:41:35.169]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.169]                                 success = TRUE)
[18:41:35.169]                               parallel_sendData(master, data)
[18:41:35.169]                             }
[18:41:35.169]                             return(sendCondition)
[18:41:35.169]                           }
[18:41:35.169]                         }
[18:41:35.169]                         frame <- frame + 1L
[18:41:35.169]                         envir <- sys.frame(frame)
[18:41:35.169]                       }
[18:41:35.169]                     }
[18:41:35.169]                     sendCondition <<- function(cond) NULL
[18:41:35.169]                   }
[18:41:35.169]                 })
[18:41:35.169]                 withCallingHandlers({
[18:41:35.169]                   {
[18:41:35.169]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.169]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.169]                       ...future.globals.maxSize)) {
[18:41:35.169]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.169]                       on.exit(options(oopts), add = TRUE)
[18:41:35.169]                     }
[18:41:35.169]                     {
[18:41:35.169]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.169]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.169]                         USE.NAMES = FALSE)
[18:41:35.169]                       do.call(mapply, args = args)
[18:41:35.169]                     }
[18:41:35.169]                   }
[18:41:35.169]                 }, immediateCondition = function(cond) {
[18:41:35.169]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.169]                   sendCondition(cond)
[18:41:35.169]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.169]                   {
[18:41:35.169]                     inherits <- base::inherits
[18:41:35.169]                     invokeRestart <- base::invokeRestart
[18:41:35.169]                     is.null <- base::is.null
[18:41:35.169]                     muffled <- FALSE
[18:41:35.169]                     if (inherits(cond, "message")) {
[18:41:35.169]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.169]                       if (muffled) 
[18:41:35.169]                         invokeRestart("muffleMessage")
[18:41:35.169]                     }
[18:41:35.169]                     else if (inherits(cond, "warning")) {
[18:41:35.169]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.169]                       if (muffled) 
[18:41:35.169]                         invokeRestart("muffleWarning")
[18:41:35.169]                     }
[18:41:35.169]                     else if (inherits(cond, "condition")) {
[18:41:35.169]                       if (!is.null(pattern)) {
[18:41:35.169]                         computeRestarts <- base::computeRestarts
[18:41:35.169]                         grepl <- base::grepl
[18:41:35.169]                         restarts <- computeRestarts(cond)
[18:41:35.169]                         for (restart in restarts) {
[18:41:35.169]                           name <- restart$name
[18:41:35.169]                           if (is.null(name)) 
[18:41:35.169]                             next
[18:41:35.169]                           if (!grepl(pattern, name)) 
[18:41:35.169]                             next
[18:41:35.169]                           invokeRestart(restart)
[18:41:35.169]                           muffled <- TRUE
[18:41:35.169]                           break
[18:41:35.169]                         }
[18:41:35.169]                       }
[18:41:35.169]                     }
[18:41:35.169]                     invisible(muffled)
[18:41:35.169]                   }
[18:41:35.169]                   muffleCondition(cond)
[18:41:35.169]                 })
[18:41:35.169]             }))
[18:41:35.169]             future::FutureResult(value = ...future.value$value, 
[18:41:35.169]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.169]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.169]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.169]                     ...future.globalenv.names))
[18:41:35.169]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.169]         }, condition = base::local({
[18:41:35.169]             c <- base::c
[18:41:35.169]             inherits <- base::inherits
[18:41:35.169]             invokeRestart <- base::invokeRestart
[18:41:35.169]             length <- base::length
[18:41:35.169]             list <- base::list
[18:41:35.169]             seq.int <- base::seq.int
[18:41:35.169]             signalCondition <- base::signalCondition
[18:41:35.169]             sys.calls <- base::sys.calls
[18:41:35.169]             `[[` <- base::`[[`
[18:41:35.169]             `+` <- base::`+`
[18:41:35.169]             `<<-` <- base::`<<-`
[18:41:35.169]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.169]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.169]                   3L)]
[18:41:35.169]             }
[18:41:35.169]             function(cond) {
[18:41:35.169]                 is_error <- inherits(cond, "error")
[18:41:35.169]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.169]                   NULL)
[18:41:35.169]                 if (is_error) {
[18:41:35.169]                   sessionInformation <- function() {
[18:41:35.169]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.169]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.169]                       search = base::search(), system = base::Sys.info())
[18:41:35.169]                   }
[18:41:35.169]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.169]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.169]                     cond$call), session = sessionInformation(), 
[18:41:35.169]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.169]                   signalCondition(cond)
[18:41:35.169]                 }
[18:41:35.169]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.169]                 "immediateCondition"))) {
[18:41:35.169]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.169]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.169]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.169]                   if (TRUE && !signal) {
[18:41:35.169]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.169]                     {
[18:41:35.169]                       inherits <- base::inherits
[18:41:35.169]                       invokeRestart <- base::invokeRestart
[18:41:35.169]                       is.null <- base::is.null
[18:41:35.169]                       muffled <- FALSE
[18:41:35.169]                       if (inherits(cond, "message")) {
[18:41:35.169]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.169]                         if (muffled) 
[18:41:35.169]                           invokeRestart("muffleMessage")
[18:41:35.169]                       }
[18:41:35.169]                       else if (inherits(cond, "warning")) {
[18:41:35.169]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.169]                         if (muffled) 
[18:41:35.169]                           invokeRestart("muffleWarning")
[18:41:35.169]                       }
[18:41:35.169]                       else if (inherits(cond, "condition")) {
[18:41:35.169]                         if (!is.null(pattern)) {
[18:41:35.169]                           computeRestarts <- base::computeRestarts
[18:41:35.169]                           grepl <- base::grepl
[18:41:35.169]                           restarts <- computeRestarts(cond)
[18:41:35.169]                           for (restart in restarts) {
[18:41:35.169]                             name <- restart$name
[18:41:35.169]                             if (is.null(name)) 
[18:41:35.169]                               next
[18:41:35.169]                             if (!grepl(pattern, name)) 
[18:41:35.169]                               next
[18:41:35.169]                             invokeRestart(restart)
[18:41:35.169]                             muffled <- TRUE
[18:41:35.169]                             break
[18:41:35.169]                           }
[18:41:35.169]                         }
[18:41:35.169]                       }
[18:41:35.169]                       invisible(muffled)
[18:41:35.169]                     }
[18:41:35.169]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.169]                   }
[18:41:35.169]                 }
[18:41:35.169]                 else {
[18:41:35.169]                   if (TRUE) {
[18:41:35.169]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.169]                     {
[18:41:35.169]                       inherits <- base::inherits
[18:41:35.169]                       invokeRestart <- base::invokeRestart
[18:41:35.169]                       is.null <- base::is.null
[18:41:35.169]                       muffled <- FALSE
[18:41:35.169]                       if (inherits(cond, "message")) {
[18:41:35.169]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.169]                         if (muffled) 
[18:41:35.169]                           invokeRestart("muffleMessage")
[18:41:35.169]                       }
[18:41:35.169]                       else if (inherits(cond, "warning")) {
[18:41:35.169]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.169]                         if (muffled) 
[18:41:35.169]                           invokeRestart("muffleWarning")
[18:41:35.169]                       }
[18:41:35.169]                       else if (inherits(cond, "condition")) {
[18:41:35.169]                         if (!is.null(pattern)) {
[18:41:35.169]                           computeRestarts <- base::computeRestarts
[18:41:35.169]                           grepl <- base::grepl
[18:41:35.169]                           restarts <- computeRestarts(cond)
[18:41:35.169]                           for (restart in restarts) {
[18:41:35.169]                             name <- restart$name
[18:41:35.169]                             if (is.null(name)) 
[18:41:35.169]                               next
[18:41:35.169]                             if (!grepl(pattern, name)) 
[18:41:35.169]                               next
[18:41:35.169]                             invokeRestart(restart)
[18:41:35.169]                             muffled <- TRUE
[18:41:35.169]                             break
[18:41:35.169]                           }
[18:41:35.169]                         }
[18:41:35.169]                       }
[18:41:35.169]                       invisible(muffled)
[18:41:35.169]                     }
[18:41:35.169]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.169]                   }
[18:41:35.169]                 }
[18:41:35.169]             }
[18:41:35.169]         }))
[18:41:35.169]     }, error = function(ex) {
[18:41:35.169]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.169]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.169]                 ...future.rng), started = ...future.startTime, 
[18:41:35.169]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.169]             version = "1.8"), class = "FutureResult")
[18:41:35.169]     }, finally = {
[18:41:35.169]         if (!identical(...future.workdir, getwd())) 
[18:41:35.169]             setwd(...future.workdir)
[18:41:35.169]         {
[18:41:35.169]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.169]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.169]             }
[18:41:35.169]             base::options(...future.oldOptions)
[18:41:35.169]             if (.Platform$OS.type == "windows") {
[18:41:35.169]                 old_names <- names(...future.oldEnvVars)
[18:41:35.169]                 envs <- base::Sys.getenv()
[18:41:35.169]                 names <- names(envs)
[18:41:35.169]                 common <- intersect(names, old_names)
[18:41:35.169]                 added <- setdiff(names, old_names)
[18:41:35.169]                 removed <- setdiff(old_names, names)
[18:41:35.169]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.169]                   envs[common]]
[18:41:35.169]                 NAMES <- toupper(changed)
[18:41:35.169]                 args <- list()
[18:41:35.169]                 for (kk in seq_along(NAMES)) {
[18:41:35.169]                   name <- changed[[kk]]
[18:41:35.169]                   NAME <- NAMES[[kk]]
[18:41:35.169]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.169]                     next
[18:41:35.169]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.169]                 }
[18:41:35.169]                 NAMES <- toupper(added)
[18:41:35.169]                 for (kk in seq_along(NAMES)) {
[18:41:35.169]                   name <- added[[kk]]
[18:41:35.169]                   NAME <- NAMES[[kk]]
[18:41:35.169]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.169]                     next
[18:41:35.169]                   args[[name]] <- ""
[18:41:35.169]                 }
[18:41:35.169]                 NAMES <- toupper(removed)
[18:41:35.169]                 for (kk in seq_along(NAMES)) {
[18:41:35.169]                   name <- removed[[kk]]
[18:41:35.169]                   NAME <- NAMES[[kk]]
[18:41:35.169]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.169]                     next
[18:41:35.169]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.169]                 }
[18:41:35.169]                 if (length(args) > 0) 
[18:41:35.169]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.169]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.169]             }
[18:41:35.169]             else {
[18:41:35.169]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.169]             }
[18:41:35.169]             {
[18:41:35.169]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.169]                   0L) {
[18:41:35.169]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.169]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.169]                   base::options(opts)
[18:41:35.169]                 }
[18:41:35.169]                 {
[18:41:35.169]                   {
[18:41:35.169]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.169]                     NULL
[18:41:35.169]                   }
[18:41:35.169]                   options(future.plan = NULL)
[18:41:35.169]                   if (is.na(NA_character_)) 
[18:41:35.169]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.169]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.169]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.169]                     .init = FALSE)
[18:41:35.169]                 }
[18:41:35.169]             }
[18:41:35.169]         }
[18:41:35.169]     })
[18:41:35.169]     if (TRUE) {
[18:41:35.169]         base::sink(type = "output", split = FALSE)
[18:41:35.169]         if (TRUE) {
[18:41:35.169]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.169]         }
[18:41:35.169]         else {
[18:41:35.169]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.169]         }
[18:41:35.169]         base::close(...future.stdout)
[18:41:35.169]         ...future.stdout <- NULL
[18:41:35.169]     }
[18:41:35.169]     ...future.result$conditions <- ...future.conditions
[18:41:35.169]     ...future.result$finished <- base::Sys.time()
[18:41:35.169]     ...future.result
[18:41:35.169] }
[18:41:35.174] Exporting 5 global objects (1.29 KiB) to cluster node #1 ...
[18:41:35.174] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.175] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.176] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:35.177] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:35.177] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ...
[18:41:35.178] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ... DONE
[18:41:35.178] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.178] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.178] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.179] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.179] Exporting 5 global objects (1.29 KiB) to cluster node #1 ... DONE
[18:41:35.180] MultisessionFuture started
[18:41:35.180] - Launch lazy future ... done
[18:41:35.180] run() for 'MultisessionFuture' ... done
[18:41:35.180] Created future:
[18:41:35.216] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.216] - Validating connection of MultisessionFuture
[18:41:35.217] - received message: FutureResult
[18:41:35.217] - Received FutureResult
[18:41:35.217] - Erased future from FutureRegistry
[18:41:35.217] result() for ClusterFuture ...
[18:41:35.217] - result already collected: FutureResult
[18:41:35.218] result() for ClusterFuture ... done
[18:41:35.218] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.181] MultisessionFuture:
[18:41:35.181] Label: 'future_.mapply-1'
[18:41:35.181] Expression:
[18:41:35.181] {
[18:41:35.181]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.181]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.181]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.181]         on.exit(options(oopts), add = TRUE)
[18:41:35.181]     }
[18:41:35.181]     {
[18:41:35.181]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.181]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.181]         do.call(mapply, args = args)
[18:41:35.181]     }
[18:41:35.181] }
[18:41:35.181] Lazy evaluation: FALSE
[18:41:35.181] Asynchronous evaluation: TRUE
[18:41:35.181] Local evaluation: TRUE
[18:41:35.181] Environment: R_GlobalEnv
[18:41:35.181] Capture standard output: TRUE
[18:41:35.181] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.181] Globals: 5 objects totaling 880 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.181] Packages: <none>
[18:41:35.181] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.181] Resolved: TRUE
[18:41:35.181] Value: <not collected>
[18:41:35.181] Conditions captured: <none>
[18:41:35.181] Early signaling: FALSE
[18:41:35.181] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.181] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.218] Chunk #1 of 2 ... DONE
[18:41:35.218] Chunk #2 of 2 ...
[18:41:35.219]  - Finding globals in '...' for chunk #2 ...
[18:41:35.219] getGlobalsAndPackages() ...
[18:41:35.219] Searching for globals...
[18:41:35.219] 
[18:41:35.220] Searching for globals ... DONE
[18:41:35.220] - globals: [0] <none>
[18:41:35.220] getGlobalsAndPackages() ... DONE
[18:41:35.220]    + additional globals found: [n=0] 
[18:41:35.220]    + additional namespaces needed: [n=0] 
[18:41:35.220]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:35.221]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.221]  - seeds: <none>
[18:41:35.221]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.221] getGlobalsAndPackages() ...
[18:41:35.221] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.221] Resolving globals: FALSE
[18:41:35.222] The total size of the 5 globals is 909 bytes (909 bytes)
[18:41:35.223] 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 909 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (134 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:35.223] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.223] 
[18:41:35.223] getGlobalsAndPackages() ... DONE
[18:41:35.224] run() for 'Future' ...
[18:41:35.224] - state: 'created'
[18:41:35.224] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.240] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.240] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.240]   - Field: 'node'
[18:41:35.240]   - Field: 'label'
[18:41:35.241]   - Field: 'local'
[18:41:35.241]   - Field: 'owner'
[18:41:35.241]   - Field: 'envir'
[18:41:35.241]   - Field: 'workers'
[18:41:35.241]   - Field: 'packages'
[18:41:35.241]   - Field: 'gc'
[18:41:35.242]   - Field: 'conditions'
[18:41:35.242]   - Field: 'persistent'
[18:41:35.242]   - Field: 'expr'
[18:41:35.242]   - Field: 'uuid'
[18:41:35.242]   - Field: 'seed'
[18:41:35.243]   - Field: 'version'
[18:41:35.243]   - Field: 'result'
[18:41:35.243]   - Field: 'asynchronous'
[18:41:35.243]   - Field: 'calls'
[18:41:35.243]   - Field: 'globals'
[18:41:35.243]   - Field: 'stdout'
[18:41:35.244]   - Field: 'earlySignal'
[18:41:35.244]   - Field: 'lazy'
[18:41:35.244]   - Field: 'state'
[18:41:35.244] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.244] - Launch lazy future ...
[18:41:35.245] Packages needed by the future expression (n = 0): <none>
[18:41:35.245] Packages needed by future strategies (n = 0): <none>
[18:41:35.246] {
[18:41:35.246]     {
[18:41:35.246]         {
[18:41:35.246]             ...future.startTime <- base::Sys.time()
[18:41:35.246]             {
[18:41:35.246]                 {
[18:41:35.246]                   {
[18:41:35.246]                     {
[18:41:35.246]                       base::local({
[18:41:35.246]                         has_future <- base::requireNamespace("future", 
[18:41:35.246]                           quietly = TRUE)
[18:41:35.246]                         if (has_future) {
[18:41:35.246]                           ns <- base::getNamespace("future")
[18:41:35.246]                           version <- ns[[".package"]][["version"]]
[18:41:35.246]                           if (is.null(version)) 
[18:41:35.246]                             version <- utils::packageVersion("future")
[18:41:35.246]                         }
[18:41:35.246]                         else {
[18:41:35.246]                           version <- NULL
[18:41:35.246]                         }
[18:41:35.246]                         if (!has_future || version < "1.8.0") {
[18:41:35.246]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.246]                             "", base::R.version$version.string), 
[18:41:35.246]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.246]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.246]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.246]                               "release", "version")], collapse = " "), 
[18:41:35.246]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.246]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.246]                             info)
[18:41:35.246]                           info <- base::paste(info, collapse = "; ")
[18:41:35.246]                           if (!has_future) {
[18:41:35.246]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.246]                               info)
[18:41:35.246]                           }
[18:41:35.246]                           else {
[18:41:35.246]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.246]                               info, version)
[18:41:35.246]                           }
[18:41:35.246]                           base::stop(msg)
[18:41:35.246]                         }
[18:41:35.246]                       })
[18:41:35.246]                     }
[18:41:35.246]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.246]                     base::options(mc.cores = 1L)
[18:41:35.246]                   }
[18:41:35.246]                   ...future.strategy.old <- future::plan("list")
[18:41:35.246]                   options(future.plan = NULL)
[18:41:35.246]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.246]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.246]                 }
[18:41:35.246]                 ...future.workdir <- getwd()
[18:41:35.246]             }
[18:41:35.246]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.246]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.246]         }
[18:41:35.246]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.246]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.246]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.246]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.246]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.246]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.246]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.246]             base::names(...future.oldOptions))
[18:41:35.246]     }
[18:41:35.246]     if (FALSE) {
[18:41:35.246]     }
[18:41:35.246]     else {
[18:41:35.246]         if (TRUE) {
[18:41:35.246]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.246]                 open = "w")
[18:41:35.246]         }
[18:41:35.246]         else {
[18:41:35.246]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.246]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.246]         }
[18:41:35.246]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.246]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.246]             base::sink(type = "output", split = FALSE)
[18:41:35.246]             base::close(...future.stdout)
[18:41:35.246]         }, add = TRUE)
[18:41:35.246]     }
[18:41:35.246]     ...future.frame <- base::sys.nframe()
[18:41:35.246]     ...future.conditions <- base::list()
[18:41:35.246]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.246]     if (FALSE) {
[18:41:35.246]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.246]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.246]     }
[18:41:35.246]     ...future.result <- base::tryCatch({
[18:41:35.246]         base::withCallingHandlers({
[18:41:35.246]             ...future.value <- base::withVisible(base::local({
[18:41:35.246]                 ...future.makeSendCondition <- base::local({
[18:41:35.246]                   sendCondition <- NULL
[18:41:35.246]                   function(frame = 1L) {
[18:41:35.246]                     if (is.function(sendCondition)) 
[18:41:35.246]                       return(sendCondition)
[18:41:35.246]                     ns <- getNamespace("parallel")
[18:41:35.246]                     if (exists("sendData", mode = "function", 
[18:41:35.246]                       envir = ns)) {
[18:41:35.246]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.246]                         envir = ns)
[18:41:35.246]                       envir <- sys.frame(frame)
[18:41:35.246]                       master <- NULL
[18:41:35.246]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.246]                         !identical(envir, emptyenv())) {
[18:41:35.246]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.246]                           inherits = FALSE)) {
[18:41:35.246]                           master <- get("master", mode = "list", 
[18:41:35.246]                             envir = envir, inherits = FALSE)
[18:41:35.246]                           if (inherits(master, c("SOCKnode", 
[18:41:35.246]                             "SOCK0node"))) {
[18:41:35.246]                             sendCondition <<- function(cond) {
[18:41:35.246]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.246]                                 success = TRUE)
[18:41:35.246]                               parallel_sendData(master, data)
[18:41:35.246]                             }
[18:41:35.246]                             return(sendCondition)
[18:41:35.246]                           }
[18:41:35.246]                         }
[18:41:35.246]                         frame <- frame + 1L
[18:41:35.246]                         envir <- sys.frame(frame)
[18:41:35.246]                       }
[18:41:35.246]                     }
[18:41:35.246]                     sendCondition <<- function(cond) NULL
[18:41:35.246]                   }
[18:41:35.246]                 })
[18:41:35.246]                 withCallingHandlers({
[18:41:35.246]                   {
[18:41:35.246]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.246]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.246]                       ...future.globals.maxSize)) {
[18:41:35.246]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.246]                       on.exit(options(oopts), add = TRUE)
[18:41:35.246]                     }
[18:41:35.246]                     {
[18:41:35.246]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.246]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.246]                         USE.NAMES = FALSE)
[18:41:35.246]                       do.call(mapply, args = args)
[18:41:35.246]                     }
[18:41:35.246]                   }
[18:41:35.246]                 }, immediateCondition = function(cond) {
[18:41:35.246]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.246]                   sendCondition(cond)
[18:41:35.246]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.246]                   {
[18:41:35.246]                     inherits <- base::inherits
[18:41:35.246]                     invokeRestart <- base::invokeRestart
[18:41:35.246]                     is.null <- base::is.null
[18:41:35.246]                     muffled <- FALSE
[18:41:35.246]                     if (inherits(cond, "message")) {
[18:41:35.246]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.246]                       if (muffled) 
[18:41:35.246]                         invokeRestart("muffleMessage")
[18:41:35.246]                     }
[18:41:35.246]                     else if (inherits(cond, "warning")) {
[18:41:35.246]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.246]                       if (muffled) 
[18:41:35.246]                         invokeRestart("muffleWarning")
[18:41:35.246]                     }
[18:41:35.246]                     else if (inherits(cond, "condition")) {
[18:41:35.246]                       if (!is.null(pattern)) {
[18:41:35.246]                         computeRestarts <- base::computeRestarts
[18:41:35.246]                         grepl <- base::grepl
[18:41:35.246]                         restarts <- computeRestarts(cond)
[18:41:35.246]                         for (restart in restarts) {
[18:41:35.246]                           name <- restart$name
[18:41:35.246]                           if (is.null(name)) 
[18:41:35.246]                             next
[18:41:35.246]                           if (!grepl(pattern, name)) 
[18:41:35.246]                             next
[18:41:35.246]                           invokeRestart(restart)
[18:41:35.246]                           muffled <- TRUE
[18:41:35.246]                           break
[18:41:35.246]                         }
[18:41:35.246]                       }
[18:41:35.246]                     }
[18:41:35.246]                     invisible(muffled)
[18:41:35.246]                   }
[18:41:35.246]                   muffleCondition(cond)
[18:41:35.246]                 })
[18:41:35.246]             }))
[18:41:35.246]             future::FutureResult(value = ...future.value$value, 
[18:41:35.246]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.246]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.246]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.246]                     ...future.globalenv.names))
[18:41:35.246]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.246]         }, condition = base::local({
[18:41:35.246]             c <- base::c
[18:41:35.246]             inherits <- base::inherits
[18:41:35.246]             invokeRestart <- base::invokeRestart
[18:41:35.246]             length <- base::length
[18:41:35.246]             list <- base::list
[18:41:35.246]             seq.int <- base::seq.int
[18:41:35.246]             signalCondition <- base::signalCondition
[18:41:35.246]             sys.calls <- base::sys.calls
[18:41:35.246]             `[[` <- base::`[[`
[18:41:35.246]             `+` <- base::`+`
[18:41:35.246]             `<<-` <- base::`<<-`
[18:41:35.246]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.246]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.246]                   3L)]
[18:41:35.246]             }
[18:41:35.246]             function(cond) {
[18:41:35.246]                 is_error <- inherits(cond, "error")
[18:41:35.246]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.246]                   NULL)
[18:41:35.246]                 if (is_error) {
[18:41:35.246]                   sessionInformation <- function() {
[18:41:35.246]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.246]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.246]                       search = base::search(), system = base::Sys.info())
[18:41:35.246]                   }
[18:41:35.246]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.246]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.246]                     cond$call), session = sessionInformation(), 
[18:41:35.246]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.246]                   signalCondition(cond)
[18:41:35.246]                 }
[18:41:35.246]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.246]                 "immediateCondition"))) {
[18:41:35.246]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.246]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.246]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.246]                   if (TRUE && !signal) {
[18:41:35.246]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.246]                     {
[18:41:35.246]                       inherits <- base::inherits
[18:41:35.246]                       invokeRestart <- base::invokeRestart
[18:41:35.246]                       is.null <- base::is.null
[18:41:35.246]                       muffled <- FALSE
[18:41:35.246]                       if (inherits(cond, "message")) {
[18:41:35.246]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.246]                         if (muffled) 
[18:41:35.246]                           invokeRestart("muffleMessage")
[18:41:35.246]                       }
[18:41:35.246]                       else if (inherits(cond, "warning")) {
[18:41:35.246]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.246]                         if (muffled) 
[18:41:35.246]                           invokeRestart("muffleWarning")
[18:41:35.246]                       }
[18:41:35.246]                       else if (inherits(cond, "condition")) {
[18:41:35.246]                         if (!is.null(pattern)) {
[18:41:35.246]                           computeRestarts <- base::computeRestarts
[18:41:35.246]                           grepl <- base::grepl
[18:41:35.246]                           restarts <- computeRestarts(cond)
[18:41:35.246]                           for (restart in restarts) {
[18:41:35.246]                             name <- restart$name
[18:41:35.246]                             if (is.null(name)) 
[18:41:35.246]                               next
[18:41:35.246]                             if (!grepl(pattern, name)) 
[18:41:35.246]                               next
[18:41:35.246]                             invokeRestart(restart)
[18:41:35.246]                             muffled <- TRUE
[18:41:35.246]                             break
[18:41:35.246]                           }
[18:41:35.246]                         }
[18:41:35.246]                       }
[18:41:35.246]                       invisible(muffled)
[18:41:35.246]                     }
[18:41:35.246]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.246]                   }
[18:41:35.246]                 }
[18:41:35.246]                 else {
[18:41:35.246]                   if (TRUE) {
[18:41:35.246]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.246]                     {
[18:41:35.246]                       inherits <- base::inherits
[18:41:35.246]                       invokeRestart <- base::invokeRestart
[18:41:35.246]                       is.null <- base::is.null
[18:41:35.246]                       muffled <- FALSE
[18:41:35.246]                       if (inherits(cond, "message")) {
[18:41:35.246]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.246]                         if (muffled) 
[18:41:35.246]                           invokeRestart("muffleMessage")
[18:41:35.246]                       }
[18:41:35.246]                       else if (inherits(cond, "warning")) {
[18:41:35.246]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.246]                         if (muffled) 
[18:41:35.246]                           invokeRestart("muffleWarning")
[18:41:35.246]                       }
[18:41:35.246]                       else if (inherits(cond, "condition")) {
[18:41:35.246]                         if (!is.null(pattern)) {
[18:41:35.246]                           computeRestarts <- base::computeRestarts
[18:41:35.246]                           grepl <- base::grepl
[18:41:35.246]                           restarts <- computeRestarts(cond)
[18:41:35.246]                           for (restart in restarts) {
[18:41:35.246]                             name <- restart$name
[18:41:35.246]                             if (is.null(name)) 
[18:41:35.246]                               next
[18:41:35.246]                             if (!grepl(pattern, name)) 
[18:41:35.246]                               next
[18:41:35.246]                             invokeRestart(restart)
[18:41:35.246]                             muffled <- TRUE
[18:41:35.246]                             break
[18:41:35.246]                           }
[18:41:35.246]                         }
[18:41:35.246]                       }
[18:41:35.246]                       invisible(muffled)
[18:41:35.246]                     }
[18:41:35.246]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.246]                   }
[18:41:35.246]                 }
[18:41:35.246]             }
[18:41:35.246]         }))
[18:41:35.246]     }, error = function(ex) {
[18:41:35.246]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.246]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.246]                 ...future.rng), started = ...future.startTime, 
[18:41:35.246]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.246]             version = "1.8"), class = "FutureResult")
[18:41:35.246]     }, finally = {
[18:41:35.246]         if (!identical(...future.workdir, getwd())) 
[18:41:35.246]             setwd(...future.workdir)
[18:41:35.246]         {
[18:41:35.246]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.246]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.246]             }
[18:41:35.246]             base::options(...future.oldOptions)
[18:41:35.246]             if (.Platform$OS.type == "windows") {
[18:41:35.246]                 old_names <- names(...future.oldEnvVars)
[18:41:35.246]                 envs <- base::Sys.getenv()
[18:41:35.246]                 names <- names(envs)
[18:41:35.246]                 common <- intersect(names, old_names)
[18:41:35.246]                 added <- setdiff(names, old_names)
[18:41:35.246]                 removed <- setdiff(old_names, names)
[18:41:35.246]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.246]                   envs[common]]
[18:41:35.246]                 NAMES <- toupper(changed)
[18:41:35.246]                 args <- list()
[18:41:35.246]                 for (kk in seq_along(NAMES)) {
[18:41:35.246]                   name <- changed[[kk]]
[18:41:35.246]                   NAME <- NAMES[[kk]]
[18:41:35.246]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.246]                     next
[18:41:35.246]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.246]                 }
[18:41:35.246]                 NAMES <- toupper(added)
[18:41:35.246]                 for (kk in seq_along(NAMES)) {
[18:41:35.246]                   name <- added[[kk]]
[18:41:35.246]                   NAME <- NAMES[[kk]]
[18:41:35.246]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.246]                     next
[18:41:35.246]                   args[[name]] <- ""
[18:41:35.246]                 }
[18:41:35.246]                 NAMES <- toupper(removed)
[18:41:35.246]                 for (kk in seq_along(NAMES)) {
[18:41:35.246]                   name <- removed[[kk]]
[18:41:35.246]                   NAME <- NAMES[[kk]]
[18:41:35.246]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.246]                     next
[18:41:35.246]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.246]                 }
[18:41:35.246]                 if (length(args) > 0) 
[18:41:35.246]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.246]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.246]             }
[18:41:35.246]             else {
[18:41:35.246]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.246]             }
[18:41:35.246]             {
[18:41:35.246]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.246]                   0L) {
[18:41:35.246]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.246]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.246]                   base::options(opts)
[18:41:35.246]                 }
[18:41:35.246]                 {
[18:41:35.246]                   {
[18:41:35.246]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.246]                     NULL
[18:41:35.246]                   }
[18:41:35.246]                   options(future.plan = NULL)
[18:41:35.246]                   if (is.na(NA_character_)) 
[18:41:35.246]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.246]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.246]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.246]                     .init = FALSE)
[18:41:35.246]                 }
[18:41:35.246]             }
[18:41:35.246]         }
[18:41:35.246]     })
[18:41:35.246]     if (TRUE) {
[18:41:35.246]         base::sink(type = "output", split = FALSE)
[18:41:35.246]         if (TRUE) {
[18:41:35.246]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.246]         }
[18:41:35.246]         else {
[18:41:35.246]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.246]         }
[18:41:35.246]         base::close(...future.stdout)
[18:41:35.246]         ...future.stdout <- NULL
[18:41:35.246]     }
[18:41:35.246]     ...future.result$conditions <- ...future.conditions
[18:41:35.246]     ...future.result$finished <- base::Sys.time()
[18:41:35.246]     ...future.result
[18:41:35.246] }
[18:41:35.251] Exporting 5 global objects (1.32 KiB) to cluster node #1 ...
[18:41:35.251] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.252] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.252] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:35.253] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:35.253] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ...
[18:41:35.254] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ... DONE
[18:41:35.254] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.255] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.255] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.255] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.256] Exporting 5 global objects (1.32 KiB) to cluster node #1 ... DONE
[18:41:35.256] MultisessionFuture started
[18:41:35.257] - Launch lazy future ... done
[18:41:35.257] run() for 'MultisessionFuture' ... done
[18:41:35.257] Created future:
[18:41:35.278] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.279] - Validating connection of MultisessionFuture
[18:41:35.279] - received message: FutureResult
[18:41:35.279] - Received FutureResult
[18:41:35.280] - Erased future from FutureRegistry
[18:41:35.280] result() for ClusterFuture ...
[18:41:35.280] - result already collected: FutureResult
[18:41:35.280] result() for ClusterFuture ... done
[18:41:35.280] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.258] MultisessionFuture:
[18:41:35.258] Label: 'future_.mapply-2'
[18:41:35.258] Expression:
[18:41:35.258] {
[18:41:35.258]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.258]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.258]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.258]         on.exit(options(oopts), add = TRUE)
[18:41:35.258]     }
[18:41:35.258]     {
[18:41:35.258]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.258]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.258]         do.call(mapply, args = args)
[18:41:35.258]     }
[18:41:35.258] }
[18:41:35.258] Lazy evaluation: FALSE
[18:41:35.258] Asynchronous evaluation: TRUE
[18:41:35.258] Local evaluation: TRUE
[18:41:35.258] Environment: R_GlobalEnv
[18:41:35.258] Capture standard output: TRUE
[18:41:35.258] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.258] Globals: 5 objects totaling 909 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 134 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.258] Packages: <none>
[18:41:35.258] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.258] Resolved: TRUE
[18:41:35.258] Value: <not collected>
[18:41:35.258] Conditions captured: <none>
[18:41:35.258] Early signaling: FALSE
[18:41:35.258] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.258] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.281] Chunk #2 of 2 ... DONE
[18:41:35.281] Launching 2 futures (chunks) ... DONE
[18:41:35.281] Resolving 2 futures (chunks) ...
[18:41:35.281] resolve() on list ...
[18:41:35.281]  recursive: 0
[18:41:35.282]  length: 2
[18:41:35.282] 
[18:41:35.282] Future #1
[18:41:35.282] result() for ClusterFuture ...
[18:41:35.282] - result already collected: FutureResult
[18:41:35.282] result() for ClusterFuture ... done
[18:41:35.283] result() for ClusterFuture ...
[18:41:35.283] - result already collected: FutureResult
[18:41:35.283] result() for ClusterFuture ... done
[18:41:35.283] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:35.283] - nx: 2
[18:41:35.283] - relay: TRUE
[18:41:35.284] - stdout: TRUE
[18:41:35.284] - signal: TRUE
[18:41:35.284] - resignal: FALSE
[18:41:35.284] - force: TRUE
[18:41:35.284] - relayed: [n=2] FALSE, FALSE
[18:41:35.284] - queued futures: [n=2] FALSE, FALSE
[18:41:35.285]  - until=1
[18:41:35.285]  - relaying element #1
[18:41:35.285] result() for ClusterFuture ...
[18:41:35.285] - result already collected: FutureResult
[18:41:35.285] result() for ClusterFuture ... done
[18:41:35.285] result() for ClusterFuture ...
[18:41:35.286] - result already collected: FutureResult
[18:41:35.286] result() for ClusterFuture ... done
[18:41:35.286] result() for ClusterFuture ...
[18:41:35.286] - result already collected: FutureResult
[18:41:35.286] result() for ClusterFuture ... done
[18:41:35.286] result() for ClusterFuture ...
[18:41:35.287] - result already collected: FutureResult
[18:41:35.287] result() for ClusterFuture ... done
[18:41:35.287] - relayed: [n=2] TRUE, FALSE
[18:41:35.287] - queued futures: [n=2] TRUE, FALSE
[18:41:35.287] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:35.287]  length: 1 (resolved future 1)
[18:41:35.288] Future #2
[18:41:35.288] result() for ClusterFuture ...
[18:41:35.288] - result already collected: FutureResult
[18:41:35.288] result() for ClusterFuture ... done
[18:41:35.288] result() for ClusterFuture ...
[18:41:35.288] - result already collected: FutureResult
[18:41:35.289] result() for ClusterFuture ... done
[18:41:35.289] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:35.289] - nx: 2
[18:41:35.289] - relay: TRUE
[18:41:35.289] - stdout: TRUE
[18:41:35.289] - signal: TRUE
[18:41:35.290] - resignal: FALSE
[18:41:35.290] - force: TRUE
[18:41:35.290] - relayed: [n=2] TRUE, FALSE
[18:41:35.290] - queued futures: [n=2] TRUE, FALSE
[18:41:35.290]  - until=2
[18:41:35.290]  - relaying element #2
[18:41:35.291] result() for ClusterFuture ...
[18:41:35.291] - result already collected: FutureResult
[18:41:35.291] result() for ClusterFuture ... done
[18:41:35.291] result() for ClusterFuture ...
[18:41:35.291] - result already collected: FutureResult
[18:41:35.291] result() for ClusterFuture ... done
[18:41:35.292] result() for ClusterFuture ...
[18:41:35.292] - result already collected: FutureResult
[18:41:35.292] result() for ClusterFuture ... done
[18:41:35.292] result() for ClusterFuture ...
[18:41:35.292] - result already collected: FutureResult
[18:41:35.292] result() for ClusterFuture ... done
[18:41:35.292] - relayed: [n=2] TRUE, TRUE
[18:41:35.293] - queued futures: [n=2] TRUE, TRUE
[18:41:35.293] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:35.293]  length: 0 (resolved future 2)
[18:41:35.293] Relaying remaining futures
[18:41:35.293] signalConditionsASAP(NULL, pos=0) ...
[18:41:35.293] - nx: 2
[18:41:35.294] - relay: TRUE
[18:41:35.294] - stdout: TRUE
[18:41:35.294] - signal: TRUE
[18:41:35.294] - resignal: FALSE
[18:41:35.294] - force: TRUE
[18:41:35.294] - relayed: [n=2] TRUE, TRUE
[18:41:35.294] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:35.295] - relayed: [n=2] TRUE, TRUE
[18:41:35.295] - queued futures: [n=2] TRUE, TRUE
[18:41:35.295] signalConditionsASAP(NULL, pos=0) ... done
[18:41:35.295] resolve() on list ... DONE
[18:41:35.295] result() for ClusterFuture ...
[18:41:35.296] - result already collected: FutureResult
[18:41:35.296] result() for ClusterFuture ... done
[18:41:35.296] result() for ClusterFuture ...
[18:41:35.296] - result already collected: FutureResult
[18:41:35.296] result() for ClusterFuture ... done
[18:41:35.296] result() for ClusterFuture ...
[18:41:35.297] - result already collected: FutureResult
[18:41:35.297] result() for ClusterFuture ... done
[18:41:35.297] result() for ClusterFuture ...
[18:41:35.297] - result already collected: FutureResult
[18:41:35.298] result() for ClusterFuture ... done
[18:41:35.298]  - Number of value chunks collected: 2
[18:41:35.298] Resolving 2 futures (chunks) ... DONE
[18:41:35.298] Reducing values from 2 chunks ...
[18:41:35.299]  - Number of values collected after concatenation: 5
[18:41:35.299]  - Number of values expected: 5
[18:41:35.299] Reducing values from 2 chunks ... DONE
[18:41:35.300] future_mapply() ... DONE
[18:41:35.300] future_mapply() ...
[18:41:35.305] Number of chunks: 2
[18:41:35.306] Index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[18:41:35.306] getGlobalsAndPackagesXApply() ...
[18:41:35.306]  - future.globals: TRUE
[18:41:35.307] getGlobalsAndPackages() ...
[18:41:35.307] Searching for globals...
[18:41:35.310] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:35.310] Searching for globals ... DONE
[18:41:35.310] Resolving globals: FALSE
[18:41:35.311] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:35.312] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:35.313] - globals: [1] 'FUN'
[18:41:35.313] 
[18:41:35.313] getGlobalsAndPackages() ... DONE
[18:41:35.313]  - globals found/used: [n=1] 'FUN'
[18:41:35.314]  - needed namespaces: [n=0] 
[18:41:35.314] Finding globals ... DONE
[18:41:35.314] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:35.315] List of 2
[18:41:35.315]  $ ...future.FUN:function (C, k)  
[18:41:35.315]  $ MoreArgs     : NULL
[18:41:35.315]  - attr(*, "where")=List of 2
[18:41:35.315]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:35.315]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:35.315]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:35.315]  - attr(*, "resolved")= logi FALSE
[18:41:35.315]  - attr(*, "total_size")= num NA
[18:41:35.320] Packages to be attached in all futures: [n=0] 
[18:41:35.320] getGlobalsAndPackagesXApply() ... DONE
[18:41:35.321] Number of futures (= number of chunks): 2
[18:41:35.321] Launching 2 futures (chunks) ...
[18:41:35.321] Chunk #1 of 2 ...
[18:41:35.322]  - Finding globals in '...' for chunk #1 ...
[18:41:35.322] getGlobalsAndPackages() ...
[18:41:35.322] Searching for globals...
[18:41:35.323] 
[18:41:35.323] Searching for globals ... DONE
[18:41:35.323] - globals: [0] <none>
[18:41:35.324] getGlobalsAndPackages() ... DONE
[18:41:35.324]    + additional globals found: [n=0] 
[18:41:35.324]    + additional namespaces needed: [n=0] 
[18:41:35.325]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:35.325]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.325]  - seeds: <none>
[18:41:35.325]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.326] getGlobalsAndPackages() ...
[18:41:35.326] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.326] Resolving globals: FALSE
[18:41:35.333] The total size of the 5 globals is 876 bytes (876 bytes)
[18:41:35.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 876 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:35.334] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.335] 
[18:41:35.335] getGlobalsAndPackages() ... DONE
[18:41:35.336] run() for 'Future' ...
[18:41:35.336] - state: 'created'
[18:41:35.336] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.357] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.357] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.358]   - Field: 'node'
[18:41:35.358]   - Field: 'label'
[18:41:35.358]   - Field: 'local'
[18:41:35.359]   - Field: 'owner'
[18:41:35.359]   - Field: 'envir'
[18:41:35.359]   - Field: 'workers'
[18:41:35.359]   - Field: 'packages'
[18:41:35.360]   - Field: 'gc'
[18:41:35.360]   - Field: 'conditions'
[18:41:35.360]   - Field: 'persistent'
[18:41:35.361]   - Field: 'expr'
[18:41:35.361]   - Field: 'uuid'
[18:41:35.361]   - Field: 'seed'
[18:41:35.362]   - Field: 'version'
[18:41:35.362]   - Field: 'result'
[18:41:35.362]   - Field: 'asynchronous'
[18:41:35.362]   - Field: 'calls'
[18:41:35.363]   - Field: 'globals'
[18:41:35.363]   - Field: 'stdout'
[18:41:35.363]   - Field: 'earlySignal'
[18:41:35.364]   - Field: 'lazy'
[18:41:35.364]   - Field: 'state'
[18:41:35.364] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.364] - Launch lazy future ...
[18:41:35.365] Packages needed by the future expression (n = 0): <none>
[18:41:35.365] Packages needed by future strategies (n = 0): <none>
[18:41:35.366] {
[18:41:35.366]     {
[18:41:35.366]         {
[18:41:35.366]             ...future.startTime <- base::Sys.time()
[18:41:35.366]             {
[18:41:35.366]                 {
[18:41:35.366]                   {
[18:41:35.366]                     {
[18:41:35.366]                       base::local({
[18:41:35.366]                         has_future <- base::requireNamespace("future", 
[18:41:35.366]                           quietly = TRUE)
[18:41:35.366]                         if (has_future) {
[18:41:35.366]                           ns <- base::getNamespace("future")
[18:41:35.366]                           version <- ns[[".package"]][["version"]]
[18:41:35.366]                           if (is.null(version)) 
[18:41:35.366]                             version <- utils::packageVersion("future")
[18:41:35.366]                         }
[18:41:35.366]                         else {
[18:41:35.366]                           version <- NULL
[18:41:35.366]                         }
[18:41:35.366]                         if (!has_future || version < "1.8.0") {
[18:41:35.366]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.366]                             "", base::R.version$version.string), 
[18:41:35.366]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.366]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.366]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.366]                               "release", "version")], collapse = " "), 
[18:41:35.366]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.366]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.366]                             info)
[18:41:35.366]                           info <- base::paste(info, collapse = "; ")
[18:41:35.366]                           if (!has_future) {
[18:41:35.366]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.366]                               info)
[18:41:35.366]                           }
[18:41:35.366]                           else {
[18:41:35.366]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.366]                               info, version)
[18:41:35.366]                           }
[18:41:35.366]                           base::stop(msg)
[18:41:35.366]                         }
[18:41:35.366]                       })
[18:41:35.366]                     }
[18:41:35.366]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.366]                     base::options(mc.cores = 1L)
[18:41:35.366]                   }
[18:41:35.366]                   ...future.strategy.old <- future::plan("list")
[18:41:35.366]                   options(future.plan = NULL)
[18:41:35.366]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.366]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.366]                 }
[18:41:35.366]                 ...future.workdir <- getwd()
[18:41:35.366]             }
[18:41:35.366]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.366]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.366]         }
[18:41:35.366]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.366]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.366]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.366]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.366]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.366]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.366]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.366]             base::names(...future.oldOptions))
[18:41:35.366]     }
[18:41:35.366]     if (FALSE) {
[18:41:35.366]     }
[18:41:35.366]     else {
[18:41:35.366]         if (TRUE) {
[18:41:35.366]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.366]                 open = "w")
[18:41:35.366]         }
[18:41:35.366]         else {
[18:41:35.366]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.366]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.366]         }
[18:41:35.366]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.366]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.366]             base::sink(type = "output", split = FALSE)
[18:41:35.366]             base::close(...future.stdout)
[18:41:35.366]         }, add = TRUE)
[18:41:35.366]     }
[18:41:35.366]     ...future.frame <- base::sys.nframe()
[18:41:35.366]     ...future.conditions <- base::list()
[18:41:35.366]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.366]     if (FALSE) {
[18:41:35.366]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.366]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.366]     }
[18:41:35.366]     ...future.result <- base::tryCatch({
[18:41:35.366]         base::withCallingHandlers({
[18:41:35.366]             ...future.value <- base::withVisible(base::local({
[18:41:35.366]                 ...future.makeSendCondition <- base::local({
[18:41:35.366]                   sendCondition <- NULL
[18:41:35.366]                   function(frame = 1L) {
[18:41:35.366]                     if (is.function(sendCondition)) 
[18:41:35.366]                       return(sendCondition)
[18:41:35.366]                     ns <- getNamespace("parallel")
[18:41:35.366]                     if (exists("sendData", mode = "function", 
[18:41:35.366]                       envir = ns)) {
[18:41:35.366]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.366]                         envir = ns)
[18:41:35.366]                       envir <- sys.frame(frame)
[18:41:35.366]                       master <- NULL
[18:41:35.366]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.366]                         !identical(envir, emptyenv())) {
[18:41:35.366]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.366]                           inherits = FALSE)) {
[18:41:35.366]                           master <- get("master", mode = "list", 
[18:41:35.366]                             envir = envir, inherits = FALSE)
[18:41:35.366]                           if (inherits(master, c("SOCKnode", 
[18:41:35.366]                             "SOCK0node"))) {
[18:41:35.366]                             sendCondition <<- function(cond) {
[18:41:35.366]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.366]                                 success = TRUE)
[18:41:35.366]                               parallel_sendData(master, data)
[18:41:35.366]                             }
[18:41:35.366]                             return(sendCondition)
[18:41:35.366]                           }
[18:41:35.366]                         }
[18:41:35.366]                         frame <- frame + 1L
[18:41:35.366]                         envir <- sys.frame(frame)
[18:41:35.366]                       }
[18:41:35.366]                     }
[18:41:35.366]                     sendCondition <<- function(cond) NULL
[18:41:35.366]                   }
[18:41:35.366]                 })
[18:41:35.366]                 withCallingHandlers({
[18:41:35.366]                   {
[18:41:35.366]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.366]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.366]                       ...future.globals.maxSize)) {
[18:41:35.366]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.366]                       on.exit(options(oopts), add = TRUE)
[18:41:35.366]                     }
[18:41:35.366]                     {
[18:41:35.366]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.366]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.366]                         USE.NAMES = FALSE)
[18:41:35.366]                       do.call(mapply, args = args)
[18:41:35.366]                     }
[18:41:35.366]                   }
[18:41:35.366]                 }, immediateCondition = function(cond) {
[18:41:35.366]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.366]                   sendCondition(cond)
[18:41:35.366]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.366]                   {
[18:41:35.366]                     inherits <- base::inherits
[18:41:35.366]                     invokeRestart <- base::invokeRestart
[18:41:35.366]                     is.null <- base::is.null
[18:41:35.366]                     muffled <- FALSE
[18:41:35.366]                     if (inherits(cond, "message")) {
[18:41:35.366]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.366]                       if (muffled) 
[18:41:35.366]                         invokeRestart("muffleMessage")
[18:41:35.366]                     }
[18:41:35.366]                     else if (inherits(cond, "warning")) {
[18:41:35.366]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.366]                       if (muffled) 
[18:41:35.366]                         invokeRestart("muffleWarning")
[18:41:35.366]                     }
[18:41:35.366]                     else if (inherits(cond, "condition")) {
[18:41:35.366]                       if (!is.null(pattern)) {
[18:41:35.366]                         computeRestarts <- base::computeRestarts
[18:41:35.366]                         grepl <- base::grepl
[18:41:35.366]                         restarts <- computeRestarts(cond)
[18:41:35.366]                         for (restart in restarts) {
[18:41:35.366]                           name <- restart$name
[18:41:35.366]                           if (is.null(name)) 
[18:41:35.366]                             next
[18:41:35.366]                           if (!grepl(pattern, name)) 
[18:41:35.366]                             next
[18:41:35.366]                           invokeRestart(restart)
[18:41:35.366]                           muffled <- TRUE
[18:41:35.366]                           break
[18:41:35.366]                         }
[18:41:35.366]                       }
[18:41:35.366]                     }
[18:41:35.366]                     invisible(muffled)
[18:41:35.366]                   }
[18:41:35.366]                   muffleCondition(cond)
[18:41:35.366]                 })
[18:41:35.366]             }))
[18:41:35.366]             future::FutureResult(value = ...future.value$value, 
[18:41:35.366]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.366]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.366]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.366]                     ...future.globalenv.names))
[18:41:35.366]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.366]         }, condition = base::local({
[18:41:35.366]             c <- base::c
[18:41:35.366]             inherits <- base::inherits
[18:41:35.366]             invokeRestart <- base::invokeRestart
[18:41:35.366]             length <- base::length
[18:41:35.366]             list <- base::list
[18:41:35.366]             seq.int <- base::seq.int
[18:41:35.366]             signalCondition <- base::signalCondition
[18:41:35.366]             sys.calls <- base::sys.calls
[18:41:35.366]             `[[` <- base::`[[`
[18:41:35.366]             `+` <- base::`+`
[18:41:35.366]             `<<-` <- base::`<<-`
[18:41:35.366]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.366]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.366]                   3L)]
[18:41:35.366]             }
[18:41:35.366]             function(cond) {
[18:41:35.366]                 is_error <- inherits(cond, "error")
[18:41:35.366]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.366]                   NULL)
[18:41:35.366]                 if (is_error) {
[18:41:35.366]                   sessionInformation <- function() {
[18:41:35.366]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.366]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.366]                       search = base::search(), system = base::Sys.info())
[18:41:35.366]                   }
[18:41:35.366]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.366]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.366]                     cond$call), session = sessionInformation(), 
[18:41:35.366]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.366]                   signalCondition(cond)
[18:41:35.366]                 }
[18:41:35.366]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.366]                 "immediateCondition"))) {
[18:41:35.366]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.366]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.366]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.366]                   if (TRUE && !signal) {
[18:41:35.366]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.366]                     {
[18:41:35.366]                       inherits <- base::inherits
[18:41:35.366]                       invokeRestart <- base::invokeRestart
[18:41:35.366]                       is.null <- base::is.null
[18:41:35.366]                       muffled <- FALSE
[18:41:35.366]                       if (inherits(cond, "message")) {
[18:41:35.366]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.366]                         if (muffled) 
[18:41:35.366]                           invokeRestart("muffleMessage")
[18:41:35.366]                       }
[18:41:35.366]                       else if (inherits(cond, "warning")) {
[18:41:35.366]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.366]                         if (muffled) 
[18:41:35.366]                           invokeRestart("muffleWarning")
[18:41:35.366]                       }
[18:41:35.366]                       else if (inherits(cond, "condition")) {
[18:41:35.366]                         if (!is.null(pattern)) {
[18:41:35.366]                           computeRestarts <- base::computeRestarts
[18:41:35.366]                           grepl <- base::grepl
[18:41:35.366]                           restarts <- computeRestarts(cond)
[18:41:35.366]                           for (restart in restarts) {
[18:41:35.366]                             name <- restart$name
[18:41:35.366]                             if (is.null(name)) 
[18:41:35.366]                               next
[18:41:35.366]                             if (!grepl(pattern, name)) 
[18:41:35.366]                               next
[18:41:35.366]                             invokeRestart(restart)
[18:41:35.366]                             muffled <- TRUE
[18:41:35.366]                             break
[18:41:35.366]                           }
[18:41:35.366]                         }
[18:41:35.366]                       }
[18:41:35.366]                       invisible(muffled)
[18:41:35.366]                     }
[18:41:35.366]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.366]                   }
[18:41:35.366]                 }
[18:41:35.366]                 else {
[18:41:35.366]                   if (TRUE) {
[18:41:35.366]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.366]                     {
[18:41:35.366]                       inherits <- base::inherits
[18:41:35.366]                       invokeRestart <- base::invokeRestart
[18:41:35.366]                       is.null <- base::is.null
[18:41:35.366]                       muffled <- FALSE
[18:41:35.366]                       if (inherits(cond, "message")) {
[18:41:35.366]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.366]                         if (muffled) 
[18:41:35.366]                           invokeRestart("muffleMessage")
[18:41:35.366]                       }
[18:41:35.366]                       else if (inherits(cond, "warning")) {
[18:41:35.366]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.366]                         if (muffled) 
[18:41:35.366]                           invokeRestart("muffleWarning")
[18:41:35.366]                       }
[18:41:35.366]                       else if (inherits(cond, "condition")) {
[18:41:35.366]                         if (!is.null(pattern)) {
[18:41:35.366]                           computeRestarts <- base::computeRestarts
[18:41:35.366]                           grepl <- base::grepl
[18:41:35.366]                           restarts <- computeRestarts(cond)
[18:41:35.366]                           for (restart in restarts) {
[18:41:35.366]                             name <- restart$name
[18:41:35.366]                             if (is.null(name)) 
[18:41:35.366]                               next
[18:41:35.366]                             if (!grepl(pattern, name)) 
[18:41:35.366]                               next
[18:41:35.366]                             invokeRestart(restart)
[18:41:35.366]                             muffled <- TRUE
[18:41:35.366]                             break
[18:41:35.366]                           }
[18:41:35.366]                         }
[18:41:35.366]                       }
[18:41:35.366]                       invisible(muffled)
[18:41:35.366]                     }
[18:41:35.366]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.366]                   }
[18:41:35.366]                 }
[18:41:35.366]             }
[18:41:35.366]         }))
[18:41:35.366]     }, error = function(ex) {
[18:41:35.366]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.366]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.366]                 ...future.rng), started = ...future.startTime, 
[18:41:35.366]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.366]             version = "1.8"), class = "FutureResult")
[18:41:35.366]     }, finally = {
[18:41:35.366]         if (!identical(...future.workdir, getwd())) 
[18:41:35.366]             setwd(...future.workdir)
[18:41:35.366]         {
[18:41:35.366]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.366]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.366]             }
[18:41:35.366]             base::options(...future.oldOptions)
[18:41:35.366]             if (.Platform$OS.type == "windows") {
[18:41:35.366]                 old_names <- names(...future.oldEnvVars)
[18:41:35.366]                 envs <- base::Sys.getenv()
[18:41:35.366]                 names <- names(envs)
[18:41:35.366]                 common <- intersect(names, old_names)
[18:41:35.366]                 added <- setdiff(names, old_names)
[18:41:35.366]                 removed <- setdiff(old_names, names)
[18:41:35.366]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.366]                   envs[common]]
[18:41:35.366]                 NAMES <- toupper(changed)
[18:41:35.366]                 args <- list()
[18:41:35.366]                 for (kk in seq_along(NAMES)) {
[18:41:35.366]                   name <- changed[[kk]]
[18:41:35.366]                   NAME <- NAMES[[kk]]
[18:41:35.366]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.366]                     next
[18:41:35.366]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.366]                 }
[18:41:35.366]                 NAMES <- toupper(added)
[18:41:35.366]                 for (kk in seq_along(NAMES)) {
[18:41:35.366]                   name <- added[[kk]]
[18:41:35.366]                   NAME <- NAMES[[kk]]
[18:41:35.366]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.366]                     next
[18:41:35.366]                   args[[name]] <- ""
[18:41:35.366]                 }
[18:41:35.366]                 NAMES <- toupper(removed)
[18:41:35.366]                 for (kk in seq_along(NAMES)) {
[18:41:35.366]                   name <- removed[[kk]]
[18:41:35.366]                   NAME <- NAMES[[kk]]
[18:41:35.366]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.366]                     next
[18:41:35.366]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.366]                 }
[18:41:35.366]                 if (length(args) > 0) 
[18:41:35.366]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.366]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.366]             }
[18:41:35.366]             else {
[18:41:35.366]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.366]             }
[18:41:35.366]             {
[18:41:35.366]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.366]                   0L) {
[18:41:35.366]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.366]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.366]                   base::options(opts)
[18:41:35.366]                 }
[18:41:35.366]                 {
[18:41:35.366]                   {
[18:41:35.366]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.366]                     NULL
[18:41:35.366]                   }
[18:41:35.366]                   options(future.plan = NULL)
[18:41:35.366]                   if (is.na(NA_character_)) 
[18:41:35.366]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.366]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.366]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.366]                     .init = FALSE)
[18:41:35.366]                 }
[18:41:35.366]             }
[18:41:35.366]         }
[18:41:35.366]     })
[18:41:35.366]     if (TRUE) {
[18:41:35.366]         base::sink(type = "output", split = FALSE)
[18:41:35.366]         if (TRUE) {
[18:41:35.366]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.366]         }
[18:41:35.366]         else {
[18:41:35.366]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.366]         }
[18:41:35.366]         base::close(...future.stdout)
[18:41:35.366]         ...future.stdout <- NULL
[18:41:35.366]     }
[18:41:35.366]     ...future.result$conditions <- ...future.conditions
[18:41:35.366]     ...future.result$finished <- base::Sys.time()
[18:41:35.366]     ...future.result
[18:41:35.366] }
[18:41:35.375] Exporting 5 global objects (1.29 KiB) to cluster node #1 ...
[18:41:35.376] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.376] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.377] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:35.377] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:35.378] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ...
[18:41:35.379] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ... DONE
[18:41:35.379] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.380] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.380] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.381] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.382] Exporting 5 global objects (1.29 KiB) to cluster node #1 ... DONE
[18:41:35.383] MultisessionFuture started
[18:41:35.383] - Launch lazy future ... done
[18:41:35.383] run() for 'MultisessionFuture' ... done
[18:41:35.383] Created future:
[18:41:35.463] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.463] - Validating connection of MultisessionFuture
[18:41:35.464] - received message: FutureResult
[18:41:35.464] - Received FutureResult
[18:41:35.464] - Erased future from FutureRegistry
[18:41:35.464] result() for ClusterFuture ...
[18:41:35.464] - result already collected: FutureResult
[18:41:35.464] result() for ClusterFuture ... done
[18:41:35.465] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.384] MultisessionFuture:
[18:41:35.384] Label: 'future_mapply-1'
[18:41:35.384] Expression:
[18:41:35.384] {
[18:41:35.384]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.384]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.384]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.384]         on.exit(options(oopts), add = TRUE)
[18:41:35.384]     }
[18:41:35.384]     {
[18:41:35.384]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.384]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.384]         do.call(mapply, args = args)
[18:41:35.384]     }
[18:41:35.384] }
[18:41:35.384] Lazy evaluation: FALSE
[18:41:35.384] Asynchronous evaluation: TRUE
[18:41:35.384] Local evaluation: TRUE
[18:41:35.384] Environment: R_GlobalEnv
[18:41:35.384] Capture standard output: TRUE
[18:41:35.384] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.384] Globals: 5 objects totaling 876 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.384] Packages: <none>
[18:41:35.384] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.384] Resolved: TRUE
[18:41:35.384] Value: <not collected>
[18:41:35.384] Conditions captured: <none>
[18:41:35.384] Early signaling: FALSE
[18:41:35.384] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.384] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.465] Chunk #1 of 2 ... DONE
[18:41:35.465] Chunk #2 of 2 ...
[18:41:35.466]  - Finding globals in '...' for chunk #2 ...
[18:41:35.466] getGlobalsAndPackages() ...
[18:41:35.466] Searching for globals...
[18:41:35.466] 
[18:41:35.467] Searching for globals ... DONE
[18:41:35.467] - globals: [0] <none>
[18:41:35.467] getGlobalsAndPackages() ... DONE
[18:41:35.467]    + additional globals found: [n=0] 
[18:41:35.467]    + additional namespaces needed: [n=0] 
[18:41:35.467]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:35.468]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.468]  - seeds: <none>
[18:41:35.468]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.468] getGlobalsAndPackages() ...
[18:41:35.468] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.468] Resolving globals: FALSE
[18:41:35.469] The total size of the 5 globals is 905 bytes (905 bytes)
[18:41:35.470] 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 905 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (134 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:35.470] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.470] 
[18:41:35.470] getGlobalsAndPackages() ... DONE
[18:41:35.471] run() for 'Future' ...
[18:41:35.471] - state: 'created'
[18:41:35.471] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.488] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.489] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.489]   - Field: 'node'
[18:41:35.490]   - Field: 'label'
[18:41:35.490]   - Field: 'local'
[18:41:35.490]   - Field: 'owner'
[18:41:35.490]   - Field: 'envir'
[18:41:35.490]   - Field: 'workers'
[18:41:35.490]   - Field: 'packages'
[18:41:35.491]   - Field: 'gc'
[18:41:35.491]   - Field: 'conditions'
[18:41:35.491]   - Field: 'persistent'
[18:41:35.491]   - Field: 'expr'
[18:41:35.491]   - Field: 'uuid'
[18:41:35.492]   - Field: 'seed'
[18:41:35.492]   - Field: 'version'
[18:41:35.492]   - Field: 'result'
[18:41:35.492]   - Field: 'asynchronous'
[18:41:35.492]   - Field: 'calls'
[18:41:35.492]   - Field: 'globals'
[18:41:35.493]   - Field: 'stdout'
[18:41:35.493]   - Field: 'earlySignal'
[18:41:35.493]   - Field: 'lazy'
[18:41:35.493]   - Field: 'state'
[18:41:35.493] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.493] - Launch lazy future ...
[18:41:35.494] Packages needed by the future expression (n = 0): <none>
[18:41:35.494] Packages needed by future strategies (n = 0): <none>
[18:41:35.495] {
[18:41:35.495]     {
[18:41:35.495]         {
[18:41:35.495]             ...future.startTime <- base::Sys.time()
[18:41:35.495]             {
[18:41:35.495]                 {
[18:41:35.495]                   {
[18:41:35.495]                     {
[18:41:35.495]                       base::local({
[18:41:35.495]                         has_future <- base::requireNamespace("future", 
[18:41:35.495]                           quietly = TRUE)
[18:41:35.495]                         if (has_future) {
[18:41:35.495]                           ns <- base::getNamespace("future")
[18:41:35.495]                           version <- ns[[".package"]][["version"]]
[18:41:35.495]                           if (is.null(version)) 
[18:41:35.495]                             version <- utils::packageVersion("future")
[18:41:35.495]                         }
[18:41:35.495]                         else {
[18:41:35.495]                           version <- NULL
[18:41:35.495]                         }
[18:41:35.495]                         if (!has_future || version < "1.8.0") {
[18:41:35.495]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.495]                             "", base::R.version$version.string), 
[18:41:35.495]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.495]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.495]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.495]                               "release", "version")], collapse = " "), 
[18:41:35.495]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.495]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.495]                             info)
[18:41:35.495]                           info <- base::paste(info, collapse = "; ")
[18:41:35.495]                           if (!has_future) {
[18:41:35.495]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.495]                               info)
[18:41:35.495]                           }
[18:41:35.495]                           else {
[18:41:35.495]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.495]                               info, version)
[18:41:35.495]                           }
[18:41:35.495]                           base::stop(msg)
[18:41:35.495]                         }
[18:41:35.495]                       })
[18:41:35.495]                     }
[18:41:35.495]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.495]                     base::options(mc.cores = 1L)
[18:41:35.495]                   }
[18:41:35.495]                   ...future.strategy.old <- future::plan("list")
[18:41:35.495]                   options(future.plan = NULL)
[18:41:35.495]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.495]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.495]                 }
[18:41:35.495]                 ...future.workdir <- getwd()
[18:41:35.495]             }
[18:41:35.495]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.495]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.495]         }
[18:41:35.495]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.495]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.495]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.495]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.495]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.495]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.495]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.495]             base::names(...future.oldOptions))
[18:41:35.495]     }
[18:41:35.495]     if (FALSE) {
[18:41:35.495]     }
[18:41:35.495]     else {
[18:41:35.495]         if (TRUE) {
[18:41:35.495]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.495]                 open = "w")
[18:41:35.495]         }
[18:41:35.495]         else {
[18:41:35.495]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.495]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.495]         }
[18:41:35.495]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.495]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.495]             base::sink(type = "output", split = FALSE)
[18:41:35.495]             base::close(...future.stdout)
[18:41:35.495]         }, add = TRUE)
[18:41:35.495]     }
[18:41:35.495]     ...future.frame <- base::sys.nframe()
[18:41:35.495]     ...future.conditions <- base::list()
[18:41:35.495]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.495]     if (FALSE) {
[18:41:35.495]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.495]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.495]     }
[18:41:35.495]     ...future.result <- base::tryCatch({
[18:41:35.495]         base::withCallingHandlers({
[18:41:35.495]             ...future.value <- base::withVisible(base::local({
[18:41:35.495]                 ...future.makeSendCondition <- base::local({
[18:41:35.495]                   sendCondition <- NULL
[18:41:35.495]                   function(frame = 1L) {
[18:41:35.495]                     if (is.function(sendCondition)) 
[18:41:35.495]                       return(sendCondition)
[18:41:35.495]                     ns <- getNamespace("parallel")
[18:41:35.495]                     if (exists("sendData", mode = "function", 
[18:41:35.495]                       envir = ns)) {
[18:41:35.495]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.495]                         envir = ns)
[18:41:35.495]                       envir <- sys.frame(frame)
[18:41:35.495]                       master <- NULL
[18:41:35.495]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.495]                         !identical(envir, emptyenv())) {
[18:41:35.495]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.495]                           inherits = FALSE)) {
[18:41:35.495]                           master <- get("master", mode = "list", 
[18:41:35.495]                             envir = envir, inherits = FALSE)
[18:41:35.495]                           if (inherits(master, c("SOCKnode", 
[18:41:35.495]                             "SOCK0node"))) {
[18:41:35.495]                             sendCondition <<- function(cond) {
[18:41:35.495]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.495]                                 success = TRUE)
[18:41:35.495]                               parallel_sendData(master, data)
[18:41:35.495]                             }
[18:41:35.495]                             return(sendCondition)
[18:41:35.495]                           }
[18:41:35.495]                         }
[18:41:35.495]                         frame <- frame + 1L
[18:41:35.495]                         envir <- sys.frame(frame)
[18:41:35.495]                       }
[18:41:35.495]                     }
[18:41:35.495]                     sendCondition <<- function(cond) NULL
[18:41:35.495]                   }
[18:41:35.495]                 })
[18:41:35.495]                 withCallingHandlers({
[18:41:35.495]                   {
[18:41:35.495]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.495]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.495]                       ...future.globals.maxSize)) {
[18:41:35.495]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.495]                       on.exit(options(oopts), add = TRUE)
[18:41:35.495]                     }
[18:41:35.495]                     {
[18:41:35.495]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.495]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.495]                         USE.NAMES = FALSE)
[18:41:35.495]                       do.call(mapply, args = args)
[18:41:35.495]                     }
[18:41:35.495]                   }
[18:41:35.495]                 }, immediateCondition = function(cond) {
[18:41:35.495]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.495]                   sendCondition(cond)
[18:41:35.495]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.495]                   {
[18:41:35.495]                     inherits <- base::inherits
[18:41:35.495]                     invokeRestart <- base::invokeRestart
[18:41:35.495]                     is.null <- base::is.null
[18:41:35.495]                     muffled <- FALSE
[18:41:35.495]                     if (inherits(cond, "message")) {
[18:41:35.495]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.495]                       if (muffled) 
[18:41:35.495]                         invokeRestart("muffleMessage")
[18:41:35.495]                     }
[18:41:35.495]                     else if (inherits(cond, "warning")) {
[18:41:35.495]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.495]                       if (muffled) 
[18:41:35.495]                         invokeRestart("muffleWarning")
[18:41:35.495]                     }
[18:41:35.495]                     else if (inherits(cond, "condition")) {
[18:41:35.495]                       if (!is.null(pattern)) {
[18:41:35.495]                         computeRestarts <- base::computeRestarts
[18:41:35.495]                         grepl <- base::grepl
[18:41:35.495]                         restarts <- computeRestarts(cond)
[18:41:35.495]                         for (restart in restarts) {
[18:41:35.495]                           name <- restart$name
[18:41:35.495]                           if (is.null(name)) 
[18:41:35.495]                             next
[18:41:35.495]                           if (!grepl(pattern, name)) 
[18:41:35.495]                             next
[18:41:35.495]                           invokeRestart(restart)
[18:41:35.495]                           muffled <- TRUE
[18:41:35.495]                           break
[18:41:35.495]                         }
[18:41:35.495]                       }
[18:41:35.495]                     }
[18:41:35.495]                     invisible(muffled)
[18:41:35.495]                   }
[18:41:35.495]                   muffleCondition(cond)
[18:41:35.495]                 })
[18:41:35.495]             }))
[18:41:35.495]             future::FutureResult(value = ...future.value$value, 
[18:41:35.495]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.495]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.495]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.495]                     ...future.globalenv.names))
[18:41:35.495]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.495]         }, condition = base::local({
[18:41:35.495]             c <- base::c
[18:41:35.495]             inherits <- base::inherits
[18:41:35.495]             invokeRestart <- base::invokeRestart
[18:41:35.495]             length <- base::length
[18:41:35.495]             list <- base::list
[18:41:35.495]             seq.int <- base::seq.int
[18:41:35.495]             signalCondition <- base::signalCondition
[18:41:35.495]             sys.calls <- base::sys.calls
[18:41:35.495]             `[[` <- base::`[[`
[18:41:35.495]             `+` <- base::`+`
[18:41:35.495]             `<<-` <- base::`<<-`
[18:41:35.495]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.495]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.495]                   3L)]
[18:41:35.495]             }
[18:41:35.495]             function(cond) {
[18:41:35.495]                 is_error <- inherits(cond, "error")
[18:41:35.495]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.495]                   NULL)
[18:41:35.495]                 if (is_error) {
[18:41:35.495]                   sessionInformation <- function() {
[18:41:35.495]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.495]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.495]                       search = base::search(), system = base::Sys.info())
[18:41:35.495]                   }
[18:41:35.495]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.495]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.495]                     cond$call), session = sessionInformation(), 
[18:41:35.495]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.495]                   signalCondition(cond)
[18:41:35.495]                 }
[18:41:35.495]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.495]                 "immediateCondition"))) {
[18:41:35.495]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.495]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.495]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.495]                   if (TRUE && !signal) {
[18:41:35.495]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.495]                     {
[18:41:35.495]                       inherits <- base::inherits
[18:41:35.495]                       invokeRestart <- base::invokeRestart
[18:41:35.495]                       is.null <- base::is.null
[18:41:35.495]                       muffled <- FALSE
[18:41:35.495]                       if (inherits(cond, "message")) {
[18:41:35.495]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.495]                         if (muffled) 
[18:41:35.495]                           invokeRestart("muffleMessage")
[18:41:35.495]                       }
[18:41:35.495]                       else if (inherits(cond, "warning")) {
[18:41:35.495]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.495]                         if (muffled) 
[18:41:35.495]                           invokeRestart("muffleWarning")
[18:41:35.495]                       }
[18:41:35.495]                       else if (inherits(cond, "condition")) {
[18:41:35.495]                         if (!is.null(pattern)) {
[18:41:35.495]                           computeRestarts <- base::computeRestarts
[18:41:35.495]                           grepl <- base::grepl
[18:41:35.495]                           restarts <- computeRestarts(cond)
[18:41:35.495]                           for (restart in restarts) {
[18:41:35.495]                             name <- restart$name
[18:41:35.495]                             if (is.null(name)) 
[18:41:35.495]                               next
[18:41:35.495]                             if (!grepl(pattern, name)) 
[18:41:35.495]                               next
[18:41:35.495]                             invokeRestart(restart)
[18:41:35.495]                             muffled <- TRUE
[18:41:35.495]                             break
[18:41:35.495]                           }
[18:41:35.495]                         }
[18:41:35.495]                       }
[18:41:35.495]                       invisible(muffled)
[18:41:35.495]                     }
[18:41:35.495]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.495]                   }
[18:41:35.495]                 }
[18:41:35.495]                 else {
[18:41:35.495]                   if (TRUE) {
[18:41:35.495]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.495]                     {
[18:41:35.495]                       inherits <- base::inherits
[18:41:35.495]                       invokeRestart <- base::invokeRestart
[18:41:35.495]                       is.null <- base::is.null
[18:41:35.495]                       muffled <- FALSE
[18:41:35.495]                       if (inherits(cond, "message")) {
[18:41:35.495]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.495]                         if (muffled) 
[18:41:35.495]                           invokeRestart("muffleMessage")
[18:41:35.495]                       }
[18:41:35.495]                       else if (inherits(cond, "warning")) {
[18:41:35.495]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.495]                         if (muffled) 
[18:41:35.495]                           invokeRestart("muffleWarning")
[18:41:35.495]                       }
[18:41:35.495]                       else if (inherits(cond, "condition")) {
[18:41:35.495]                         if (!is.null(pattern)) {
[18:41:35.495]                           computeRestarts <- base::computeRestarts
[18:41:35.495]                           grepl <- base::grepl
[18:41:35.495]                           restarts <- computeRestarts(cond)
[18:41:35.495]                           for (restart in restarts) {
[18:41:35.495]                             name <- restart$name
[18:41:35.495]                             if (is.null(name)) 
[18:41:35.495]                               next
[18:41:35.495]                             if (!grepl(pattern, name)) 
[18:41:35.495]                               next
[18:41:35.495]                             invokeRestart(restart)
[18:41:35.495]                             muffled <- TRUE
[18:41:35.495]                             break
[18:41:35.495]                           }
[18:41:35.495]                         }
[18:41:35.495]                       }
[18:41:35.495]                       invisible(muffled)
[18:41:35.495]                     }
[18:41:35.495]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.495]                   }
[18:41:35.495]                 }
[18:41:35.495]             }
[18:41:35.495]         }))
[18:41:35.495]     }, error = function(ex) {
[18:41:35.495]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.495]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.495]                 ...future.rng), started = ...future.startTime, 
[18:41:35.495]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.495]             version = "1.8"), class = "FutureResult")
[18:41:35.495]     }, finally = {
[18:41:35.495]         if (!identical(...future.workdir, getwd())) 
[18:41:35.495]             setwd(...future.workdir)
[18:41:35.495]         {
[18:41:35.495]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.495]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.495]             }
[18:41:35.495]             base::options(...future.oldOptions)
[18:41:35.495]             if (.Platform$OS.type == "windows") {
[18:41:35.495]                 old_names <- names(...future.oldEnvVars)
[18:41:35.495]                 envs <- base::Sys.getenv()
[18:41:35.495]                 names <- names(envs)
[18:41:35.495]                 common <- intersect(names, old_names)
[18:41:35.495]                 added <- setdiff(names, old_names)
[18:41:35.495]                 removed <- setdiff(old_names, names)
[18:41:35.495]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.495]                   envs[common]]
[18:41:35.495]                 NAMES <- toupper(changed)
[18:41:35.495]                 args <- list()
[18:41:35.495]                 for (kk in seq_along(NAMES)) {
[18:41:35.495]                   name <- changed[[kk]]
[18:41:35.495]                   NAME <- NAMES[[kk]]
[18:41:35.495]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.495]                     next
[18:41:35.495]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.495]                 }
[18:41:35.495]                 NAMES <- toupper(added)
[18:41:35.495]                 for (kk in seq_along(NAMES)) {
[18:41:35.495]                   name <- added[[kk]]
[18:41:35.495]                   NAME <- NAMES[[kk]]
[18:41:35.495]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.495]                     next
[18:41:35.495]                   args[[name]] <- ""
[18:41:35.495]                 }
[18:41:35.495]                 NAMES <- toupper(removed)
[18:41:35.495]                 for (kk in seq_along(NAMES)) {
[18:41:35.495]                   name <- removed[[kk]]
[18:41:35.495]                   NAME <- NAMES[[kk]]
[18:41:35.495]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.495]                     next
[18:41:35.495]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.495]                 }
[18:41:35.495]                 if (length(args) > 0) 
[18:41:35.495]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.495]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.495]             }
[18:41:35.495]             else {
[18:41:35.495]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.495]             }
[18:41:35.495]             {
[18:41:35.495]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.495]                   0L) {
[18:41:35.495]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.495]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.495]                   base::options(opts)
[18:41:35.495]                 }
[18:41:35.495]                 {
[18:41:35.495]                   {
[18:41:35.495]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.495]                     NULL
[18:41:35.495]                   }
[18:41:35.495]                   options(future.plan = NULL)
[18:41:35.495]                   if (is.na(NA_character_)) 
[18:41:35.495]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.495]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.495]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.495]                     .init = FALSE)
[18:41:35.495]                 }
[18:41:35.495]             }
[18:41:35.495]         }
[18:41:35.495]     })
[18:41:35.495]     if (TRUE) {
[18:41:35.495]         base::sink(type = "output", split = FALSE)
[18:41:35.495]         if (TRUE) {
[18:41:35.495]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.495]         }
[18:41:35.495]         else {
[18:41:35.495]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.495]         }
[18:41:35.495]         base::close(...future.stdout)
[18:41:35.495]         ...future.stdout <- NULL
[18:41:35.495]     }
[18:41:35.495]     ...future.result$conditions <- ...future.conditions
[18:41:35.495]     ...future.result$finished <- base::Sys.time()
[18:41:35.495]     ...future.result
[18:41:35.495] }
[18:41:35.501] Exporting 5 global objects (1.32 KiB) to cluster node #1 ...
[18:41:35.501] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.502] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.502] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:35.503] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:35.503] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ...
[18:41:35.504] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ... DONE
[18:41:35.504] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.505] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.505] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.506] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.506] Exporting 5 global objects (1.32 KiB) to cluster node #1 ... DONE
[18:41:35.507] MultisessionFuture started
[18:41:35.507] - Launch lazy future ... done
[18:41:35.508] run() for 'MultisessionFuture' ... done
[18:41:35.508] Created future:
[18:41:35.538] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.538] - Validating connection of MultisessionFuture
[18:41:35.538] - received message: FutureResult
[18:41:35.538] - Received FutureResult
[18:41:35.539] - Erased future from FutureRegistry
[18:41:35.539] result() for ClusterFuture ...
[18:41:35.539] - result already collected: FutureResult
[18:41:35.539] result() for ClusterFuture ... done
[18:41:35.539] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.508] MultisessionFuture:
[18:41:35.508] Label: 'future_mapply-2'
[18:41:35.508] Expression:
[18:41:35.508] {
[18:41:35.508]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.508]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.508]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.508]         on.exit(options(oopts), add = TRUE)
[18:41:35.508]     }
[18:41:35.508]     {
[18:41:35.508]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.508]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.508]         do.call(mapply, args = args)
[18:41:35.508]     }
[18:41:35.508] }
[18:41:35.508] Lazy evaluation: FALSE
[18:41:35.508] Asynchronous evaluation: TRUE
[18:41:35.508] Local evaluation: TRUE
[18:41:35.508] Environment: R_GlobalEnv
[18:41:35.508] Capture standard output: TRUE
[18:41:35.508] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.508] Globals: 5 objects totaling 905 bytes (function '...future.FUN' of 690 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 134 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.508] Packages: <none>
[18:41:35.508] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.508] Resolved: TRUE
[18:41:35.508] Value: <not collected>
[18:41:35.508] Conditions captured: <none>
[18:41:35.508] Early signaling: FALSE
[18:41:35.508] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.508] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.540] Chunk #2 of 2 ... DONE
[18:41:35.540] Launching 2 futures (chunks) ... DONE
[18:41:35.540] Resolving 2 futures (chunks) ...
[18:41:35.540] resolve() on list ...
[18:41:35.541]  recursive: 0
[18:41:35.541]  length: 2
[18:41:35.541] 
[18:41:35.541] Future #1
[18:41:35.541] result() for ClusterFuture ...
[18:41:35.541] - result already collected: FutureResult
[18:41:35.542] result() for ClusterFuture ... done
[18:41:35.542] result() for ClusterFuture ...
[18:41:35.542] - result already collected: FutureResult
[18:41:35.542] result() for ClusterFuture ... done
[18:41:35.542] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:35.542] - nx: 2
[18:41:35.543] - relay: TRUE
[18:41:35.543] - stdout: TRUE
[18:41:35.543] - signal: TRUE
[18:41:35.543] - resignal: FALSE
[18:41:35.543] - force: TRUE
[18:41:35.543] - relayed: [n=2] FALSE, FALSE
[18:41:35.543] - queued futures: [n=2] FALSE, FALSE
[18:41:35.544]  - until=1
[18:41:35.544]  - relaying element #1
[18:41:35.544] result() for ClusterFuture ...
[18:41:35.544] - result already collected: FutureResult
[18:41:35.544] result() for ClusterFuture ... done
[18:41:35.544] result() for ClusterFuture ...
[18:41:35.545] - result already collected: FutureResult
[18:41:35.545] result() for ClusterFuture ... done
[18:41:35.545] result() for ClusterFuture ...
[18:41:35.545] - result already collected: FutureResult
[18:41:35.545] result() for ClusterFuture ... done
[18:41:35.545] result() for ClusterFuture ...
[18:41:35.546] - result already collected: FutureResult
[18:41:35.546] result() for ClusterFuture ... done
[18:41:35.546] - relayed: [n=2] TRUE, FALSE
[18:41:35.546] - queued futures: [n=2] TRUE, FALSE
[18:41:35.546] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:35.546]  length: 1 (resolved future 1)
[18:41:35.547] Future #2
[18:41:35.547] result() for ClusterFuture ...
[18:41:35.547] - result already collected: FutureResult
[18:41:35.547] result() for ClusterFuture ... done
[18:41:35.547] result() for ClusterFuture ...
[18:41:35.547] - result already collected: FutureResult
[18:41:35.548] result() for ClusterFuture ... done
[18:41:35.548] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:35.548] - nx: 2
[18:41:35.548] - relay: TRUE
[18:41:35.548] - stdout: TRUE
[18:41:35.548] - signal: TRUE
[18:41:35.549] - resignal: FALSE
[18:41:35.549] - force: TRUE
[18:41:35.549] - relayed: [n=2] TRUE, FALSE
[18:41:35.549] - queued futures: [n=2] TRUE, FALSE
[18:41:35.549]  - until=2
[18:41:35.549]  - relaying element #2
[18:41:35.549] result() for ClusterFuture ...
[18:41:35.550] - result already collected: FutureResult
[18:41:35.550] result() for ClusterFuture ... done
[18:41:35.550] result() for ClusterFuture ...
[18:41:35.550] - result already collected: FutureResult
[18:41:35.550] result() for ClusterFuture ... done
[18:41:35.551] result() for ClusterFuture ...
[18:41:35.551] - result already collected: FutureResult
[18:41:35.551] result() for ClusterFuture ... done
[18:41:35.551] result() for ClusterFuture ...
[18:41:35.551] - result already collected: FutureResult
[18:41:35.551] result() for ClusterFuture ... done
[18:41:35.551] - relayed: [n=2] TRUE, TRUE
[18:41:35.552] - queued futures: [n=2] TRUE, TRUE
[18:41:35.552] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:35.552]  length: 0 (resolved future 2)
[18:41:35.552] Relaying remaining futures
[18:41:35.552] signalConditionsASAP(NULL, pos=0) ...
[18:41:35.552] - nx: 2
[18:41:35.553] - relay: TRUE
[18:41:35.553] - stdout: TRUE
[18:41:35.553] - signal: TRUE
[18:41:35.553] - resignal: FALSE
[18:41:35.553] - force: TRUE
[18:41:35.554] - relayed: [n=2] TRUE, TRUE
[18:41:35.554] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:35.554] - relayed: [n=2] TRUE, TRUE
[18:41:35.555] - queued futures: [n=2] TRUE, TRUE
[18:41:35.555] signalConditionsASAP(NULL, pos=0) ... done
[18:41:35.555] resolve() on list ... DONE
[18:41:35.556] result() for ClusterFuture ...
[18:41:35.556] - result already collected: FutureResult
[18:41:35.556] result() for ClusterFuture ... done
[18:41:35.557] result() for ClusterFuture ...
[18:41:35.557] - result already collected: FutureResult
[18:41:35.557] result() for ClusterFuture ... done
[18:41:35.558] result() for ClusterFuture ...
[18:41:35.558] - result already collected: FutureResult
[18:41:35.558] result() for ClusterFuture ... done
[18:41:35.558] result() for ClusterFuture ...
[18:41:35.559] - result already collected: FutureResult
[18:41:35.559] result() for ClusterFuture ... done
[18:41:35.559]  - Number of value chunks collected: 2
[18:41:35.559] Resolving 2 futures (chunks) ... DONE
[18:41:35.559] Reducing values from 2 chunks ...
[18:41:35.559]  - Number of values collected after concatenation: 5
[18:41:35.560]  - Number of values expected: 5
[18:41:35.560] Reverse index remapping (attribute 'ordering'): [n = 5] 5, 4, 3, 2, 1
[18:41:35.560] Reducing values from 2 chunks ... DONE
[18:41:35.560] future_mapply() ... DONE
[18:41:35.561] future_mapply() ...
[18:41:35.563] Number of chunks: 2
[18:41:35.563] getGlobalsAndPackagesXApply() ...
[18:41:35.564]  - future.globals: TRUE
[18:41:35.564] getGlobalsAndPackages() ...
[18:41:35.564] Searching for globals...
[18:41:35.566] - globals found: [3] 'FUN', 'paste', 'rep.int'
[18:41:35.566] Searching for globals ... DONE
[18:41:35.566] Resolving globals: FALSE
[18:41:35.567] The total size of the 1 globals is 690 bytes (690 bytes)
[18:41:35.567] The total size of the 1 globals exported for future expression ('FUN()') is 690 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (690 bytes of class 'function')
[18:41:35.567] - globals: [1] 'FUN'
[18:41:35.567] 
[18:41:35.568] getGlobalsAndPackages() ... DONE
[18:41:35.568]  - globals found/used: [n=1] 'FUN'
[18:41:35.568]  - needed namespaces: [n=0] 
[18:41:35.568] Finding globals ... DONE
[18:41:35.568] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:35.569] List of 2
[18:41:35.569]  $ ...future.FUN:function (C, k)  
[18:41:35.569]  $ MoreArgs     : list()
[18:41:35.569]  - attr(*, "where")=List of 2
[18:41:35.569]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:35.569]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:35.569]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:35.569]  - attr(*, "resolved")= logi FALSE
[18:41:35.569]  - attr(*, "total_size")= num NA
[18:41:35.572] Packages to be attached in all futures: [n=0] 
[18:41:35.572] getGlobalsAndPackagesXApply() ... DONE
[18:41:35.572] Number of futures (= number of chunks): 2
[18:41:35.573] Launching 2 futures (chunks) ...
[18:41:35.573] Chunk #1 of 2 ...
[18:41:35.573]  - Finding globals in '...' for chunk #1 ...
[18:41:35.573] getGlobalsAndPackages() ...
[18:41:35.573] Searching for globals...
[18:41:35.574] 
[18:41:35.574] Searching for globals ... DONE
[18:41:35.574] - globals: [0] <none>
[18:41:35.574] getGlobalsAndPackages() ... DONE
[18:41:35.574]    + additional globals found: [n=0] 
[18:41:35.574]    + additional namespaces needed: [n=0] 
[18:41:35.575]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:35.575]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.575]  - seeds: <none>
[18:41:35.575]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.575] getGlobalsAndPackages() ...
[18:41:35.575] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.576] Resolving globals: FALSE
[18:41:35.576] The total size of the 5 globals is 880 bytes (880 bytes)
[18:41:35.577] 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 880 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (105 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:35.577] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.577] 
[18:41:35.577] getGlobalsAndPackages() ... DONE
[18:41:35.578] run() for 'Future' ...
[18:41:35.578] - state: 'created'
[18:41:35.578] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.594] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.594] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.594]   - Field: 'node'
[18:41:35.595]   - Field: 'label'
[18:41:35.595]   - Field: 'local'
[18:41:35.595]   - Field: 'owner'
[18:41:35.595]   - Field: 'envir'
[18:41:35.595]   - Field: 'workers'
[18:41:35.596]   - Field: 'packages'
[18:41:35.596]   - Field: 'gc'
[18:41:35.596]   - Field: 'conditions'
[18:41:35.596]   - Field: 'persistent'
[18:41:35.596]   - Field: 'expr'
[18:41:35.596]   - Field: 'uuid'
[18:41:35.597]   - Field: 'seed'
[18:41:35.597]   - Field: 'version'
[18:41:35.597]   - Field: 'result'
[18:41:35.597]   - Field: 'asynchronous'
[18:41:35.597]   - Field: 'calls'
[18:41:35.598]   - Field: 'globals'
[18:41:35.598]   - Field: 'stdout'
[18:41:35.598]   - Field: 'earlySignal'
[18:41:35.598]   - Field: 'lazy'
[18:41:35.598]   - Field: 'state'
[18:41:35.598] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.599] - Launch lazy future ...
[18:41:35.599] Packages needed by the future expression (n = 0): <none>
[18:41:35.599] Packages needed by future strategies (n = 0): <none>
[18:41:35.600] {
[18:41:35.600]     {
[18:41:35.600]         {
[18:41:35.600]             ...future.startTime <- base::Sys.time()
[18:41:35.600]             {
[18:41:35.600]                 {
[18:41:35.600]                   {
[18:41:35.600]                     {
[18:41:35.600]                       base::local({
[18:41:35.600]                         has_future <- base::requireNamespace("future", 
[18:41:35.600]                           quietly = TRUE)
[18:41:35.600]                         if (has_future) {
[18:41:35.600]                           ns <- base::getNamespace("future")
[18:41:35.600]                           version <- ns[[".package"]][["version"]]
[18:41:35.600]                           if (is.null(version)) 
[18:41:35.600]                             version <- utils::packageVersion("future")
[18:41:35.600]                         }
[18:41:35.600]                         else {
[18:41:35.600]                           version <- NULL
[18:41:35.600]                         }
[18:41:35.600]                         if (!has_future || version < "1.8.0") {
[18:41:35.600]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.600]                             "", base::R.version$version.string), 
[18:41:35.600]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.600]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.600]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.600]                               "release", "version")], collapse = " "), 
[18:41:35.600]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.600]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.600]                             info)
[18:41:35.600]                           info <- base::paste(info, collapse = "; ")
[18:41:35.600]                           if (!has_future) {
[18:41:35.600]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.600]                               info)
[18:41:35.600]                           }
[18:41:35.600]                           else {
[18:41:35.600]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.600]                               info, version)
[18:41:35.600]                           }
[18:41:35.600]                           base::stop(msg)
[18:41:35.600]                         }
[18:41:35.600]                       })
[18:41:35.600]                     }
[18:41:35.600]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.600]                     base::options(mc.cores = 1L)
[18:41:35.600]                   }
[18:41:35.600]                   ...future.strategy.old <- future::plan("list")
[18:41:35.600]                   options(future.plan = NULL)
[18:41:35.600]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.600]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.600]                 }
[18:41:35.600]                 ...future.workdir <- getwd()
[18:41:35.600]             }
[18:41:35.600]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.600]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.600]         }
[18:41:35.600]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.600]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.600]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.600]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.600]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.600]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.600]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.600]             base::names(...future.oldOptions))
[18:41:35.600]     }
[18:41:35.600]     if (FALSE) {
[18:41:35.600]     }
[18:41:35.600]     else {
[18:41:35.600]         if (TRUE) {
[18:41:35.600]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.600]                 open = "w")
[18:41:35.600]         }
[18:41:35.600]         else {
[18:41:35.600]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.600]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.600]         }
[18:41:35.600]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.600]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.600]             base::sink(type = "output", split = FALSE)
[18:41:35.600]             base::close(...future.stdout)
[18:41:35.600]         }, add = TRUE)
[18:41:35.600]     }
[18:41:35.600]     ...future.frame <- base::sys.nframe()
[18:41:35.600]     ...future.conditions <- base::list()
[18:41:35.600]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.600]     if (FALSE) {
[18:41:35.600]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.600]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.600]     }
[18:41:35.600]     ...future.result <- base::tryCatch({
[18:41:35.600]         base::withCallingHandlers({
[18:41:35.600]             ...future.value <- base::withVisible(base::local({
[18:41:35.600]                 ...future.makeSendCondition <- base::local({
[18:41:35.600]                   sendCondition <- NULL
[18:41:35.600]                   function(frame = 1L) {
[18:41:35.600]                     if (is.function(sendCondition)) 
[18:41:35.600]                       return(sendCondition)
[18:41:35.600]                     ns <- getNamespace("parallel")
[18:41:35.600]                     if (exists("sendData", mode = "function", 
[18:41:35.600]                       envir = ns)) {
[18:41:35.600]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.600]                         envir = ns)
[18:41:35.600]                       envir <- sys.frame(frame)
[18:41:35.600]                       master <- NULL
[18:41:35.600]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.600]                         !identical(envir, emptyenv())) {
[18:41:35.600]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.600]                           inherits = FALSE)) {
[18:41:35.600]                           master <- get("master", mode = "list", 
[18:41:35.600]                             envir = envir, inherits = FALSE)
[18:41:35.600]                           if (inherits(master, c("SOCKnode", 
[18:41:35.600]                             "SOCK0node"))) {
[18:41:35.600]                             sendCondition <<- function(cond) {
[18:41:35.600]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.600]                                 success = TRUE)
[18:41:35.600]                               parallel_sendData(master, data)
[18:41:35.600]                             }
[18:41:35.600]                             return(sendCondition)
[18:41:35.600]                           }
[18:41:35.600]                         }
[18:41:35.600]                         frame <- frame + 1L
[18:41:35.600]                         envir <- sys.frame(frame)
[18:41:35.600]                       }
[18:41:35.600]                     }
[18:41:35.600]                     sendCondition <<- function(cond) NULL
[18:41:35.600]                   }
[18:41:35.600]                 })
[18:41:35.600]                 withCallingHandlers({
[18:41:35.600]                   {
[18:41:35.600]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.600]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.600]                       ...future.globals.maxSize)) {
[18:41:35.600]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.600]                       on.exit(options(oopts), add = TRUE)
[18:41:35.600]                     }
[18:41:35.600]                     {
[18:41:35.600]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.600]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.600]                         USE.NAMES = FALSE)
[18:41:35.600]                       do.call(mapply, args = args)
[18:41:35.600]                     }
[18:41:35.600]                   }
[18:41:35.600]                 }, immediateCondition = function(cond) {
[18:41:35.600]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.600]                   sendCondition(cond)
[18:41:35.600]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.600]                   {
[18:41:35.600]                     inherits <- base::inherits
[18:41:35.600]                     invokeRestart <- base::invokeRestart
[18:41:35.600]                     is.null <- base::is.null
[18:41:35.600]                     muffled <- FALSE
[18:41:35.600]                     if (inherits(cond, "message")) {
[18:41:35.600]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.600]                       if (muffled) 
[18:41:35.600]                         invokeRestart("muffleMessage")
[18:41:35.600]                     }
[18:41:35.600]                     else if (inherits(cond, "warning")) {
[18:41:35.600]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.600]                       if (muffled) 
[18:41:35.600]                         invokeRestart("muffleWarning")
[18:41:35.600]                     }
[18:41:35.600]                     else if (inherits(cond, "condition")) {
[18:41:35.600]                       if (!is.null(pattern)) {
[18:41:35.600]                         computeRestarts <- base::computeRestarts
[18:41:35.600]                         grepl <- base::grepl
[18:41:35.600]                         restarts <- computeRestarts(cond)
[18:41:35.600]                         for (restart in restarts) {
[18:41:35.600]                           name <- restart$name
[18:41:35.600]                           if (is.null(name)) 
[18:41:35.600]                             next
[18:41:35.600]                           if (!grepl(pattern, name)) 
[18:41:35.600]                             next
[18:41:35.600]                           invokeRestart(restart)
[18:41:35.600]                           muffled <- TRUE
[18:41:35.600]                           break
[18:41:35.600]                         }
[18:41:35.600]                       }
[18:41:35.600]                     }
[18:41:35.600]                     invisible(muffled)
[18:41:35.600]                   }
[18:41:35.600]                   muffleCondition(cond)
[18:41:35.600]                 })
[18:41:35.600]             }))
[18:41:35.600]             future::FutureResult(value = ...future.value$value, 
[18:41:35.600]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.600]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.600]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.600]                     ...future.globalenv.names))
[18:41:35.600]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.600]         }, condition = base::local({
[18:41:35.600]             c <- base::c
[18:41:35.600]             inherits <- base::inherits
[18:41:35.600]             invokeRestart <- base::invokeRestart
[18:41:35.600]             length <- base::length
[18:41:35.600]             list <- base::list
[18:41:35.600]             seq.int <- base::seq.int
[18:41:35.600]             signalCondition <- base::signalCondition
[18:41:35.600]             sys.calls <- base::sys.calls
[18:41:35.600]             `[[` <- base::`[[`
[18:41:35.600]             `+` <- base::`+`
[18:41:35.600]             `<<-` <- base::`<<-`
[18:41:35.600]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.600]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.600]                   3L)]
[18:41:35.600]             }
[18:41:35.600]             function(cond) {
[18:41:35.600]                 is_error <- inherits(cond, "error")
[18:41:35.600]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.600]                   NULL)
[18:41:35.600]                 if (is_error) {
[18:41:35.600]                   sessionInformation <- function() {
[18:41:35.600]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.600]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.600]                       search = base::search(), system = base::Sys.info())
[18:41:35.600]                   }
[18:41:35.600]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.600]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.600]                     cond$call), session = sessionInformation(), 
[18:41:35.600]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.600]                   signalCondition(cond)
[18:41:35.600]                 }
[18:41:35.600]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.600]                 "immediateCondition"))) {
[18:41:35.600]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.600]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.600]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.600]                   if (TRUE && !signal) {
[18:41:35.600]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.600]                     {
[18:41:35.600]                       inherits <- base::inherits
[18:41:35.600]                       invokeRestart <- base::invokeRestart
[18:41:35.600]                       is.null <- base::is.null
[18:41:35.600]                       muffled <- FALSE
[18:41:35.600]                       if (inherits(cond, "message")) {
[18:41:35.600]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.600]                         if (muffled) 
[18:41:35.600]                           invokeRestart("muffleMessage")
[18:41:35.600]                       }
[18:41:35.600]                       else if (inherits(cond, "warning")) {
[18:41:35.600]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.600]                         if (muffled) 
[18:41:35.600]                           invokeRestart("muffleWarning")
[18:41:35.600]                       }
[18:41:35.600]                       else if (inherits(cond, "condition")) {
[18:41:35.600]                         if (!is.null(pattern)) {
[18:41:35.600]                           computeRestarts <- base::computeRestarts
[18:41:35.600]                           grepl <- base::grepl
[18:41:35.600]                           restarts <- computeRestarts(cond)
[18:41:35.600]                           for (restart in restarts) {
[18:41:35.600]                             name <- restart$name
[18:41:35.600]                             if (is.null(name)) 
[18:41:35.600]                               next
[18:41:35.600]                             if (!grepl(pattern, name)) 
[18:41:35.600]                               next
[18:41:35.600]                             invokeRestart(restart)
[18:41:35.600]                             muffled <- TRUE
[18:41:35.600]                             break
[18:41:35.600]                           }
[18:41:35.600]                         }
[18:41:35.600]                       }
[18:41:35.600]                       invisible(muffled)
[18:41:35.600]                     }
[18:41:35.600]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.600]                   }
[18:41:35.600]                 }
[18:41:35.600]                 else {
[18:41:35.600]                   if (TRUE) {
[18:41:35.600]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.600]                     {
[18:41:35.600]                       inherits <- base::inherits
[18:41:35.600]                       invokeRestart <- base::invokeRestart
[18:41:35.600]                       is.null <- base::is.null
[18:41:35.600]                       muffled <- FALSE
[18:41:35.600]                       if (inherits(cond, "message")) {
[18:41:35.600]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.600]                         if (muffled) 
[18:41:35.600]                           invokeRestart("muffleMessage")
[18:41:35.600]                       }
[18:41:35.600]                       else if (inherits(cond, "warning")) {
[18:41:35.600]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.600]                         if (muffled) 
[18:41:35.600]                           invokeRestart("muffleWarning")
[18:41:35.600]                       }
[18:41:35.600]                       else if (inherits(cond, "condition")) {
[18:41:35.600]                         if (!is.null(pattern)) {
[18:41:35.600]                           computeRestarts <- base::computeRestarts
[18:41:35.600]                           grepl <- base::grepl
[18:41:35.600]                           restarts <- computeRestarts(cond)
[18:41:35.600]                           for (restart in restarts) {
[18:41:35.600]                             name <- restart$name
[18:41:35.600]                             if (is.null(name)) 
[18:41:35.600]                               next
[18:41:35.600]                             if (!grepl(pattern, name)) 
[18:41:35.600]                               next
[18:41:35.600]                             invokeRestart(restart)
[18:41:35.600]                             muffled <- TRUE
[18:41:35.600]                             break
[18:41:35.600]                           }
[18:41:35.600]                         }
[18:41:35.600]                       }
[18:41:35.600]                       invisible(muffled)
[18:41:35.600]                     }
[18:41:35.600]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.600]                   }
[18:41:35.600]                 }
[18:41:35.600]             }
[18:41:35.600]         }))
[18:41:35.600]     }, error = function(ex) {
[18:41:35.600]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.600]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.600]                 ...future.rng), started = ...future.startTime, 
[18:41:35.600]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.600]             version = "1.8"), class = "FutureResult")
[18:41:35.600]     }, finally = {
[18:41:35.600]         if (!identical(...future.workdir, getwd())) 
[18:41:35.600]             setwd(...future.workdir)
[18:41:35.600]         {
[18:41:35.600]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.600]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.600]             }
[18:41:35.600]             base::options(...future.oldOptions)
[18:41:35.600]             if (.Platform$OS.type == "windows") {
[18:41:35.600]                 old_names <- names(...future.oldEnvVars)
[18:41:35.600]                 envs <- base::Sys.getenv()
[18:41:35.600]                 names <- names(envs)
[18:41:35.600]                 common <- intersect(names, old_names)
[18:41:35.600]                 added <- setdiff(names, old_names)
[18:41:35.600]                 removed <- setdiff(old_names, names)
[18:41:35.600]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.600]                   envs[common]]
[18:41:35.600]                 NAMES <- toupper(changed)
[18:41:35.600]                 args <- list()
[18:41:35.600]                 for (kk in seq_along(NAMES)) {
[18:41:35.600]                   name <- changed[[kk]]
[18:41:35.600]                   NAME <- NAMES[[kk]]
[18:41:35.600]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.600]                     next
[18:41:35.600]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.600]                 }
[18:41:35.600]                 NAMES <- toupper(added)
[18:41:35.600]                 for (kk in seq_along(NAMES)) {
[18:41:35.600]                   name <- added[[kk]]
[18:41:35.600]                   NAME <- NAMES[[kk]]
[18:41:35.600]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.600]                     next
[18:41:35.600]                   args[[name]] <- ""
[18:41:35.600]                 }
[18:41:35.600]                 NAMES <- toupper(removed)
[18:41:35.600]                 for (kk in seq_along(NAMES)) {
[18:41:35.600]                   name <- removed[[kk]]
[18:41:35.600]                   NAME <- NAMES[[kk]]
[18:41:35.600]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.600]                     next
[18:41:35.600]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.600]                 }
[18:41:35.600]                 if (length(args) > 0) 
[18:41:35.600]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.600]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.600]             }
[18:41:35.600]             else {
[18:41:35.600]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.600]             }
[18:41:35.600]             {
[18:41:35.600]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.600]                   0L) {
[18:41:35.600]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.600]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.600]                   base::options(opts)
[18:41:35.600]                 }
[18:41:35.600]                 {
[18:41:35.600]                   {
[18:41:35.600]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.600]                     NULL
[18:41:35.600]                   }
[18:41:35.600]                   options(future.plan = NULL)
[18:41:35.600]                   if (is.na(NA_character_)) 
[18:41:35.600]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.600]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.600]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.600]                     .init = FALSE)
[18:41:35.600]                 }
[18:41:35.600]             }
[18:41:35.600]         }
[18:41:35.600]     })
[18:41:35.600]     if (TRUE) {
[18:41:35.600]         base::sink(type = "output", split = FALSE)
[18:41:35.600]         if (TRUE) {
[18:41:35.600]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.600]         }
[18:41:35.600]         else {
[18:41:35.600]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.600]         }
[18:41:35.600]         base::close(...future.stdout)
[18:41:35.600]         ...future.stdout <- NULL
[18:41:35.600]     }
[18:41:35.600]     ...future.result$conditions <- ...future.conditions
[18:41:35.600]     ...future.result$finished <- base::Sys.time()
[18:41:35.600]     ...future.result
[18:41:35.600] }
[18:41:35.605] Exporting 5 global objects (1.29 KiB) to cluster node #1 ...
[18:41:35.606] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.606] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.607] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:35.607] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:35.608] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ...
[18:41:35.608] Exporting '...future.elements_ii' (105 bytes) to cluster node #1 ... DONE
[18:41:35.608] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.609] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.609] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.610] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.610] Exporting 5 global objects (1.29 KiB) to cluster node #1 ... DONE
[18:41:35.611] MultisessionFuture started
[18:41:35.611] - Launch lazy future ... done
[18:41:35.612] run() for 'MultisessionFuture' ... done
[18:41:35.612] Created future:
[18:41:35.640] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.641] - Validating connection of MultisessionFuture
[18:41:35.641] - received message: FutureResult
[18:41:35.641] - Received FutureResult
[18:41:35.641] - Erased future from FutureRegistry
[18:41:35.642] result() for ClusterFuture ...
[18:41:35.642] - result already collected: FutureResult
[18:41:35.642] result() for ClusterFuture ... done
[18:41:35.642] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.612] MultisessionFuture:
[18:41:35.612] Label: 'future_.mapply-1'
[18:41:35.612] Expression:
[18:41:35.612] {
[18:41:35.612]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.612]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.612]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.612]         on.exit(options(oopts), add = TRUE)
[18:41:35.612]     }
[18:41:35.612]     {
[18:41:35.612]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.612]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.612]         do.call(mapply, args = args)
[18:41:35.612]     }
[18:41:35.612] }
[18:41:35.612] Lazy evaluation: FALSE
[18:41:35.612] Asynchronous evaluation: TRUE
[18:41:35.612] Local evaluation: TRUE
[18:41:35.612] Environment: R_GlobalEnv
[18:41:35.612] Capture standard output: TRUE
[18:41:35.612] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.612] Globals: 5 objects totaling 880 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 105 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.612] Packages: <none>
[18:41:35.612] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.612] Resolved: TRUE
[18:41:35.612] Value: <not collected>
[18:41:35.612] Conditions captured: <none>
[18:41:35.612] Early signaling: FALSE
[18:41:35.612] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.612] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.642] Chunk #1 of 2 ... DONE
[18:41:35.643] Chunk #2 of 2 ...
[18:41:35.643]  - Finding globals in '...' for chunk #2 ...
[18:41:35.643] getGlobalsAndPackages() ...
[18:41:35.643] Searching for globals...
[18:41:35.644] 
[18:41:35.644] Searching for globals ... DONE
[18:41:35.644] - globals: [0] <none>
[18:41:35.644] getGlobalsAndPackages() ... DONE
[18:41:35.644]    + additional globals found: [n=0] 
[18:41:35.645]    + additional namespaces needed: [n=0] 
[18:41:35.645]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:35.645]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.645]  - seeds: <none>
[18:41:35.645]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.645] getGlobalsAndPackages() ...
[18:41:35.646] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.646] Resolving globals: FALSE
[18:41:35.646] The total size of the 5 globals is 909 bytes (909 bytes)
[18:41:35.647] 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 909 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (690 bytes of class 'function'), '...future.elements_ii' (134 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:35.647] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.647] 
[18:41:35.647] getGlobalsAndPackages() ... DONE
[18:41:35.648] run() for 'Future' ...
[18:41:35.648] - state: 'created'
[18:41:35.648] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.665] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.665] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.665]   - Field: 'node'
[18:41:35.666]   - Field: 'label'
[18:41:35.666]   - Field: 'local'
[18:41:35.666]   - Field: 'owner'
[18:41:35.666]   - Field: 'envir'
[18:41:35.666]   - Field: 'workers'
[18:41:35.667]   - Field: 'packages'
[18:41:35.667]   - Field: 'gc'
[18:41:35.667]   - Field: 'conditions'
[18:41:35.667]   - Field: 'persistent'
[18:41:35.667]   - Field: 'expr'
[18:41:35.668]   - Field: 'uuid'
[18:41:35.668]   - Field: 'seed'
[18:41:35.668]   - Field: 'version'
[18:41:35.668]   - Field: 'result'
[18:41:35.668]   - Field: 'asynchronous'
[18:41:35.669]   - Field: 'calls'
[18:41:35.669]   - Field: 'globals'
[18:41:35.669]   - Field: 'stdout'
[18:41:35.669]   - Field: 'earlySignal'
[18:41:35.669]   - Field: 'lazy'
[18:41:35.669]   - Field: 'state'
[18:41:35.670] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.670] - Launch lazy future ...
[18:41:35.670] Packages needed by the future expression (n = 0): <none>
[18:41:35.670] Packages needed by future strategies (n = 0): <none>
[18:41:35.671] {
[18:41:35.671]     {
[18:41:35.671]         {
[18:41:35.671]             ...future.startTime <- base::Sys.time()
[18:41:35.671]             {
[18:41:35.671]                 {
[18:41:35.671]                   {
[18:41:35.671]                     {
[18:41:35.671]                       base::local({
[18:41:35.671]                         has_future <- base::requireNamespace("future", 
[18:41:35.671]                           quietly = TRUE)
[18:41:35.671]                         if (has_future) {
[18:41:35.671]                           ns <- base::getNamespace("future")
[18:41:35.671]                           version <- ns[[".package"]][["version"]]
[18:41:35.671]                           if (is.null(version)) 
[18:41:35.671]                             version <- utils::packageVersion("future")
[18:41:35.671]                         }
[18:41:35.671]                         else {
[18:41:35.671]                           version <- NULL
[18:41:35.671]                         }
[18:41:35.671]                         if (!has_future || version < "1.8.0") {
[18:41:35.671]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.671]                             "", base::R.version$version.string), 
[18:41:35.671]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.671]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.671]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.671]                               "release", "version")], collapse = " "), 
[18:41:35.671]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.671]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.671]                             info)
[18:41:35.671]                           info <- base::paste(info, collapse = "; ")
[18:41:35.671]                           if (!has_future) {
[18:41:35.671]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.671]                               info)
[18:41:35.671]                           }
[18:41:35.671]                           else {
[18:41:35.671]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.671]                               info, version)
[18:41:35.671]                           }
[18:41:35.671]                           base::stop(msg)
[18:41:35.671]                         }
[18:41:35.671]                       })
[18:41:35.671]                     }
[18:41:35.671]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.671]                     base::options(mc.cores = 1L)
[18:41:35.671]                   }
[18:41:35.671]                   ...future.strategy.old <- future::plan("list")
[18:41:35.671]                   options(future.plan = NULL)
[18:41:35.671]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.671]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.671]                 }
[18:41:35.671]                 ...future.workdir <- getwd()
[18:41:35.671]             }
[18:41:35.671]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.671]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.671]         }
[18:41:35.671]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.671]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.671]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.671]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.671]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.671]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.671]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.671]             base::names(...future.oldOptions))
[18:41:35.671]     }
[18:41:35.671]     if (FALSE) {
[18:41:35.671]     }
[18:41:35.671]     else {
[18:41:35.671]         if (TRUE) {
[18:41:35.671]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.671]                 open = "w")
[18:41:35.671]         }
[18:41:35.671]         else {
[18:41:35.671]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.671]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.671]         }
[18:41:35.671]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.671]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.671]             base::sink(type = "output", split = FALSE)
[18:41:35.671]             base::close(...future.stdout)
[18:41:35.671]         }, add = TRUE)
[18:41:35.671]     }
[18:41:35.671]     ...future.frame <- base::sys.nframe()
[18:41:35.671]     ...future.conditions <- base::list()
[18:41:35.671]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.671]     if (FALSE) {
[18:41:35.671]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.671]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.671]     }
[18:41:35.671]     ...future.result <- base::tryCatch({
[18:41:35.671]         base::withCallingHandlers({
[18:41:35.671]             ...future.value <- base::withVisible(base::local({
[18:41:35.671]                 ...future.makeSendCondition <- base::local({
[18:41:35.671]                   sendCondition <- NULL
[18:41:35.671]                   function(frame = 1L) {
[18:41:35.671]                     if (is.function(sendCondition)) 
[18:41:35.671]                       return(sendCondition)
[18:41:35.671]                     ns <- getNamespace("parallel")
[18:41:35.671]                     if (exists("sendData", mode = "function", 
[18:41:35.671]                       envir = ns)) {
[18:41:35.671]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.671]                         envir = ns)
[18:41:35.671]                       envir <- sys.frame(frame)
[18:41:35.671]                       master <- NULL
[18:41:35.671]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.671]                         !identical(envir, emptyenv())) {
[18:41:35.671]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.671]                           inherits = FALSE)) {
[18:41:35.671]                           master <- get("master", mode = "list", 
[18:41:35.671]                             envir = envir, inherits = FALSE)
[18:41:35.671]                           if (inherits(master, c("SOCKnode", 
[18:41:35.671]                             "SOCK0node"))) {
[18:41:35.671]                             sendCondition <<- function(cond) {
[18:41:35.671]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.671]                                 success = TRUE)
[18:41:35.671]                               parallel_sendData(master, data)
[18:41:35.671]                             }
[18:41:35.671]                             return(sendCondition)
[18:41:35.671]                           }
[18:41:35.671]                         }
[18:41:35.671]                         frame <- frame + 1L
[18:41:35.671]                         envir <- sys.frame(frame)
[18:41:35.671]                       }
[18:41:35.671]                     }
[18:41:35.671]                     sendCondition <<- function(cond) NULL
[18:41:35.671]                   }
[18:41:35.671]                 })
[18:41:35.671]                 withCallingHandlers({
[18:41:35.671]                   {
[18:41:35.671]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.671]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.671]                       ...future.globals.maxSize)) {
[18:41:35.671]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.671]                       on.exit(options(oopts), add = TRUE)
[18:41:35.671]                     }
[18:41:35.671]                     {
[18:41:35.671]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.671]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.671]                         USE.NAMES = FALSE)
[18:41:35.671]                       do.call(mapply, args = args)
[18:41:35.671]                     }
[18:41:35.671]                   }
[18:41:35.671]                 }, immediateCondition = function(cond) {
[18:41:35.671]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.671]                   sendCondition(cond)
[18:41:35.671]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.671]                   {
[18:41:35.671]                     inherits <- base::inherits
[18:41:35.671]                     invokeRestart <- base::invokeRestart
[18:41:35.671]                     is.null <- base::is.null
[18:41:35.671]                     muffled <- FALSE
[18:41:35.671]                     if (inherits(cond, "message")) {
[18:41:35.671]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.671]                       if (muffled) 
[18:41:35.671]                         invokeRestart("muffleMessage")
[18:41:35.671]                     }
[18:41:35.671]                     else if (inherits(cond, "warning")) {
[18:41:35.671]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.671]                       if (muffled) 
[18:41:35.671]                         invokeRestart("muffleWarning")
[18:41:35.671]                     }
[18:41:35.671]                     else if (inherits(cond, "condition")) {
[18:41:35.671]                       if (!is.null(pattern)) {
[18:41:35.671]                         computeRestarts <- base::computeRestarts
[18:41:35.671]                         grepl <- base::grepl
[18:41:35.671]                         restarts <- computeRestarts(cond)
[18:41:35.671]                         for (restart in restarts) {
[18:41:35.671]                           name <- restart$name
[18:41:35.671]                           if (is.null(name)) 
[18:41:35.671]                             next
[18:41:35.671]                           if (!grepl(pattern, name)) 
[18:41:35.671]                             next
[18:41:35.671]                           invokeRestart(restart)
[18:41:35.671]                           muffled <- TRUE
[18:41:35.671]                           break
[18:41:35.671]                         }
[18:41:35.671]                       }
[18:41:35.671]                     }
[18:41:35.671]                     invisible(muffled)
[18:41:35.671]                   }
[18:41:35.671]                   muffleCondition(cond)
[18:41:35.671]                 })
[18:41:35.671]             }))
[18:41:35.671]             future::FutureResult(value = ...future.value$value, 
[18:41:35.671]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.671]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.671]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.671]                     ...future.globalenv.names))
[18:41:35.671]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.671]         }, condition = base::local({
[18:41:35.671]             c <- base::c
[18:41:35.671]             inherits <- base::inherits
[18:41:35.671]             invokeRestart <- base::invokeRestart
[18:41:35.671]             length <- base::length
[18:41:35.671]             list <- base::list
[18:41:35.671]             seq.int <- base::seq.int
[18:41:35.671]             signalCondition <- base::signalCondition
[18:41:35.671]             sys.calls <- base::sys.calls
[18:41:35.671]             `[[` <- base::`[[`
[18:41:35.671]             `+` <- base::`+`
[18:41:35.671]             `<<-` <- base::`<<-`
[18:41:35.671]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.671]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.671]                   3L)]
[18:41:35.671]             }
[18:41:35.671]             function(cond) {
[18:41:35.671]                 is_error <- inherits(cond, "error")
[18:41:35.671]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.671]                   NULL)
[18:41:35.671]                 if (is_error) {
[18:41:35.671]                   sessionInformation <- function() {
[18:41:35.671]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.671]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.671]                       search = base::search(), system = base::Sys.info())
[18:41:35.671]                   }
[18:41:35.671]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.671]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.671]                     cond$call), session = sessionInformation(), 
[18:41:35.671]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.671]                   signalCondition(cond)
[18:41:35.671]                 }
[18:41:35.671]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.671]                 "immediateCondition"))) {
[18:41:35.671]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.671]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.671]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.671]                   if (TRUE && !signal) {
[18:41:35.671]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.671]                     {
[18:41:35.671]                       inherits <- base::inherits
[18:41:35.671]                       invokeRestart <- base::invokeRestart
[18:41:35.671]                       is.null <- base::is.null
[18:41:35.671]                       muffled <- FALSE
[18:41:35.671]                       if (inherits(cond, "message")) {
[18:41:35.671]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.671]                         if (muffled) 
[18:41:35.671]                           invokeRestart("muffleMessage")
[18:41:35.671]                       }
[18:41:35.671]                       else if (inherits(cond, "warning")) {
[18:41:35.671]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.671]                         if (muffled) 
[18:41:35.671]                           invokeRestart("muffleWarning")
[18:41:35.671]                       }
[18:41:35.671]                       else if (inherits(cond, "condition")) {
[18:41:35.671]                         if (!is.null(pattern)) {
[18:41:35.671]                           computeRestarts <- base::computeRestarts
[18:41:35.671]                           grepl <- base::grepl
[18:41:35.671]                           restarts <- computeRestarts(cond)
[18:41:35.671]                           for (restart in restarts) {
[18:41:35.671]                             name <- restart$name
[18:41:35.671]                             if (is.null(name)) 
[18:41:35.671]                               next
[18:41:35.671]                             if (!grepl(pattern, name)) 
[18:41:35.671]                               next
[18:41:35.671]                             invokeRestart(restart)
[18:41:35.671]                             muffled <- TRUE
[18:41:35.671]                             break
[18:41:35.671]                           }
[18:41:35.671]                         }
[18:41:35.671]                       }
[18:41:35.671]                       invisible(muffled)
[18:41:35.671]                     }
[18:41:35.671]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.671]                   }
[18:41:35.671]                 }
[18:41:35.671]                 else {
[18:41:35.671]                   if (TRUE) {
[18:41:35.671]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.671]                     {
[18:41:35.671]                       inherits <- base::inherits
[18:41:35.671]                       invokeRestart <- base::invokeRestart
[18:41:35.671]                       is.null <- base::is.null
[18:41:35.671]                       muffled <- FALSE
[18:41:35.671]                       if (inherits(cond, "message")) {
[18:41:35.671]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.671]                         if (muffled) 
[18:41:35.671]                           invokeRestart("muffleMessage")
[18:41:35.671]                       }
[18:41:35.671]                       else if (inherits(cond, "warning")) {
[18:41:35.671]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.671]                         if (muffled) 
[18:41:35.671]                           invokeRestart("muffleWarning")
[18:41:35.671]                       }
[18:41:35.671]                       else if (inherits(cond, "condition")) {
[18:41:35.671]                         if (!is.null(pattern)) {
[18:41:35.671]                           computeRestarts <- base::computeRestarts
[18:41:35.671]                           grepl <- base::grepl
[18:41:35.671]                           restarts <- computeRestarts(cond)
[18:41:35.671]                           for (restart in restarts) {
[18:41:35.671]                             name <- restart$name
[18:41:35.671]                             if (is.null(name)) 
[18:41:35.671]                               next
[18:41:35.671]                             if (!grepl(pattern, name)) 
[18:41:35.671]                               next
[18:41:35.671]                             invokeRestart(restart)
[18:41:35.671]                             muffled <- TRUE
[18:41:35.671]                             break
[18:41:35.671]                           }
[18:41:35.671]                         }
[18:41:35.671]                       }
[18:41:35.671]                       invisible(muffled)
[18:41:35.671]                     }
[18:41:35.671]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.671]                   }
[18:41:35.671]                 }
[18:41:35.671]             }
[18:41:35.671]         }))
[18:41:35.671]     }, error = function(ex) {
[18:41:35.671]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.671]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.671]                 ...future.rng), started = ...future.startTime, 
[18:41:35.671]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.671]             version = "1.8"), class = "FutureResult")
[18:41:35.671]     }, finally = {
[18:41:35.671]         if (!identical(...future.workdir, getwd())) 
[18:41:35.671]             setwd(...future.workdir)
[18:41:35.671]         {
[18:41:35.671]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.671]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.671]             }
[18:41:35.671]             base::options(...future.oldOptions)
[18:41:35.671]             if (.Platform$OS.type == "windows") {
[18:41:35.671]                 old_names <- names(...future.oldEnvVars)
[18:41:35.671]                 envs <- base::Sys.getenv()
[18:41:35.671]                 names <- names(envs)
[18:41:35.671]                 common <- intersect(names, old_names)
[18:41:35.671]                 added <- setdiff(names, old_names)
[18:41:35.671]                 removed <- setdiff(old_names, names)
[18:41:35.671]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.671]                   envs[common]]
[18:41:35.671]                 NAMES <- toupper(changed)
[18:41:35.671]                 args <- list()
[18:41:35.671]                 for (kk in seq_along(NAMES)) {
[18:41:35.671]                   name <- changed[[kk]]
[18:41:35.671]                   NAME <- NAMES[[kk]]
[18:41:35.671]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.671]                     next
[18:41:35.671]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.671]                 }
[18:41:35.671]                 NAMES <- toupper(added)
[18:41:35.671]                 for (kk in seq_along(NAMES)) {
[18:41:35.671]                   name <- added[[kk]]
[18:41:35.671]                   NAME <- NAMES[[kk]]
[18:41:35.671]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.671]                     next
[18:41:35.671]                   args[[name]] <- ""
[18:41:35.671]                 }
[18:41:35.671]                 NAMES <- toupper(removed)
[18:41:35.671]                 for (kk in seq_along(NAMES)) {
[18:41:35.671]                   name <- removed[[kk]]
[18:41:35.671]                   NAME <- NAMES[[kk]]
[18:41:35.671]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.671]                     next
[18:41:35.671]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.671]                 }
[18:41:35.671]                 if (length(args) > 0) 
[18:41:35.671]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.671]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.671]             }
[18:41:35.671]             else {
[18:41:35.671]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.671]             }
[18:41:35.671]             {
[18:41:35.671]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.671]                   0L) {
[18:41:35.671]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.671]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.671]                   base::options(opts)
[18:41:35.671]                 }
[18:41:35.671]                 {
[18:41:35.671]                   {
[18:41:35.671]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.671]                     NULL
[18:41:35.671]                   }
[18:41:35.671]                   options(future.plan = NULL)
[18:41:35.671]                   if (is.na(NA_character_)) 
[18:41:35.671]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.671]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.671]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.671]                     .init = FALSE)
[18:41:35.671]                 }
[18:41:35.671]             }
[18:41:35.671]         }
[18:41:35.671]     })
[18:41:35.671]     if (TRUE) {
[18:41:35.671]         base::sink(type = "output", split = FALSE)
[18:41:35.671]         if (TRUE) {
[18:41:35.671]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.671]         }
[18:41:35.671]         else {
[18:41:35.671]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.671]         }
[18:41:35.671]         base::close(...future.stdout)
[18:41:35.671]         ...future.stdout <- NULL
[18:41:35.671]     }
[18:41:35.671]     ...future.result$conditions <- ...future.conditions
[18:41:35.671]     ...future.result$finished <- base::Sys.time()
[18:41:35.671]     ...future.result
[18:41:35.671] }
[18:41:35.677] Exporting 5 global objects (1.32 KiB) to cluster node #1 ...
[18:41:35.677] Exporting '...future.FUN' (690 bytes) to cluster node #1 ...
[18:41:35.678] Exporting '...future.FUN' (690 bytes) to cluster node #1 ... DONE
[18:41:35.678] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:35.679] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:35.679] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ...
[18:41:35.680] Exporting '...future.elements_ii' (134 bytes) to cluster node #1 ... DONE
[18:41:35.680] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.681] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.681] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.682] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.682] Exporting 5 global objects (1.32 KiB) to cluster node #1 ... DONE
[18:41:35.683] MultisessionFuture started
[18:41:35.683] - Launch lazy future ... done
[18:41:35.683] run() for 'MultisessionFuture' ... done
[18:41:35.684] Created future:
[18:41:35.702] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.702] - Validating connection of MultisessionFuture
[18:41:35.703] - received message: FutureResult
[18:41:35.703] - Received FutureResult
[18:41:35.703] - Erased future from FutureRegistry
[18:41:35.706] result() for ClusterFuture ...
[18:41:35.706] - result already collected: FutureResult
[18:41:35.706] result() for ClusterFuture ... done
[18:41:35.707] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.684] MultisessionFuture:
[18:41:35.684] Label: 'future_.mapply-2'
[18:41:35.684] Expression:
[18:41:35.684] {
[18:41:35.684]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.684]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.684]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.684]         on.exit(options(oopts), add = TRUE)
[18:41:35.684]     }
[18:41:35.684]     {
[18:41:35.684]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.684]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.684]         do.call(mapply, args = args)
[18:41:35.684]     }
[18:41:35.684] }
[18:41:35.684] Lazy evaluation: FALSE
[18:41:35.684] Asynchronous evaluation: TRUE
[18:41:35.684] Local evaluation: TRUE
[18:41:35.684] Environment: R_GlobalEnv
[18:41:35.684] Capture standard output: TRUE
[18:41:35.684] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.684] Globals: 5 objects totaling 909 bytes (function '...future.FUN' of 690 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 134 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.684] Packages: <none>
[18:41:35.684] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.684] Resolved: TRUE
[18:41:35.684] Value: <not collected>
[18:41:35.684] Conditions captured: <none>
[18:41:35.684] Early signaling: FALSE
[18:41:35.684] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.684] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.707] Chunk #2 of 2 ... DONE
[18:41:35.707] Launching 2 futures (chunks) ... DONE
[18:41:35.707] Resolving 2 futures (chunks) ...
[18:41:35.708] resolve() on list ...
[18:41:35.708]  recursive: 0
[18:41:35.708]  length: 2
[18:41:35.708] 
[18:41:35.708] Future #1
[18:41:35.709] result() for ClusterFuture ...
[18:41:35.709] - result already collected: FutureResult
[18:41:35.709] result() for ClusterFuture ... done
[18:41:35.709] result() for ClusterFuture ...
[18:41:35.709] - result already collected: FutureResult
[18:41:35.709] result() for ClusterFuture ... done
[18:41:35.710] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:35.710] - nx: 2
[18:41:35.710] - relay: TRUE
[18:41:35.710] - stdout: TRUE
[18:41:35.710] - signal: TRUE
[18:41:35.710] - resignal: FALSE
[18:41:35.710] - force: TRUE
[18:41:35.711] - relayed: [n=2] FALSE, FALSE
[18:41:35.711] - queued futures: [n=2] FALSE, FALSE
[18:41:35.711]  - until=1
[18:41:35.711]  - relaying element #1
[18:41:35.711] result() for ClusterFuture ...
[18:41:35.711] - result already collected: FutureResult
[18:41:35.711] result() for ClusterFuture ... done
[18:41:35.712] result() for ClusterFuture ...
[18:41:35.712] - result already collected: FutureResult
[18:41:35.712] result() for ClusterFuture ... done
[18:41:35.712] result() for ClusterFuture ...
[18:41:35.712] - result already collected: FutureResult
[18:41:35.712] result() for ClusterFuture ... done
[18:41:35.713] result() for ClusterFuture ...
[18:41:35.713] - result already collected: FutureResult
[18:41:35.713] result() for ClusterFuture ... done
[18:41:35.713] - relayed: [n=2] TRUE, FALSE
[18:41:35.713] - queued futures: [n=2] TRUE, FALSE
[18:41:35.713] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:35.714]  length: 1 (resolved future 1)
[18:41:35.714] Future #2
[18:41:35.714] result() for ClusterFuture ...
[18:41:35.714] - result already collected: FutureResult
[18:41:35.714] result() for ClusterFuture ... done
[18:41:35.714] result() for ClusterFuture ...
[18:41:35.714] - result already collected: FutureResult
[18:41:35.715] result() for ClusterFuture ... done
[18:41:35.715] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:35.715] - nx: 2
[18:41:35.715] - relay: TRUE
[18:41:35.715] - stdout: TRUE
[18:41:35.715] - signal: TRUE
[18:41:35.716] - resignal: FALSE
[18:41:35.716] - force: TRUE
[18:41:35.716] - relayed: [n=2] TRUE, FALSE
[18:41:35.716] - queued futures: [n=2] TRUE, FALSE
[18:41:35.716]  - until=2
[18:41:35.716]  - relaying element #2
[18:41:35.716] result() for ClusterFuture ...
[18:41:35.717] - result already collected: FutureResult
[18:41:35.717] result() for ClusterFuture ... done
[18:41:35.717] result() for ClusterFuture ...
[18:41:35.717] - result already collected: FutureResult
[18:41:35.717] result() for ClusterFuture ... done
[18:41:35.717] result() for ClusterFuture ...
[18:41:35.718] - result already collected: FutureResult
[18:41:35.718] result() for ClusterFuture ... done
[18:41:35.718] result() for ClusterFuture ...
[18:41:35.718] - result already collected: FutureResult
[18:41:35.718] result() for ClusterFuture ... done
[18:41:35.718] - relayed: [n=2] TRUE, TRUE
[18:41:35.718] - queued futures: [n=2] TRUE, TRUE
[18:41:35.719] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:35.719]  length: 0 (resolved future 2)
[18:41:35.719] Relaying remaining futures
[18:41:35.719] signalConditionsASAP(NULL, pos=0) ...
[18:41:35.719] - nx: 2
[18:41:35.719] - relay: TRUE
[18:41:35.720] - stdout: TRUE
[18:41:35.720] - signal: TRUE
[18:41:35.720] - resignal: FALSE
[18:41:35.720] - force: TRUE
[18:41:35.720] - relayed: [n=2] TRUE, TRUE
[18:41:35.720] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:35.720] - relayed: [n=2] TRUE, TRUE
[18:41:35.721] - queued futures: [n=2] TRUE, TRUE
[18:41:35.721] signalConditionsASAP(NULL, pos=0) ... done
[18:41:35.721] resolve() on list ... DONE
[18:41:35.721] result() for ClusterFuture ...
[18:41:35.721] - result already collected: FutureResult
[18:41:35.721] result() for ClusterFuture ... done
[18:41:35.722] result() for ClusterFuture ...
[18:41:35.722] - result already collected: FutureResult
[18:41:35.722] result() for ClusterFuture ... done
[18:41:35.722] result() for ClusterFuture ...
[18:41:35.722] - result already collected: FutureResult
[18:41:35.722] result() for ClusterFuture ... done
[18:41:35.723] result() for ClusterFuture ...
[18:41:35.723] - result already collected: FutureResult
[18:41:35.723] result() for ClusterFuture ... done
[18:41:35.723]  - Number of value chunks collected: 2
[18:41:35.723] Resolving 2 futures (chunks) ... DONE
[18:41:35.723] Reducing values from 2 chunks ...
[18:41:35.723]  - Number of values collected after concatenation: 5
[18:41:35.724]  - Number of values expected: 5
[18:41:35.724] Reducing values from 2 chunks ... DONE
[18:41:35.724] future_mapply() ... DONE
- Subsetting (Issue #17) ...
[18:41:35.724] future_mapply() ...
[18:41:35.727] Number of chunks: 1
[18:41:35.727] getGlobalsAndPackagesXApply() ...
[18:41:35.727]  - future.globals: TRUE
[18:41:35.727] getGlobalsAndPackages() ...
[18:41:35.727] Searching for globals...
[18:41:35.729] - globals found: [1] 'FUN'
[18:41:35.729] Searching for globals ... DONE
[18:41:35.729] Resolving globals: FALSE
[18:41:35.729] The total size of the 1 globals is 185 bytes (185 bytes)
[18:41:35.730] The total size of the 1 globals exported for future expression ('FUN()') is 185 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (185 bytes of class 'function')
[18:41:35.730] - globals: [1] 'FUN'
[18:41:35.730] 
[18:41:35.730] getGlobalsAndPackages() ... DONE
[18:41:35.731]  - globals found/used: [n=1] 'FUN'
[18:41:35.731]  - needed namespaces: [n=0] 
[18:41:35.731] Finding globals ... DONE
[18:41:35.731] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:35.731] List of 2
[18:41:35.731]  $ ...future.FUN:function (x)  
[18:41:35.731]  $ MoreArgs     : NULL
[18:41:35.731]  - attr(*, "where")=List of 2
[18:41:35.731]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:35.731]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:35.731]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:35.731]  - attr(*, "resolved")= logi FALSE
[18:41:35.731]  - attr(*, "total_size")= num NA
[18:41:35.734] Packages to be attached in all futures: [n=0] 
[18:41:35.735] getGlobalsAndPackagesXApply() ... DONE
[18:41:35.735] Number of futures (= number of chunks): 1
[18:41:35.735] Launching 1 futures (chunks) ...
[18:41:35.735] Chunk #1 of 1 ...
[18:41:35.736]  - Finding globals in '...' for chunk #1 ...
[18:41:35.736] getGlobalsAndPackages() ...
[18:41:35.736] Searching for globals...
[18:41:35.736] 
[18:41:35.736] Searching for globals ... DONE
[18:41:35.737] - globals: [0] <none>
[18:41:35.737] getGlobalsAndPackages() ... DONE
[18:41:35.737]    + additional globals found: [n=0] 
[18:41:35.737]    + additional namespaces needed: [n=0] 
[18:41:35.737]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:35.737]  - seeds: <none>
[18:41:35.738]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.738] getGlobalsAndPackages() ...
[18:41:35.738] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.738] Resolving globals: FALSE
[18:41:35.739] The total size of the 5 globals is 366 bytes (366 bytes)
[18:41:35.739] 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 366 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (100 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:35.740] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.740] 
[18:41:35.740] getGlobalsAndPackages() ... DONE
[18:41:35.740] run() for 'Future' ...
[18:41:35.741] - state: 'created'
[18:41:35.741] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.756] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.757] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.757]   - Field: 'node'
[18:41:35.757]   - Field: 'label'
[18:41:35.757]   - Field: 'local'
[18:41:35.757]   - Field: 'owner'
[18:41:35.757]   - Field: 'envir'
[18:41:35.758]   - Field: 'workers'
[18:41:35.758]   - Field: 'packages'
[18:41:35.758]   - Field: 'gc'
[18:41:35.758]   - Field: 'conditions'
[18:41:35.758]   - Field: 'persistent'
[18:41:35.758]   - Field: 'expr'
[18:41:35.759]   - Field: 'uuid'
[18:41:35.759]   - Field: 'seed'
[18:41:35.759]   - Field: 'version'
[18:41:35.759]   - Field: 'result'
[18:41:35.759]   - Field: 'asynchronous'
[18:41:35.760]   - Field: 'calls'
[18:41:35.760]   - Field: 'globals'
[18:41:35.760]   - Field: 'stdout'
[18:41:35.760]   - Field: 'earlySignal'
[18:41:35.760]   - Field: 'lazy'
[18:41:35.760]   - Field: 'state'
[18:41:35.761] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.761] - Launch lazy future ...
[18:41:35.761] Packages needed by the future expression (n = 0): <none>
[18:41:35.761] Packages needed by future strategies (n = 0): <none>
[18:41:35.762] {
[18:41:35.762]     {
[18:41:35.762]         {
[18:41:35.762]             ...future.startTime <- base::Sys.time()
[18:41:35.762]             {
[18:41:35.762]                 {
[18:41:35.762]                   {
[18:41:35.762]                     {
[18:41:35.762]                       base::local({
[18:41:35.762]                         has_future <- base::requireNamespace("future", 
[18:41:35.762]                           quietly = TRUE)
[18:41:35.762]                         if (has_future) {
[18:41:35.762]                           ns <- base::getNamespace("future")
[18:41:35.762]                           version <- ns[[".package"]][["version"]]
[18:41:35.762]                           if (is.null(version)) 
[18:41:35.762]                             version <- utils::packageVersion("future")
[18:41:35.762]                         }
[18:41:35.762]                         else {
[18:41:35.762]                           version <- NULL
[18:41:35.762]                         }
[18:41:35.762]                         if (!has_future || version < "1.8.0") {
[18:41:35.762]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.762]                             "", base::R.version$version.string), 
[18:41:35.762]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.762]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.762]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.762]                               "release", "version")], collapse = " "), 
[18:41:35.762]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.762]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.762]                             info)
[18:41:35.762]                           info <- base::paste(info, collapse = "; ")
[18:41:35.762]                           if (!has_future) {
[18:41:35.762]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.762]                               info)
[18:41:35.762]                           }
[18:41:35.762]                           else {
[18:41:35.762]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.762]                               info, version)
[18:41:35.762]                           }
[18:41:35.762]                           base::stop(msg)
[18:41:35.762]                         }
[18:41:35.762]                       })
[18:41:35.762]                     }
[18:41:35.762]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.762]                     base::options(mc.cores = 1L)
[18:41:35.762]                   }
[18:41:35.762]                   ...future.strategy.old <- future::plan("list")
[18:41:35.762]                   options(future.plan = NULL)
[18:41:35.762]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.762]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.762]                 }
[18:41:35.762]                 ...future.workdir <- getwd()
[18:41:35.762]             }
[18:41:35.762]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.762]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.762]         }
[18:41:35.762]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.762]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:35.762]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.762]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.762]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.762]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.762]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.762]             base::names(...future.oldOptions))
[18:41:35.762]     }
[18:41:35.762]     if (FALSE) {
[18:41:35.762]     }
[18:41:35.762]     else {
[18:41:35.762]         if (TRUE) {
[18:41:35.762]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.762]                 open = "w")
[18:41:35.762]         }
[18:41:35.762]         else {
[18:41:35.762]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.762]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.762]         }
[18:41:35.762]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.762]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.762]             base::sink(type = "output", split = FALSE)
[18:41:35.762]             base::close(...future.stdout)
[18:41:35.762]         }, add = TRUE)
[18:41:35.762]     }
[18:41:35.762]     ...future.frame <- base::sys.nframe()
[18:41:35.762]     ...future.conditions <- base::list()
[18:41:35.762]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.762]     if (FALSE) {
[18:41:35.762]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.762]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.762]     }
[18:41:35.762]     ...future.result <- base::tryCatch({
[18:41:35.762]         base::withCallingHandlers({
[18:41:35.762]             ...future.value <- base::withVisible(base::local({
[18:41:35.762]                 ...future.makeSendCondition <- base::local({
[18:41:35.762]                   sendCondition <- NULL
[18:41:35.762]                   function(frame = 1L) {
[18:41:35.762]                     if (is.function(sendCondition)) 
[18:41:35.762]                       return(sendCondition)
[18:41:35.762]                     ns <- getNamespace("parallel")
[18:41:35.762]                     if (exists("sendData", mode = "function", 
[18:41:35.762]                       envir = ns)) {
[18:41:35.762]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.762]                         envir = ns)
[18:41:35.762]                       envir <- sys.frame(frame)
[18:41:35.762]                       master <- NULL
[18:41:35.762]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.762]                         !identical(envir, emptyenv())) {
[18:41:35.762]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.762]                           inherits = FALSE)) {
[18:41:35.762]                           master <- get("master", mode = "list", 
[18:41:35.762]                             envir = envir, inherits = FALSE)
[18:41:35.762]                           if (inherits(master, c("SOCKnode", 
[18:41:35.762]                             "SOCK0node"))) {
[18:41:35.762]                             sendCondition <<- function(cond) {
[18:41:35.762]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.762]                                 success = TRUE)
[18:41:35.762]                               parallel_sendData(master, data)
[18:41:35.762]                             }
[18:41:35.762]                             return(sendCondition)
[18:41:35.762]                           }
[18:41:35.762]                         }
[18:41:35.762]                         frame <- frame + 1L
[18:41:35.762]                         envir <- sys.frame(frame)
[18:41:35.762]                       }
[18:41:35.762]                     }
[18:41:35.762]                     sendCondition <<- function(cond) NULL
[18:41:35.762]                   }
[18:41:35.762]                 })
[18:41:35.762]                 withCallingHandlers({
[18:41:35.762]                   {
[18:41:35.762]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.762]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.762]                       ...future.globals.maxSize)) {
[18:41:35.762]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.762]                       on.exit(options(oopts), add = TRUE)
[18:41:35.762]                     }
[18:41:35.762]                     {
[18:41:35.762]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.762]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.762]                         USE.NAMES = FALSE)
[18:41:35.762]                       do.call(mapply, args = args)
[18:41:35.762]                     }
[18:41:35.762]                   }
[18:41:35.762]                 }, immediateCondition = function(cond) {
[18:41:35.762]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.762]                   sendCondition(cond)
[18:41:35.762]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.762]                   {
[18:41:35.762]                     inherits <- base::inherits
[18:41:35.762]                     invokeRestart <- base::invokeRestart
[18:41:35.762]                     is.null <- base::is.null
[18:41:35.762]                     muffled <- FALSE
[18:41:35.762]                     if (inherits(cond, "message")) {
[18:41:35.762]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.762]                       if (muffled) 
[18:41:35.762]                         invokeRestart("muffleMessage")
[18:41:35.762]                     }
[18:41:35.762]                     else if (inherits(cond, "warning")) {
[18:41:35.762]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.762]                       if (muffled) 
[18:41:35.762]                         invokeRestart("muffleWarning")
[18:41:35.762]                     }
[18:41:35.762]                     else if (inherits(cond, "condition")) {
[18:41:35.762]                       if (!is.null(pattern)) {
[18:41:35.762]                         computeRestarts <- base::computeRestarts
[18:41:35.762]                         grepl <- base::grepl
[18:41:35.762]                         restarts <- computeRestarts(cond)
[18:41:35.762]                         for (restart in restarts) {
[18:41:35.762]                           name <- restart$name
[18:41:35.762]                           if (is.null(name)) 
[18:41:35.762]                             next
[18:41:35.762]                           if (!grepl(pattern, name)) 
[18:41:35.762]                             next
[18:41:35.762]                           invokeRestart(restart)
[18:41:35.762]                           muffled <- TRUE
[18:41:35.762]                           break
[18:41:35.762]                         }
[18:41:35.762]                       }
[18:41:35.762]                     }
[18:41:35.762]                     invisible(muffled)
[18:41:35.762]                   }
[18:41:35.762]                   muffleCondition(cond)
[18:41:35.762]                 })
[18:41:35.762]             }))
[18:41:35.762]             future::FutureResult(value = ...future.value$value, 
[18:41:35.762]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.762]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.762]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.762]                     ...future.globalenv.names))
[18:41:35.762]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.762]         }, condition = base::local({
[18:41:35.762]             c <- base::c
[18:41:35.762]             inherits <- base::inherits
[18:41:35.762]             invokeRestart <- base::invokeRestart
[18:41:35.762]             length <- base::length
[18:41:35.762]             list <- base::list
[18:41:35.762]             seq.int <- base::seq.int
[18:41:35.762]             signalCondition <- base::signalCondition
[18:41:35.762]             sys.calls <- base::sys.calls
[18:41:35.762]             `[[` <- base::`[[`
[18:41:35.762]             `+` <- base::`+`
[18:41:35.762]             `<<-` <- base::`<<-`
[18:41:35.762]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.762]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.762]                   3L)]
[18:41:35.762]             }
[18:41:35.762]             function(cond) {
[18:41:35.762]                 is_error <- inherits(cond, "error")
[18:41:35.762]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.762]                   NULL)
[18:41:35.762]                 if (is_error) {
[18:41:35.762]                   sessionInformation <- function() {
[18:41:35.762]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.762]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.762]                       search = base::search(), system = base::Sys.info())
[18:41:35.762]                   }
[18:41:35.762]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.762]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.762]                     cond$call), session = sessionInformation(), 
[18:41:35.762]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.762]                   signalCondition(cond)
[18:41:35.762]                 }
[18:41:35.762]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.762]                 "immediateCondition"))) {
[18:41:35.762]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.762]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.762]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.762]                   if (TRUE && !signal) {
[18:41:35.762]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.762]                     {
[18:41:35.762]                       inherits <- base::inherits
[18:41:35.762]                       invokeRestart <- base::invokeRestart
[18:41:35.762]                       is.null <- base::is.null
[18:41:35.762]                       muffled <- FALSE
[18:41:35.762]                       if (inherits(cond, "message")) {
[18:41:35.762]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.762]                         if (muffled) 
[18:41:35.762]                           invokeRestart("muffleMessage")
[18:41:35.762]                       }
[18:41:35.762]                       else if (inherits(cond, "warning")) {
[18:41:35.762]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.762]                         if (muffled) 
[18:41:35.762]                           invokeRestart("muffleWarning")
[18:41:35.762]                       }
[18:41:35.762]                       else if (inherits(cond, "condition")) {
[18:41:35.762]                         if (!is.null(pattern)) {
[18:41:35.762]                           computeRestarts <- base::computeRestarts
[18:41:35.762]                           grepl <- base::grepl
[18:41:35.762]                           restarts <- computeRestarts(cond)
[18:41:35.762]                           for (restart in restarts) {
[18:41:35.762]                             name <- restart$name
[18:41:35.762]                             if (is.null(name)) 
[18:41:35.762]                               next
[18:41:35.762]                             if (!grepl(pattern, name)) 
[18:41:35.762]                               next
[18:41:35.762]                             invokeRestart(restart)
[18:41:35.762]                             muffled <- TRUE
[18:41:35.762]                             break
[18:41:35.762]                           }
[18:41:35.762]                         }
[18:41:35.762]                       }
[18:41:35.762]                       invisible(muffled)
[18:41:35.762]                     }
[18:41:35.762]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.762]                   }
[18:41:35.762]                 }
[18:41:35.762]                 else {
[18:41:35.762]                   if (TRUE) {
[18:41:35.762]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.762]                     {
[18:41:35.762]                       inherits <- base::inherits
[18:41:35.762]                       invokeRestart <- base::invokeRestart
[18:41:35.762]                       is.null <- base::is.null
[18:41:35.762]                       muffled <- FALSE
[18:41:35.762]                       if (inherits(cond, "message")) {
[18:41:35.762]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.762]                         if (muffled) 
[18:41:35.762]                           invokeRestart("muffleMessage")
[18:41:35.762]                       }
[18:41:35.762]                       else if (inherits(cond, "warning")) {
[18:41:35.762]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.762]                         if (muffled) 
[18:41:35.762]                           invokeRestart("muffleWarning")
[18:41:35.762]                       }
[18:41:35.762]                       else if (inherits(cond, "condition")) {
[18:41:35.762]                         if (!is.null(pattern)) {
[18:41:35.762]                           computeRestarts <- base::computeRestarts
[18:41:35.762]                           grepl <- base::grepl
[18:41:35.762]                           restarts <- computeRestarts(cond)
[18:41:35.762]                           for (restart in restarts) {
[18:41:35.762]                             name <- restart$name
[18:41:35.762]                             if (is.null(name)) 
[18:41:35.762]                               next
[18:41:35.762]                             if (!grepl(pattern, name)) 
[18:41:35.762]                               next
[18:41:35.762]                             invokeRestart(restart)
[18:41:35.762]                             muffled <- TRUE
[18:41:35.762]                             break
[18:41:35.762]                           }
[18:41:35.762]                         }
[18:41:35.762]                       }
[18:41:35.762]                       invisible(muffled)
[18:41:35.762]                     }
[18:41:35.762]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.762]                   }
[18:41:35.762]                 }
[18:41:35.762]             }
[18:41:35.762]         }))
[18:41:35.762]     }, error = function(ex) {
[18:41:35.762]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.762]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.762]                 ...future.rng), started = ...future.startTime, 
[18:41:35.762]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.762]             version = "1.8"), class = "FutureResult")
[18:41:35.762]     }, finally = {
[18:41:35.762]         if (!identical(...future.workdir, getwd())) 
[18:41:35.762]             setwd(...future.workdir)
[18:41:35.762]         {
[18:41:35.762]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.762]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.762]             }
[18:41:35.762]             base::options(...future.oldOptions)
[18:41:35.762]             if (.Platform$OS.type == "windows") {
[18:41:35.762]                 old_names <- names(...future.oldEnvVars)
[18:41:35.762]                 envs <- base::Sys.getenv()
[18:41:35.762]                 names <- names(envs)
[18:41:35.762]                 common <- intersect(names, old_names)
[18:41:35.762]                 added <- setdiff(names, old_names)
[18:41:35.762]                 removed <- setdiff(old_names, names)
[18:41:35.762]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.762]                   envs[common]]
[18:41:35.762]                 NAMES <- toupper(changed)
[18:41:35.762]                 args <- list()
[18:41:35.762]                 for (kk in seq_along(NAMES)) {
[18:41:35.762]                   name <- changed[[kk]]
[18:41:35.762]                   NAME <- NAMES[[kk]]
[18:41:35.762]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.762]                     next
[18:41:35.762]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.762]                 }
[18:41:35.762]                 NAMES <- toupper(added)
[18:41:35.762]                 for (kk in seq_along(NAMES)) {
[18:41:35.762]                   name <- added[[kk]]
[18:41:35.762]                   NAME <- NAMES[[kk]]
[18:41:35.762]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.762]                     next
[18:41:35.762]                   args[[name]] <- ""
[18:41:35.762]                 }
[18:41:35.762]                 NAMES <- toupper(removed)
[18:41:35.762]                 for (kk in seq_along(NAMES)) {
[18:41:35.762]                   name <- removed[[kk]]
[18:41:35.762]                   NAME <- NAMES[[kk]]
[18:41:35.762]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.762]                     next
[18:41:35.762]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.762]                 }
[18:41:35.762]                 if (length(args) > 0) 
[18:41:35.762]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.762]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.762]             }
[18:41:35.762]             else {
[18:41:35.762]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.762]             }
[18:41:35.762]             {
[18:41:35.762]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.762]                   0L) {
[18:41:35.762]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.762]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.762]                   base::options(opts)
[18:41:35.762]                 }
[18:41:35.762]                 {
[18:41:35.762]                   {
[18:41:35.762]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.762]                     NULL
[18:41:35.762]                   }
[18:41:35.762]                   options(future.plan = NULL)
[18:41:35.762]                   if (is.na(NA_character_)) 
[18:41:35.762]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.762]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.762]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.762]                     .init = FALSE)
[18:41:35.762]                 }
[18:41:35.762]             }
[18:41:35.762]         }
[18:41:35.762]     })
[18:41:35.762]     if (TRUE) {
[18:41:35.762]         base::sink(type = "output", split = FALSE)
[18:41:35.762]         if (TRUE) {
[18:41:35.762]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.762]         }
[18:41:35.762]         else {
[18:41:35.762]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.762]         }
[18:41:35.762]         base::close(...future.stdout)
[18:41:35.762]         ...future.stdout <- NULL
[18:41:35.762]     }
[18:41:35.762]     ...future.result$conditions <- ...future.conditions
[18:41:35.762]     ...future.result$finished <- base::Sys.time()
[18:41:35.762]     ...future.result
[18:41:35.762] }
[18:41:35.767] Exporting 5 global objects (799 bytes) to cluster node #1 ...
[18:41:35.768] Exporting '...future.FUN' (185 bytes) to cluster node #1 ...
[18:41:35.768] Exporting '...future.FUN' (185 bytes) to cluster node #1 ... DONE
[18:41:35.769] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:35.769] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:35.769] Exporting '...future.elements_ii' (100 bytes) to cluster node #1 ...
[18:41:35.770] Exporting '...future.elements_ii' (100 bytes) to cluster node #1 ... DONE
[18:41:35.770] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.771] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.771] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.772] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.772] Exporting 5 global objects (799 bytes) to cluster node #1 ... DONE
[18:41:35.773] MultisessionFuture started
[18:41:35.773] - Launch lazy future ... done
[18:41:35.773] run() for 'MultisessionFuture' ... done
[18:41:35.774] Created future:
[18:41:35.800] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.801] - Validating connection of MultisessionFuture
[18:41:35.801] - received message: FutureResult
[18:41:35.801] - Received FutureResult
[18:41:35.801] - Erased future from FutureRegistry
[18:41:35.802] result() for ClusterFuture ...
[18:41:35.802] - result already collected: FutureResult
[18:41:35.802] result() for ClusterFuture ... done
[18:41:35.802] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.774] MultisessionFuture:
[18:41:35.774] Label: 'future_mapply-1'
[18:41:35.774] Expression:
[18:41:35.774] {
[18:41:35.774]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.774]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.774]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.774]         on.exit(options(oopts), add = TRUE)
[18:41:35.774]     }
[18:41:35.774]     {
[18:41:35.774]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.774]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.774]         do.call(mapply, args = args)
[18:41:35.774]     }
[18:41:35.774] }
[18:41:35.774] Lazy evaluation: FALSE
[18:41:35.774] Asynchronous evaluation: TRUE
[18:41:35.774] Local evaluation: TRUE
[18:41:35.774] Environment: R_GlobalEnv
[18:41:35.774] Capture standard output: TRUE
[18:41:35.774] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.774] Globals: 5 objects totaling 366 bytes (function '...future.FUN' of 185 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 100 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.774] Packages: <none>
[18:41:35.774] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.774] Resolved: TRUE
[18:41:35.774] Value: <not collected>
[18:41:35.774] Conditions captured: <none>
[18:41:35.774] Early signaling: FALSE
[18:41:35.774] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.774] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.803] Chunk #1 of 1 ... DONE
[18:41:35.803] Launching 1 futures (chunks) ... DONE
[18:41:35.803] Resolving 1 futures (chunks) ...
[18:41:35.803] resolve() on list ...
[18:41:35.803]  recursive: 0
[18:41:35.803]  length: 1
[18:41:35.804] 
[18:41:35.804] Future #1
[18:41:35.804] result() for ClusterFuture ...
[18:41:35.804] - result already collected: FutureResult
[18:41:35.804] result() for ClusterFuture ... done
[18:41:35.804] result() for ClusterFuture ...
[18:41:35.805] - result already collected: FutureResult
[18:41:35.805] result() for ClusterFuture ... done
[18:41:35.805] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:35.805] - nx: 1
[18:41:35.805] - relay: TRUE
[18:41:35.805] - stdout: TRUE
[18:41:35.805] - signal: TRUE
[18:41:35.806] - resignal: FALSE
[18:41:35.806] - force: TRUE
[18:41:35.806] - relayed: [n=1] FALSE
[18:41:35.806] - queued futures: [n=1] FALSE
[18:41:35.806]  - until=1
[18:41:35.806]  - relaying element #1
[18:41:35.807] result() for ClusterFuture ...
[18:41:35.807] - result already collected: FutureResult
[18:41:35.807] result() for ClusterFuture ... done
[18:41:35.807] result() for ClusterFuture ...
[18:41:35.807] - result already collected: FutureResult
[18:41:35.807] result() for ClusterFuture ... done
[18:41:35.808] result() for ClusterFuture ...
[18:41:35.808] - result already collected: FutureResult
[18:41:35.808] result() for ClusterFuture ... done
[18:41:35.808] result() for ClusterFuture ...
[18:41:35.808] - result already collected: FutureResult
[18:41:35.808] result() for ClusterFuture ... done
[18:41:35.808] - relayed: [n=1] TRUE
[18:41:35.809] - queued futures: [n=1] TRUE
[18:41:35.809] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:35.809]  length: 0 (resolved future 1)
[18:41:35.809] Relaying remaining futures
[18:41:35.809] signalConditionsASAP(NULL, pos=0) ...
[18:41:35.809] - nx: 1
[18:41:35.810] - relay: TRUE
[18:41:35.810] - stdout: TRUE
[18:41:35.810] - signal: TRUE
[18:41:35.810] - resignal: FALSE
[18:41:35.810] - force: TRUE
[18:41:35.810] - relayed: [n=1] TRUE
[18:41:35.810] - queued futures: [n=1] TRUE
 - flush all
[18:41:35.811] - relayed: [n=1] TRUE
[18:41:35.811] - queued futures: [n=1] TRUE
[18:41:35.811] signalConditionsASAP(NULL, pos=0) ... done
[18:41:35.811] resolve() on list ... DONE
[18:41:35.811] result() for ClusterFuture ...
[18:41:35.812] - result already collected: FutureResult
[18:41:35.812] result() for ClusterFuture ... done
[18:41:35.812] result() for ClusterFuture ...
[18:41:35.812] - result already collected: FutureResult
[18:41:35.812] result() for ClusterFuture ... done
[18:41:35.812]  - Number of value chunks collected: 1
[18:41:35.812] Resolving 1 futures (chunks) ... DONE
[18:41:35.813] Reducing values from 1 chunks ...
[18:41:35.813]  - Number of values collected after concatenation: 1
[18:41:35.813]  - Number of values expected: 1
[18:41:35.813] Reducing values from 1 chunks ... DONE
[18:41:35.813] future_mapply() ... DONE
[18:41:35.814] future_mapply() ...
[18:41:35.816] Number of chunks: 1
[18:41:35.816] getGlobalsAndPackagesXApply() ...
[18:41:35.816]  - future.globals: TRUE
[18:41:35.816] getGlobalsAndPackages() ...
[18:41:35.817] Searching for globals...
[18:41:35.818] - globals found: [1] 'FUN'
[18:41:35.818] Searching for globals ... DONE
[18:41:35.818] Resolving globals: FALSE
[18:41:35.819] The total size of the 1 globals is 185 bytes (185 bytes)
[18:41:35.819] The total size of the 1 globals exported for future expression ('FUN()') is 185 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (185 bytes of class 'function')
[18:41:35.819] - globals: [1] 'FUN'
[18:41:35.819] 
[18:41:35.820] getGlobalsAndPackages() ... DONE
[18:41:35.820]  - globals found/used: [n=1] 'FUN'
[18:41:35.820]  - needed namespaces: [n=0] 
[18:41:35.820] Finding globals ... DONE
[18:41:35.820] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:35.821] List of 2
[18:41:35.821]  $ ...future.FUN:function (x)  
[18:41:35.821]  $ MoreArgs     : list()
[18:41:35.821]  - attr(*, "where")=List of 2
[18:41:35.821]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:35.821]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:35.821]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:35.821]  - attr(*, "resolved")= logi FALSE
[18:41:35.821]  - attr(*, "total_size")= num NA
[18:41:35.824] Packages to be attached in all futures: [n=0] 
[18:41:35.824] getGlobalsAndPackagesXApply() ... DONE
[18:41:35.824] Number of futures (= number of chunks): 1
[18:41:35.824] Launching 1 futures (chunks) ...
[18:41:35.825] Chunk #1 of 1 ...
[18:41:35.825]  - Finding globals in '...' for chunk #1 ...
[18:41:35.825] getGlobalsAndPackages() ...
[18:41:35.825] Searching for globals...
[18:41:35.825] 
[18:41:35.826] Searching for globals ... DONE
[18:41:35.826] - globals: [0] <none>
[18:41:35.826] getGlobalsAndPackages() ... DONE
[18:41:35.826]    + additional globals found: [n=0] 
[18:41:35.826]    + additional namespaces needed: [n=0] 
[18:41:35.826]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:35.827]  - seeds: <none>
[18:41:35.827]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.827] getGlobalsAndPackages() ...
[18:41:35.827] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.827] Resolving globals: FALSE
[18:41:35.828] The total size of the 5 globals is 370 bytes (370 bytes)
[18:41:35.828] 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 370 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (100 bytes of class 'list') and 'MoreArgs' (31 bytes of class 'list')
[18:41:35.829] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.829] 
[18:41:35.829] getGlobalsAndPackages() ... DONE
[18:41:35.829] run() for 'Future' ...
[18:41:35.830] - state: 'created'
[18:41:35.830] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.845] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.845] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.846]   - Field: 'node'
[18:41:35.846]   - Field: 'label'
[18:41:35.846]   - Field: 'local'
[18:41:35.846]   - Field: 'owner'
[18:41:35.846]   - Field: 'envir'
[18:41:35.847]   - Field: 'workers'
[18:41:35.847]   - Field: 'packages'
[18:41:35.847]   - Field: 'gc'
[18:41:35.847]   - Field: 'conditions'
[18:41:35.847]   - Field: 'persistent'
[18:41:35.847]   - Field: 'expr'
[18:41:35.848]   - Field: 'uuid'
[18:41:35.848]   - Field: 'seed'
[18:41:35.848]   - Field: 'version'
[18:41:35.848]   - Field: 'result'
[18:41:35.848]   - Field: 'asynchronous'
[18:41:35.849]   - Field: 'calls'
[18:41:35.849]   - Field: 'globals'
[18:41:35.849]   - Field: 'stdout'
[18:41:35.849]   - Field: 'earlySignal'
[18:41:35.849]   - Field: 'lazy'
[18:41:35.849]   - Field: 'state'
[18:41:35.850] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.850] - Launch lazy future ...
[18:41:35.850] Packages needed by the future expression (n = 0): <none>
[18:41:35.850] Packages needed by future strategies (n = 0): <none>
[18:41:35.851] {
[18:41:35.851]     {
[18:41:35.851]         {
[18:41:35.851]             ...future.startTime <- base::Sys.time()
[18:41:35.851]             {
[18:41:35.851]                 {
[18:41:35.851]                   {
[18:41:35.851]                     {
[18:41:35.851]                       base::local({
[18:41:35.851]                         has_future <- base::requireNamespace("future", 
[18:41:35.851]                           quietly = TRUE)
[18:41:35.851]                         if (has_future) {
[18:41:35.851]                           ns <- base::getNamespace("future")
[18:41:35.851]                           version <- ns[[".package"]][["version"]]
[18:41:35.851]                           if (is.null(version)) 
[18:41:35.851]                             version <- utils::packageVersion("future")
[18:41:35.851]                         }
[18:41:35.851]                         else {
[18:41:35.851]                           version <- NULL
[18:41:35.851]                         }
[18:41:35.851]                         if (!has_future || version < "1.8.0") {
[18:41:35.851]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.851]                             "", base::R.version$version.string), 
[18:41:35.851]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.851]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.851]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.851]                               "release", "version")], collapse = " "), 
[18:41:35.851]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.851]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.851]                             info)
[18:41:35.851]                           info <- base::paste(info, collapse = "; ")
[18:41:35.851]                           if (!has_future) {
[18:41:35.851]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.851]                               info)
[18:41:35.851]                           }
[18:41:35.851]                           else {
[18:41:35.851]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.851]                               info, version)
[18:41:35.851]                           }
[18:41:35.851]                           base::stop(msg)
[18:41:35.851]                         }
[18:41:35.851]                       })
[18:41:35.851]                     }
[18:41:35.851]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.851]                     base::options(mc.cores = 1L)
[18:41:35.851]                   }
[18:41:35.851]                   ...future.strategy.old <- future::plan("list")
[18:41:35.851]                   options(future.plan = NULL)
[18:41:35.851]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.851]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.851]                 }
[18:41:35.851]                 ...future.workdir <- getwd()
[18:41:35.851]             }
[18:41:35.851]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.851]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.851]         }
[18:41:35.851]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.851]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:35.851]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.851]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.851]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.851]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.851]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.851]             base::names(...future.oldOptions))
[18:41:35.851]     }
[18:41:35.851]     if (FALSE) {
[18:41:35.851]     }
[18:41:35.851]     else {
[18:41:35.851]         if (TRUE) {
[18:41:35.851]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.851]                 open = "w")
[18:41:35.851]         }
[18:41:35.851]         else {
[18:41:35.851]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.851]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.851]         }
[18:41:35.851]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.851]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.851]             base::sink(type = "output", split = FALSE)
[18:41:35.851]             base::close(...future.stdout)
[18:41:35.851]         }, add = TRUE)
[18:41:35.851]     }
[18:41:35.851]     ...future.frame <- base::sys.nframe()
[18:41:35.851]     ...future.conditions <- base::list()
[18:41:35.851]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.851]     if (FALSE) {
[18:41:35.851]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.851]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.851]     }
[18:41:35.851]     ...future.result <- base::tryCatch({
[18:41:35.851]         base::withCallingHandlers({
[18:41:35.851]             ...future.value <- base::withVisible(base::local({
[18:41:35.851]                 ...future.makeSendCondition <- base::local({
[18:41:35.851]                   sendCondition <- NULL
[18:41:35.851]                   function(frame = 1L) {
[18:41:35.851]                     if (is.function(sendCondition)) 
[18:41:35.851]                       return(sendCondition)
[18:41:35.851]                     ns <- getNamespace("parallel")
[18:41:35.851]                     if (exists("sendData", mode = "function", 
[18:41:35.851]                       envir = ns)) {
[18:41:35.851]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.851]                         envir = ns)
[18:41:35.851]                       envir <- sys.frame(frame)
[18:41:35.851]                       master <- NULL
[18:41:35.851]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.851]                         !identical(envir, emptyenv())) {
[18:41:35.851]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.851]                           inherits = FALSE)) {
[18:41:35.851]                           master <- get("master", mode = "list", 
[18:41:35.851]                             envir = envir, inherits = FALSE)
[18:41:35.851]                           if (inherits(master, c("SOCKnode", 
[18:41:35.851]                             "SOCK0node"))) {
[18:41:35.851]                             sendCondition <<- function(cond) {
[18:41:35.851]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.851]                                 success = TRUE)
[18:41:35.851]                               parallel_sendData(master, data)
[18:41:35.851]                             }
[18:41:35.851]                             return(sendCondition)
[18:41:35.851]                           }
[18:41:35.851]                         }
[18:41:35.851]                         frame <- frame + 1L
[18:41:35.851]                         envir <- sys.frame(frame)
[18:41:35.851]                       }
[18:41:35.851]                     }
[18:41:35.851]                     sendCondition <<- function(cond) NULL
[18:41:35.851]                   }
[18:41:35.851]                 })
[18:41:35.851]                 withCallingHandlers({
[18:41:35.851]                   {
[18:41:35.851]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.851]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.851]                       ...future.globals.maxSize)) {
[18:41:35.851]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.851]                       on.exit(options(oopts), add = TRUE)
[18:41:35.851]                     }
[18:41:35.851]                     {
[18:41:35.851]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.851]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.851]                         USE.NAMES = FALSE)
[18:41:35.851]                       do.call(mapply, args = args)
[18:41:35.851]                     }
[18:41:35.851]                   }
[18:41:35.851]                 }, immediateCondition = function(cond) {
[18:41:35.851]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.851]                   sendCondition(cond)
[18:41:35.851]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.851]                   {
[18:41:35.851]                     inherits <- base::inherits
[18:41:35.851]                     invokeRestart <- base::invokeRestart
[18:41:35.851]                     is.null <- base::is.null
[18:41:35.851]                     muffled <- FALSE
[18:41:35.851]                     if (inherits(cond, "message")) {
[18:41:35.851]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.851]                       if (muffled) 
[18:41:35.851]                         invokeRestart("muffleMessage")
[18:41:35.851]                     }
[18:41:35.851]                     else if (inherits(cond, "warning")) {
[18:41:35.851]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.851]                       if (muffled) 
[18:41:35.851]                         invokeRestart("muffleWarning")
[18:41:35.851]                     }
[18:41:35.851]                     else if (inherits(cond, "condition")) {
[18:41:35.851]                       if (!is.null(pattern)) {
[18:41:35.851]                         computeRestarts <- base::computeRestarts
[18:41:35.851]                         grepl <- base::grepl
[18:41:35.851]                         restarts <- computeRestarts(cond)
[18:41:35.851]                         for (restart in restarts) {
[18:41:35.851]                           name <- restart$name
[18:41:35.851]                           if (is.null(name)) 
[18:41:35.851]                             next
[18:41:35.851]                           if (!grepl(pattern, name)) 
[18:41:35.851]                             next
[18:41:35.851]                           invokeRestart(restart)
[18:41:35.851]                           muffled <- TRUE
[18:41:35.851]                           break
[18:41:35.851]                         }
[18:41:35.851]                       }
[18:41:35.851]                     }
[18:41:35.851]                     invisible(muffled)
[18:41:35.851]                   }
[18:41:35.851]                   muffleCondition(cond)
[18:41:35.851]                 })
[18:41:35.851]             }))
[18:41:35.851]             future::FutureResult(value = ...future.value$value, 
[18:41:35.851]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.851]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.851]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.851]                     ...future.globalenv.names))
[18:41:35.851]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.851]         }, condition = base::local({
[18:41:35.851]             c <- base::c
[18:41:35.851]             inherits <- base::inherits
[18:41:35.851]             invokeRestart <- base::invokeRestart
[18:41:35.851]             length <- base::length
[18:41:35.851]             list <- base::list
[18:41:35.851]             seq.int <- base::seq.int
[18:41:35.851]             signalCondition <- base::signalCondition
[18:41:35.851]             sys.calls <- base::sys.calls
[18:41:35.851]             `[[` <- base::`[[`
[18:41:35.851]             `+` <- base::`+`
[18:41:35.851]             `<<-` <- base::`<<-`
[18:41:35.851]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.851]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.851]                   3L)]
[18:41:35.851]             }
[18:41:35.851]             function(cond) {
[18:41:35.851]                 is_error <- inherits(cond, "error")
[18:41:35.851]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.851]                   NULL)
[18:41:35.851]                 if (is_error) {
[18:41:35.851]                   sessionInformation <- function() {
[18:41:35.851]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.851]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.851]                       search = base::search(), system = base::Sys.info())
[18:41:35.851]                   }
[18:41:35.851]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.851]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.851]                     cond$call), session = sessionInformation(), 
[18:41:35.851]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.851]                   signalCondition(cond)
[18:41:35.851]                 }
[18:41:35.851]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.851]                 "immediateCondition"))) {
[18:41:35.851]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.851]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.851]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.851]                   if (TRUE && !signal) {
[18:41:35.851]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.851]                     {
[18:41:35.851]                       inherits <- base::inherits
[18:41:35.851]                       invokeRestart <- base::invokeRestart
[18:41:35.851]                       is.null <- base::is.null
[18:41:35.851]                       muffled <- FALSE
[18:41:35.851]                       if (inherits(cond, "message")) {
[18:41:35.851]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.851]                         if (muffled) 
[18:41:35.851]                           invokeRestart("muffleMessage")
[18:41:35.851]                       }
[18:41:35.851]                       else if (inherits(cond, "warning")) {
[18:41:35.851]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.851]                         if (muffled) 
[18:41:35.851]                           invokeRestart("muffleWarning")
[18:41:35.851]                       }
[18:41:35.851]                       else if (inherits(cond, "condition")) {
[18:41:35.851]                         if (!is.null(pattern)) {
[18:41:35.851]                           computeRestarts <- base::computeRestarts
[18:41:35.851]                           grepl <- base::grepl
[18:41:35.851]                           restarts <- computeRestarts(cond)
[18:41:35.851]                           for (restart in restarts) {
[18:41:35.851]                             name <- restart$name
[18:41:35.851]                             if (is.null(name)) 
[18:41:35.851]                               next
[18:41:35.851]                             if (!grepl(pattern, name)) 
[18:41:35.851]                               next
[18:41:35.851]                             invokeRestart(restart)
[18:41:35.851]                             muffled <- TRUE
[18:41:35.851]                             break
[18:41:35.851]                           }
[18:41:35.851]                         }
[18:41:35.851]                       }
[18:41:35.851]                       invisible(muffled)
[18:41:35.851]                     }
[18:41:35.851]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.851]                   }
[18:41:35.851]                 }
[18:41:35.851]                 else {
[18:41:35.851]                   if (TRUE) {
[18:41:35.851]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.851]                     {
[18:41:35.851]                       inherits <- base::inherits
[18:41:35.851]                       invokeRestart <- base::invokeRestart
[18:41:35.851]                       is.null <- base::is.null
[18:41:35.851]                       muffled <- FALSE
[18:41:35.851]                       if (inherits(cond, "message")) {
[18:41:35.851]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.851]                         if (muffled) 
[18:41:35.851]                           invokeRestart("muffleMessage")
[18:41:35.851]                       }
[18:41:35.851]                       else if (inherits(cond, "warning")) {
[18:41:35.851]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.851]                         if (muffled) 
[18:41:35.851]                           invokeRestart("muffleWarning")
[18:41:35.851]                       }
[18:41:35.851]                       else if (inherits(cond, "condition")) {
[18:41:35.851]                         if (!is.null(pattern)) {
[18:41:35.851]                           computeRestarts <- base::computeRestarts
[18:41:35.851]                           grepl <- base::grepl
[18:41:35.851]                           restarts <- computeRestarts(cond)
[18:41:35.851]                           for (restart in restarts) {
[18:41:35.851]                             name <- restart$name
[18:41:35.851]                             if (is.null(name)) 
[18:41:35.851]                               next
[18:41:35.851]                             if (!grepl(pattern, name)) 
[18:41:35.851]                               next
[18:41:35.851]                             invokeRestart(restart)
[18:41:35.851]                             muffled <- TRUE
[18:41:35.851]                             break
[18:41:35.851]                           }
[18:41:35.851]                         }
[18:41:35.851]                       }
[18:41:35.851]                       invisible(muffled)
[18:41:35.851]                     }
[18:41:35.851]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.851]                   }
[18:41:35.851]                 }
[18:41:35.851]             }
[18:41:35.851]         }))
[18:41:35.851]     }, error = function(ex) {
[18:41:35.851]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.851]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.851]                 ...future.rng), started = ...future.startTime, 
[18:41:35.851]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.851]             version = "1.8"), class = "FutureResult")
[18:41:35.851]     }, finally = {
[18:41:35.851]         if (!identical(...future.workdir, getwd())) 
[18:41:35.851]             setwd(...future.workdir)
[18:41:35.851]         {
[18:41:35.851]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.851]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.851]             }
[18:41:35.851]             base::options(...future.oldOptions)
[18:41:35.851]             if (.Platform$OS.type == "windows") {
[18:41:35.851]                 old_names <- names(...future.oldEnvVars)
[18:41:35.851]                 envs <- base::Sys.getenv()
[18:41:35.851]                 names <- names(envs)
[18:41:35.851]                 common <- intersect(names, old_names)
[18:41:35.851]                 added <- setdiff(names, old_names)
[18:41:35.851]                 removed <- setdiff(old_names, names)
[18:41:35.851]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.851]                   envs[common]]
[18:41:35.851]                 NAMES <- toupper(changed)
[18:41:35.851]                 args <- list()
[18:41:35.851]                 for (kk in seq_along(NAMES)) {
[18:41:35.851]                   name <- changed[[kk]]
[18:41:35.851]                   NAME <- NAMES[[kk]]
[18:41:35.851]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.851]                     next
[18:41:35.851]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.851]                 }
[18:41:35.851]                 NAMES <- toupper(added)
[18:41:35.851]                 for (kk in seq_along(NAMES)) {
[18:41:35.851]                   name <- added[[kk]]
[18:41:35.851]                   NAME <- NAMES[[kk]]
[18:41:35.851]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.851]                     next
[18:41:35.851]                   args[[name]] <- ""
[18:41:35.851]                 }
[18:41:35.851]                 NAMES <- toupper(removed)
[18:41:35.851]                 for (kk in seq_along(NAMES)) {
[18:41:35.851]                   name <- removed[[kk]]
[18:41:35.851]                   NAME <- NAMES[[kk]]
[18:41:35.851]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.851]                     next
[18:41:35.851]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.851]                 }
[18:41:35.851]                 if (length(args) > 0) 
[18:41:35.851]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.851]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.851]             }
[18:41:35.851]             else {
[18:41:35.851]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.851]             }
[18:41:35.851]             {
[18:41:35.851]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.851]                   0L) {
[18:41:35.851]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.851]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.851]                   base::options(opts)
[18:41:35.851]                 }
[18:41:35.851]                 {
[18:41:35.851]                   {
[18:41:35.851]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.851]                     NULL
[18:41:35.851]                   }
[18:41:35.851]                   options(future.plan = NULL)
[18:41:35.851]                   if (is.na(NA_character_)) 
[18:41:35.851]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.851]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.851]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.851]                     .init = FALSE)
[18:41:35.851]                 }
[18:41:35.851]             }
[18:41:35.851]         }
[18:41:35.851]     })
[18:41:35.851]     if (TRUE) {
[18:41:35.851]         base::sink(type = "output", split = FALSE)
[18:41:35.851]         if (TRUE) {
[18:41:35.851]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.851]         }
[18:41:35.851]         else {
[18:41:35.851]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.851]         }
[18:41:35.851]         base::close(...future.stdout)
[18:41:35.851]         ...future.stdout <- NULL
[18:41:35.851]     }
[18:41:35.851]     ...future.result$conditions <- ...future.conditions
[18:41:35.851]     ...future.result$finished <- base::Sys.time()
[18:41:35.851]     ...future.result
[18:41:35.851] }
[18:41:35.856] Exporting 5 global objects (803 bytes) to cluster node #1 ...
[18:41:35.857] Exporting '...future.FUN' (185 bytes) to cluster node #1 ...
[18:41:35.857] Exporting '...future.FUN' (185 bytes) to cluster node #1 ... DONE
[18:41:35.858] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ...
[18:41:35.858] Exporting 'MoreArgs' (31 bytes) to cluster node #1 ... DONE
[18:41:35.858] Exporting '...future.elements_ii' (100 bytes) to cluster node #1 ...
[18:41:35.859] Exporting '...future.elements_ii' (100 bytes) to cluster node #1 ... DONE
[18:41:35.859] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.860] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.860] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.861] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.861] Exporting 5 global objects (803 bytes) to cluster node #1 ... DONE
[18:41:35.862] MultisessionFuture started
[18:41:35.862] - Launch lazy future ... done
[18:41:35.862] run() for 'MultisessionFuture' ... done
[18:41:35.863] Created future:
[18:41:35.885] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.885] - Validating connection of MultisessionFuture
[18:41:35.885] - received message: FutureResult
[18:41:35.885] - Received FutureResult
[18:41:35.886] - Erased future from FutureRegistry
[18:41:35.886] result() for ClusterFuture ...
[18:41:35.886] - result already collected: FutureResult
[18:41:35.886] result() for ClusterFuture ... done
[18:41:35.886] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.863] MultisessionFuture:
[18:41:35.863] Label: 'future_.mapply-1'
[18:41:35.863] Expression:
[18:41:35.863] {
[18:41:35.863]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.863]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.863]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.863]         on.exit(options(oopts), add = TRUE)
[18:41:35.863]     }
[18:41:35.863]     {
[18:41:35.863]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.863]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.863]         do.call(mapply, args = args)
[18:41:35.863]     }
[18:41:35.863] }
[18:41:35.863] Lazy evaluation: FALSE
[18:41:35.863] Asynchronous evaluation: TRUE
[18:41:35.863] Local evaluation: TRUE
[18:41:35.863] Environment: R_GlobalEnv
[18:41:35.863] Capture standard output: TRUE
[18:41:35.863] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.863] Globals: 5 objects totaling 370 bytes (function '...future.FUN' of 185 bytes, list 'MoreArgs' of 31 bytes, list '...future.elements_ii' of 100 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.863] Packages: <none>
[18:41:35.863] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.863] Resolved: TRUE
[18:41:35.863] Value: <not collected>
[18:41:35.863] Conditions captured: <none>
[18:41:35.863] Early signaling: FALSE
[18:41:35.863] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.863] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.887] Chunk #1 of 1 ... DONE
[18:41:35.887] Launching 1 futures (chunks) ... DONE
[18:41:35.887] Resolving 1 futures (chunks) ...
[18:41:35.887] resolve() on list ...
[18:41:35.887]  recursive: 0
[18:41:35.888]  length: 1
[18:41:35.888] 
[18:41:35.888] Future #1
[18:41:35.888] result() for ClusterFuture ...
[18:41:35.888] - result already collected: FutureResult
[18:41:35.888] result() for ClusterFuture ... done
[18:41:35.889] result() for ClusterFuture ...
[18:41:35.889] - result already collected: FutureResult
[18:41:35.889] result() for ClusterFuture ... done
[18:41:35.889] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:35.889] - nx: 1
[18:41:35.889] - relay: TRUE
[18:41:35.890] - stdout: TRUE
[18:41:35.890] - signal: TRUE
[18:41:35.890] - resignal: FALSE
[18:41:35.890] - force: TRUE
[18:41:35.890] - relayed: [n=1] FALSE
[18:41:35.890] - queued futures: [n=1] FALSE
[18:41:35.890]  - until=1
[18:41:35.891]  - relaying element #1
[18:41:35.891] result() for ClusterFuture ...
[18:41:35.891] - result already collected: FutureResult
[18:41:35.891] result() for ClusterFuture ... done
[18:41:35.891] result() for ClusterFuture ...
[18:41:35.891] - result already collected: FutureResult
[18:41:35.891] result() for ClusterFuture ... done
[18:41:35.892] result() for ClusterFuture ...
[18:41:35.892] - result already collected: FutureResult
[18:41:35.892] result() for ClusterFuture ... done
[18:41:35.892] result() for ClusterFuture ...
[18:41:35.892] - result already collected: FutureResult
[18:41:35.892] result() for ClusterFuture ... done
[18:41:35.893] - relayed: [n=1] TRUE
[18:41:35.893] - queued futures: [n=1] TRUE
[18:41:35.893] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:35.893]  length: 0 (resolved future 1)
[18:41:35.893] Relaying remaining futures
[18:41:35.893] signalConditionsASAP(NULL, pos=0) ...
[18:41:35.894] - nx: 1
[18:41:35.894] - relay: TRUE
[18:41:35.894] - stdout: TRUE
[18:41:35.894] - signal: TRUE
[18:41:35.894] - resignal: FALSE
[18:41:35.894] - force: TRUE
[18:41:35.895] - relayed: [n=1] TRUE
[18:41:35.895] - queued futures: [n=1] TRUE
 - flush all
[18:41:35.895] - relayed: [n=1] TRUE
[18:41:35.895] - queued futures: [n=1] TRUE
[18:41:35.895] signalConditionsASAP(NULL, pos=0) ... done
[18:41:35.895] resolve() on list ... DONE
[18:41:35.896] result() for ClusterFuture ...
[18:41:35.896] - result already collected: FutureResult
[18:41:35.896] result() for ClusterFuture ... done
[18:41:35.896] result() for ClusterFuture ...
[18:41:35.896] - result already collected: FutureResult
[18:41:35.896] result() for ClusterFuture ... done
[18:41:35.897]  - Number of value chunks collected: 1
[18:41:35.897] Resolving 1 futures (chunks) ... DONE
[18:41:35.897] Reducing values from 1 chunks ...
[18:41:35.897]  - Number of values collected after concatenation: 1
[18:41:35.897]  - Number of values expected: 1
[18:41:35.897] Reducing values from 1 chunks ... DONE
[18:41:35.897] future_mapply() ... DONE
- Non-recycling of MoreArgs (Issue #51) ...
[18:41:35.898] future_mapply() ...
[18:41:35.900] Number of chunks: 2
[18:41:35.901] getGlobalsAndPackagesXApply() ...
[18:41:35.901]  - future.globals: TRUE
[18:41:35.901] getGlobalsAndPackages() ...
[18:41:35.901] Searching for globals...
[18:41:35.902] - globals found: [1] 'FUN'
[18:41:35.902] Searching for globals ... DONE
[18:41:35.903] Resolving globals: FALSE
[18:41:35.903] The total size of the 1 globals is 326 bytes (326 bytes)
[18:41:35.903] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 326 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (326 bytes of class 'function')
[18:41:35.904] - globals: [1] 'FUN'
[18:41:35.904] 
[18:41:35.904] getGlobalsAndPackages() ... DONE
[18:41:35.904]  - globals found/used: [n=1] 'FUN'
[18:41:35.904]  - needed namespaces: [n=0] 
[18:41:35.904] Finding globals ... DONE
[18:41:35.907] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:35.908] List of 2
[18:41:35.908]  $ ...future.FUN:function (x, y)  
[18:41:35.908]  $ MoreArgs     :List of 1
[18:41:35.908]   ..$ y: int [1:2] 3 4
[18:41:35.908]  - attr(*, "where")=List of 2
[18:41:35.908]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:35.908]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:35.908]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:35.908]  - attr(*, "resolved")= logi FALSE
[18:41:35.908]  - attr(*, "total_size")= num NA
[18:41:35.913] Packages to be attached in all futures: [n=0] 
[18:41:35.913] getGlobalsAndPackagesXApply() ... DONE
[18:41:35.914] Number of futures (= number of chunks): 2
[18:41:35.914] Launching 2 futures (chunks) ...
[18:41:35.914] Chunk #1 of 2 ...
[18:41:35.914]  - Finding globals in '...' for chunk #1 ...
[18:41:35.914] getGlobalsAndPackages() ...
[18:41:35.915] Searching for globals...
[18:41:35.915] 
[18:41:35.915] Searching for globals ... DONE
[18:41:35.915] - globals: [0] <none>
[18:41:35.915] getGlobalsAndPackages() ... DONE
[18:41:35.916]    + additional globals found: [n=0] 
[18:41:35.916]    + additional namespaces needed: [n=0] 
[18:41:35.916]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:35.916]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.916]  - seeds: <none>
[18:41:35.916]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.917] getGlobalsAndPackages() ...
[18:41:35.917] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.917] Resolving globals: FALSE
[18:41:35.917] The total size of the 5 globals is 656 bytes (656 bytes)
[18:41:35.918] 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 656 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (93 bytes of class 'list')
[18:41:35.918] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.918] 
[18:41:35.919] getGlobalsAndPackages() ... DONE
[18:41:35.919] run() for 'Future' ...
[18:41:35.919] - state: 'created'
[18:41:35.919] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.935] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.935] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.936]   - Field: 'node'
[18:41:35.936]   - Field: 'label'
[18:41:35.936]   - Field: 'local'
[18:41:35.936]   - Field: 'owner'
[18:41:35.936]   - Field: 'envir'
[18:41:35.936]   - Field: 'workers'
[18:41:35.937]   - Field: 'packages'
[18:41:35.937]   - Field: 'gc'
[18:41:35.937]   - Field: 'conditions'
[18:41:35.937]   - Field: 'persistent'
[18:41:35.937]   - Field: 'expr'
[18:41:35.938]   - Field: 'uuid'
[18:41:35.938]   - Field: 'seed'
[18:41:35.938]   - Field: 'version'
[18:41:35.938]   - Field: 'result'
[18:41:35.938]   - Field: 'asynchronous'
[18:41:35.938]   - Field: 'calls'
[18:41:35.939]   - Field: 'globals'
[18:41:35.939]   - Field: 'stdout'
[18:41:35.939]   - Field: 'earlySignal'
[18:41:35.939]   - Field: 'lazy'
[18:41:35.939]   - Field: 'state'
[18:41:35.939] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:35.940] - Launch lazy future ...
[18:41:35.940] Packages needed by the future expression (n = 0): <none>
[18:41:35.940] Packages needed by future strategies (n = 0): <none>
[18:41:35.941] {
[18:41:35.941]     {
[18:41:35.941]         {
[18:41:35.941]             ...future.startTime <- base::Sys.time()
[18:41:35.941]             {
[18:41:35.941]                 {
[18:41:35.941]                   {
[18:41:35.941]                     {
[18:41:35.941]                       base::local({
[18:41:35.941]                         has_future <- base::requireNamespace("future", 
[18:41:35.941]                           quietly = TRUE)
[18:41:35.941]                         if (has_future) {
[18:41:35.941]                           ns <- base::getNamespace("future")
[18:41:35.941]                           version <- ns[[".package"]][["version"]]
[18:41:35.941]                           if (is.null(version)) 
[18:41:35.941]                             version <- utils::packageVersion("future")
[18:41:35.941]                         }
[18:41:35.941]                         else {
[18:41:35.941]                           version <- NULL
[18:41:35.941]                         }
[18:41:35.941]                         if (!has_future || version < "1.8.0") {
[18:41:35.941]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:35.941]                             "", base::R.version$version.string), 
[18:41:35.941]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:35.941]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:35.941]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:35.941]                               "release", "version")], collapse = " "), 
[18:41:35.941]                             hostname = base::Sys.info()[["nodename"]])
[18:41:35.941]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:35.941]                             info)
[18:41:35.941]                           info <- base::paste(info, collapse = "; ")
[18:41:35.941]                           if (!has_future) {
[18:41:35.941]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:35.941]                               info)
[18:41:35.941]                           }
[18:41:35.941]                           else {
[18:41:35.941]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:35.941]                               info, version)
[18:41:35.941]                           }
[18:41:35.941]                           base::stop(msg)
[18:41:35.941]                         }
[18:41:35.941]                       })
[18:41:35.941]                     }
[18:41:35.941]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:35.941]                     base::options(mc.cores = 1L)
[18:41:35.941]                   }
[18:41:35.941]                   ...future.strategy.old <- future::plan("list")
[18:41:35.941]                   options(future.plan = NULL)
[18:41:35.941]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.941]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:35.941]                 }
[18:41:35.941]                 ...future.workdir <- getwd()
[18:41:35.941]             }
[18:41:35.941]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:35.941]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:35.941]         }
[18:41:35.941]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:35.941]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:35.941]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:35.941]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:35.941]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:35.941]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:35.941]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:35.941]             base::names(...future.oldOptions))
[18:41:35.941]     }
[18:41:35.941]     if (FALSE) {
[18:41:35.941]     }
[18:41:35.941]     else {
[18:41:35.941]         if (TRUE) {
[18:41:35.941]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:35.941]                 open = "w")
[18:41:35.941]         }
[18:41:35.941]         else {
[18:41:35.941]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:35.941]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:35.941]         }
[18:41:35.941]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:35.941]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:35.941]             base::sink(type = "output", split = FALSE)
[18:41:35.941]             base::close(...future.stdout)
[18:41:35.941]         }, add = TRUE)
[18:41:35.941]     }
[18:41:35.941]     ...future.frame <- base::sys.nframe()
[18:41:35.941]     ...future.conditions <- base::list()
[18:41:35.941]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:35.941]     if (FALSE) {
[18:41:35.941]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:35.941]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:35.941]     }
[18:41:35.941]     ...future.result <- base::tryCatch({
[18:41:35.941]         base::withCallingHandlers({
[18:41:35.941]             ...future.value <- base::withVisible(base::local({
[18:41:35.941]                 ...future.makeSendCondition <- base::local({
[18:41:35.941]                   sendCondition <- NULL
[18:41:35.941]                   function(frame = 1L) {
[18:41:35.941]                     if (is.function(sendCondition)) 
[18:41:35.941]                       return(sendCondition)
[18:41:35.941]                     ns <- getNamespace("parallel")
[18:41:35.941]                     if (exists("sendData", mode = "function", 
[18:41:35.941]                       envir = ns)) {
[18:41:35.941]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:35.941]                         envir = ns)
[18:41:35.941]                       envir <- sys.frame(frame)
[18:41:35.941]                       master <- NULL
[18:41:35.941]                       while (!identical(envir, .GlobalEnv) && 
[18:41:35.941]                         !identical(envir, emptyenv())) {
[18:41:35.941]                         if (exists("master", mode = "list", envir = envir, 
[18:41:35.941]                           inherits = FALSE)) {
[18:41:35.941]                           master <- get("master", mode = "list", 
[18:41:35.941]                             envir = envir, inherits = FALSE)
[18:41:35.941]                           if (inherits(master, c("SOCKnode", 
[18:41:35.941]                             "SOCK0node"))) {
[18:41:35.941]                             sendCondition <<- function(cond) {
[18:41:35.941]                               data <- list(type = "VALUE", value = cond, 
[18:41:35.941]                                 success = TRUE)
[18:41:35.941]                               parallel_sendData(master, data)
[18:41:35.941]                             }
[18:41:35.941]                             return(sendCondition)
[18:41:35.941]                           }
[18:41:35.941]                         }
[18:41:35.941]                         frame <- frame + 1L
[18:41:35.941]                         envir <- sys.frame(frame)
[18:41:35.941]                       }
[18:41:35.941]                     }
[18:41:35.941]                     sendCondition <<- function(cond) NULL
[18:41:35.941]                   }
[18:41:35.941]                 })
[18:41:35.941]                 withCallingHandlers({
[18:41:35.941]                   {
[18:41:35.941]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.941]                     if (!identical(...future.globals.maxSize.org, 
[18:41:35.941]                       ...future.globals.maxSize)) {
[18:41:35.941]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.941]                       on.exit(options(oopts), add = TRUE)
[18:41:35.941]                     }
[18:41:35.941]                     {
[18:41:35.941]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.941]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:35.941]                         USE.NAMES = FALSE)
[18:41:35.941]                       do.call(mapply, args = args)
[18:41:35.941]                     }
[18:41:35.941]                   }
[18:41:35.941]                 }, immediateCondition = function(cond) {
[18:41:35.941]                   sendCondition <- ...future.makeSendCondition()
[18:41:35.941]                   sendCondition(cond)
[18:41:35.941]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.941]                   {
[18:41:35.941]                     inherits <- base::inherits
[18:41:35.941]                     invokeRestart <- base::invokeRestart
[18:41:35.941]                     is.null <- base::is.null
[18:41:35.941]                     muffled <- FALSE
[18:41:35.941]                     if (inherits(cond, "message")) {
[18:41:35.941]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:35.941]                       if (muffled) 
[18:41:35.941]                         invokeRestart("muffleMessage")
[18:41:35.941]                     }
[18:41:35.941]                     else if (inherits(cond, "warning")) {
[18:41:35.941]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:35.941]                       if (muffled) 
[18:41:35.941]                         invokeRestart("muffleWarning")
[18:41:35.941]                     }
[18:41:35.941]                     else if (inherits(cond, "condition")) {
[18:41:35.941]                       if (!is.null(pattern)) {
[18:41:35.941]                         computeRestarts <- base::computeRestarts
[18:41:35.941]                         grepl <- base::grepl
[18:41:35.941]                         restarts <- computeRestarts(cond)
[18:41:35.941]                         for (restart in restarts) {
[18:41:35.941]                           name <- restart$name
[18:41:35.941]                           if (is.null(name)) 
[18:41:35.941]                             next
[18:41:35.941]                           if (!grepl(pattern, name)) 
[18:41:35.941]                             next
[18:41:35.941]                           invokeRestart(restart)
[18:41:35.941]                           muffled <- TRUE
[18:41:35.941]                           break
[18:41:35.941]                         }
[18:41:35.941]                       }
[18:41:35.941]                     }
[18:41:35.941]                     invisible(muffled)
[18:41:35.941]                   }
[18:41:35.941]                   muffleCondition(cond)
[18:41:35.941]                 })
[18:41:35.941]             }))
[18:41:35.941]             future::FutureResult(value = ...future.value$value, 
[18:41:35.941]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.941]                   ...future.rng), globalenv = if (FALSE) 
[18:41:35.941]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:35.941]                     ...future.globalenv.names))
[18:41:35.941]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:35.941]         }, condition = base::local({
[18:41:35.941]             c <- base::c
[18:41:35.941]             inherits <- base::inherits
[18:41:35.941]             invokeRestart <- base::invokeRestart
[18:41:35.941]             length <- base::length
[18:41:35.941]             list <- base::list
[18:41:35.941]             seq.int <- base::seq.int
[18:41:35.941]             signalCondition <- base::signalCondition
[18:41:35.941]             sys.calls <- base::sys.calls
[18:41:35.941]             `[[` <- base::`[[`
[18:41:35.941]             `+` <- base::`+`
[18:41:35.941]             `<<-` <- base::`<<-`
[18:41:35.941]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:35.941]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:35.941]                   3L)]
[18:41:35.941]             }
[18:41:35.941]             function(cond) {
[18:41:35.941]                 is_error <- inherits(cond, "error")
[18:41:35.941]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:35.941]                   NULL)
[18:41:35.941]                 if (is_error) {
[18:41:35.941]                   sessionInformation <- function() {
[18:41:35.941]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:35.941]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:35.941]                       search = base::search(), system = base::Sys.info())
[18:41:35.941]                   }
[18:41:35.941]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.941]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:35.941]                     cond$call), session = sessionInformation(), 
[18:41:35.941]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:35.941]                   signalCondition(cond)
[18:41:35.941]                 }
[18:41:35.941]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:35.941]                 "immediateCondition"))) {
[18:41:35.941]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:35.941]                   ...future.conditions[[length(...future.conditions) + 
[18:41:35.941]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:35.941]                   if (TRUE && !signal) {
[18:41:35.941]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.941]                     {
[18:41:35.941]                       inherits <- base::inherits
[18:41:35.941]                       invokeRestart <- base::invokeRestart
[18:41:35.941]                       is.null <- base::is.null
[18:41:35.941]                       muffled <- FALSE
[18:41:35.941]                       if (inherits(cond, "message")) {
[18:41:35.941]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.941]                         if (muffled) 
[18:41:35.941]                           invokeRestart("muffleMessage")
[18:41:35.941]                       }
[18:41:35.941]                       else if (inherits(cond, "warning")) {
[18:41:35.941]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.941]                         if (muffled) 
[18:41:35.941]                           invokeRestart("muffleWarning")
[18:41:35.941]                       }
[18:41:35.941]                       else if (inherits(cond, "condition")) {
[18:41:35.941]                         if (!is.null(pattern)) {
[18:41:35.941]                           computeRestarts <- base::computeRestarts
[18:41:35.941]                           grepl <- base::grepl
[18:41:35.941]                           restarts <- computeRestarts(cond)
[18:41:35.941]                           for (restart in restarts) {
[18:41:35.941]                             name <- restart$name
[18:41:35.941]                             if (is.null(name)) 
[18:41:35.941]                               next
[18:41:35.941]                             if (!grepl(pattern, name)) 
[18:41:35.941]                               next
[18:41:35.941]                             invokeRestart(restart)
[18:41:35.941]                             muffled <- TRUE
[18:41:35.941]                             break
[18:41:35.941]                           }
[18:41:35.941]                         }
[18:41:35.941]                       }
[18:41:35.941]                       invisible(muffled)
[18:41:35.941]                     }
[18:41:35.941]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.941]                   }
[18:41:35.941]                 }
[18:41:35.941]                 else {
[18:41:35.941]                   if (TRUE) {
[18:41:35.941]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:35.941]                     {
[18:41:35.941]                       inherits <- base::inherits
[18:41:35.941]                       invokeRestart <- base::invokeRestart
[18:41:35.941]                       is.null <- base::is.null
[18:41:35.941]                       muffled <- FALSE
[18:41:35.941]                       if (inherits(cond, "message")) {
[18:41:35.941]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:35.941]                         if (muffled) 
[18:41:35.941]                           invokeRestart("muffleMessage")
[18:41:35.941]                       }
[18:41:35.941]                       else if (inherits(cond, "warning")) {
[18:41:35.941]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:35.941]                         if (muffled) 
[18:41:35.941]                           invokeRestart("muffleWarning")
[18:41:35.941]                       }
[18:41:35.941]                       else if (inherits(cond, "condition")) {
[18:41:35.941]                         if (!is.null(pattern)) {
[18:41:35.941]                           computeRestarts <- base::computeRestarts
[18:41:35.941]                           grepl <- base::grepl
[18:41:35.941]                           restarts <- computeRestarts(cond)
[18:41:35.941]                           for (restart in restarts) {
[18:41:35.941]                             name <- restart$name
[18:41:35.941]                             if (is.null(name)) 
[18:41:35.941]                               next
[18:41:35.941]                             if (!grepl(pattern, name)) 
[18:41:35.941]                               next
[18:41:35.941]                             invokeRestart(restart)
[18:41:35.941]                             muffled <- TRUE
[18:41:35.941]                             break
[18:41:35.941]                           }
[18:41:35.941]                         }
[18:41:35.941]                       }
[18:41:35.941]                       invisible(muffled)
[18:41:35.941]                     }
[18:41:35.941]                     muffleCondition(cond, pattern = "^muffle")
[18:41:35.941]                   }
[18:41:35.941]                 }
[18:41:35.941]             }
[18:41:35.941]         }))
[18:41:35.941]     }, error = function(ex) {
[18:41:35.941]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:35.941]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:35.941]                 ...future.rng), started = ...future.startTime, 
[18:41:35.941]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:35.941]             version = "1.8"), class = "FutureResult")
[18:41:35.941]     }, finally = {
[18:41:35.941]         if (!identical(...future.workdir, getwd())) 
[18:41:35.941]             setwd(...future.workdir)
[18:41:35.941]         {
[18:41:35.941]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:35.941]                 ...future.oldOptions$nwarnings <- NULL
[18:41:35.941]             }
[18:41:35.941]             base::options(...future.oldOptions)
[18:41:35.941]             if (.Platform$OS.type == "windows") {
[18:41:35.941]                 old_names <- names(...future.oldEnvVars)
[18:41:35.941]                 envs <- base::Sys.getenv()
[18:41:35.941]                 names <- names(envs)
[18:41:35.941]                 common <- intersect(names, old_names)
[18:41:35.941]                 added <- setdiff(names, old_names)
[18:41:35.941]                 removed <- setdiff(old_names, names)
[18:41:35.941]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:35.941]                   envs[common]]
[18:41:35.941]                 NAMES <- toupper(changed)
[18:41:35.941]                 args <- list()
[18:41:35.941]                 for (kk in seq_along(NAMES)) {
[18:41:35.941]                   name <- changed[[kk]]
[18:41:35.941]                   NAME <- NAMES[[kk]]
[18:41:35.941]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.941]                     next
[18:41:35.941]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.941]                 }
[18:41:35.941]                 NAMES <- toupper(added)
[18:41:35.941]                 for (kk in seq_along(NAMES)) {
[18:41:35.941]                   name <- added[[kk]]
[18:41:35.941]                   NAME <- NAMES[[kk]]
[18:41:35.941]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.941]                     next
[18:41:35.941]                   args[[name]] <- ""
[18:41:35.941]                 }
[18:41:35.941]                 NAMES <- toupper(removed)
[18:41:35.941]                 for (kk in seq_along(NAMES)) {
[18:41:35.941]                   name <- removed[[kk]]
[18:41:35.941]                   NAME <- NAMES[[kk]]
[18:41:35.941]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:35.941]                     next
[18:41:35.941]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:35.941]                 }
[18:41:35.941]                 if (length(args) > 0) 
[18:41:35.941]                   base::do.call(base::Sys.setenv, args = args)
[18:41:35.941]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:35.941]             }
[18:41:35.941]             else {
[18:41:35.941]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:35.941]             }
[18:41:35.941]             {
[18:41:35.941]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:35.941]                   0L) {
[18:41:35.941]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:35.941]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:35.941]                   base::options(opts)
[18:41:35.941]                 }
[18:41:35.941]                 {
[18:41:35.941]                   {
[18:41:35.941]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:35.941]                     NULL
[18:41:35.941]                   }
[18:41:35.941]                   options(future.plan = NULL)
[18:41:35.941]                   if (is.na(NA_character_)) 
[18:41:35.941]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:35.941]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:35.941]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:35.941]                     .init = FALSE)
[18:41:35.941]                 }
[18:41:35.941]             }
[18:41:35.941]         }
[18:41:35.941]     })
[18:41:35.941]     if (TRUE) {
[18:41:35.941]         base::sink(type = "output", split = FALSE)
[18:41:35.941]         if (TRUE) {
[18:41:35.941]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:35.941]         }
[18:41:35.941]         else {
[18:41:35.941]             ...future.result["stdout"] <- base::list(NULL)
[18:41:35.941]         }
[18:41:35.941]         base::close(...future.stdout)
[18:41:35.941]         ...future.stdout <- NULL
[18:41:35.941]     }
[18:41:35.941]     ...future.result$conditions <- ...future.conditions
[18:41:35.941]     ...future.result$finished <- base::Sys.time()
[18:41:35.941]     ...future.result
[18:41:35.941] }
[18:41:35.946] Exporting 5 global objects (1.05 KiB) to cluster node #1 ...
[18:41:35.946] Exporting '...future.FUN' (326 bytes) to cluster node #1 ...
[18:41:35.947] Exporting '...future.FUN' (326 bytes) to cluster node #1 ... DONE
[18:41:35.947] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ...
[18:41:35.948] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ... DONE
[18:41:35.948] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ...
[18:41:35.949] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ... DONE
[18:41:35.949] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:35.950] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:35.950] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:35.951] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:35.951] Exporting 5 global objects (1.05 KiB) to cluster node #1 ... DONE
[18:41:35.952] MultisessionFuture started
[18:41:35.952] - Launch lazy future ... done
[18:41:35.952] run() for 'MultisessionFuture' ... done
[18:41:35.953] Created future:
[18:41:35.971] receiveMessageFromWorker() for ClusterFuture ...
[18:41:35.972] - Validating connection of MultisessionFuture
[18:41:35.972] - received message: FutureResult
[18:41:35.972] - Received FutureResult
[18:41:35.972] - Erased future from FutureRegistry
[18:41:35.972] result() for ClusterFuture ...
[18:41:35.973] - result already collected: FutureResult
[18:41:35.973] result() for ClusterFuture ... done
[18:41:35.973] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:35.953] MultisessionFuture:
[18:41:35.953] Label: 'future_mapply-1'
[18:41:35.953] Expression:
[18:41:35.953] {
[18:41:35.953]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:35.953]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:35.953]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:35.953]         on.exit(options(oopts), add = TRUE)
[18:41:35.953]     }
[18:41:35.953]     {
[18:41:35.953]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:35.953]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:35.953]         do.call(mapply, args = args)
[18:41:35.953]     }
[18:41:35.953] }
[18:41:35.953] Lazy evaluation: FALSE
[18:41:35.953] Asynchronous evaluation: TRUE
[18:41:35.953] Local evaluation: TRUE
[18:41:35.953] Environment: R_GlobalEnv
[18:41:35.953] Capture standard output: TRUE
[18:41:35.953] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:35.953] Globals: 5 objects totaling 656 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 93 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:35.953] Packages: <none>
[18:41:35.953] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:35.953] Resolved: TRUE
[18:41:35.953] Value: <not collected>
[18:41:35.953] Conditions captured: <none>
[18:41:35.953] Early signaling: FALSE
[18:41:35.953] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:35.953] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.973] Chunk #1 of 2 ... DONE
[18:41:35.974] Chunk #2 of 2 ...
[18:41:35.974]  - Finding globals in '...' for chunk #2 ...
[18:41:35.974] getGlobalsAndPackages() ...
[18:41:35.974] Searching for globals...
[18:41:35.975] 
[18:41:35.975] Searching for globals ... DONE
[18:41:35.975] - globals: [0] <none>
[18:41:35.975] getGlobalsAndPackages() ... DONE
[18:41:35.975]    + additional globals found: [n=0] 
[18:41:35.975]    + additional namespaces needed: [n=0] 
[18:41:35.976]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:35.976]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:35.976]  - seeds: <none>
[18:41:35.976]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.976] getGlobalsAndPackages() ...
[18:41:35.976] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.977] Resolving globals: FALSE
[18:41:35.977] The total size of the 5 globals is 656 bytes (656 bytes)
[18:41:35.978] 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 656 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (93 bytes of class 'list')
[18:41:35.978] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:35.978] 
[18:41:35.979] getGlobalsAndPackages() ... DONE
[18:41:35.979] run() for 'Future' ...
[18:41:35.979] - state: 'created'
[18:41:35.980] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:35.997] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:35.997] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:35.998]   - Field: 'node'
[18:41:35.998]   - Field: 'label'
[18:41:35.998]   - Field: 'local'
[18:41:35.998]   - Field: 'owner'
[18:41:35.998]   - Field: 'envir'
[18:41:35.999]   - Field: 'workers'
[18:41:35.999]   - Field: 'packages'
[18:41:35.999]   - Field: 'gc'
[18:41:35.999]   - Field: 'conditions'
[18:41:35.999]   - Field: 'persistent'
[18:41:36.000]   - Field: 'expr'
[18:41:36.000]   - Field: 'uuid'
[18:41:36.000]   - Field: 'seed'
[18:41:36.000]   - Field: 'version'
[18:41:36.000]   - Field: 'result'
[18:41:36.001]   - Field: 'asynchronous'
[18:41:36.001]   - Field: 'calls'
[18:41:36.001]   - Field: 'globals'
[18:41:36.001]   - Field: 'stdout'
[18:41:36.001]   - Field: 'earlySignal'
[18:41:36.001]   - Field: 'lazy'
[18:41:36.002]   - Field: 'state'
[18:41:36.002] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.002] - Launch lazy future ...
[18:41:36.002] Packages needed by the future expression (n = 0): <none>
[18:41:36.003] Packages needed by future strategies (n = 0): <none>
[18:41:36.004] {
[18:41:36.004]     {
[18:41:36.004]         {
[18:41:36.004]             ...future.startTime <- base::Sys.time()
[18:41:36.004]             {
[18:41:36.004]                 {
[18:41:36.004]                   {
[18:41:36.004]                     {
[18:41:36.004]                       base::local({
[18:41:36.004]                         has_future <- base::requireNamespace("future", 
[18:41:36.004]                           quietly = TRUE)
[18:41:36.004]                         if (has_future) {
[18:41:36.004]                           ns <- base::getNamespace("future")
[18:41:36.004]                           version <- ns[[".package"]][["version"]]
[18:41:36.004]                           if (is.null(version)) 
[18:41:36.004]                             version <- utils::packageVersion("future")
[18:41:36.004]                         }
[18:41:36.004]                         else {
[18:41:36.004]                           version <- NULL
[18:41:36.004]                         }
[18:41:36.004]                         if (!has_future || version < "1.8.0") {
[18:41:36.004]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.004]                             "", base::R.version$version.string), 
[18:41:36.004]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.004]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.004]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.004]                               "release", "version")], collapse = " "), 
[18:41:36.004]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.004]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.004]                             info)
[18:41:36.004]                           info <- base::paste(info, collapse = "; ")
[18:41:36.004]                           if (!has_future) {
[18:41:36.004]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.004]                               info)
[18:41:36.004]                           }
[18:41:36.004]                           else {
[18:41:36.004]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.004]                               info, version)
[18:41:36.004]                           }
[18:41:36.004]                           base::stop(msg)
[18:41:36.004]                         }
[18:41:36.004]                       })
[18:41:36.004]                     }
[18:41:36.004]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.004]                     base::options(mc.cores = 1L)
[18:41:36.004]                   }
[18:41:36.004]                   ...future.strategy.old <- future::plan("list")
[18:41:36.004]                   options(future.plan = NULL)
[18:41:36.004]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.004]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.004]                 }
[18:41:36.004]                 ...future.workdir <- getwd()
[18:41:36.004]             }
[18:41:36.004]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.004]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.004]         }
[18:41:36.004]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.004]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.004]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.004]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.004]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.004]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.004]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.004]             base::names(...future.oldOptions))
[18:41:36.004]     }
[18:41:36.004]     if (FALSE) {
[18:41:36.004]     }
[18:41:36.004]     else {
[18:41:36.004]         if (TRUE) {
[18:41:36.004]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.004]                 open = "w")
[18:41:36.004]         }
[18:41:36.004]         else {
[18:41:36.004]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.004]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.004]         }
[18:41:36.004]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.004]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.004]             base::sink(type = "output", split = FALSE)
[18:41:36.004]             base::close(...future.stdout)
[18:41:36.004]         }, add = TRUE)
[18:41:36.004]     }
[18:41:36.004]     ...future.frame <- base::sys.nframe()
[18:41:36.004]     ...future.conditions <- base::list()
[18:41:36.004]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.004]     if (FALSE) {
[18:41:36.004]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.004]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.004]     }
[18:41:36.004]     ...future.result <- base::tryCatch({
[18:41:36.004]         base::withCallingHandlers({
[18:41:36.004]             ...future.value <- base::withVisible(base::local({
[18:41:36.004]                 ...future.makeSendCondition <- base::local({
[18:41:36.004]                   sendCondition <- NULL
[18:41:36.004]                   function(frame = 1L) {
[18:41:36.004]                     if (is.function(sendCondition)) 
[18:41:36.004]                       return(sendCondition)
[18:41:36.004]                     ns <- getNamespace("parallel")
[18:41:36.004]                     if (exists("sendData", mode = "function", 
[18:41:36.004]                       envir = ns)) {
[18:41:36.004]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.004]                         envir = ns)
[18:41:36.004]                       envir <- sys.frame(frame)
[18:41:36.004]                       master <- NULL
[18:41:36.004]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.004]                         !identical(envir, emptyenv())) {
[18:41:36.004]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.004]                           inherits = FALSE)) {
[18:41:36.004]                           master <- get("master", mode = "list", 
[18:41:36.004]                             envir = envir, inherits = FALSE)
[18:41:36.004]                           if (inherits(master, c("SOCKnode", 
[18:41:36.004]                             "SOCK0node"))) {
[18:41:36.004]                             sendCondition <<- function(cond) {
[18:41:36.004]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.004]                                 success = TRUE)
[18:41:36.004]                               parallel_sendData(master, data)
[18:41:36.004]                             }
[18:41:36.004]                             return(sendCondition)
[18:41:36.004]                           }
[18:41:36.004]                         }
[18:41:36.004]                         frame <- frame + 1L
[18:41:36.004]                         envir <- sys.frame(frame)
[18:41:36.004]                       }
[18:41:36.004]                     }
[18:41:36.004]                     sendCondition <<- function(cond) NULL
[18:41:36.004]                   }
[18:41:36.004]                 })
[18:41:36.004]                 withCallingHandlers({
[18:41:36.004]                   {
[18:41:36.004]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.004]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.004]                       ...future.globals.maxSize)) {
[18:41:36.004]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.004]                       on.exit(options(oopts), add = TRUE)
[18:41:36.004]                     }
[18:41:36.004]                     {
[18:41:36.004]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.004]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.004]                         USE.NAMES = FALSE)
[18:41:36.004]                       do.call(mapply, args = args)
[18:41:36.004]                     }
[18:41:36.004]                   }
[18:41:36.004]                 }, immediateCondition = function(cond) {
[18:41:36.004]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.004]                   sendCondition(cond)
[18:41:36.004]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.004]                   {
[18:41:36.004]                     inherits <- base::inherits
[18:41:36.004]                     invokeRestart <- base::invokeRestart
[18:41:36.004]                     is.null <- base::is.null
[18:41:36.004]                     muffled <- FALSE
[18:41:36.004]                     if (inherits(cond, "message")) {
[18:41:36.004]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.004]                       if (muffled) 
[18:41:36.004]                         invokeRestart("muffleMessage")
[18:41:36.004]                     }
[18:41:36.004]                     else if (inherits(cond, "warning")) {
[18:41:36.004]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.004]                       if (muffled) 
[18:41:36.004]                         invokeRestart("muffleWarning")
[18:41:36.004]                     }
[18:41:36.004]                     else if (inherits(cond, "condition")) {
[18:41:36.004]                       if (!is.null(pattern)) {
[18:41:36.004]                         computeRestarts <- base::computeRestarts
[18:41:36.004]                         grepl <- base::grepl
[18:41:36.004]                         restarts <- computeRestarts(cond)
[18:41:36.004]                         for (restart in restarts) {
[18:41:36.004]                           name <- restart$name
[18:41:36.004]                           if (is.null(name)) 
[18:41:36.004]                             next
[18:41:36.004]                           if (!grepl(pattern, name)) 
[18:41:36.004]                             next
[18:41:36.004]                           invokeRestart(restart)
[18:41:36.004]                           muffled <- TRUE
[18:41:36.004]                           break
[18:41:36.004]                         }
[18:41:36.004]                       }
[18:41:36.004]                     }
[18:41:36.004]                     invisible(muffled)
[18:41:36.004]                   }
[18:41:36.004]                   muffleCondition(cond)
[18:41:36.004]                 })
[18:41:36.004]             }))
[18:41:36.004]             future::FutureResult(value = ...future.value$value, 
[18:41:36.004]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.004]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.004]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.004]                     ...future.globalenv.names))
[18:41:36.004]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.004]         }, condition = base::local({
[18:41:36.004]             c <- base::c
[18:41:36.004]             inherits <- base::inherits
[18:41:36.004]             invokeRestart <- base::invokeRestart
[18:41:36.004]             length <- base::length
[18:41:36.004]             list <- base::list
[18:41:36.004]             seq.int <- base::seq.int
[18:41:36.004]             signalCondition <- base::signalCondition
[18:41:36.004]             sys.calls <- base::sys.calls
[18:41:36.004]             `[[` <- base::`[[`
[18:41:36.004]             `+` <- base::`+`
[18:41:36.004]             `<<-` <- base::`<<-`
[18:41:36.004]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.004]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.004]                   3L)]
[18:41:36.004]             }
[18:41:36.004]             function(cond) {
[18:41:36.004]                 is_error <- inherits(cond, "error")
[18:41:36.004]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.004]                   NULL)
[18:41:36.004]                 if (is_error) {
[18:41:36.004]                   sessionInformation <- function() {
[18:41:36.004]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.004]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.004]                       search = base::search(), system = base::Sys.info())
[18:41:36.004]                   }
[18:41:36.004]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.004]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.004]                     cond$call), session = sessionInformation(), 
[18:41:36.004]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.004]                   signalCondition(cond)
[18:41:36.004]                 }
[18:41:36.004]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.004]                 "immediateCondition"))) {
[18:41:36.004]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.004]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.004]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.004]                   if (TRUE && !signal) {
[18:41:36.004]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.004]                     {
[18:41:36.004]                       inherits <- base::inherits
[18:41:36.004]                       invokeRestart <- base::invokeRestart
[18:41:36.004]                       is.null <- base::is.null
[18:41:36.004]                       muffled <- FALSE
[18:41:36.004]                       if (inherits(cond, "message")) {
[18:41:36.004]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.004]                         if (muffled) 
[18:41:36.004]                           invokeRestart("muffleMessage")
[18:41:36.004]                       }
[18:41:36.004]                       else if (inherits(cond, "warning")) {
[18:41:36.004]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.004]                         if (muffled) 
[18:41:36.004]                           invokeRestart("muffleWarning")
[18:41:36.004]                       }
[18:41:36.004]                       else if (inherits(cond, "condition")) {
[18:41:36.004]                         if (!is.null(pattern)) {
[18:41:36.004]                           computeRestarts <- base::computeRestarts
[18:41:36.004]                           grepl <- base::grepl
[18:41:36.004]                           restarts <- computeRestarts(cond)
[18:41:36.004]                           for (restart in restarts) {
[18:41:36.004]                             name <- restart$name
[18:41:36.004]                             if (is.null(name)) 
[18:41:36.004]                               next
[18:41:36.004]                             if (!grepl(pattern, name)) 
[18:41:36.004]                               next
[18:41:36.004]                             invokeRestart(restart)
[18:41:36.004]                             muffled <- TRUE
[18:41:36.004]                             break
[18:41:36.004]                           }
[18:41:36.004]                         }
[18:41:36.004]                       }
[18:41:36.004]                       invisible(muffled)
[18:41:36.004]                     }
[18:41:36.004]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.004]                   }
[18:41:36.004]                 }
[18:41:36.004]                 else {
[18:41:36.004]                   if (TRUE) {
[18:41:36.004]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.004]                     {
[18:41:36.004]                       inherits <- base::inherits
[18:41:36.004]                       invokeRestart <- base::invokeRestart
[18:41:36.004]                       is.null <- base::is.null
[18:41:36.004]                       muffled <- FALSE
[18:41:36.004]                       if (inherits(cond, "message")) {
[18:41:36.004]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.004]                         if (muffled) 
[18:41:36.004]                           invokeRestart("muffleMessage")
[18:41:36.004]                       }
[18:41:36.004]                       else if (inherits(cond, "warning")) {
[18:41:36.004]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.004]                         if (muffled) 
[18:41:36.004]                           invokeRestart("muffleWarning")
[18:41:36.004]                       }
[18:41:36.004]                       else if (inherits(cond, "condition")) {
[18:41:36.004]                         if (!is.null(pattern)) {
[18:41:36.004]                           computeRestarts <- base::computeRestarts
[18:41:36.004]                           grepl <- base::grepl
[18:41:36.004]                           restarts <- computeRestarts(cond)
[18:41:36.004]                           for (restart in restarts) {
[18:41:36.004]                             name <- restart$name
[18:41:36.004]                             if (is.null(name)) 
[18:41:36.004]                               next
[18:41:36.004]                             if (!grepl(pattern, name)) 
[18:41:36.004]                               next
[18:41:36.004]                             invokeRestart(restart)
[18:41:36.004]                             muffled <- TRUE
[18:41:36.004]                             break
[18:41:36.004]                           }
[18:41:36.004]                         }
[18:41:36.004]                       }
[18:41:36.004]                       invisible(muffled)
[18:41:36.004]                     }
[18:41:36.004]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.004]                   }
[18:41:36.004]                 }
[18:41:36.004]             }
[18:41:36.004]         }))
[18:41:36.004]     }, error = function(ex) {
[18:41:36.004]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.004]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.004]                 ...future.rng), started = ...future.startTime, 
[18:41:36.004]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.004]             version = "1.8"), class = "FutureResult")
[18:41:36.004]     }, finally = {
[18:41:36.004]         if (!identical(...future.workdir, getwd())) 
[18:41:36.004]             setwd(...future.workdir)
[18:41:36.004]         {
[18:41:36.004]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.004]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.004]             }
[18:41:36.004]             base::options(...future.oldOptions)
[18:41:36.004]             if (.Platform$OS.type == "windows") {
[18:41:36.004]                 old_names <- names(...future.oldEnvVars)
[18:41:36.004]                 envs <- base::Sys.getenv()
[18:41:36.004]                 names <- names(envs)
[18:41:36.004]                 common <- intersect(names, old_names)
[18:41:36.004]                 added <- setdiff(names, old_names)
[18:41:36.004]                 removed <- setdiff(old_names, names)
[18:41:36.004]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.004]                   envs[common]]
[18:41:36.004]                 NAMES <- toupper(changed)
[18:41:36.004]                 args <- list()
[18:41:36.004]                 for (kk in seq_along(NAMES)) {
[18:41:36.004]                   name <- changed[[kk]]
[18:41:36.004]                   NAME <- NAMES[[kk]]
[18:41:36.004]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.004]                     next
[18:41:36.004]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.004]                 }
[18:41:36.004]                 NAMES <- toupper(added)
[18:41:36.004]                 for (kk in seq_along(NAMES)) {
[18:41:36.004]                   name <- added[[kk]]
[18:41:36.004]                   NAME <- NAMES[[kk]]
[18:41:36.004]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.004]                     next
[18:41:36.004]                   args[[name]] <- ""
[18:41:36.004]                 }
[18:41:36.004]                 NAMES <- toupper(removed)
[18:41:36.004]                 for (kk in seq_along(NAMES)) {
[18:41:36.004]                   name <- removed[[kk]]
[18:41:36.004]                   NAME <- NAMES[[kk]]
[18:41:36.004]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.004]                     next
[18:41:36.004]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.004]                 }
[18:41:36.004]                 if (length(args) > 0) 
[18:41:36.004]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.004]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.004]             }
[18:41:36.004]             else {
[18:41:36.004]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.004]             }
[18:41:36.004]             {
[18:41:36.004]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.004]                   0L) {
[18:41:36.004]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.004]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.004]                   base::options(opts)
[18:41:36.004]                 }
[18:41:36.004]                 {
[18:41:36.004]                   {
[18:41:36.004]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.004]                     NULL
[18:41:36.004]                   }
[18:41:36.004]                   options(future.plan = NULL)
[18:41:36.004]                   if (is.na(NA_character_)) 
[18:41:36.004]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.004]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.004]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.004]                     .init = FALSE)
[18:41:36.004]                 }
[18:41:36.004]             }
[18:41:36.004]         }
[18:41:36.004]     })
[18:41:36.004]     if (TRUE) {
[18:41:36.004]         base::sink(type = "output", split = FALSE)
[18:41:36.004]         if (TRUE) {
[18:41:36.004]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.004]         }
[18:41:36.004]         else {
[18:41:36.004]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.004]         }
[18:41:36.004]         base::close(...future.stdout)
[18:41:36.004]         ...future.stdout <- NULL
[18:41:36.004]     }
[18:41:36.004]     ...future.result$conditions <- ...future.conditions
[18:41:36.004]     ...future.result$finished <- base::Sys.time()
[18:41:36.004]     ...future.result
[18:41:36.004] }
[18:41:36.010] Exporting 5 global objects (1.05 KiB) to cluster node #1 ...
[18:41:36.010] Exporting '...future.FUN' (326 bytes) to cluster node #1 ...
[18:41:36.011] Exporting '...future.FUN' (326 bytes) to cluster node #1 ... DONE
[18:41:36.011] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ...
[18:41:36.011] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ... DONE
[18:41:36.012] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ...
[18:41:36.012] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ... DONE
[18:41:36.013] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.013] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.013] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.014] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.014] Exporting 5 global objects (1.05 KiB) to cluster node #1 ... DONE
[18:41:36.015] MultisessionFuture started
[18:41:36.015] - Launch lazy future ... done
[18:41:36.016] run() for 'MultisessionFuture' ... done
[18:41:36.016] Created future:
[18:41:36.038] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.039] - Validating connection of MultisessionFuture
[18:41:36.039] - received message: FutureResult
[18:41:36.039] - Received FutureResult
[18:41:36.039] - Erased future from FutureRegistry
[18:41:36.039] result() for ClusterFuture ...
[18:41:36.040] - result already collected: FutureResult
[18:41:36.040] result() for ClusterFuture ... done
[18:41:36.040] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.016] MultisessionFuture:
[18:41:36.016] Label: 'future_mapply-2'
[18:41:36.016] Expression:
[18:41:36.016] {
[18:41:36.016]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.016]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.016]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.016]         on.exit(options(oopts), add = TRUE)
[18:41:36.016]     }
[18:41:36.016]     {
[18:41:36.016]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.016]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.016]         do.call(mapply, args = args)
[18:41:36.016]     }
[18:41:36.016] }
[18:41:36.016] Lazy evaluation: FALSE
[18:41:36.016] Asynchronous evaluation: TRUE
[18:41:36.016] Local evaluation: TRUE
[18:41:36.016] Environment: R_GlobalEnv
[18:41:36.016] Capture standard output: TRUE
[18:41:36.016] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.016] Globals: 5 objects totaling 656 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 93 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.016] Packages: <none>
[18:41:36.016] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.016] Resolved: TRUE
[18:41:36.016] Value: <not collected>
[18:41:36.016] Conditions captured: <none>
[18:41:36.016] Early signaling: FALSE
[18:41:36.016] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.016] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.040] Chunk #2 of 2 ... DONE
[18:41:36.041] Launching 2 futures (chunks) ... DONE
[18:41:36.041] Resolving 2 futures (chunks) ...
[18:41:36.041] resolve() on list ...
[18:41:36.041]  recursive: 0
[18:41:36.041]  length: 2
[18:41:36.041] 
[18:41:36.042] Future #1
[18:41:36.042] result() for ClusterFuture ...
[18:41:36.042] - result already collected: FutureResult
[18:41:36.042] result() for ClusterFuture ... done
[18:41:36.042] result() for ClusterFuture ...
[18:41:36.042] - result already collected: FutureResult
[18:41:36.043] result() for ClusterFuture ... done
[18:41:36.043] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:36.043] - nx: 2
[18:41:36.043] - relay: TRUE
[18:41:36.043] - stdout: TRUE
[18:41:36.043] - signal: TRUE
[18:41:36.044] - resignal: FALSE
[18:41:36.044] - force: TRUE
[18:41:36.044] - relayed: [n=2] FALSE, FALSE
[18:41:36.044] - queued futures: [n=2] FALSE, FALSE
[18:41:36.044]  - until=1
[18:41:36.044]  - relaying element #1
[18:41:36.045] result() for ClusterFuture ...
[18:41:36.045] - result already collected: FutureResult
[18:41:36.045] result() for ClusterFuture ... done
[18:41:36.045] result() for ClusterFuture ...
[18:41:36.045] - result already collected: FutureResult
[18:41:36.045] result() for ClusterFuture ... done
[18:41:36.046] result() for ClusterFuture ...
[18:41:36.046] - result already collected: FutureResult
[18:41:36.046] result() for ClusterFuture ... done
[18:41:36.046] result() for ClusterFuture ...
[18:41:36.046] - result already collected: FutureResult
[18:41:36.047] result() for ClusterFuture ... done
[18:41:36.047] - relayed: [n=2] TRUE, FALSE
[18:41:36.047] - queued futures: [n=2] TRUE, FALSE
[18:41:36.047] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:36.047]  length: 1 (resolved future 1)
[18:41:36.047] Future #2
[18:41:36.048] result() for ClusterFuture ...
[18:41:36.048] - result already collected: FutureResult
[18:41:36.048] result() for ClusterFuture ... done
[18:41:36.048] result() for ClusterFuture ...
[18:41:36.048] - result already collected: FutureResult
[18:41:36.048] result() for ClusterFuture ... done
[18:41:36.049] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:36.049] - nx: 2
[18:41:36.049] - relay: TRUE
[18:41:36.049] - stdout: TRUE
[18:41:36.049] - signal: TRUE
[18:41:36.049] - resignal: FALSE
[18:41:36.050] - force: TRUE
[18:41:36.050] - relayed: [n=2] TRUE, FALSE
[18:41:36.050] - queued futures: [n=2] TRUE, FALSE
[18:41:36.050]  - until=2
[18:41:36.050]  - relaying element #2
[18:41:36.050] result() for ClusterFuture ...
[18:41:36.051] - result already collected: FutureResult
[18:41:36.051] result() for ClusterFuture ... done
[18:41:36.051] result() for ClusterFuture ...
[18:41:36.051] - result already collected: FutureResult
[18:41:36.051] result() for ClusterFuture ... done
[18:41:36.052] result() for ClusterFuture ...
[18:41:36.052] - result already collected: FutureResult
[18:41:36.052] result() for ClusterFuture ... done
[18:41:36.052] result() for ClusterFuture ...
[18:41:36.052] - result already collected: FutureResult
[18:41:36.052] result() for ClusterFuture ... done
[18:41:36.053] - relayed: [n=2] TRUE, TRUE
[18:41:36.053] - queued futures: [n=2] TRUE, TRUE
[18:41:36.053] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:36.053]  length: 0 (resolved future 2)
[18:41:36.053] Relaying remaining futures
[18:41:36.053] signalConditionsASAP(NULL, pos=0) ...
[18:41:36.054] - nx: 2
[18:41:36.054] - relay: TRUE
[18:41:36.054] - stdout: TRUE
[18:41:36.054] - signal: TRUE
[18:41:36.054] - resignal: FALSE
[18:41:36.054] - force: TRUE
[18:41:36.055] - relayed: [n=2] TRUE, TRUE
[18:41:36.055] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:36.055] - relayed: [n=2] TRUE, TRUE
[18:41:36.055] - queued futures: [n=2] TRUE, TRUE
[18:41:36.055] signalConditionsASAP(NULL, pos=0) ... done
[18:41:36.055] resolve() on list ... DONE
[18:41:36.056] result() for ClusterFuture ...
[18:41:36.056] - result already collected: FutureResult
[18:41:36.056] result() for ClusterFuture ... done
[18:41:36.056] result() for ClusterFuture ...
[18:41:36.056] - result already collected: FutureResult
[18:41:36.056] result() for ClusterFuture ... done
[18:41:36.057] result() for ClusterFuture ...
[18:41:36.057] - result already collected: FutureResult
[18:41:36.057] result() for ClusterFuture ... done
[18:41:36.057] result() for ClusterFuture ...
[18:41:36.057] - result already collected: FutureResult
[18:41:36.057] result() for ClusterFuture ... done
[18:41:36.058]  - Number of value chunks collected: 2
[18:41:36.058] Resolving 2 futures (chunks) ... DONE
[18:41:36.058] Reducing values from 2 chunks ...
[18:41:36.058]  - Number of values collected after concatenation: 2
[18:41:36.058]  - Number of values expected: 2
[18:41:36.059] Reducing values from 2 chunks ... DONE
[18:41:36.059] future_mapply() ... DONE
[18:41:36.059] future_mapply() ...
[18:41:36.059] Generating random seeds ...
[18:41:36.059] Generating random seed streams for 2 elements ...
[18:41:36.060] Generating random seed streams for 2 elements ... DONE
[18:41:36.060] Generating random seeds ... DONE
[18:41:36.060] Will set RNG state on exit: 10407, 1620368110, -1765577740, -1501482872, 1409726724, 982284378, 1838941916
[18:41:36.063] Number of chunks: 2
[18:41:36.063] getGlobalsAndPackagesXApply() ...
[18:41:36.063]  - future.globals: TRUE
[18:41:36.063] getGlobalsAndPackages() ...
[18:41:36.063] Searching for globals...
[18:41:36.065] - globals found: [1] 'FUN'
[18:41:36.065] Searching for globals ... DONE
[18:41:36.065] Resolving globals: FALSE
[18:41:36.065] The total size of the 1 globals is 326 bytes (326 bytes)
[18:41:36.066] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 326 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (326 bytes of class 'function')
[18:41:36.066] - globals: [1] 'FUN'
[18:41:36.066] 
[18:41:36.066] getGlobalsAndPackages() ... DONE
[18:41:36.067]  - globals found/used: [n=1] 'FUN'
[18:41:36.067]  - needed namespaces: [n=0] 
[18:41:36.067] Finding globals ... DONE
[18:41:36.067] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:36.068] List of 2
[18:41:36.068]  $ ...future.FUN:function (x, y)  
[18:41:36.068]  $ MoreArgs     :List of 1
[18:41:36.068]   ..$ y: int [1:2] 3 4
[18:41:36.068]  - attr(*, "where")=List of 2
[18:41:36.068]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:36.068]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:36.068]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:36.068]  - attr(*, "resolved")= logi FALSE
[18:41:36.068]  - attr(*, "total_size")= num NA
[18:41:36.071] Packages to be attached in all futures: [n=0] 
[18:41:36.072] getGlobalsAndPackagesXApply() ... DONE
[18:41:36.072] Number of futures (= number of chunks): 2
[18:41:36.072] Launching 2 futures (chunks) ...
[18:41:36.072] Chunk #1 of 2 ...
[18:41:36.072]  - Finding globals in '...' for chunk #1 ...
[18:41:36.073] getGlobalsAndPackages() ...
[18:41:36.073] Searching for globals...
[18:41:36.073] 
[18:41:36.073] Searching for globals ... DONE
[18:41:36.073] - globals: [0] <none>
[18:41:36.074] getGlobalsAndPackages() ... DONE
[18:41:36.074]    + additional globals found: [n=0] 
[18:41:36.074]    + additional namespaces needed: [n=0] 
[18:41:36.074]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:36.074]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.075]  - seeds: [1] <seeds>
[18:41:36.075]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.075] getGlobalsAndPackages() ...
[18:41:36.075] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.075] Resolving globals: FALSE
[18:41:36.076] The total size of the 5 globals is 696 bytes (696 bytes)
[18:41:36.077] 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 696 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (93 bytes of class 'list')
[18:41:36.077] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.077] 
[18:41:36.077] getGlobalsAndPackages() ... DONE
[18:41:36.078] run() for 'Future' ...
[18:41:36.078] - state: 'created'
[18:41:36.078] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.093] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.094] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.094]   - Field: 'node'
[18:41:36.094]   - Field: 'label'
[18:41:36.094]   - Field: 'local'
[18:41:36.094]   - Field: 'owner'
[18:41:36.095]   - Field: 'envir'
[18:41:36.095]   - Field: 'workers'
[18:41:36.095]   - Field: 'packages'
[18:41:36.095]   - Field: 'gc'
[18:41:36.095]   - Field: 'conditions'
[18:41:36.095]   - Field: 'persistent'
[18:41:36.096]   - Field: 'expr'
[18:41:36.096]   - Field: 'uuid'
[18:41:36.096]   - Field: 'seed'
[18:41:36.096]   - Field: 'version'
[18:41:36.096]   - Field: 'result'
[18:41:36.097]   - Field: 'asynchronous'
[18:41:36.097]   - Field: 'calls'
[18:41:36.097]   - Field: 'globals'
[18:41:36.097]   - Field: 'stdout'
[18:41:36.097]   - Field: 'earlySignal'
[18:41:36.098]   - Field: 'lazy'
[18:41:36.098]   - Field: 'state'
[18:41:36.098] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.098] - Launch lazy future ...
[18:41:36.098] Packages needed by the future expression (n = 0): <none>
[18:41:36.099] Packages needed by future strategies (n = 0): <none>
[18:41:36.099] {
[18:41:36.099]     {
[18:41:36.099]         {
[18:41:36.099]             ...future.startTime <- base::Sys.time()
[18:41:36.099]             {
[18:41:36.099]                 {
[18:41:36.099]                   {
[18:41:36.099]                     {
[18:41:36.099]                       base::local({
[18:41:36.099]                         has_future <- base::requireNamespace("future", 
[18:41:36.099]                           quietly = TRUE)
[18:41:36.099]                         if (has_future) {
[18:41:36.099]                           ns <- base::getNamespace("future")
[18:41:36.099]                           version <- ns[[".package"]][["version"]]
[18:41:36.099]                           if (is.null(version)) 
[18:41:36.099]                             version <- utils::packageVersion("future")
[18:41:36.099]                         }
[18:41:36.099]                         else {
[18:41:36.099]                           version <- NULL
[18:41:36.099]                         }
[18:41:36.099]                         if (!has_future || version < "1.8.0") {
[18:41:36.099]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.099]                             "", base::R.version$version.string), 
[18:41:36.099]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.099]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.099]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.099]                               "release", "version")], collapse = " "), 
[18:41:36.099]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.099]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.099]                             info)
[18:41:36.099]                           info <- base::paste(info, collapse = "; ")
[18:41:36.099]                           if (!has_future) {
[18:41:36.099]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.099]                               info)
[18:41:36.099]                           }
[18:41:36.099]                           else {
[18:41:36.099]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.099]                               info, version)
[18:41:36.099]                           }
[18:41:36.099]                           base::stop(msg)
[18:41:36.099]                         }
[18:41:36.099]                       })
[18:41:36.099]                     }
[18:41:36.099]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.099]                     base::options(mc.cores = 1L)
[18:41:36.099]                   }
[18:41:36.099]                   ...future.strategy.old <- future::plan("list")
[18:41:36.099]                   options(future.plan = NULL)
[18:41:36.099]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.099]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.099]                 }
[18:41:36.099]                 ...future.workdir <- getwd()
[18:41:36.099]             }
[18:41:36.099]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.099]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.099]         }
[18:41:36.099]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.099]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.099]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.099]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.099]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.099]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.099]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.099]             base::names(...future.oldOptions))
[18:41:36.099]     }
[18:41:36.099]     if (FALSE) {
[18:41:36.099]     }
[18:41:36.099]     else {
[18:41:36.099]         if (TRUE) {
[18:41:36.099]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.099]                 open = "w")
[18:41:36.099]         }
[18:41:36.099]         else {
[18:41:36.099]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.099]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.099]         }
[18:41:36.099]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.099]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.099]             base::sink(type = "output", split = FALSE)
[18:41:36.099]             base::close(...future.stdout)
[18:41:36.099]         }, add = TRUE)
[18:41:36.099]     }
[18:41:36.099]     ...future.frame <- base::sys.nframe()
[18:41:36.099]     ...future.conditions <- base::list()
[18:41:36.099]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.099]     if (FALSE) {
[18:41:36.099]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.099]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.099]     }
[18:41:36.099]     ...future.result <- base::tryCatch({
[18:41:36.099]         base::withCallingHandlers({
[18:41:36.099]             ...future.value <- base::withVisible(base::local({
[18:41:36.099]                 ...future.makeSendCondition <- base::local({
[18:41:36.099]                   sendCondition <- NULL
[18:41:36.099]                   function(frame = 1L) {
[18:41:36.099]                     if (is.function(sendCondition)) 
[18:41:36.099]                       return(sendCondition)
[18:41:36.099]                     ns <- getNamespace("parallel")
[18:41:36.099]                     if (exists("sendData", mode = "function", 
[18:41:36.099]                       envir = ns)) {
[18:41:36.099]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.099]                         envir = ns)
[18:41:36.099]                       envir <- sys.frame(frame)
[18:41:36.099]                       master <- NULL
[18:41:36.099]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.099]                         !identical(envir, emptyenv())) {
[18:41:36.099]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.099]                           inherits = FALSE)) {
[18:41:36.099]                           master <- get("master", mode = "list", 
[18:41:36.099]                             envir = envir, inherits = FALSE)
[18:41:36.099]                           if (inherits(master, c("SOCKnode", 
[18:41:36.099]                             "SOCK0node"))) {
[18:41:36.099]                             sendCondition <<- function(cond) {
[18:41:36.099]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.099]                                 success = TRUE)
[18:41:36.099]                               parallel_sendData(master, data)
[18:41:36.099]                             }
[18:41:36.099]                             return(sendCondition)
[18:41:36.099]                           }
[18:41:36.099]                         }
[18:41:36.099]                         frame <- frame + 1L
[18:41:36.099]                         envir <- sys.frame(frame)
[18:41:36.099]                       }
[18:41:36.099]                     }
[18:41:36.099]                     sendCondition <<- function(cond) NULL
[18:41:36.099]                   }
[18:41:36.099]                 })
[18:41:36.099]                 withCallingHandlers({
[18:41:36.099]                   {
[18:41:36.099]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.099]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.099]                       ...future.globals.maxSize)) {
[18:41:36.099]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.099]                       on.exit(options(oopts), add = TRUE)
[18:41:36.099]                     }
[18:41:36.099]                     {
[18:41:36.099]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.099]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:36.099]                           envir = globalenv(), inherits = FALSE)
[18:41:36.099]                         ...future.FUN(...)
[18:41:36.099]                       }
[18:41:36.099]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.099]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.099]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.099]                         USE.NAMES = FALSE)
[18:41:36.099]                       do.call(mapply, args = args)
[18:41:36.099]                     }
[18:41:36.099]                   }
[18:41:36.099]                 }, immediateCondition = function(cond) {
[18:41:36.099]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.099]                   sendCondition(cond)
[18:41:36.099]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.099]                   {
[18:41:36.099]                     inherits <- base::inherits
[18:41:36.099]                     invokeRestart <- base::invokeRestart
[18:41:36.099]                     is.null <- base::is.null
[18:41:36.099]                     muffled <- FALSE
[18:41:36.099]                     if (inherits(cond, "message")) {
[18:41:36.099]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.099]                       if (muffled) 
[18:41:36.099]                         invokeRestart("muffleMessage")
[18:41:36.099]                     }
[18:41:36.099]                     else if (inherits(cond, "warning")) {
[18:41:36.099]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.099]                       if (muffled) 
[18:41:36.099]                         invokeRestart("muffleWarning")
[18:41:36.099]                     }
[18:41:36.099]                     else if (inherits(cond, "condition")) {
[18:41:36.099]                       if (!is.null(pattern)) {
[18:41:36.099]                         computeRestarts <- base::computeRestarts
[18:41:36.099]                         grepl <- base::grepl
[18:41:36.099]                         restarts <- computeRestarts(cond)
[18:41:36.099]                         for (restart in restarts) {
[18:41:36.099]                           name <- restart$name
[18:41:36.099]                           if (is.null(name)) 
[18:41:36.099]                             next
[18:41:36.099]                           if (!grepl(pattern, name)) 
[18:41:36.099]                             next
[18:41:36.099]                           invokeRestart(restart)
[18:41:36.099]                           muffled <- TRUE
[18:41:36.099]                           break
[18:41:36.099]                         }
[18:41:36.099]                       }
[18:41:36.099]                     }
[18:41:36.099]                     invisible(muffled)
[18:41:36.099]                   }
[18:41:36.099]                   muffleCondition(cond)
[18:41:36.099]                 })
[18:41:36.099]             }))
[18:41:36.099]             future::FutureResult(value = ...future.value$value, 
[18:41:36.099]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.099]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.099]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.099]                     ...future.globalenv.names))
[18:41:36.099]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.099]         }, condition = base::local({
[18:41:36.099]             c <- base::c
[18:41:36.099]             inherits <- base::inherits
[18:41:36.099]             invokeRestart <- base::invokeRestart
[18:41:36.099]             length <- base::length
[18:41:36.099]             list <- base::list
[18:41:36.099]             seq.int <- base::seq.int
[18:41:36.099]             signalCondition <- base::signalCondition
[18:41:36.099]             sys.calls <- base::sys.calls
[18:41:36.099]             `[[` <- base::`[[`
[18:41:36.099]             `+` <- base::`+`
[18:41:36.099]             `<<-` <- base::`<<-`
[18:41:36.099]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.099]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.099]                   3L)]
[18:41:36.099]             }
[18:41:36.099]             function(cond) {
[18:41:36.099]                 is_error <- inherits(cond, "error")
[18:41:36.099]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.099]                   NULL)
[18:41:36.099]                 if (is_error) {
[18:41:36.099]                   sessionInformation <- function() {
[18:41:36.099]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.099]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.099]                       search = base::search(), system = base::Sys.info())
[18:41:36.099]                   }
[18:41:36.099]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.099]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.099]                     cond$call), session = sessionInformation(), 
[18:41:36.099]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.099]                   signalCondition(cond)
[18:41:36.099]                 }
[18:41:36.099]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.099]                 "immediateCondition"))) {
[18:41:36.099]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.099]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.099]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.099]                   if (TRUE && !signal) {
[18:41:36.099]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.099]                     {
[18:41:36.099]                       inherits <- base::inherits
[18:41:36.099]                       invokeRestart <- base::invokeRestart
[18:41:36.099]                       is.null <- base::is.null
[18:41:36.099]                       muffled <- FALSE
[18:41:36.099]                       if (inherits(cond, "message")) {
[18:41:36.099]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.099]                         if (muffled) 
[18:41:36.099]                           invokeRestart("muffleMessage")
[18:41:36.099]                       }
[18:41:36.099]                       else if (inherits(cond, "warning")) {
[18:41:36.099]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.099]                         if (muffled) 
[18:41:36.099]                           invokeRestart("muffleWarning")
[18:41:36.099]                       }
[18:41:36.099]                       else if (inherits(cond, "condition")) {
[18:41:36.099]                         if (!is.null(pattern)) {
[18:41:36.099]                           computeRestarts <- base::computeRestarts
[18:41:36.099]                           grepl <- base::grepl
[18:41:36.099]                           restarts <- computeRestarts(cond)
[18:41:36.099]                           for (restart in restarts) {
[18:41:36.099]                             name <- restart$name
[18:41:36.099]                             if (is.null(name)) 
[18:41:36.099]                               next
[18:41:36.099]                             if (!grepl(pattern, name)) 
[18:41:36.099]                               next
[18:41:36.099]                             invokeRestart(restart)
[18:41:36.099]                             muffled <- TRUE
[18:41:36.099]                             break
[18:41:36.099]                           }
[18:41:36.099]                         }
[18:41:36.099]                       }
[18:41:36.099]                       invisible(muffled)
[18:41:36.099]                     }
[18:41:36.099]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.099]                   }
[18:41:36.099]                 }
[18:41:36.099]                 else {
[18:41:36.099]                   if (TRUE) {
[18:41:36.099]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.099]                     {
[18:41:36.099]                       inherits <- base::inherits
[18:41:36.099]                       invokeRestart <- base::invokeRestart
[18:41:36.099]                       is.null <- base::is.null
[18:41:36.099]                       muffled <- FALSE
[18:41:36.099]                       if (inherits(cond, "message")) {
[18:41:36.099]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.099]                         if (muffled) 
[18:41:36.099]                           invokeRestart("muffleMessage")
[18:41:36.099]                       }
[18:41:36.099]                       else if (inherits(cond, "warning")) {
[18:41:36.099]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.099]                         if (muffled) 
[18:41:36.099]                           invokeRestart("muffleWarning")
[18:41:36.099]                       }
[18:41:36.099]                       else if (inherits(cond, "condition")) {
[18:41:36.099]                         if (!is.null(pattern)) {
[18:41:36.099]                           computeRestarts <- base::computeRestarts
[18:41:36.099]                           grepl <- base::grepl
[18:41:36.099]                           restarts <- computeRestarts(cond)
[18:41:36.099]                           for (restart in restarts) {
[18:41:36.099]                             name <- restart$name
[18:41:36.099]                             if (is.null(name)) 
[18:41:36.099]                               next
[18:41:36.099]                             if (!grepl(pattern, name)) 
[18:41:36.099]                               next
[18:41:36.099]                             invokeRestart(restart)
[18:41:36.099]                             muffled <- TRUE
[18:41:36.099]                             break
[18:41:36.099]                           }
[18:41:36.099]                         }
[18:41:36.099]                       }
[18:41:36.099]                       invisible(muffled)
[18:41:36.099]                     }
[18:41:36.099]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.099]                   }
[18:41:36.099]                 }
[18:41:36.099]             }
[18:41:36.099]         }))
[18:41:36.099]     }, error = function(ex) {
[18:41:36.099]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.099]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.099]                 ...future.rng), started = ...future.startTime, 
[18:41:36.099]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.099]             version = "1.8"), class = "FutureResult")
[18:41:36.099]     }, finally = {
[18:41:36.099]         if (!identical(...future.workdir, getwd())) 
[18:41:36.099]             setwd(...future.workdir)
[18:41:36.099]         {
[18:41:36.099]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.099]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.099]             }
[18:41:36.099]             base::options(...future.oldOptions)
[18:41:36.099]             if (.Platform$OS.type == "windows") {
[18:41:36.099]                 old_names <- names(...future.oldEnvVars)
[18:41:36.099]                 envs <- base::Sys.getenv()
[18:41:36.099]                 names <- names(envs)
[18:41:36.099]                 common <- intersect(names, old_names)
[18:41:36.099]                 added <- setdiff(names, old_names)
[18:41:36.099]                 removed <- setdiff(old_names, names)
[18:41:36.099]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.099]                   envs[common]]
[18:41:36.099]                 NAMES <- toupper(changed)
[18:41:36.099]                 args <- list()
[18:41:36.099]                 for (kk in seq_along(NAMES)) {
[18:41:36.099]                   name <- changed[[kk]]
[18:41:36.099]                   NAME <- NAMES[[kk]]
[18:41:36.099]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.099]                     next
[18:41:36.099]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.099]                 }
[18:41:36.099]                 NAMES <- toupper(added)
[18:41:36.099]                 for (kk in seq_along(NAMES)) {
[18:41:36.099]                   name <- added[[kk]]
[18:41:36.099]                   NAME <- NAMES[[kk]]
[18:41:36.099]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.099]                     next
[18:41:36.099]                   args[[name]] <- ""
[18:41:36.099]                 }
[18:41:36.099]                 NAMES <- toupper(removed)
[18:41:36.099]                 for (kk in seq_along(NAMES)) {
[18:41:36.099]                   name <- removed[[kk]]
[18:41:36.099]                   NAME <- NAMES[[kk]]
[18:41:36.099]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.099]                     next
[18:41:36.099]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.099]                 }
[18:41:36.099]                 if (length(args) > 0) 
[18:41:36.099]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.099]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.099]             }
[18:41:36.099]             else {
[18:41:36.099]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.099]             }
[18:41:36.099]             {
[18:41:36.099]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.099]                   0L) {
[18:41:36.099]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.099]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.099]                   base::options(opts)
[18:41:36.099]                 }
[18:41:36.099]                 {
[18:41:36.099]                   {
[18:41:36.099]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.099]                     NULL
[18:41:36.099]                   }
[18:41:36.099]                   options(future.plan = NULL)
[18:41:36.099]                   if (is.na(NA_character_)) 
[18:41:36.099]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.099]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.099]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.099]                     .init = FALSE)
[18:41:36.099]                 }
[18:41:36.099]             }
[18:41:36.099]         }
[18:41:36.099]     })
[18:41:36.099]     if (TRUE) {
[18:41:36.099]         base::sink(type = "output", split = FALSE)
[18:41:36.099]         if (TRUE) {
[18:41:36.099]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.099]         }
[18:41:36.099]         else {
[18:41:36.099]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.099]         }
[18:41:36.099]         base::close(...future.stdout)
[18:41:36.099]         ...future.stdout <- NULL
[18:41:36.099]     }
[18:41:36.099]     ...future.result$conditions <- ...future.conditions
[18:41:36.099]     ...future.result$finished <- base::Sys.time()
[18:41:36.099]     ...future.result
[18:41:36.099] }
[18:41:36.105] Exporting 5 global objects (1.09 KiB) to cluster node #1 ...
[18:41:36.105] Exporting '...future.FUN' (326 bytes) to cluster node #1 ...
[18:41:36.106] Exporting '...future.FUN' (326 bytes) to cluster node #1 ... DONE
[18:41:36.106] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ...
[18:41:36.107] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ... DONE
[18:41:36.107] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ...
[18:41:36.107] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ... DONE
[18:41:36.108] Exporting '...future.seeds_ii' (67 bytes) to cluster node #1 ...
[18:41:36.108] Exporting '...future.seeds_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:36.109] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.109] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.109] Exporting 5 global objects (1.09 KiB) to cluster node #1 ... DONE
[18:41:36.110] MultisessionFuture started
[18:41:36.111] - Launch lazy future ... done
[18:41:36.111] run() for 'MultisessionFuture' ... done
[18:41:36.111] Created future:
[18:41:36.132] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.132] - Validating connection of MultisessionFuture
[18:41:36.133] - received message: FutureResult
[18:41:36.133] - Received FutureResult
[18:41:36.133] - Erased future from FutureRegistry
[18:41:36.133] result() for ClusterFuture ...
[18:41:36.133] - result already collected: FutureResult
[18:41:36.134] result() for ClusterFuture ... done
[18:41:36.134] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.112] MultisessionFuture:
[18:41:36.112] Label: 'future_mapply-1'
[18:41:36.112] Expression:
[18:41:36.112] {
[18:41:36.112]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.112]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.112]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.112]         on.exit(options(oopts), add = TRUE)
[18:41:36.112]     }
[18:41:36.112]     {
[18:41:36.112]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.112]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:36.112]                 inherits = FALSE)
[18:41:36.112]             ...future.FUN(...)
[18:41:36.112]         }
[18:41:36.112]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.112]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.112]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.112]         do.call(mapply, args = args)
[18:41:36.112]     }
[18:41:36.112] }
[18:41:36.112] Lazy evaluation: FALSE
[18:41:36.112] Asynchronous evaluation: TRUE
[18:41:36.112] Local evaluation: TRUE
[18:41:36.112] Environment: R_GlobalEnv
[18:41:36.112] Capture standard output: TRUE
[18:41:36.112] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.112] Globals: 5 objects totaling 696 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 93 bytes, list '...future.seeds_ii' of 67 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.112] Packages: <none>
[18:41:36.112] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:36.112] Resolved: TRUE
[18:41:36.112] Value: <not collected>
[18:41:36.112] Conditions captured: <none>
[18:41:36.112] Early signaling: FALSE
[18:41:36.112] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.112] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.134] Chunk #1 of 2 ... DONE
[18:41:36.135] Chunk #2 of 2 ...
[18:41:36.135]  - Finding globals in '...' for chunk #2 ...
[18:41:36.135] getGlobalsAndPackages() ...
[18:41:36.135] Searching for globals...
[18:41:36.136] 
[18:41:36.136] Searching for globals ... DONE
[18:41:36.136] - globals: [0] <none>
[18:41:36.136] getGlobalsAndPackages() ... DONE
[18:41:36.136]    + additional globals found: [n=0] 
[18:41:36.136]    + additional namespaces needed: [n=0] 
[18:41:36.137]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:36.137]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.137]  - seeds: [1] <seeds>
[18:41:36.137]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.137] getGlobalsAndPackages() ...
[18:41:36.137] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.138] Resolving globals: FALSE
[18:41:36.138] The total size of the 5 globals is 696 bytes (696 bytes)
[18:41:36.139] 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 696 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (93 bytes of class 'list')
[18:41:36.139] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.139] 
[18:41:36.139] getGlobalsAndPackages() ... DONE
[18:41:36.140] run() for 'Future' ...
[18:41:36.140] - state: 'created'
[18:41:36.140] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.156] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.156] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.156]   - Field: 'node'
[18:41:36.156]   - Field: 'label'
[18:41:36.157]   - Field: 'local'
[18:41:36.157]   - Field: 'owner'
[18:41:36.161]   - Field: 'envir'
[18:41:36.161]   - Field: 'workers'
[18:41:36.161]   - Field: 'packages'
[18:41:36.161]   - Field: 'gc'
[18:41:36.161]   - Field: 'conditions'
[18:41:36.162]   - Field: 'persistent'
[18:41:36.162]   - Field: 'expr'
[18:41:36.162]   - Field: 'uuid'
[18:41:36.162]   - Field: 'seed'
[18:41:36.163]   - Field: 'version'
[18:41:36.163]   - Field: 'result'
[18:41:36.163]   - Field: 'asynchronous'
[18:41:36.163]   - Field: 'calls'
[18:41:36.163]   - Field: 'globals'
[18:41:36.163]   - Field: 'stdout'
[18:41:36.164]   - Field: 'earlySignal'
[18:41:36.164]   - Field: 'lazy'
[18:41:36.164]   - Field: 'state'
[18:41:36.164] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.164] - Launch lazy future ...
[18:41:36.165] Packages needed by the future expression (n = 0): <none>
[18:41:36.165] Packages needed by future strategies (n = 0): <none>
[18:41:36.165] {
[18:41:36.165]     {
[18:41:36.165]         {
[18:41:36.165]             ...future.startTime <- base::Sys.time()
[18:41:36.165]             {
[18:41:36.165]                 {
[18:41:36.165]                   {
[18:41:36.165]                     {
[18:41:36.165]                       base::local({
[18:41:36.165]                         has_future <- base::requireNamespace("future", 
[18:41:36.165]                           quietly = TRUE)
[18:41:36.165]                         if (has_future) {
[18:41:36.165]                           ns <- base::getNamespace("future")
[18:41:36.165]                           version <- ns[[".package"]][["version"]]
[18:41:36.165]                           if (is.null(version)) 
[18:41:36.165]                             version <- utils::packageVersion("future")
[18:41:36.165]                         }
[18:41:36.165]                         else {
[18:41:36.165]                           version <- NULL
[18:41:36.165]                         }
[18:41:36.165]                         if (!has_future || version < "1.8.0") {
[18:41:36.165]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.165]                             "", base::R.version$version.string), 
[18:41:36.165]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.165]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.165]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.165]                               "release", "version")], collapse = " "), 
[18:41:36.165]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.165]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.165]                             info)
[18:41:36.165]                           info <- base::paste(info, collapse = "; ")
[18:41:36.165]                           if (!has_future) {
[18:41:36.165]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.165]                               info)
[18:41:36.165]                           }
[18:41:36.165]                           else {
[18:41:36.165]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.165]                               info, version)
[18:41:36.165]                           }
[18:41:36.165]                           base::stop(msg)
[18:41:36.165]                         }
[18:41:36.165]                       })
[18:41:36.165]                     }
[18:41:36.165]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.165]                     base::options(mc.cores = 1L)
[18:41:36.165]                   }
[18:41:36.165]                   ...future.strategy.old <- future::plan("list")
[18:41:36.165]                   options(future.plan = NULL)
[18:41:36.165]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.165]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.165]                 }
[18:41:36.165]                 ...future.workdir <- getwd()
[18:41:36.165]             }
[18:41:36.165]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.165]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.165]         }
[18:41:36.165]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.165]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.165]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.165]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.165]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.165]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.165]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.165]             base::names(...future.oldOptions))
[18:41:36.165]     }
[18:41:36.165]     if (FALSE) {
[18:41:36.165]     }
[18:41:36.165]     else {
[18:41:36.165]         if (TRUE) {
[18:41:36.165]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.165]                 open = "w")
[18:41:36.165]         }
[18:41:36.165]         else {
[18:41:36.165]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.165]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.165]         }
[18:41:36.165]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.165]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.165]             base::sink(type = "output", split = FALSE)
[18:41:36.165]             base::close(...future.stdout)
[18:41:36.165]         }, add = TRUE)
[18:41:36.165]     }
[18:41:36.165]     ...future.frame <- base::sys.nframe()
[18:41:36.165]     ...future.conditions <- base::list()
[18:41:36.165]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.165]     if (FALSE) {
[18:41:36.165]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.165]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.165]     }
[18:41:36.165]     ...future.result <- base::tryCatch({
[18:41:36.165]         base::withCallingHandlers({
[18:41:36.165]             ...future.value <- base::withVisible(base::local({
[18:41:36.165]                 ...future.makeSendCondition <- base::local({
[18:41:36.165]                   sendCondition <- NULL
[18:41:36.165]                   function(frame = 1L) {
[18:41:36.165]                     if (is.function(sendCondition)) 
[18:41:36.165]                       return(sendCondition)
[18:41:36.165]                     ns <- getNamespace("parallel")
[18:41:36.165]                     if (exists("sendData", mode = "function", 
[18:41:36.165]                       envir = ns)) {
[18:41:36.165]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.165]                         envir = ns)
[18:41:36.165]                       envir <- sys.frame(frame)
[18:41:36.165]                       master <- NULL
[18:41:36.165]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.165]                         !identical(envir, emptyenv())) {
[18:41:36.165]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.165]                           inherits = FALSE)) {
[18:41:36.165]                           master <- get("master", mode = "list", 
[18:41:36.165]                             envir = envir, inherits = FALSE)
[18:41:36.165]                           if (inherits(master, c("SOCKnode", 
[18:41:36.165]                             "SOCK0node"))) {
[18:41:36.165]                             sendCondition <<- function(cond) {
[18:41:36.165]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.165]                                 success = TRUE)
[18:41:36.165]                               parallel_sendData(master, data)
[18:41:36.165]                             }
[18:41:36.165]                             return(sendCondition)
[18:41:36.165]                           }
[18:41:36.165]                         }
[18:41:36.165]                         frame <- frame + 1L
[18:41:36.165]                         envir <- sys.frame(frame)
[18:41:36.165]                       }
[18:41:36.165]                     }
[18:41:36.165]                     sendCondition <<- function(cond) NULL
[18:41:36.165]                   }
[18:41:36.165]                 })
[18:41:36.165]                 withCallingHandlers({
[18:41:36.165]                   {
[18:41:36.165]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.165]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.165]                       ...future.globals.maxSize)) {
[18:41:36.165]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.165]                       on.exit(options(oopts), add = TRUE)
[18:41:36.165]                     }
[18:41:36.165]                     {
[18:41:36.165]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.165]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:36.165]                           envir = globalenv(), inherits = FALSE)
[18:41:36.165]                         ...future.FUN(...)
[18:41:36.165]                       }
[18:41:36.165]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.165]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.165]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.165]                         USE.NAMES = FALSE)
[18:41:36.165]                       do.call(mapply, args = args)
[18:41:36.165]                     }
[18:41:36.165]                   }
[18:41:36.165]                 }, immediateCondition = function(cond) {
[18:41:36.165]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.165]                   sendCondition(cond)
[18:41:36.165]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.165]                   {
[18:41:36.165]                     inherits <- base::inherits
[18:41:36.165]                     invokeRestart <- base::invokeRestart
[18:41:36.165]                     is.null <- base::is.null
[18:41:36.165]                     muffled <- FALSE
[18:41:36.165]                     if (inherits(cond, "message")) {
[18:41:36.165]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.165]                       if (muffled) 
[18:41:36.165]                         invokeRestart("muffleMessage")
[18:41:36.165]                     }
[18:41:36.165]                     else if (inherits(cond, "warning")) {
[18:41:36.165]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.165]                       if (muffled) 
[18:41:36.165]                         invokeRestart("muffleWarning")
[18:41:36.165]                     }
[18:41:36.165]                     else if (inherits(cond, "condition")) {
[18:41:36.165]                       if (!is.null(pattern)) {
[18:41:36.165]                         computeRestarts <- base::computeRestarts
[18:41:36.165]                         grepl <- base::grepl
[18:41:36.165]                         restarts <- computeRestarts(cond)
[18:41:36.165]                         for (restart in restarts) {
[18:41:36.165]                           name <- restart$name
[18:41:36.165]                           if (is.null(name)) 
[18:41:36.165]                             next
[18:41:36.165]                           if (!grepl(pattern, name)) 
[18:41:36.165]                             next
[18:41:36.165]                           invokeRestart(restart)
[18:41:36.165]                           muffled <- TRUE
[18:41:36.165]                           break
[18:41:36.165]                         }
[18:41:36.165]                       }
[18:41:36.165]                     }
[18:41:36.165]                     invisible(muffled)
[18:41:36.165]                   }
[18:41:36.165]                   muffleCondition(cond)
[18:41:36.165]                 })
[18:41:36.165]             }))
[18:41:36.165]             future::FutureResult(value = ...future.value$value, 
[18:41:36.165]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.165]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.165]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.165]                     ...future.globalenv.names))
[18:41:36.165]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.165]         }, condition = base::local({
[18:41:36.165]             c <- base::c
[18:41:36.165]             inherits <- base::inherits
[18:41:36.165]             invokeRestart <- base::invokeRestart
[18:41:36.165]             length <- base::length
[18:41:36.165]             list <- base::list
[18:41:36.165]             seq.int <- base::seq.int
[18:41:36.165]             signalCondition <- base::signalCondition
[18:41:36.165]             sys.calls <- base::sys.calls
[18:41:36.165]             `[[` <- base::`[[`
[18:41:36.165]             `+` <- base::`+`
[18:41:36.165]             `<<-` <- base::`<<-`
[18:41:36.165]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.165]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.165]                   3L)]
[18:41:36.165]             }
[18:41:36.165]             function(cond) {
[18:41:36.165]                 is_error <- inherits(cond, "error")
[18:41:36.165]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.165]                   NULL)
[18:41:36.165]                 if (is_error) {
[18:41:36.165]                   sessionInformation <- function() {
[18:41:36.165]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.165]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.165]                       search = base::search(), system = base::Sys.info())
[18:41:36.165]                   }
[18:41:36.165]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.165]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.165]                     cond$call), session = sessionInformation(), 
[18:41:36.165]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.165]                   signalCondition(cond)
[18:41:36.165]                 }
[18:41:36.165]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.165]                 "immediateCondition"))) {
[18:41:36.165]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.165]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.165]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.165]                   if (TRUE && !signal) {
[18:41:36.165]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.165]                     {
[18:41:36.165]                       inherits <- base::inherits
[18:41:36.165]                       invokeRestart <- base::invokeRestart
[18:41:36.165]                       is.null <- base::is.null
[18:41:36.165]                       muffled <- FALSE
[18:41:36.165]                       if (inherits(cond, "message")) {
[18:41:36.165]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.165]                         if (muffled) 
[18:41:36.165]                           invokeRestart("muffleMessage")
[18:41:36.165]                       }
[18:41:36.165]                       else if (inherits(cond, "warning")) {
[18:41:36.165]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.165]                         if (muffled) 
[18:41:36.165]                           invokeRestart("muffleWarning")
[18:41:36.165]                       }
[18:41:36.165]                       else if (inherits(cond, "condition")) {
[18:41:36.165]                         if (!is.null(pattern)) {
[18:41:36.165]                           computeRestarts <- base::computeRestarts
[18:41:36.165]                           grepl <- base::grepl
[18:41:36.165]                           restarts <- computeRestarts(cond)
[18:41:36.165]                           for (restart in restarts) {
[18:41:36.165]                             name <- restart$name
[18:41:36.165]                             if (is.null(name)) 
[18:41:36.165]                               next
[18:41:36.165]                             if (!grepl(pattern, name)) 
[18:41:36.165]                               next
[18:41:36.165]                             invokeRestart(restart)
[18:41:36.165]                             muffled <- TRUE
[18:41:36.165]                             break
[18:41:36.165]                           }
[18:41:36.165]                         }
[18:41:36.165]                       }
[18:41:36.165]                       invisible(muffled)
[18:41:36.165]                     }
[18:41:36.165]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.165]                   }
[18:41:36.165]                 }
[18:41:36.165]                 else {
[18:41:36.165]                   if (TRUE) {
[18:41:36.165]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.165]                     {
[18:41:36.165]                       inherits <- base::inherits
[18:41:36.165]                       invokeRestart <- base::invokeRestart
[18:41:36.165]                       is.null <- base::is.null
[18:41:36.165]                       muffled <- FALSE
[18:41:36.165]                       if (inherits(cond, "message")) {
[18:41:36.165]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.165]                         if (muffled) 
[18:41:36.165]                           invokeRestart("muffleMessage")
[18:41:36.165]                       }
[18:41:36.165]                       else if (inherits(cond, "warning")) {
[18:41:36.165]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.165]                         if (muffled) 
[18:41:36.165]                           invokeRestart("muffleWarning")
[18:41:36.165]                       }
[18:41:36.165]                       else if (inherits(cond, "condition")) {
[18:41:36.165]                         if (!is.null(pattern)) {
[18:41:36.165]                           computeRestarts <- base::computeRestarts
[18:41:36.165]                           grepl <- base::grepl
[18:41:36.165]                           restarts <- computeRestarts(cond)
[18:41:36.165]                           for (restart in restarts) {
[18:41:36.165]                             name <- restart$name
[18:41:36.165]                             if (is.null(name)) 
[18:41:36.165]                               next
[18:41:36.165]                             if (!grepl(pattern, name)) 
[18:41:36.165]                               next
[18:41:36.165]                             invokeRestart(restart)
[18:41:36.165]                             muffled <- TRUE
[18:41:36.165]                             break
[18:41:36.165]                           }
[18:41:36.165]                         }
[18:41:36.165]                       }
[18:41:36.165]                       invisible(muffled)
[18:41:36.165]                     }
[18:41:36.165]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.165]                   }
[18:41:36.165]                 }
[18:41:36.165]             }
[18:41:36.165]         }))
[18:41:36.165]     }, error = function(ex) {
[18:41:36.165]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.165]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.165]                 ...future.rng), started = ...future.startTime, 
[18:41:36.165]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.165]             version = "1.8"), class = "FutureResult")
[18:41:36.165]     }, finally = {
[18:41:36.165]         if (!identical(...future.workdir, getwd())) 
[18:41:36.165]             setwd(...future.workdir)
[18:41:36.165]         {
[18:41:36.165]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.165]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.165]             }
[18:41:36.165]             base::options(...future.oldOptions)
[18:41:36.165]             if (.Platform$OS.type == "windows") {
[18:41:36.165]                 old_names <- names(...future.oldEnvVars)
[18:41:36.165]                 envs <- base::Sys.getenv()
[18:41:36.165]                 names <- names(envs)
[18:41:36.165]                 common <- intersect(names, old_names)
[18:41:36.165]                 added <- setdiff(names, old_names)
[18:41:36.165]                 removed <- setdiff(old_names, names)
[18:41:36.165]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.165]                   envs[common]]
[18:41:36.165]                 NAMES <- toupper(changed)
[18:41:36.165]                 args <- list()
[18:41:36.165]                 for (kk in seq_along(NAMES)) {
[18:41:36.165]                   name <- changed[[kk]]
[18:41:36.165]                   NAME <- NAMES[[kk]]
[18:41:36.165]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.165]                     next
[18:41:36.165]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.165]                 }
[18:41:36.165]                 NAMES <- toupper(added)
[18:41:36.165]                 for (kk in seq_along(NAMES)) {
[18:41:36.165]                   name <- added[[kk]]
[18:41:36.165]                   NAME <- NAMES[[kk]]
[18:41:36.165]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.165]                     next
[18:41:36.165]                   args[[name]] <- ""
[18:41:36.165]                 }
[18:41:36.165]                 NAMES <- toupper(removed)
[18:41:36.165]                 for (kk in seq_along(NAMES)) {
[18:41:36.165]                   name <- removed[[kk]]
[18:41:36.165]                   NAME <- NAMES[[kk]]
[18:41:36.165]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.165]                     next
[18:41:36.165]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.165]                 }
[18:41:36.165]                 if (length(args) > 0) 
[18:41:36.165]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.165]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.165]             }
[18:41:36.165]             else {
[18:41:36.165]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.165]             }
[18:41:36.165]             {
[18:41:36.165]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.165]                   0L) {
[18:41:36.165]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.165]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.165]                   base::options(opts)
[18:41:36.165]                 }
[18:41:36.165]                 {
[18:41:36.165]                   {
[18:41:36.165]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.165]                     NULL
[18:41:36.165]                   }
[18:41:36.165]                   options(future.plan = NULL)
[18:41:36.165]                   if (is.na(NA_character_)) 
[18:41:36.165]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.165]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.165]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.165]                     .init = FALSE)
[18:41:36.165]                 }
[18:41:36.165]             }
[18:41:36.165]         }
[18:41:36.165]     })
[18:41:36.165]     if (TRUE) {
[18:41:36.165]         base::sink(type = "output", split = FALSE)
[18:41:36.165]         if (TRUE) {
[18:41:36.165]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.165]         }
[18:41:36.165]         else {
[18:41:36.165]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.165]         }
[18:41:36.165]         base::close(...future.stdout)
[18:41:36.165]         ...future.stdout <- NULL
[18:41:36.165]     }
[18:41:36.165]     ...future.result$conditions <- ...future.conditions
[18:41:36.165]     ...future.result$finished <- base::Sys.time()
[18:41:36.165]     ...future.result
[18:41:36.165] }
[18:41:36.171] Exporting 5 global objects (1.09 KiB) to cluster node #1 ...
[18:41:36.171] Exporting '...future.FUN' (326 bytes) to cluster node #1 ...
[18:41:36.172] Exporting '...future.FUN' (326 bytes) to cluster node #1 ... DONE
[18:41:36.172] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ...
[18:41:36.172] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ... DONE
[18:41:36.173] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ...
[18:41:36.173] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ... DONE
[18:41:36.173] Exporting '...future.seeds_ii' (67 bytes) to cluster node #1 ...
[18:41:36.174] Exporting '...future.seeds_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:36.174] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.175] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.175] Exporting 5 global objects (1.09 KiB) to cluster node #1 ... DONE
[18:41:36.176] MultisessionFuture started
[18:41:36.176] - Launch lazy future ... done
[18:41:36.176] run() for 'MultisessionFuture' ... done
[18:41:36.176] Created future:
[18:41:36.202] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.202] - Validating connection of MultisessionFuture
[18:41:36.202] - received message: FutureResult
[18:41:36.203] - Received FutureResult
[18:41:36.203] - Erased future from FutureRegistry
[18:41:36.203] result() for ClusterFuture ...
[18:41:36.203] - result already collected: FutureResult
[18:41:36.203] result() for ClusterFuture ... done
[18:41:36.203] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.176] MultisessionFuture:
[18:41:36.176] Label: 'future_mapply-2'
[18:41:36.176] Expression:
[18:41:36.176] {
[18:41:36.176]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.176]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.176]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.176]         on.exit(options(oopts), add = TRUE)
[18:41:36.176]     }
[18:41:36.176]     {
[18:41:36.176]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.176]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:36.176]                 inherits = FALSE)
[18:41:36.176]             ...future.FUN(...)
[18:41:36.176]         }
[18:41:36.176]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.176]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.176]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.176]         do.call(mapply, args = args)
[18:41:36.176]     }
[18:41:36.176] }
[18:41:36.176] Lazy evaluation: FALSE
[18:41:36.176] Asynchronous evaluation: TRUE
[18:41:36.176] Local evaluation: TRUE
[18:41:36.176] Environment: R_GlobalEnv
[18:41:36.176] Capture standard output: TRUE
[18:41:36.176] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.176] Globals: 5 objects totaling 696 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 93 bytes, list '...future.seeds_ii' of 67 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.176] Packages: <none>
[18:41:36.176] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:36.176] Resolved: TRUE
[18:41:36.176] Value: <not collected>
[18:41:36.176] Conditions captured: <none>
[18:41:36.176] Early signaling: FALSE
[18:41:36.176] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.176] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.204] Chunk #2 of 2 ... DONE
[18:41:36.204] Launching 2 futures (chunks) ... DONE
[18:41:36.204] Resolving 2 futures (chunks) ...
[18:41:36.204] resolve() on list ...
[18:41:36.204]  recursive: 0
[18:41:36.205]  length: 2
[18:41:36.205] 
[18:41:36.205] Future #1
[18:41:36.205] result() for ClusterFuture ...
[18:41:36.205] - result already collected: FutureResult
[18:41:36.205] result() for ClusterFuture ... done
[18:41:36.206] result() for ClusterFuture ...
[18:41:36.206] - result already collected: FutureResult
[18:41:36.206] result() for ClusterFuture ... done
[18:41:36.206] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:36.206] - nx: 2
[18:41:36.206] - relay: TRUE
[18:41:36.207] - stdout: TRUE
[18:41:36.207] - signal: TRUE
[18:41:36.207] - resignal: FALSE
[18:41:36.207] - force: TRUE
[18:41:36.207] - relayed: [n=2] FALSE, FALSE
[18:41:36.207] - queued futures: [n=2] FALSE, FALSE
[18:41:36.207]  - until=1
[18:41:36.208]  - relaying element #1
[18:41:36.208] result() for ClusterFuture ...
[18:41:36.208] - result already collected: FutureResult
[18:41:36.208] result() for ClusterFuture ... done
[18:41:36.208] result() for ClusterFuture ...
[18:41:36.208] - result already collected: FutureResult
[18:41:36.209] result() for ClusterFuture ... done
[18:41:36.209] result() for ClusterFuture ...
[18:41:36.209] - result already collected: FutureResult
[18:41:36.209] result() for ClusterFuture ... done
[18:41:36.209] result() for ClusterFuture ...
[18:41:36.209] - result already collected: FutureResult
[18:41:36.209] result() for ClusterFuture ... done
[18:41:36.210] - relayed: [n=2] TRUE, FALSE
[18:41:36.210] - queued futures: [n=2] TRUE, FALSE
[18:41:36.210] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:36.210]  length: 1 (resolved future 1)
[18:41:36.210] Future #2
[18:41:36.211] result() for ClusterFuture ...
[18:41:36.211] - result already collected: FutureResult
[18:41:36.211] result() for ClusterFuture ... done
[18:41:36.211] result() for ClusterFuture ...
[18:41:36.211] - result already collected: FutureResult
[18:41:36.211] result() for ClusterFuture ... done
[18:41:36.211] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:36.212] - nx: 2
[18:41:36.212] - relay: TRUE
[18:41:36.212] - stdout: TRUE
[18:41:36.212] - signal: TRUE
[18:41:36.212] - resignal: FALSE
[18:41:36.212] - force: TRUE
[18:41:36.212] - relayed: [n=2] TRUE, FALSE
[18:41:36.213] - queued futures: [n=2] TRUE, FALSE
[18:41:36.213]  - until=2
[18:41:36.213]  - relaying element #2
[18:41:36.213] result() for ClusterFuture ...
[18:41:36.213] - result already collected: FutureResult
[18:41:36.213] result() for ClusterFuture ... done
[18:41:36.214] result() for ClusterFuture ...
[18:41:36.214] - result already collected: FutureResult
[18:41:36.214] result() for ClusterFuture ... done
[18:41:36.214] result() for ClusterFuture ...
[18:41:36.214] - result already collected: FutureResult
[18:41:36.214] result() for ClusterFuture ... done
[18:41:36.215] result() for ClusterFuture ...
[18:41:36.215] - result already collected: FutureResult
[18:41:36.215] result() for ClusterFuture ... done
[18:41:36.215] - relayed: [n=2] TRUE, TRUE
[18:41:36.215] - queued futures: [n=2] TRUE, TRUE
[18:41:36.215] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:36.215]  length: 0 (resolved future 2)
[18:41:36.216] Relaying remaining futures
[18:41:36.216] signalConditionsASAP(NULL, pos=0) ...
[18:41:36.216] - nx: 2
[18:41:36.216] - relay: TRUE
[18:41:36.216] - stdout: TRUE
[18:41:36.216] - signal: TRUE
[18:41:36.217] - resignal: FALSE
[18:41:36.217] - force: TRUE
[18:41:36.217] - relayed: [n=2] TRUE, TRUE
[18:41:36.217] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:36.217] - relayed: [n=2] TRUE, TRUE
[18:41:36.217] - queued futures: [n=2] TRUE, TRUE
[18:41:36.218] signalConditionsASAP(NULL, pos=0) ... done
[18:41:36.218] resolve() on list ... DONE
[18:41:36.218] result() for ClusterFuture ...
[18:41:36.218] - result already collected: FutureResult
[18:41:36.218] result() for ClusterFuture ... done
[18:41:36.218] result() for ClusterFuture ...
[18:41:36.218] - result already collected: FutureResult
[18:41:36.219] result() for ClusterFuture ... done
[18:41:36.219] result() for ClusterFuture ...
[18:41:36.219] - result already collected: FutureResult
[18:41:36.219] result() for ClusterFuture ... done
[18:41:36.219] result() for ClusterFuture ...
[18:41:36.219] - result already collected: FutureResult
[18:41:36.220] result() for ClusterFuture ... done
[18:41:36.220]  - Number of value chunks collected: 2
[18:41:36.220] Resolving 2 futures (chunks) ... DONE
[18:41:36.220] Reducing values from 2 chunks ...
[18:41:36.220]  - Number of values collected after concatenation: 2
[18:41:36.220]  - Number of values expected: 2
[18:41:36.220] Reducing values from 2 chunks ... DONE
[18:41:36.221] future_mapply() ... DONE
[18:41:36.221] future_mapply() ...
[18:41:36.225] Number of chunks: 2
[18:41:36.225] getGlobalsAndPackagesXApply() ...
[18:41:36.225]  - future.globals: TRUE
[18:41:36.226] getGlobalsAndPackages() ...
[18:41:36.226] Searching for globals...
[18:41:36.227] - globals found: [1] 'FUN'
[18:41:36.227] Searching for globals ... DONE
[18:41:36.227] Resolving globals: FALSE
[18:41:36.228] The total size of the 1 globals is 326 bytes (326 bytes)
[18:41:36.228] The total size of the 1 globals exported for future expression ('FUN(y = 3:4)') is 326 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (326 bytes of class 'function')
[18:41:36.228] - globals: [1] 'FUN'
[18:41:36.229] 
[18:41:36.229] getGlobalsAndPackages() ... DONE
[18:41:36.229]  - globals found/used: [n=1] 'FUN'
[18:41:36.229]  - needed namespaces: [n=0] 
[18:41:36.229] Finding globals ... DONE
[18:41:36.230] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:36.230] List of 2
[18:41:36.230]  $ ...future.FUN:function (x, y)  
[18:41:36.230]  $ MoreArgs     :List of 1
[18:41:36.230]   ..$ y: int [1:2] 3 4
[18:41:36.230]  - attr(*, "where")=List of 2
[18:41:36.230]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:36.230]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:36.230]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:36.230]  - attr(*, "resolved")= logi FALSE
[18:41:36.230]  - attr(*, "total_size")= num NA
[18:41:36.233] Packages to be attached in all futures: [n=0] 
[18:41:36.233] getGlobalsAndPackagesXApply() ... DONE
[18:41:36.234] Number of futures (= number of chunks): 2
[18:41:36.234] Launching 2 futures (chunks) ...
[18:41:36.234] Chunk #1 of 2 ...
[18:41:36.234]  - Finding globals in '...' for chunk #1 ...
[18:41:36.235] getGlobalsAndPackages() ...
[18:41:36.235] Searching for globals...
[18:41:36.235] 
[18:41:36.235] Searching for globals ... DONE
[18:41:36.235] - globals: [0] <none>
[18:41:36.236] getGlobalsAndPackages() ... DONE
[18:41:36.236]    + additional globals found: [n=0] 
[18:41:36.236]    + additional namespaces needed: [n=0] 
[18:41:36.236]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:36.236]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.236]  - seeds: <none>
[18:41:36.236]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.237] getGlobalsAndPackages() ...
[18:41:36.237] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.237] Resolving globals: FALSE
[18:41:36.238] The total size of the 5 globals is 656 bytes (656 bytes)
[18:41:36.238] 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 656 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (93 bytes of class 'list')
[18:41:36.238] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.239] 
[18:41:36.239] getGlobalsAndPackages() ... DONE
[18:41:36.239] run() for 'Future' ...
[18:41:36.239] - state: 'created'
[18:41:36.240] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.255] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.255] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.255]   - Field: 'node'
[18:41:36.255]   - Field: 'label'
[18:41:36.255]   - Field: 'local'
[18:41:36.256]   - Field: 'owner'
[18:41:36.256]   - Field: 'envir'
[18:41:36.256]   - Field: 'workers'
[18:41:36.256]   - Field: 'packages'
[18:41:36.256]   - Field: 'gc'
[18:41:36.256]   - Field: 'conditions'
[18:41:36.257]   - Field: 'persistent'
[18:41:36.257]   - Field: 'expr'
[18:41:36.257]   - Field: 'uuid'
[18:41:36.257]   - Field: 'seed'
[18:41:36.257]   - Field: 'version'
[18:41:36.258]   - Field: 'result'
[18:41:36.258]   - Field: 'asynchronous'
[18:41:36.258]   - Field: 'calls'
[18:41:36.258]   - Field: 'globals'
[18:41:36.258]   - Field: 'stdout'
[18:41:36.258]   - Field: 'earlySignal'
[18:41:36.259]   - Field: 'lazy'
[18:41:36.259]   - Field: 'state'
[18:41:36.259] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.259] - Launch lazy future ...
[18:41:36.259] Packages needed by the future expression (n = 0): <none>
[18:41:36.260] Packages needed by future strategies (n = 0): <none>
[18:41:36.260] {
[18:41:36.260]     {
[18:41:36.260]         {
[18:41:36.260]             ...future.startTime <- base::Sys.time()
[18:41:36.260]             {
[18:41:36.260]                 {
[18:41:36.260]                   {
[18:41:36.260]                     {
[18:41:36.260]                       base::local({
[18:41:36.260]                         has_future <- base::requireNamespace("future", 
[18:41:36.260]                           quietly = TRUE)
[18:41:36.260]                         if (has_future) {
[18:41:36.260]                           ns <- base::getNamespace("future")
[18:41:36.260]                           version <- ns[[".package"]][["version"]]
[18:41:36.260]                           if (is.null(version)) 
[18:41:36.260]                             version <- utils::packageVersion("future")
[18:41:36.260]                         }
[18:41:36.260]                         else {
[18:41:36.260]                           version <- NULL
[18:41:36.260]                         }
[18:41:36.260]                         if (!has_future || version < "1.8.0") {
[18:41:36.260]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.260]                             "", base::R.version$version.string), 
[18:41:36.260]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.260]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.260]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.260]                               "release", "version")], collapse = " "), 
[18:41:36.260]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.260]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.260]                             info)
[18:41:36.260]                           info <- base::paste(info, collapse = "; ")
[18:41:36.260]                           if (!has_future) {
[18:41:36.260]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.260]                               info)
[18:41:36.260]                           }
[18:41:36.260]                           else {
[18:41:36.260]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.260]                               info, version)
[18:41:36.260]                           }
[18:41:36.260]                           base::stop(msg)
[18:41:36.260]                         }
[18:41:36.260]                       })
[18:41:36.260]                     }
[18:41:36.260]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.260]                     base::options(mc.cores = 1L)
[18:41:36.260]                   }
[18:41:36.260]                   ...future.strategy.old <- future::plan("list")
[18:41:36.260]                   options(future.plan = NULL)
[18:41:36.260]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.260]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.260]                 }
[18:41:36.260]                 ...future.workdir <- getwd()
[18:41:36.260]             }
[18:41:36.260]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.260]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.260]         }
[18:41:36.260]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.260]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.260]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.260]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.260]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.260]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.260]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.260]             base::names(...future.oldOptions))
[18:41:36.260]     }
[18:41:36.260]     if (FALSE) {
[18:41:36.260]     }
[18:41:36.260]     else {
[18:41:36.260]         if (TRUE) {
[18:41:36.260]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.260]                 open = "w")
[18:41:36.260]         }
[18:41:36.260]         else {
[18:41:36.260]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.260]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.260]         }
[18:41:36.260]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.260]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.260]             base::sink(type = "output", split = FALSE)
[18:41:36.260]             base::close(...future.stdout)
[18:41:36.260]         }, add = TRUE)
[18:41:36.260]     }
[18:41:36.260]     ...future.frame <- base::sys.nframe()
[18:41:36.260]     ...future.conditions <- base::list()
[18:41:36.260]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.260]     if (FALSE) {
[18:41:36.260]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.260]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.260]     }
[18:41:36.260]     ...future.result <- base::tryCatch({
[18:41:36.260]         base::withCallingHandlers({
[18:41:36.260]             ...future.value <- base::withVisible(base::local({
[18:41:36.260]                 ...future.makeSendCondition <- base::local({
[18:41:36.260]                   sendCondition <- NULL
[18:41:36.260]                   function(frame = 1L) {
[18:41:36.260]                     if (is.function(sendCondition)) 
[18:41:36.260]                       return(sendCondition)
[18:41:36.260]                     ns <- getNamespace("parallel")
[18:41:36.260]                     if (exists("sendData", mode = "function", 
[18:41:36.260]                       envir = ns)) {
[18:41:36.260]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.260]                         envir = ns)
[18:41:36.260]                       envir <- sys.frame(frame)
[18:41:36.260]                       master <- NULL
[18:41:36.260]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.260]                         !identical(envir, emptyenv())) {
[18:41:36.260]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.260]                           inherits = FALSE)) {
[18:41:36.260]                           master <- get("master", mode = "list", 
[18:41:36.260]                             envir = envir, inherits = FALSE)
[18:41:36.260]                           if (inherits(master, c("SOCKnode", 
[18:41:36.260]                             "SOCK0node"))) {
[18:41:36.260]                             sendCondition <<- function(cond) {
[18:41:36.260]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.260]                                 success = TRUE)
[18:41:36.260]                               parallel_sendData(master, data)
[18:41:36.260]                             }
[18:41:36.260]                             return(sendCondition)
[18:41:36.260]                           }
[18:41:36.260]                         }
[18:41:36.260]                         frame <- frame + 1L
[18:41:36.260]                         envir <- sys.frame(frame)
[18:41:36.260]                       }
[18:41:36.260]                     }
[18:41:36.260]                     sendCondition <<- function(cond) NULL
[18:41:36.260]                   }
[18:41:36.260]                 })
[18:41:36.260]                 withCallingHandlers({
[18:41:36.260]                   {
[18:41:36.260]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.260]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.260]                       ...future.globals.maxSize)) {
[18:41:36.260]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.260]                       on.exit(options(oopts), add = TRUE)
[18:41:36.260]                     }
[18:41:36.260]                     {
[18:41:36.260]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.260]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.260]                         USE.NAMES = FALSE)
[18:41:36.260]                       do.call(mapply, args = args)
[18:41:36.260]                     }
[18:41:36.260]                   }
[18:41:36.260]                 }, immediateCondition = function(cond) {
[18:41:36.260]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.260]                   sendCondition(cond)
[18:41:36.260]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.260]                   {
[18:41:36.260]                     inherits <- base::inherits
[18:41:36.260]                     invokeRestart <- base::invokeRestart
[18:41:36.260]                     is.null <- base::is.null
[18:41:36.260]                     muffled <- FALSE
[18:41:36.260]                     if (inherits(cond, "message")) {
[18:41:36.260]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.260]                       if (muffled) 
[18:41:36.260]                         invokeRestart("muffleMessage")
[18:41:36.260]                     }
[18:41:36.260]                     else if (inherits(cond, "warning")) {
[18:41:36.260]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.260]                       if (muffled) 
[18:41:36.260]                         invokeRestart("muffleWarning")
[18:41:36.260]                     }
[18:41:36.260]                     else if (inherits(cond, "condition")) {
[18:41:36.260]                       if (!is.null(pattern)) {
[18:41:36.260]                         computeRestarts <- base::computeRestarts
[18:41:36.260]                         grepl <- base::grepl
[18:41:36.260]                         restarts <- computeRestarts(cond)
[18:41:36.260]                         for (restart in restarts) {
[18:41:36.260]                           name <- restart$name
[18:41:36.260]                           if (is.null(name)) 
[18:41:36.260]                             next
[18:41:36.260]                           if (!grepl(pattern, name)) 
[18:41:36.260]                             next
[18:41:36.260]                           invokeRestart(restart)
[18:41:36.260]                           muffled <- TRUE
[18:41:36.260]                           break
[18:41:36.260]                         }
[18:41:36.260]                       }
[18:41:36.260]                     }
[18:41:36.260]                     invisible(muffled)
[18:41:36.260]                   }
[18:41:36.260]                   muffleCondition(cond)
[18:41:36.260]                 })
[18:41:36.260]             }))
[18:41:36.260]             future::FutureResult(value = ...future.value$value, 
[18:41:36.260]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.260]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.260]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.260]                     ...future.globalenv.names))
[18:41:36.260]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.260]         }, condition = base::local({
[18:41:36.260]             c <- base::c
[18:41:36.260]             inherits <- base::inherits
[18:41:36.260]             invokeRestart <- base::invokeRestart
[18:41:36.260]             length <- base::length
[18:41:36.260]             list <- base::list
[18:41:36.260]             seq.int <- base::seq.int
[18:41:36.260]             signalCondition <- base::signalCondition
[18:41:36.260]             sys.calls <- base::sys.calls
[18:41:36.260]             `[[` <- base::`[[`
[18:41:36.260]             `+` <- base::`+`
[18:41:36.260]             `<<-` <- base::`<<-`
[18:41:36.260]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.260]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.260]                   3L)]
[18:41:36.260]             }
[18:41:36.260]             function(cond) {
[18:41:36.260]                 is_error <- inherits(cond, "error")
[18:41:36.260]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.260]                   NULL)
[18:41:36.260]                 if (is_error) {
[18:41:36.260]                   sessionInformation <- function() {
[18:41:36.260]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.260]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.260]                       search = base::search(), system = base::Sys.info())
[18:41:36.260]                   }
[18:41:36.260]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.260]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.260]                     cond$call), session = sessionInformation(), 
[18:41:36.260]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.260]                   signalCondition(cond)
[18:41:36.260]                 }
[18:41:36.260]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.260]                 "immediateCondition"))) {
[18:41:36.260]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.260]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.260]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.260]                   if (TRUE && !signal) {
[18:41:36.260]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.260]                     {
[18:41:36.260]                       inherits <- base::inherits
[18:41:36.260]                       invokeRestart <- base::invokeRestart
[18:41:36.260]                       is.null <- base::is.null
[18:41:36.260]                       muffled <- FALSE
[18:41:36.260]                       if (inherits(cond, "message")) {
[18:41:36.260]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.260]                         if (muffled) 
[18:41:36.260]                           invokeRestart("muffleMessage")
[18:41:36.260]                       }
[18:41:36.260]                       else if (inherits(cond, "warning")) {
[18:41:36.260]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.260]                         if (muffled) 
[18:41:36.260]                           invokeRestart("muffleWarning")
[18:41:36.260]                       }
[18:41:36.260]                       else if (inherits(cond, "condition")) {
[18:41:36.260]                         if (!is.null(pattern)) {
[18:41:36.260]                           computeRestarts <- base::computeRestarts
[18:41:36.260]                           grepl <- base::grepl
[18:41:36.260]                           restarts <- computeRestarts(cond)
[18:41:36.260]                           for (restart in restarts) {
[18:41:36.260]                             name <- restart$name
[18:41:36.260]                             if (is.null(name)) 
[18:41:36.260]                               next
[18:41:36.260]                             if (!grepl(pattern, name)) 
[18:41:36.260]                               next
[18:41:36.260]                             invokeRestart(restart)
[18:41:36.260]                             muffled <- TRUE
[18:41:36.260]                             break
[18:41:36.260]                           }
[18:41:36.260]                         }
[18:41:36.260]                       }
[18:41:36.260]                       invisible(muffled)
[18:41:36.260]                     }
[18:41:36.260]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.260]                   }
[18:41:36.260]                 }
[18:41:36.260]                 else {
[18:41:36.260]                   if (TRUE) {
[18:41:36.260]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.260]                     {
[18:41:36.260]                       inherits <- base::inherits
[18:41:36.260]                       invokeRestart <- base::invokeRestart
[18:41:36.260]                       is.null <- base::is.null
[18:41:36.260]                       muffled <- FALSE
[18:41:36.260]                       if (inherits(cond, "message")) {
[18:41:36.260]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.260]                         if (muffled) 
[18:41:36.260]                           invokeRestart("muffleMessage")
[18:41:36.260]                       }
[18:41:36.260]                       else if (inherits(cond, "warning")) {
[18:41:36.260]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.260]                         if (muffled) 
[18:41:36.260]                           invokeRestart("muffleWarning")
[18:41:36.260]                       }
[18:41:36.260]                       else if (inherits(cond, "condition")) {
[18:41:36.260]                         if (!is.null(pattern)) {
[18:41:36.260]                           computeRestarts <- base::computeRestarts
[18:41:36.260]                           grepl <- base::grepl
[18:41:36.260]                           restarts <- computeRestarts(cond)
[18:41:36.260]                           for (restart in restarts) {
[18:41:36.260]                             name <- restart$name
[18:41:36.260]                             if (is.null(name)) 
[18:41:36.260]                               next
[18:41:36.260]                             if (!grepl(pattern, name)) 
[18:41:36.260]                               next
[18:41:36.260]                             invokeRestart(restart)
[18:41:36.260]                             muffled <- TRUE
[18:41:36.260]                             break
[18:41:36.260]                           }
[18:41:36.260]                         }
[18:41:36.260]                       }
[18:41:36.260]                       invisible(muffled)
[18:41:36.260]                     }
[18:41:36.260]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.260]                   }
[18:41:36.260]                 }
[18:41:36.260]             }
[18:41:36.260]         }))
[18:41:36.260]     }, error = function(ex) {
[18:41:36.260]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.260]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.260]                 ...future.rng), started = ...future.startTime, 
[18:41:36.260]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.260]             version = "1.8"), class = "FutureResult")
[18:41:36.260]     }, finally = {
[18:41:36.260]         if (!identical(...future.workdir, getwd())) 
[18:41:36.260]             setwd(...future.workdir)
[18:41:36.260]         {
[18:41:36.260]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.260]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.260]             }
[18:41:36.260]             base::options(...future.oldOptions)
[18:41:36.260]             if (.Platform$OS.type == "windows") {
[18:41:36.260]                 old_names <- names(...future.oldEnvVars)
[18:41:36.260]                 envs <- base::Sys.getenv()
[18:41:36.260]                 names <- names(envs)
[18:41:36.260]                 common <- intersect(names, old_names)
[18:41:36.260]                 added <- setdiff(names, old_names)
[18:41:36.260]                 removed <- setdiff(old_names, names)
[18:41:36.260]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.260]                   envs[common]]
[18:41:36.260]                 NAMES <- toupper(changed)
[18:41:36.260]                 args <- list()
[18:41:36.260]                 for (kk in seq_along(NAMES)) {
[18:41:36.260]                   name <- changed[[kk]]
[18:41:36.260]                   NAME <- NAMES[[kk]]
[18:41:36.260]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.260]                     next
[18:41:36.260]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.260]                 }
[18:41:36.260]                 NAMES <- toupper(added)
[18:41:36.260]                 for (kk in seq_along(NAMES)) {
[18:41:36.260]                   name <- added[[kk]]
[18:41:36.260]                   NAME <- NAMES[[kk]]
[18:41:36.260]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.260]                     next
[18:41:36.260]                   args[[name]] <- ""
[18:41:36.260]                 }
[18:41:36.260]                 NAMES <- toupper(removed)
[18:41:36.260]                 for (kk in seq_along(NAMES)) {
[18:41:36.260]                   name <- removed[[kk]]
[18:41:36.260]                   NAME <- NAMES[[kk]]
[18:41:36.260]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.260]                     next
[18:41:36.260]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.260]                 }
[18:41:36.260]                 if (length(args) > 0) 
[18:41:36.260]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.260]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.260]             }
[18:41:36.260]             else {
[18:41:36.260]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.260]             }
[18:41:36.260]             {
[18:41:36.260]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.260]                   0L) {
[18:41:36.260]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.260]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.260]                   base::options(opts)
[18:41:36.260]                 }
[18:41:36.260]                 {
[18:41:36.260]                   {
[18:41:36.260]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.260]                     NULL
[18:41:36.260]                   }
[18:41:36.260]                   options(future.plan = NULL)
[18:41:36.260]                   if (is.na(NA_character_)) 
[18:41:36.260]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.260]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.260]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.260]                     .init = FALSE)
[18:41:36.260]                 }
[18:41:36.260]             }
[18:41:36.260]         }
[18:41:36.260]     })
[18:41:36.260]     if (TRUE) {
[18:41:36.260]         base::sink(type = "output", split = FALSE)
[18:41:36.260]         if (TRUE) {
[18:41:36.260]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.260]         }
[18:41:36.260]         else {
[18:41:36.260]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.260]         }
[18:41:36.260]         base::close(...future.stdout)
[18:41:36.260]         ...future.stdout <- NULL
[18:41:36.260]     }
[18:41:36.260]     ...future.result$conditions <- ...future.conditions
[18:41:36.260]     ...future.result$finished <- base::Sys.time()
[18:41:36.260]     ...future.result
[18:41:36.260] }
[18:41:36.266] Exporting 5 global objects (1.05 KiB) to cluster node #1 ...
[18:41:36.266] Exporting '...future.FUN' (326 bytes) to cluster node #1 ...
[18:41:36.267] Exporting '...future.FUN' (326 bytes) to cluster node #1 ... DONE
[18:41:36.267] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ...
[18:41:36.268] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ... DONE
[18:41:36.268] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ...
[18:41:36.268] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ... DONE
[18:41:36.269] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.269] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.270] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.270] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.270] Exporting 5 global objects (1.05 KiB) to cluster node #1 ... DONE
[18:41:36.271] MultisessionFuture started
[18:41:36.272] - Launch lazy future ... done
[18:41:36.272] run() for 'MultisessionFuture' ... done
[18:41:36.272] Created future:
[18:41:36.299] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.300] - Validating connection of MultisessionFuture
[18:41:36.300] - received message: FutureResult
[18:41:36.301] - Received FutureResult
[18:41:36.301] - Erased future from FutureRegistry
[18:41:36.301] result() for ClusterFuture ...
[18:41:36.302] - result already collected: FutureResult
[18:41:36.302] result() for ClusterFuture ... done
[18:41:36.302] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.273] MultisessionFuture:
[18:41:36.273] Label: 'future_.mapply-1'
[18:41:36.273] Expression:
[18:41:36.273] {
[18:41:36.273]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.273]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.273]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.273]         on.exit(options(oopts), add = TRUE)
[18:41:36.273]     }
[18:41:36.273]     {
[18:41:36.273]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.273]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.273]         do.call(mapply, args = args)
[18:41:36.273]     }
[18:41:36.273] }
[18:41:36.273] Lazy evaluation: FALSE
[18:41:36.273] Asynchronous evaluation: TRUE
[18:41:36.273] Local evaluation: TRUE
[18:41:36.273] Environment: R_GlobalEnv
[18:41:36.273] Capture standard output: TRUE
[18:41:36.273] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.273] Globals: 5 objects totaling 656 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 93 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.273] Packages: <none>
[18:41:36.273] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.273] Resolved: TRUE
[18:41:36.273] Value: <not collected>
[18:41:36.273] Conditions captured: <none>
[18:41:36.273] Early signaling: FALSE
[18:41:36.273] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.273] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.303] Chunk #1 of 2 ... DONE
[18:41:36.303] Chunk #2 of 2 ...
[18:41:36.303]  - Finding globals in '...' for chunk #2 ...
[18:41:36.304] getGlobalsAndPackages() ...
[18:41:36.304] Searching for globals...
[18:41:36.305] 
[18:41:36.305] Searching for globals ... DONE
[18:41:36.305] - globals: [0] <none>
[18:41:36.305] getGlobalsAndPackages() ... DONE
[18:41:36.306]    + additional globals found: [n=0] 
[18:41:36.306]    + additional namespaces needed: [n=0] 
[18:41:36.306]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:36.306]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.307]  - seeds: <none>
[18:41:36.307]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.307] getGlobalsAndPackages() ...
[18:41:36.308] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.308] Resolving globals: FALSE
[18:41:36.309] The total size of the 5 globals is 656 bytes (656 bytes)
[18:41:36.310] 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 656 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (326 bytes of class 'function'), 'MoreArgs' (183 bytes of class 'list') and '...future.elements_ii' (93 bytes of class 'list')
[18:41:36.310] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.310] 
[18:41:36.311] getGlobalsAndPackages() ... DONE
[18:41:36.311] run() for 'Future' ...
[18:41:36.312] - state: 'created'
[18:41:36.312] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.332] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.332] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.332]   - Field: 'node'
[18:41:36.333]   - Field: 'label'
[18:41:36.333]   - Field: 'local'
[18:41:36.333]   - Field: 'owner'
[18:41:36.333]   - Field: 'envir'
[18:41:36.334]   - Field: 'workers'
[18:41:36.334]   - Field: 'packages'
[18:41:36.334]   - Field: 'gc'
[18:41:36.335]   - Field: 'conditions'
[18:41:36.335]   - Field: 'persistent'
[18:41:36.335]   - Field: 'expr'
[18:41:36.336]   - Field: 'uuid'
[18:41:36.336]   - Field: 'seed'
[18:41:36.336]   - Field: 'version'
[18:41:36.336]   - Field: 'result'
[18:41:36.337]   - Field: 'asynchronous'
[18:41:36.337]   - Field: 'calls'
[18:41:36.337]   - Field: 'globals'
[18:41:36.338]   - Field: 'stdout'
[18:41:36.338]   - Field: 'earlySignal'
[18:41:36.338]   - Field: 'lazy'
[18:41:36.338]   - Field: 'state'
[18:41:36.339] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.339] - Launch lazy future ...
[18:41:36.340] Packages needed by the future expression (n = 0): <none>
[18:41:36.340] Packages needed by future strategies (n = 0): <none>
[18:41:36.341] {
[18:41:36.341]     {
[18:41:36.341]         {
[18:41:36.341]             ...future.startTime <- base::Sys.time()
[18:41:36.341]             {
[18:41:36.341]                 {
[18:41:36.341]                   {
[18:41:36.341]                     {
[18:41:36.341]                       base::local({
[18:41:36.341]                         has_future <- base::requireNamespace("future", 
[18:41:36.341]                           quietly = TRUE)
[18:41:36.341]                         if (has_future) {
[18:41:36.341]                           ns <- base::getNamespace("future")
[18:41:36.341]                           version <- ns[[".package"]][["version"]]
[18:41:36.341]                           if (is.null(version)) 
[18:41:36.341]                             version <- utils::packageVersion("future")
[18:41:36.341]                         }
[18:41:36.341]                         else {
[18:41:36.341]                           version <- NULL
[18:41:36.341]                         }
[18:41:36.341]                         if (!has_future || version < "1.8.0") {
[18:41:36.341]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.341]                             "", base::R.version$version.string), 
[18:41:36.341]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.341]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.341]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.341]                               "release", "version")], collapse = " "), 
[18:41:36.341]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.341]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.341]                             info)
[18:41:36.341]                           info <- base::paste(info, collapse = "; ")
[18:41:36.341]                           if (!has_future) {
[18:41:36.341]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.341]                               info)
[18:41:36.341]                           }
[18:41:36.341]                           else {
[18:41:36.341]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.341]                               info, version)
[18:41:36.341]                           }
[18:41:36.341]                           base::stop(msg)
[18:41:36.341]                         }
[18:41:36.341]                       })
[18:41:36.341]                     }
[18:41:36.341]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.341]                     base::options(mc.cores = 1L)
[18:41:36.341]                   }
[18:41:36.341]                   ...future.strategy.old <- future::plan("list")
[18:41:36.341]                   options(future.plan = NULL)
[18:41:36.341]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.341]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.341]                 }
[18:41:36.341]                 ...future.workdir <- getwd()
[18:41:36.341]             }
[18:41:36.341]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.341]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.341]         }
[18:41:36.341]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.341]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.341]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.341]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.341]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.341]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.341]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.341]             base::names(...future.oldOptions))
[18:41:36.341]     }
[18:41:36.341]     if (FALSE) {
[18:41:36.341]     }
[18:41:36.341]     else {
[18:41:36.341]         if (TRUE) {
[18:41:36.341]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.341]                 open = "w")
[18:41:36.341]         }
[18:41:36.341]         else {
[18:41:36.341]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.341]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.341]         }
[18:41:36.341]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.341]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.341]             base::sink(type = "output", split = FALSE)
[18:41:36.341]             base::close(...future.stdout)
[18:41:36.341]         }, add = TRUE)
[18:41:36.341]     }
[18:41:36.341]     ...future.frame <- base::sys.nframe()
[18:41:36.341]     ...future.conditions <- base::list()
[18:41:36.341]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.341]     if (FALSE) {
[18:41:36.341]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.341]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.341]     }
[18:41:36.341]     ...future.result <- base::tryCatch({
[18:41:36.341]         base::withCallingHandlers({
[18:41:36.341]             ...future.value <- base::withVisible(base::local({
[18:41:36.341]                 ...future.makeSendCondition <- base::local({
[18:41:36.341]                   sendCondition <- NULL
[18:41:36.341]                   function(frame = 1L) {
[18:41:36.341]                     if (is.function(sendCondition)) 
[18:41:36.341]                       return(sendCondition)
[18:41:36.341]                     ns <- getNamespace("parallel")
[18:41:36.341]                     if (exists("sendData", mode = "function", 
[18:41:36.341]                       envir = ns)) {
[18:41:36.341]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.341]                         envir = ns)
[18:41:36.341]                       envir <- sys.frame(frame)
[18:41:36.341]                       master <- NULL
[18:41:36.341]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.341]                         !identical(envir, emptyenv())) {
[18:41:36.341]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.341]                           inherits = FALSE)) {
[18:41:36.341]                           master <- get("master", mode = "list", 
[18:41:36.341]                             envir = envir, inherits = FALSE)
[18:41:36.341]                           if (inherits(master, c("SOCKnode", 
[18:41:36.341]                             "SOCK0node"))) {
[18:41:36.341]                             sendCondition <<- function(cond) {
[18:41:36.341]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.341]                                 success = TRUE)
[18:41:36.341]                               parallel_sendData(master, data)
[18:41:36.341]                             }
[18:41:36.341]                             return(sendCondition)
[18:41:36.341]                           }
[18:41:36.341]                         }
[18:41:36.341]                         frame <- frame + 1L
[18:41:36.341]                         envir <- sys.frame(frame)
[18:41:36.341]                       }
[18:41:36.341]                     }
[18:41:36.341]                     sendCondition <<- function(cond) NULL
[18:41:36.341]                   }
[18:41:36.341]                 })
[18:41:36.341]                 withCallingHandlers({
[18:41:36.341]                   {
[18:41:36.341]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.341]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.341]                       ...future.globals.maxSize)) {
[18:41:36.341]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.341]                       on.exit(options(oopts), add = TRUE)
[18:41:36.341]                     }
[18:41:36.341]                     {
[18:41:36.341]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.341]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.341]                         USE.NAMES = FALSE)
[18:41:36.341]                       do.call(mapply, args = args)
[18:41:36.341]                     }
[18:41:36.341]                   }
[18:41:36.341]                 }, immediateCondition = function(cond) {
[18:41:36.341]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.341]                   sendCondition(cond)
[18:41:36.341]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.341]                   {
[18:41:36.341]                     inherits <- base::inherits
[18:41:36.341]                     invokeRestart <- base::invokeRestart
[18:41:36.341]                     is.null <- base::is.null
[18:41:36.341]                     muffled <- FALSE
[18:41:36.341]                     if (inherits(cond, "message")) {
[18:41:36.341]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.341]                       if (muffled) 
[18:41:36.341]                         invokeRestart("muffleMessage")
[18:41:36.341]                     }
[18:41:36.341]                     else if (inherits(cond, "warning")) {
[18:41:36.341]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.341]                       if (muffled) 
[18:41:36.341]                         invokeRestart("muffleWarning")
[18:41:36.341]                     }
[18:41:36.341]                     else if (inherits(cond, "condition")) {
[18:41:36.341]                       if (!is.null(pattern)) {
[18:41:36.341]                         computeRestarts <- base::computeRestarts
[18:41:36.341]                         grepl <- base::grepl
[18:41:36.341]                         restarts <- computeRestarts(cond)
[18:41:36.341]                         for (restart in restarts) {
[18:41:36.341]                           name <- restart$name
[18:41:36.341]                           if (is.null(name)) 
[18:41:36.341]                             next
[18:41:36.341]                           if (!grepl(pattern, name)) 
[18:41:36.341]                             next
[18:41:36.341]                           invokeRestart(restart)
[18:41:36.341]                           muffled <- TRUE
[18:41:36.341]                           break
[18:41:36.341]                         }
[18:41:36.341]                       }
[18:41:36.341]                     }
[18:41:36.341]                     invisible(muffled)
[18:41:36.341]                   }
[18:41:36.341]                   muffleCondition(cond)
[18:41:36.341]                 })
[18:41:36.341]             }))
[18:41:36.341]             future::FutureResult(value = ...future.value$value, 
[18:41:36.341]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.341]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.341]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.341]                     ...future.globalenv.names))
[18:41:36.341]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.341]         }, condition = base::local({
[18:41:36.341]             c <- base::c
[18:41:36.341]             inherits <- base::inherits
[18:41:36.341]             invokeRestart <- base::invokeRestart
[18:41:36.341]             length <- base::length
[18:41:36.341]             list <- base::list
[18:41:36.341]             seq.int <- base::seq.int
[18:41:36.341]             signalCondition <- base::signalCondition
[18:41:36.341]             sys.calls <- base::sys.calls
[18:41:36.341]             `[[` <- base::`[[`
[18:41:36.341]             `+` <- base::`+`
[18:41:36.341]             `<<-` <- base::`<<-`
[18:41:36.341]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.341]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.341]                   3L)]
[18:41:36.341]             }
[18:41:36.341]             function(cond) {
[18:41:36.341]                 is_error <- inherits(cond, "error")
[18:41:36.341]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.341]                   NULL)
[18:41:36.341]                 if (is_error) {
[18:41:36.341]                   sessionInformation <- function() {
[18:41:36.341]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.341]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.341]                       search = base::search(), system = base::Sys.info())
[18:41:36.341]                   }
[18:41:36.341]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.341]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.341]                     cond$call), session = sessionInformation(), 
[18:41:36.341]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.341]                   signalCondition(cond)
[18:41:36.341]                 }
[18:41:36.341]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.341]                 "immediateCondition"))) {
[18:41:36.341]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.341]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.341]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.341]                   if (TRUE && !signal) {
[18:41:36.341]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.341]                     {
[18:41:36.341]                       inherits <- base::inherits
[18:41:36.341]                       invokeRestart <- base::invokeRestart
[18:41:36.341]                       is.null <- base::is.null
[18:41:36.341]                       muffled <- FALSE
[18:41:36.341]                       if (inherits(cond, "message")) {
[18:41:36.341]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.341]                         if (muffled) 
[18:41:36.341]                           invokeRestart("muffleMessage")
[18:41:36.341]                       }
[18:41:36.341]                       else if (inherits(cond, "warning")) {
[18:41:36.341]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.341]                         if (muffled) 
[18:41:36.341]                           invokeRestart("muffleWarning")
[18:41:36.341]                       }
[18:41:36.341]                       else if (inherits(cond, "condition")) {
[18:41:36.341]                         if (!is.null(pattern)) {
[18:41:36.341]                           computeRestarts <- base::computeRestarts
[18:41:36.341]                           grepl <- base::grepl
[18:41:36.341]                           restarts <- computeRestarts(cond)
[18:41:36.341]                           for (restart in restarts) {
[18:41:36.341]                             name <- restart$name
[18:41:36.341]                             if (is.null(name)) 
[18:41:36.341]                               next
[18:41:36.341]                             if (!grepl(pattern, name)) 
[18:41:36.341]                               next
[18:41:36.341]                             invokeRestart(restart)
[18:41:36.341]                             muffled <- TRUE
[18:41:36.341]                             break
[18:41:36.341]                           }
[18:41:36.341]                         }
[18:41:36.341]                       }
[18:41:36.341]                       invisible(muffled)
[18:41:36.341]                     }
[18:41:36.341]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.341]                   }
[18:41:36.341]                 }
[18:41:36.341]                 else {
[18:41:36.341]                   if (TRUE) {
[18:41:36.341]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.341]                     {
[18:41:36.341]                       inherits <- base::inherits
[18:41:36.341]                       invokeRestart <- base::invokeRestart
[18:41:36.341]                       is.null <- base::is.null
[18:41:36.341]                       muffled <- FALSE
[18:41:36.341]                       if (inherits(cond, "message")) {
[18:41:36.341]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.341]                         if (muffled) 
[18:41:36.341]                           invokeRestart("muffleMessage")
[18:41:36.341]                       }
[18:41:36.341]                       else if (inherits(cond, "warning")) {
[18:41:36.341]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.341]                         if (muffled) 
[18:41:36.341]                           invokeRestart("muffleWarning")
[18:41:36.341]                       }
[18:41:36.341]                       else if (inherits(cond, "condition")) {
[18:41:36.341]                         if (!is.null(pattern)) {
[18:41:36.341]                           computeRestarts <- base::computeRestarts
[18:41:36.341]                           grepl <- base::grepl
[18:41:36.341]                           restarts <- computeRestarts(cond)
[18:41:36.341]                           for (restart in restarts) {
[18:41:36.341]                             name <- restart$name
[18:41:36.341]                             if (is.null(name)) 
[18:41:36.341]                               next
[18:41:36.341]                             if (!grepl(pattern, name)) 
[18:41:36.341]                               next
[18:41:36.341]                             invokeRestart(restart)
[18:41:36.341]                             muffled <- TRUE
[18:41:36.341]                             break
[18:41:36.341]                           }
[18:41:36.341]                         }
[18:41:36.341]                       }
[18:41:36.341]                       invisible(muffled)
[18:41:36.341]                     }
[18:41:36.341]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.341]                   }
[18:41:36.341]                 }
[18:41:36.341]             }
[18:41:36.341]         }))
[18:41:36.341]     }, error = function(ex) {
[18:41:36.341]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.341]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.341]                 ...future.rng), started = ...future.startTime, 
[18:41:36.341]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.341]             version = "1.8"), class = "FutureResult")
[18:41:36.341]     }, finally = {
[18:41:36.341]         if (!identical(...future.workdir, getwd())) 
[18:41:36.341]             setwd(...future.workdir)
[18:41:36.341]         {
[18:41:36.341]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.341]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.341]             }
[18:41:36.341]             base::options(...future.oldOptions)
[18:41:36.341]             if (.Platform$OS.type == "windows") {
[18:41:36.341]                 old_names <- names(...future.oldEnvVars)
[18:41:36.341]                 envs <- base::Sys.getenv()
[18:41:36.341]                 names <- names(envs)
[18:41:36.341]                 common <- intersect(names, old_names)
[18:41:36.341]                 added <- setdiff(names, old_names)
[18:41:36.341]                 removed <- setdiff(old_names, names)
[18:41:36.341]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.341]                   envs[common]]
[18:41:36.341]                 NAMES <- toupper(changed)
[18:41:36.341]                 args <- list()
[18:41:36.341]                 for (kk in seq_along(NAMES)) {
[18:41:36.341]                   name <- changed[[kk]]
[18:41:36.341]                   NAME <- NAMES[[kk]]
[18:41:36.341]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.341]                     next
[18:41:36.341]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.341]                 }
[18:41:36.341]                 NAMES <- toupper(added)
[18:41:36.341]                 for (kk in seq_along(NAMES)) {
[18:41:36.341]                   name <- added[[kk]]
[18:41:36.341]                   NAME <- NAMES[[kk]]
[18:41:36.341]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.341]                     next
[18:41:36.341]                   args[[name]] <- ""
[18:41:36.341]                 }
[18:41:36.341]                 NAMES <- toupper(removed)
[18:41:36.341]                 for (kk in seq_along(NAMES)) {
[18:41:36.341]                   name <- removed[[kk]]
[18:41:36.341]                   NAME <- NAMES[[kk]]
[18:41:36.341]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.341]                     next
[18:41:36.341]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.341]                 }
[18:41:36.341]                 if (length(args) > 0) 
[18:41:36.341]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.341]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.341]             }
[18:41:36.341]             else {
[18:41:36.341]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.341]             }
[18:41:36.341]             {
[18:41:36.341]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.341]                   0L) {
[18:41:36.341]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.341]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.341]                   base::options(opts)
[18:41:36.341]                 }
[18:41:36.341]                 {
[18:41:36.341]                   {
[18:41:36.341]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.341]                     NULL
[18:41:36.341]                   }
[18:41:36.341]                   options(future.plan = NULL)
[18:41:36.341]                   if (is.na(NA_character_)) 
[18:41:36.341]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.341]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.341]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.341]                     .init = FALSE)
[18:41:36.341]                 }
[18:41:36.341]             }
[18:41:36.341]         }
[18:41:36.341]     })
[18:41:36.341]     if (TRUE) {
[18:41:36.341]         base::sink(type = "output", split = FALSE)
[18:41:36.341]         if (TRUE) {
[18:41:36.341]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.341]         }
[18:41:36.341]         else {
[18:41:36.341]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.341]         }
[18:41:36.341]         base::close(...future.stdout)
[18:41:36.341]         ...future.stdout <- NULL
[18:41:36.341]     }
[18:41:36.341]     ...future.result$conditions <- ...future.conditions
[18:41:36.341]     ...future.result$finished <- base::Sys.time()
[18:41:36.341]     ...future.result
[18:41:36.341] }
[18:41:36.350] Exporting 5 global objects (1.05 KiB) to cluster node #1 ...
[18:41:36.351] Exporting '...future.FUN' (326 bytes) to cluster node #1 ...
[18:41:36.352] Exporting '...future.FUN' (326 bytes) to cluster node #1 ... DONE
[18:41:36.352] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ...
[18:41:36.353] Exporting 'MoreArgs' (183 bytes) to cluster node #1 ... DONE
[18:41:36.353] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ...
[18:41:36.354] Exporting '...future.elements_ii' (93 bytes) to cluster node #1 ... DONE
[18:41:36.354] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.355] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.355] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.356] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.356] Exporting 5 global objects (1.05 KiB) to cluster node #1 ... DONE
[18:41:36.357] MultisessionFuture started
[18:41:36.358] - Launch lazy future ... done
[18:41:36.358] run() for 'MultisessionFuture' ... done
[18:41:36.358] Created future:
[18:41:36.383] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.384] - Validating connection of MultisessionFuture
[18:41:36.384] - received message: FutureResult
[18:41:36.384] - Received FutureResult
[18:41:36.384] - Erased future from FutureRegistry
[18:41:36.385] result() for ClusterFuture ...
[18:41:36.385] - result already collected: FutureResult
[18:41:36.385] result() for ClusterFuture ... done
[18:41:36.385] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.358] MultisessionFuture:
[18:41:36.358] Label: 'future_.mapply-2'
[18:41:36.358] Expression:
[18:41:36.358] {
[18:41:36.358]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.358]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.358]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.358]         on.exit(options(oopts), add = TRUE)
[18:41:36.358]     }
[18:41:36.358]     {
[18:41:36.358]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.358]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.358]         do.call(mapply, args = args)
[18:41:36.358]     }
[18:41:36.358] }
[18:41:36.358] Lazy evaluation: FALSE
[18:41:36.358] Asynchronous evaluation: TRUE
[18:41:36.358] Local evaluation: TRUE
[18:41:36.358] Environment: R_GlobalEnv
[18:41:36.358] Capture standard output: TRUE
[18:41:36.358] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.358] Globals: 5 objects totaling 656 bytes (function '...future.FUN' of 326 bytes, list 'MoreArgs' of 183 bytes, list '...future.elements_ii' of 93 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.358] Packages: <none>
[18:41:36.358] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.358] Resolved: TRUE
[18:41:36.358] Value: <not collected>
[18:41:36.358] Conditions captured: <none>
[18:41:36.358] Early signaling: FALSE
[18:41:36.358] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.358] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.386] Chunk #2 of 2 ... DONE
[18:41:36.386] Launching 2 futures (chunks) ... DONE
[18:41:36.386] Resolving 2 futures (chunks) ...
[18:41:36.386] resolve() on list ...
[18:41:36.386]  recursive: 0
[18:41:36.386]  length: 2
[18:41:36.387] 
[18:41:36.387] Future #1
[18:41:36.387] result() for ClusterFuture ...
[18:41:36.387] - result already collected: FutureResult
[18:41:36.387] result() for ClusterFuture ... done
[18:41:36.387] result() for ClusterFuture ...
[18:41:36.387] - result already collected: FutureResult
[18:41:36.388] result() for ClusterFuture ... done
[18:41:36.388] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:36.388] - nx: 2
[18:41:36.388] - relay: TRUE
[18:41:36.388] - stdout: TRUE
[18:41:36.388] - signal: TRUE
[18:41:36.389] - resignal: FALSE
[18:41:36.389] - force: TRUE
[18:41:36.389] - relayed: [n=2] FALSE, FALSE
[18:41:36.389] - queued futures: [n=2] FALSE, FALSE
[18:41:36.389]  - until=1
[18:41:36.389]  - relaying element #1
[18:41:36.390] result() for ClusterFuture ...
[18:41:36.390] - result already collected: FutureResult
[18:41:36.390] result() for ClusterFuture ... done
[18:41:36.390] result() for ClusterFuture ...
[18:41:36.390] - result already collected: FutureResult
[18:41:36.390] result() for ClusterFuture ... done
[18:41:36.391] result() for ClusterFuture ...
[18:41:36.391] - result already collected: FutureResult
[18:41:36.391] result() for ClusterFuture ... done
[18:41:36.391] result() for ClusterFuture ...
[18:41:36.391] - result already collected: FutureResult
[18:41:36.391] result() for ClusterFuture ... done
[18:41:36.391] - relayed: [n=2] TRUE, FALSE
[18:41:36.392] - queued futures: [n=2] TRUE, FALSE
[18:41:36.392] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:36.392]  length: 1 (resolved future 1)
[18:41:36.392] Future #2
[18:41:36.392] result() for ClusterFuture ...
[18:41:36.392] - result already collected: FutureResult
[18:41:36.393] result() for ClusterFuture ... done
[18:41:36.393] result() for ClusterFuture ...
[18:41:36.393] - result already collected: FutureResult
[18:41:36.393] result() for ClusterFuture ... done
[18:41:36.393] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:36.394] - nx: 2
[18:41:36.394] - relay: TRUE
[18:41:36.394] - stdout: TRUE
[18:41:36.395] - signal: TRUE
[18:41:36.395] - resignal: FALSE
[18:41:36.395] - force: TRUE
[18:41:36.395] - relayed: [n=2] TRUE, FALSE
[18:41:36.396] - queued futures: [n=2] TRUE, FALSE
[18:41:36.396]  - until=2
[18:41:36.396]  - relaying element #2
[18:41:36.397] result() for ClusterFuture ...
[18:41:36.397] - result already collected: FutureResult
[18:41:36.397] result() for ClusterFuture ... done
[18:41:36.397] result() for ClusterFuture ...
[18:41:36.398] - result already collected: FutureResult
[18:41:36.398] result() for ClusterFuture ... done
[18:41:36.398] result() for ClusterFuture ...
[18:41:36.398] - result already collected: FutureResult
[18:41:36.398] result() for ClusterFuture ... done
[18:41:36.398] result() for ClusterFuture ...
[18:41:36.399] - result already collected: FutureResult
[18:41:36.399] result() for ClusterFuture ... done
[18:41:36.399] - relayed: [n=2] TRUE, TRUE
[18:41:36.399] - queued futures: [n=2] TRUE, TRUE
[18:41:36.399] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:36.399]  length: 0 (resolved future 2)
[18:41:36.400] Relaying remaining futures
[18:41:36.400] signalConditionsASAP(NULL, pos=0) ...
[18:41:36.400] - nx: 2
[18:41:36.400] - relay: TRUE
[18:41:36.400] - stdout: TRUE
[18:41:36.400] - signal: TRUE
[18:41:36.400] - resignal: FALSE
[18:41:36.401] - force: TRUE
[18:41:36.401] - relayed: [n=2] TRUE, TRUE
[18:41:36.401] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:36.401] - relayed: [n=2] TRUE, TRUE
[18:41:36.402] - queued futures: [n=2] TRUE, TRUE
[18:41:36.402] signalConditionsASAP(NULL, pos=0) ... done
[18:41:36.402] resolve() on list ... DONE
[18:41:36.402] result() for ClusterFuture ...
[18:41:36.402] - result already collected: FutureResult
[18:41:36.402] result() for ClusterFuture ... done
[18:41:36.402] result() for ClusterFuture ...
[18:41:36.403] - result already collected: FutureResult
[18:41:36.403] result() for ClusterFuture ... done
[18:41:36.403] result() for ClusterFuture ...
[18:41:36.403] - result already collected: FutureResult
[18:41:36.403] result() for ClusterFuture ... done
[18:41:36.403] result() for ClusterFuture ...
[18:41:36.404] - result already collected: FutureResult
[18:41:36.404] result() for ClusterFuture ... done
[18:41:36.404]  - Number of value chunks collected: 2
[18:41:36.404] Resolving 2 futures (chunks) ... DONE
[18:41:36.404] Reducing values from 2 chunks ...
[18:41:36.404]  - Number of values collected after concatenation: 2
[18:41:36.405]  - Number of values expected: 2
[18:41:36.405] Reducing values from 2 chunks ... DONE
[18:41:36.405] future_mapply() ... DONE
- Recycle arguments to same length ...
[18:41:36.405] future_mapply() ...
[18:41:36.408] Number of chunks: 2
[18:41:36.408] getGlobalsAndPackagesXApply() ...
[18:41:36.409]  - future.globals: TRUE
[18:41:36.409] getGlobalsAndPackages() ...
[18:41:36.409] Searching for globals...
[18:41:36.410] - globals found: [1] 'FUN'
[18:41:36.410] Searching for globals ... DONE
[18:41:36.410] Resolving globals: FALSE
[18:41:36.411] The total size of the 1 globals is 34 bytes (34 bytes)
[18:41:36.411] The total size of the 1 globals exported for future expression ('FUN()') is 34 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (34 bytes of class 'function')
[18:41:36.411] - globals: [1] 'FUN'
[18:41:36.411] 
[18:41:36.412] getGlobalsAndPackages() ... DONE
[18:41:36.412]  - globals found/used: [n=1] 'FUN'
[18:41:36.412]  - needed namespaces: [n=0] 
[18:41:36.412] Finding globals ... DONE
[18:41:36.412] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:36.413] List of 2
[18:41:36.413]  $ ...future.FUN:function (x, ...)  
[18:41:36.413]  $ MoreArgs     : NULL
[18:41:36.413]  - attr(*, "where")=List of 2
[18:41:36.413]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:36.413]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:36.413]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:36.413]  - attr(*, "resolved")= logi FALSE
[18:41:36.413]  - attr(*, "total_size")= num NA
[18:41:36.420] Packages to be attached in all futures: [n=0] 
[18:41:36.420] getGlobalsAndPackagesXApply() ... DONE
[18:41:36.420] Number of futures (= number of chunks): 2
[18:41:36.420] Launching 2 futures (chunks) ...
[18:41:36.421] Chunk #1 of 2 ...
[18:41:36.421]  - Finding globals in '...' for chunk #1 ...
[18:41:36.421] getGlobalsAndPackages() ...
[18:41:36.421] Searching for globals...
[18:41:36.422] 
[18:41:36.422] Searching for globals ... DONE
[18:41:36.422] - globals: [0] <none>
[18:41:36.422] getGlobalsAndPackages() ... DONE
[18:41:36.422]    + additional globals found: [n=0] 
[18:41:36.423]    + additional namespaces needed: [n=0] 
[18:41:36.423]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:36.423]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.423]  - seeds: <none>
[18:41:36.423]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.423] getGlobalsAndPackages() ...
[18:41:36.424] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.424] Resolving globals: FALSE
[18:41:36.424] The total size of the 5 globals is 210 bytes (210 bytes)
[18:41:36.425] 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 210 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (95 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:36.425] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.425] 
[18:41:36.426] getGlobalsAndPackages() ... DONE
[18:41:36.426] run() for 'Future' ...
[18:41:36.426] - state: 'created'
[18:41:36.426] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.442] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.442] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.442]   - Field: 'node'
[18:41:36.442]   - Field: 'label'
[18:41:36.443]   - Field: 'local'
[18:41:36.443]   - Field: 'owner'
[18:41:36.443]   - Field: 'envir'
[18:41:36.443]   - Field: 'workers'
[18:41:36.443]   - Field: 'packages'
[18:41:36.444]   - Field: 'gc'
[18:41:36.444]   - Field: 'conditions'
[18:41:36.444]   - Field: 'persistent'
[18:41:36.444]   - Field: 'expr'
[18:41:36.444]   - Field: 'uuid'
[18:41:36.444]   - Field: 'seed'
[18:41:36.445]   - Field: 'version'
[18:41:36.445]   - Field: 'result'
[18:41:36.445]   - Field: 'asynchronous'
[18:41:36.445]   - Field: 'calls'
[18:41:36.445]   - Field: 'globals'
[18:41:36.445]   - Field: 'stdout'
[18:41:36.446]   - Field: 'earlySignal'
[18:41:36.446]   - Field: 'lazy'
[18:41:36.446]   - Field: 'state'
[18:41:36.446] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.446] - Launch lazy future ...
[18:41:36.447] Packages needed by the future expression (n = 0): <none>
[18:41:36.447] Packages needed by future strategies (n = 0): <none>
[18:41:36.447] {
[18:41:36.447]     {
[18:41:36.447]         {
[18:41:36.447]             ...future.startTime <- base::Sys.time()
[18:41:36.447]             {
[18:41:36.447]                 {
[18:41:36.447]                   {
[18:41:36.447]                     {
[18:41:36.447]                       base::local({
[18:41:36.447]                         has_future <- base::requireNamespace("future", 
[18:41:36.447]                           quietly = TRUE)
[18:41:36.447]                         if (has_future) {
[18:41:36.447]                           ns <- base::getNamespace("future")
[18:41:36.447]                           version <- ns[[".package"]][["version"]]
[18:41:36.447]                           if (is.null(version)) 
[18:41:36.447]                             version <- utils::packageVersion("future")
[18:41:36.447]                         }
[18:41:36.447]                         else {
[18:41:36.447]                           version <- NULL
[18:41:36.447]                         }
[18:41:36.447]                         if (!has_future || version < "1.8.0") {
[18:41:36.447]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.447]                             "", base::R.version$version.string), 
[18:41:36.447]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.447]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.447]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.447]                               "release", "version")], collapse = " "), 
[18:41:36.447]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.447]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.447]                             info)
[18:41:36.447]                           info <- base::paste(info, collapse = "; ")
[18:41:36.447]                           if (!has_future) {
[18:41:36.447]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.447]                               info)
[18:41:36.447]                           }
[18:41:36.447]                           else {
[18:41:36.447]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.447]                               info, version)
[18:41:36.447]                           }
[18:41:36.447]                           base::stop(msg)
[18:41:36.447]                         }
[18:41:36.447]                       })
[18:41:36.447]                     }
[18:41:36.447]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.447]                     base::options(mc.cores = 1L)
[18:41:36.447]                   }
[18:41:36.447]                   ...future.strategy.old <- future::plan("list")
[18:41:36.447]                   options(future.plan = NULL)
[18:41:36.447]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.447]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.447]                 }
[18:41:36.447]                 ...future.workdir <- getwd()
[18:41:36.447]             }
[18:41:36.447]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.447]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.447]         }
[18:41:36.447]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.447]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.447]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.447]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.447]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.447]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.447]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.447]             base::names(...future.oldOptions))
[18:41:36.447]     }
[18:41:36.447]     if (FALSE) {
[18:41:36.447]     }
[18:41:36.447]     else {
[18:41:36.447]         if (TRUE) {
[18:41:36.447]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.447]                 open = "w")
[18:41:36.447]         }
[18:41:36.447]         else {
[18:41:36.447]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.447]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.447]         }
[18:41:36.447]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.447]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.447]             base::sink(type = "output", split = FALSE)
[18:41:36.447]             base::close(...future.stdout)
[18:41:36.447]         }, add = TRUE)
[18:41:36.447]     }
[18:41:36.447]     ...future.frame <- base::sys.nframe()
[18:41:36.447]     ...future.conditions <- base::list()
[18:41:36.447]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.447]     if (FALSE) {
[18:41:36.447]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.447]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.447]     }
[18:41:36.447]     ...future.result <- base::tryCatch({
[18:41:36.447]         base::withCallingHandlers({
[18:41:36.447]             ...future.value <- base::withVisible(base::local({
[18:41:36.447]                 ...future.makeSendCondition <- base::local({
[18:41:36.447]                   sendCondition <- NULL
[18:41:36.447]                   function(frame = 1L) {
[18:41:36.447]                     if (is.function(sendCondition)) 
[18:41:36.447]                       return(sendCondition)
[18:41:36.447]                     ns <- getNamespace("parallel")
[18:41:36.447]                     if (exists("sendData", mode = "function", 
[18:41:36.447]                       envir = ns)) {
[18:41:36.447]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.447]                         envir = ns)
[18:41:36.447]                       envir <- sys.frame(frame)
[18:41:36.447]                       master <- NULL
[18:41:36.447]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.447]                         !identical(envir, emptyenv())) {
[18:41:36.447]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.447]                           inherits = FALSE)) {
[18:41:36.447]                           master <- get("master", mode = "list", 
[18:41:36.447]                             envir = envir, inherits = FALSE)
[18:41:36.447]                           if (inherits(master, c("SOCKnode", 
[18:41:36.447]                             "SOCK0node"))) {
[18:41:36.447]                             sendCondition <<- function(cond) {
[18:41:36.447]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.447]                                 success = TRUE)
[18:41:36.447]                               parallel_sendData(master, data)
[18:41:36.447]                             }
[18:41:36.447]                             return(sendCondition)
[18:41:36.447]                           }
[18:41:36.447]                         }
[18:41:36.447]                         frame <- frame + 1L
[18:41:36.447]                         envir <- sys.frame(frame)
[18:41:36.447]                       }
[18:41:36.447]                     }
[18:41:36.447]                     sendCondition <<- function(cond) NULL
[18:41:36.447]                   }
[18:41:36.447]                 })
[18:41:36.447]                 withCallingHandlers({
[18:41:36.447]                   {
[18:41:36.447]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.447]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.447]                       ...future.globals.maxSize)) {
[18:41:36.447]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.447]                       on.exit(options(oopts), add = TRUE)
[18:41:36.447]                     }
[18:41:36.447]                     {
[18:41:36.447]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.447]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.447]                         USE.NAMES = FALSE)
[18:41:36.447]                       do.call(mapply, args = args)
[18:41:36.447]                     }
[18:41:36.447]                   }
[18:41:36.447]                 }, immediateCondition = function(cond) {
[18:41:36.447]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.447]                   sendCondition(cond)
[18:41:36.447]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.447]                   {
[18:41:36.447]                     inherits <- base::inherits
[18:41:36.447]                     invokeRestart <- base::invokeRestart
[18:41:36.447]                     is.null <- base::is.null
[18:41:36.447]                     muffled <- FALSE
[18:41:36.447]                     if (inherits(cond, "message")) {
[18:41:36.447]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.447]                       if (muffled) 
[18:41:36.447]                         invokeRestart("muffleMessage")
[18:41:36.447]                     }
[18:41:36.447]                     else if (inherits(cond, "warning")) {
[18:41:36.447]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.447]                       if (muffled) 
[18:41:36.447]                         invokeRestart("muffleWarning")
[18:41:36.447]                     }
[18:41:36.447]                     else if (inherits(cond, "condition")) {
[18:41:36.447]                       if (!is.null(pattern)) {
[18:41:36.447]                         computeRestarts <- base::computeRestarts
[18:41:36.447]                         grepl <- base::grepl
[18:41:36.447]                         restarts <- computeRestarts(cond)
[18:41:36.447]                         for (restart in restarts) {
[18:41:36.447]                           name <- restart$name
[18:41:36.447]                           if (is.null(name)) 
[18:41:36.447]                             next
[18:41:36.447]                           if (!grepl(pattern, name)) 
[18:41:36.447]                             next
[18:41:36.447]                           invokeRestart(restart)
[18:41:36.447]                           muffled <- TRUE
[18:41:36.447]                           break
[18:41:36.447]                         }
[18:41:36.447]                       }
[18:41:36.447]                     }
[18:41:36.447]                     invisible(muffled)
[18:41:36.447]                   }
[18:41:36.447]                   muffleCondition(cond)
[18:41:36.447]                 })
[18:41:36.447]             }))
[18:41:36.447]             future::FutureResult(value = ...future.value$value, 
[18:41:36.447]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.447]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.447]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.447]                     ...future.globalenv.names))
[18:41:36.447]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.447]         }, condition = base::local({
[18:41:36.447]             c <- base::c
[18:41:36.447]             inherits <- base::inherits
[18:41:36.447]             invokeRestart <- base::invokeRestart
[18:41:36.447]             length <- base::length
[18:41:36.447]             list <- base::list
[18:41:36.447]             seq.int <- base::seq.int
[18:41:36.447]             signalCondition <- base::signalCondition
[18:41:36.447]             sys.calls <- base::sys.calls
[18:41:36.447]             `[[` <- base::`[[`
[18:41:36.447]             `+` <- base::`+`
[18:41:36.447]             `<<-` <- base::`<<-`
[18:41:36.447]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.447]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.447]                   3L)]
[18:41:36.447]             }
[18:41:36.447]             function(cond) {
[18:41:36.447]                 is_error <- inherits(cond, "error")
[18:41:36.447]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.447]                   NULL)
[18:41:36.447]                 if (is_error) {
[18:41:36.447]                   sessionInformation <- function() {
[18:41:36.447]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.447]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.447]                       search = base::search(), system = base::Sys.info())
[18:41:36.447]                   }
[18:41:36.447]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.447]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.447]                     cond$call), session = sessionInformation(), 
[18:41:36.447]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.447]                   signalCondition(cond)
[18:41:36.447]                 }
[18:41:36.447]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.447]                 "immediateCondition"))) {
[18:41:36.447]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.447]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.447]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.447]                   if (TRUE && !signal) {
[18:41:36.447]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.447]                     {
[18:41:36.447]                       inherits <- base::inherits
[18:41:36.447]                       invokeRestart <- base::invokeRestart
[18:41:36.447]                       is.null <- base::is.null
[18:41:36.447]                       muffled <- FALSE
[18:41:36.447]                       if (inherits(cond, "message")) {
[18:41:36.447]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.447]                         if (muffled) 
[18:41:36.447]                           invokeRestart("muffleMessage")
[18:41:36.447]                       }
[18:41:36.447]                       else if (inherits(cond, "warning")) {
[18:41:36.447]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.447]                         if (muffled) 
[18:41:36.447]                           invokeRestart("muffleWarning")
[18:41:36.447]                       }
[18:41:36.447]                       else if (inherits(cond, "condition")) {
[18:41:36.447]                         if (!is.null(pattern)) {
[18:41:36.447]                           computeRestarts <- base::computeRestarts
[18:41:36.447]                           grepl <- base::grepl
[18:41:36.447]                           restarts <- computeRestarts(cond)
[18:41:36.447]                           for (restart in restarts) {
[18:41:36.447]                             name <- restart$name
[18:41:36.447]                             if (is.null(name)) 
[18:41:36.447]                               next
[18:41:36.447]                             if (!grepl(pattern, name)) 
[18:41:36.447]                               next
[18:41:36.447]                             invokeRestart(restart)
[18:41:36.447]                             muffled <- TRUE
[18:41:36.447]                             break
[18:41:36.447]                           }
[18:41:36.447]                         }
[18:41:36.447]                       }
[18:41:36.447]                       invisible(muffled)
[18:41:36.447]                     }
[18:41:36.447]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.447]                   }
[18:41:36.447]                 }
[18:41:36.447]                 else {
[18:41:36.447]                   if (TRUE) {
[18:41:36.447]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.447]                     {
[18:41:36.447]                       inherits <- base::inherits
[18:41:36.447]                       invokeRestart <- base::invokeRestart
[18:41:36.447]                       is.null <- base::is.null
[18:41:36.447]                       muffled <- FALSE
[18:41:36.447]                       if (inherits(cond, "message")) {
[18:41:36.447]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.447]                         if (muffled) 
[18:41:36.447]                           invokeRestart("muffleMessage")
[18:41:36.447]                       }
[18:41:36.447]                       else if (inherits(cond, "warning")) {
[18:41:36.447]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.447]                         if (muffled) 
[18:41:36.447]                           invokeRestart("muffleWarning")
[18:41:36.447]                       }
[18:41:36.447]                       else if (inherits(cond, "condition")) {
[18:41:36.447]                         if (!is.null(pattern)) {
[18:41:36.447]                           computeRestarts <- base::computeRestarts
[18:41:36.447]                           grepl <- base::grepl
[18:41:36.447]                           restarts <- computeRestarts(cond)
[18:41:36.447]                           for (restart in restarts) {
[18:41:36.447]                             name <- restart$name
[18:41:36.447]                             if (is.null(name)) 
[18:41:36.447]                               next
[18:41:36.447]                             if (!grepl(pattern, name)) 
[18:41:36.447]                               next
[18:41:36.447]                             invokeRestart(restart)
[18:41:36.447]                             muffled <- TRUE
[18:41:36.447]                             break
[18:41:36.447]                           }
[18:41:36.447]                         }
[18:41:36.447]                       }
[18:41:36.447]                       invisible(muffled)
[18:41:36.447]                     }
[18:41:36.447]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.447]                   }
[18:41:36.447]                 }
[18:41:36.447]             }
[18:41:36.447]         }))
[18:41:36.447]     }, error = function(ex) {
[18:41:36.447]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.447]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.447]                 ...future.rng), started = ...future.startTime, 
[18:41:36.447]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.447]             version = "1.8"), class = "FutureResult")
[18:41:36.447]     }, finally = {
[18:41:36.447]         if (!identical(...future.workdir, getwd())) 
[18:41:36.447]             setwd(...future.workdir)
[18:41:36.447]         {
[18:41:36.447]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.447]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.447]             }
[18:41:36.447]             base::options(...future.oldOptions)
[18:41:36.447]             if (.Platform$OS.type == "windows") {
[18:41:36.447]                 old_names <- names(...future.oldEnvVars)
[18:41:36.447]                 envs <- base::Sys.getenv()
[18:41:36.447]                 names <- names(envs)
[18:41:36.447]                 common <- intersect(names, old_names)
[18:41:36.447]                 added <- setdiff(names, old_names)
[18:41:36.447]                 removed <- setdiff(old_names, names)
[18:41:36.447]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.447]                   envs[common]]
[18:41:36.447]                 NAMES <- toupper(changed)
[18:41:36.447]                 args <- list()
[18:41:36.447]                 for (kk in seq_along(NAMES)) {
[18:41:36.447]                   name <- changed[[kk]]
[18:41:36.447]                   NAME <- NAMES[[kk]]
[18:41:36.447]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.447]                     next
[18:41:36.447]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.447]                 }
[18:41:36.447]                 NAMES <- toupper(added)
[18:41:36.447]                 for (kk in seq_along(NAMES)) {
[18:41:36.447]                   name <- added[[kk]]
[18:41:36.447]                   NAME <- NAMES[[kk]]
[18:41:36.447]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.447]                     next
[18:41:36.447]                   args[[name]] <- ""
[18:41:36.447]                 }
[18:41:36.447]                 NAMES <- toupper(removed)
[18:41:36.447]                 for (kk in seq_along(NAMES)) {
[18:41:36.447]                   name <- removed[[kk]]
[18:41:36.447]                   NAME <- NAMES[[kk]]
[18:41:36.447]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.447]                     next
[18:41:36.447]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.447]                 }
[18:41:36.447]                 if (length(args) > 0) 
[18:41:36.447]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.447]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.447]             }
[18:41:36.447]             else {
[18:41:36.447]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.447]             }
[18:41:36.447]             {
[18:41:36.447]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.447]                   0L) {
[18:41:36.447]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.447]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.447]                   base::options(opts)
[18:41:36.447]                 }
[18:41:36.447]                 {
[18:41:36.447]                   {
[18:41:36.447]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.447]                     NULL
[18:41:36.447]                   }
[18:41:36.447]                   options(future.plan = NULL)
[18:41:36.447]                   if (is.na(NA_character_)) 
[18:41:36.447]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.447]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.447]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.447]                     .init = FALSE)
[18:41:36.447]                 }
[18:41:36.447]             }
[18:41:36.447]         }
[18:41:36.447]     })
[18:41:36.447]     if (TRUE) {
[18:41:36.447]         base::sink(type = "output", split = FALSE)
[18:41:36.447]         if (TRUE) {
[18:41:36.447]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.447]         }
[18:41:36.447]         else {
[18:41:36.447]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.447]         }
[18:41:36.447]         base::close(...future.stdout)
[18:41:36.447]         ...future.stdout <- NULL
[18:41:36.447]     }
[18:41:36.447]     ...future.result$conditions <- ...future.conditions
[18:41:36.447]     ...future.result$finished <- base::Sys.time()
[18:41:36.447]     ...future.result
[18:41:36.447] }
[18:41:36.453] Exporting 5 global objects (669 bytes) to cluster node #1 ...
[18:41:36.453] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:36.454] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:36.454] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:36.455] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:36.455] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ...
[18:41:36.456] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ... DONE
[18:41:36.456] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.457] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.457] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.458] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.458] Exporting 5 global objects (669 bytes) to cluster node #1 ... DONE
[18:41:36.459] MultisessionFuture started
[18:41:36.459] - Launch lazy future ... done
[18:41:36.459] run() for 'MultisessionFuture' ... done
[18:41:36.460] Created future:
[18:41:36.486] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.486] - Validating connection of MultisessionFuture
[18:41:36.487] - received message: FutureResult
[18:41:36.487] - Received FutureResult
[18:41:36.487] - Erased future from FutureRegistry
[18:41:36.487] result() for ClusterFuture ...
[18:41:36.487] - result already collected: FutureResult
[18:41:36.488] result() for ClusterFuture ... done
[18:41:36.488] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.460] MultisessionFuture:
[18:41:36.460] Label: 'future_mapply-1'
[18:41:36.460] Expression:
[18:41:36.460] {
[18:41:36.460]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.460]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.460]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.460]         on.exit(options(oopts), add = TRUE)
[18:41:36.460]     }
[18:41:36.460]     {
[18:41:36.460]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.460]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.460]         do.call(mapply, args = args)
[18:41:36.460]     }
[18:41:36.460] }
[18:41:36.460] Lazy evaluation: FALSE
[18:41:36.460] Asynchronous evaluation: TRUE
[18:41:36.460] Local evaluation: TRUE
[18:41:36.460] Environment: R_GlobalEnv
[18:41:36.460] Capture standard output: TRUE
[18:41:36.460] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.460] Globals: 5 objects totaling 210 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 95 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.460] Packages: <none>
[18:41:36.460] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.460] Resolved: TRUE
[18:41:36.460] Value: <not collected>
[18:41:36.460] Conditions captured: <none>
[18:41:36.460] Early signaling: FALSE
[18:41:36.460] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.460] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.488] Chunk #1 of 2 ... DONE
[18:41:36.488] Chunk #2 of 2 ...
[18:41:36.489]  - Finding globals in '...' for chunk #2 ...
[18:41:36.489] getGlobalsAndPackages() ...
[18:41:36.489] Searching for globals...
[18:41:36.489] 
[18:41:36.489] Searching for globals ... DONE
[18:41:36.490] - globals: [0] <none>
[18:41:36.490] getGlobalsAndPackages() ... DONE
[18:41:36.490]    + additional globals found: [n=0] 
[18:41:36.490]    + additional namespaces needed: [n=0] 
[18:41:36.490]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:36.490]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.491]  - seeds: <none>
[18:41:36.491]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.491] getGlobalsAndPackages() ...
[18:41:36.491] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.491] Resolving globals: FALSE
[18:41:36.492] The total size of the 5 globals is 210 bytes (210 bytes)
[18:41:36.493] 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 210 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (95 bytes of class 'list'), '...future.FUN' (34 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:36.493] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.493] 
[18:41:36.493] getGlobalsAndPackages() ... DONE
[18:41:36.493] run() for 'Future' ...
[18:41:36.494] - state: 'created'
[18:41:36.494] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.511] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.511] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.511]   - Field: 'node'
[18:41:36.511]   - Field: 'label'
[18:41:36.512]   - Field: 'local'
[18:41:36.512]   - Field: 'owner'
[18:41:36.512]   - Field: 'envir'
[18:41:36.512]   - Field: 'workers'
[18:41:36.512]   - Field: 'packages'
[18:41:36.512]   - Field: 'gc'
[18:41:36.513]   - Field: 'conditions'
[18:41:36.513]   - Field: 'persistent'
[18:41:36.513]   - Field: 'expr'
[18:41:36.513]   - Field: 'uuid'
[18:41:36.513]   - Field: 'seed'
[18:41:36.514]   - Field: 'version'
[18:41:36.514]   - Field: 'result'
[18:41:36.514]   - Field: 'asynchronous'
[18:41:36.514]   - Field: 'calls'
[18:41:36.514]   - Field: 'globals'
[18:41:36.514]   - Field: 'stdout'
[18:41:36.515]   - Field: 'earlySignal'
[18:41:36.515]   - Field: 'lazy'
[18:41:36.515]   - Field: 'state'
[18:41:36.515] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.515] - Launch lazy future ...
[18:41:36.516] Packages needed by the future expression (n = 0): <none>
[18:41:36.516] Packages needed by future strategies (n = 0): <none>
[18:41:36.516] {
[18:41:36.516]     {
[18:41:36.516]         {
[18:41:36.516]             ...future.startTime <- base::Sys.time()
[18:41:36.516]             {
[18:41:36.516]                 {
[18:41:36.516]                   {
[18:41:36.516]                     {
[18:41:36.516]                       base::local({
[18:41:36.516]                         has_future <- base::requireNamespace("future", 
[18:41:36.516]                           quietly = TRUE)
[18:41:36.516]                         if (has_future) {
[18:41:36.516]                           ns <- base::getNamespace("future")
[18:41:36.516]                           version <- ns[[".package"]][["version"]]
[18:41:36.516]                           if (is.null(version)) 
[18:41:36.516]                             version <- utils::packageVersion("future")
[18:41:36.516]                         }
[18:41:36.516]                         else {
[18:41:36.516]                           version <- NULL
[18:41:36.516]                         }
[18:41:36.516]                         if (!has_future || version < "1.8.0") {
[18:41:36.516]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.516]                             "", base::R.version$version.string), 
[18:41:36.516]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.516]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.516]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.516]                               "release", "version")], collapse = " "), 
[18:41:36.516]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.516]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.516]                             info)
[18:41:36.516]                           info <- base::paste(info, collapse = "; ")
[18:41:36.516]                           if (!has_future) {
[18:41:36.516]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.516]                               info)
[18:41:36.516]                           }
[18:41:36.516]                           else {
[18:41:36.516]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.516]                               info, version)
[18:41:36.516]                           }
[18:41:36.516]                           base::stop(msg)
[18:41:36.516]                         }
[18:41:36.516]                       })
[18:41:36.516]                     }
[18:41:36.516]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.516]                     base::options(mc.cores = 1L)
[18:41:36.516]                   }
[18:41:36.516]                   ...future.strategy.old <- future::plan("list")
[18:41:36.516]                   options(future.plan = NULL)
[18:41:36.516]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.516]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.516]                 }
[18:41:36.516]                 ...future.workdir <- getwd()
[18:41:36.516]             }
[18:41:36.516]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.516]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.516]         }
[18:41:36.516]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.516]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.516]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.516]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.516]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.516]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.516]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.516]             base::names(...future.oldOptions))
[18:41:36.516]     }
[18:41:36.516]     if (FALSE) {
[18:41:36.516]     }
[18:41:36.516]     else {
[18:41:36.516]         if (TRUE) {
[18:41:36.516]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.516]                 open = "w")
[18:41:36.516]         }
[18:41:36.516]         else {
[18:41:36.516]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.516]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.516]         }
[18:41:36.516]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.516]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.516]             base::sink(type = "output", split = FALSE)
[18:41:36.516]             base::close(...future.stdout)
[18:41:36.516]         }, add = TRUE)
[18:41:36.516]     }
[18:41:36.516]     ...future.frame <- base::sys.nframe()
[18:41:36.516]     ...future.conditions <- base::list()
[18:41:36.516]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.516]     if (FALSE) {
[18:41:36.516]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.516]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.516]     }
[18:41:36.516]     ...future.result <- base::tryCatch({
[18:41:36.516]         base::withCallingHandlers({
[18:41:36.516]             ...future.value <- base::withVisible(base::local({
[18:41:36.516]                 ...future.makeSendCondition <- base::local({
[18:41:36.516]                   sendCondition <- NULL
[18:41:36.516]                   function(frame = 1L) {
[18:41:36.516]                     if (is.function(sendCondition)) 
[18:41:36.516]                       return(sendCondition)
[18:41:36.516]                     ns <- getNamespace("parallel")
[18:41:36.516]                     if (exists("sendData", mode = "function", 
[18:41:36.516]                       envir = ns)) {
[18:41:36.516]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.516]                         envir = ns)
[18:41:36.516]                       envir <- sys.frame(frame)
[18:41:36.516]                       master <- NULL
[18:41:36.516]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.516]                         !identical(envir, emptyenv())) {
[18:41:36.516]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.516]                           inherits = FALSE)) {
[18:41:36.516]                           master <- get("master", mode = "list", 
[18:41:36.516]                             envir = envir, inherits = FALSE)
[18:41:36.516]                           if (inherits(master, c("SOCKnode", 
[18:41:36.516]                             "SOCK0node"))) {
[18:41:36.516]                             sendCondition <<- function(cond) {
[18:41:36.516]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.516]                                 success = TRUE)
[18:41:36.516]                               parallel_sendData(master, data)
[18:41:36.516]                             }
[18:41:36.516]                             return(sendCondition)
[18:41:36.516]                           }
[18:41:36.516]                         }
[18:41:36.516]                         frame <- frame + 1L
[18:41:36.516]                         envir <- sys.frame(frame)
[18:41:36.516]                       }
[18:41:36.516]                     }
[18:41:36.516]                     sendCondition <<- function(cond) NULL
[18:41:36.516]                   }
[18:41:36.516]                 })
[18:41:36.516]                 withCallingHandlers({
[18:41:36.516]                   {
[18:41:36.516]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.516]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.516]                       ...future.globals.maxSize)) {
[18:41:36.516]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.516]                       on.exit(options(oopts), add = TRUE)
[18:41:36.516]                     }
[18:41:36.516]                     {
[18:41:36.516]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.516]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.516]                         USE.NAMES = FALSE)
[18:41:36.516]                       do.call(mapply, args = args)
[18:41:36.516]                     }
[18:41:36.516]                   }
[18:41:36.516]                 }, immediateCondition = function(cond) {
[18:41:36.516]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.516]                   sendCondition(cond)
[18:41:36.516]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.516]                   {
[18:41:36.516]                     inherits <- base::inherits
[18:41:36.516]                     invokeRestart <- base::invokeRestart
[18:41:36.516]                     is.null <- base::is.null
[18:41:36.516]                     muffled <- FALSE
[18:41:36.516]                     if (inherits(cond, "message")) {
[18:41:36.516]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.516]                       if (muffled) 
[18:41:36.516]                         invokeRestart("muffleMessage")
[18:41:36.516]                     }
[18:41:36.516]                     else if (inherits(cond, "warning")) {
[18:41:36.516]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.516]                       if (muffled) 
[18:41:36.516]                         invokeRestart("muffleWarning")
[18:41:36.516]                     }
[18:41:36.516]                     else if (inherits(cond, "condition")) {
[18:41:36.516]                       if (!is.null(pattern)) {
[18:41:36.516]                         computeRestarts <- base::computeRestarts
[18:41:36.516]                         grepl <- base::grepl
[18:41:36.516]                         restarts <- computeRestarts(cond)
[18:41:36.516]                         for (restart in restarts) {
[18:41:36.516]                           name <- restart$name
[18:41:36.516]                           if (is.null(name)) 
[18:41:36.516]                             next
[18:41:36.516]                           if (!grepl(pattern, name)) 
[18:41:36.516]                             next
[18:41:36.516]                           invokeRestart(restart)
[18:41:36.516]                           muffled <- TRUE
[18:41:36.516]                           break
[18:41:36.516]                         }
[18:41:36.516]                       }
[18:41:36.516]                     }
[18:41:36.516]                     invisible(muffled)
[18:41:36.516]                   }
[18:41:36.516]                   muffleCondition(cond)
[18:41:36.516]                 })
[18:41:36.516]             }))
[18:41:36.516]             future::FutureResult(value = ...future.value$value, 
[18:41:36.516]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.516]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.516]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.516]                     ...future.globalenv.names))
[18:41:36.516]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.516]         }, condition = base::local({
[18:41:36.516]             c <- base::c
[18:41:36.516]             inherits <- base::inherits
[18:41:36.516]             invokeRestart <- base::invokeRestart
[18:41:36.516]             length <- base::length
[18:41:36.516]             list <- base::list
[18:41:36.516]             seq.int <- base::seq.int
[18:41:36.516]             signalCondition <- base::signalCondition
[18:41:36.516]             sys.calls <- base::sys.calls
[18:41:36.516]             `[[` <- base::`[[`
[18:41:36.516]             `+` <- base::`+`
[18:41:36.516]             `<<-` <- base::`<<-`
[18:41:36.516]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.516]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.516]                   3L)]
[18:41:36.516]             }
[18:41:36.516]             function(cond) {
[18:41:36.516]                 is_error <- inherits(cond, "error")
[18:41:36.516]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.516]                   NULL)
[18:41:36.516]                 if (is_error) {
[18:41:36.516]                   sessionInformation <- function() {
[18:41:36.516]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.516]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.516]                       search = base::search(), system = base::Sys.info())
[18:41:36.516]                   }
[18:41:36.516]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.516]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.516]                     cond$call), session = sessionInformation(), 
[18:41:36.516]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.516]                   signalCondition(cond)
[18:41:36.516]                 }
[18:41:36.516]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.516]                 "immediateCondition"))) {
[18:41:36.516]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.516]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.516]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.516]                   if (TRUE && !signal) {
[18:41:36.516]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.516]                     {
[18:41:36.516]                       inherits <- base::inherits
[18:41:36.516]                       invokeRestart <- base::invokeRestart
[18:41:36.516]                       is.null <- base::is.null
[18:41:36.516]                       muffled <- FALSE
[18:41:36.516]                       if (inherits(cond, "message")) {
[18:41:36.516]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.516]                         if (muffled) 
[18:41:36.516]                           invokeRestart("muffleMessage")
[18:41:36.516]                       }
[18:41:36.516]                       else if (inherits(cond, "warning")) {
[18:41:36.516]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.516]                         if (muffled) 
[18:41:36.516]                           invokeRestart("muffleWarning")
[18:41:36.516]                       }
[18:41:36.516]                       else if (inherits(cond, "condition")) {
[18:41:36.516]                         if (!is.null(pattern)) {
[18:41:36.516]                           computeRestarts <- base::computeRestarts
[18:41:36.516]                           grepl <- base::grepl
[18:41:36.516]                           restarts <- computeRestarts(cond)
[18:41:36.516]                           for (restart in restarts) {
[18:41:36.516]                             name <- restart$name
[18:41:36.516]                             if (is.null(name)) 
[18:41:36.516]                               next
[18:41:36.516]                             if (!grepl(pattern, name)) 
[18:41:36.516]                               next
[18:41:36.516]                             invokeRestart(restart)
[18:41:36.516]                             muffled <- TRUE
[18:41:36.516]                             break
[18:41:36.516]                           }
[18:41:36.516]                         }
[18:41:36.516]                       }
[18:41:36.516]                       invisible(muffled)
[18:41:36.516]                     }
[18:41:36.516]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.516]                   }
[18:41:36.516]                 }
[18:41:36.516]                 else {
[18:41:36.516]                   if (TRUE) {
[18:41:36.516]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.516]                     {
[18:41:36.516]                       inherits <- base::inherits
[18:41:36.516]                       invokeRestart <- base::invokeRestart
[18:41:36.516]                       is.null <- base::is.null
[18:41:36.516]                       muffled <- FALSE
[18:41:36.516]                       if (inherits(cond, "message")) {
[18:41:36.516]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.516]                         if (muffled) 
[18:41:36.516]                           invokeRestart("muffleMessage")
[18:41:36.516]                       }
[18:41:36.516]                       else if (inherits(cond, "warning")) {
[18:41:36.516]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.516]                         if (muffled) 
[18:41:36.516]                           invokeRestart("muffleWarning")
[18:41:36.516]                       }
[18:41:36.516]                       else if (inherits(cond, "condition")) {
[18:41:36.516]                         if (!is.null(pattern)) {
[18:41:36.516]                           computeRestarts <- base::computeRestarts
[18:41:36.516]                           grepl <- base::grepl
[18:41:36.516]                           restarts <- computeRestarts(cond)
[18:41:36.516]                           for (restart in restarts) {
[18:41:36.516]                             name <- restart$name
[18:41:36.516]                             if (is.null(name)) 
[18:41:36.516]                               next
[18:41:36.516]                             if (!grepl(pattern, name)) 
[18:41:36.516]                               next
[18:41:36.516]                             invokeRestart(restart)
[18:41:36.516]                             muffled <- TRUE
[18:41:36.516]                             break
[18:41:36.516]                           }
[18:41:36.516]                         }
[18:41:36.516]                       }
[18:41:36.516]                       invisible(muffled)
[18:41:36.516]                     }
[18:41:36.516]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.516]                   }
[18:41:36.516]                 }
[18:41:36.516]             }
[18:41:36.516]         }))
[18:41:36.516]     }, error = function(ex) {
[18:41:36.516]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.516]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.516]                 ...future.rng), started = ...future.startTime, 
[18:41:36.516]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.516]             version = "1.8"), class = "FutureResult")
[18:41:36.516]     }, finally = {
[18:41:36.516]         if (!identical(...future.workdir, getwd())) 
[18:41:36.516]             setwd(...future.workdir)
[18:41:36.516]         {
[18:41:36.516]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.516]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.516]             }
[18:41:36.516]             base::options(...future.oldOptions)
[18:41:36.516]             if (.Platform$OS.type == "windows") {
[18:41:36.516]                 old_names <- names(...future.oldEnvVars)
[18:41:36.516]                 envs <- base::Sys.getenv()
[18:41:36.516]                 names <- names(envs)
[18:41:36.516]                 common <- intersect(names, old_names)
[18:41:36.516]                 added <- setdiff(names, old_names)
[18:41:36.516]                 removed <- setdiff(old_names, names)
[18:41:36.516]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.516]                   envs[common]]
[18:41:36.516]                 NAMES <- toupper(changed)
[18:41:36.516]                 args <- list()
[18:41:36.516]                 for (kk in seq_along(NAMES)) {
[18:41:36.516]                   name <- changed[[kk]]
[18:41:36.516]                   NAME <- NAMES[[kk]]
[18:41:36.516]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.516]                     next
[18:41:36.516]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.516]                 }
[18:41:36.516]                 NAMES <- toupper(added)
[18:41:36.516]                 for (kk in seq_along(NAMES)) {
[18:41:36.516]                   name <- added[[kk]]
[18:41:36.516]                   NAME <- NAMES[[kk]]
[18:41:36.516]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.516]                     next
[18:41:36.516]                   args[[name]] <- ""
[18:41:36.516]                 }
[18:41:36.516]                 NAMES <- toupper(removed)
[18:41:36.516]                 for (kk in seq_along(NAMES)) {
[18:41:36.516]                   name <- removed[[kk]]
[18:41:36.516]                   NAME <- NAMES[[kk]]
[18:41:36.516]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.516]                     next
[18:41:36.516]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.516]                 }
[18:41:36.516]                 if (length(args) > 0) 
[18:41:36.516]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.516]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.516]             }
[18:41:36.516]             else {
[18:41:36.516]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.516]             }
[18:41:36.516]             {
[18:41:36.516]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.516]                   0L) {
[18:41:36.516]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.516]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.516]                   base::options(opts)
[18:41:36.516]                 }
[18:41:36.516]                 {
[18:41:36.516]                   {
[18:41:36.516]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.516]                     NULL
[18:41:36.516]                   }
[18:41:36.516]                   options(future.plan = NULL)
[18:41:36.516]                   if (is.na(NA_character_)) 
[18:41:36.516]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.516]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.516]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.516]                     .init = FALSE)
[18:41:36.516]                 }
[18:41:36.516]             }
[18:41:36.516]         }
[18:41:36.516]     })
[18:41:36.516]     if (TRUE) {
[18:41:36.516]         base::sink(type = "output", split = FALSE)
[18:41:36.516]         if (TRUE) {
[18:41:36.516]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.516]         }
[18:41:36.516]         else {
[18:41:36.516]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.516]         }
[18:41:36.516]         base::close(...future.stdout)
[18:41:36.516]         ...future.stdout <- NULL
[18:41:36.516]     }
[18:41:36.516]     ...future.result$conditions <- ...future.conditions
[18:41:36.516]     ...future.result$finished <- base::Sys.time()
[18:41:36.516]     ...future.result
[18:41:36.516] }
[18:41:36.522] Exporting 5 global objects (669 bytes) to cluster node #1 ...
[18:41:36.522] Exporting '...future.FUN' (34 bytes) to cluster node #1 ...
[18:41:36.523] Exporting '...future.FUN' (34 bytes) to cluster node #1 ... DONE
[18:41:36.523] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:36.523] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:36.524] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ...
[18:41:36.524] Exporting '...future.elements_ii' (95 bytes) to cluster node #1 ... DONE
[18:41:36.525] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.525] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.525] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.526] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.526] Exporting 5 global objects (669 bytes) to cluster node #1 ... DONE
[18:41:36.527] MultisessionFuture started
[18:41:36.527] - Launch lazy future ... done
[18:41:36.528] run() for 'MultisessionFuture' ... done
[18:41:36.528] Created future:
[18:41:36.558] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.558] - Validating connection of MultisessionFuture
[18:41:36.559] - received message: FutureResult
[18:41:36.559] - Received FutureResult
[18:41:36.559] - Erased future from FutureRegistry
[18:41:36.559] result() for ClusterFuture ...
[18:41:36.559] - result already collected: FutureResult
[18:41:36.560] result() for ClusterFuture ... done
[18:41:36.560] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.528] MultisessionFuture:
[18:41:36.528] Label: 'future_mapply-2'
[18:41:36.528] Expression:
[18:41:36.528] {
[18:41:36.528]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.528]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.528]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.528]         on.exit(options(oopts), add = TRUE)
[18:41:36.528]     }
[18:41:36.528]     {
[18:41:36.528]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.528]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.528]         do.call(mapply, args = args)
[18:41:36.528]     }
[18:41:36.528] }
[18:41:36.528] Lazy evaluation: FALSE
[18:41:36.528] Asynchronous evaluation: TRUE
[18:41:36.528] Local evaluation: TRUE
[18:41:36.528] Environment: R_GlobalEnv
[18:41:36.528] Capture standard output: TRUE
[18:41:36.528] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.528] Globals: 5 objects totaling 210 bytes (function '...future.FUN' of 34 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 95 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.528] Packages: <none>
[18:41:36.528] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.528] Resolved: TRUE
[18:41:36.528] Value: <not collected>
[18:41:36.528] Conditions captured: <none>
[18:41:36.528] Early signaling: FALSE
[18:41:36.528] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.528] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.560] Chunk #2 of 2 ... DONE
[18:41:36.560] Launching 2 futures (chunks) ... DONE
[18:41:36.561] Resolving 2 futures (chunks) ...
[18:41:36.561] resolve() on list ...
[18:41:36.561]  recursive: 0
[18:41:36.561]  length: 2
[18:41:36.561] 
[18:41:36.561] Future #1
[18:41:36.562] result() for ClusterFuture ...
[18:41:36.562] - result already collected: FutureResult
[18:41:36.562] result() for ClusterFuture ... done
[18:41:36.562] result() for ClusterFuture ...
[18:41:36.562] - result already collected: FutureResult
[18:41:36.562] result() for ClusterFuture ... done
[18:41:36.562] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:36.563] - nx: 2
[18:41:36.563] - relay: TRUE
[18:41:36.563] - stdout: TRUE
[18:41:36.563] - signal: TRUE
[18:41:36.563] - resignal: FALSE
[18:41:36.563] - force: TRUE
[18:41:36.564] - relayed: [n=2] FALSE, FALSE
[18:41:36.564] - queued futures: [n=2] FALSE, FALSE
[18:41:36.564]  - until=1
[18:41:36.564]  - relaying element #1
[18:41:36.564] result() for ClusterFuture ...
[18:41:36.564] - result already collected: FutureResult
[18:41:36.564] result() for ClusterFuture ... done
[18:41:36.565] result() for ClusterFuture ...
[18:41:36.565] - result already collected: FutureResult
[18:41:36.565] result() for ClusterFuture ... done
[18:41:36.565] result() for ClusterFuture ...
[18:41:36.565] - result already collected: FutureResult
[18:41:36.566] result() for ClusterFuture ... done
[18:41:36.566] result() for ClusterFuture ...
[18:41:36.566] - result already collected: FutureResult
[18:41:36.566] result() for ClusterFuture ... done
[18:41:36.566] - relayed: [n=2] TRUE, FALSE
[18:41:36.566] - queued futures: [n=2] TRUE, FALSE
[18:41:36.566] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:36.567]  length: 1 (resolved future 1)
[18:41:36.567] Future #2
[18:41:36.567] result() for ClusterFuture ...
[18:41:36.567] - result already collected: FutureResult
[18:41:36.567] result() for ClusterFuture ... done
[18:41:36.567] result() for ClusterFuture ...
[18:41:36.568] - result already collected: FutureResult
[18:41:36.568] result() for ClusterFuture ... done
[18:41:36.568] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:36.568] - nx: 2
[18:41:36.568] - relay: TRUE
[18:41:36.568] - stdout: TRUE
[18:41:36.569] - signal: TRUE
[18:41:36.569] - resignal: FALSE
[18:41:36.569] - force: TRUE
[18:41:36.569] - relayed: [n=2] TRUE, FALSE
[18:41:36.569] - queued futures: [n=2] TRUE, FALSE
[18:41:36.569]  - until=2
[18:41:36.569]  - relaying element #2
[18:41:36.570] result() for ClusterFuture ...
[18:41:36.570] - result already collected: FutureResult
[18:41:36.570] result() for ClusterFuture ... done
[18:41:36.570] result() for ClusterFuture ...
[18:41:36.570] - result already collected: FutureResult
[18:41:36.570] result() for ClusterFuture ... done
[18:41:36.571] result() for ClusterFuture ...
[18:41:36.571] - result already collected: FutureResult
[18:41:36.571] result() for ClusterFuture ... done
[18:41:36.571] result() for ClusterFuture ...
[18:41:36.571] - result already collected: FutureResult
[18:41:36.571] result() for ClusterFuture ... done
[18:41:36.571] - relayed: [n=2] TRUE, TRUE
[18:41:36.572] - queued futures: [n=2] TRUE, TRUE
[18:41:36.572] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:36.572]  length: 0 (resolved future 2)
[18:41:36.572] Relaying remaining futures
[18:41:36.572] signalConditionsASAP(NULL, pos=0) ...
[18:41:36.572] - nx: 2
[18:41:36.573] - relay: TRUE
[18:41:36.573] - stdout: TRUE
[18:41:36.573] - signal: TRUE
[18:41:36.573] - resignal: FALSE
[18:41:36.573] - force: TRUE
[18:41:36.573] - relayed: [n=2] TRUE, TRUE
[18:41:36.573] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:36.574] - relayed: [n=2] TRUE, TRUE
[18:41:36.574] - queued futures: [n=2] TRUE, TRUE
[18:41:36.574] signalConditionsASAP(NULL, pos=0) ... done
[18:41:36.574] resolve() on list ... DONE
[18:41:36.574] result() for ClusterFuture ...
[18:41:36.575] - result already collected: FutureResult
[18:41:36.575] result() for ClusterFuture ... done
[18:41:36.575] result() for ClusterFuture ...
[18:41:36.575] - result already collected: FutureResult
[18:41:36.575] result() for ClusterFuture ... done
[18:41:36.575] result() for ClusterFuture ...
[18:41:36.575] - result already collected: FutureResult
[18:41:36.576] result() for ClusterFuture ... done
[18:41:36.576] result() for ClusterFuture ...
[18:41:36.576] - result already collected: FutureResult
[18:41:36.576] result() for ClusterFuture ... done
[18:41:36.576]  - Number of value chunks collected: 2
[18:41:36.576] Resolving 2 futures (chunks) ... DONE
[18:41:36.577] Reducing values from 2 chunks ...
[18:41:36.577]  - Number of values collected after concatenation: 4
[18:41:36.577]  - Number of values expected: 4
[18:41:36.577] Reducing values from 2 chunks ... DONE
[18:41:36.577] future_mapply() ... DONE
- Parallel RNG ...
[18:41:36.578] future_mapply() ...
[18:41:36.578] Generating random seeds ...
[18:41:36.578] Generating random seed streams for 4 elements ...
[18:41:36.578] Generating random seed streams for 4 elements ... DONE
[18:41:36.578] Generating random seeds ... DONE
[18:41:36.578] Will set RNG state on exit: 10407, -1501482872, 289745803, 1398748263, 1838941916, 523551765, 848561102
[18:41:36.581] Number of chunks: 2
[18:41:36.581] getGlobalsAndPackagesXApply() ...
[18:41:36.582]  - future.globals: TRUE
[18:41:36.582] getGlobalsAndPackages() ...
[18:41:36.582] Searching for globals...
[18:41:36.585] - globals found: [3] 'FUN', '.Call', 'C_runif'
[18:41:36.585] Searching for globals ... DONE
[18:41:36.585] Resolving globals: FALSE
[18:41:36.586] The total size of the 1 globals is 501 bytes (501 bytes)
[18:41:36.586] The total size of the 1 globals exported for future expression ('FUN(min = 1)') is 501 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (501 bytes of class 'function')
[18:41:36.587] - globals: [1] 'FUN'
[18:41:36.587] - packages: [1] 'stats'
[18:41:36.587] getGlobalsAndPackages() ... DONE
[18:41:36.587]  - globals found/used: [n=1] 'FUN'
[18:41:36.587]  - needed namespaces: [n=1] 'stats'
[18:41:36.587] Finding globals ... DONE
[18:41:36.588] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:36.588] List of 2
[18:41:36.588]  $ ...future.FUN:function (n, min = 0, max = 1)  
[18:41:36.588]  $ MoreArgs     :List of 1
[18:41:36.588]   ..$ min: num 1
[18:41:36.588]  - attr(*, "where")=List of 2
[18:41:36.588]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:36.588]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:36.588]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:36.588]  - attr(*, "resolved")= logi FALSE
[18:41:36.588]  - attr(*, "total_size")= num NA
[18:41:36.591] Packages to be attached in all futures: [n=1] 'stats'
[18:41:36.592] getGlobalsAndPackagesXApply() ... DONE
[18:41:36.592] Number of futures (= number of chunks): 2
[18:41:36.592] Launching 2 futures (chunks) ...
[18:41:36.592] Chunk #1 of 2 ...
[18:41:36.592]  - Finding globals in '...' for chunk #1 ...
[18:41:36.593] getGlobalsAndPackages() ...
[18:41:36.593] Searching for globals...
[18:41:36.593] 
[18:41:36.593] Searching for globals ... DONE
[18:41:36.594] - globals: [0] <none>
[18:41:36.594] getGlobalsAndPackages() ... DONE
[18:41:36.594]    + additional globals found: [n=0] 
[18:41:36.594]    + additional namespaces needed: [n=0] 
[18:41:36.594]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:36.594]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.595]  - seeds: [2] <seeds>
[18:41:36.595]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.595] getGlobalsAndPackages() ...
[18:41:36.595] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.595] Resolving globals: FALSE
[18:41:36.596] The total size of the 5 globals is 870 bytes (870 bytes)
[18:41:36.597] 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 870 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (501 bytes of class 'function'), '...future.elements_ii' (148 bytes of class 'list') and '...future.seeds_ii' (103 bytes of class 'list')
[18:41:36.597] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.597] - packages: [1] 'stats'
[18:41:36.597] getGlobalsAndPackages() ... DONE
[18:41:36.598] run() for 'Future' ...
[18:41:36.598] - state: 'created'
[18:41:36.598] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.613] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.614] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.614]   - Field: 'node'
[18:41:36.614]   - Field: 'label'
[18:41:36.614]   - Field: 'local'
[18:41:36.614]   - Field: 'owner'
[18:41:36.615]   - Field: 'envir'
[18:41:36.615]   - Field: 'workers'
[18:41:36.615]   - Field: 'packages'
[18:41:36.615]   - Field: 'gc'
[18:41:36.615]   - Field: 'conditions'
[18:41:36.615]   - Field: 'persistent'
[18:41:36.616]   - Field: 'expr'
[18:41:36.616]   - Field: 'uuid'
[18:41:36.616]   - Field: 'seed'
[18:41:36.616]   - Field: 'version'
[18:41:36.616]   - Field: 'result'
[18:41:36.617]   - Field: 'asynchronous'
[18:41:36.617]   - Field: 'calls'
[18:41:36.617]   - Field: 'globals'
[18:41:36.617]   - Field: 'stdout'
[18:41:36.617]   - Field: 'earlySignal'
[18:41:36.617]   - Field: 'lazy'
[18:41:36.618]   - Field: 'state'
[18:41:36.618] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.618] - Launch lazy future ...
[18:41:36.618] Packages needed by the future expression (n = 1): 'stats'
[18:41:36.619] Packages needed by future strategies (n = 0): <none>
[18:41:36.619] {
[18:41:36.619]     {
[18:41:36.619]         {
[18:41:36.619]             ...future.startTime <- base::Sys.time()
[18:41:36.619]             {
[18:41:36.619]                 {
[18:41:36.619]                   {
[18:41:36.619]                     {
[18:41:36.619]                       {
[18:41:36.619]                         base::local({
[18:41:36.619]                           has_future <- base::requireNamespace("future", 
[18:41:36.619]                             quietly = TRUE)
[18:41:36.619]                           if (has_future) {
[18:41:36.619]                             ns <- base::getNamespace("future")
[18:41:36.619]                             version <- ns[[".package"]][["version"]]
[18:41:36.619]                             if (is.null(version)) 
[18:41:36.619]                               version <- utils::packageVersion("future")
[18:41:36.619]                           }
[18:41:36.619]                           else {
[18:41:36.619]                             version <- NULL
[18:41:36.619]                           }
[18:41:36.619]                           if (!has_future || version < "1.8.0") {
[18:41:36.619]                             info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.619]                               "", base::R.version$version.string), 
[18:41:36.619]                               platform = base::sprintf("%s (%s-bit)", 
[18:41:36.619]                                 base::R.version$platform, 8 * 
[18:41:36.619]                                   base::.Machine$sizeof.pointer), 
[18:41:36.619]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.619]                                 "release", "version")], collapse = " "), 
[18:41:36.619]                               hostname = base::Sys.info()[["nodename"]])
[18:41:36.619]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.619]                               info)
[18:41:36.619]                             info <- base::paste(info, collapse = "; ")
[18:41:36.619]                             if (!has_future) {
[18:41:36.619]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.619]                                 info)
[18:41:36.619]                             }
[18:41:36.619]                             else {
[18:41:36.619]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.619]                                 info, version)
[18:41:36.619]                             }
[18:41:36.619]                             base::stop(msg)
[18:41:36.619]                           }
[18:41:36.619]                         })
[18:41:36.619]                       }
[18:41:36.619]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.619]                       base::options(mc.cores = 1L)
[18:41:36.619]                     }
[18:41:36.619]                     base::local({
[18:41:36.619]                       for (pkg in "stats") {
[18:41:36.619]                         base::loadNamespace(pkg)
[18:41:36.619]                         base::library(pkg, character.only = TRUE)
[18:41:36.619]                       }
[18:41:36.619]                     })
[18:41:36.619]                   }
[18:41:36.619]                   ...future.strategy.old <- future::plan("list")
[18:41:36.619]                   options(future.plan = NULL)
[18:41:36.619]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.619]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.619]                 }
[18:41:36.619]                 ...future.workdir <- getwd()
[18:41:36.619]             }
[18:41:36.619]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.619]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.619]         }
[18:41:36.619]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.619]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.619]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.619]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.619]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.619]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.619]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.619]             base::names(...future.oldOptions))
[18:41:36.619]     }
[18:41:36.619]     if (FALSE) {
[18:41:36.619]     }
[18:41:36.619]     else {
[18:41:36.619]         if (TRUE) {
[18:41:36.619]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.619]                 open = "w")
[18:41:36.619]         }
[18:41:36.619]         else {
[18:41:36.619]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.619]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.619]         }
[18:41:36.619]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.619]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.619]             base::sink(type = "output", split = FALSE)
[18:41:36.619]             base::close(...future.stdout)
[18:41:36.619]         }, add = TRUE)
[18:41:36.619]     }
[18:41:36.619]     ...future.frame <- base::sys.nframe()
[18:41:36.619]     ...future.conditions <- base::list()
[18:41:36.619]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.619]     if (FALSE) {
[18:41:36.619]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.619]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.619]     }
[18:41:36.619]     ...future.result <- base::tryCatch({
[18:41:36.619]         base::withCallingHandlers({
[18:41:36.619]             ...future.value <- base::withVisible(base::local({
[18:41:36.619]                 ...future.makeSendCondition <- base::local({
[18:41:36.619]                   sendCondition <- NULL
[18:41:36.619]                   function(frame = 1L) {
[18:41:36.619]                     if (is.function(sendCondition)) 
[18:41:36.619]                       return(sendCondition)
[18:41:36.619]                     ns <- getNamespace("parallel")
[18:41:36.619]                     if (exists("sendData", mode = "function", 
[18:41:36.619]                       envir = ns)) {
[18:41:36.619]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.619]                         envir = ns)
[18:41:36.619]                       envir <- sys.frame(frame)
[18:41:36.619]                       master <- NULL
[18:41:36.619]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.619]                         !identical(envir, emptyenv())) {
[18:41:36.619]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.619]                           inherits = FALSE)) {
[18:41:36.619]                           master <- get("master", mode = "list", 
[18:41:36.619]                             envir = envir, inherits = FALSE)
[18:41:36.619]                           if (inherits(master, c("SOCKnode", 
[18:41:36.619]                             "SOCK0node"))) {
[18:41:36.619]                             sendCondition <<- function(cond) {
[18:41:36.619]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.619]                                 success = TRUE)
[18:41:36.619]                               parallel_sendData(master, data)
[18:41:36.619]                             }
[18:41:36.619]                             return(sendCondition)
[18:41:36.619]                           }
[18:41:36.619]                         }
[18:41:36.619]                         frame <- frame + 1L
[18:41:36.619]                         envir <- sys.frame(frame)
[18:41:36.619]                       }
[18:41:36.619]                     }
[18:41:36.619]                     sendCondition <<- function(cond) NULL
[18:41:36.619]                   }
[18:41:36.619]                 })
[18:41:36.619]                 withCallingHandlers({
[18:41:36.619]                   {
[18:41:36.619]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.619]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.619]                       ...future.globals.maxSize)) {
[18:41:36.619]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.619]                       on.exit(options(oopts), add = TRUE)
[18:41:36.619]                     }
[18:41:36.619]                     {
[18:41:36.619]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.619]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:36.619]                           envir = globalenv(), inherits = FALSE)
[18:41:36.619]                         ...future.FUN(...)
[18:41:36.619]                       }
[18:41:36.619]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.619]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.619]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.619]                         USE.NAMES = FALSE)
[18:41:36.619]                       do.call(mapply, args = args)
[18:41:36.619]                     }
[18:41:36.619]                   }
[18:41:36.619]                 }, immediateCondition = function(cond) {
[18:41:36.619]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.619]                   sendCondition(cond)
[18:41:36.619]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.619]                   {
[18:41:36.619]                     inherits <- base::inherits
[18:41:36.619]                     invokeRestart <- base::invokeRestart
[18:41:36.619]                     is.null <- base::is.null
[18:41:36.619]                     muffled <- FALSE
[18:41:36.619]                     if (inherits(cond, "message")) {
[18:41:36.619]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.619]                       if (muffled) 
[18:41:36.619]                         invokeRestart("muffleMessage")
[18:41:36.619]                     }
[18:41:36.619]                     else if (inherits(cond, "warning")) {
[18:41:36.619]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.619]                       if (muffled) 
[18:41:36.619]                         invokeRestart("muffleWarning")
[18:41:36.619]                     }
[18:41:36.619]                     else if (inherits(cond, "condition")) {
[18:41:36.619]                       if (!is.null(pattern)) {
[18:41:36.619]                         computeRestarts <- base::computeRestarts
[18:41:36.619]                         grepl <- base::grepl
[18:41:36.619]                         restarts <- computeRestarts(cond)
[18:41:36.619]                         for (restart in restarts) {
[18:41:36.619]                           name <- restart$name
[18:41:36.619]                           if (is.null(name)) 
[18:41:36.619]                             next
[18:41:36.619]                           if (!grepl(pattern, name)) 
[18:41:36.619]                             next
[18:41:36.619]                           invokeRestart(restart)
[18:41:36.619]                           muffled <- TRUE
[18:41:36.619]                           break
[18:41:36.619]                         }
[18:41:36.619]                       }
[18:41:36.619]                     }
[18:41:36.619]                     invisible(muffled)
[18:41:36.619]                   }
[18:41:36.619]                   muffleCondition(cond)
[18:41:36.619]                 })
[18:41:36.619]             }))
[18:41:36.619]             future::FutureResult(value = ...future.value$value, 
[18:41:36.619]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.619]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.619]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.619]                     ...future.globalenv.names))
[18:41:36.619]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.619]         }, condition = base::local({
[18:41:36.619]             c <- base::c
[18:41:36.619]             inherits <- base::inherits
[18:41:36.619]             invokeRestart <- base::invokeRestart
[18:41:36.619]             length <- base::length
[18:41:36.619]             list <- base::list
[18:41:36.619]             seq.int <- base::seq.int
[18:41:36.619]             signalCondition <- base::signalCondition
[18:41:36.619]             sys.calls <- base::sys.calls
[18:41:36.619]             `[[` <- base::`[[`
[18:41:36.619]             `+` <- base::`+`
[18:41:36.619]             `<<-` <- base::`<<-`
[18:41:36.619]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.619]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.619]                   3L)]
[18:41:36.619]             }
[18:41:36.619]             function(cond) {
[18:41:36.619]                 is_error <- inherits(cond, "error")
[18:41:36.619]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.619]                   NULL)
[18:41:36.619]                 if (is_error) {
[18:41:36.619]                   sessionInformation <- function() {
[18:41:36.619]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.619]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.619]                       search = base::search(), system = base::Sys.info())
[18:41:36.619]                   }
[18:41:36.619]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.619]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.619]                     cond$call), session = sessionInformation(), 
[18:41:36.619]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.619]                   signalCondition(cond)
[18:41:36.619]                 }
[18:41:36.619]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.619]                 "immediateCondition"))) {
[18:41:36.619]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.619]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.619]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.619]                   if (TRUE && !signal) {
[18:41:36.619]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.619]                     {
[18:41:36.619]                       inherits <- base::inherits
[18:41:36.619]                       invokeRestart <- base::invokeRestart
[18:41:36.619]                       is.null <- base::is.null
[18:41:36.619]                       muffled <- FALSE
[18:41:36.619]                       if (inherits(cond, "message")) {
[18:41:36.619]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.619]                         if (muffled) 
[18:41:36.619]                           invokeRestart("muffleMessage")
[18:41:36.619]                       }
[18:41:36.619]                       else if (inherits(cond, "warning")) {
[18:41:36.619]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.619]                         if (muffled) 
[18:41:36.619]                           invokeRestart("muffleWarning")
[18:41:36.619]                       }
[18:41:36.619]                       else if (inherits(cond, "condition")) {
[18:41:36.619]                         if (!is.null(pattern)) {
[18:41:36.619]                           computeRestarts <- base::computeRestarts
[18:41:36.619]                           grepl <- base::grepl
[18:41:36.619]                           restarts <- computeRestarts(cond)
[18:41:36.619]                           for (restart in restarts) {
[18:41:36.619]                             name <- restart$name
[18:41:36.619]                             if (is.null(name)) 
[18:41:36.619]                               next
[18:41:36.619]                             if (!grepl(pattern, name)) 
[18:41:36.619]                               next
[18:41:36.619]                             invokeRestart(restart)
[18:41:36.619]                             muffled <- TRUE
[18:41:36.619]                             break
[18:41:36.619]                           }
[18:41:36.619]                         }
[18:41:36.619]                       }
[18:41:36.619]                       invisible(muffled)
[18:41:36.619]                     }
[18:41:36.619]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.619]                   }
[18:41:36.619]                 }
[18:41:36.619]                 else {
[18:41:36.619]                   if (TRUE) {
[18:41:36.619]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.619]                     {
[18:41:36.619]                       inherits <- base::inherits
[18:41:36.619]                       invokeRestart <- base::invokeRestart
[18:41:36.619]                       is.null <- base::is.null
[18:41:36.619]                       muffled <- FALSE
[18:41:36.619]                       if (inherits(cond, "message")) {
[18:41:36.619]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.619]                         if (muffled) 
[18:41:36.619]                           invokeRestart("muffleMessage")
[18:41:36.619]                       }
[18:41:36.619]                       else if (inherits(cond, "warning")) {
[18:41:36.619]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.619]                         if (muffled) 
[18:41:36.619]                           invokeRestart("muffleWarning")
[18:41:36.619]                       }
[18:41:36.619]                       else if (inherits(cond, "condition")) {
[18:41:36.619]                         if (!is.null(pattern)) {
[18:41:36.619]                           computeRestarts <- base::computeRestarts
[18:41:36.619]                           grepl <- base::grepl
[18:41:36.619]                           restarts <- computeRestarts(cond)
[18:41:36.619]                           for (restart in restarts) {
[18:41:36.619]                             name <- restart$name
[18:41:36.619]                             if (is.null(name)) 
[18:41:36.619]                               next
[18:41:36.619]                             if (!grepl(pattern, name)) 
[18:41:36.619]                               next
[18:41:36.619]                             invokeRestart(restart)
[18:41:36.619]                             muffled <- TRUE
[18:41:36.619]                             break
[18:41:36.619]                           }
[18:41:36.619]                         }
[18:41:36.619]                       }
[18:41:36.619]                       invisible(muffled)
[18:41:36.619]                     }
[18:41:36.619]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.619]                   }
[18:41:36.619]                 }
[18:41:36.619]             }
[18:41:36.619]         }))
[18:41:36.619]     }, error = function(ex) {
[18:41:36.619]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.619]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.619]                 ...future.rng), started = ...future.startTime, 
[18:41:36.619]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.619]             version = "1.8"), class = "FutureResult")
[18:41:36.619]     }, finally = {
[18:41:36.619]         if (!identical(...future.workdir, getwd())) 
[18:41:36.619]             setwd(...future.workdir)
[18:41:36.619]         {
[18:41:36.619]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.619]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.619]             }
[18:41:36.619]             base::options(...future.oldOptions)
[18:41:36.619]             if (.Platform$OS.type == "windows") {
[18:41:36.619]                 old_names <- names(...future.oldEnvVars)
[18:41:36.619]                 envs <- base::Sys.getenv()
[18:41:36.619]                 names <- names(envs)
[18:41:36.619]                 common <- intersect(names, old_names)
[18:41:36.619]                 added <- setdiff(names, old_names)
[18:41:36.619]                 removed <- setdiff(old_names, names)
[18:41:36.619]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.619]                   envs[common]]
[18:41:36.619]                 NAMES <- toupper(changed)
[18:41:36.619]                 args <- list()
[18:41:36.619]                 for (kk in seq_along(NAMES)) {
[18:41:36.619]                   name <- changed[[kk]]
[18:41:36.619]                   NAME <- NAMES[[kk]]
[18:41:36.619]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.619]                     next
[18:41:36.619]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.619]                 }
[18:41:36.619]                 NAMES <- toupper(added)
[18:41:36.619]                 for (kk in seq_along(NAMES)) {
[18:41:36.619]                   name <- added[[kk]]
[18:41:36.619]                   NAME <- NAMES[[kk]]
[18:41:36.619]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.619]                     next
[18:41:36.619]                   args[[name]] <- ""
[18:41:36.619]                 }
[18:41:36.619]                 NAMES <- toupper(removed)
[18:41:36.619]                 for (kk in seq_along(NAMES)) {
[18:41:36.619]                   name <- removed[[kk]]
[18:41:36.619]                   NAME <- NAMES[[kk]]
[18:41:36.619]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.619]                     next
[18:41:36.619]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.619]                 }
[18:41:36.619]                 if (length(args) > 0) 
[18:41:36.619]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.619]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.619]             }
[18:41:36.619]             else {
[18:41:36.619]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.619]             }
[18:41:36.619]             {
[18:41:36.619]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.619]                   0L) {
[18:41:36.619]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.619]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.619]                   base::options(opts)
[18:41:36.619]                 }
[18:41:36.619]                 {
[18:41:36.619]                   {
[18:41:36.619]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.619]                     NULL
[18:41:36.619]                   }
[18:41:36.619]                   options(future.plan = NULL)
[18:41:36.619]                   if (is.na(NA_character_)) 
[18:41:36.619]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.619]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.619]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.619]                     .init = FALSE)
[18:41:36.619]                 }
[18:41:36.619]             }
[18:41:36.619]         }
[18:41:36.619]     })
[18:41:36.619]     if (TRUE) {
[18:41:36.619]         base::sink(type = "output", split = FALSE)
[18:41:36.619]         if (TRUE) {
[18:41:36.619]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.619]         }
[18:41:36.619]         else {
[18:41:36.619]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.619]         }
[18:41:36.619]         base::close(...future.stdout)
[18:41:36.619]         ...future.stdout <- NULL
[18:41:36.619]     }
[18:41:36.619]     ...future.result$conditions <- ...future.conditions
[18:41:36.619]     ...future.result$finished <- base::Sys.time()
[18:41:36.619]     ...future.result
[18:41:36.619] }
[18:41:36.625] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:36.625] Exporting '...future.FUN' (501 bytes) to cluster node #1 ...
[18:41:36.626] Exporting '...future.FUN' (501 bytes) to cluster node #1 ... DONE
[18:41:36.626] Exporting 'MoreArgs' (91 bytes) to cluster node #1 ...
[18:41:36.627] Exporting 'MoreArgs' (91 bytes) to cluster node #1 ... DONE
[18:41:36.627] Exporting '...future.elements_ii' (148 bytes) to cluster node #1 ...
[18:41:36.627] Exporting '...future.elements_ii' (148 bytes) to cluster node #1 ... DONE
[18:41:36.628] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:36.628] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:36.629] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.629] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.629] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:36.630] MultisessionFuture started
[18:41:36.631] - Launch lazy future ... done
[18:41:36.631] run() for 'MultisessionFuture' ... done
[18:41:36.631] Created future:
[18:41:36.657] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.657] - Validating connection of MultisessionFuture
[18:41:36.658] - received message: FutureResult
[18:41:36.658] - Received FutureResult
[18:41:36.658] - Erased future from FutureRegistry
[18:41:36.658] result() for ClusterFuture ...
[18:41:36.659] - result already collected: FutureResult
[18:41:36.659] result() for ClusterFuture ... done
[18:41:36.659] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.631] MultisessionFuture:
[18:41:36.631] Label: 'future_mapply-1'
[18:41:36.631] Expression:
[18:41:36.631] {
[18:41:36.631]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.631]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.631]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.631]         on.exit(options(oopts), add = TRUE)
[18:41:36.631]     }
[18:41:36.631]     {
[18:41:36.631]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.631]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:36.631]                 inherits = FALSE)
[18:41:36.631]             ...future.FUN(...)
[18:41:36.631]         }
[18:41:36.631]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.631]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.631]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.631]         do.call(mapply, args = args)
[18:41:36.631]     }
[18:41:36.631] }
[18:41:36.631] Lazy evaluation: FALSE
[18:41:36.631] Asynchronous evaluation: TRUE
[18:41:36.631] Local evaluation: TRUE
[18:41:36.631] Environment: R_GlobalEnv
[18:41:36.631] Capture standard output: TRUE
[18:41:36.631] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.631] Globals: 5 objects totaling 870 bytes (function '...future.FUN' of 501 bytes, list 'MoreArgs' of 91 bytes, list '...future.elements_ii' of 148 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.631] Packages: 1 packages ('stats')
[18:41:36.631] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:36.631] Resolved: TRUE
[18:41:36.631] Value: <not collected>
[18:41:36.631] Conditions captured: <none>
[18:41:36.631] Early signaling: FALSE
[18:41:36.631] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.631] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.659] Chunk #1 of 2 ... DONE
[18:41:36.660] Chunk #2 of 2 ...
[18:41:36.660]  - Finding globals in '...' for chunk #2 ...
[18:41:36.660] getGlobalsAndPackages() ...
[18:41:36.660] Searching for globals...
[18:41:36.661] 
[18:41:36.661] Searching for globals ... DONE
[18:41:36.662] - globals: [0] <none>
[18:41:36.662] getGlobalsAndPackages() ... DONE
[18:41:36.662]    + additional globals found: [n=0] 
[18:41:36.662]    + additional namespaces needed: [n=0] 
[18:41:36.662]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:36.663]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.663]  - seeds: [2] <seeds>
[18:41:36.663]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.663] getGlobalsAndPackages() ...
[18:41:36.663] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.664] Resolving globals: FALSE
[18:41:36.664] The total size of the 5 globals is 870 bytes (870 bytes)
[18:41:36.665] 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 870 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (501 bytes of class 'function'), '...future.elements_ii' (148 bytes of class 'list') and '...future.seeds_ii' (103 bytes of class 'list')
[18:41:36.665] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.665] - packages: [1] 'stats'
[18:41:36.666] getGlobalsAndPackages() ... DONE
[18:41:36.666] run() for 'Future' ...
[18:41:36.666] - state: 'created'
[18:41:36.666] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.683] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.683] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.684]   - Field: 'node'
[18:41:36.684]   - Field: 'label'
[18:41:36.684]   - Field: 'local'
[18:41:36.684]   - Field: 'owner'
[18:41:36.684]   - Field: 'envir'
[18:41:36.685]   - Field: 'workers'
[18:41:36.685]   - Field: 'packages'
[18:41:36.685]   - Field: 'gc'
[18:41:36.685]   - Field: 'conditions'
[18:41:36.685]   - Field: 'persistent'
[18:41:36.686]   - Field: 'expr'
[18:41:36.686]   - Field: 'uuid'
[18:41:36.686]   - Field: 'seed'
[18:41:36.686]   - Field: 'version'
[18:41:36.686]   - Field: 'result'
[18:41:36.686]   - Field: 'asynchronous'
[18:41:36.687]   - Field: 'calls'
[18:41:36.690]   - Field: 'globals'
[18:41:36.690]   - Field: 'stdout'
[18:41:36.690]   - Field: 'earlySignal'
[18:41:36.690]   - Field: 'lazy'
[18:41:36.691]   - Field: 'state'
[18:41:36.691] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.691] - Launch lazy future ...
[18:41:36.692] Packages needed by the future expression (n = 1): 'stats'
[18:41:36.692] Packages needed by future strategies (n = 0): <none>
[18:41:36.692] {
[18:41:36.692]     {
[18:41:36.692]         {
[18:41:36.692]             ...future.startTime <- base::Sys.time()
[18:41:36.692]             {
[18:41:36.692]                 {
[18:41:36.692]                   {
[18:41:36.692]                     {
[18:41:36.692]                       {
[18:41:36.692]                         base::local({
[18:41:36.692]                           has_future <- base::requireNamespace("future", 
[18:41:36.692]                             quietly = TRUE)
[18:41:36.692]                           if (has_future) {
[18:41:36.692]                             ns <- base::getNamespace("future")
[18:41:36.692]                             version <- ns[[".package"]][["version"]]
[18:41:36.692]                             if (is.null(version)) 
[18:41:36.692]                               version <- utils::packageVersion("future")
[18:41:36.692]                           }
[18:41:36.692]                           else {
[18:41:36.692]                             version <- NULL
[18:41:36.692]                           }
[18:41:36.692]                           if (!has_future || version < "1.8.0") {
[18:41:36.692]                             info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.692]                               "", base::R.version$version.string), 
[18:41:36.692]                               platform = base::sprintf("%s (%s-bit)", 
[18:41:36.692]                                 base::R.version$platform, 8 * 
[18:41:36.692]                                   base::.Machine$sizeof.pointer), 
[18:41:36.692]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.692]                                 "release", "version")], collapse = " "), 
[18:41:36.692]                               hostname = base::Sys.info()[["nodename"]])
[18:41:36.692]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.692]                               info)
[18:41:36.692]                             info <- base::paste(info, collapse = "; ")
[18:41:36.692]                             if (!has_future) {
[18:41:36.692]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.692]                                 info)
[18:41:36.692]                             }
[18:41:36.692]                             else {
[18:41:36.692]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.692]                                 info, version)
[18:41:36.692]                             }
[18:41:36.692]                             base::stop(msg)
[18:41:36.692]                           }
[18:41:36.692]                         })
[18:41:36.692]                       }
[18:41:36.692]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.692]                       base::options(mc.cores = 1L)
[18:41:36.692]                     }
[18:41:36.692]                     base::local({
[18:41:36.692]                       for (pkg in "stats") {
[18:41:36.692]                         base::loadNamespace(pkg)
[18:41:36.692]                         base::library(pkg, character.only = TRUE)
[18:41:36.692]                       }
[18:41:36.692]                     })
[18:41:36.692]                   }
[18:41:36.692]                   ...future.strategy.old <- future::plan("list")
[18:41:36.692]                   options(future.plan = NULL)
[18:41:36.692]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.692]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.692]                 }
[18:41:36.692]                 ...future.workdir <- getwd()
[18:41:36.692]             }
[18:41:36.692]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.692]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.692]         }
[18:41:36.692]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.692]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.692]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.692]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.692]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.692]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.692]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.692]             base::names(...future.oldOptions))
[18:41:36.692]     }
[18:41:36.692]     if (FALSE) {
[18:41:36.692]     }
[18:41:36.692]     else {
[18:41:36.692]         if (TRUE) {
[18:41:36.692]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.692]                 open = "w")
[18:41:36.692]         }
[18:41:36.692]         else {
[18:41:36.692]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.692]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.692]         }
[18:41:36.692]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.692]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.692]             base::sink(type = "output", split = FALSE)
[18:41:36.692]             base::close(...future.stdout)
[18:41:36.692]         }, add = TRUE)
[18:41:36.692]     }
[18:41:36.692]     ...future.frame <- base::sys.nframe()
[18:41:36.692]     ...future.conditions <- base::list()
[18:41:36.692]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.692]     if (FALSE) {
[18:41:36.692]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.692]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.692]     }
[18:41:36.692]     ...future.result <- base::tryCatch({
[18:41:36.692]         base::withCallingHandlers({
[18:41:36.692]             ...future.value <- base::withVisible(base::local({
[18:41:36.692]                 ...future.makeSendCondition <- base::local({
[18:41:36.692]                   sendCondition <- NULL
[18:41:36.692]                   function(frame = 1L) {
[18:41:36.692]                     if (is.function(sendCondition)) 
[18:41:36.692]                       return(sendCondition)
[18:41:36.692]                     ns <- getNamespace("parallel")
[18:41:36.692]                     if (exists("sendData", mode = "function", 
[18:41:36.692]                       envir = ns)) {
[18:41:36.692]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.692]                         envir = ns)
[18:41:36.692]                       envir <- sys.frame(frame)
[18:41:36.692]                       master <- NULL
[18:41:36.692]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.692]                         !identical(envir, emptyenv())) {
[18:41:36.692]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.692]                           inherits = FALSE)) {
[18:41:36.692]                           master <- get("master", mode = "list", 
[18:41:36.692]                             envir = envir, inherits = FALSE)
[18:41:36.692]                           if (inherits(master, c("SOCKnode", 
[18:41:36.692]                             "SOCK0node"))) {
[18:41:36.692]                             sendCondition <<- function(cond) {
[18:41:36.692]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.692]                                 success = TRUE)
[18:41:36.692]                               parallel_sendData(master, data)
[18:41:36.692]                             }
[18:41:36.692]                             return(sendCondition)
[18:41:36.692]                           }
[18:41:36.692]                         }
[18:41:36.692]                         frame <- frame + 1L
[18:41:36.692]                         envir <- sys.frame(frame)
[18:41:36.692]                       }
[18:41:36.692]                     }
[18:41:36.692]                     sendCondition <<- function(cond) NULL
[18:41:36.692]                   }
[18:41:36.692]                 })
[18:41:36.692]                 withCallingHandlers({
[18:41:36.692]                   {
[18:41:36.692]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.692]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.692]                       ...future.globals.maxSize)) {
[18:41:36.692]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.692]                       on.exit(options(oopts), add = TRUE)
[18:41:36.692]                     }
[18:41:36.692]                     {
[18:41:36.692]                       ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.692]                         assign(".Random.seed", ...future.seeds_ii_jj, 
[18:41:36.692]                           envir = globalenv(), inherits = FALSE)
[18:41:36.692]                         ...future.FUN(...)
[18:41:36.692]                       }
[18:41:36.692]                       args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.692]                         list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.692]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.692]                         USE.NAMES = FALSE)
[18:41:36.692]                       do.call(mapply, args = args)
[18:41:36.692]                     }
[18:41:36.692]                   }
[18:41:36.692]                 }, immediateCondition = function(cond) {
[18:41:36.692]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.692]                   sendCondition(cond)
[18:41:36.692]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.692]                   {
[18:41:36.692]                     inherits <- base::inherits
[18:41:36.692]                     invokeRestart <- base::invokeRestart
[18:41:36.692]                     is.null <- base::is.null
[18:41:36.692]                     muffled <- FALSE
[18:41:36.692]                     if (inherits(cond, "message")) {
[18:41:36.692]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.692]                       if (muffled) 
[18:41:36.692]                         invokeRestart("muffleMessage")
[18:41:36.692]                     }
[18:41:36.692]                     else if (inherits(cond, "warning")) {
[18:41:36.692]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.692]                       if (muffled) 
[18:41:36.692]                         invokeRestart("muffleWarning")
[18:41:36.692]                     }
[18:41:36.692]                     else if (inherits(cond, "condition")) {
[18:41:36.692]                       if (!is.null(pattern)) {
[18:41:36.692]                         computeRestarts <- base::computeRestarts
[18:41:36.692]                         grepl <- base::grepl
[18:41:36.692]                         restarts <- computeRestarts(cond)
[18:41:36.692]                         for (restart in restarts) {
[18:41:36.692]                           name <- restart$name
[18:41:36.692]                           if (is.null(name)) 
[18:41:36.692]                             next
[18:41:36.692]                           if (!grepl(pattern, name)) 
[18:41:36.692]                             next
[18:41:36.692]                           invokeRestart(restart)
[18:41:36.692]                           muffled <- TRUE
[18:41:36.692]                           break
[18:41:36.692]                         }
[18:41:36.692]                       }
[18:41:36.692]                     }
[18:41:36.692]                     invisible(muffled)
[18:41:36.692]                   }
[18:41:36.692]                   muffleCondition(cond)
[18:41:36.692]                 })
[18:41:36.692]             }))
[18:41:36.692]             future::FutureResult(value = ...future.value$value, 
[18:41:36.692]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.692]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.692]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.692]                     ...future.globalenv.names))
[18:41:36.692]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.692]         }, condition = base::local({
[18:41:36.692]             c <- base::c
[18:41:36.692]             inherits <- base::inherits
[18:41:36.692]             invokeRestart <- base::invokeRestart
[18:41:36.692]             length <- base::length
[18:41:36.692]             list <- base::list
[18:41:36.692]             seq.int <- base::seq.int
[18:41:36.692]             signalCondition <- base::signalCondition
[18:41:36.692]             sys.calls <- base::sys.calls
[18:41:36.692]             `[[` <- base::`[[`
[18:41:36.692]             `+` <- base::`+`
[18:41:36.692]             `<<-` <- base::`<<-`
[18:41:36.692]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.692]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.692]                   3L)]
[18:41:36.692]             }
[18:41:36.692]             function(cond) {
[18:41:36.692]                 is_error <- inherits(cond, "error")
[18:41:36.692]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.692]                   NULL)
[18:41:36.692]                 if (is_error) {
[18:41:36.692]                   sessionInformation <- function() {
[18:41:36.692]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.692]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.692]                       search = base::search(), system = base::Sys.info())
[18:41:36.692]                   }
[18:41:36.692]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.692]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.692]                     cond$call), session = sessionInformation(), 
[18:41:36.692]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.692]                   signalCondition(cond)
[18:41:36.692]                 }
[18:41:36.692]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.692]                 "immediateCondition"))) {
[18:41:36.692]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.692]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.692]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.692]                   if (TRUE && !signal) {
[18:41:36.692]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.692]                     {
[18:41:36.692]                       inherits <- base::inherits
[18:41:36.692]                       invokeRestart <- base::invokeRestart
[18:41:36.692]                       is.null <- base::is.null
[18:41:36.692]                       muffled <- FALSE
[18:41:36.692]                       if (inherits(cond, "message")) {
[18:41:36.692]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.692]                         if (muffled) 
[18:41:36.692]                           invokeRestart("muffleMessage")
[18:41:36.692]                       }
[18:41:36.692]                       else if (inherits(cond, "warning")) {
[18:41:36.692]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.692]                         if (muffled) 
[18:41:36.692]                           invokeRestart("muffleWarning")
[18:41:36.692]                       }
[18:41:36.692]                       else if (inherits(cond, "condition")) {
[18:41:36.692]                         if (!is.null(pattern)) {
[18:41:36.692]                           computeRestarts <- base::computeRestarts
[18:41:36.692]                           grepl <- base::grepl
[18:41:36.692]                           restarts <- computeRestarts(cond)
[18:41:36.692]                           for (restart in restarts) {
[18:41:36.692]                             name <- restart$name
[18:41:36.692]                             if (is.null(name)) 
[18:41:36.692]                               next
[18:41:36.692]                             if (!grepl(pattern, name)) 
[18:41:36.692]                               next
[18:41:36.692]                             invokeRestart(restart)
[18:41:36.692]                             muffled <- TRUE
[18:41:36.692]                             break
[18:41:36.692]                           }
[18:41:36.692]                         }
[18:41:36.692]                       }
[18:41:36.692]                       invisible(muffled)
[18:41:36.692]                     }
[18:41:36.692]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.692]                   }
[18:41:36.692]                 }
[18:41:36.692]                 else {
[18:41:36.692]                   if (TRUE) {
[18:41:36.692]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.692]                     {
[18:41:36.692]                       inherits <- base::inherits
[18:41:36.692]                       invokeRestart <- base::invokeRestart
[18:41:36.692]                       is.null <- base::is.null
[18:41:36.692]                       muffled <- FALSE
[18:41:36.692]                       if (inherits(cond, "message")) {
[18:41:36.692]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.692]                         if (muffled) 
[18:41:36.692]                           invokeRestart("muffleMessage")
[18:41:36.692]                       }
[18:41:36.692]                       else if (inherits(cond, "warning")) {
[18:41:36.692]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.692]                         if (muffled) 
[18:41:36.692]                           invokeRestart("muffleWarning")
[18:41:36.692]                       }
[18:41:36.692]                       else if (inherits(cond, "condition")) {
[18:41:36.692]                         if (!is.null(pattern)) {
[18:41:36.692]                           computeRestarts <- base::computeRestarts
[18:41:36.692]                           grepl <- base::grepl
[18:41:36.692]                           restarts <- computeRestarts(cond)
[18:41:36.692]                           for (restart in restarts) {
[18:41:36.692]                             name <- restart$name
[18:41:36.692]                             if (is.null(name)) 
[18:41:36.692]                               next
[18:41:36.692]                             if (!grepl(pattern, name)) 
[18:41:36.692]                               next
[18:41:36.692]                             invokeRestart(restart)
[18:41:36.692]                             muffled <- TRUE
[18:41:36.692]                             break
[18:41:36.692]                           }
[18:41:36.692]                         }
[18:41:36.692]                       }
[18:41:36.692]                       invisible(muffled)
[18:41:36.692]                     }
[18:41:36.692]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.692]                   }
[18:41:36.692]                 }
[18:41:36.692]             }
[18:41:36.692]         }))
[18:41:36.692]     }, error = function(ex) {
[18:41:36.692]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.692]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.692]                 ...future.rng), started = ...future.startTime, 
[18:41:36.692]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.692]             version = "1.8"), class = "FutureResult")
[18:41:36.692]     }, finally = {
[18:41:36.692]         if (!identical(...future.workdir, getwd())) 
[18:41:36.692]             setwd(...future.workdir)
[18:41:36.692]         {
[18:41:36.692]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.692]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.692]             }
[18:41:36.692]             base::options(...future.oldOptions)
[18:41:36.692]             if (.Platform$OS.type == "windows") {
[18:41:36.692]                 old_names <- names(...future.oldEnvVars)
[18:41:36.692]                 envs <- base::Sys.getenv()
[18:41:36.692]                 names <- names(envs)
[18:41:36.692]                 common <- intersect(names, old_names)
[18:41:36.692]                 added <- setdiff(names, old_names)
[18:41:36.692]                 removed <- setdiff(old_names, names)
[18:41:36.692]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.692]                   envs[common]]
[18:41:36.692]                 NAMES <- toupper(changed)
[18:41:36.692]                 args <- list()
[18:41:36.692]                 for (kk in seq_along(NAMES)) {
[18:41:36.692]                   name <- changed[[kk]]
[18:41:36.692]                   NAME <- NAMES[[kk]]
[18:41:36.692]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.692]                     next
[18:41:36.692]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.692]                 }
[18:41:36.692]                 NAMES <- toupper(added)
[18:41:36.692]                 for (kk in seq_along(NAMES)) {
[18:41:36.692]                   name <- added[[kk]]
[18:41:36.692]                   NAME <- NAMES[[kk]]
[18:41:36.692]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.692]                     next
[18:41:36.692]                   args[[name]] <- ""
[18:41:36.692]                 }
[18:41:36.692]                 NAMES <- toupper(removed)
[18:41:36.692]                 for (kk in seq_along(NAMES)) {
[18:41:36.692]                   name <- removed[[kk]]
[18:41:36.692]                   NAME <- NAMES[[kk]]
[18:41:36.692]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.692]                     next
[18:41:36.692]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.692]                 }
[18:41:36.692]                 if (length(args) > 0) 
[18:41:36.692]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.692]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.692]             }
[18:41:36.692]             else {
[18:41:36.692]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.692]             }
[18:41:36.692]             {
[18:41:36.692]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.692]                   0L) {
[18:41:36.692]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.692]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.692]                   base::options(opts)
[18:41:36.692]                 }
[18:41:36.692]                 {
[18:41:36.692]                   {
[18:41:36.692]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.692]                     NULL
[18:41:36.692]                   }
[18:41:36.692]                   options(future.plan = NULL)
[18:41:36.692]                   if (is.na(NA_character_)) 
[18:41:36.692]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.692]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.692]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.692]                     .init = FALSE)
[18:41:36.692]                 }
[18:41:36.692]             }
[18:41:36.692]         }
[18:41:36.692]     })
[18:41:36.692]     if (TRUE) {
[18:41:36.692]         base::sink(type = "output", split = FALSE)
[18:41:36.692]         if (TRUE) {
[18:41:36.692]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.692]         }
[18:41:36.692]         else {
[18:41:36.692]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.692]         }
[18:41:36.692]         base::close(...future.stdout)
[18:41:36.692]         ...future.stdout <- NULL
[18:41:36.692]     }
[18:41:36.692]     ...future.result$conditions <- ...future.conditions
[18:41:36.692]     ...future.result$finished <- base::Sys.time()
[18:41:36.692]     ...future.result
[18:41:36.692] }
[18:41:36.698] Exporting 5 global objects (1.26 KiB) to cluster node #1 ...
[18:41:36.698] Exporting '...future.FUN' (501 bytes) to cluster node #1 ...
[18:41:36.698] Exporting '...future.FUN' (501 bytes) to cluster node #1 ... DONE
[18:41:36.699] Exporting 'MoreArgs' (91 bytes) to cluster node #1 ...
[18:41:36.699] Exporting 'MoreArgs' (91 bytes) to cluster node #1 ... DONE
[18:41:36.699] Exporting '...future.elements_ii' (148 bytes) to cluster node #1 ...
[18:41:36.700] Exporting '...future.elements_ii' (148 bytes) to cluster node #1 ... DONE
[18:41:36.700] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:36.700] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:36.700] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.701] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.701] Exporting 5 global objects (1.26 KiB) to cluster node #1 ... DONE
[18:41:36.701] MultisessionFuture started
[18:41:36.702] - Launch lazy future ... done
[18:41:36.702] run() for 'MultisessionFuture' ... done
[18:41:36.702] Created future:
[18:41:36.720] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.720] - Validating connection of MultisessionFuture
[18:41:36.720] - received message: FutureResult
[18:41:36.721] - Received FutureResult
[18:41:36.721] - Erased future from FutureRegistry
[18:41:36.721] result() for ClusterFuture ...
[18:41:36.721] - result already collected: FutureResult
[18:41:36.721] result() for ClusterFuture ... done
[18:41:36.722] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.702] MultisessionFuture:
[18:41:36.702] Label: 'future_mapply-2'
[18:41:36.702] Expression:
[18:41:36.702] {
[18:41:36.702]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.702]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.702]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.702]         on.exit(options(oopts), add = TRUE)
[18:41:36.702]     }
[18:41:36.702]     {
[18:41:36.702]         ...future.FUN2 <- function(..., ...future.seeds_ii_jj) {
[18:41:36.702]             assign(".Random.seed", ...future.seeds_ii_jj, envir = globalenv(), 
[18:41:36.702]                 inherits = FALSE)
[18:41:36.702]             ...future.FUN(...)
[18:41:36.702]         }
[18:41:36.702]         args <- c(list(FUN = ...future.FUN2), ...future.elements_ii, 
[18:41:36.702]             list(...future.seeds_ii_jj = ...future.seeds_ii), 
[18:41:36.702]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.702]         do.call(mapply, args = args)
[18:41:36.702]     }
[18:41:36.702] }
[18:41:36.702] Lazy evaluation: FALSE
[18:41:36.702] Asynchronous evaluation: TRUE
[18:41:36.702] Local evaluation: TRUE
[18:41:36.702] Environment: R_GlobalEnv
[18:41:36.702] Capture standard output: TRUE
[18:41:36.702] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.702] Globals: 5 objects totaling 870 bytes (function '...future.FUN' of 501 bytes, list 'MoreArgs' of 91 bytes, list '...future.elements_ii' of 148 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.702] Packages: 1 packages ('stats')
[18:41:36.702] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:36.702] Resolved: TRUE
[18:41:36.702] Value: <not collected>
[18:41:36.702] Conditions captured: <none>
[18:41:36.702] Early signaling: FALSE
[18:41:36.702] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.702] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.722] Chunk #2 of 2 ... DONE
[18:41:36.722] Launching 2 futures (chunks) ... DONE
[18:41:36.722] Resolving 2 futures (chunks) ...
[18:41:36.722] resolve() on list ...
[18:41:36.723]  recursive: 0
[18:41:36.723]  length: 2
[18:41:36.723] 
[18:41:36.723] Future #1
[18:41:36.723] result() for ClusterFuture ...
[18:41:36.723] - result already collected: FutureResult
[18:41:36.724] result() for ClusterFuture ... done
[18:41:36.724] result() for ClusterFuture ...
[18:41:36.724] - result already collected: FutureResult
[18:41:36.724] result() for ClusterFuture ... done
[18:41:36.724] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:36.724] - nx: 2
[18:41:36.725] - relay: TRUE
[18:41:36.725] - stdout: TRUE
[18:41:36.725] - signal: TRUE
[18:41:36.725] - resignal: FALSE
[18:41:36.725] - force: TRUE
[18:41:36.725] - relayed: [n=2] FALSE, FALSE
[18:41:36.725] - queued futures: [n=2] FALSE, FALSE
[18:41:36.726]  - until=1
[18:41:36.726]  - relaying element #1
[18:41:36.726] result() for ClusterFuture ...
[18:41:36.726] - result already collected: FutureResult
[18:41:36.726] result() for ClusterFuture ... done
[18:41:36.726] result() for ClusterFuture ...
[18:41:36.726] - result already collected: FutureResult
[18:41:36.727] result() for ClusterFuture ... done
[18:41:36.727] result() for ClusterFuture ...
[18:41:36.727] - result already collected: FutureResult
[18:41:36.727] result() for ClusterFuture ... done
[18:41:36.727] result() for ClusterFuture ...
[18:41:36.727] - result already collected: FutureResult
[18:41:36.728] result() for ClusterFuture ... done
[18:41:36.728] - relayed: [n=2] TRUE, FALSE
[18:41:36.728] - queued futures: [n=2] TRUE, FALSE
[18:41:36.728] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:36.728]  length: 1 (resolved future 1)
[18:41:36.728] Future #2
[18:41:36.729] result() for ClusterFuture ...
[18:41:36.729] - result already collected: FutureResult
[18:41:36.729] result() for ClusterFuture ... done
[18:41:36.729] result() for ClusterFuture ...
[18:41:36.729] - result already collected: FutureResult
[18:41:36.729] result() for ClusterFuture ... done
[18:41:36.730] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:36.730] - nx: 2
[18:41:36.730] - relay: TRUE
[18:41:36.730] - stdout: TRUE
[18:41:36.730] - signal: TRUE
[18:41:36.730] - resignal: FALSE
[18:41:36.730] - force: TRUE
[18:41:36.731] - relayed: [n=2] TRUE, FALSE
[18:41:36.731] - queued futures: [n=2] TRUE, FALSE
[18:41:36.731]  - until=2
[18:41:36.731]  - relaying element #2
[18:41:36.731] result() for ClusterFuture ...
[18:41:36.731] - result already collected: FutureResult
[18:41:36.732] result() for ClusterFuture ... done
[18:41:36.732] result() for ClusterFuture ...
[18:41:36.732] - result already collected: FutureResult
[18:41:36.732] result() for ClusterFuture ... done
[18:41:36.732] result() for ClusterFuture ...
[18:41:36.732] - result already collected: FutureResult
[18:41:36.732] result() for ClusterFuture ... done
[18:41:36.733] result() for ClusterFuture ...
[18:41:36.733] - result already collected: FutureResult
[18:41:36.733] result() for ClusterFuture ... done
[18:41:36.733] - relayed: [n=2] TRUE, TRUE
[18:41:36.733] - queued futures: [n=2] TRUE, TRUE
[18:41:36.733] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:36.734]  length: 0 (resolved future 2)
[18:41:36.734] Relaying remaining futures
[18:41:36.734] signalConditionsASAP(NULL, pos=0) ...
[18:41:36.734] - nx: 2
[18:41:36.734] - relay: TRUE
[18:41:36.734] - stdout: TRUE
[18:41:36.734] - signal: TRUE
[18:41:36.735] - resignal: FALSE
[18:41:36.735] - force: TRUE
[18:41:36.735] - relayed: [n=2] TRUE, TRUE
[18:41:36.735] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:36.735] - relayed: [n=2] TRUE, TRUE
[18:41:36.735] - queued futures: [n=2] TRUE, TRUE
[18:41:36.736] signalConditionsASAP(NULL, pos=0) ... done
[18:41:36.736] resolve() on list ... DONE
[18:41:36.736] result() for ClusterFuture ...
[18:41:36.736] - result already collected: FutureResult
[18:41:36.736] result() for ClusterFuture ... done
[18:41:36.736] result() for ClusterFuture ...
[18:41:36.737] - result already collected: FutureResult
[18:41:36.737] result() for ClusterFuture ... done
[18:41:36.737] result() for ClusterFuture ...
[18:41:36.737] - result already collected: FutureResult
[18:41:36.737] result() for ClusterFuture ... done
[18:41:36.737] result() for ClusterFuture ...
[18:41:36.738] - result already collected: FutureResult
[18:41:36.738] result() for ClusterFuture ... done
[18:41:36.738]  - Number of value chunks collected: 2
[18:41:36.738] Resolving 2 futures (chunks) ... DONE
[18:41:36.738] Reducing values from 2 chunks ...
[18:41:36.738]  - Number of values collected after concatenation: 4
[18:41:36.738]  - Number of values expected: 4
[18:41:36.739] Reducing values from 2 chunks ... DONE
[18:41:36.739] 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() ...
[18:41:36.739] future_mapply() ...
[18:41:36.742] Number of chunks: 2
[18:41:36.742] getGlobalsAndPackagesXApply() ...
[18:41:36.742]  - future.globals: TRUE
[18:41:36.743] getGlobalsAndPackages() ...
[18:41:36.743] Searching for globals...
[18:41:36.744] - globals found: [2] 'FUN', 'UseMethod'
[18:41:36.744] Searching for globals ... DONE
[18:41:36.745] Resolving globals: FALSE
[18:41:36.745] The total size of the 1 globals is 337 bytes (337 bytes)
[18:41:36.745] The total size of the 1 globals exported for future expression ('FUN()') is 337 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (337 bytes of class 'function')
[18:41:36.746] - globals: [1] 'FUN'
[18:41:36.746] - packages: [1] 'stats'
[18:41:36.746] getGlobalsAndPackages() ... DONE
[18:41:36.746]  - globals found/used: [n=1] 'FUN'
[18:41:36.746]  - needed namespaces: [n=1] 'stats'
[18:41:36.747] Finding globals ... DONE
[18:41:36.747] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:36.747] List of 2
[18:41:36.747]  $ ...future.FUN:function (x, w, ...)  
[18:41:36.747]  $ MoreArgs     : NULL
[18:41:36.747]  - attr(*, "where")=List of 2
[18:41:36.747]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:36.747]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:36.747]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:36.747]  - attr(*, "resolved")= logi FALSE
[18:41:36.747]  - attr(*, "total_size")= num NA
[18:41:36.750] Packages to be attached in all futures: [n=1] 'stats'
[18:41:36.750] getGlobalsAndPackagesXApply() ... DONE
[18:41:36.751] Number of futures (= number of chunks): 2
[18:41:36.751] Launching 2 futures (chunks) ...
[18:41:36.751] Chunk #1 of 2 ...
[18:41:36.751]  - Finding globals in '...' for chunk #1 ...
[18:41:36.751] getGlobalsAndPackages() ...
[18:41:36.752] Searching for globals...
[18:41:36.752] 
[18:41:36.752] Searching for globals ... DONE
[18:41:36.752] - globals: [0] <none>
[18:41:36.752] getGlobalsAndPackages() ... DONE
[18:41:36.753]    + additional globals found: [n=0] 
[18:41:36.753]    + additional namespaces needed: [n=0] 
[18:41:36.753]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:36.753]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.753]  - seeds: <none>
[18:41:36.753]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.754] getGlobalsAndPackages() ...
[18:41:36.754] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.754] Resolving globals: FALSE
[18:41:36.755] The total size of the 5 globals is 817 bytes (817 bytes)
[18:41:36.755] 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 817 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (399 bytes of class 'list'), '...future.FUN' (337 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:36.755] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.756] - packages: [1] 'stats'
[18:41:36.756] getGlobalsAndPackages() ... DONE
[18:41:36.756] run() for 'Future' ...
[18:41:36.756] - state: 'created'
[18:41:36.757] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.772] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.772] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.772]   - Field: 'node'
[18:41:36.772]   - Field: 'label'
[18:41:36.773]   - Field: 'local'
[18:41:36.773]   - Field: 'owner'
[18:41:36.773]   - Field: 'envir'
[18:41:36.773]   - Field: 'workers'
[18:41:36.773]   - Field: 'packages'
[18:41:36.773]   - Field: 'gc'
[18:41:36.774]   - Field: 'conditions'
[18:41:36.774]   - Field: 'persistent'
[18:41:36.774]   - Field: 'expr'
[18:41:36.774]   - Field: 'uuid'
[18:41:36.774]   - Field: 'seed'
[18:41:36.775]   - Field: 'version'
[18:41:36.775]   - Field: 'result'
[18:41:36.775]   - Field: 'asynchronous'
[18:41:36.775]   - Field: 'calls'
[18:41:36.775]   - Field: 'globals'
[18:41:36.776]   - Field: 'stdout'
[18:41:36.776]   - Field: 'earlySignal'
[18:41:36.776]   - Field: 'lazy'
[18:41:36.776]   - Field: 'state'
[18:41:36.776] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.776] - Launch lazy future ...
[18:41:36.777] Packages needed by the future expression (n = 1): 'stats'
[18:41:36.777] Packages needed by future strategies (n = 0): <none>
[18:41:36.778] {
[18:41:36.778]     {
[18:41:36.778]         {
[18:41:36.778]             ...future.startTime <- base::Sys.time()
[18:41:36.778]             {
[18:41:36.778]                 {
[18:41:36.778]                   {
[18:41:36.778]                     {
[18:41:36.778]                       {
[18:41:36.778]                         base::local({
[18:41:36.778]                           has_future <- base::requireNamespace("future", 
[18:41:36.778]                             quietly = TRUE)
[18:41:36.778]                           if (has_future) {
[18:41:36.778]                             ns <- base::getNamespace("future")
[18:41:36.778]                             version <- ns[[".package"]][["version"]]
[18:41:36.778]                             if (is.null(version)) 
[18:41:36.778]                               version <- utils::packageVersion("future")
[18:41:36.778]                           }
[18:41:36.778]                           else {
[18:41:36.778]                             version <- NULL
[18:41:36.778]                           }
[18:41:36.778]                           if (!has_future || version < "1.8.0") {
[18:41:36.778]                             info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.778]                               "", base::R.version$version.string), 
[18:41:36.778]                               platform = base::sprintf("%s (%s-bit)", 
[18:41:36.778]                                 base::R.version$platform, 8 * 
[18:41:36.778]                                   base::.Machine$sizeof.pointer), 
[18:41:36.778]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.778]                                 "release", "version")], collapse = " "), 
[18:41:36.778]                               hostname = base::Sys.info()[["nodename"]])
[18:41:36.778]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.778]                               info)
[18:41:36.778]                             info <- base::paste(info, collapse = "; ")
[18:41:36.778]                             if (!has_future) {
[18:41:36.778]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.778]                                 info)
[18:41:36.778]                             }
[18:41:36.778]                             else {
[18:41:36.778]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.778]                                 info, version)
[18:41:36.778]                             }
[18:41:36.778]                             base::stop(msg)
[18:41:36.778]                           }
[18:41:36.778]                         })
[18:41:36.778]                       }
[18:41:36.778]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.778]                       base::options(mc.cores = 1L)
[18:41:36.778]                     }
[18:41:36.778]                     base::local({
[18:41:36.778]                       for (pkg in "stats") {
[18:41:36.778]                         base::loadNamespace(pkg)
[18:41:36.778]                         base::library(pkg, character.only = TRUE)
[18:41:36.778]                       }
[18:41:36.778]                     })
[18:41:36.778]                   }
[18:41:36.778]                   ...future.strategy.old <- future::plan("list")
[18:41:36.778]                   options(future.plan = NULL)
[18:41:36.778]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.778]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.778]                 }
[18:41:36.778]                 ...future.workdir <- getwd()
[18:41:36.778]             }
[18:41:36.778]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.778]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.778]         }
[18:41:36.778]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.778]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.778]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.778]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.778]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.778]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.778]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.778]             base::names(...future.oldOptions))
[18:41:36.778]     }
[18:41:36.778]     if (FALSE) {
[18:41:36.778]     }
[18:41:36.778]     else {
[18:41:36.778]         if (TRUE) {
[18:41:36.778]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.778]                 open = "w")
[18:41:36.778]         }
[18:41:36.778]         else {
[18:41:36.778]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.778]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.778]         }
[18:41:36.778]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.778]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.778]             base::sink(type = "output", split = FALSE)
[18:41:36.778]             base::close(...future.stdout)
[18:41:36.778]         }, add = TRUE)
[18:41:36.778]     }
[18:41:36.778]     ...future.frame <- base::sys.nframe()
[18:41:36.778]     ...future.conditions <- base::list()
[18:41:36.778]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.778]     if (FALSE) {
[18:41:36.778]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.778]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.778]     }
[18:41:36.778]     ...future.result <- base::tryCatch({
[18:41:36.778]         base::withCallingHandlers({
[18:41:36.778]             ...future.value <- base::withVisible(base::local({
[18:41:36.778]                 ...future.makeSendCondition <- base::local({
[18:41:36.778]                   sendCondition <- NULL
[18:41:36.778]                   function(frame = 1L) {
[18:41:36.778]                     if (is.function(sendCondition)) 
[18:41:36.778]                       return(sendCondition)
[18:41:36.778]                     ns <- getNamespace("parallel")
[18:41:36.778]                     if (exists("sendData", mode = "function", 
[18:41:36.778]                       envir = ns)) {
[18:41:36.778]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.778]                         envir = ns)
[18:41:36.778]                       envir <- sys.frame(frame)
[18:41:36.778]                       master <- NULL
[18:41:36.778]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.778]                         !identical(envir, emptyenv())) {
[18:41:36.778]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.778]                           inherits = FALSE)) {
[18:41:36.778]                           master <- get("master", mode = "list", 
[18:41:36.778]                             envir = envir, inherits = FALSE)
[18:41:36.778]                           if (inherits(master, c("SOCKnode", 
[18:41:36.778]                             "SOCK0node"))) {
[18:41:36.778]                             sendCondition <<- function(cond) {
[18:41:36.778]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.778]                                 success = TRUE)
[18:41:36.778]                               parallel_sendData(master, data)
[18:41:36.778]                             }
[18:41:36.778]                             return(sendCondition)
[18:41:36.778]                           }
[18:41:36.778]                         }
[18:41:36.778]                         frame <- frame + 1L
[18:41:36.778]                         envir <- sys.frame(frame)
[18:41:36.778]                       }
[18:41:36.778]                     }
[18:41:36.778]                     sendCondition <<- function(cond) NULL
[18:41:36.778]                   }
[18:41:36.778]                 })
[18:41:36.778]                 withCallingHandlers({
[18:41:36.778]                   {
[18:41:36.778]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.778]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.778]                       ...future.globals.maxSize)) {
[18:41:36.778]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.778]                       on.exit(options(oopts), add = TRUE)
[18:41:36.778]                     }
[18:41:36.778]                     {
[18:41:36.778]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.778]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.778]                         USE.NAMES = FALSE)
[18:41:36.778]                       do.call(mapply, args = args)
[18:41:36.778]                     }
[18:41:36.778]                   }
[18:41:36.778]                 }, immediateCondition = function(cond) {
[18:41:36.778]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.778]                   sendCondition(cond)
[18:41:36.778]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.778]                   {
[18:41:36.778]                     inherits <- base::inherits
[18:41:36.778]                     invokeRestart <- base::invokeRestart
[18:41:36.778]                     is.null <- base::is.null
[18:41:36.778]                     muffled <- FALSE
[18:41:36.778]                     if (inherits(cond, "message")) {
[18:41:36.778]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.778]                       if (muffled) 
[18:41:36.778]                         invokeRestart("muffleMessage")
[18:41:36.778]                     }
[18:41:36.778]                     else if (inherits(cond, "warning")) {
[18:41:36.778]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.778]                       if (muffled) 
[18:41:36.778]                         invokeRestart("muffleWarning")
[18:41:36.778]                     }
[18:41:36.778]                     else if (inherits(cond, "condition")) {
[18:41:36.778]                       if (!is.null(pattern)) {
[18:41:36.778]                         computeRestarts <- base::computeRestarts
[18:41:36.778]                         grepl <- base::grepl
[18:41:36.778]                         restarts <- computeRestarts(cond)
[18:41:36.778]                         for (restart in restarts) {
[18:41:36.778]                           name <- restart$name
[18:41:36.778]                           if (is.null(name)) 
[18:41:36.778]                             next
[18:41:36.778]                           if (!grepl(pattern, name)) 
[18:41:36.778]                             next
[18:41:36.778]                           invokeRestart(restart)
[18:41:36.778]                           muffled <- TRUE
[18:41:36.778]                           break
[18:41:36.778]                         }
[18:41:36.778]                       }
[18:41:36.778]                     }
[18:41:36.778]                     invisible(muffled)
[18:41:36.778]                   }
[18:41:36.778]                   muffleCondition(cond)
[18:41:36.778]                 })
[18:41:36.778]             }))
[18:41:36.778]             future::FutureResult(value = ...future.value$value, 
[18:41:36.778]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.778]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.778]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.778]                     ...future.globalenv.names))
[18:41:36.778]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.778]         }, condition = base::local({
[18:41:36.778]             c <- base::c
[18:41:36.778]             inherits <- base::inherits
[18:41:36.778]             invokeRestart <- base::invokeRestart
[18:41:36.778]             length <- base::length
[18:41:36.778]             list <- base::list
[18:41:36.778]             seq.int <- base::seq.int
[18:41:36.778]             signalCondition <- base::signalCondition
[18:41:36.778]             sys.calls <- base::sys.calls
[18:41:36.778]             `[[` <- base::`[[`
[18:41:36.778]             `+` <- base::`+`
[18:41:36.778]             `<<-` <- base::`<<-`
[18:41:36.778]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.778]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.778]                   3L)]
[18:41:36.778]             }
[18:41:36.778]             function(cond) {
[18:41:36.778]                 is_error <- inherits(cond, "error")
[18:41:36.778]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.778]                   NULL)
[18:41:36.778]                 if (is_error) {
[18:41:36.778]                   sessionInformation <- function() {
[18:41:36.778]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.778]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.778]                       search = base::search(), system = base::Sys.info())
[18:41:36.778]                   }
[18:41:36.778]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.778]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.778]                     cond$call), session = sessionInformation(), 
[18:41:36.778]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.778]                   signalCondition(cond)
[18:41:36.778]                 }
[18:41:36.778]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.778]                 "immediateCondition"))) {
[18:41:36.778]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.778]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.778]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.778]                   if (TRUE && !signal) {
[18:41:36.778]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.778]                     {
[18:41:36.778]                       inherits <- base::inherits
[18:41:36.778]                       invokeRestart <- base::invokeRestart
[18:41:36.778]                       is.null <- base::is.null
[18:41:36.778]                       muffled <- FALSE
[18:41:36.778]                       if (inherits(cond, "message")) {
[18:41:36.778]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.778]                         if (muffled) 
[18:41:36.778]                           invokeRestart("muffleMessage")
[18:41:36.778]                       }
[18:41:36.778]                       else if (inherits(cond, "warning")) {
[18:41:36.778]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.778]                         if (muffled) 
[18:41:36.778]                           invokeRestart("muffleWarning")
[18:41:36.778]                       }
[18:41:36.778]                       else if (inherits(cond, "condition")) {
[18:41:36.778]                         if (!is.null(pattern)) {
[18:41:36.778]                           computeRestarts <- base::computeRestarts
[18:41:36.778]                           grepl <- base::grepl
[18:41:36.778]                           restarts <- computeRestarts(cond)
[18:41:36.778]                           for (restart in restarts) {
[18:41:36.778]                             name <- restart$name
[18:41:36.778]                             if (is.null(name)) 
[18:41:36.778]                               next
[18:41:36.778]                             if (!grepl(pattern, name)) 
[18:41:36.778]                               next
[18:41:36.778]                             invokeRestart(restart)
[18:41:36.778]                             muffled <- TRUE
[18:41:36.778]                             break
[18:41:36.778]                           }
[18:41:36.778]                         }
[18:41:36.778]                       }
[18:41:36.778]                       invisible(muffled)
[18:41:36.778]                     }
[18:41:36.778]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.778]                   }
[18:41:36.778]                 }
[18:41:36.778]                 else {
[18:41:36.778]                   if (TRUE) {
[18:41:36.778]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.778]                     {
[18:41:36.778]                       inherits <- base::inherits
[18:41:36.778]                       invokeRestart <- base::invokeRestart
[18:41:36.778]                       is.null <- base::is.null
[18:41:36.778]                       muffled <- FALSE
[18:41:36.778]                       if (inherits(cond, "message")) {
[18:41:36.778]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.778]                         if (muffled) 
[18:41:36.778]                           invokeRestart("muffleMessage")
[18:41:36.778]                       }
[18:41:36.778]                       else if (inherits(cond, "warning")) {
[18:41:36.778]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.778]                         if (muffled) 
[18:41:36.778]                           invokeRestart("muffleWarning")
[18:41:36.778]                       }
[18:41:36.778]                       else if (inherits(cond, "condition")) {
[18:41:36.778]                         if (!is.null(pattern)) {
[18:41:36.778]                           computeRestarts <- base::computeRestarts
[18:41:36.778]                           grepl <- base::grepl
[18:41:36.778]                           restarts <- computeRestarts(cond)
[18:41:36.778]                           for (restart in restarts) {
[18:41:36.778]                             name <- restart$name
[18:41:36.778]                             if (is.null(name)) 
[18:41:36.778]                               next
[18:41:36.778]                             if (!grepl(pattern, name)) 
[18:41:36.778]                               next
[18:41:36.778]                             invokeRestart(restart)
[18:41:36.778]                             muffled <- TRUE
[18:41:36.778]                             break
[18:41:36.778]                           }
[18:41:36.778]                         }
[18:41:36.778]                       }
[18:41:36.778]                       invisible(muffled)
[18:41:36.778]                     }
[18:41:36.778]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.778]                   }
[18:41:36.778]                 }
[18:41:36.778]             }
[18:41:36.778]         }))
[18:41:36.778]     }, error = function(ex) {
[18:41:36.778]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.778]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.778]                 ...future.rng), started = ...future.startTime, 
[18:41:36.778]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.778]             version = "1.8"), class = "FutureResult")
[18:41:36.778]     }, finally = {
[18:41:36.778]         if (!identical(...future.workdir, getwd())) 
[18:41:36.778]             setwd(...future.workdir)
[18:41:36.778]         {
[18:41:36.778]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.778]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.778]             }
[18:41:36.778]             base::options(...future.oldOptions)
[18:41:36.778]             if (.Platform$OS.type == "windows") {
[18:41:36.778]                 old_names <- names(...future.oldEnvVars)
[18:41:36.778]                 envs <- base::Sys.getenv()
[18:41:36.778]                 names <- names(envs)
[18:41:36.778]                 common <- intersect(names, old_names)
[18:41:36.778]                 added <- setdiff(names, old_names)
[18:41:36.778]                 removed <- setdiff(old_names, names)
[18:41:36.778]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.778]                   envs[common]]
[18:41:36.778]                 NAMES <- toupper(changed)
[18:41:36.778]                 args <- list()
[18:41:36.778]                 for (kk in seq_along(NAMES)) {
[18:41:36.778]                   name <- changed[[kk]]
[18:41:36.778]                   NAME <- NAMES[[kk]]
[18:41:36.778]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.778]                     next
[18:41:36.778]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.778]                 }
[18:41:36.778]                 NAMES <- toupper(added)
[18:41:36.778]                 for (kk in seq_along(NAMES)) {
[18:41:36.778]                   name <- added[[kk]]
[18:41:36.778]                   NAME <- NAMES[[kk]]
[18:41:36.778]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.778]                     next
[18:41:36.778]                   args[[name]] <- ""
[18:41:36.778]                 }
[18:41:36.778]                 NAMES <- toupper(removed)
[18:41:36.778]                 for (kk in seq_along(NAMES)) {
[18:41:36.778]                   name <- removed[[kk]]
[18:41:36.778]                   NAME <- NAMES[[kk]]
[18:41:36.778]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.778]                     next
[18:41:36.778]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.778]                 }
[18:41:36.778]                 if (length(args) > 0) 
[18:41:36.778]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.778]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.778]             }
[18:41:36.778]             else {
[18:41:36.778]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.778]             }
[18:41:36.778]             {
[18:41:36.778]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.778]                   0L) {
[18:41:36.778]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.778]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.778]                   base::options(opts)
[18:41:36.778]                 }
[18:41:36.778]                 {
[18:41:36.778]                   {
[18:41:36.778]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.778]                     NULL
[18:41:36.778]                   }
[18:41:36.778]                   options(future.plan = NULL)
[18:41:36.778]                   if (is.na(NA_character_)) 
[18:41:36.778]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.778]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.778]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.778]                     .init = FALSE)
[18:41:36.778]                 }
[18:41:36.778]             }
[18:41:36.778]         }
[18:41:36.778]     })
[18:41:36.778]     if (TRUE) {
[18:41:36.778]         base::sink(type = "output", split = FALSE)
[18:41:36.778]         if (TRUE) {
[18:41:36.778]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.778]         }
[18:41:36.778]         else {
[18:41:36.778]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.778]         }
[18:41:36.778]         base::close(...future.stdout)
[18:41:36.778]         ...future.stdout <- NULL
[18:41:36.778]     }
[18:41:36.778]     ...future.result$conditions <- ...future.conditions
[18:41:36.778]     ...future.result$finished <- base::Sys.time()
[18:41:36.778]     ...future.result
[18:41:36.778] }
[18:41:36.783] Exporting 5 global objects (1.23 KiB) to cluster node #1 ...
[18:41:36.784] Exporting '...future.FUN' (337 bytes) to cluster node #1 ...
[18:41:36.784] Exporting '...future.FUN' (337 bytes) to cluster node #1 ... DONE
[18:41:36.785] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:36.785] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:36.786] Exporting '...future.elements_ii' (399 bytes) to cluster node #1 ...
[18:41:36.789] Exporting '...future.elements_ii' (399 bytes) to cluster node #1 ... DONE
[18:41:36.789] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.789] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.790] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.790] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.790] Exporting 5 global objects (1.23 KiB) to cluster node #1 ... DONE
[18:41:36.791] MultisessionFuture started
[18:41:36.791] - Launch lazy future ... done
[18:41:36.791] run() for 'MultisessionFuture' ... done
[18:41:36.791] Created future:
[18:41:36.821] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.821] - Validating connection of MultisessionFuture
[18:41:36.821] - received message: FutureResult
[18:41:36.822] - Received FutureResult
[18:41:36.822] - Erased future from FutureRegistry
[18:41:36.822] result() for ClusterFuture ...
[18:41:36.822] - result already collected: FutureResult
[18:41:36.822] result() for ClusterFuture ... done
[18:41:36.822] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.792] MultisessionFuture:
[18:41:36.792] Label: 'future_Map-1'
[18:41:36.792] Expression:
[18:41:36.792] {
[18:41:36.792]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.792]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.792]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.792]         on.exit(options(oopts), add = TRUE)
[18:41:36.792]     }
[18:41:36.792]     {
[18:41:36.792]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.792]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.792]         do.call(mapply, args = args)
[18:41:36.792]     }
[18:41:36.792] }
[18:41:36.792] Lazy evaluation: FALSE
[18:41:36.792] Asynchronous evaluation: TRUE
[18:41:36.792] Local evaluation: TRUE
[18:41:36.792] Environment: R_GlobalEnv
[18:41:36.792] Capture standard output: TRUE
[18:41:36.792] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.792] Globals: 5 objects totaling 817 bytes (function '...future.FUN' of 337 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 399 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.792] Packages: 1 packages ('stats')
[18:41:36.792] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.792] Resolved: TRUE
[18:41:36.792] Value: <not collected>
[18:41:36.792] Conditions captured: <none>
[18:41:36.792] Early signaling: FALSE
[18:41:36.792] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.792] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.823] Chunk #1 of 2 ... DONE
[18:41:36.823] Chunk #2 of 2 ...
[18:41:36.823]  - Finding globals in '...' for chunk #2 ...
[18:41:36.824] getGlobalsAndPackages() ...
[18:41:36.824] Searching for globals...
[18:41:36.824] 
[18:41:36.824] Searching for globals ... DONE
[18:41:36.824] - globals: [0] <none>
[18:41:36.825] getGlobalsAndPackages() ... DONE
[18:41:36.825]    + additional globals found: [n=0] 
[18:41:36.825]    + additional namespaces needed: [n=0] 
[18:41:36.825]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:36.825]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.825]  - seeds: <none>
[18:41:36.826]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.826] getGlobalsAndPackages() ...
[18:41:36.826] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.826] Resolving globals: FALSE
[18:41:36.827] The total size of the 5 globals is 993 bytes (993 bytes)
[18:41:36.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 993 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (575 bytes of class 'list'), '...future.FUN' (337 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:36.828] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.828] - packages: [1] 'stats'
[18:41:36.828] getGlobalsAndPackages() ... DONE
[18:41:36.828] run() for 'Future' ...
[18:41:36.829] - state: 'created'
[18:41:36.829] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.844] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.844] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.845]   - Field: 'node'
[18:41:36.845]   - Field: 'label'
[18:41:36.845]   - Field: 'local'
[18:41:36.845]   - Field: 'owner'
[18:41:36.845]   - Field: 'envir'
[18:41:36.846]   - Field: 'workers'
[18:41:36.846]   - Field: 'packages'
[18:41:36.846]   - Field: 'gc'
[18:41:36.846]   - Field: 'conditions'
[18:41:36.846]   - Field: 'persistent'
[18:41:36.846]   - Field: 'expr'
[18:41:36.847]   - Field: 'uuid'
[18:41:36.847]   - Field: 'seed'
[18:41:36.847]   - Field: 'version'
[18:41:36.848]   - Field: 'result'
[18:41:36.848]   - Field: 'asynchronous'
[18:41:36.848]   - Field: 'calls'
[18:41:36.849]   - Field: 'globals'
[18:41:36.849]   - Field: 'stdout'
[18:41:36.849]   - Field: 'earlySignal'
[18:41:36.850]   - Field: 'lazy'
[18:41:36.850]   - Field: 'state'
[18:41:36.850] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.851] - Launch lazy future ...
[18:41:36.851] Packages needed by the future expression (n = 1): 'stats'
[18:41:36.851] Packages needed by future strategies (n = 0): <none>
[18:41:36.852] {
[18:41:36.852]     {
[18:41:36.852]         {
[18:41:36.852]             ...future.startTime <- base::Sys.time()
[18:41:36.852]             {
[18:41:36.852]                 {
[18:41:36.852]                   {
[18:41:36.852]                     {
[18:41:36.852]                       {
[18:41:36.852]                         base::local({
[18:41:36.852]                           has_future <- base::requireNamespace("future", 
[18:41:36.852]                             quietly = TRUE)
[18:41:36.852]                           if (has_future) {
[18:41:36.852]                             ns <- base::getNamespace("future")
[18:41:36.852]                             version <- ns[[".package"]][["version"]]
[18:41:36.852]                             if (is.null(version)) 
[18:41:36.852]                               version <- utils::packageVersion("future")
[18:41:36.852]                           }
[18:41:36.852]                           else {
[18:41:36.852]                             version <- NULL
[18:41:36.852]                           }
[18:41:36.852]                           if (!has_future || version < "1.8.0") {
[18:41:36.852]                             info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.852]                               "", base::R.version$version.string), 
[18:41:36.852]                               platform = base::sprintf("%s (%s-bit)", 
[18:41:36.852]                                 base::R.version$platform, 8 * 
[18:41:36.852]                                   base::.Machine$sizeof.pointer), 
[18:41:36.852]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.852]                                 "release", "version")], collapse = " "), 
[18:41:36.852]                               hostname = base::Sys.info()[["nodename"]])
[18:41:36.852]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.852]                               info)
[18:41:36.852]                             info <- base::paste(info, collapse = "; ")
[18:41:36.852]                             if (!has_future) {
[18:41:36.852]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.852]                                 info)
[18:41:36.852]                             }
[18:41:36.852]                             else {
[18:41:36.852]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.852]                                 info, version)
[18:41:36.852]                             }
[18:41:36.852]                             base::stop(msg)
[18:41:36.852]                           }
[18:41:36.852]                         })
[18:41:36.852]                       }
[18:41:36.852]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.852]                       base::options(mc.cores = 1L)
[18:41:36.852]                     }
[18:41:36.852]                     base::local({
[18:41:36.852]                       for (pkg in "stats") {
[18:41:36.852]                         base::loadNamespace(pkg)
[18:41:36.852]                         base::library(pkg, character.only = TRUE)
[18:41:36.852]                       }
[18:41:36.852]                     })
[18:41:36.852]                   }
[18:41:36.852]                   ...future.strategy.old <- future::plan("list")
[18:41:36.852]                   options(future.plan = NULL)
[18:41:36.852]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.852]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.852]                 }
[18:41:36.852]                 ...future.workdir <- getwd()
[18:41:36.852]             }
[18:41:36.852]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.852]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.852]         }
[18:41:36.852]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.852]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.852]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.852]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.852]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.852]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.852]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.852]             base::names(...future.oldOptions))
[18:41:36.852]     }
[18:41:36.852]     if (FALSE) {
[18:41:36.852]     }
[18:41:36.852]     else {
[18:41:36.852]         if (TRUE) {
[18:41:36.852]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.852]                 open = "w")
[18:41:36.852]         }
[18:41:36.852]         else {
[18:41:36.852]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.852]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.852]         }
[18:41:36.852]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.852]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.852]             base::sink(type = "output", split = FALSE)
[18:41:36.852]             base::close(...future.stdout)
[18:41:36.852]         }, add = TRUE)
[18:41:36.852]     }
[18:41:36.852]     ...future.frame <- base::sys.nframe()
[18:41:36.852]     ...future.conditions <- base::list()
[18:41:36.852]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.852]     if (FALSE) {
[18:41:36.852]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.852]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.852]     }
[18:41:36.852]     ...future.result <- base::tryCatch({
[18:41:36.852]         base::withCallingHandlers({
[18:41:36.852]             ...future.value <- base::withVisible(base::local({
[18:41:36.852]                 ...future.makeSendCondition <- base::local({
[18:41:36.852]                   sendCondition <- NULL
[18:41:36.852]                   function(frame = 1L) {
[18:41:36.852]                     if (is.function(sendCondition)) 
[18:41:36.852]                       return(sendCondition)
[18:41:36.852]                     ns <- getNamespace("parallel")
[18:41:36.852]                     if (exists("sendData", mode = "function", 
[18:41:36.852]                       envir = ns)) {
[18:41:36.852]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.852]                         envir = ns)
[18:41:36.852]                       envir <- sys.frame(frame)
[18:41:36.852]                       master <- NULL
[18:41:36.852]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.852]                         !identical(envir, emptyenv())) {
[18:41:36.852]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.852]                           inherits = FALSE)) {
[18:41:36.852]                           master <- get("master", mode = "list", 
[18:41:36.852]                             envir = envir, inherits = FALSE)
[18:41:36.852]                           if (inherits(master, c("SOCKnode", 
[18:41:36.852]                             "SOCK0node"))) {
[18:41:36.852]                             sendCondition <<- function(cond) {
[18:41:36.852]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.852]                                 success = TRUE)
[18:41:36.852]                               parallel_sendData(master, data)
[18:41:36.852]                             }
[18:41:36.852]                             return(sendCondition)
[18:41:36.852]                           }
[18:41:36.852]                         }
[18:41:36.852]                         frame <- frame + 1L
[18:41:36.852]                         envir <- sys.frame(frame)
[18:41:36.852]                       }
[18:41:36.852]                     }
[18:41:36.852]                     sendCondition <<- function(cond) NULL
[18:41:36.852]                   }
[18:41:36.852]                 })
[18:41:36.852]                 withCallingHandlers({
[18:41:36.852]                   {
[18:41:36.852]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.852]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.852]                       ...future.globals.maxSize)) {
[18:41:36.852]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.852]                       on.exit(options(oopts), add = TRUE)
[18:41:36.852]                     }
[18:41:36.852]                     {
[18:41:36.852]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.852]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.852]                         USE.NAMES = FALSE)
[18:41:36.852]                       do.call(mapply, args = args)
[18:41:36.852]                     }
[18:41:36.852]                   }
[18:41:36.852]                 }, immediateCondition = function(cond) {
[18:41:36.852]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.852]                   sendCondition(cond)
[18:41:36.852]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.852]                   {
[18:41:36.852]                     inherits <- base::inherits
[18:41:36.852]                     invokeRestart <- base::invokeRestart
[18:41:36.852]                     is.null <- base::is.null
[18:41:36.852]                     muffled <- FALSE
[18:41:36.852]                     if (inherits(cond, "message")) {
[18:41:36.852]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.852]                       if (muffled) 
[18:41:36.852]                         invokeRestart("muffleMessage")
[18:41:36.852]                     }
[18:41:36.852]                     else if (inherits(cond, "warning")) {
[18:41:36.852]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.852]                       if (muffled) 
[18:41:36.852]                         invokeRestart("muffleWarning")
[18:41:36.852]                     }
[18:41:36.852]                     else if (inherits(cond, "condition")) {
[18:41:36.852]                       if (!is.null(pattern)) {
[18:41:36.852]                         computeRestarts <- base::computeRestarts
[18:41:36.852]                         grepl <- base::grepl
[18:41:36.852]                         restarts <- computeRestarts(cond)
[18:41:36.852]                         for (restart in restarts) {
[18:41:36.852]                           name <- restart$name
[18:41:36.852]                           if (is.null(name)) 
[18:41:36.852]                             next
[18:41:36.852]                           if (!grepl(pattern, name)) 
[18:41:36.852]                             next
[18:41:36.852]                           invokeRestart(restart)
[18:41:36.852]                           muffled <- TRUE
[18:41:36.852]                           break
[18:41:36.852]                         }
[18:41:36.852]                       }
[18:41:36.852]                     }
[18:41:36.852]                     invisible(muffled)
[18:41:36.852]                   }
[18:41:36.852]                   muffleCondition(cond)
[18:41:36.852]                 })
[18:41:36.852]             }))
[18:41:36.852]             future::FutureResult(value = ...future.value$value, 
[18:41:36.852]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.852]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.852]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.852]                     ...future.globalenv.names))
[18:41:36.852]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.852]         }, condition = base::local({
[18:41:36.852]             c <- base::c
[18:41:36.852]             inherits <- base::inherits
[18:41:36.852]             invokeRestart <- base::invokeRestart
[18:41:36.852]             length <- base::length
[18:41:36.852]             list <- base::list
[18:41:36.852]             seq.int <- base::seq.int
[18:41:36.852]             signalCondition <- base::signalCondition
[18:41:36.852]             sys.calls <- base::sys.calls
[18:41:36.852]             `[[` <- base::`[[`
[18:41:36.852]             `+` <- base::`+`
[18:41:36.852]             `<<-` <- base::`<<-`
[18:41:36.852]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.852]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.852]                   3L)]
[18:41:36.852]             }
[18:41:36.852]             function(cond) {
[18:41:36.852]                 is_error <- inherits(cond, "error")
[18:41:36.852]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.852]                   NULL)
[18:41:36.852]                 if (is_error) {
[18:41:36.852]                   sessionInformation <- function() {
[18:41:36.852]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.852]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.852]                       search = base::search(), system = base::Sys.info())
[18:41:36.852]                   }
[18:41:36.852]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.852]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.852]                     cond$call), session = sessionInformation(), 
[18:41:36.852]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.852]                   signalCondition(cond)
[18:41:36.852]                 }
[18:41:36.852]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.852]                 "immediateCondition"))) {
[18:41:36.852]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.852]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.852]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.852]                   if (TRUE && !signal) {
[18:41:36.852]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.852]                     {
[18:41:36.852]                       inherits <- base::inherits
[18:41:36.852]                       invokeRestart <- base::invokeRestart
[18:41:36.852]                       is.null <- base::is.null
[18:41:36.852]                       muffled <- FALSE
[18:41:36.852]                       if (inherits(cond, "message")) {
[18:41:36.852]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.852]                         if (muffled) 
[18:41:36.852]                           invokeRestart("muffleMessage")
[18:41:36.852]                       }
[18:41:36.852]                       else if (inherits(cond, "warning")) {
[18:41:36.852]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.852]                         if (muffled) 
[18:41:36.852]                           invokeRestart("muffleWarning")
[18:41:36.852]                       }
[18:41:36.852]                       else if (inherits(cond, "condition")) {
[18:41:36.852]                         if (!is.null(pattern)) {
[18:41:36.852]                           computeRestarts <- base::computeRestarts
[18:41:36.852]                           grepl <- base::grepl
[18:41:36.852]                           restarts <- computeRestarts(cond)
[18:41:36.852]                           for (restart in restarts) {
[18:41:36.852]                             name <- restart$name
[18:41:36.852]                             if (is.null(name)) 
[18:41:36.852]                               next
[18:41:36.852]                             if (!grepl(pattern, name)) 
[18:41:36.852]                               next
[18:41:36.852]                             invokeRestart(restart)
[18:41:36.852]                             muffled <- TRUE
[18:41:36.852]                             break
[18:41:36.852]                           }
[18:41:36.852]                         }
[18:41:36.852]                       }
[18:41:36.852]                       invisible(muffled)
[18:41:36.852]                     }
[18:41:36.852]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.852]                   }
[18:41:36.852]                 }
[18:41:36.852]                 else {
[18:41:36.852]                   if (TRUE) {
[18:41:36.852]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.852]                     {
[18:41:36.852]                       inherits <- base::inherits
[18:41:36.852]                       invokeRestart <- base::invokeRestart
[18:41:36.852]                       is.null <- base::is.null
[18:41:36.852]                       muffled <- FALSE
[18:41:36.852]                       if (inherits(cond, "message")) {
[18:41:36.852]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.852]                         if (muffled) 
[18:41:36.852]                           invokeRestart("muffleMessage")
[18:41:36.852]                       }
[18:41:36.852]                       else if (inherits(cond, "warning")) {
[18:41:36.852]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.852]                         if (muffled) 
[18:41:36.852]                           invokeRestart("muffleWarning")
[18:41:36.852]                       }
[18:41:36.852]                       else if (inherits(cond, "condition")) {
[18:41:36.852]                         if (!is.null(pattern)) {
[18:41:36.852]                           computeRestarts <- base::computeRestarts
[18:41:36.852]                           grepl <- base::grepl
[18:41:36.852]                           restarts <- computeRestarts(cond)
[18:41:36.852]                           for (restart in restarts) {
[18:41:36.852]                             name <- restart$name
[18:41:36.852]                             if (is.null(name)) 
[18:41:36.852]                               next
[18:41:36.852]                             if (!grepl(pattern, name)) 
[18:41:36.852]                               next
[18:41:36.852]                             invokeRestart(restart)
[18:41:36.852]                             muffled <- TRUE
[18:41:36.852]                             break
[18:41:36.852]                           }
[18:41:36.852]                         }
[18:41:36.852]                       }
[18:41:36.852]                       invisible(muffled)
[18:41:36.852]                     }
[18:41:36.852]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.852]                   }
[18:41:36.852]                 }
[18:41:36.852]             }
[18:41:36.852]         }))
[18:41:36.852]     }, error = function(ex) {
[18:41:36.852]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.852]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.852]                 ...future.rng), started = ...future.startTime, 
[18:41:36.852]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.852]             version = "1.8"), class = "FutureResult")
[18:41:36.852]     }, finally = {
[18:41:36.852]         if (!identical(...future.workdir, getwd())) 
[18:41:36.852]             setwd(...future.workdir)
[18:41:36.852]         {
[18:41:36.852]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.852]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.852]             }
[18:41:36.852]             base::options(...future.oldOptions)
[18:41:36.852]             if (.Platform$OS.type == "windows") {
[18:41:36.852]                 old_names <- names(...future.oldEnvVars)
[18:41:36.852]                 envs <- base::Sys.getenv()
[18:41:36.852]                 names <- names(envs)
[18:41:36.852]                 common <- intersect(names, old_names)
[18:41:36.852]                 added <- setdiff(names, old_names)
[18:41:36.852]                 removed <- setdiff(old_names, names)
[18:41:36.852]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.852]                   envs[common]]
[18:41:36.852]                 NAMES <- toupper(changed)
[18:41:36.852]                 args <- list()
[18:41:36.852]                 for (kk in seq_along(NAMES)) {
[18:41:36.852]                   name <- changed[[kk]]
[18:41:36.852]                   NAME <- NAMES[[kk]]
[18:41:36.852]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.852]                     next
[18:41:36.852]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.852]                 }
[18:41:36.852]                 NAMES <- toupper(added)
[18:41:36.852]                 for (kk in seq_along(NAMES)) {
[18:41:36.852]                   name <- added[[kk]]
[18:41:36.852]                   NAME <- NAMES[[kk]]
[18:41:36.852]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.852]                     next
[18:41:36.852]                   args[[name]] <- ""
[18:41:36.852]                 }
[18:41:36.852]                 NAMES <- toupper(removed)
[18:41:36.852]                 for (kk in seq_along(NAMES)) {
[18:41:36.852]                   name <- removed[[kk]]
[18:41:36.852]                   NAME <- NAMES[[kk]]
[18:41:36.852]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.852]                     next
[18:41:36.852]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.852]                 }
[18:41:36.852]                 if (length(args) > 0) 
[18:41:36.852]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.852]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.852]             }
[18:41:36.852]             else {
[18:41:36.852]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.852]             }
[18:41:36.852]             {
[18:41:36.852]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.852]                   0L) {
[18:41:36.852]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.852]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.852]                   base::options(opts)
[18:41:36.852]                 }
[18:41:36.852]                 {
[18:41:36.852]                   {
[18:41:36.852]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.852]                     NULL
[18:41:36.852]                   }
[18:41:36.852]                   options(future.plan = NULL)
[18:41:36.852]                   if (is.na(NA_character_)) 
[18:41:36.852]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.852]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.852]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.852]                     .init = FALSE)
[18:41:36.852]                 }
[18:41:36.852]             }
[18:41:36.852]         }
[18:41:36.852]     })
[18:41:36.852]     if (TRUE) {
[18:41:36.852]         base::sink(type = "output", split = FALSE)
[18:41:36.852]         if (TRUE) {
[18:41:36.852]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.852]         }
[18:41:36.852]         else {
[18:41:36.852]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.852]         }
[18:41:36.852]         base::close(...future.stdout)
[18:41:36.852]         ...future.stdout <- NULL
[18:41:36.852]     }
[18:41:36.852]     ...future.result$conditions <- ...future.conditions
[18:41:36.852]     ...future.result$finished <- base::Sys.time()
[18:41:36.852]     ...future.result
[18:41:36.852] }
[18:41:36.858] Exporting 5 global objects (1.41 KiB) to cluster node #1 ...
[18:41:36.858] Exporting '...future.FUN' (337 bytes) to cluster node #1 ...
[18:41:36.858] Exporting '...future.FUN' (337 bytes) to cluster node #1 ... DONE
[18:41:36.859] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:36.859] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:36.860] Exporting '...future.elements_ii' (575 bytes) to cluster node #1 ...
[18:41:36.860] Exporting '...future.elements_ii' (575 bytes) to cluster node #1 ... DONE
[18:41:36.861] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.861] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.861] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.862] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.862] Exporting 5 global objects (1.41 KiB) to cluster node #1 ... DONE
[18:41:36.863] MultisessionFuture started
[18:41:36.863] - Launch lazy future ... done
[18:41:36.864] run() for 'MultisessionFuture' ... done
[18:41:36.864] Created future:
[18:41:36.887] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.887] - Validating connection of MultisessionFuture
[18:41:36.888] - received message: FutureResult
[18:41:36.888] - Received FutureResult
[18:41:36.888] - Erased future from FutureRegistry
[18:41:36.888] result() for ClusterFuture ...
[18:41:36.888] - result already collected: FutureResult
[18:41:36.888] result() for ClusterFuture ... done
[18:41:36.889] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.864] MultisessionFuture:
[18:41:36.864] Label: 'future_Map-2'
[18:41:36.864] Expression:
[18:41:36.864] {
[18:41:36.864]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.864]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.864]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.864]         on.exit(options(oopts), add = TRUE)
[18:41:36.864]     }
[18:41:36.864]     {
[18:41:36.864]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.864]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.864]         do.call(mapply, args = args)
[18:41:36.864]     }
[18:41:36.864] }
[18:41:36.864] Lazy evaluation: FALSE
[18:41:36.864] Asynchronous evaluation: TRUE
[18:41:36.864] Local evaluation: TRUE
[18:41:36.864] Environment: R_GlobalEnv
[18:41:36.864] Capture standard output: TRUE
[18:41:36.864] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.864] Globals: 5 objects totaling 993 bytes (function '...future.FUN' of 337 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 575 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.864] Packages: 1 packages ('stats')
[18:41:36.864] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.864] Resolved: TRUE
[18:41:36.864] Value: <not collected>
[18:41:36.864] Conditions captured: <none>
[18:41:36.864] Early signaling: FALSE
[18:41:36.864] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.864] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.889] Chunk #2 of 2 ... DONE
[18:41:36.889] Launching 2 futures (chunks) ... DONE
[18:41:36.889] Resolving 2 futures (chunks) ...
[18:41:36.890] resolve() on list ...
[18:41:36.890]  recursive: 0
[18:41:36.890]  length: 2
[18:41:36.890] 
[18:41:36.890] Future #1
[18:41:36.890] result() for ClusterFuture ...
[18:41:36.891] - result already collected: FutureResult
[18:41:36.891] result() for ClusterFuture ... done
[18:41:36.891] result() for ClusterFuture ...
[18:41:36.891] - result already collected: FutureResult
[18:41:36.891] result() for ClusterFuture ... done
[18:41:36.891] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:36.892] - nx: 2
[18:41:36.892] - relay: TRUE
[18:41:36.892] - stdout: TRUE
[18:41:36.892] - signal: TRUE
[18:41:36.892] - resignal: FALSE
[18:41:36.892] - force: TRUE
[18:41:36.892] - relayed: [n=2] FALSE, FALSE
[18:41:36.893] - queued futures: [n=2] FALSE, FALSE
[18:41:36.893]  - until=1
[18:41:36.893]  - relaying element #1
[18:41:36.893] result() for ClusterFuture ...
[18:41:36.893] - result already collected: FutureResult
[18:41:36.893] result() for ClusterFuture ... done
[18:41:36.894] result() for ClusterFuture ...
[18:41:36.894] - result already collected: FutureResult
[18:41:36.894] result() for ClusterFuture ... done
[18:41:36.894] result() for ClusterFuture ...
[18:41:36.894] - result already collected: FutureResult
[18:41:36.895] result() for ClusterFuture ... done
[18:41:36.895] result() for ClusterFuture ...
[18:41:36.895] - result already collected: FutureResult
[18:41:36.895] result() for ClusterFuture ... done
[18:41:36.895] - relayed: [n=2] TRUE, FALSE
[18:41:36.895] - queued futures: [n=2] TRUE, FALSE
[18:41:36.896] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:36.896]  length: 1 (resolved future 1)
[18:41:36.896] Future #2
[18:41:36.896] result() for ClusterFuture ...
[18:41:36.896] - result already collected: FutureResult
[18:41:36.896] result() for ClusterFuture ... done
[18:41:36.897] result() for ClusterFuture ...
[18:41:36.897] - result already collected: FutureResult
[18:41:36.897] result() for ClusterFuture ... done
[18:41:36.897] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:36.897] - nx: 2
[18:41:36.897] - relay: TRUE
[18:41:36.898] - stdout: TRUE
[18:41:36.898] - signal: TRUE
[18:41:36.898] - resignal: FALSE
[18:41:36.898] - force: TRUE
[18:41:36.898] - relayed: [n=2] TRUE, FALSE
[18:41:36.898] - queued futures: [n=2] TRUE, FALSE
[18:41:36.899]  - until=2
[18:41:36.899]  - relaying element #2
[18:41:36.899] result() for ClusterFuture ...
[18:41:36.899] - result already collected: FutureResult
[18:41:36.899] result() for ClusterFuture ... done
[18:41:36.899] result() for ClusterFuture ...
[18:41:36.899] - result already collected: FutureResult
[18:41:36.900] result() for ClusterFuture ... done
[18:41:36.900] result() for ClusterFuture ...
[18:41:36.900] - result already collected: FutureResult
[18:41:36.900] result() for ClusterFuture ... done
[18:41:36.900] result() for ClusterFuture ...
[18:41:36.900] - result already collected: FutureResult
[18:41:36.901] result() for ClusterFuture ... done
[18:41:36.901] - relayed: [n=2] TRUE, TRUE
[18:41:36.901] - queued futures: [n=2] TRUE, TRUE
[18:41:36.901] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:36.901]  length: 0 (resolved future 2)
[18:41:36.901] Relaying remaining futures
[18:41:36.902] signalConditionsASAP(NULL, pos=0) ...
[18:41:36.902] - nx: 2
[18:41:36.902] - relay: TRUE
[18:41:36.902] - stdout: TRUE
[18:41:36.902] - signal: TRUE
[18:41:36.902] - resignal: FALSE
[18:41:36.902] - force: TRUE
[18:41:36.903] - relayed: [n=2] TRUE, TRUE
[18:41:36.903] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:36.903] - relayed: [n=2] TRUE, TRUE
[18:41:36.903] - queued futures: [n=2] TRUE, TRUE
[18:41:36.903] signalConditionsASAP(NULL, pos=0) ... done
[18:41:36.903] resolve() on list ... DONE
[18:41:36.904] result() for ClusterFuture ...
[18:41:36.904] - result already collected: FutureResult
[18:41:36.904] result() for ClusterFuture ... done
[18:41:36.904] result() for ClusterFuture ...
[18:41:36.904] - result already collected: FutureResult
[18:41:36.904] result() for ClusterFuture ... done
[18:41:36.905] result() for ClusterFuture ...
[18:41:36.905] - result already collected: FutureResult
[18:41:36.905] result() for ClusterFuture ... done
[18:41:36.905] result() for ClusterFuture ...
[18:41:36.905] - result already collected: FutureResult
[18:41:36.905] result() for ClusterFuture ... done
[18:41:36.906]  - Number of value chunks collected: 2
[18:41:36.906] Resolving 2 futures (chunks) ... DONE
[18:41:36.906] Reducing values from 2 chunks ...
[18:41:36.906]  - Number of values collected after concatenation: 5
[18:41:36.906]  - Number of values expected: 5
[18:41:36.906] Reducing values from 2 chunks ... DONE
[18:41:36.906] future_mapply() ... DONE
- future_mapply() - 'max-or-0-if' recycling rule ...
[18:41:36.909] future_mapply() ...
[18:41:36.912] Number of chunks: 2
[18:41:36.912] getGlobalsAndPackagesXApply() ...
[18:41:36.912]  - future.globals: TRUE
[18:41:36.912] getGlobalsAndPackages() ...
[18:41:36.913] Searching for globals...
[18:41:36.913] - globals found: [1] 'FUN'
[18:41:36.913] Searching for globals ... DONE
[18:41:36.914] Resolving globals: FALSE
[18:41:36.914] The total size of the 1 globals is 32 bytes (32 bytes)
[18:41:36.915] The total size of the 1 globals exported for future expression ('FUN()') is 32 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (32 bytes of class 'function')
[18:41:36.915] - globals: [1] 'FUN'
[18:41:36.915] 
[18:41:36.915] getGlobalsAndPackages() ... DONE
[18:41:36.915]  - globals found/used: [n=1] 'FUN'
[18:41:36.915]  - needed namespaces: [n=0] 
[18:41:36.916] Finding globals ... DONE
[18:41:36.916] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:36.916] List of 2
[18:41:36.916]  $ ...future.FUN:function (e1, e2)  
[18:41:36.916]  $ MoreArgs     : NULL
[18:41:36.916]  - attr(*, "where")=List of 2
[18:41:36.916]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:36.916]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:36.916]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:36.916]  - attr(*, "resolved")= logi FALSE
[18:41:36.916]  - attr(*, "total_size")= num NA
[18:41:36.923] Packages to be attached in all futures: [n=0] 
[18:41:36.923] getGlobalsAndPackagesXApply() ... DONE
[18:41:36.923] Number of futures (= number of chunks): 2
[18:41:36.923] Launching 2 futures (chunks) ...
[18:41:36.923] Chunk #1 of 2 ...
[18:41:36.924]  - Finding globals in '...' for chunk #1 ...
[18:41:36.924] getGlobalsAndPackages() ...
[18:41:36.924] Searching for globals...
[18:41:36.924] 
[18:41:36.925] Searching for globals ... DONE
[18:41:36.925] - globals: [0] <none>
[18:41:36.925] getGlobalsAndPackages() ... DONE
[18:41:36.925]    + additional globals found: [n=0] 
[18:41:36.926]    + additional namespaces needed: [n=0] 
[18:41:36.926]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:36.926]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.926]  - seeds: <none>
[18:41:36.927]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.927] getGlobalsAndPackages() ...
[18:41:36.927] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.928] Resolving globals: FALSE
[18:41:36.928] The total size of the 5 globals is 188 bytes (188 bytes)
[18:41:36.929] 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 188 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (75 bytes of class 'list'), '...future.FUN' (32 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:36.929] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.930] 
[18:41:36.930] getGlobalsAndPackages() ... DONE
[18:41:36.930] run() for 'Future' ...
[18:41:36.930] - state: 'created'
[18:41:36.931] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:36.946] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.946] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:36.946]   - Field: 'node'
[18:41:36.946]   - Field: 'label'
[18:41:36.946]   - Field: 'local'
[18:41:36.947]   - Field: 'owner'
[18:41:36.947]   - Field: 'envir'
[18:41:36.947]   - Field: 'workers'
[18:41:36.947]   - Field: 'packages'
[18:41:36.947]   - Field: 'gc'
[18:41:36.947]   - Field: 'conditions'
[18:41:36.948]   - Field: 'persistent'
[18:41:36.948]   - Field: 'expr'
[18:41:36.948]   - Field: 'uuid'
[18:41:36.948]   - Field: 'seed'
[18:41:36.948]   - Field: 'version'
[18:41:36.948]   - Field: 'result'
[18:41:36.949]   - Field: 'asynchronous'
[18:41:36.949]   - Field: 'calls'
[18:41:36.949]   - Field: 'globals'
[18:41:36.949]   - Field: 'stdout'
[18:41:36.949]   - Field: 'earlySignal'
[18:41:36.950]   - Field: 'lazy'
[18:41:36.950]   - Field: 'state'
[18:41:36.950] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:36.950] - Launch lazy future ...
[18:41:36.950] Packages needed by the future expression (n = 0): <none>
[18:41:36.951] Packages needed by future strategies (n = 0): <none>
[18:41:36.951] {
[18:41:36.951]     {
[18:41:36.951]         {
[18:41:36.951]             ...future.startTime <- base::Sys.time()
[18:41:36.951]             {
[18:41:36.951]                 {
[18:41:36.951]                   {
[18:41:36.951]                     {
[18:41:36.951]                       base::local({
[18:41:36.951]                         has_future <- base::requireNamespace("future", 
[18:41:36.951]                           quietly = TRUE)
[18:41:36.951]                         if (has_future) {
[18:41:36.951]                           ns <- base::getNamespace("future")
[18:41:36.951]                           version <- ns[[".package"]][["version"]]
[18:41:36.951]                           if (is.null(version)) 
[18:41:36.951]                             version <- utils::packageVersion("future")
[18:41:36.951]                         }
[18:41:36.951]                         else {
[18:41:36.951]                           version <- NULL
[18:41:36.951]                         }
[18:41:36.951]                         if (!has_future || version < "1.8.0") {
[18:41:36.951]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:36.951]                             "", base::R.version$version.string), 
[18:41:36.951]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:36.951]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:36.951]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:36.951]                               "release", "version")], collapse = " "), 
[18:41:36.951]                             hostname = base::Sys.info()[["nodename"]])
[18:41:36.951]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:36.951]                             info)
[18:41:36.951]                           info <- base::paste(info, collapse = "; ")
[18:41:36.951]                           if (!has_future) {
[18:41:36.951]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:36.951]                               info)
[18:41:36.951]                           }
[18:41:36.951]                           else {
[18:41:36.951]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:36.951]                               info, version)
[18:41:36.951]                           }
[18:41:36.951]                           base::stop(msg)
[18:41:36.951]                         }
[18:41:36.951]                       })
[18:41:36.951]                     }
[18:41:36.951]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:36.951]                     base::options(mc.cores = 1L)
[18:41:36.951]                   }
[18:41:36.951]                   ...future.strategy.old <- future::plan("list")
[18:41:36.951]                   options(future.plan = NULL)
[18:41:36.951]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.951]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:36.951]                 }
[18:41:36.951]                 ...future.workdir <- getwd()
[18:41:36.951]             }
[18:41:36.951]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:36.951]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:36.951]         }
[18:41:36.951]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:36.951]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:36.951]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:36.951]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:36.951]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:36.951]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:36.951]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:36.951]             base::names(...future.oldOptions))
[18:41:36.951]     }
[18:41:36.951]     if (FALSE) {
[18:41:36.951]     }
[18:41:36.951]     else {
[18:41:36.951]         if (TRUE) {
[18:41:36.951]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:36.951]                 open = "w")
[18:41:36.951]         }
[18:41:36.951]         else {
[18:41:36.951]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:36.951]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:36.951]         }
[18:41:36.951]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:36.951]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:36.951]             base::sink(type = "output", split = FALSE)
[18:41:36.951]             base::close(...future.stdout)
[18:41:36.951]         }, add = TRUE)
[18:41:36.951]     }
[18:41:36.951]     ...future.frame <- base::sys.nframe()
[18:41:36.951]     ...future.conditions <- base::list()
[18:41:36.951]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:36.951]     if (FALSE) {
[18:41:36.951]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:36.951]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:36.951]     }
[18:41:36.951]     ...future.result <- base::tryCatch({
[18:41:36.951]         base::withCallingHandlers({
[18:41:36.951]             ...future.value <- base::withVisible(base::local({
[18:41:36.951]                 ...future.makeSendCondition <- base::local({
[18:41:36.951]                   sendCondition <- NULL
[18:41:36.951]                   function(frame = 1L) {
[18:41:36.951]                     if (is.function(sendCondition)) 
[18:41:36.951]                       return(sendCondition)
[18:41:36.951]                     ns <- getNamespace("parallel")
[18:41:36.951]                     if (exists("sendData", mode = "function", 
[18:41:36.951]                       envir = ns)) {
[18:41:36.951]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:36.951]                         envir = ns)
[18:41:36.951]                       envir <- sys.frame(frame)
[18:41:36.951]                       master <- NULL
[18:41:36.951]                       while (!identical(envir, .GlobalEnv) && 
[18:41:36.951]                         !identical(envir, emptyenv())) {
[18:41:36.951]                         if (exists("master", mode = "list", envir = envir, 
[18:41:36.951]                           inherits = FALSE)) {
[18:41:36.951]                           master <- get("master", mode = "list", 
[18:41:36.951]                             envir = envir, inherits = FALSE)
[18:41:36.951]                           if (inherits(master, c("SOCKnode", 
[18:41:36.951]                             "SOCK0node"))) {
[18:41:36.951]                             sendCondition <<- function(cond) {
[18:41:36.951]                               data <- list(type = "VALUE", value = cond, 
[18:41:36.951]                                 success = TRUE)
[18:41:36.951]                               parallel_sendData(master, data)
[18:41:36.951]                             }
[18:41:36.951]                             return(sendCondition)
[18:41:36.951]                           }
[18:41:36.951]                         }
[18:41:36.951]                         frame <- frame + 1L
[18:41:36.951]                         envir <- sys.frame(frame)
[18:41:36.951]                       }
[18:41:36.951]                     }
[18:41:36.951]                     sendCondition <<- function(cond) NULL
[18:41:36.951]                   }
[18:41:36.951]                 })
[18:41:36.951]                 withCallingHandlers({
[18:41:36.951]                   {
[18:41:36.951]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.951]                     if (!identical(...future.globals.maxSize.org, 
[18:41:36.951]                       ...future.globals.maxSize)) {
[18:41:36.951]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.951]                       on.exit(options(oopts), add = TRUE)
[18:41:36.951]                     }
[18:41:36.951]                     {
[18:41:36.951]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.951]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:36.951]                         USE.NAMES = FALSE)
[18:41:36.951]                       do.call(mapply, args = args)
[18:41:36.951]                     }
[18:41:36.951]                   }
[18:41:36.951]                 }, immediateCondition = function(cond) {
[18:41:36.951]                   sendCondition <- ...future.makeSendCondition()
[18:41:36.951]                   sendCondition(cond)
[18:41:36.951]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.951]                   {
[18:41:36.951]                     inherits <- base::inherits
[18:41:36.951]                     invokeRestart <- base::invokeRestart
[18:41:36.951]                     is.null <- base::is.null
[18:41:36.951]                     muffled <- FALSE
[18:41:36.951]                     if (inherits(cond, "message")) {
[18:41:36.951]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:36.951]                       if (muffled) 
[18:41:36.951]                         invokeRestart("muffleMessage")
[18:41:36.951]                     }
[18:41:36.951]                     else if (inherits(cond, "warning")) {
[18:41:36.951]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:36.951]                       if (muffled) 
[18:41:36.951]                         invokeRestart("muffleWarning")
[18:41:36.951]                     }
[18:41:36.951]                     else if (inherits(cond, "condition")) {
[18:41:36.951]                       if (!is.null(pattern)) {
[18:41:36.951]                         computeRestarts <- base::computeRestarts
[18:41:36.951]                         grepl <- base::grepl
[18:41:36.951]                         restarts <- computeRestarts(cond)
[18:41:36.951]                         for (restart in restarts) {
[18:41:36.951]                           name <- restart$name
[18:41:36.951]                           if (is.null(name)) 
[18:41:36.951]                             next
[18:41:36.951]                           if (!grepl(pattern, name)) 
[18:41:36.951]                             next
[18:41:36.951]                           invokeRestart(restart)
[18:41:36.951]                           muffled <- TRUE
[18:41:36.951]                           break
[18:41:36.951]                         }
[18:41:36.951]                       }
[18:41:36.951]                     }
[18:41:36.951]                     invisible(muffled)
[18:41:36.951]                   }
[18:41:36.951]                   muffleCondition(cond)
[18:41:36.951]                 })
[18:41:36.951]             }))
[18:41:36.951]             future::FutureResult(value = ...future.value$value, 
[18:41:36.951]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.951]                   ...future.rng), globalenv = if (FALSE) 
[18:41:36.951]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:36.951]                     ...future.globalenv.names))
[18:41:36.951]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:36.951]         }, condition = base::local({
[18:41:36.951]             c <- base::c
[18:41:36.951]             inherits <- base::inherits
[18:41:36.951]             invokeRestart <- base::invokeRestart
[18:41:36.951]             length <- base::length
[18:41:36.951]             list <- base::list
[18:41:36.951]             seq.int <- base::seq.int
[18:41:36.951]             signalCondition <- base::signalCondition
[18:41:36.951]             sys.calls <- base::sys.calls
[18:41:36.951]             `[[` <- base::`[[`
[18:41:36.951]             `+` <- base::`+`
[18:41:36.951]             `<<-` <- base::`<<-`
[18:41:36.951]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:36.951]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:36.951]                   3L)]
[18:41:36.951]             }
[18:41:36.951]             function(cond) {
[18:41:36.951]                 is_error <- inherits(cond, "error")
[18:41:36.951]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:36.951]                   NULL)
[18:41:36.951]                 if (is_error) {
[18:41:36.951]                   sessionInformation <- function() {
[18:41:36.951]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:36.951]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:36.951]                       search = base::search(), system = base::Sys.info())
[18:41:36.951]                   }
[18:41:36.951]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.951]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:36.951]                     cond$call), session = sessionInformation(), 
[18:41:36.951]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:36.951]                   signalCondition(cond)
[18:41:36.951]                 }
[18:41:36.951]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:36.951]                 "immediateCondition"))) {
[18:41:36.951]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:36.951]                   ...future.conditions[[length(...future.conditions) + 
[18:41:36.951]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:36.951]                   if (TRUE && !signal) {
[18:41:36.951]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.951]                     {
[18:41:36.951]                       inherits <- base::inherits
[18:41:36.951]                       invokeRestart <- base::invokeRestart
[18:41:36.951]                       is.null <- base::is.null
[18:41:36.951]                       muffled <- FALSE
[18:41:36.951]                       if (inherits(cond, "message")) {
[18:41:36.951]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.951]                         if (muffled) 
[18:41:36.951]                           invokeRestart("muffleMessage")
[18:41:36.951]                       }
[18:41:36.951]                       else if (inherits(cond, "warning")) {
[18:41:36.951]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.951]                         if (muffled) 
[18:41:36.951]                           invokeRestart("muffleWarning")
[18:41:36.951]                       }
[18:41:36.951]                       else if (inherits(cond, "condition")) {
[18:41:36.951]                         if (!is.null(pattern)) {
[18:41:36.951]                           computeRestarts <- base::computeRestarts
[18:41:36.951]                           grepl <- base::grepl
[18:41:36.951]                           restarts <- computeRestarts(cond)
[18:41:36.951]                           for (restart in restarts) {
[18:41:36.951]                             name <- restart$name
[18:41:36.951]                             if (is.null(name)) 
[18:41:36.951]                               next
[18:41:36.951]                             if (!grepl(pattern, name)) 
[18:41:36.951]                               next
[18:41:36.951]                             invokeRestart(restart)
[18:41:36.951]                             muffled <- TRUE
[18:41:36.951]                             break
[18:41:36.951]                           }
[18:41:36.951]                         }
[18:41:36.951]                       }
[18:41:36.951]                       invisible(muffled)
[18:41:36.951]                     }
[18:41:36.951]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.951]                   }
[18:41:36.951]                 }
[18:41:36.951]                 else {
[18:41:36.951]                   if (TRUE) {
[18:41:36.951]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:36.951]                     {
[18:41:36.951]                       inherits <- base::inherits
[18:41:36.951]                       invokeRestart <- base::invokeRestart
[18:41:36.951]                       is.null <- base::is.null
[18:41:36.951]                       muffled <- FALSE
[18:41:36.951]                       if (inherits(cond, "message")) {
[18:41:36.951]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:36.951]                         if (muffled) 
[18:41:36.951]                           invokeRestart("muffleMessage")
[18:41:36.951]                       }
[18:41:36.951]                       else if (inherits(cond, "warning")) {
[18:41:36.951]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:36.951]                         if (muffled) 
[18:41:36.951]                           invokeRestart("muffleWarning")
[18:41:36.951]                       }
[18:41:36.951]                       else if (inherits(cond, "condition")) {
[18:41:36.951]                         if (!is.null(pattern)) {
[18:41:36.951]                           computeRestarts <- base::computeRestarts
[18:41:36.951]                           grepl <- base::grepl
[18:41:36.951]                           restarts <- computeRestarts(cond)
[18:41:36.951]                           for (restart in restarts) {
[18:41:36.951]                             name <- restart$name
[18:41:36.951]                             if (is.null(name)) 
[18:41:36.951]                               next
[18:41:36.951]                             if (!grepl(pattern, name)) 
[18:41:36.951]                               next
[18:41:36.951]                             invokeRestart(restart)
[18:41:36.951]                             muffled <- TRUE
[18:41:36.951]                             break
[18:41:36.951]                           }
[18:41:36.951]                         }
[18:41:36.951]                       }
[18:41:36.951]                       invisible(muffled)
[18:41:36.951]                     }
[18:41:36.951]                     muffleCondition(cond, pattern = "^muffle")
[18:41:36.951]                   }
[18:41:36.951]                 }
[18:41:36.951]             }
[18:41:36.951]         }))
[18:41:36.951]     }, error = function(ex) {
[18:41:36.951]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:36.951]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:36.951]                 ...future.rng), started = ...future.startTime, 
[18:41:36.951]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:36.951]             version = "1.8"), class = "FutureResult")
[18:41:36.951]     }, finally = {
[18:41:36.951]         if (!identical(...future.workdir, getwd())) 
[18:41:36.951]             setwd(...future.workdir)
[18:41:36.951]         {
[18:41:36.951]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:36.951]                 ...future.oldOptions$nwarnings <- NULL
[18:41:36.951]             }
[18:41:36.951]             base::options(...future.oldOptions)
[18:41:36.951]             if (.Platform$OS.type == "windows") {
[18:41:36.951]                 old_names <- names(...future.oldEnvVars)
[18:41:36.951]                 envs <- base::Sys.getenv()
[18:41:36.951]                 names <- names(envs)
[18:41:36.951]                 common <- intersect(names, old_names)
[18:41:36.951]                 added <- setdiff(names, old_names)
[18:41:36.951]                 removed <- setdiff(old_names, names)
[18:41:36.951]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:36.951]                   envs[common]]
[18:41:36.951]                 NAMES <- toupper(changed)
[18:41:36.951]                 args <- list()
[18:41:36.951]                 for (kk in seq_along(NAMES)) {
[18:41:36.951]                   name <- changed[[kk]]
[18:41:36.951]                   NAME <- NAMES[[kk]]
[18:41:36.951]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.951]                     next
[18:41:36.951]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.951]                 }
[18:41:36.951]                 NAMES <- toupper(added)
[18:41:36.951]                 for (kk in seq_along(NAMES)) {
[18:41:36.951]                   name <- added[[kk]]
[18:41:36.951]                   NAME <- NAMES[[kk]]
[18:41:36.951]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.951]                     next
[18:41:36.951]                   args[[name]] <- ""
[18:41:36.951]                 }
[18:41:36.951]                 NAMES <- toupper(removed)
[18:41:36.951]                 for (kk in seq_along(NAMES)) {
[18:41:36.951]                   name <- removed[[kk]]
[18:41:36.951]                   NAME <- NAMES[[kk]]
[18:41:36.951]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:36.951]                     next
[18:41:36.951]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:36.951]                 }
[18:41:36.951]                 if (length(args) > 0) 
[18:41:36.951]                   base::do.call(base::Sys.setenv, args = args)
[18:41:36.951]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:36.951]             }
[18:41:36.951]             else {
[18:41:36.951]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:36.951]             }
[18:41:36.951]             {
[18:41:36.951]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:36.951]                   0L) {
[18:41:36.951]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:36.951]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:36.951]                   base::options(opts)
[18:41:36.951]                 }
[18:41:36.951]                 {
[18:41:36.951]                   {
[18:41:36.951]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:36.951]                     NULL
[18:41:36.951]                   }
[18:41:36.951]                   options(future.plan = NULL)
[18:41:36.951]                   if (is.na(NA_character_)) 
[18:41:36.951]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:36.951]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:36.951]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:36.951]                     .init = FALSE)
[18:41:36.951]                 }
[18:41:36.951]             }
[18:41:36.951]         }
[18:41:36.951]     })
[18:41:36.951]     if (TRUE) {
[18:41:36.951]         base::sink(type = "output", split = FALSE)
[18:41:36.951]         if (TRUE) {
[18:41:36.951]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:36.951]         }
[18:41:36.951]         else {
[18:41:36.951]             ...future.result["stdout"] <- base::list(NULL)
[18:41:36.951]         }
[18:41:36.951]         base::close(...future.stdout)
[18:41:36.951]         ...future.stdout <- NULL
[18:41:36.951]     }
[18:41:36.951]     ...future.result$conditions <- ...future.conditions
[18:41:36.951]     ...future.result$finished <- base::Sys.time()
[18:41:36.951]     ...future.result
[18:41:36.951] }
[18:41:36.956] Exporting 5 global objects (647 bytes) to cluster node #1 ...
[18:41:36.957] Exporting '...future.FUN' (32 bytes) to cluster node #1 ...
[18:41:36.957] Exporting '...future.FUN' (32 bytes) to cluster node #1 ... DONE
[18:41:36.958] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:36.958] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:36.959] Exporting '...future.elements_ii' (75 bytes) to cluster node #1 ...
[18:41:36.959] Exporting '...future.elements_ii' (75 bytes) to cluster node #1 ... DONE
[18:41:36.959] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:36.960] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:36.960] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:36.961] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:36.961] Exporting 5 global objects (647 bytes) to cluster node #1 ... DONE
[18:41:36.962] MultisessionFuture started
[18:41:36.962] - Launch lazy future ... done
[18:41:36.962] run() for 'MultisessionFuture' ... done
[18:41:36.963] Created future:
[18:41:36.985] receiveMessageFromWorker() for ClusterFuture ...
[18:41:36.986] - Validating connection of MultisessionFuture
[18:41:36.986] - received message: FutureResult
[18:41:36.986] - Received FutureResult
[18:41:36.986] - Erased future from FutureRegistry
[18:41:36.987] result() for ClusterFuture ...
[18:41:36.987] - result already collected: FutureResult
[18:41:36.987] result() for ClusterFuture ... done
[18:41:36.987] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:36.963] MultisessionFuture:
[18:41:36.963] Label: 'future_Map-1'
[18:41:36.963] Expression:
[18:41:36.963] {
[18:41:36.963]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:36.963]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:36.963]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:36.963]         on.exit(options(oopts), add = TRUE)
[18:41:36.963]     }
[18:41:36.963]     {
[18:41:36.963]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:36.963]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:36.963]         do.call(mapply, args = args)
[18:41:36.963]     }
[18:41:36.963] }
[18:41:36.963] Lazy evaluation: FALSE
[18:41:36.963] Asynchronous evaluation: TRUE
[18:41:36.963] Local evaluation: TRUE
[18:41:36.963] Environment: R_GlobalEnv
[18:41:36.963] Capture standard output: TRUE
[18:41:36.963] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:36.963] Globals: 5 objects totaling 188 bytes (function '...future.FUN' of 32 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 75 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:36.963] Packages: <none>
[18:41:36.963] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:36.963] Resolved: TRUE
[18:41:36.963] Value: <not collected>
[18:41:36.963] Conditions captured: <none>
[18:41:36.963] Early signaling: FALSE
[18:41:36.963] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:36.963] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:36.988] Chunk #1 of 2 ... DONE
[18:41:36.988] Chunk #2 of 2 ...
[18:41:36.988]  - Finding globals in '...' for chunk #2 ...
[18:41:36.988] getGlobalsAndPackages() ...
[18:41:36.988] Searching for globals...
[18:41:36.989] 
[18:41:36.989] Searching for globals ... DONE
[18:41:36.989] - globals: [0] <none>
[18:41:36.989] getGlobalsAndPackages() ... DONE
[18:41:36.989]    + additional globals found: [n=0] 
[18:41:36.990]    + additional namespaces needed: [n=0] 
[18:41:36.990]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:36.990]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:36.990]  - seeds: <none>
[18:41:36.990]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.990] getGlobalsAndPackages() ...
[18:41:36.991] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.991] Resolving globals: FALSE
[18:41:36.991] The total size of the 5 globals is 216 bytes (216 bytes)
[18:41:36.992] 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 216 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.elements_ii' (103 bytes of class 'list'), '...future.FUN' (32 bytes of class 'function') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:36.992] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:36.992] 
[18:41:36.993] getGlobalsAndPackages() ... DONE
[18:41:36.993] run() for 'Future' ...
[18:41:36.993] - state: 'created'
[18:41:36.993] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:37.008] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:37.009] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:37.009]   - Field: 'node'
[18:41:37.009]   - Field: 'label'
[18:41:37.009]   - Field: 'local'
[18:41:37.009]   - Field: 'owner'
[18:41:37.010]   - Field: 'envir'
[18:41:37.010]   - Field: 'workers'
[18:41:37.010]   - Field: 'packages'
[18:41:37.010]   - Field: 'gc'
[18:41:37.010]   - Field: 'conditions'
[18:41:37.010]   - Field: 'persistent'
[18:41:37.011]   - Field: 'expr'
[18:41:37.011]   - Field: 'uuid'
[18:41:37.011]   - Field: 'seed'
[18:41:37.011]   - Field: 'version'
[18:41:37.011]   - Field: 'result'
[18:41:37.012]   - Field: 'asynchronous'
[18:41:37.012]   - Field: 'calls'
[18:41:37.012]   - Field: 'globals'
[18:41:37.012]   - Field: 'stdout'
[18:41:37.012]   - Field: 'earlySignal'
[18:41:37.012]   - Field: 'lazy'
[18:41:37.013]   - Field: 'state'
[18:41:37.013] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:37.013] - Launch lazy future ...
[18:41:37.013] Packages needed by the future expression (n = 0): <none>
[18:41:37.013] Packages needed by future strategies (n = 0): <none>
[18:41:37.014] {
[18:41:37.014]     {
[18:41:37.014]         {
[18:41:37.014]             ...future.startTime <- base::Sys.time()
[18:41:37.014]             {
[18:41:37.014]                 {
[18:41:37.014]                   {
[18:41:37.014]                     {
[18:41:37.014]                       base::local({
[18:41:37.014]                         has_future <- base::requireNamespace("future", 
[18:41:37.014]                           quietly = TRUE)
[18:41:37.014]                         if (has_future) {
[18:41:37.014]                           ns <- base::getNamespace("future")
[18:41:37.014]                           version <- ns[[".package"]][["version"]]
[18:41:37.014]                           if (is.null(version)) 
[18:41:37.014]                             version <- utils::packageVersion("future")
[18:41:37.014]                         }
[18:41:37.014]                         else {
[18:41:37.014]                           version <- NULL
[18:41:37.014]                         }
[18:41:37.014]                         if (!has_future || version < "1.8.0") {
[18:41:37.014]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.014]                             "", base::R.version$version.string), 
[18:41:37.014]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:37.014]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.014]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.014]                               "release", "version")], collapse = " "), 
[18:41:37.014]                             hostname = base::Sys.info()[["nodename"]])
[18:41:37.014]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.014]                             info)
[18:41:37.014]                           info <- base::paste(info, collapse = "; ")
[18:41:37.014]                           if (!has_future) {
[18:41:37.014]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.014]                               info)
[18:41:37.014]                           }
[18:41:37.014]                           else {
[18:41:37.014]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.014]                               info, version)
[18:41:37.014]                           }
[18:41:37.014]                           base::stop(msg)
[18:41:37.014]                         }
[18:41:37.014]                       })
[18:41:37.014]                     }
[18:41:37.014]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:37.014]                     base::options(mc.cores = 1L)
[18:41:37.014]                   }
[18:41:37.014]                   ...future.strategy.old <- future::plan("list")
[18:41:37.014]                   options(future.plan = NULL)
[18:41:37.014]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.014]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.014]                 }
[18:41:37.014]                 ...future.workdir <- getwd()
[18:41:37.014]             }
[18:41:37.014]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.014]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.014]         }
[18:41:37.014]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.014]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:37.014]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.014]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.014]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.014]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.014]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.014]             base::names(...future.oldOptions))
[18:41:37.014]     }
[18:41:37.014]     if (FALSE) {
[18:41:37.014]     }
[18:41:37.014]     else {
[18:41:37.014]         if (TRUE) {
[18:41:37.014]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.014]                 open = "w")
[18:41:37.014]         }
[18:41:37.014]         else {
[18:41:37.014]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.014]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.014]         }
[18:41:37.014]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.014]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.014]             base::sink(type = "output", split = FALSE)
[18:41:37.014]             base::close(...future.stdout)
[18:41:37.014]         }, add = TRUE)
[18:41:37.014]     }
[18:41:37.014]     ...future.frame <- base::sys.nframe()
[18:41:37.014]     ...future.conditions <- base::list()
[18:41:37.014]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.014]     if (FALSE) {
[18:41:37.014]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.014]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.014]     }
[18:41:37.014]     ...future.result <- base::tryCatch({
[18:41:37.014]         base::withCallingHandlers({
[18:41:37.014]             ...future.value <- base::withVisible(base::local({
[18:41:37.014]                 ...future.makeSendCondition <- base::local({
[18:41:37.014]                   sendCondition <- NULL
[18:41:37.014]                   function(frame = 1L) {
[18:41:37.014]                     if (is.function(sendCondition)) 
[18:41:37.014]                       return(sendCondition)
[18:41:37.014]                     ns <- getNamespace("parallel")
[18:41:37.014]                     if (exists("sendData", mode = "function", 
[18:41:37.014]                       envir = ns)) {
[18:41:37.014]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:37.014]                         envir = ns)
[18:41:37.014]                       envir <- sys.frame(frame)
[18:41:37.014]                       master <- NULL
[18:41:37.014]                       while (!identical(envir, .GlobalEnv) && 
[18:41:37.014]                         !identical(envir, emptyenv())) {
[18:41:37.014]                         if (exists("master", mode = "list", envir = envir, 
[18:41:37.014]                           inherits = FALSE)) {
[18:41:37.014]                           master <- get("master", mode = "list", 
[18:41:37.014]                             envir = envir, inherits = FALSE)
[18:41:37.014]                           if (inherits(master, c("SOCKnode", 
[18:41:37.014]                             "SOCK0node"))) {
[18:41:37.014]                             sendCondition <<- function(cond) {
[18:41:37.014]                               data <- list(type = "VALUE", value = cond, 
[18:41:37.014]                                 success = TRUE)
[18:41:37.014]                               parallel_sendData(master, data)
[18:41:37.014]                             }
[18:41:37.014]                             return(sendCondition)
[18:41:37.014]                           }
[18:41:37.014]                         }
[18:41:37.014]                         frame <- frame + 1L
[18:41:37.014]                         envir <- sys.frame(frame)
[18:41:37.014]                       }
[18:41:37.014]                     }
[18:41:37.014]                     sendCondition <<- function(cond) NULL
[18:41:37.014]                   }
[18:41:37.014]                 })
[18:41:37.014]                 withCallingHandlers({
[18:41:37.014]                   {
[18:41:37.014]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.014]                     if (!identical(...future.globals.maxSize.org, 
[18:41:37.014]                       ...future.globals.maxSize)) {
[18:41:37.014]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.014]                       on.exit(options(oopts), add = TRUE)
[18:41:37.014]                     }
[18:41:37.014]                     {
[18:41:37.014]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:37.014]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:37.014]                         USE.NAMES = FALSE)
[18:41:37.014]                       do.call(mapply, args = args)
[18:41:37.014]                     }
[18:41:37.014]                   }
[18:41:37.014]                 }, immediateCondition = function(cond) {
[18:41:37.014]                   sendCondition <- ...future.makeSendCondition()
[18:41:37.014]                   sendCondition(cond)
[18:41:37.014]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.014]                   {
[18:41:37.014]                     inherits <- base::inherits
[18:41:37.014]                     invokeRestart <- base::invokeRestart
[18:41:37.014]                     is.null <- base::is.null
[18:41:37.014]                     muffled <- FALSE
[18:41:37.014]                     if (inherits(cond, "message")) {
[18:41:37.014]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:37.014]                       if (muffled) 
[18:41:37.014]                         invokeRestart("muffleMessage")
[18:41:37.014]                     }
[18:41:37.014]                     else if (inherits(cond, "warning")) {
[18:41:37.014]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:37.014]                       if (muffled) 
[18:41:37.014]                         invokeRestart("muffleWarning")
[18:41:37.014]                     }
[18:41:37.014]                     else if (inherits(cond, "condition")) {
[18:41:37.014]                       if (!is.null(pattern)) {
[18:41:37.014]                         computeRestarts <- base::computeRestarts
[18:41:37.014]                         grepl <- base::grepl
[18:41:37.014]                         restarts <- computeRestarts(cond)
[18:41:37.014]                         for (restart in restarts) {
[18:41:37.014]                           name <- restart$name
[18:41:37.014]                           if (is.null(name)) 
[18:41:37.014]                             next
[18:41:37.014]                           if (!grepl(pattern, name)) 
[18:41:37.014]                             next
[18:41:37.014]                           invokeRestart(restart)
[18:41:37.014]                           muffled <- TRUE
[18:41:37.014]                           break
[18:41:37.014]                         }
[18:41:37.014]                       }
[18:41:37.014]                     }
[18:41:37.014]                     invisible(muffled)
[18:41:37.014]                   }
[18:41:37.014]                   muffleCondition(cond)
[18:41:37.014]                 })
[18:41:37.014]             }))
[18:41:37.014]             future::FutureResult(value = ...future.value$value, 
[18:41:37.014]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.014]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.014]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.014]                     ...future.globalenv.names))
[18:41:37.014]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.014]         }, condition = base::local({
[18:41:37.014]             c <- base::c
[18:41:37.014]             inherits <- base::inherits
[18:41:37.014]             invokeRestart <- base::invokeRestart
[18:41:37.014]             length <- base::length
[18:41:37.014]             list <- base::list
[18:41:37.014]             seq.int <- base::seq.int
[18:41:37.014]             signalCondition <- base::signalCondition
[18:41:37.014]             sys.calls <- base::sys.calls
[18:41:37.014]             `[[` <- base::`[[`
[18:41:37.014]             `+` <- base::`+`
[18:41:37.014]             `<<-` <- base::`<<-`
[18:41:37.014]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.014]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.014]                   3L)]
[18:41:37.014]             }
[18:41:37.014]             function(cond) {
[18:41:37.014]                 is_error <- inherits(cond, "error")
[18:41:37.014]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.014]                   NULL)
[18:41:37.014]                 if (is_error) {
[18:41:37.014]                   sessionInformation <- function() {
[18:41:37.014]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.014]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.014]                       search = base::search(), system = base::Sys.info())
[18:41:37.014]                   }
[18:41:37.014]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.014]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.014]                     cond$call), session = sessionInformation(), 
[18:41:37.014]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.014]                   signalCondition(cond)
[18:41:37.014]                 }
[18:41:37.014]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.014]                 "immediateCondition"))) {
[18:41:37.014]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.014]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.014]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.014]                   if (TRUE && !signal) {
[18:41:37.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.014]                     {
[18:41:37.014]                       inherits <- base::inherits
[18:41:37.014]                       invokeRestart <- base::invokeRestart
[18:41:37.014]                       is.null <- base::is.null
[18:41:37.014]                       muffled <- FALSE
[18:41:37.014]                       if (inherits(cond, "message")) {
[18:41:37.014]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.014]                         if (muffled) 
[18:41:37.014]                           invokeRestart("muffleMessage")
[18:41:37.014]                       }
[18:41:37.014]                       else if (inherits(cond, "warning")) {
[18:41:37.014]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.014]                         if (muffled) 
[18:41:37.014]                           invokeRestart("muffleWarning")
[18:41:37.014]                       }
[18:41:37.014]                       else if (inherits(cond, "condition")) {
[18:41:37.014]                         if (!is.null(pattern)) {
[18:41:37.014]                           computeRestarts <- base::computeRestarts
[18:41:37.014]                           grepl <- base::grepl
[18:41:37.014]                           restarts <- computeRestarts(cond)
[18:41:37.014]                           for (restart in restarts) {
[18:41:37.014]                             name <- restart$name
[18:41:37.014]                             if (is.null(name)) 
[18:41:37.014]                               next
[18:41:37.014]                             if (!grepl(pattern, name)) 
[18:41:37.014]                               next
[18:41:37.014]                             invokeRestart(restart)
[18:41:37.014]                             muffled <- TRUE
[18:41:37.014]                             break
[18:41:37.014]                           }
[18:41:37.014]                         }
[18:41:37.014]                       }
[18:41:37.014]                       invisible(muffled)
[18:41:37.014]                     }
[18:41:37.014]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.014]                   }
[18:41:37.014]                 }
[18:41:37.014]                 else {
[18:41:37.014]                   if (TRUE) {
[18:41:37.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.014]                     {
[18:41:37.014]                       inherits <- base::inherits
[18:41:37.014]                       invokeRestart <- base::invokeRestart
[18:41:37.014]                       is.null <- base::is.null
[18:41:37.014]                       muffled <- FALSE
[18:41:37.014]                       if (inherits(cond, "message")) {
[18:41:37.014]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.014]                         if (muffled) 
[18:41:37.014]                           invokeRestart("muffleMessage")
[18:41:37.014]                       }
[18:41:37.014]                       else if (inherits(cond, "warning")) {
[18:41:37.014]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.014]                         if (muffled) 
[18:41:37.014]                           invokeRestart("muffleWarning")
[18:41:37.014]                       }
[18:41:37.014]                       else if (inherits(cond, "condition")) {
[18:41:37.014]                         if (!is.null(pattern)) {
[18:41:37.014]                           computeRestarts <- base::computeRestarts
[18:41:37.014]                           grepl <- base::grepl
[18:41:37.014]                           restarts <- computeRestarts(cond)
[18:41:37.014]                           for (restart in restarts) {
[18:41:37.014]                             name <- restart$name
[18:41:37.014]                             if (is.null(name)) 
[18:41:37.014]                               next
[18:41:37.014]                             if (!grepl(pattern, name)) 
[18:41:37.014]                               next
[18:41:37.014]                             invokeRestart(restart)
[18:41:37.014]                             muffled <- TRUE
[18:41:37.014]                             break
[18:41:37.014]                           }
[18:41:37.014]                         }
[18:41:37.014]                       }
[18:41:37.014]                       invisible(muffled)
[18:41:37.014]                     }
[18:41:37.014]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.014]                   }
[18:41:37.014]                 }
[18:41:37.014]             }
[18:41:37.014]         }))
[18:41:37.014]     }, error = function(ex) {
[18:41:37.014]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.014]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.014]                 ...future.rng), started = ...future.startTime, 
[18:41:37.014]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.014]             version = "1.8"), class = "FutureResult")
[18:41:37.014]     }, finally = {
[18:41:37.014]         if (!identical(...future.workdir, getwd())) 
[18:41:37.014]             setwd(...future.workdir)
[18:41:37.014]         {
[18:41:37.014]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.014]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.014]             }
[18:41:37.014]             base::options(...future.oldOptions)
[18:41:37.014]             if (.Platform$OS.type == "windows") {
[18:41:37.014]                 old_names <- names(...future.oldEnvVars)
[18:41:37.014]                 envs <- base::Sys.getenv()
[18:41:37.014]                 names <- names(envs)
[18:41:37.014]                 common <- intersect(names, old_names)
[18:41:37.014]                 added <- setdiff(names, old_names)
[18:41:37.014]                 removed <- setdiff(old_names, names)
[18:41:37.014]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.014]                   envs[common]]
[18:41:37.014]                 NAMES <- toupper(changed)
[18:41:37.014]                 args <- list()
[18:41:37.014]                 for (kk in seq_along(NAMES)) {
[18:41:37.014]                   name <- changed[[kk]]
[18:41:37.014]                   NAME <- NAMES[[kk]]
[18:41:37.014]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.014]                     next
[18:41:37.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.014]                 }
[18:41:37.014]                 NAMES <- toupper(added)
[18:41:37.014]                 for (kk in seq_along(NAMES)) {
[18:41:37.014]                   name <- added[[kk]]
[18:41:37.014]                   NAME <- NAMES[[kk]]
[18:41:37.014]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.014]                     next
[18:41:37.014]                   args[[name]] <- ""
[18:41:37.014]                 }
[18:41:37.014]                 NAMES <- toupper(removed)
[18:41:37.014]                 for (kk in seq_along(NAMES)) {
[18:41:37.014]                   name <- removed[[kk]]
[18:41:37.014]                   NAME <- NAMES[[kk]]
[18:41:37.014]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.014]                     next
[18:41:37.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.014]                 }
[18:41:37.014]                 if (length(args) > 0) 
[18:41:37.014]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.014]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.014]             }
[18:41:37.014]             else {
[18:41:37.014]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.014]             }
[18:41:37.014]             {
[18:41:37.014]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.014]                   0L) {
[18:41:37.014]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.014]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.014]                   base::options(opts)
[18:41:37.014]                 }
[18:41:37.014]                 {
[18:41:37.014]                   {
[18:41:37.014]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:37.014]                     NULL
[18:41:37.014]                   }
[18:41:37.014]                   options(future.plan = NULL)
[18:41:37.014]                   if (is.na(NA_character_)) 
[18:41:37.014]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.014]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.014]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.014]                     .init = FALSE)
[18:41:37.014]                 }
[18:41:37.014]             }
[18:41:37.014]         }
[18:41:37.014]     })
[18:41:37.014]     if (TRUE) {
[18:41:37.014]         base::sink(type = "output", split = FALSE)
[18:41:37.014]         if (TRUE) {
[18:41:37.014]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.014]         }
[18:41:37.014]         else {
[18:41:37.014]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.014]         }
[18:41:37.014]         base::close(...future.stdout)
[18:41:37.014]         ...future.stdout <- NULL
[18:41:37.014]     }
[18:41:37.014]     ...future.result$conditions <- ...future.conditions
[18:41:37.014]     ...future.result$finished <- base::Sys.time()
[18:41:37.014]     ...future.result
[18:41:37.014] }
[18:41:37.019] Exporting 5 global objects (675 bytes) to cluster node #1 ...
[18:41:37.020] Exporting '...future.FUN' (32 bytes) to cluster node #1 ...
[18:41:37.020] Exporting '...future.FUN' (32 bytes) to cluster node #1 ... DONE
[18:41:37.021] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:37.021] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:37.021] Exporting '...future.elements_ii' (103 bytes) to cluster node #1 ...
[18:41:37.022] Exporting '...future.elements_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:37.022] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:37.023] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:37.023] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:37.024] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:37.024] Exporting 5 global objects (675 bytes) to cluster node #1 ... DONE
[18:41:37.025] MultisessionFuture started
[18:41:37.025] - Launch lazy future ... done
[18:41:37.025] run() for 'MultisessionFuture' ... done
[18:41:37.026] Created future:
[18:41:37.044] receiveMessageFromWorker() for ClusterFuture ...
[18:41:37.044] - Validating connection of MultisessionFuture
[18:41:37.044] - received message: FutureResult
[18:41:37.045] - Received FutureResult
[18:41:37.045] - Erased future from FutureRegistry
[18:41:37.045] result() for ClusterFuture ...
[18:41:37.045] - result already collected: FutureResult
[18:41:37.045] result() for ClusterFuture ... done
[18:41:37.046] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:37.026] MultisessionFuture:
[18:41:37.026] Label: 'future_Map-2'
[18:41:37.026] Expression:
[18:41:37.026] {
[18:41:37.026]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.026]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.026]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.026]         on.exit(options(oopts), add = TRUE)
[18:41:37.026]     }
[18:41:37.026]     {
[18:41:37.026]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:37.026]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:37.026]         do.call(mapply, args = args)
[18:41:37.026]     }
[18:41:37.026] }
[18:41:37.026] Lazy evaluation: FALSE
[18:41:37.026] Asynchronous evaluation: TRUE
[18:41:37.026] Local evaluation: TRUE
[18:41:37.026] Environment: R_GlobalEnv
[18:41:37.026] Capture standard output: TRUE
[18:41:37.026] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.026] Globals: 5 objects totaling 216 bytes (function '...future.FUN' of 32 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 103 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.026] Packages: <none>
[18:41:37.026] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:37.026] Resolved: TRUE
[18:41:37.026] Value: <not collected>
[18:41:37.026] Conditions captured: <none>
[18:41:37.026] Early signaling: FALSE
[18:41:37.026] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:37.026] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:37.046] Chunk #2 of 2 ... DONE
[18:41:37.046] Launching 2 futures (chunks) ... DONE
[18:41:37.046] Resolving 2 futures (chunks) ...
[18:41:37.047] resolve() on list ...
[18:41:37.047]  recursive: 0
[18:41:37.047]  length: 2
[18:41:37.047] 
[18:41:37.047] Future #1
[18:41:37.047] result() for ClusterFuture ...
[18:41:37.048] - result already collected: FutureResult
[18:41:37.048] result() for ClusterFuture ... done
[18:41:37.048] result() for ClusterFuture ...
[18:41:37.048] - result already collected: FutureResult
[18:41:37.048] result() for ClusterFuture ... done
[18:41:37.048] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:37.048] - nx: 2
[18:41:37.049] - relay: TRUE
[18:41:37.049] - stdout: TRUE
[18:41:37.049] - signal: TRUE
[18:41:37.049] - resignal: FALSE
[18:41:37.049] - force: TRUE
[18:41:37.049] - relayed: [n=2] FALSE, FALSE
[18:41:37.050] - queued futures: [n=2] FALSE, FALSE
[18:41:37.050]  - until=1
[18:41:37.050]  - relaying element #1
[18:41:37.050] result() for ClusterFuture ...
[18:41:37.050] - result already collected: FutureResult
[18:41:37.050] result() for ClusterFuture ... done
[18:41:37.051] result() for ClusterFuture ...
[18:41:37.051] - result already collected: FutureResult
[18:41:37.051] result() for ClusterFuture ... done
[18:41:37.051] result() for ClusterFuture ...
[18:41:37.051] - result already collected: FutureResult
[18:41:37.051] result() for ClusterFuture ... done
[18:41:37.052] result() for ClusterFuture ...
[18:41:37.052] - result already collected: FutureResult
[18:41:37.052] result() for ClusterFuture ... done
[18:41:37.052] - relayed: [n=2] TRUE, FALSE
[18:41:37.052] - queued futures: [n=2] TRUE, FALSE
[18:41:37.052] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:37.053]  length: 1 (resolved future 1)
[18:41:37.053] Future #2
[18:41:37.053] result() for ClusterFuture ...
[18:41:37.053] - result already collected: FutureResult
[18:41:37.053] result() for ClusterFuture ... done
[18:41:37.053] result() for ClusterFuture ...
[18:41:37.054] - result already collected: FutureResult
[18:41:37.054] result() for ClusterFuture ... done
[18:41:37.054] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:37.054] - nx: 2
[18:41:37.054] - relay: TRUE
[18:41:37.054] - stdout: TRUE
[18:41:37.054] - signal: TRUE
[18:41:37.055] - resignal: FALSE
[18:41:37.055] - force: TRUE
[18:41:37.055] - relayed: [n=2] TRUE, FALSE
[18:41:37.055] - queued futures: [n=2] TRUE, FALSE
[18:41:37.055]  - until=2
[18:41:37.055]  - relaying element #2
[18:41:37.056] result() for ClusterFuture ...
[18:41:37.056] - result already collected: FutureResult
[18:41:37.056] result() for ClusterFuture ... done
[18:41:37.056] result() for ClusterFuture ...
[18:41:37.056] - result already collected: FutureResult
[18:41:37.056] result() for ClusterFuture ... done
[18:41:37.057] result() for ClusterFuture ...
[18:41:37.057] - result already collected: FutureResult
[18:41:37.057] result() for ClusterFuture ... done
[18:41:37.057] result() for ClusterFuture ...
[18:41:37.057] - result already collected: FutureResult
[18:41:37.057] result() for ClusterFuture ... done
[18:41:37.057] - relayed: [n=2] TRUE, TRUE
[18:41:37.058] - queued futures: [n=2] TRUE, TRUE
[18:41:37.058] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:37.058]  length: 0 (resolved future 2)
[18:41:37.058] Relaying remaining futures
[18:41:37.058] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.058] - nx: 2
[18:41:37.059] - relay: TRUE
[18:41:37.059] - stdout: TRUE
[18:41:37.059] - signal: TRUE
[18:41:37.059] - resignal: FALSE
[18:41:37.059] - force: TRUE
[18:41:37.059] - relayed: [n=2] TRUE, TRUE
[18:41:37.059] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:37.060] - relayed: [n=2] TRUE, TRUE
[18:41:37.060] - queued futures: [n=2] TRUE, TRUE
[18:41:37.060] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.060] resolve() on list ... DONE
[18:41:37.060] result() for ClusterFuture ...
[18:41:37.061] - result already collected: FutureResult
[18:41:37.061] result() for ClusterFuture ... done
[18:41:37.061] result() for ClusterFuture ...
[18:41:37.061] - result already collected: FutureResult
[18:41:37.061] result() for ClusterFuture ... done
[18:41:37.061] result() for ClusterFuture ...
[18:41:37.062] - result already collected: FutureResult
[18:41:37.062] result() for ClusterFuture ... done
[18:41:37.062] result() for ClusterFuture ...
[18:41:37.062] - result already collected: FutureResult
[18:41:37.062] result() for ClusterFuture ... done
[18:41:37.062]  - Number of value chunks collected: 2
[18:41:37.062] Resolving 2 futures (chunks) ... DONE
[18:41:37.063] Reducing values from 2 chunks ...
[18:41:37.063]  - Number of values collected after concatenation: 3
[18:41:37.063]  - Number of values expected: 3
[18:41:37.063] Reducing values from 2 chunks ... DONE
[18:41:37.063] future_mapply() ... DONE
- future_mapply(x, ...) where x[[i]] subsets via S3 method ...
[18:41:37.064] future_mapply() ...
[18:41:37.067] Number of chunks: 2
[18:41:37.067] getGlobalsAndPackagesXApply() ...
[18:41:37.067]  - future.globals: TRUE
[18:41:37.067] getGlobalsAndPackages() ...
[18:41:37.067] Searching for globals...
[18:41:37.069] - globals found: [1] 'FUN'
[18:41:37.069] Searching for globals ... DONE
[18:41:37.069] Resolving globals: FALSE
[18:41:37.069] The total size of the 1 globals is 185 bytes (185 bytes)
[18:41:37.070] The total size of the 1 globals exported for future expression ('FUN()') is 185 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (185 bytes of class 'function')
[18:41:37.070] - globals: [1] 'FUN'
[18:41:37.070] 
[18:41:37.070] getGlobalsAndPackages() ... DONE
[18:41:37.071]  - globals found/used: [n=1] 'FUN'
[18:41:37.071]  - needed namespaces: [n=0] 
[18:41:37.071] Finding globals ... DONE
[18:41:37.071] Globals to be used in all futures (chunks): [n=2] '...future.FUN', 'MoreArgs'
[18:41:37.071] List of 2
[18:41:37.071]  $ ...future.FUN:function (x)  
[18:41:37.071]  $ MoreArgs     : NULL
[18:41:37.071]  - attr(*, "where")=List of 2
[18:41:37.071]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.071]   ..$ MoreArgs     :<environment: R_EmptyEnv> 
[18:41:37.071]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.071]  - attr(*, "resolved")= logi FALSE
[18:41:37.071]  - attr(*, "total_size")= num NA
[18:41:37.075] Packages to be attached in all futures: [n=0] 
[18:41:37.075] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.075] Number of futures (= number of chunks): 2
[18:41:37.075] Launching 2 futures (chunks) ...
[18:41:37.076] Chunk #1 of 2 ...
[18:41:37.076]  - Finding globals in '...' for chunk #1 ...
[18:41:37.076] getGlobalsAndPackages() ...
[18:41:37.076] Searching for globals...
[18:41:37.076] 
[18:41:37.077] Searching for globals ... DONE
[18:41:37.077] - globals: [0] <none>
[18:41:37.077] getGlobalsAndPackages() ... DONE
[18:41:37.077]    + additional globals found: [n=0] 
[18:41:37.077]    + additional namespaces needed: [n=0] 
[18:41:37.077]  - Finding globals in '...' for chunk #1 ... DONE
[18:41:37.078]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:37.078]  - seeds: <none>
[18:41:37.078]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.078] getGlobalsAndPackages() ...
[18:41:37.078] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.078] Resolving globals: FALSE
[18:41:37.079] The total size of the 5 globals is 363 bytes (363 bytes)
[18:41:37.080] 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 363 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (97 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:37.080] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.080] 
[18:41:37.080] getGlobalsAndPackages() ... DONE
[18:41:37.081] run() for 'Future' ...
[18:41:37.081] - state: 'created'
[18:41:37.081] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:37.096] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:37.096] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:37.097]   - Field: 'node'
[18:41:37.097]   - Field: 'label'
[18:41:37.097]   - Field: 'local'
[18:41:37.097]   - Field: 'owner'
[18:41:37.097]   - Field: 'envir'
[18:41:37.098]   - Field: 'workers'
[18:41:37.098]   - Field: 'packages'
[18:41:37.098]   - Field: 'gc'
[18:41:37.098]   - Field: 'conditions'
[18:41:37.098]   - Field: 'persistent'
[18:41:37.098]   - Field: 'expr'
[18:41:37.099]   - Field: 'uuid'
[18:41:37.099]   - Field: 'seed'
[18:41:37.099]   - Field: 'version'
[18:41:37.099]   - Field: 'result'
[18:41:37.099]   - Field: 'asynchronous'
[18:41:37.100]   - Field: 'calls'
[18:41:37.100]   - Field: 'globals'
[18:41:37.100]   - Field: 'stdout'
[18:41:37.100]   - Field: 'earlySignal'
[18:41:37.100]   - Field: 'lazy'
[18:41:37.100]   - Field: 'state'
[18:41:37.101] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:37.101] - Launch lazy future ...
[18:41:37.101] Packages needed by the future expression (n = 0): <none>
[18:41:37.101] Packages needed by future strategies (n = 0): <none>
[18:41:37.102] {
[18:41:37.102]     {
[18:41:37.102]         {
[18:41:37.102]             ...future.startTime <- base::Sys.time()
[18:41:37.102]             {
[18:41:37.102]                 {
[18:41:37.102]                   {
[18:41:37.102]                     {
[18:41:37.102]                       base::local({
[18:41:37.102]                         has_future <- base::requireNamespace("future", 
[18:41:37.102]                           quietly = TRUE)
[18:41:37.102]                         if (has_future) {
[18:41:37.102]                           ns <- base::getNamespace("future")
[18:41:37.102]                           version <- ns[[".package"]][["version"]]
[18:41:37.102]                           if (is.null(version)) 
[18:41:37.102]                             version <- utils::packageVersion("future")
[18:41:37.102]                         }
[18:41:37.102]                         else {
[18:41:37.102]                           version <- NULL
[18:41:37.102]                         }
[18:41:37.102]                         if (!has_future || version < "1.8.0") {
[18:41:37.102]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.102]                             "", base::R.version$version.string), 
[18:41:37.102]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:37.102]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.102]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.102]                               "release", "version")], collapse = " "), 
[18:41:37.102]                             hostname = base::Sys.info()[["nodename"]])
[18:41:37.102]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.102]                             info)
[18:41:37.102]                           info <- base::paste(info, collapse = "; ")
[18:41:37.102]                           if (!has_future) {
[18:41:37.102]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.102]                               info)
[18:41:37.102]                           }
[18:41:37.102]                           else {
[18:41:37.102]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.102]                               info, version)
[18:41:37.102]                           }
[18:41:37.102]                           base::stop(msg)
[18:41:37.102]                         }
[18:41:37.102]                       })
[18:41:37.102]                     }
[18:41:37.102]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:37.102]                     base::options(mc.cores = 1L)
[18:41:37.102]                   }
[18:41:37.102]                   ...future.strategy.old <- future::plan("list")
[18:41:37.102]                   options(future.plan = NULL)
[18:41:37.102]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.102]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.102]                 }
[18:41:37.102]                 ...future.workdir <- getwd()
[18:41:37.102]             }
[18:41:37.102]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.102]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.102]         }
[18:41:37.102]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.102]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:37.102]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.102]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.102]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.102]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.102]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.102]             base::names(...future.oldOptions))
[18:41:37.102]     }
[18:41:37.102]     if (FALSE) {
[18:41:37.102]     }
[18:41:37.102]     else {
[18:41:37.102]         if (TRUE) {
[18:41:37.102]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.102]                 open = "w")
[18:41:37.102]         }
[18:41:37.102]         else {
[18:41:37.102]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.102]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.102]         }
[18:41:37.102]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.102]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.102]             base::sink(type = "output", split = FALSE)
[18:41:37.102]             base::close(...future.stdout)
[18:41:37.102]         }, add = TRUE)
[18:41:37.102]     }
[18:41:37.102]     ...future.frame <- base::sys.nframe()
[18:41:37.102]     ...future.conditions <- base::list()
[18:41:37.102]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.102]     if (FALSE) {
[18:41:37.102]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.102]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.102]     }
[18:41:37.102]     ...future.result <- base::tryCatch({
[18:41:37.102]         base::withCallingHandlers({
[18:41:37.102]             ...future.value <- base::withVisible(base::local({
[18:41:37.102]                 ...future.makeSendCondition <- base::local({
[18:41:37.102]                   sendCondition <- NULL
[18:41:37.102]                   function(frame = 1L) {
[18:41:37.102]                     if (is.function(sendCondition)) 
[18:41:37.102]                       return(sendCondition)
[18:41:37.102]                     ns <- getNamespace("parallel")
[18:41:37.102]                     if (exists("sendData", mode = "function", 
[18:41:37.102]                       envir = ns)) {
[18:41:37.102]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:37.102]                         envir = ns)
[18:41:37.102]                       envir <- sys.frame(frame)
[18:41:37.102]                       master <- NULL
[18:41:37.102]                       while (!identical(envir, .GlobalEnv) && 
[18:41:37.102]                         !identical(envir, emptyenv())) {
[18:41:37.102]                         if (exists("master", mode = "list", envir = envir, 
[18:41:37.102]                           inherits = FALSE)) {
[18:41:37.102]                           master <- get("master", mode = "list", 
[18:41:37.102]                             envir = envir, inherits = FALSE)
[18:41:37.102]                           if (inherits(master, c("SOCKnode", 
[18:41:37.102]                             "SOCK0node"))) {
[18:41:37.102]                             sendCondition <<- function(cond) {
[18:41:37.102]                               data <- list(type = "VALUE", value = cond, 
[18:41:37.102]                                 success = TRUE)
[18:41:37.102]                               parallel_sendData(master, data)
[18:41:37.102]                             }
[18:41:37.102]                             return(sendCondition)
[18:41:37.102]                           }
[18:41:37.102]                         }
[18:41:37.102]                         frame <- frame + 1L
[18:41:37.102]                         envir <- sys.frame(frame)
[18:41:37.102]                       }
[18:41:37.102]                     }
[18:41:37.102]                     sendCondition <<- function(cond) NULL
[18:41:37.102]                   }
[18:41:37.102]                 })
[18:41:37.102]                 withCallingHandlers({
[18:41:37.102]                   {
[18:41:37.102]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.102]                     if (!identical(...future.globals.maxSize.org, 
[18:41:37.102]                       ...future.globals.maxSize)) {
[18:41:37.102]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.102]                       on.exit(options(oopts), add = TRUE)
[18:41:37.102]                     }
[18:41:37.102]                     {
[18:41:37.102]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:37.102]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:37.102]                         USE.NAMES = FALSE)
[18:41:37.102]                       do.call(mapply, args = args)
[18:41:37.102]                     }
[18:41:37.102]                   }
[18:41:37.102]                 }, immediateCondition = function(cond) {
[18:41:37.102]                   sendCondition <- ...future.makeSendCondition()
[18:41:37.102]                   sendCondition(cond)
[18:41:37.102]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.102]                   {
[18:41:37.102]                     inherits <- base::inherits
[18:41:37.102]                     invokeRestart <- base::invokeRestart
[18:41:37.102]                     is.null <- base::is.null
[18:41:37.102]                     muffled <- FALSE
[18:41:37.102]                     if (inherits(cond, "message")) {
[18:41:37.102]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:37.102]                       if (muffled) 
[18:41:37.102]                         invokeRestart("muffleMessage")
[18:41:37.102]                     }
[18:41:37.102]                     else if (inherits(cond, "warning")) {
[18:41:37.102]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:37.102]                       if (muffled) 
[18:41:37.102]                         invokeRestart("muffleWarning")
[18:41:37.102]                     }
[18:41:37.102]                     else if (inherits(cond, "condition")) {
[18:41:37.102]                       if (!is.null(pattern)) {
[18:41:37.102]                         computeRestarts <- base::computeRestarts
[18:41:37.102]                         grepl <- base::grepl
[18:41:37.102]                         restarts <- computeRestarts(cond)
[18:41:37.102]                         for (restart in restarts) {
[18:41:37.102]                           name <- restart$name
[18:41:37.102]                           if (is.null(name)) 
[18:41:37.102]                             next
[18:41:37.102]                           if (!grepl(pattern, name)) 
[18:41:37.102]                             next
[18:41:37.102]                           invokeRestart(restart)
[18:41:37.102]                           muffled <- TRUE
[18:41:37.102]                           break
[18:41:37.102]                         }
[18:41:37.102]                       }
[18:41:37.102]                     }
[18:41:37.102]                     invisible(muffled)
[18:41:37.102]                   }
[18:41:37.102]                   muffleCondition(cond)
[18:41:37.102]                 })
[18:41:37.102]             }))
[18:41:37.102]             future::FutureResult(value = ...future.value$value, 
[18:41:37.102]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.102]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.102]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.102]                     ...future.globalenv.names))
[18:41:37.102]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.102]         }, condition = base::local({
[18:41:37.102]             c <- base::c
[18:41:37.102]             inherits <- base::inherits
[18:41:37.102]             invokeRestart <- base::invokeRestart
[18:41:37.102]             length <- base::length
[18:41:37.102]             list <- base::list
[18:41:37.102]             seq.int <- base::seq.int
[18:41:37.102]             signalCondition <- base::signalCondition
[18:41:37.102]             sys.calls <- base::sys.calls
[18:41:37.102]             `[[` <- base::`[[`
[18:41:37.102]             `+` <- base::`+`
[18:41:37.102]             `<<-` <- base::`<<-`
[18:41:37.102]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.102]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.102]                   3L)]
[18:41:37.102]             }
[18:41:37.102]             function(cond) {
[18:41:37.102]                 is_error <- inherits(cond, "error")
[18:41:37.102]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.102]                   NULL)
[18:41:37.102]                 if (is_error) {
[18:41:37.102]                   sessionInformation <- function() {
[18:41:37.102]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.102]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.102]                       search = base::search(), system = base::Sys.info())
[18:41:37.102]                   }
[18:41:37.102]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.102]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.102]                     cond$call), session = sessionInformation(), 
[18:41:37.102]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.102]                   signalCondition(cond)
[18:41:37.102]                 }
[18:41:37.102]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.102]                 "immediateCondition"))) {
[18:41:37.102]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.102]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.102]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.102]                   if (TRUE && !signal) {
[18:41:37.102]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.102]                     {
[18:41:37.102]                       inherits <- base::inherits
[18:41:37.102]                       invokeRestart <- base::invokeRestart
[18:41:37.102]                       is.null <- base::is.null
[18:41:37.102]                       muffled <- FALSE
[18:41:37.102]                       if (inherits(cond, "message")) {
[18:41:37.102]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.102]                         if (muffled) 
[18:41:37.102]                           invokeRestart("muffleMessage")
[18:41:37.102]                       }
[18:41:37.102]                       else if (inherits(cond, "warning")) {
[18:41:37.102]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.102]                         if (muffled) 
[18:41:37.102]                           invokeRestart("muffleWarning")
[18:41:37.102]                       }
[18:41:37.102]                       else if (inherits(cond, "condition")) {
[18:41:37.102]                         if (!is.null(pattern)) {
[18:41:37.102]                           computeRestarts <- base::computeRestarts
[18:41:37.102]                           grepl <- base::grepl
[18:41:37.102]                           restarts <- computeRestarts(cond)
[18:41:37.102]                           for (restart in restarts) {
[18:41:37.102]                             name <- restart$name
[18:41:37.102]                             if (is.null(name)) 
[18:41:37.102]                               next
[18:41:37.102]                             if (!grepl(pattern, name)) 
[18:41:37.102]                               next
[18:41:37.102]                             invokeRestart(restart)
[18:41:37.102]                             muffled <- TRUE
[18:41:37.102]                             break
[18:41:37.102]                           }
[18:41:37.102]                         }
[18:41:37.102]                       }
[18:41:37.102]                       invisible(muffled)
[18:41:37.102]                     }
[18:41:37.102]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.102]                   }
[18:41:37.102]                 }
[18:41:37.102]                 else {
[18:41:37.102]                   if (TRUE) {
[18:41:37.102]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.102]                     {
[18:41:37.102]                       inherits <- base::inherits
[18:41:37.102]                       invokeRestart <- base::invokeRestart
[18:41:37.102]                       is.null <- base::is.null
[18:41:37.102]                       muffled <- FALSE
[18:41:37.102]                       if (inherits(cond, "message")) {
[18:41:37.102]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.102]                         if (muffled) 
[18:41:37.102]                           invokeRestart("muffleMessage")
[18:41:37.102]                       }
[18:41:37.102]                       else if (inherits(cond, "warning")) {
[18:41:37.102]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.102]                         if (muffled) 
[18:41:37.102]                           invokeRestart("muffleWarning")
[18:41:37.102]                       }
[18:41:37.102]                       else if (inherits(cond, "condition")) {
[18:41:37.102]                         if (!is.null(pattern)) {
[18:41:37.102]                           computeRestarts <- base::computeRestarts
[18:41:37.102]                           grepl <- base::grepl
[18:41:37.102]                           restarts <- computeRestarts(cond)
[18:41:37.102]                           for (restart in restarts) {
[18:41:37.102]                             name <- restart$name
[18:41:37.102]                             if (is.null(name)) 
[18:41:37.102]                               next
[18:41:37.102]                             if (!grepl(pattern, name)) 
[18:41:37.102]                               next
[18:41:37.102]                             invokeRestart(restart)
[18:41:37.102]                             muffled <- TRUE
[18:41:37.102]                             break
[18:41:37.102]                           }
[18:41:37.102]                         }
[18:41:37.102]                       }
[18:41:37.102]                       invisible(muffled)
[18:41:37.102]                     }
[18:41:37.102]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.102]                   }
[18:41:37.102]                 }
[18:41:37.102]             }
[18:41:37.102]         }))
[18:41:37.102]     }, error = function(ex) {
[18:41:37.102]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.102]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.102]                 ...future.rng), started = ...future.startTime, 
[18:41:37.102]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.102]             version = "1.8"), class = "FutureResult")
[18:41:37.102]     }, finally = {
[18:41:37.102]         if (!identical(...future.workdir, getwd())) 
[18:41:37.102]             setwd(...future.workdir)
[18:41:37.102]         {
[18:41:37.102]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.102]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.102]             }
[18:41:37.102]             base::options(...future.oldOptions)
[18:41:37.102]             if (.Platform$OS.type == "windows") {
[18:41:37.102]                 old_names <- names(...future.oldEnvVars)
[18:41:37.102]                 envs <- base::Sys.getenv()
[18:41:37.102]                 names <- names(envs)
[18:41:37.102]                 common <- intersect(names, old_names)
[18:41:37.102]                 added <- setdiff(names, old_names)
[18:41:37.102]                 removed <- setdiff(old_names, names)
[18:41:37.102]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.102]                   envs[common]]
[18:41:37.102]                 NAMES <- toupper(changed)
[18:41:37.102]                 args <- list()
[18:41:37.102]                 for (kk in seq_along(NAMES)) {
[18:41:37.102]                   name <- changed[[kk]]
[18:41:37.102]                   NAME <- NAMES[[kk]]
[18:41:37.102]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.102]                     next
[18:41:37.102]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.102]                 }
[18:41:37.102]                 NAMES <- toupper(added)
[18:41:37.102]                 for (kk in seq_along(NAMES)) {
[18:41:37.102]                   name <- added[[kk]]
[18:41:37.102]                   NAME <- NAMES[[kk]]
[18:41:37.102]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.102]                     next
[18:41:37.102]                   args[[name]] <- ""
[18:41:37.102]                 }
[18:41:37.102]                 NAMES <- toupper(removed)
[18:41:37.102]                 for (kk in seq_along(NAMES)) {
[18:41:37.102]                   name <- removed[[kk]]
[18:41:37.102]                   NAME <- NAMES[[kk]]
[18:41:37.102]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.102]                     next
[18:41:37.102]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.102]                 }
[18:41:37.102]                 if (length(args) > 0) 
[18:41:37.102]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.102]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.102]             }
[18:41:37.102]             else {
[18:41:37.102]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.102]             }
[18:41:37.102]             {
[18:41:37.102]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.102]                   0L) {
[18:41:37.102]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.102]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.102]                   base::options(opts)
[18:41:37.102]                 }
[18:41:37.102]                 {
[18:41:37.102]                   {
[18:41:37.102]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:37.102]                     NULL
[18:41:37.102]                   }
[18:41:37.102]                   options(future.plan = NULL)
[18:41:37.102]                   if (is.na(NA_character_)) 
[18:41:37.102]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.102]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.102]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.102]                     .init = FALSE)
[18:41:37.102]                 }
[18:41:37.102]             }
[18:41:37.102]         }
[18:41:37.102]     })
[18:41:37.102]     if (TRUE) {
[18:41:37.102]         base::sink(type = "output", split = FALSE)
[18:41:37.102]         if (TRUE) {
[18:41:37.102]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.102]         }
[18:41:37.102]         else {
[18:41:37.102]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.102]         }
[18:41:37.102]         base::close(...future.stdout)
[18:41:37.102]         ...future.stdout <- NULL
[18:41:37.102]     }
[18:41:37.102]     ...future.result$conditions <- ...future.conditions
[18:41:37.102]     ...future.result$finished <- base::Sys.time()
[18:41:37.102]     ...future.result
[18:41:37.102] }
[18:41:37.107] Exporting 5 global objects (796 bytes) to cluster node #1 ...
[18:41:37.108] Exporting '...future.FUN' (185 bytes) to cluster node #1 ...
[18:41:37.108] Exporting '...future.FUN' (185 bytes) to cluster node #1 ... DONE
[18:41:37.109] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:37.109] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:37.109] Exporting '...future.elements_ii' (97 bytes) to cluster node #1 ...
[18:41:37.110] Exporting '...future.elements_ii' (97 bytes) to cluster node #1 ... DONE
[18:41:37.110] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:37.111] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:37.111] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:37.112] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:37.112] Exporting 5 global objects (796 bytes) to cluster node #1 ... DONE
[18:41:37.113] MultisessionFuture started
[18:41:37.113] - Launch lazy future ... done
[18:41:37.113] run() for 'MultisessionFuture' ... done
[18:41:37.113] Created future:
[18:41:37.147] receiveMessageFromWorker() for ClusterFuture ...
[18:41:37.147] - Validating connection of MultisessionFuture
[18:41:37.148] - received message: FutureResult
[18:41:37.148] - Received FutureResult
[18:41:37.148] - Erased future from FutureRegistry
[18:41:37.148] result() for ClusterFuture ...
[18:41:37.148] - result already collected: FutureResult
[18:41:37.149] result() for ClusterFuture ... done
[18:41:37.149] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:37.113] MultisessionFuture:
[18:41:37.113] Label: 'future_mapply-1'
[18:41:37.113] Expression:
[18:41:37.113] {
[18:41:37.113]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.113]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.113]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.113]         on.exit(options(oopts), add = TRUE)
[18:41:37.113]     }
[18:41:37.113]     {
[18:41:37.113]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:37.113]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:37.113]         do.call(mapply, args = args)
[18:41:37.113]     }
[18:41:37.113] }
[18:41:37.113] Lazy evaluation: FALSE
[18:41:37.113] Asynchronous evaluation: TRUE
[18:41:37.113] Local evaluation: TRUE
[18:41:37.113] Environment: R_GlobalEnv
[18:41:37.113] Capture standard output: TRUE
[18:41:37.113] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.113] Globals: 5 objects totaling 363 bytes (function '...future.FUN' of 185 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 97 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.113] Packages: <none>
[18:41:37.113] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:37.113] Resolved: TRUE
[18:41:37.113] Value: <not collected>
[18:41:37.113] Conditions captured: <none>
[18:41:37.113] Early signaling: FALSE
[18:41:37.113] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:37.113] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:37.149] Chunk #1 of 2 ... DONE
[18:41:37.149] Chunk #2 of 2 ...
[18:41:37.150]  - Finding globals in '...' for chunk #2 ...
[18:41:37.150] getGlobalsAndPackages() ...
[18:41:37.150] Searching for globals...
[18:41:37.150] 
[18:41:37.151] Searching for globals ... DONE
[18:41:37.151] - globals: [0] <none>
[18:41:37.151] getGlobalsAndPackages() ... DONE
[18:41:37.151]    + additional globals found: [n=0] 
[18:41:37.151]    + additional namespaces needed: [n=0] 
[18:41:37.151]  - Finding globals in '...' for chunk #2 ... DONE
[18:41:37.151]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:37.152]  - seeds: <none>
[18:41:37.152]  - All globals exported: [n=5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.152] getGlobalsAndPackages() ...
[18:41:37.152] - globals passed as-is: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.152] Resolving globals: FALSE
[18:41:37.153] The total size of the 5 globals is 363 bytes (363 bytes)
[18:41:37.154] 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 363 bytes.. This exceeds the maximum allowed size of 0.98 GiB (option 'future.globals.maxSize'). The three largest globals are '...future.FUN' (185 bytes of class 'function'), '...future.elements_ii' (97 bytes of class 'list') and 'MoreArgs' (27 bytes of class 'NULL')
[18:41:37.154] - globals: [5] '...future.FUN', 'MoreArgs', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.154] 
[18:41:37.154] getGlobalsAndPackages() ... DONE
[18:41:37.154] run() for 'Future' ...
[18:41:37.155] - state: 'created'
[18:41:37.155] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:37.171] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:37.171] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:37.172]   - Field: 'node'
[18:41:37.172]   - Field: 'label'
[18:41:37.172]   - Field: 'local'
[18:41:37.172]   - Field: 'owner'
[18:41:37.172]   - Field: 'envir'
[18:41:37.172]   - Field: 'workers'
[18:41:37.173]   - Field: 'packages'
[18:41:37.173]   - Field: 'gc'
[18:41:37.173]   - Field: 'conditions'
[18:41:37.173]   - Field: 'persistent'
[18:41:37.173]   - Field: 'expr'
[18:41:37.173]   - Field: 'uuid'
[18:41:37.177]   - Field: 'seed'
[18:41:37.177]   - Field: 'version'
[18:41:37.178]   - Field: 'result'
[18:41:37.178]   - Field: 'asynchronous'
[18:41:37.178]   - Field: 'calls'
[18:41:37.178]   - Field: 'globals'
[18:41:37.179]   - Field: 'stdout'
[18:41:37.179]   - Field: 'earlySignal'
[18:41:37.179]   - Field: 'lazy'
[18:41:37.179]   - Field: 'state'
[18:41:37.179] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:37.180] - Launch lazy future ...
[18:41:37.180] Packages needed by the future expression (n = 0): <none>
[18:41:37.180] Packages needed by future strategies (n = 0): <none>
[18:41:37.181] {
[18:41:37.181]     {
[18:41:37.181]         {
[18:41:37.181]             ...future.startTime <- base::Sys.time()
[18:41:37.181]             {
[18:41:37.181]                 {
[18:41:37.181]                   {
[18:41:37.181]                     {
[18:41:37.181]                       base::local({
[18:41:37.181]                         has_future <- base::requireNamespace("future", 
[18:41:37.181]                           quietly = TRUE)
[18:41:37.181]                         if (has_future) {
[18:41:37.181]                           ns <- base::getNamespace("future")
[18:41:37.181]                           version <- ns[[".package"]][["version"]]
[18:41:37.181]                           if (is.null(version)) 
[18:41:37.181]                             version <- utils::packageVersion("future")
[18:41:37.181]                         }
[18:41:37.181]                         else {
[18:41:37.181]                           version <- NULL
[18:41:37.181]                         }
[18:41:37.181]                         if (!has_future || version < "1.8.0") {
[18:41:37.181]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.181]                             "", base::R.version$version.string), 
[18:41:37.181]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:37.181]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.181]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.181]                               "release", "version")], collapse = " "), 
[18:41:37.181]                             hostname = base::Sys.info()[["nodename"]])
[18:41:37.181]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.181]                             info)
[18:41:37.181]                           info <- base::paste(info, collapse = "; ")
[18:41:37.181]                           if (!has_future) {
[18:41:37.181]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.181]                               info)
[18:41:37.181]                           }
[18:41:37.181]                           else {
[18:41:37.181]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.181]                               info, version)
[18:41:37.181]                           }
[18:41:37.181]                           base::stop(msg)
[18:41:37.181]                         }
[18:41:37.181]                       })
[18:41:37.181]                     }
[18:41:37.181]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:37.181]                     base::options(mc.cores = 1L)
[18:41:37.181]                   }
[18:41:37.181]                   ...future.strategy.old <- future::plan("list")
[18:41:37.181]                   options(future.plan = NULL)
[18:41:37.181]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.181]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.181]                 }
[18:41:37.181]                 ...future.workdir <- getwd()
[18:41:37.181]             }
[18:41:37.181]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.181]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.181]         }
[18:41:37.181]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.181]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:37.181]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.181]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.181]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.181]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.181]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.181]             base::names(...future.oldOptions))
[18:41:37.181]     }
[18:41:37.181]     if (FALSE) {
[18:41:37.181]     }
[18:41:37.181]     else {
[18:41:37.181]         if (TRUE) {
[18:41:37.181]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.181]                 open = "w")
[18:41:37.181]         }
[18:41:37.181]         else {
[18:41:37.181]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.181]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.181]         }
[18:41:37.181]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.181]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.181]             base::sink(type = "output", split = FALSE)
[18:41:37.181]             base::close(...future.stdout)
[18:41:37.181]         }, add = TRUE)
[18:41:37.181]     }
[18:41:37.181]     ...future.frame <- base::sys.nframe()
[18:41:37.181]     ...future.conditions <- base::list()
[18:41:37.181]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.181]     if (FALSE) {
[18:41:37.181]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.181]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.181]     }
[18:41:37.181]     ...future.result <- base::tryCatch({
[18:41:37.181]         base::withCallingHandlers({
[18:41:37.181]             ...future.value <- base::withVisible(base::local({
[18:41:37.181]                 ...future.makeSendCondition <- base::local({
[18:41:37.181]                   sendCondition <- NULL
[18:41:37.181]                   function(frame = 1L) {
[18:41:37.181]                     if (is.function(sendCondition)) 
[18:41:37.181]                       return(sendCondition)
[18:41:37.181]                     ns <- getNamespace("parallel")
[18:41:37.181]                     if (exists("sendData", mode = "function", 
[18:41:37.181]                       envir = ns)) {
[18:41:37.181]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:37.181]                         envir = ns)
[18:41:37.181]                       envir <- sys.frame(frame)
[18:41:37.181]                       master <- NULL
[18:41:37.181]                       while (!identical(envir, .GlobalEnv) && 
[18:41:37.181]                         !identical(envir, emptyenv())) {
[18:41:37.181]                         if (exists("master", mode = "list", envir = envir, 
[18:41:37.181]                           inherits = FALSE)) {
[18:41:37.181]                           master <- get("master", mode = "list", 
[18:41:37.181]                             envir = envir, inherits = FALSE)
[18:41:37.181]                           if (inherits(master, c("SOCKnode", 
[18:41:37.181]                             "SOCK0node"))) {
[18:41:37.181]                             sendCondition <<- function(cond) {
[18:41:37.181]                               data <- list(type = "VALUE", value = cond, 
[18:41:37.181]                                 success = TRUE)
[18:41:37.181]                               parallel_sendData(master, data)
[18:41:37.181]                             }
[18:41:37.181]                             return(sendCondition)
[18:41:37.181]                           }
[18:41:37.181]                         }
[18:41:37.181]                         frame <- frame + 1L
[18:41:37.181]                         envir <- sys.frame(frame)
[18:41:37.181]                       }
[18:41:37.181]                     }
[18:41:37.181]                     sendCondition <<- function(cond) NULL
[18:41:37.181]                   }
[18:41:37.181]                 })
[18:41:37.181]                 withCallingHandlers({
[18:41:37.181]                   {
[18:41:37.181]                     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.181]                     if (!identical(...future.globals.maxSize.org, 
[18:41:37.181]                       ...future.globals.maxSize)) {
[18:41:37.181]                       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.181]                       on.exit(options(oopts), add = TRUE)
[18:41:37.181]                     }
[18:41:37.181]                     {
[18:41:37.181]                       args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:37.181]                         MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, 
[18:41:37.181]                         USE.NAMES = FALSE)
[18:41:37.181]                       do.call(mapply, args = args)
[18:41:37.181]                     }
[18:41:37.181]                   }
[18:41:37.181]                 }, immediateCondition = function(cond) {
[18:41:37.181]                   sendCondition <- ...future.makeSendCondition()
[18:41:37.181]                   sendCondition(cond)
[18:41:37.181]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.181]                   {
[18:41:37.181]                     inherits <- base::inherits
[18:41:37.181]                     invokeRestart <- base::invokeRestart
[18:41:37.181]                     is.null <- base::is.null
[18:41:37.181]                     muffled <- FALSE
[18:41:37.181]                     if (inherits(cond, "message")) {
[18:41:37.181]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:37.181]                       if (muffled) 
[18:41:37.181]                         invokeRestart("muffleMessage")
[18:41:37.181]                     }
[18:41:37.181]                     else if (inherits(cond, "warning")) {
[18:41:37.181]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:37.181]                       if (muffled) 
[18:41:37.181]                         invokeRestart("muffleWarning")
[18:41:37.181]                     }
[18:41:37.181]                     else if (inherits(cond, "condition")) {
[18:41:37.181]                       if (!is.null(pattern)) {
[18:41:37.181]                         computeRestarts <- base::computeRestarts
[18:41:37.181]                         grepl <- base::grepl
[18:41:37.181]                         restarts <- computeRestarts(cond)
[18:41:37.181]                         for (restart in restarts) {
[18:41:37.181]                           name <- restart$name
[18:41:37.181]                           if (is.null(name)) 
[18:41:37.181]                             next
[18:41:37.181]                           if (!grepl(pattern, name)) 
[18:41:37.181]                             next
[18:41:37.181]                           invokeRestart(restart)
[18:41:37.181]                           muffled <- TRUE
[18:41:37.181]                           break
[18:41:37.181]                         }
[18:41:37.181]                       }
[18:41:37.181]                     }
[18:41:37.181]                     invisible(muffled)
[18:41:37.181]                   }
[18:41:37.181]                   muffleCondition(cond)
[18:41:37.181]                 })
[18:41:37.181]             }))
[18:41:37.181]             future::FutureResult(value = ...future.value$value, 
[18:41:37.181]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.181]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.181]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.181]                     ...future.globalenv.names))
[18:41:37.181]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.181]         }, condition = base::local({
[18:41:37.181]             c <- base::c
[18:41:37.181]             inherits <- base::inherits
[18:41:37.181]             invokeRestart <- base::invokeRestart
[18:41:37.181]             length <- base::length
[18:41:37.181]             list <- base::list
[18:41:37.181]             seq.int <- base::seq.int
[18:41:37.181]             signalCondition <- base::signalCondition
[18:41:37.181]             sys.calls <- base::sys.calls
[18:41:37.181]             `[[` <- base::`[[`
[18:41:37.181]             `+` <- base::`+`
[18:41:37.181]             `<<-` <- base::`<<-`
[18:41:37.181]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.181]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.181]                   3L)]
[18:41:37.181]             }
[18:41:37.181]             function(cond) {
[18:41:37.181]                 is_error <- inherits(cond, "error")
[18:41:37.181]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.181]                   NULL)
[18:41:37.181]                 if (is_error) {
[18:41:37.181]                   sessionInformation <- function() {
[18:41:37.181]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.181]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.181]                       search = base::search(), system = base::Sys.info())
[18:41:37.181]                   }
[18:41:37.181]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.181]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.181]                     cond$call), session = sessionInformation(), 
[18:41:37.181]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.181]                   signalCondition(cond)
[18:41:37.181]                 }
[18:41:37.181]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.181]                 "immediateCondition"))) {
[18:41:37.181]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.181]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.181]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.181]                   if (TRUE && !signal) {
[18:41:37.181]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.181]                     {
[18:41:37.181]                       inherits <- base::inherits
[18:41:37.181]                       invokeRestart <- base::invokeRestart
[18:41:37.181]                       is.null <- base::is.null
[18:41:37.181]                       muffled <- FALSE
[18:41:37.181]                       if (inherits(cond, "message")) {
[18:41:37.181]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.181]                         if (muffled) 
[18:41:37.181]                           invokeRestart("muffleMessage")
[18:41:37.181]                       }
[18:41:37.181]                       else if (inherits(cond, "warning")) {
[18:41:37.181]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.181]                         if (muffled) 
[18:41:37.181]                           invokeRestart("muffleWarning")
[18:41:37.181]                       }
[18:41:37.181]                       else if (inherits(cond, "condition")) {
[18:41:37.181]                         if (!is.null(pattern)) {
[18:41:37.181]                           computeRestarts <- base::computeRestarts
[18:41:37.181]                           grepl <- base::grepl
[18:41:37.181]                           restarts <- computeRestarts(cond)
[18:41:37.181]                           for (restart in restarts) {
[18:41:37.181]                             name <- restart$name
[18:41:37.181]                             if (is.null(name)) 
[18:41:37.181]                               next
[18:41:37.181]                             if (!grepl(pattern, name)) 
[18:41:37.181]                               next
[18:41:37.181]                             invokeRestart(restart)
[18:41:37.181]                             muffled <- TRUE
[18:41:37.181]                             break
[18:41:37.181]                           }
[18:41:37.181]                         }
[18:41:37.181]                       }
[18:41:37.181]                       invisible(muffled)
[18:41:37.181]                     }
[18:41:37.181]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.181]                   }
[18:41:37.181]                 }
[18:41:37.181]                 else {
[18:41:37.181]                   if (TRUE) {
[18:41:37.181]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.181]                     {
[18:41:37.181]                       inherits <- base::inherits
[18:41:37.181]                       invokeRestart <- base::invokeRestart
[18:41:37.181]                       is.null <- base::is.null
[18:41:37.181]                       muffled <- FALSE
[18:41:37.181]                       if (inherits(cond, "message")) {
[18:41:37.181]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.181]                         if (muffled) 
[18:41:37.181]                           invokeRestart("muffleMessage")
[18:41:37.181]                       }
[18:41:37.181]                       else if (inherits(cond, "warning")) {
[18:41:37.181]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.181]                         if (muffled) 
[18:41:37.181]                           invokeRestart("muffleWarning")
[18:41:37.181]                       }
[18:41:37.181]                       else if (inherits(cond, "condition")) {
[18:41:37.181]                         if (!is.null(pattern)) {
[18:41:37.181]                           computeRestarts <- base::computeRestarts
[18:41:37.181]                           grepl <- base::grepl
[18:41:37.181]                           restarts <- computeRestarts(cond)
[18:41:37.181]                           for (restart in restarts) {
[18:41:37.181]                             name <- restart$name
[18:41:37.181]                             if (is.null(name)) 
[18:41:37.181]                               next
[18:41:37.181]                             if (!grepl(pattern, name)) 
[18:41:37.181]                               next
[18:41:37.181]                             invokeRestart(restart)
[18:41:37.181]                             muffled <- TRUE
[18:41:37.181]                             break
[18:41:37.181]                           }
[18:41:37.181]                         }
[18:41:37.181]                       }
[18:41:37.181]                       invisible(muffled)
[18:41:37.181]                     }
[18:41:37.181]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.181]                   }
[18:41:37.181]                 }
[18:41:37.181]             }
[18:41:37.181]         }))
[18:41:37.181]     }, error = function(ex) {
[18:41:37.181]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.181]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.181]                 ...future.rng), started = ...future.startTime, 
[18:41:37.181]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.181]             version = "1.8"), class = "FutureResult")
[18:41:37.181]     }, finally = {
[18:41:37.181]         if (!identical(...future.workdir, getwd())) 
[18:41:37.181]             setwd(...future.workdir)
[18:41:37.181]         {
[18:41:37.181]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.181]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.181]             }
[18:41:37.181]             base::options(...future.oldOptions)
[18:41:37.181]             if (.Platform$OS.type == "windows") {
[18:41:37.181]                 old_names <- names(...future.oldEnvVars)
[18:41:37.181]                 envs <- base::Sys.getenv()
[18:41:37.181]                 names <- names(envs)
[18:41:37.181]                 common <- intersect(names, old_names)
[18:41:37.181]                 added <- setdiff(names, old_names)
[18:41:37.181]                 removed <- setdiff(old_names, names)
[18:41:37.181]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.181]                   envs[common]]
[18:41:37.181]                 NAMES <- toupper(changed)
[18:41:37.181]                 args <- list()
[18:41:37.181]                 for (kk in seq_along(NAMES)) {
[18:41:37.181]                   name <- changed[[kk]]
[18:41:37.181]                   NAME <- NAMES[[kk]]
[18:41:37.181]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.181]                     next
[18:41:37.181]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.181]                 }
[18:41:37.181]                 NAMES <- toupper(added)
[18:41:37.181]                 for (kk in seq_along(NAMES)) {
[18:41:37.181]                   name <- added[[kk]]
[18:41:37.181]                   NAME <- NAMES[[kk]]
[18:41:37.181]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.181]                     next
[18:41:37.181]                   args[[name]] <- ""
[18:41:37.181]                 }
[18:41:37.181]                 NAMES <- toupper(removed)
[18:41:37.181]                 for (kk in seq_along(NAMES)) {
[18:41:37.181]                   name <- removed[[kk]]
[18:41:37.181]                   NAME <- NAMES[[kk]]
[18:41:37.181]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.181]                     next
[18:41:37.181]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.181]                 }
[18:41:37.181]                 if (length(args) > 0) 
[18:41:37.181]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.181]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.181]             }
[18:41:37.181]             else {
[18:41:37.181]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.181]             }
[18:41:37.181]             {
[18:41:37.181]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.181]                   0L) {
[18:41:37.181]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.181]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.181]                   base::options(opts)
[18:41:37.181]                 }
[18:41:37.181]                 {
[18:41:37.181]                   {
[18:41:37.181]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:37.181]                     NULL
[18:41:37.181]                   }
[18:41:37.181]                   options(future.plan = NULL)
[18:41:37.181]                   if (is.na(NA_character_)) 
[18:41:37.181]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.181]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.181]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.181]                     .init = FALSE)
[18:41:37.181]                 }
[18:41:37.181]             }
[18:41:37.181]         }
[18:41:37.181]     })
[18:41:37.181]     if (TRUE) {
[18:41:37.181]         base::sink(type = "output", split = FALSE)
[18:41:37.181]         if (TRUE) {
[18:41:37.181]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.181]         }
[18:41:37.181]         else {
[18:41:37.181]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.181]         }
[18:41:37.181]         base::close(...future.stdout)
[18:41:37.181]         ...future.stdout <- NULL
[18:41:37.181]     }
[18:41:37.181]     ...future.result$conditions <- ...future.conditions
[18:41:37.181]     ...future.result$finished <- base::Sys.time()
[18:41:37.181]     ...future.result
[18:41:37.181] }
[18:41:37.186] Exporting 5 global objects (796 bytes) to cluster node #1 ...
[18:41:37.186] Exporting '...future.FUN' (185 bytes) to cluster node #1 ...
[18:41:37.187] Exporting '...future.FUN' (185 bytes) to cluster node #1 ... DONE
[18:41:37.187] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ...
[18:41:37.187] Exporting 'MoreArgs' (27 bytes) to cluster node #1 ... DONE
[18:41:37.187] Exporting '...future.elements_ii' (97 bytes) to cluster node #1 ...
[18:41:37.188] Exporting '...future.elements_ii' (97 bytes) to cluster node #1 ... DONE
[18:41:37.188] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:41:37.188] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:41:37.189] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:37.189] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:37.189] Exporting 5 global objects (796 bytes) to cluster node #1 ... DONE
[18:41:37.190] MultisessionFuture started
[18:41:37.190] - Launch lazy future ... done
[18:41:37.191] run() for 'MultisessionFuture' ... done
[18:41:37.191] Created future:
[18:41:37.213] receiveMessageFromWorker() for ClusterFuture ...
[18:41:37.213] - Validating connection of MultisessionFuture
[18:41:37.214] - received message: FutureResult
[18:41:37.214] - Received FutureResult
[18:41:37.214] - Erased future from FutureRegistry
[18:41:37.214] result() for ClusterFuture ...
[18:41:37.214] - result already collected: FutureResult
[18:41:37.214] result() for ClusterFuture ... done
[18:41:37.215] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:37.191] MultisessionFuture:
[18:41:37.191] Label: 'future_mapply-2'
[18:41:37.191] Expression:
[18:41:37.191] {
[18:41:37.191]     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.191]     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.191]         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.191]         on.exit(options(oopts), add = TRUE)
[18:41:37.191]     }
[18:41:37.191]     {
[18:41:37.191]         args <- c(list(FUN = ...future.FUN), ...future.elements_ii, 
[18:41:37.191]             MoreArgs = list(MoreArgs), SIMPLIFY = FALSE, USE.NAMES = FALSE)
[18:41:37.191]         do.call(mapply, args = args)
[18:41:37.191]     }
[18:41:37.191] }
[18:41:37.191] Lazy evaluation: FALSE
[18:41:37.191] Asynchronous evaluation: TRUE
[18:41:37.191] Local evaluation: TRUE
[18:41:37.191] Environment: R_GlobalEnv
[18:41:37.191] Capture standard output: TRUE
[18:41:37.191] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.191] Globals: 5 objects totaling 363 bytes (function '...future.FUN' of 185 bytes, NULL 'MoreArgs' of 27 bytes, list '...future.elements_ii' of 97 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.191] Packages: <none>
[18:41:37.191] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:37.191] Resolved: TRUE
[18:41:37.191] Value: <not collected>
[18:41:37.191] Conditions captured: <none>
[18:41:37.191] Early signaling: FALSE
[18:41:37.191] Owner process: a4f4ba21-470a-220a-8bd3-c3ec27ceb83e
[18:41:37.191] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:37.215] Chunk #2 of 2 ... DONE
[18:41:37.215] Launching 2 futures (chunks) ... DONE
[18:41:37.215] Resolving 2 futures (chunks) ...
[18:41:37.216] resolve() on list ...
[18:41:37.216]  recursive: 0
[18:41:37.216]  length: 2
[18:41:37.216] 
[18:41:37.216] Future #1
[18:41:37.216] result() for ClusterFuture ...
[18:41:37.217] - result already collected: FutureResult
[18:41:37.217] result() for ClusterFuture ... done
[18:41:37.217] result() for ClusterFuture ...
[18:41:37.217] - result already collected: FutureResult
[18:41:37.217] result() for ClusterFuture ... done
[18:41:37.217] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:37.218] - nx: 2
[18:41:37.218] - relay: TRUE
[18:41:37.218] - stdout: TRUE
[18:41:37.218] - signal: TRUE
[18:41:37.218] - resignal: FALSE
[18:41:37.218] - force: TRUE
[18:41:37.218] - relayed: [n=2] FALSE, FALSE
[18:41:37.219] - queued futures: [n=2] FALSE, FALSE
[18:41:37.219]  - until=1
[18:41:37.219]  - relaying element #1
[18:41:37.219] result() for ClusterFuture ...
[18:41:37.219] - result already collected: FutureResult
[18:41:37.219] result() for ClusterFuture ... done
[18:41:37.220] result() for ClusterFuture ...
[18:41:37.220] - result already collected: FutureResult
[18:41:37.220] result() for ClusterFuture ... done
[18:41:37.220] result() for ClusterFuture ...
[18:41:37.220] - result already collected: FutureResult
[18:41:37.220] result() for ClusterFuture ... done
[18:41:37.221] result() for ClusterFuture ...
[18:41:37.221] - result already collected: FutureResult
[18:41:37.221] result() for ClusterFuture ... done
[18:41:37.221] - relayed: [n=2] TRUE, FALSE
[18:41:37.221] - queued futures: [n=2] TRUE, FALSE
[18:41:37.221] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:37.221]  length: 1 (resolved future 1)
[18:41:37.222] Future #2
[18:41:37.222] result() for ClusterFuture ...
[18:41:37.222] - result already collected: FutureResult
[18:41:37.222] result() for ClusterFuture ... done
[18:41:37.222] result() for ClusterFuture ...
[18:41:37.222] - result already collected: FutureResult
[18:41:37.223] result() for ClusterFuture ... done
[18:41:37.223] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:37.223] - nx: 2
[18:41:37.223] - relay: TRUE
[18:41:37.223] - stdout: TRUE
[18:41:37.223] - signal: TRUE
[18:41:37.224] - resignal: FALSE
[18:41:37.224] - force: TRUE
[18:41:37.224] - relayed: [n=2] TRUE, FALSE
[18:41:37.224] - queued futures: [n=2] TRUE, FALSE
[18:41:37.224]  - until=2
[18:41:37.224]  - relaying element #2
[18:41:37.224] result() for ClusterFuture ...
[18:41:37.225] - result already collected: FutureResult
[18:41:37.225] result() for ClusterFuture ... done
[18:41:37.225] result() for ClusterFuture ...
[18:41:37.225] - result already collected: FutureResult
[18:41:37.225] result() for ClusterFuture ... done
[18:41:37.225] result() for ClusterFuture ...
[18:41:37.226] - result already collected: FutureResult
[18:41:37.226] result() for ClusterFuture ... done
[18:41:37.226] result() for ClusterFuture ...
[18:41:37.226] - result already collected: FutureResult
[18:41:37.226] result() for ClusterFuture ... done
[18:41:37.226] - relayed: [n=2] TRUE, TRUE
[18:41:37.227] - queued futures: [n=2] TRUE, TRUE
[18:41:37.227] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:37.227]  length: 0 (resolved future 2)
[18:41:37.227] Relaying remaining futures
[18:41:37.227] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.227] - nx: 2
[18:41:37.227] - relay: TRUE
[18:41:37.228] - stdout: TRUE
[18:41:37.228] - signal: TRUE
[18:41:37.228] - resignal: FALSE
[18:41:37.228] - force: TRUE
[18:41:37.228] - relayed: [n=2] TRUE, TRUE
[18:41:37.228] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:37.229] - relayed: [n=2] TRUE, TRUE
[18:41:37.229] - queued futures: [n=2] TRUE, TRUE
[18:41:37.229] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.229] resolve() on list ... DONE
[18:41:37.229] result() for ClusterFuture ...
[18:41:37.230] - result already collected: FutureResult
[18:41:37.230] result() for ClusterFuture ... done
[18:41:37.230] result() for ClusterFuture ...
[18:41:37.230] - result already collected: FutureResult
[18:41:37.230] result() for ClusterFuture ... done
[18:41:37.230] result() for ClusterFuture ...
[18:41:37.230] - result already collected: FutureResult
[18:41:37.231] result() for ClusterFuture ... done
[18:41:37.231] result() for ClusterFuture ...
[18:41:37.231] - result already collected: FutureResult
[18:41:37.231] result() for ClusterFuture ... done
[18:41:37.231]  - Number of value chunks collected: 2
[18:41:37.231] Resolving 2 futures (chunks) ... DONE
[18:41:37.232] Reducing values from 2 chunks ...
[18:41:37.232]  - Number of values collected after concatenation: 2
[18:41:37.232]  - Number of values expected: 2
[18:41:37.232] Reducing values from 2 chunks ... DONE
[18:41:37.232] future_mapply() ... DONE
[18:41:37.233] plan(): Setting new future strategy stack:
[18:41:37.233] List of future strategies:
[18:41:37.233] 1. sequential:
[18:41:37.233]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.233]    - tweaked: FALSE
[18:41:37.233]    - call: plan(sequential)
[18:41:37.242] 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")
[18:41:37.244] plan(): Setting new future strategy stack:
[18:41:37.245] List of future strategies:
[18:41:37.245] 1. FutureStrategy:
[18:41:37.245]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.245]    - tweaked: FALSE
[18:41:37.245]    - call: future::plan(oplan)
[18:41:37.246] plan(): nbrOfWorkers() = 1
> 
> proc.time()
   user  system elapsed 
   5.42    0.32    7.51