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:58.886] plan(): Setting new future strategy stack:
[18:41:58.887] List of future strategies:
[18:41:58.887] 1. sequential:
[18:41:58.887]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:58.887]    - tweaked: FALSE
[18:41:58.887]    - call: future::plan("sequential")
[18:41:58.900] plan(): nbrOfWorkers() = 1
> 
> 
> message("*** future_vapply() ...")
*** future_vapply() ...
> 
> for (strategy in supportedStrategies()) {
+   message(sprintf("*** strategy = %s ...", sQuote(strategy)))
+   plan(strategy)
+   
+   x <- NULL
+   fun <- is.factor
+   fun_name <- "is.factor"
+   fun_value <- logical(1L)
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   y2 <- future_vapply(x, FUN = fun_name, FUN.VALUE = fun_value)
+   str(y2)
+   stopifnot(all.equal(y2, y0))
+   
+   x <- list()
+   fun <- is.numeric
+   fun_value <- logical(1L)
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   x <- integer()
+   fun <- identity
+   fun_value <- fun(integer(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   
+   df <- data.frame(x = 1:10, y = letters[1:10], stringsAsFactors=FALSE)
+   fun <- class
+   fun_value <- character(1L)
+   y0 <- vapply(df, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(df, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   x <- 1:10
+   fun <- function(x) double(0L)
+   fun_value <- fun(double(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   fun <- function(x) integer(0L)
+   fun_value <- fun(double(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   fun <- sqrt
+   fun_value <- fun(double(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   fun <- function(x) c(x, x^2)
+   fun_value <- fun(double(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   fun <- function(x) matrix(x, nrow = 2L, ncol = 2L)
+   fun_value <- fun(integer(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   fun <- function(x) matrix(x, nrow = 2L, ncol = 2L)
+   fun_value <- fun(double(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+ 
+   ## Ditto with dimnames on FUN.VALUE
+   fun <- function(x) {
+     matrix(x, nrow = 2L, ncol = 2L, dimnames = list(c("a", "b"), c("A", "B")))
+   }
+   fun_value <- fun(double(1L))
+   y0 <- vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y0)
+   y1 <- future_vapply(x, FUN = fun, FUN.VALUE = fun_value)
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   message("- From example(vapply) ...")
+   x <- list(a = 1:10, beta = exp(-3:3), logic = c(TRUE, FALSE, FALSE, TRUE))
+   y0 <- vapply(x, FUN = quantile, FUN.VALUE = double(5L))
+   y1 <- future_vapply(x, FUN = quantile, FUN.VALUE = double(5L))
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+   
+   i39 <- sapply(3:9, seq)
+   ys0 <- sapply(i39, fivenum)
+   ys1 <- future_sapply(i39, fivenum)
+   stopifnot(all.equal(ys1, ys0))
+   
+   yv0 <- vapply(i39, fivenum,
+           c(Min. = 0, "1st Qu." = 0, Median = 0, "3rd Qu." = 0, Max. = 0))
+   yv1 <- future_vapply(i39, fivenum,
+          c(Min. = 0, "1st Qu." = 0, Median = 0, "3rd Qu." = 0, Max. = 0))
+   str(yv1)
+   stopifnot(all.equal(yv1, yv0))
+   
+   v <- structure(10*(5:8), names = LETTERS[1:4])
+   f <- function(x, y) outer(rep(x, length.out = 3L), y)
+   ys0 <- sapply(v, f, y = 2*(1:5), simplify = "array")
+   ys1 <- future_sapply(v, f, y = 2*(1:5), simplify = "array")
+   stopifnot(all.equal(ys1, ys0))
+   
+   fv <- outer(1:3, 1:5)
+   y <- 2*(1:5)
+   yv0 <- vapply(v, f, fv, y = y)
+   yv1 <- future_vapply(v, f, fv, y = y)
+   str(yv1)
+   stopifnot(all.equal(yv1, yv0))
+   
+   y0 <- vapply(mtcars, FUN = is.numeric, FUN.VALUE = logical(1L))
+   y1 <- future_vapply(mtcars, FUN = is.numeric, FUN.VALUE = logical(1L))
+   str(y1)
+   stopifnot(all.equal(y1, y0))
+ 
+   message("- future_vapply(x, ...) where length(x) != length(as.list(x)) ...")
+   x <- structure(list(a = 1, b = 2), class = "Foo")
+   as.list.Foo <- function(x, ...) c(x, c = 3)
+   y0 <- vapply(x, FUN = length, FUN.VALUE = -1L)
+   y1 <- future_vapply(x, FUN = length, FUN.VALUE = -1L)
+   stopifnot(identical(y1, y0))
+ 
+   message("- exceptions ...")
+   res <- tryCatch({
+     y0 <- vapply(1:3, FUN = identity, FUN.VALUE = c(3, 3))
+   }, error = identity)
+   stopifnot(inherits(res, "error"))
+   res <- tryCatch({
+     y1 <- future_vapply(1:3, FUN = identity, FUN.VALUE = c(3, 3))
+   }, error = identity)
+   stopifnot(inherits(res, "error"))
+   
+   plan(sequential)
+   message(sprintf("*** strategy = %s ... done", sQuote(strategy)))
+ } ## for (strategy in ...) 
*** strategy = 'sequential' ...
[18:41:59.047] plan(): Setting new future strategy stack:
[18:41:59.047] List of future strategies:
[18:41:59.047] 1. sequential:
[18:41:59.047]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.047]    - tweaked: FALSE
[18:41:59.047]    - call: plan(strategy)
[18:41:59.059] plan(): nbrOfWorkers() = 1
 logi(0) 
 logi(0) 
 logi(0) 
 logi(0) 
 logi(0) 
 int(0) 
 int(0) 
 Named chr [1:2] "integer" "character"
 - attr(*, "names")= chr [1:2] "x" "y"
[18:41:59.065] future_lapply() ...
[18:41:59.073] Number of chunks: 1
[18:41:59.073] getGlobalsAndPackagesXApply() ...
[18:41:59.073]  - future.globals: TRUE
[18:41:59.074] getGlobalsAndPackages() ...
[18:41:59.074] Searching for globals...
[18:41:59.079] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:41:59.079] Searching for globals ... DONE
[18:41:59.080] Resolving globals: FALSE
[18:41:59.081] The total size of the 7 globals is 12.01 KiB (12294 bytes)
[18:41:59.082] The total size of the 7 globals exported for future expression ('FUN()') is 12.01 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.02 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.082] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.082] - packages: [1] 'future.apply'
[18:41:59.083] getGlobalsAndPackages() ... DONE
[18:41:59.083]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.083]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.083] Finding globals ... DONE
[18:41:59.083]  - use_args: TRUE
[18:41:59.083]  - Getting '...' globals ...
[18:41:59.084] resolve() on list ...
[18:41:59.085]  recursive: 0
[18:41:59.085]  length: 1
[18:41:59.085]  elements: '...'
[18:41:59.085]  length: 0 (resolved future 1)
[18:41:59.086] resolve() on list ... DONE
[18:41:59.086]    - '...' content: [n=0] 
[18:41:59.086] List of 1
[18:41:59.086]  $ ...: list()
[18:41:59.086]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.086]  - attr(*, "where")=List of 1
[18:41:59.086]   ..$ ...:<environment: 0x000002ea02c6ac30> 
[18:41:59.086]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.086]  - attr(*, "resolved")= logi TRUE
[18:41:59.086]  - attr(*, "total_size")= num NA
[18:41:59.089]  - Getting '...' globals ... DONE
[18:41:59.089] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.089] List of 8
[18:41:59.089]  $ ...future.FUN:function (x, ...)  
[18:41:59.089]  $ x_FUN        :function (x)  
[18:41:59.089]  $ times        : int 1
[18:41:59.089]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.089]  $ stop_if_not  :function (...)  
[18:41:59.089]  $ dim          : NULL
[18:41:59.089]  $ valid_types  : chr "character"
[18:41:59.089]  $ ...          : list()
[18:41:59.089]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.089]  - attr(*, "where")=List of 8
[18:41:59.089]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.089]   ..$ ...          :<environment: 0x000002ea02c6ac30> 
[18:41:59.089]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.089]  - attr(*, "resolved")= logi FALSE
[18:41:59.089]  - attr(*, "total_size")= int 22333
[18:41:59.098] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.098] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.098] Number of futures (= number of chunks): 1
[18:41:59.098] Launching 1 futures (chunks) ...
[18:41:59.099] Chunk #1 of 1 ...
[18:41:59.099]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.099] getGlobalsAndPackages() ...
[18:41:59.099] Searching for globals...
[18:41:59.100] 
[18:41:59.100] Searching for globals ... DONE
[18:41:59.100] - globals: [0] <none>
[18:41:59.100] getGlobalsAndPackages() ... DONE
[18:41:59.100]    + additional globals found: [n=0] 
[18:41:59.101]    + additional namespaces needed: [n=0] 
[18:41:59.101]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.101]  - seeds: <none>
[18:41:59.101]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.101] getGlobalsAndPackages() ...
[18:41:59.101] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.102] Resolving globals: FALSE
[18:41:59.102] Tweak future expression to call with '...' arguments ...
[18:41:59.102] {
[18:41:59.102]     do.call(function(...) {
[18:41:59.102]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.102]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.102]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.102]             on.exit(options(oopts), add = TRUE)
[18:41:59.102]         }
[18:41:59.102]         {
[18:41:59.102]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.102]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.102]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.102]             })
[18:41:59.102]         }
[18:41:59.102]     }, args = future.call.arguments)
[18:41:59.102] }
[18:41:59.102] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.103] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.103] - packages: [1] 'future.apply'
[18:41:59.103] getGlobalsAndPackages() ... DONE
[18:41:59.104] run() for 'Future' ...
[18:41:59.104] - state: 'created'
[18:41:59.105] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.105] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.105] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.106]   - Field: 'label'
[18:41:59.106]   - Field: 'local'
[18:41:59.106]   - Field: 'owner'
[18:41:59.106]   - Field: 'envir'
[18:41:59.106]   - Field: 'packages'
[18:41:59.106]   - Field: 'gc'
[18:41:59.107]   - Field: 'conditions'
[18:41:59.107]   - Field: 'expr'
[18:41:59.107]   - Field: 'uuid'
[18:41:59.107]   - Field: 'seed'
[18:41:59.107]   - Field: 'version'
[18:41:59.107]   - Field: 'result'
[18:41:59.108]   - Field: 'asynchronous'
[18:41:59.108]   - Field: 'calls'
[18:41:59.108]   - Field: 'globals'
[18:41:59.108]   - Field: 'stdout'
[18:41:59.108]   - Field: 'earlySignal'
[18:41:59.108]   - Field: 'lazy'
[18:41:59.109]   - Field: 'state'
[18:41:59.109] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.109] - Launch lazy future ...
[18:41:59.110] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.110] Packages needed by future strategies (n = 0): <none>
[18:41:59.111] {
[18:41:59.111]     {
[18:41:59.111]         {
[18:41:59.111]             ...future.startTime <- base::Sys.time()
[18:41:59.111]             {
[18:41:59.111]                 {
[18:41:59.111]                   {
[18:41:59.111]                     {
[18:41:59.111]                       base::local({
[18:41:59.111]                         has_future <- base::requireNamespace("future", 
[18:41:59.111]                           quietly = TRUE)
[18:41:59.111]                         if (has_future) {
[18:41:59.111]                           ns <- base::getNamespace("future")
[18:41:59.111]                           version <- ns[[".package"]][["version"]]
[18:41:59.111]                           if (is.null(version)) 
[18:41:59.111]                             version <- utils::packageVersion("future")
[18:41:59.111]                         }
[18:41:59.111]                         else {
[18:41:59.111]                           version <- NULL
[18:41:59.111]                         }
[18:41:59.111]                         if (!has_future || version < "1.8.0") {
[18:41:59.111]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.111]                             "", base::R.version$version.string), 
[18:41:59.111]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.111]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.111]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.111]                               "release", "version")], collapse = " "), 
[18:41:59.111]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.111]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.111]                             info)
[18:41:59.111]                           info <- base::paste(info, collapse = "; ")
[18:41:59.111]                           if (!has_future) {
[18:41:59.111]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.111]                               info)
[18:41:59.111]                           }
[18:41:59.111]                           else {
[18:41:59.111]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.111]                               info, version)
[18:41:59.111]                           }
[18:41:59.111]                           base::stop(msg)
[18:41:59.111]                         }
[18:41:59.111]                       })
[18:41:59.111]                     }
[18:41:59.111]                     base::local({
[18:41:59.111]                       for (pkg in "future.apply") {
[18:41:59.111]                         base::loadNamespace(pkg)
[18:41:59.111]                         base::library(pkg, character.only = TRUE)
[18:41:59.111]                       }
[18:41:59.111]                     })
[18:41:59.111]                   }
[18:41:59.111]                   ...future.strategy.old <- future::plan("list")
[18:41:59.111]                   options(future.plan = NULL)
[18:41:59.111]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.111]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.111]                 }
[18:41:59.111]                 ...future.workdir <- getwd()
[18:41:59.111]             }
[18:41:59.111]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.111]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.111]         }
[18:41:59.111]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.111]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.111]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.111]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.111]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.111]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.111]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.111]             base::names(...future.oldOptions))
[18:41:59.111]     }
[18:41:59.111]     if (FALSE) {
[18:41:59.111]     }
[18:41:59.111]     else {
[18:41:59.111]         if (TRUE) {
[18:41:59.111]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.111]                 open = "w")
[18:41:59.111]         }
[18:41:59.111]         else {
[18:41:59.111]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.111]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.111]         }
[18:41:59.111]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.111]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.111]             base::sink(type = "output", split = FALSE)
[18:41:59.111]             base::close(...future.stdout)
[18:41:59.111]         }, add = TRUE)
[18:41:59.111]     }
[18:41:59.111]     ...future.frame <- base::sys.nframe()
[18:41:59.111]     ...future.conditions <- base::list()
[18:41:59.111]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.111]     if (FALSE) {
[18:41:59.111]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.111]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.111]     }
[18:41:59.111]     ...future.result <- base::tryCatch({
[18:41:59.111]         base::withCallingHandlers({
[18:41:59.111]             ...future.value <- base::withVisible(base::local({
[18:41:59.111]                 do.call(function(...) {
[18:41:59.111]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.111]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.111]                     ...future.globals.maxSize)) {
[18:41:59.111]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.111]                     on.exit(options(oopts), add = TRUE)
[18:41:59.111]                   }
[18:41:59.111]                   {
[18:41:59.111]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.111]                       FUN = function(jj) {
[18:41:59.111]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.111]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.111]                       })
[18:41:59.111]                   }
[18:41:59.111]                 }, args = future.call.arguments)
[18:41:59.111]             }))
[18:41:59.111]             future::FutureResult(value = ...future.value$value, 
[18:41:59.111]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.111]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.111]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.111]                     ...future.globalenv.names))
[18:41:59.111]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.111]         }, condition = base::local({
[18:41:59.111]             c <- base::c
[18:41:59.111]             inherits <- base::inherits
[18:41:59.111]             invokeRestart <- base::invokeRestart
[18:41:59.111]             length <- base::length
[18:41:59.111]             list <- base::list
[18:41:59.111]             seq.int <- base::seq.int
[18:41:59.111]             signalCondition <- base::signalCondition
[18:41:59.111]             sys.calls <- base::sys.calls
[18:41:59.111]             `[[` <- base::`[[`
[18:41:59.111]             `+` <- base::`+`
[18:41:59.111]             `<<-` <- base::`<<-`
[18:41:59.111]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.111]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.111]                   3L)]
[18:41:59.111]             }
[18:41:59.111]             function(cond) {
[18:41:59.111]                 is_error <- inherits(cond, "error")
[18:41:59.111]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.111]                   NULL)
[18:41:59.111]                 if (is_error) {
[18:41:59.111]                   sessionInformation <- function() {
[18:41:59.111]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.111]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.111]                       search = base::search(), system = base::Sys.info())
[18:41:59.111]                   }
[18:41:59.111]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.111]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.111]                     cond$call), session = sessionInformation(), 
[18:41:59.111]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.111]                   signalCondition(cond)
[18:41:59.111]                 }
[18:41:59.111]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.111]                 "immediateCondition"))) {
[18:41:59.111]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.111]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.111]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.111]                   if (TRUE && !signal) {
[18:41:59.111]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.111]                     {
[18:41:59.111]                       inherits <- base::inherits
[18:41:59.111]                       invokeRestart <- base::invokeRestart
[18:41:59.111]                       is.null <- base::is.null
[18:41:59.111]                       muffled <- FALSE
[18:41:59.111]                       if (inherits(cond, "message")) {
[18:41:59.111]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.111]                         if (muffled) 
[18:41:59.111]                           invokeRestart("muffleMessage")
[18:41:59.111]                       }
[18:41:59.111]                       else if (inherits(cond, "warning")) {
[18:41:59.111]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.111]                         if (muffled) 
[18:41:59.111]                           invokeRestart("muffleWarning")
[18:41:59.111]                       }
[18:41:59.111]                       else if (inherits(cond, "condition")) {
[18:41:59.111]                         if (!is.null(pattern)) {
[18:41:59.111]                           computeRestarts <- base::computeRestarts
[18:41:59.111]                           grepl <- base::grepl
[18:41:59.111]                           restarts <- computeRestarts(cond)
[18:41:59.111]                           for (restart in restarts) {
[18:41:59.111]                             name <- restart$name
[18:41:59.111]                             if (is.null(name)) 
[18:41:59.111]                               next
[18:41:59.111]                             if (!grepl(pattern, name)) 
[18:41:59.111]                               next
[18:41:59.111]                             invokeRestart(restart)
[18:41:59.111]                             muffled <- TRUE
[18:41:59.111]                             break
[18:41:59.111]                           }
[18:41:59.111]                         }
[18:41:59.111]                       }
[18:41:59.111]                       invisible(muffled)
[18:41:59.111]                     }
[18:41:59.111]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.111]                   }
[18:41:59.111]                 }
[18:41:59.111]                 else {
[18:41:59.111]                   if (TRUE) {
[18:41:59.111]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.111]                     {
[18:41:59.111]                       inherits <- base::inherits
[18:41:59.111]                       invokeRestart <- base::invokeRestart
[18:41:59.111]                       is.null <- base::is.null
[18:41:59.111]                       muffled <- FALSE
[18:41:59.111]                       if (inherits(cond, "message")) {
[18:41:59.111]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.111]                         if (muffled) 
[18:41:59.111]                           invokeRestart("muffleMessage")
[18:41:59.111]                       }
[18:41:59.111]                       else if (inherits(cond, "warning")) {
[18:41:59.111]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.111]                         if (muffled) 
[18:41:59.111]                           invokeRestart("muffleWarning")
[18:41:59.111]                       }
[18:41:59.111]                       else if (inherits(cond, "condition")) {
[18:41:59.111]                         if (!is.null(pattern)) {
[18:41:59.111]                           computeRestarts <- base::computeRestarts
[18:41:59.111]                           grepl <- base::grepl
[18:41:59.111]                           restarts <- computeRestarts(cond)
[18:41:59.111]                           for (restart in restarts) {
[18:41:59.111]                             name <- restart$name
[18:41:59.111]                             if (is.null(name)) 
[18:41:59.111]                               next
[18:41:59.111]                             if (!grepl(pattern, name)) 
[18:41:59.111]                               next
[18:41:59.111]                             invokeRestart(restart)
[18:41:59.111]                             muffled <- TRUE
[18:41:59.111]                             break
[18:41:59.111]                           }
[18:41:59.111]                         }
[18:41:59.111]                       }
[18:41:59.111]                       invisible(muffled)
[18:41:59.111]                     }
[18:41:59.111]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.111]                   }
[18:41:59.111]                 }
[18:41:59.111]             }
[18:41:59.111]         }))
[18:41:59.111]     }, error = function(ex) {
[18:41:59.111]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.111]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.111]                 ...future.rng), started = ...future.startTime, 
[18:41:59.111]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.111]             version = "1.8"), class = "FutureResult")
[18:41:59.111]     }, finally = {
[18:41:59.111]         if (!identical(...future.workdir, getwd())) 
[18:41:59.111]             setwd(...future.workdir)
[18:41:59.111]         {
[18:41:59.111]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.111]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.111]             }
[18:41:59.111]             base::options(...future.oldOptions)
[18:41:59.111]             if (.Platform$OS.type == "windows") {
[18:41:59.111]                 old_names <- names(...future.oldEnvVars)
[18:41:59.111]                 envs <- base::Sys.getenv()
[18:41:59.111]                 names <- names(envs)
[18:41:59.111]                 common <- intersect(names, old_names)
[18:41:59.111]                 added <- setdiff(names, old_names)
[18:41:59.111]                 removed <- setdiff(old_names, names)
[18:41:59.111]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.111]                   envs[common]]
[18:41:59.111]                 NAMES <- toupper(changed)
[18:41:59.111]                 args <- list()
[18:41:59.111]                 for (kk in seq_along(NAMES)) {
[18:41:59.111]                   name <- changed[[kk]]
[18:41:59.111]                   NAME <- NAMES[[kk]]
[18:41:59.111]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.111]                     next
[18:41:59.111]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.111]                 }
[18:41:59.111]                 NAMES <- toupper(added)
[18:41:59.111]                 for (kk in seq_along(NAMES)) {
[18:41:59.111]                   name <- added[[kk]]
[18:41:59.111]                   NAME <- NAMES[[kk]]
[18:41:59.111]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.111]                     next
[18:41:59.111]                   args[[name]] <- ""
[18:41:59.111]                 }
[18:41:59.111]                 NAMES <- toupper(removed)
[18:41:59.111]                 for (kk in seq_along(NAMES)) {
[18:41:59.111]                   name <- removed[[kk]]
[18:41:59.111]                   NAME <- NAMES[[kk]]
[18:41:59.111]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.111]                     next
[18:41:59.111]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.111]                 }
[18:41:59.111]                 if (length(args) > 0) 
[18:41:59.111]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.111]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.111]             }
[18:41:59.111]             else {
[18:41:59.111]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.111]             }
[18:41:59.111]             {
[18:41:59.111]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.111]                   0L) {
[18:41:59.111]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.111]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.111]                   base::options(opts)
[18:41:59.111]                 }
[18:41:59.111]                 {
[18:41:59.111]                   {
[18:41:59.111]                     NULL
[18:41:59.111]                     RNGkind("Mersenne-Twister")
[18:41:59.111]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.111]                       inherits = FALSE)
[18:41:59.111]                   }
[18:41:59.111]                   options(future.plan = NULL)
[18:41:59.111]                   if (is.na(NA_character_)) 
[18:41:59.111]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.111]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.111]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.111]                     .init = FALSE)
[18:41:59.111]                 }
[18:41:59.111]             }
[18:41:59.111]         }
[18:41:59.111]     })
[18:41:59.111]     if (TRUE) {
[18:41:59.111]         base::sink(type = "output", split = FALSE)
[18:41:59.111]         if (TRUE) {
[18:41:59.111]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.111]         }
[18:41:59.111]         else {
[18:41:59.111]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.111]         }
[18:41:59.111]         base::close(...future.stdout)
[18:41:59.111]         ...future.stdout <- NULL
[18:41:59.111]     }
[18:41:59.111]     ...future.result$conditions <- ...future.conditions
[18:41:59.111]     ...future.result$finished <- base::Sys.time()
[18:41:59.111]     ...future.result
[18:41:59.111] }
[18:41:59.115] assign_globals() ...
[18:41:59.115] List of 11
[18:41:59.115]  $ ...future.FUN            :function (x, ...)  
[18:41:59.115]  $ x_FUN                    :function (x)  
[18:41:59.115]  $ times                    : int 1
[18:41:59.115]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.115]  $ stop_if_not              :function (...)  
[18:41:59.115]  $ dim                      : NULL
[18:41:59.115]  $ valid_types              : chr "character"
[18:41:59.115]  $ future.call.arguments    : list()
[18:41:59.115]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.115]  $ ...future.elements_ii    :List of 2
[18:41:59.115]   ..$ x: int [1:10] 1 2 3 4 5 6 7 8 9 10
[18:41:59.115]   ..$ y: chr [1:10] "a" "b" "c" "d" ...
[18:41:59.115]  $ ...future.seeds_ii       : NULL
[18:41:59.115]  $ ...future.globals.maxSize: NULL
[18:41:59.115]  - attr(*, "where")=List of 11
[18:41:59.115]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.115]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.115]  - attr(*, "resolved")= logi FALSE
[18:41:59.115]  - attr(*, "total_size")= num 22333
[18:41:59.115]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.115]  - attr(*, "already-done")= logi TRUE
[18:41:59.126] - copied '...future.FUN' to environment
[18:41:59.126] - copied 'x_FUN' to environment
[18:41:59.126] - copied 'times' to environment
[18:41:59.126] - copied 'stopf' to environment
[18:41:59.126] - copied 'stop_if_not' to environment
[18:41:59.127] - copied 'dim' to environment
[18:41:59.127] - copied 'valid_types' to environment
[18:41:59.127] - copied 'future.call.arguments' to environment
[18:41:59.127] - copied '...future.elements_ii' to environment
[18:41:59.127] - copied '...future.seeds_ii' to environment
[18:41:59.127] - copied '...future.globals.maxSize' to environment
[18:41:59.127] assign_globals() ... done
[18:41:59.128] plan(): Setting new future strategy stack:
[18:41:59.128] List of future strategies:
[18:41:59.128] 1. sequential:
[18:41:59.128]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.128]    - tweaked: FALSE
[18:41:59.128]    - call: NULL
[18:41:59.129] plan(): nbrOfWorkers() = 1
[18:41:59.131] plan(): Setting new future strategy stack:
[18:41:59.131] List of future strategies:
[18:41:59.131] 1. sequential:
[18:41:59.131]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.131]    - tweaked: FALSE
[18:41:59.131]    - call: plan(strategy)
[18:41:59.132] plan(): nbrOfWorkers() = 1
[18:41:59.132] SequentialFuture started (and completed)
[18:41:59.133] - Launch lazy future ... done
[18:41:59.133] run() for 'SequentialFuture' ... done
[18:41:59.133] Created future:
[18:41:59.134] SequentialFuture:
[18:41:59.134] Label: 'future_vapply-1'
[18:41:59.134] Expression:
[18:41:59.134] {
[18:41:59.134]     do.call(function(...) {
[18:41:59.134]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.134]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.134]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.134]             on.exit(options(oopts), add = TRUE)
[18:41:59.134]         }
[18:41:59.134]         {
[18:41:59.134]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.134]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.134]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.134]             })
[18:41:59.134]         }
[18:41:59.134]     }, args = future.call.arguments)
[18:41:59.134] }
[18:41:59.134] Lazy evaluation: FALSE
[18:41:59.134] Asynchronous evaluation: FALSE
[18:41:59.134] Local evaluation: TRUE
[18:41:59.134] Environment: R_GlobalEnv
[18:41:59.134] Capture standard output: TRUE
[18:41:59.134] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.134] Globals: 11 objects totaling 12.43 KiB (function '...future.FUN' of 4.02 KiB, function 'x_FUN' of 36 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.134] Packages: 1 packages ('future.apply')
[18:41:59.134] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.134] Resolved: TRUE
[18:41:59.134] Value: 79 bytes of class 'list'
[18:41:59.134] Early signaling: FALSE
[18:41:59.134] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.134] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.135] Chunk #1 of 1 ... DONE
[18:41:59.135] Launching 1 futures (chunks) ... DONE
[18:41:59.135] Resolving 1 futures (chunks) ...
[18:41:59.136] resolve() on list ...
[18:41:59.136]  recursive: 0
[18:41:59.136]  length: 1
[18:41:59.136] 
[18:41:59.136] resolved() for 'SequentialFuture' ...
[18:41:59.137] - state: 'finished'
[18:41:59.137] - run: TRUE
[18:41:59.137] - result: 'FutureResult'
[18:41:59.137] resolved() for 'SequentialFuture' ... done
[18:41:59.137] Future #1
[18:41:59.138] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.138] - nx: 1
[18:41:59.138] - relay: TRUE
[18:41:59.138] - stdout: TRUE
[18:41:59.138] - signal: TRUE
[18:41:59.139] - resignal: FALSE
[18:41:59.139] - force: TRUE
[18:41:59.139] - relayed: [n=1] FALSE
[18:41:59.139] - queued futures: [n=1] FALSE
[18:41:59.139]  - until=1
[18:41:59.139]  - relaying element #1
[18:41:59.140] - relayed: [n=1] TRUE
[18:41:59.140] - queued futures: [n=1] TRUE
[18:41:59.140] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.140]  length: 0 (resolved future 1)
[18:41:59.140] Relaying remaining futures
[18:41:59.140] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.141] - nx: 1
[18:41:59.141] - relay: TRUE
[18:41:59.141] - stdout: TRUE
[18:41:59.141] - signal: TRUE
[18:41:59.141] - resignal: FALSE
[18:41:59.141] - force: TRUE
[18:41:59.142] - relayed: [n=1] TRUE
[18:41:59.142] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.142] - relayed: [n=1] TRUE
[18:41:59.142] - queued futures: [n=1] TRUE
[18:41:59.142] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.142] resolve() on list ... DONE
[18:41:59.143]  - Number of value chunks collected: 1
[18:41:59.143] Resolving 1 futures (chunks) ... DONE
[18:41:59.143] Reducing values from 1 chunks ...
[18:41:59.143]  - Number of values collected after concatenation: 2
[18:41:59.143]  - Number of values expected: 2
[18:41:59.143] Reducing values from 1 chunks ... DONE
[18:41:59.144] future_lapply() ... DONE
 Named chr [1:2] "integer" "character"
 - attr(*, "names")= chr [1:2] "x" "y"
 num[0 , 1:10] 
[18:41:59.145] future_lapply() ...
[18:41:59.147] Number of chunks: 1
[18:41:59.148] getGlobalsAndPackagesXApply() ...
[18:41:59.148]  - future.globals: TRUE
[18:41:59.148] getGlobalsAndPackages() ...
[18:41:59.148] Searching for globals...
[18:41:59.153] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'double'
[18:41:59.154] Searching for globals ... DONE
[18:41:59.154] Resolving globals: FALSE
[18:41:59.155] The total size of the 7 globals is 12.77 KiB (13081 bytes)
[18:41:59.155] The total size of the 7 globals exported for future expression ('FUN()') is 12.77 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.156] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.156] - packages: [1] 'future.apply'
[18:41:59.156] getGlobalsAndPackages() ... DONE
[18:41:59.156]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.156]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.156] Finding globals ... DONE
[18:41:59.157]  - use_args: TRUE
[18:41:59.157]  - Getting '...' globals ...
[18:41:59.157] resolve() on list ...
[18:41:59.157]  recursive: 0
[18:41:59.157]  length: 1
[18:41:59.158]  elements: '...'
[18:41:59.158]  length: 0 (resolved future 1)
[18:41:59.158] resolve() on list ... DONE
[18:41:59.158]    - '...' content: [n=0] 
[18:41:59.158] List of 1
[18:41:59.158]  $ ...: list()
[18:41:59.158]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.158]  - attr(*, "where")=List of 1
[18:41:59.158]   ..$ ...:<environment: 0x000002ea0242a110> 
[18:41:59.158]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.158]  - attr(*, "resolved")= logi TRUE
[18:41:59.158]  - attr(*, "total_size")= num NA
[18:41:59.161]  - Getting '...' globals ... DONE
[18:41:59.161] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.162] List of 8
[18:41:59.162]  $ ...future.FUN:function (x, ...)  
[18:41:59.162]  $ x_FUN        :function (x)  
[18:41:59.162]  $ times        : int 0
[18:41:59.162]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.162]  $ stop_if_not  :function (...)  
[18:41:59.162]  $ dim          : NULL
[18:41:59.162]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.162]  $ ...          : list()
[18:41:59.162]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.162]  - attr(*, "where")=List of 8
[18:41:59.162]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.162]   ..$ ...          :<environment: 0x000002ea0242a110> 
[18:41:59.162]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.162]  - attr(*, "resolved")= logi FALSE
[18:41:59.162]  - attr(*, "total_size")= int 23490
[18:41:59.192] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.192] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.193] Number of futures (= number of chunks): 1
[18:41:59.193] Launching 1 futures (chunks) ...
[18:41:59.193] Chunk #1 of 1 ...
[18:41:59.193]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.193] getGlobalsAndPackages() ...
[18:41:59.194] Searching for globals...
[18:41:59.194] 
[18:41:59.194] Searching for globals ... DONE
[18:41:59.194] - globals: [0] <none>
[18:41:59.194] getGlobalsAndPackages() ... DONE
[18:41:59.195]    + additional globals found: [n=0] 
[18:41:59.195]    + additional namespaces needed: [n=0] 
[18:41:59.195]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.195]  - seeds: <none>
[18:41:59.195]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.195] getGlobalsAndPackages() ...
[18:41:59.195] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.196] Resolving globals: FALSE
[18:41:59.196] Tweak future expression to call with '...' arguments ...
[18:41:59.196] {
[18:41:59.196]     do.call(function(...) {
[18:41:59.196]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.196]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.196]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.196]             on.exit(options(oopts), add = TRUE)
[18:41:59.196]         }
[18:41:59.196]         {
[18:41:59.196]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.196]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.196]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.196]             })
[18:41:59.196]         }
[18:41:59.196]     }, args = future.call.arguments)
[18:41:59.196] }
[18:41:59.197] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.197] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.197] - packages: [1] 'future.apply'
[18:41:59.198] getGlobalsAndPackages() ... DONE
[18:41:59.198] run() for 'Future' ...
[18:41:59.198] - state: 'created'
[18:41:59.198] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.199] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.199] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.199]   - Field: 'label'
[18:41:59.199]   - Field: 'local'
[18:41:59.199]   - Field: 'owner'
[18:41:59.200]   - Field: 'envir'
[18:41:59.200]   - Field: 'packages'
[18:41:59.200]   - Field: 'gc'
[18:41:59.200]   - Field: 'conditions'
[18:41:59.200]   - Field: 'expr'
[18:41:59.201]   - Field: 'uuid'
[18:41:59.201]   - Field: 'seed'
[18:41:59.201]   - Field: 'version'
[18:41:59.201]   - Field: 'result'
[18:41:59.201]   - Field: 'asynchronous'
[18:41:59.201]   - Field: 'calls'
[18:41:59.202]   - Field: 'globals'
[18:41:59.202]   - Field: 'stdout'
[18:41:59.202]   - Field: 'earlySignal'
[18:41:59.202]   - Field: 'lazy'
[18:41:59.202]   - Field: 'state'
[18:41:59.202] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.203] - Launch lazy future ...
[18:41:59.203] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.203] Packages needed by future strategies (n = 0): <none>
[18:41:59.204] {
[18:41:59.204]     {
[18:41:59.204]         {
[18:41:59.204]             ...future.startTime <- base::Sys.time()
[18:41:59.204]             {
[18:41:59.204]                 {
[18:41:59.204]                   {
[18:41:59.204]                     {
[18:41:59.204]                       base::local({
[18:41:59.204]                         has_future <- base::requireNamespace("future", 
[18:41:59.204]                           quietly = TRUE)
[18:41:59.204]                         if (has_future) {
[18:41:59.204]                           ns <- base::getNamespace("future")
[18:41:59.204]                           version <- ns[[".package"]][["version"]]
[18:41:59.204]                           if (is.null(version)) 
[18:41:59.204]                             version <- utils::packageVersion("future")
[18:41:59.204]                         }
[18:41:59.204]                         else {
[18:41:59.204]                           version <- NULL
[18:41:59.204]                         }
[18:41:59.204]                         if (!has_future || version < "1.8.0") {
[18:41:59.204]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.204]                             "", base::R.version$version.string), 
[18:41:59.204]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.204]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.204]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.204]                               "release", "version")], collapse = " "), 
[18:41:59.204]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.204]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.204]                             info)
[18:41:59.204]                           info <- base::paste(info, collapse = "; ")
[18:41:59.204]                           if (!has_future) {
[18:41:59.204]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.204]                               info)
[18:41:59.204]                           }
[18:41:59.204]                           else {
[18:41:59.204]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.204]                               info, version)
[18:41:59.204]                           }
[18:41:59.204]                           base::stop(msg)
[18:41:59.204]                         }
[18:41:59.204]                       })
[18:41:59.204]                     }
[18:41:59.204]                     base::local({
[18:41:59.204]                       for (pkg in "future.apply") {
[18:41:59.204]                         base::loadNamespace(pkg)
[18:41:59.204]                         base::library(pkg, character.only = TRUE)
[18:41:59.204]                       }
[18:41:59.204]                     })
[18:41:59.204]                   }
[18:41:59.204]                   ...future.strategy.old <- future::plan("list")
[18:41:59.204]                   options(future.plan = NULL)
[18:41:59.204]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.204]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.204]                 }
[18:41:59.204]                 ...future.workdir <- getwd()
[18:41:59.204]             }
[18:41:59.204]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.204]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.204]         }
[18:41:59.204]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.204]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.204]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.204]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.204]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.204]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.204]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.204]             base::names(...future.oldOptions))
[18:41:59.204]     }
[18:41:59.204]     if (FALSE) {
[18:41:59.204]     }
[18:41:59.204]     else {
[18:41:59.204]         if (TRUE) {
[18:41:59.204]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.204]                 open = "w")
[18:41:59.204]         }
[18:41:59.204]         else {
[18:41:59.204]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.204]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.204]         }
[18:41:59.204]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.204]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.204]             base::sink(type = "output", split = FALSE)
[18:41:59.204]             base::close(...future.stdout)
[18:41:59.204]         }, add = TRUE)
[18:41:59.204]     }
[18:41:59.204]     ...future.frame <- base::sys.nframe()
[18:41:59.204]     ...future.conditions <- base::list()
[18:41:59.204]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.204]     if (FALSE) {
[18:41:59.204]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.204]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.204]     }
[18:41:59.204]     ...future.result <- base::tryCatch({
[18:41:59.204]         base::withCallingHandlers({
[18:41:59.204]             ...future.value <- base::withVisible(base::local({
[18:41:59.204]                 do.call(function(...) {
[18:41:59.204]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.204]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.204]                     ...future.globals.maxSize)) {
[18:41:59.204]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.204]                     on.exit(options(oopts), add = TRUE)
[18:41:59.204]                   }
[18:41:59.204]                   {
[18:41:59.204]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.204]                       FUN = function(jj) {
[18:41:59.204]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.204]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.204]                       })
[18:41:59.204]                   }
[18:41:59.204]                 }, args = future.call.arguments)
[18:41:59.204]             }))
[18:41:59.204]             future::FutureResult(value = ...future.value$value, 
[18:41:59.204]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.204]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.204]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.204]                     ...future.globalenv.names))
[18:41:59.204]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.204]         }, condition = base::local({
[18:41:59.204]             c <- base::c
[18:41:59.204]             inherits <- base::inherits
[18:41:59.204]             invokeRestart <- base::invokeRestart
[18:41:59.204]             length <- base::length
[18:41:59.204]             list <- base::list
[18:41:59.204]             seq.int <- base::seq.int
[18:41:59.204]             signalCondition <- base::signalCondition
[18:41:59.204]             sys.calls <- base::sys.calls
[18:41:59.204]             `[[` <- base::`[[`
[18:41:59.204]             `+` <- base::`+`
[18:41:59.204]             `<<-` <- base::`<<-`
[18:41:59.204]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.204]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.204]                   3L)]
[18:41:59.204]             }
[18:41:59.204]             function(cond) {
[18:41:59.204]                 is_error <- inherits(cond, "error")
[18:41:59.204]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.204]                   NULL)
[18:41:59.204]                 if (is_error) {
[18:41:59.204]                   sessionInformation <- function() {
[18:41:59.204]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.204]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.204]                       search = base::search(), system = base::Sys.info())
[18:41:59.204]                   }
[18:41:59.204]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.204]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.204]                     cond$call), session = sessionInformation(), 
[18:41:59.204]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.204]                   signalCondition(cond)
[18:41:59.204]                 }
[18:41:59.204]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.204]                 "immediateCondition"))) {
[18:41:59.204]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.204]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.204]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.204]                   if (TRUE && !signal) {
[18:41:59.204]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.204]                     {
[18:41:59.204]                       inherits <- base::inherits
[18:41:59.204]                       invokeRestart <- base::invokeRestart
[18:41:59.204]                       is.null <- base::is.null
[18:41:59.204]                       muffled <- FALSE
[18:41:59.204]                       if (inherits(cond, "message")) {
[18:41:59.204]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.204]                         if (muffled) 
[18:41:59.204]                           invokeRestart("muffleMessage")
[18:41:59.204]                       }
[18:41:59.204]                       else if (inherits(cond, "warning")) {
[18:41:59.204]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.204]                         if (muffled) 
[18:41:59.204]                           invokeRestart("muffleWarning")
[18:41:59.204]                       }
[18:41:59.204]                       else if (inherits(cond, "condition")) {
[18:41:59.204]                         if (!is.null(pattern)) {
[18:41:59.204]                           computeRestarts <- base::computeRestarts
[18:41:59.204]                           grepl <- base::grepl
[18:41:59.204]                           restarts <- computeRestarts(cond)
[18:41:59.204]                           for (restart in restarts) {
[18:41:59.204]                             name <- restart$name
[18:41:59.204]                             if (is.null(name)) 
[18:41:59.204]                               next
[18:41:59.204]                             if (!grepl(pattern, name)) 
[18:41:59.204]                               next
[18:41:59.204]                             invokeRestart(restart)
[18:41:59.204]                             muffled <- TRUE
[18:41:59.204]                             break
[18:41:59.204]                           }
[18:41:59.204]                         }
[18:41:59.204]                       }
[18:41:59.204]                       invisible(muffled)
[18:41:59.204]                     }
[18:41:59.204]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.204]                   }
[18:41:59.204]                 }
[18:41:59.204]                 else {
[18:41:59.204]                   if (TRUE) {
[18:41:59.204]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.204]                     {
[18:41:59.204]                       inherits <- base::inherits
[18:41:59.204]                       invokeRestart <- base::invokeRestart
[18:41:59.204]                       is.null <- base::is.null
[18:41:59.204]                       muffled <- FALSE
[18:41:59.204]                       if (inherits(cond, "message")) {
[18:41:59.204]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.204]                         if (muffled) 
[18:41:59.204]                           invokeRestart("muffleMessage")
[18:41:59.204]                       }
[18:41:59.204]                       else if (inherits(cond, "warning")) {
[18:41:59.204]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.204]                         if (muffled) 
[18:41:59.204]                           invokeRestart("muffleWarning")
[18:41:59.204]                       }
[18:41:59.204]                       else if (inherits(cond, "condition")) {
[18:41:59.204]                         if (!is.null(pattern)) {
[18:41:59.204]                           computeRestarts <- base::computeRestarts
[18:41:59.204]                           grepl <- base::grepl
[18:41:59.204]                           restarts <- computeRestarts(cond)
[18:41:59.204]                           for (restart in restarts) {
[18:41:59.204]                             name <- restart$name
[18:41:59.204]                             if (is.null(name)) 
[18:41:59.204]                               next
[18:41:59.204]                             if (!grepl(pattern, name)) 
[18:41:59.204]                               next
[18:41:59.204]                             invokeRestart(restart)
[18:41:59.204]                             muffled <- TRUE
[18:41:59.204]                             break
[18:41:59.204]                           }
[18:41:59.204]                         }
[18:41:59.204]                       }
[18:41:59.204]                       invisible(muffled)
[18:41:59.204]                     }
[18:41:59.204]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.204]                   }
[18:41:59.204]                 }
[18:41:59.204]             }
[18:41:59.204]         }))
[18:41:59.204]     }, error = function(ex) {
[18:41:59.204]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.204]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.204]                 ...future.rng), started = ...future.startTime, 
[18:41:59.204]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.204]             version = "1.8"), class = "FutureResult")
[18:41:59.204]     }, finally = {
[18:41:59.204]         if (!identical(...future.workdir, getwd())) 
[18:41:59.204]             setwd(...future.workdir)
[18:41:59.204]         {
[18:41:59.204]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.204]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.204]             }
[18:41:59.204]             base::options(...future.oldOptions)
[18:41:59.204]             if (.Platform$OS.type == "windows") {
[18:41:59.204]                 old_names <- names(...future.oldEnvVars)
[18:41:59.204]                 envs <- base::Sys.getenv()
[18:41:59.204]                 names <- names(envs)
[18:41:59.204]                 common <- intersect(names, old_names)
[18:41:59.204]                 added <- setdiff(names, old_names)
[18:41:59.204]                 removed <- setdiff(old_names, names)
[18:41:59.204]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.204]                   envs[common]]
[18:41:59.204]                 NAMES <- toupper(changed)
[18:41:59.204]                 args <- list()
[18:41:59.204]                 for (kk in seq_along(NAMES)) {
[18:41:59.204]                   name <- changed[[kk]]
[18:41:59.204]                   NAME <- NAMES[[kk]]
[18:41:59.204]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.204]                     next
[18:41:59.204]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.204]                 }
[18:41:59.204]                 NAMES <- toupper(added)
[18:41:59.204]                 for (kk in seq_along(NAMES)) {
[18:41:59.204]                   name <- added[[kk]]
[18:41:59.204]                   NAME <- NAMES[[kk]]
[18:41:59.204]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.204]                     next
[18:41:59.204]                   args[[name]] <- ""
[18:41:59.204]                 }
[18:41:59.204]                 NAMES <- toupper(removed)
[18:41:59.204]                 for (kk in seq_along(NAMES)) {
[18:41:59.204]                   name <- removed[[kk]]
[18:41:59.204]                   NAME <- NAMES[[kk]]
[18:41:59.204]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.204]                     next
[18:41:59.204]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.204]                 }
[18:41:59.204]                 if (length(args) > 0) 
[18:41:59.204]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.204]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.204]             }
[18:41:59.204]             else {
[18:41:59.204]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.204]             }
[18:41:59.204]             {
[18:41:59.204]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.204]                   0L) {
[18:41:59.204]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.204]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.204]                   base::options(opts)
[18:41:59.204]                 }
[18:41:59.204]                 {
[18:41:59.204]                   {
[18:41:59.204]                     NULL
[18:41:59.204]                     RNGkind("Mersenne-Twister")
[18:41:59.204]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.204]                       inherits = FALSE)
[18:41:59.204]                   }
[18:41:59.204]                   options(future.plan = NULL)
[18:41:59.204]                   if (is.na(NA_character_)) 
[18:41:59.204]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.204]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.204]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.204]                     .init = FALSE)
[18:41:59.204]                 }
[18:41:59.204]             }
[18:41:59.204]         }
[18:41:59.204]     })
[18:41:59.204]     if (TRUE) {
[18:41:59.204]         base::sink(type = "output", split = FALSE)
[18:41:59.204]         if (TRUE) {
[18:41:59.204]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.204]         }
[18:41:59.204]         else {
[18:41:59.204]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.204]         }
[18:41:59.204]         base::close(...future.stdout)
[18:41:59.204]         ...future.stdout <- NULL
[18:41:59.204]     }
[18:41:59.204]     ...future.result$conditions <- ...future.conditions
[18:41:59.204]     ...future.result$finished <- base::Sys.time()
[18:41:59.204]     ...future.result
[18:41:59.204] }
[18:41:59.208] assign_globals() ...
[18:41:59.208] List of 11
[18:41:59.208]  $ ...future.FUN            :function (x, ...)  
[18:41:59.208]  $ x_FUN                    :function (x)  
[18:41:59.208]  $ times                    : int 0
[18:41:59.208]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.208]  $ stop_if_not              :function (...)  
[18:41:59.208]  $ dim                      : NULL
[18:41:59.208]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.208]  $ future.call.arguments    : list()
[18:41:59.208]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.208]  $ ...future.elements_ii    :List of 10
[18:41:59.208]   ..$ : int 1
[18:41:59.208]   ..$ : int 2
[18:41:59.208]   ..$ : int 3
[18:41:59.208]   ..$ : int 4
[18:41:59.208]   ..$ : int 5
[18:41:59.208]   ..$ : int 6
[18:41:59.208]   ..$ : int 7
[18:41:59.208]   ..$ : int 8
[18:41:59.208]   ..$ : int 9
[18:41:59.208]   ..$ : int 10
[18:41:59.208]  $ ...future.seeds_ii       : NULL
[18:41:59.208]  $ ...future.globals.maxSize: NULL
[18:41:59.208]  - attr(*, "where")=List of 11
[18:41:59.208]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.208]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.208]  - attr(*, "resolved")= logi FALSE
[18:41:59.208]  - attr(*, "total_size")= num 23490
[18:41:59.208]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.208]  - attr(*, "already-done")= logi TRUE
[18:41:59.221] - copied '...future.FUN' to environment
[18:41:59.221] - reassign environment for 'x_FUN'
[18:41:59.221] - copied 'x_FUN' to environment
[18:41:59.221] - copied 'times' to environment
[18:41:59.221] - copied 'stopf' to environment
[18:41:59.221] - copied 'stop_if_not' to environment
[18:41:59.222] - copied 'dim' to environment
[18:41:59.222] - copied 'valid_types' to environment
[18:41:59.222] - copied 'future.call.arguments' to environment
[18:41:59.222] - copied '...future.elements_ii' to environment
[18:41:59.222] - copied '...future.seeds_ii' to environment
[18:41:59.222] - copied '...future.globals.maxSize' to environment
[18:41:59.222] assign_globals() ... done
[18:41:59.223] plan(): Setting new future strategy stack:
[18:41:59.223] List of future strategies:
[18:41:59.223] 1. sequential:
[18:41:59.223]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.223]    - tweaked: FALSE
[18:41:59.223]    - call: NULL
[18:41:59.224] plan(): nbrOfWorkers() = 1
[18:41:59.225] plan(): Setting new future strategy stack:
[18:41:59.226] List of future strategies:
[18:41:59.226] 1. sequential:
[18:41:59.226]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.226]    - tweaked: FALSE
[18:41:59.226]    - call: plan(strategy)
[18:41:59.226] plan(): nbrOfWorkers() = 1
[18:41:59.226] SequentialFuture started (and completed)
[18:41:59.227] - Launch lazy future ... done
[18:41:59.227] run() for 'SequentialFuture' ... done
[18:41:59.227] Created future:
[18:41:59.227] SequentialFuture:
[18:41:59.227] Label: 'future_vapply-1'
[18:41:59.227] Expression:
[18:41:59.227] {
[18:41:59.227]     do.call(function(...) {
[18:41:59.227]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.227]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.227]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.227]             on.exit(options(oopts), add = TRUE)
[18:41:59.227]         }
[18:41:59.227]         {
[18:41:59.227]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.227]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.227]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.227]             })
[18:41:59.227]         }
[18:41:59.227]     }, args = future.call.arguments)
[18:41:59.227] }
[18:41:59.227] Lazy evaluation: FALSE
[18:41:59.227] Asynchronous evaluation: FALSE
[18:41:59.227] Local evaluation: TRUE
[18:41:59.227] Environment: R_GlobalEnv
[18:41:59.227] Capture standard output: TRUE
[18:41:59.227] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.227] Globals: 11 objects totaling 13.07 KiB (function '...future.FUN' of 4.50 KiB, function 'x_FUN' of 295 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.227] Packages: 1 packages ('future.apply')
[18:41:59.227] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.227] Resolved: TRUE
[18:41:59.227] Value: 111 bytes of class 'list'
[18:41:59.227] Early signaling: FALSE
[18:41:59.227] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.227] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.228] Chunk #1 of 1 ... DONE
[18:41:59.229] Launching 1 futures (chunks) ... DONE
[18:41:59.229] Resolving 1 futures (chunks) ...
[18:41:59.229] resolve() on list ...
[18:41:59.229]  recursive: 0
[18:41:59.229]  length: 1
[18:41:59.229] 
[18:41:59.229] resolved() for 'SequentialFuture' ...
[18:41:59.230] - state: 'finished'
[18:41:59.230] - run: TRUE
[18:41:59.230] - result: 'FutureResult'
[18:41:59.230] resolved() for 'SequentialFuture' ... done
[18:41:59.230] Future #1
[18:41:59.231] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.231] - nx: 1
[18:41:59.231] - relay: TRUE
[18:41:59.231] - stdout: TRUE
[18:41:59.231] - signal: TRUE
[18:41:59.231] - resignal: FALSE
[18:41:59.231] - force: TRUE
[18:41:59.232] - relayed: [n=1] FALSE
[18:41:59.232] - queued futures: [n=1] FALSE
[18:41:59.232]  - until=1
[18:41:59.232]  - relaying element #1
[18:41:59.232] - relayed: [n=1] TRUE
[18:41:59.232] - queued futures: [n=1] TRUE
[18:41:59.233] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.233]  length: 0 (resolved future 1)
[18:41:59.233] Relaying remaining futures
[18:41:59.233] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.233] - nx: 1
[18:41:59.233] - relay: TRUE
[18:41:59.234] - stdout: TRUE
[18:41:59.234] - signal: TRUE
[18:41:59.234] - resignal: FALSE
[18:41:59.234] - force: TRUE
[18:41:59.234] - relayed: [n=1] TRUE
[18:41:59.234] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.235] - relayed: [n=1] TRUE
[18:41:59.235] - queued futures: [n=1] TRUE
[18:41:59.235] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.235] resolve() on list ... DONE
[18:41:59.235]  - Number of value chunks collected: 1
[18:41:59.235] Resolving 1 futures (chunks) ... DONE
[18:41:59.236] Reducing values from 1 chunks ...
[18:41:59.236]  - Number of values collected after concatenation: 10
[18:41:59.236]  - Number of values expected: 10
[18:41:59.236] Reducing values from 1 chunks ... DONE
[18:41:59.236] future_lapply() ... DONE
 num[0 , 1:10] 
 int[0 , 1:10] 
[18:41:59.237] future_lapply() ...
[18:41:59.240] Number of chunks: 1
[18:41:59.240] getGlobalsAndPackagesXApply() ...
[18:41:59.240]  - future.globals: TRUE
[18:41:59.240] getGlobalsAndPackages() ...
[18:41:59.240] Searching for globals...
[18:41:59.245] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'integer'
[18:41:59.246] Searching for globals ... DONE
[18:41:59.246] Resolving globals: FALSE
[18:41:59.247] The total size of the 7 globals is 12.75 KiB (13056 bytes)
[18:41:59.247] The total size of the 7 globals exported for future expression ('FUN()') is 12.75 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.50 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.248] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.248] - packages: [1] 'future.apply'
[18:41:59.248] getGlobalsAndPackages() ... DONE
[18:41:59.248]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.248]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.248] Finding globals ... DONE
[18:41:59.249]  - use_args: TRUE
[18:41:59.249]  - Getting '...' globals ...
[18:41:59.249] resolve() on list ...
[18:41:59.249]  recursive: 0
[18:41:59.249]  length: 1
[18:41:59.250]  elements: '...'
[18:41:59.250]  length: 0 (resolved future 1)
[18:41:59.250] resolve() on list ... DONE
[18:41:59.250]    - '...' content: [n=0] 
[18:41:59.250] List of 1
[18:41:59.250]  $ ...: list()
[18:41:59.250]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.250]  - attr(*, "where")=List of 1
[18:41:59.250]   ..$ ...:<environment: 0x000002ea024a26c0> 
[18:41:59.250]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.250]  - attr(*, "resolved")= logi TRUE
[18:41:59.250]  - attr(*, "total_size")= num NA
[18:41:59.253]  - Getting '...' globals ... DONE
[18:41:59.253] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.253] List of 8
[18:41:59.253]  $ ...future.FUN:function (x, ...)  
[18:41:59.253]  $ x_FUN        :function (x)  
[18:41:59.253]  $ times        : int 0
[18:41:59.253]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.253]  $ stop_if_not  :function (...)  
[18:41:59.253]  $ dim          : NULL
[18:41:59.253]  $ valid_types  : chr [1:2] "logical" "integer"
[18:41:59.253]  $ ...          : list()
[18:41:59.253]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.253]  - attr(*, "where")=List of 8
[18:41:59.253]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.253]   ..$ ...          :<environment: 0x000002ea024a26c0> 
[18:41:59.253]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.253]  - attr(*, "resolved")= logi FALSE
[18:41:59.253]  - attr(*, "total_size")= int 23453
[18:41:59.261] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.261] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.261] Number of futures (= number of chunks): 1
[18:41:59.261] Launching 1 futures (chunks) ...
[18:41:59.261] Chunk #1 of 1 ...
[18:41:59.262]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.262] getGlobalsAndPackages() ...
[18:41:59.262] Searching for globals...
[18:41:59.262] 
[18:41:59.262] Searching for globals ... DONE
[18:41:59.263] - globals: [0] <none>
[18:41:59.263] getGlobalsAndPackages() ... DONE
[18:41:59.263]    + additional globals found: [n=0] 
[18:41:59.263]    + additional namespaces needed: [n=0] 
[18:41:59.263]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.263]  - seeds: <none>
[18:41:59.263]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.264] getGlobalsAndPackages() ...
[18:41:59.264] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.264] Resolving globals: FALSE
[18:41:59.264] Tweak future expression to call with '...' arguments ...
[18:41:59.264] {
[18:41:59.264]     do.call(function(...) {
[18:41:59.264]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.264]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.264]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.264]             on.exit(options(oopts), add = TRUE)
[18:41:59.264]         }
[18:41:59.264]         {
[18:41:59.264]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.264]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.264]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.264]             })
[18:41:59.264]         }
[18:41:59.264]     }, args = future.call.arguments)
[18:41:59.264] }
[18:41:59.265] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.265] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.266] - packages: [1] 'future.apply'
[18:41:59.266] getGlobalsAndPackages() ... DONE
[18:41:59.266] run() for 'Future' ...
[18:41:59.266] - state: 'created'
[18:41:59.267] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.267] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.267] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.267]   - Field: 'label'
[18:41:59.267]   - Field: 'local'
[18:41:59.268]   - Field: 'owner'
[18:41:59.268]   - Field: 'envir'
[18:41:59.268]   - Field: 'packages'
[18:41:59.268]   - Field: 'gc'
[18:41:59.268]   - Field: 'conditions'
[18:41:59.268]   - Field: 'expr'
[18:41:59.269]   - Field: 'uuid'
[18:41:59.269]   - Field: 'seed'
[18:41:59.269]   - Field: 'version'
[18:41:59.269]   - Field: 'result'
[18:41:59.269]   - Field: 'asynchronous'
[18:41:59.269]   - Field: 'calls'
[18:41:59.270]   - Field: 'globals'
[18:41:59.270]   - Field: 'stdout'
[18:41:59.270]   - Field: 'earlySignal'
[18:41:59.270]   - Field: 'lazy'
[18:41:59.270]   - Field: 'state'
[18:41:59.270] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.271] - Launch lazy future ...
[18:41:59.271] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.272] Packages needed by future strategies (n = 0): <none>
[18:41:59.274] {
[18:41:59.274]     {
[18:41:59.274]         {
[18:41:59.274]             ...future.startTime <- base::Sys.time()
[18:41:59.274]             {
[18:41:59.274]                 {
[18:41:59.274]                   {
[18:41:59.274]                     {
[18:41:59.274]                       base::local({
[18:41:59.274]                         has_future <- base::requireNamespace("future", 
[18:41:59.274]                           quietly = TRUE)
[18:41:59.274]                         if (has_future) {
[18:41:59.274]                           ns <- base::getNamespace("future")
[18:41:59.274]                           version <- ns[[".package"]][["version"]]
[18:41:59.274]                           if (is.null(version)) 
[18:41:59.274]                             version <- utils::packageVersion("future")
[18:41:59.274]                         }
[18:41:59.274]                         else {
[18:41:59.274]                           version <- NULL
[18:41:59.274]                         }
[18:41:59.274]                         if (!has_future || version < "1.8.0") {
[18:41:59.274]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.274]                             "", base::R.version$version.string), 
[18:41:59.274]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.274]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.274]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.274]                               "release", "version")], collapse = " "), 
[18:41:59.274]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.274]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.274]                             info)
[18:41:59.274]                           info <- base::paste(info, collapse = "; ")
[18:41:59.274]                           if (!has_future) {
[18:41:59.274]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.274]                               info)
[18:41:59.274]                           }
[18:41:59.274]                           else {
[18:41:59.274]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.274]                               info, version)
[18:41:59.274]                           }
[18:41:59.274]                           base::stop(msg)
[18:41:59.274]                         }
[18:41:59.274]                       })
[18:41:59.274]                     }
[18:41:59.274]                     base::local({
[18:41:59.274]                       for (pkg in "future.apply") {
[18:41:59.274]                         base::loadNamespace(pkg)
[18:41:59.274]                         base::library(pkg, character.only = TRUE)
[18:41:59.274]                       }
[18:41:59.274]                     })
[18:41:59.274]                   }
[18:41:59.274]                   ...future.strategy.old <- future::plan("list")
[18:41:59.274]                   options(future.plan = NULL)
[18:41:59.274]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.274]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.274]                 }
[18:41:59.274]                 ...future.workdir <- getwd()
[18:41:59.274]             }
[18:41:59.274]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.274]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.274]         }
[18:41:59.274]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.274]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.274]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.274]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.274]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.274]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.274]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.274]             base::names(...future.oldOptions))
[18:41:59.274]     }
[18:41:59.274]     if (FALSE) {
[18:41:59.274]     }
[18:41:59.274]     else {
[18:41:59.274]         if (TRUE) {
[18:41:59.274]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.274]                 open = "w")
[18:41:59.274]         }
[18:41:59.274]         else {
[18:41:59.274]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.274]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.274]         }
[18:41:59.274]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.274]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.274]             base::sink(type = "output", split = FALSE)
[18:41:59.274]             base::close(...future.stdout)
[18:41:59.274]         }, add = TRUE)
[18:41:59.274]     }
[18:41:59.274]     ...future.frame <- base::sys.nframe()
[18:41:59.274]     ...future.conditions <- base::list()
[18:41:59.274]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.274]     if (FALSE) {
[18:41:59.274]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.274]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.274]     }
[18:41:59.274]     ...future.result <- base::tryCatch({
[18:41:59.274]         base::withCallingHandlers({
[18:41:59.274]             ...future.value <- base::withVisible(base::local({
[18:41:59.274]                 do.call(function(...) {
[18:41:59.274]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.274]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.274]                     ...future.globals.maxSize)) {
[18:41:59.274]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.274]                     on.exit(options(oopts), add = TRUE)
[18:41:59.274]                   }
[18:41:59.274]                   {
[18:41:59.274]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.274]                       FUN = function(jj) {
[18:41:59.274]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.274]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.274]                       })
[18:41:59.274]                   }
[18:41:59.274]                 }, args = future.call.arguments)
[18:41:59.274]             }))
[18:41:59.274]             future::FutureResult(value = ...future.value$value, 
[18:41:59.274]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.274]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.274]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.274]                     ...future.globalenv.names))
[18:41:59.274]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.274]         }, condition = base::local({
[18:41:59.274]             c <- base::c
[18:41:59.274]             inherits <- base::inherits
[18:41:59.274]             invokeRestart <- base::invokeRestart
[18:41:59.274]             length <- base::length
[18:41:59.274]             list <- base::list
[18:41:59.274]             seq.int <- base::seq.int
[18:41:59.274]             signalCondition <- base::signalCondition
[18:41:59.274]             sys.calls <- base::sys.calls
[18:41:59.274]             `[[` <- base::`[[`
[18:41:59.274]             `+` <- base::`+`
[18:41:59.274]             `<<-` <- base::`<<-`
[18:41:59.274]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.274]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.274]                   3L)]
[18:41:59.274]             }
[18:41:59.274]             function(cond) {
[18:41:59.274]                 is_error <- inherits(cond, "error")
[18:41:59.274]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.274]                   NULL)
[18:41:59.274]                 if (is_error) {
[18:41:59.274]                   sessionInformation <- function() {
[18:41:59.274]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.274]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.274]                       search = base::search(), system = base::Sys.info())
[18:41:59.274]                   }
[18:41:59.274]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.274]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.274]                     cond$call), session = sessionInformation(), 
[18:41:59.274]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.274]                   signalCondition(cond)
[18:41:59.274]                 }
[18:41:59.274]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.274]                 "immediateCondition"))) {
[18:41:59.274]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.274]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.274]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.274]                   if (TRUE && !signal) {
[18:41:59.274]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.274]                     {
[18:41:59.274]                       inherits <- base::inherits
[18:41:59.274]                       invokeRestart <- base::invokeRestart
[18:41:59.274]                       is.null <- base::is.null
[18:41:59.274]                       muffled <- FALSE
[18:41:59.274]                       if (inherits(cond, "message")) {
[18:41:59.274]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.274]                         if (muffled) 
[18:41:59.274]                           invokeRestart("muffleMessage")
[18:41:59.274]                       }
[18:41:59.274]                       else if (inherits(cond, "warning")) {
[18:41:59.274]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.274]                         if (muffled) 
[18:41:59.274]                           invokeRestart("muffleWarning")
[18:41:59.274]                       }
[18:41:59.274]                       else if (inherits(cond, "condition")) {
[18:41:59.274]                         if (!is.null(pattern)) {
[18:41:59.274]                           computeRestarts <- base::computeRestarts
[18:41:59.274]                           grepl <- base::grepl
[18:41:59.274]                           restarts <- computeRestarts(cond)
[18:41:59.274]                           for (restart in restarts) {
[18:41:59.274]                             name <- restart$name
[18:41:59.274]                             if (is.null(name)) 
[18:41:59.274]                               next
[18:41:59.274]                             if (!grepl(pattern, name)) 
[18:41:59.274]                               next
[18:41:59.274]                             invokeRestart(restart)
[18:41:59.274]                             muffled <- TRUE
[18:41:59.274]                             break
[18:41:59.274]                           }
[18:41:59.274]                         }
[18:41:59.274]                       }
[18:41:59.274]                       invisible(muffled)
[18:41:59.274]                     }
[18:41:59.274]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.274]                   }
[18:41:59.274]                 }
[18:41:59.274]                 else {
[18:41:59.274]                   if (TRUE) {
[18:41:59.274]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.274]                     {
[18:41:59.274]                       inherits <- base::inherits
[18:41:59.274]                       invokeRestart <- base::invokeRestart
[18:41:59.274]                       is.null <- base::is.null
[18:41:59.274]                       muffled <- FALSE
[18:41:59.274]                       if (inherits(cond, "message")) {
[18:41:59.274]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.274]                         if (muffled) 
[18:41:59.274]                           invokeRestart("muffleMessage")
[18:41:59.274]                       }
[18:41:59.274]                       else if (inherits(cond, "warning")) {
[18:41:59.274]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.274]                         if (muffled) 
[18:41:59.274]                           invokeRestart("muffleWarning")
[18:41:59.274]                       }
[18:41:59.274]                       else if (inherits(cond, "condition")) {
[18:41:59.274]                         if (!is.null(pattern)) {
[18:41:59.274]                           computeRestarts <- base::computeRestarts
[18:41:59.274]                           grepl <- base::grepl
[18:41:59.274]                           restarts <- computeRestarts(cond)
[18:41:59.274]                           for (restart in restarts) {
[18:41:59.274]                             name <- restart$name
[18:41:59.274]                             if (is.null(name)) 
[18:41:59.274]                               next
[18:41:59.274]                             if (!grepl(pattern, name)) 
[18:41:59.274]                               next
[18:41:59.274]                             invokeRestart(restart)
[18:41:59.274]                             muffled <- TRUE
[18:41:59.274]                             break
[18:41:59.274]                           }
[18:41:59.274]                         }
[18:41:59.274]                       }
[18:41:59.274]                       invisible(muffled)
[18:41:59.274]                     }
[18:41:59.274]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.274]                   }
[18:41:59.274]                 }
[18:41:59.274]             }
[18:41:59.274]         }))
[18:41:59.274]     }, error = function(ex) {
[18:41:59.274]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.274]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.274]                 ...future.rng), started = ...future.startTime, 
[18:41:59.274]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.274]             version = "1.8"), class = "FutureResult")
[18:41:59.274]     }, finally = {
[18:41:59.274]         if (!identical(...future.workdir, getwd())) 
[18:41:59.274]             setwd(...future.workdir)
[18:41:59.274]         {
[18:41:59.274]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.274]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.274]             }
[18:41:59.274]             base::options(...future.oldOptions)
[18:41:59.274]             if (.Platform$OS.type == "windows") {
[18:41:59.274]                 old_names <- names(...future.oldEnvVars)
[18:41:59.274]                 envs <- base::Sys.getenv()
[18:41:59.274]                 names <- names(envs)
[18:41:59.274]                 common <- intersect(names, old_names)
[18:41:59.274]                 added <- setdiff(names, old_names)
[18:41:59.274]                 removed <- setdiff(old_names, names)
[18:41:59.274]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.274]                   envs[common]]
[18:41:59.274]                 NAMES <- toupper(changed)
[18:41:59.274]                 args <- list()
[18:41:59.274]                 for (kk in seq_along(NAMES)) {
[18:41:59.274]                   name <- changed[[kk]]
[18:41:59.274]                   NAME <- NAMES[[kk]]
[18:41:59.274]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.274]                     next
[18:41:59.274]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.274]                 }
[18:41:59.274]                 NAMES <- toupper(added)
[18:41:59.274]                 for (kk in seq_along(NAMES)) {
[18:41:59.274]                   name <- added[[kk]]
[18:41:59.274]                   NAME <- NAMES[[kk]]
[18:41:59.274]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.274]                     next
[18:41:59.274]                   args[[name]] <- ""
[18:41:59.274]                 }
[18:41:59.274]                 NAMES <- toupper(removed)
[18:41:59.274]                 for (kk in seq_along(NAMES)) {
[18:41:59.274]                   name <- removed[[kk]]
[18:41:59.274]                   NAME <- NAMES[[kk]]
[18:41:59.274]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.274]                     next
[18:41:59.274]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.274]                 }
[18:41:59.274]                 if (length(args) > 0) 
[18:41:59.274]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.274]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.274]             }
[18:41:59.274]             else {
[18:41:59.274]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.274]             }
[18:41:59.274]             {
[18:41:59.274]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.274]                   0L) {
[18:41:59.274]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.274]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.274]                   base::options(opts)
[18:41:59.274]                 }
[18:41:59.274]                 {
[18:41:59.274]                   {
[18:41:59.274]                     NULL
[18:41:59.274]                     RNGkind("Mersenne-Twister")
[18:41:59.274]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.274]                       inherits = FALSE)
[18:41:59.274]                   }
[18:41:59.274]                   options(future.plan = NULL)
[18:41:59.274]                   if (is.na(NA_character_)) 
[18:41:59.274]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.274]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.274]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.274]                     .init = FALSE)
[18:41:59.274]                 }
[18:41:59.274]             }
[18:41:59.274]         }
[18:41:59.274]     })
[18:41:59.274]     if (TRUE) {
[18:41:59.274]         base::sink(type = "output", split = FALSE)
[18:41:59.274]         if (TRUE) {
[18:41:59.274]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.274]         }
[18:41:59.274]         else {
[18:41:59.274]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.274]         }
[18:41:59.274]         base::close(...future.stdout)
[18:41:59.274]         ...future.stdout <- NULL
[18:41:59.274]     }
[18:41:59.274]     ...future.result$conditions <- ...future.conditions
[18:41:59.274]     ...future.result$finished <- base::Sys.time()
[18:41:59.274]     ...future.result
[18:41:59.274] }
[18:41:59.279] assign_globals() ...
[18:41:59.279] List of 11
[18:41:59.279]  $ ...future.FUN            :function (x, ...)  
[18:41:59.279]  $ x_FUN                    :function (x)  
[18:41:59.279]  $ times                    : int 0
[18:41:59.279]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.279]  $ stop_if_not              :function (...)  
[18:41:59.279]  $ dim                      : NULL
[18:41:59.279]  $ valid_types              : chr [1:2] "logical" "integer"
[18:41:59.279]  $ future.call.arguments    : list()
[18:41:59.279]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.279]  $ ...future.elements_ii    :List of 10
[18:41:59.279]   ..$ : int 1
[18:41:59.279]   ..$ : int 2
[18:41:59.279]   ..$ : int 3
[18:41:59.279]   ..$ : int 4
[18:41:59.279]   ..$ : int 5
[18:41:59.279]   ..$ : int 6
[18:41:59.279]   ..$ : int 7
[18:41:59.279]   ..$ : int 8
[18:41:59.279]   ..$ : int 9
[18:41:59.279]   ..$ : int 10
[18:41:59.279]  $ ...future.seeds_ii       : NULL
[18:41:59.279]  $ ...future.globals.maxSize: NULL
[18:41:59.279]  - attr(*, "where")=List of 11
[18:41:59.279]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.279]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.279]  - attr(*, "resolved")= logi FALSE
[18:41:59.279]  - attr(*, "total_size")= num 23453
[18:41:59.279]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.279]  - attr(*, "already-done")= logi TRUE
[18:41:59.303] - copied '...future.FUN' to environment
[18:41:59.303] - reassign environment for 'x_FUN'
[18:41:59.304] - copied 'x_FUN' to environment
[18:41:59.304] - copied 'times' to environment
[18:41:59.304] - copied 'stopf' to environment
[18:41:59.304] - copied 'stop_if_not' to environment
[18:41:59.304] - copied 'dim' to environment
[18:41:59.305] - copied 'valid_types' to environment
[18:41:59.305] - copied 'future.call.arguments' to environment
[18:41:59.305] - copied '...future.elements_ii' to environment
[18:41:59.305] - copied '...future.seeds_ii' to environment
[18:41:59.305] - copied '...future.globals.maxSize' to environment
[18:41:59.306] assign_globals() ... done
[18:41:59.307] plan(): Setting new future strategy stack:
[18:41:59.307] List of future strategies:
[18:41:59.307] 1. sequential:
[18:41:59.307]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.307]    - tweaked: FALSE
[18:41:59.307]    - call: NULL
[18:41:59.308] plan(): nbrOfWorkers() = 1
[18:41:59.310] plan(): Setting new future strategy stack:
[18:41:59.310] List of future strategies:
[18:41:59.310] 1. sequential:
[18:41:59.310]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.310]    - tweaked: FALSE
[18:41:59.310]    - call: plan(strategy)
[18:41:59.311] plan(): nbrOfWorkers() = 1
[18:41:59.311] SequentialFuture started (and completed)
[18:41:59.311] - Launch lazy future ... done
[18:41:59.311] run() for 'SequentialFuture' ... done
[18:41:59.312] Created future:
[18:41:59.312] SequentialFuture:
[18:41:59.312] Label: 'future_vapply-1'
[18:41:59.312] Expression:
[18:41:59.312] {
[18:41:59.312]     do.call(function(...) {
[18:41:59.312]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.312]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.312]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.312]             on.exit(options(oopts), add = TRUE)
[18:41:59.312]         }
[18:41:59.312]         {
[18:41:59.312]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.312]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.312]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.312]             })
[18:41:59.312]         }
[18:41:59.312]     }, args = future.call.arguments)
[18:41:59.312] }
[18:41:59.312] Lazy evaluation: FALSE
[18:41:59.312] Asynchronous evaluation: FALSE
[18:41:59.312] Local evaluation: TRUE
[18:41:59.312] Environment: R_GlobalEnv
[18:41:59.312] Capture standard output: TRUE
[18:41:59.312] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.312] Globals: 11 objects totaling 13.04 KiB (function '...future.FUN' of 4.49 KiB, function 'x_FUN' of 296 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.312] Packages: 1 packages ('future.apply')
[18:41:59.312] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.312] Resolved: TRUE
[18:41:59.312] Value: 111 bytes of class 'list'
[18:41:59.312] Early signaling: FALSE
[18:41:59.312] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.312] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.313] Chunk #1 of 1 ... DONE
[18:41:59.314] Launching 1 futures (chunks) ... DONE
[18:41:59.314] Resolving 1 futures (chunks) ...
[18:41:59.314] resolve() on list ...
[18:41:59.314]  recursive: 0
[18:41:59.314]  length: 1
[18:41:59.314] 
[18:41:59.315] resolved() for 'SequentialFuture' ...
[18:41:59.315] - state: 'finished'
[18:41:59.315] - run: TRUE
[18:41:59.315] - result: 'FutureResult'
[18:41:59.315] resolved() for 'SequentialFuture' ... done
[18:41:59.316] Future #1
[18:41:59.316] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.316] - nx: 1
[18:41:59.316] - relay: TRUE
[18:41:59.316] - stdout: TRUE
[18:41:59.316] - signal: TRUE
[18:41:59.317] - resignal: FALSE
[18:41:59.317] - force: TRUE
[18:41:59.317] - relayed: [n=1] FALSE
[18:41:59.317] - queued futures: [n=1] FALSE
[18:41:59.317]  - until=1
[18:41:59.317]  - relaying element #1
[18:41:59.318] - relayed: [n=1] TRUE
[18:41:59.318] - queued futures: [n=1] TRUE
[18:41:59.318] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.318]  length: 0 (resolved future 1)
[18:41:59.319] Relaying remaining futures
[18:41:59.319] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.319] - nx: 1
[18:41:59.319] - relay: TRUE
[18:41:59.319] - stdout: TRUE
[18:41:59.319] - signal: TRUE
[18:41:59.319] - resignal: FALSE
[18:41:59.320] - force: TRUE
[18:41:59.320] - relayed: [n=1] TRUE
[18:41:59.320] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.320] - relayed: [n=1] TRUE
[18:41:59.320] - queued futures: [n=1] TRUE
[18:41:59.320] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.321] resolve() on list ... DONE
[18:41:59.321]  - Number of value chunks collected: 1
[18:41:59.321] Resolving 1 futures (chunks) ... DONE
[18:41:59.321] Reducing values from 1 chunks ...
[18:41:59.321]  - Number of values collected after concatenation: 10
[18:41:59.322]  - Number of values expected: 10
[18:41:59.322] Reducing values from 1 chunks ... DONE
[18:41:59.322] future_lapply() ... DONE
 int[0 , 1:10] 
 num [1:10] 1 1.41 1.73 2 2.24 ...
[18:41:59.323] future_lapply() ...
[18:41:59.326] Number of chunks: 1
[18:41:59.326] getGlobalsAndPackagesXApply() ...
[18:41:59.326]  - future.globals: TRUE
[18:41:59.329] getGlobalsAndPackages() ...
[18:41:59.329] Searching for globals...
[18:41:59.333] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:41:59.334] Searching for globals ... DONE
[18:41:59.334] Resolving globals: FALSE
[18:41:59.335] The total size of the 7 globals is 12.08 KiB (12367 bytes)
[18:41:59.335] The total size of the 7 globals exported for future expression ('FUN()') is 12.08 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.07 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.336] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.336] - packages: [1] 'future.apply'
[18:41:59.336] getGlobalsAndPackages() ... DONE
[18:41:59.336]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.337]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.337] Finding globals ... DONE
[18:41:59.337]  - use_args: TRUE
[18:41:59.337]  - Getting '...' globals ...
[18:41:59.338] resolve() on list ...
[18:41:59.338]  recursive: 0
[18:41:59.338]  length: 1
[18:41:59.338]  elements: '...'
[18:41:59.338]  length: 0 (resolved future 1)
[18:41:59.338] resolve() on list ... DONE
[18:41:59.339]    - '...' content: [n=0] 
[18:41:59.339] List of 1
[18:41:59.339]  $ ...: list()
[18:41:59.339]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.339]  - attr(*, "where")=List of 1
[18:41:59.339]   ..$ ...:<environment: 0x000002ea02554258> 
[18:41:59.339]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.339]  - attr(*, "resolved")= logi TRUE
[18:41:59.339]  - attr(*, "total_size")= num NA
[18:41:59.342]  - Getting '...' globals ... DONE
[18:41:59.342] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.342] List of 8
[18:41:59.342]  $ ...future.FUN:function (x, ...)  
[18:41:59.342]  $ x_FUN        :function (x)  
[18:41:59.342]  $ times        : int 1
[18:41:59.342]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.342]  $ stop_if_not  :function (...)  
[18:41:59.342]  $ dim          : NULL
[18:41:59.342]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.342]  $ ...          : list()
[18:41:59.342]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.342]  - attr(*, "where")=List of 8
[18:41:59.342]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.342]   ..$ ...          :<environment: 0x000002ea02554258> 
[18:41:59.342]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.342]  - attr(*, "resolved")= logi FALSE
[18:41:59.342]  - attr(*, "total_size")= int 22322
[18:41:59.350] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.350] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.350] Number of futures (= number of chunks): 1
[18:41:59.350] Launching 1 futures (chunks) ...
[18:41:59.351] Chunk #1 of 1 ...
[18:41:59.351]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.351] getGlobalsAndPackages() ...
[18:41:59.351] Searching for globals...
[18:41:59.351] 
[18:41:59.352] Searching for globals ... DONE
[18:41:59.352] - globals: [0] <none>
[18:41:59.352] getGlobalsAndPackages() ... DONE
[18:41:59.352]    + additional globals found: [n=0] 
[18:41:59.352]    + additional namespaces needed: [n=0] 
[18:41:59.352]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.352]  - seeds: <none>
[18:41:59.353]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.353] getGlobalsAndPackages() ...
[18:41:59.353] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.353] Resolving globals: FALSE
[18:41:59.353] Tweak future expression to call with '...' arguments ...
[18:41:59.354] {
[18:41:59.354]     do.call(function(...) {
[18:41:59.354]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.354]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.354]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.354]             on.exit(options(oopts), add = TRUE)
[18:41:59.354]         }
[18:41:59.354]         {
[18:41:59.354]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.354]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.354]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.354]             })
[18:41:59.354]         }
[18:41:59.354]     }, args = future.call.arguments)
[18:41:59.354] }
[18:41:59.354] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.355] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.355] - packages: [1] 'future.apply'
[18:41:59.355] getGlobalsAndPackages() ... DONE
[18:41:59.356] run() for 'Future' ...
[18:41:59.356] - state: 'created'
[18:41:59.356] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.356] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.357] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.357]   - Field: 'label'
[18:41:59.357]   - Field: 'local'
[18:41:59.357]   - Field: 'owner'
[18:41:59.357]   - Field: 'envir'
[18:41:59.357]   - Field: 'packages'
[18:41:59.358]   - Field: 'gc'
[18:41:59.358]   - Field: 'conditions'
[18:41:59.358]   - Field: 'expr'
[18:41:59.358]   - Field: 'uuid'
[18:41:59.358]   - Field: 'seed'
[18:41:59.358]   - Field: 'version'
[18:41:59.359]   - Field: 'result'
[18:41:59.359]   - Field: 'asynchronous'
[18:41:59.359]   - Field: 'calls'
[18:41:59.359]   - Field: 'globals'
[18:41:59.359]   - Field: 'stdout'
[18:41:59.359]   - Field: 'earlySignal'
[18:41:59.360]   - Field: 'lazy'
[18:41:59.360]   - Field: 'state'
[18:41:59.360] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.360] - Launch lazy future ...
[18:41:59.360] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.361] Packages needed by future strategies (n = 0): <none>
[18:41:59.361] {
[18:41:59.361]     {
[18:41:59.361]         {
[18:41:59.361]             ...future.startTime <- base::Sys.time()
[18:41:59.361]             {
[18:41:59.361]                 {
[18:41:59.361]                   {
[18:41:59.361]                     {
[18:41:59.361]                       base::local({
[18:41:59.361]                         has_future <- base::requireNamespace("future", 
[18:41:59.361]                           quietly = TRUE)
[18:41:59.361]                         if (has_future) {
[18:41:59.361]                           ns <- base::getNamespace("future")
[18:41:59.361]                           version <- ns[[".package"]][["version"]]
[18:41:59.361]                           if (is.null(version)) 
[18:41:59.361]                             version <- utils::packageVersion("future")
[18:41:59.361]                         }
[18:41:59.361]                         else {
[18:41:59.361]                           version <- NULL
[18:41:59.361]                         }
[18:41:59.361]                         if (!has_future || version < "1.8.0") {
[18:41:59.361]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.361]                             "", base::R.version$version.string), 
[18:41:59.361]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.361]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.361]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.361]                               "release", "version")], collapse = " "), 
[18:41:59.361]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.361]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.361]                             info)
[18:41:59.361]                           info <- base::paste(info, collapse = "; ")
[18:41:59.361]                           if (!has_future) {
[18:41:59.361]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.361]                               info)
[18:41:59.361]                           }
[18:41:59.361]                           else {
[18:41:59.361]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.361]                               info, version)
[18:41:59.361]                           }
[18:41:59.361]                           base::stop(msg)
[18:41:59.361]                         }
[18:41:59.361]                       })
[18:41:59.361]                     }
[18:41:59.361]                     base::local({
[18:41:59.361]                       for (pkg in "future.apply") {
[18:41:59.361]                         base::loadNamespace(pkg)
[18:41:59.361]                         base::library(pkg, character.only = TRUE)
[18:41:59.361]                       }
[18:41:59.361]                     })
[18:41:59.361]                   }
[18:41:59.361]                   ...future.strategy.old <- future::plan("list")
[18:41:59.361]                   options(future.plan = NULL)
[18:41:59.361]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.361]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.361]                 }
[18:41:59.361]                 ...future.workdir <- getwd()
[18:41:59.361]             }
[18:41:59.361]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.361]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.361]         }
[18:41:59.361]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.361]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.361]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.361]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.361]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.361]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.361]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.361]             base::names(...future.oldOptions))
[18:41:59.361]     }
[18:41:59.361]     if (FALSE) {
[18:41:59.361]     }
[18:41:59.361]     else {
[18:41:59.361]         if (TRUE) {
[18:41:59.361]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.361]                 open = "w")
[18:41:59.361]         }
[18:41:59.361]         else {
[18:41:59.361]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.361]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.361]         }
[18:41:59.361]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.361]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.361]             base::sink(type = "output", split = FALSE)
[18:41:59.361]             base::close(...future.stdout)
[18:41:59.361]         }, add = TRUE)
[18:41:59.361]     }
[18:41:59.361]     ...future.frame <- base::sys.nframe()
[18:41:59.361]     ...future.conditions <- base::list()
[18:41:59.361]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.361]     if (FALSE) {
[18:41:59.361]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.361]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.361]     }
[18:41:59.361]     ...future.result <- base::tryCatch({
[18:41:59.361]         base::withCallingHandlers({
[18:41:59.361]             ...future.value <- base::withVisible(base::local({
[18:41:59.361]                 do.call(function(...) {
[18:41:59.361]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.361]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.361]                     ...future.globals.maxSize)) {
[18:41:59.361]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.361]                     on.exit(options(oopts), add = TRUE)
[18:41:59.361]                   }
[18:41:59.361]                   {
[18:41:59.361]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.361]                       FUN = function(jj) {
[18:41:59.361]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.361]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.361]                       })
[18:41:59.361]                   }
[18:41:59.361]                 }, args = future.call.arguments)
[18:41:59.361]             }))
[18:41:59.361]             future::FutureResult(value = ...future.value$value, 
[18:41:59.361]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.361]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.361]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.361]                     ...future.globalenv.names))
[18:41:59.361]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.361]         }, condition = base::local({
[18:41:59.361]             c <- base::c
[18:41:59.361]             inherits <- base::inherits
[18:41:59.361]             invokeRestart <- base::invokeRestart
[18:41:59.361]             length <- base::length
[18:41:59.361]             list <- base::list
[18:41:59.361]             seq.int <- base::seq.int
[18:41:59.361]             signalCondition <- base::signalCondition
[18:41:59.361]             sys.calls <- base::sys.calls
[18:41:59.361]             `[[` <- base::`[[`
[18:41:59.361]             `+` <- base::`+`
[18:41:59.361]             `<<-` <- base::`<<-`
[18:41:59.361]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.361]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.361]                   3L)]
[18:41:59.361]             }
[18:41:59.361]             function(cond) {
[18:41:59.361]                 is_error <- inherits(cond, "error")
[18:41:59.361]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.361]                   NULL)
[18:41:59.361]                 if (is_error) {
[18:41:59.361]                   sessionInformation <- function() {
[18:41:59.361]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.361]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.361]                       search = base::search(), system = base::Sys.info())
[18:41:59.361]                   }
[18:41:59.361]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.361]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.361]                     cond$call), session = sessionInformation(), 
[18:41:59.361]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.361]                   signalCondition(cond)
[18:41:59.361]                 }
[18:41:59.361]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.361]                 "immediateCondition"))) {
[18:41:59.361]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.361]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.361]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.361]                   if (TRUE && !signal) {
[18:41:59.361]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.361]                     {
[18:41:59.361]                       inherits <- base::inherits
[18:41:59.361]                       invokeRestart <- base::invokeRestart
[18:41:59.361]                       is.null <- base::is.null
[18:41:59.361]                       muffled <- FALSE
[18:41:59.361]                       if (inherits(cond, "message")) {
[18:41:59.361]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.361]                         if (muffled) 
[18:41:59.361]                           invokeRestart("muffleMessage")
[18:41:59.361]                       }
[18:41:59.361]                       else if (inherits(cond, "warning")) {
[18:41:59.361]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.361]                         if (muffled) 
[18:41:59.361]                           invokeRestart("muffleWarning")
[18:41:59.361]                       }
[18:41:59.361]                       else if (inherits(cond, "condition")) {
[18:41:59.361]                         if (!is.null(pattern)) {
[18:41:59.361]                           computeRestarts <- base::computeRestarts
[18:41:59.361]                           grepl <- base::grepl
[18:41:59.361]                           restarts <- computeRestarts(cond)
[18:41:59.361]                           for (restart in restarts) {
[18:41:59.361]                             name <- restart$name
[18:41:59.361]                             if (is.null(name)) 
[18:41:59.361]                               next
[18:41:59.361]                             if (!grepl(pattern, name)) 
[18:41:59.361]                               next
[18:41:59.361]                             invokeRestart(restart)
[18:41:59.361]                             muffled <- TRUE
[18:41:59.361]                             break
[18:41:59.361]                           }
[18:41:59.361]                         }
[18:41:59.361]                       }
[18:41:59.361]                       invisible(muffled)
[18:41:59.361]                     }
[18:41:59.361]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.361]                   }
[18:41:59.361]                 }
[18:41:59.361]                 else {
[18:41:59.361]                   if (TRUE) {
[18:41:59.361]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.361]                     {
[18:41:59.361]                       inherits <- base::inherits
[18:41:59.361]                       invokeRestart <- base::invokeRestart
[18:41:59.361]                       is.null <- base::is.null
[18:41:59.361]                       muffled <- FALSE
[18:41:59.361]                       if (inherits(cond, "message")) {
[18:41:59.361]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.361]                         if (muffled) 
[18:41:59.361]                           invokeRestart("muffleMessage")
[18:41:59.361]                       }
[18:41:59.361]                       else if (inherits(cond, "warning")) {
[18:41:59.361]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.361]                         if (muffled) 
[18:41:59.361]                           invokeRestart("muffleWarning")
[18:41:59.361]                       }
[18:41:59.361]                       else if (inherits(cond, "condition")) {
[18:41:59.361]                         if (!is.null(pattern)) {
[18:41:59.361]                           computeRestarts <- base::computeRestarts
[18:41:59.361]                           grepl <- base::grepl
[18:41:59.361]                           restarts <- computeRestarts(cond)
[18:41:59.361]                           for (restart in restarts) {
[18:41:59.361]                             name <- restart$name
[18:41:59.361]                             if (is.null(name)) 
[18:41:59.361]                               next
[18:41:59.361]                             if (!grepl(pattern, name)) 
[18:41:59.361]                               next
[18:41:59.361]                             invokeRestart(restart)
[18:41:59.361]                             muffled <- TRUE
[18:41:59.361]                             break
[18:41:59.361]                           }
[18:41:59.361]                         }
[18:41:59.361]                       }
[18:41:59.361]                       invisible(muffled)
[18:41:59.361]                     }
[18:41:59.361]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.361]                   }
[18:41:59.361]                 }
[18:41:59.361]             }
[18:41:59.361]         }))
[18:41:59.361]     }, error = function(ex) {
[18:41:59.361]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.361]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.361]                 ...future.rng), started = ...future.startTime, 
[18:41:59.361]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.361]             version = "1.8"), class = "FutureResult")
[18:41:59.361]     }, finally = {
[18:41:59.361]         if (!identical(...future.workdir, getwd())) 
[18:41:59.361]             setwd(...future.workdir)
[18:41:59.361]         {
[18:41:59.361]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.361]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.361]             }
[18:41:59.361]             base::options(...future.oldOptions)
[18:41:59.361]             if (.Platform$OS.type == "windows") {
[18:41:59.361]                 old_names <- names(...future.oldEnvVars)
[18:41:59.361]                 envs <- base::Sys.getenv()
[18:41:59.361]                 names <- names(envs)
[18:41:59.361]                 common <- intersect(names, old_names)
[18:41:59.361]                 added <- setdiff(names, old_names)
[18:41:59.361]                 removed <- setdiff(old_names, names)
[18:41:59.361]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.361]                   envs[common]]
[18:41:59.361]                 NAMES <- toupper(changed)
[18:41:59.361]                 args <- list()
[18:41:59.361]                 for (kk in seq_along(NAMES)) {
[18:41:59.361]                   name <- changed[[kk]]
[18:41:59.361]                   NAME <- NAMES[[kk]]
[18:41:59.361]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.361]                     next
[18:41:59.361]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.361]                 }
[18:41:59.361]                 NAMES <- toupper(added)
[18:41:59.361]                 for (kk in seq_along(NAMES)) {
[18:41:59.361]                   name <- added[[kk]]
[18:41:59.361]                   NAME <- NAMES[[kk]]
[18:41:59.361]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.361]                     next
[18:41:59.361]                   args[[name]] <- ""
[18:41:59.361]                 }
[18:41:59.361]                 NAMES <- toupper(removed)
[18:41:59.361]                 for (kk in seq_along(NAMES)) {
[18:41:59.361]                   name <- removed[[kk]]
[18:41:59.361]                   NAME <- NAMES[[kk]]
[18:41:59.361]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.361]                     next
[18:41:59.361]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.361]                 }
[18:41:59.361]                 if (length(args) > 0) 
[18:41:59.361]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.361]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.361]             }
[18:41:59.361]             else {
[18:41:59.361]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.361]             }
[18:41:59.361]             {
[18:41:59.361]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.361]                   0L) {
[18:41:59.361]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.361]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.361]                   base::options(opts)
[18:41:59.361]                 }
[18:41:59.361]                 {
[18:41:59.361]                   {
[18:41:59.361]                     NULL
[18:41:59.361]                     RNGkind("Mersenne-Twister")
[18:41:59.361]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.361]                       inherits = FALSE)
[18:41:59.361]                   }
[18:41:59.361]                   options(future.plan = NULL)
[18:41:59.361]                   if (is.na(NA_character_)) 
[18:41:59.361]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.361]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.361]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.361]                     .init = FALSE)
[18:41:59.361]                 }
[18:41:59.361]             }
[18:41:59.361]         }
[18:41:59.361]     })
[18:41:59.361]     if (TRUE) {
[18:41:59.361]         base::sink(type = "output", split = FALSE)
[18:41:59.361]         if (TRUE) {
[18:41:59.361]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.361]         }
[18:41:59.361]         else {
[18:41:59.361]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.361]         }
[18:41:59.361]         base::close(...future.stdout)
[18:41:59.361]         ...future.stdout <- NULL
[18:41:59.361]     }
[18:41:59.361]     ...future.result$conditions <- ...future.conditions
[18:41:59.361]     ...future.result$finished <- base::Sys.time()
[18:41:59.361]     ...future.result
[18:41:59.361] }
[18:41:59.365] assign_globals() ...
[18:41:59.366] List of 11
[18:41:59.366]  $ ...future.FUN            :function (x, ...)  
[18:41:59.366]  $ x_FUN                    :function (x)  
[18:41:59.366]  $ times                    : int 1
[18:41:59.366]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.366]  $ stop_if_not              :function (...)  
[18:41:59.366]  $ dim                      : NULL
[18:41:59.366]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.366]  $ future.call.arguments    : list()
[18:41:59.366]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.366]  $ ...future.elements_ii    :List of 10
[18:41:59.366]   ..$ : int 1
[18:41:59.366]   ..$ : int 2
[18:41:59.366]   ..$ : int 3
[18:41:59.366]   ..$ : int 4
[18:41:59.366]   ..$ : int 5
[18:41:59.366]   ..$ : int 6
[18:41:59.366]   ..$ : int 7
[18:41:59.366]   ..$ : int 8
[18:41:59.366]   ..$ : int 9
[18:41:59.366]   ..$ : int 10
[18:41:59.366]  $ ...future.seeds_ii       : NULL
[18:41:59.366]  $ ...future.globals.maxSize: NULL
[18:41:59.366]  - attr(*, "where")=List of 11
[18:41:59.366]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.366]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.366]  - attr(*, "resolved")= logi FALSE
[18:41:59.366]  - attr(*, "total_size")= num 22322
[18:41:59.366]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.366]  - attr(*, "already-done")= logi TRUE
[18:41:59.379] - copied '...future.FUN' to environment
[18:41:59.379] - copied 'x_FUN' to environment
[18:41:59.379] - copied 'times' to environment
[18:41:59.379] - copied 'stopf' to environment
[18:41:59.379] - copied 'stop_if_not' to environment
[18:41:59.380] - copied 'dim' to environment
[18:41:59.380] - copied 'valid_types' to environment
[18:41:59.380] - copied 'future.call.arguments' to environment
[18:41:59.380] - copied '...future.elements_ii' to environment
[18:41:59.380] - copied '...future.seeds_ii' to environment
[18:41:59.380] - copied '...future.globals.maxSize' to environment
[18:41:59.381] assign_globals() ... done
[18:41:59.381] plan(): Setting new future strategy stack:
[18:41:59.381] List of future strategies:
[18:41:59.381] 1. sequential:
[18:41:59.381]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.381]    - tweaked: FALSE
[18:41:59.381]    - call: NULL
[18:41:59.382] plan(): nbrOfWorkers() = 1
[18:41:59.383] plan(): Setting new future strategy stack:
[18:41:59.383] List of future strategies:
[18:41:59.383] 1. sequential:
[18:41:59.383]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.383]    - tweaked: FALSE
[18:41:59.383]    - call: plan(strategy)
[18:41:59.384] plan(): nbrOfWorkers() = 1
[18:41:59.384] SequentialFuture started (and completed)
[18:41:59.385] - Launch lazy future ... done
[18:41:59.385] run() for 'SequentialFuture' ... done
[18:41:59.385] Created future:
[18:41:59.385] SequentialFuture:
[18:41:59.385] Label: 'future_vapply-1'
[18:41:59.385] Expression:
[18:41:59.385] {
[18:41:59.385]     do.call(function(...) {
[18:41:59.385]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.385]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.385]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.385]             on.exit(options(oopts), add = TRUE)
[18:41:59.385]         }
[18:41:59.385]         {
[18:41:59.385]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.385]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.385]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.385]             })
[18:41:59.385]         }
[18:41:59.385]     }, args = future.call.arguments)
[18:41:59.385] }
[18:41:59.385] Lazy evaluation: FALSE
[18:41:59.385] Asynchronous evaluation: FALSE
[18:41:59.385] Local evaluation: TRUE
[18:41:59.385] Environment: R_GlobalEnv
[18:41:59.385] Capture standard output: TRUE
[18:41:59.385] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.385] Globals: 11 objects totaling 12.37 KiB (function '...future.FUN' of 4.06 KiB, function 'x_FUN' of 35 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.385] Packages: 1 packages ('future.apply')
[18:41:59.385] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.385] Resolved: TRUE
[18:41:59.385] Value: 191 bytes of class 'list'
[18:41:59.385] Early signaling: FALSE
[18:41:59.385] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.385] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.386] Chunk #1 of 1 ... DONE
[18:41:59.386] Launching 1 futures (chunks) ... DONE
[18:41:59.387] Resolving 1 futures (chunks) ...
[18:41:59.387] resolve() on list ...
[18:41:59.387]  recursive: 0
[18:41:59.387]  length: 1
[18:41:59.387] 
[18:41:59.388] resolved() for 'SequentialFuture' ...
[18:41:59.388] - state: 'finished'
[18:41:59.388] - run: TRUE
[18:41:59.388] - result: 'FutureResult'
[18:41:59.388] resolved() for 'SequentialFuture' ... done
[18:41:59.388] Future #1
[18:41:59.389] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.389] - nx: 1
[18:41:59.389] - relay: TRUE
[18:41:59.389] - stdout: TRUE
[18:41:59.389] - signal: TRUE
[18:41:59.389] - resignal: FALSE
[18:41:59.390] - force: TRUE
[18:41:59.390] - relayed: [n=1] FALSE
[18:41:59.390] - queued futures: [n=1] FALSE
[18:41:59.390]  - until=1
[18:41:59.390]  - relaying element #1
[18:41:59.390] - relayed: [n=1] TRUE
[18:41:59.391] - queued futures: [n=1] TRUE
[18:41:59.391] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.391]  length: 0 (resolved future 1)
[18:41:59.391] Relaying remaining futures
[18:41:59.391] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.391] - nx: 1
[18:41:59.392] - relay: TRUE
[18:41:59.392] - stdout: TRUE
[18:41:59.392] - signal: TRUE
[18:41:59.392] - resignal: FALSE
[18:41:59.392] - force: TRUE
[18:41:59.392] - relayed: [n=1] TRUE
[18:41:59.392] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.393] - relayed: [n=1] TRUE
[18:41:59.393] - queued futures: [n=1] TRUE
[18:41:59.393] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.393] resolve() on list ... DONE
[18:41:59.393]  - Number of value chunks collected: 1
[18:41:59.393] Resolving 1 futures (chunks) ... DONE
[18:41:59.394] Reducing values from 1 chunks ...
[18:41:59.394]  - Number of values collected after concatenation: 10
[18:41:59.394]  - Number of values expected: 10
[18:41:59.394] Reducing values from 1 chunks ... DONE
[18:41:59.394] future_lapply() ... DONE
 num [1:10] 1 1.41 1.73 2 2.24 ...
 num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ...
[18:41:59.395] future_lapply() ...
[18:41:59.398] Number of chunks: 1
[18:41:59.399] getGlobalsAndPackagesXApply() ...
[18:41:59.399]  - future.globals: TRUE
[18:41:59.399] getGlobalsAndPackages() ...
[18:41:59.399] Searching for globals...
[18:41:59.404] - globals found: [18] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'c', '^'
[18:41:59.404] Searching for globals ... DONE
[18:41:59.404] Resolving globals: FALSE
[18:41:59.405] The total size of the 7 globals is 13.34 KiB (13657 bytes)
[18:41:59.406] The total size of the 7 globals exported for future expression ('FUN()') is 13.34 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (4.89 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.406] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.406] - packages: [1] 'future.apply'
[18:41:59.406] getGlobalsAndPackages() ... DONE
[18:41:59.406]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.406]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.407] Finding globals ... DONE
[18:41:59.407]  - use_args: TRUE
[18:41:59.407]  - Getting '...' globals ...
[18:41:59.407] resolve() on list ...
[18:41:59.408]  recursive: 0
[18:41:59.408]  length: 1
[18:41:59.408]  elements: '...'
[18:41:59.408]  length: 0 (resolved future 1)
[18:41:59.408] resolve() on list ... DONE
[18:41:59.408]    - '...' content: [n=0] 
[18:41:59.409] List of 1
[18:41:59.409]  $ ...: list()
[18:41:59.409]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.409]  - attr(*, "where")=List of 1
[18:41:59.409]   ..$ ...:<environment: 0x000002ea02570840> 
[18:41:59.409]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.409]  - attr(*, "resolved")= logi TRUE
[18:41:59.409]  - attr(*, "total_size")= num NA
[18:41:59.411]  - Getting '...' globals ... DONE
[18:41:59.412] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.412] List of 8
[18:41:59.412]  $ ...future.FUN:function (x, ...)  
[18:41:59.412]  $ x_FUN        :function (x)  
[18:41:59.412]  $ times        : int 2
[18:41:59.412]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.412]  $ stop_if_not  :function (...)  
[18:41:59.412]  $ dim          : NULL
[18:41:59.412]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.412]  $ ...          : list()
[18:41:59.412]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.412]  - attr(*, "where")=List of 8
[18:41:59.412]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.412]   ..$ ...          :<environment: 0x000002ea02570840> 
[18:41:59.412]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.412]  - attr(*, "resolved")= logi FALSE
[18:41:59.412]  - attr(*, "total_size")= int 24454
[18:41:59.419] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.419] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.419] Number of futures (= number of chunks): 1
[18:41:59.420] Launching 1 futures (chunks) ...
[18:41:59.420] Chunk #1 of 1 ...
[18:41:59.420]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.420] getGlobalsAndPackages() ...
[18:41:59.420] Searching for globals...
[18:41:59.421] 
[18:41:59.421] Searching for globals ... DONE
[18:41:59.421] - globals: [0] <none>
[18:41:59.421] getGlobalsAndPackages() ... DONE
[18:41:59.421]    + additional globals found: [n=0] 
[18:41:59.421]    + additional namespaces needed: [n=0] 
[18:41:59.422]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.422]  - seeds: <none>
[18:41:59.422]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.422] getGlobalsAndPackages() ...
[18:41:59.422] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.422] Resolving globals: FALSE
[18:41:59.423] Tweak future expression to call with '...' arguments ...
[18:41:59.423] {
[18:41:59.423]     do.call(function(...) {
[18:41:59.423]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.423]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.423]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.423]             on.exit(options(oopts), add = TRUE)
[18:41:59.423]         }
[18:41:59.423]         {
[18:41:59.423]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.423]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.423]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.423]             })
[18:41:59.423]         }
[18:41:59.423]     }, args = future.call.arguments)
[18:41:59.423] }
[18:41:59.423] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.424] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.424] - packages: [1] 'future.apply'
[18:41:59.424] getGlobalsAndPackages() ... DONE
[18:41:59.425] run() for 'Future' ...
[18:41:59.425] - state: 'created'
[18:41:59.425] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.425] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.426] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.426]   - Field: 'label'
[18:41:59.426]   - Field: 'local'
[18:41:59.426]   - Field: 'owner'
[18:41:59.426]   - Field: 'envir'
[18:41:59.426]   - Field: 'packages'
[18:41:59.427]   - Field: 'gc'
[18:41:59.427]   - Field: 'conditions'
[18:41:59.427]   - Field: 'expr'
[18:41:59.427]   - Field: 'uuid'
[18:41:59.427]   - Field: 'seed'
[18:41:59.427]   - Field: 'version'
[18:41:59.428]   - Field: 'result'
[18:41:59.428]   - Field: 'asynchronous'
[18:41:59.428]   - Field: 'calls'
[18:41:59.428]   - Field: 'globals'
[18:41:59.428]   - Field: 'stdout'
[18:41:59.429]   - Field: 'earlySignal'
[18:41:59.429]   - Field: 'lazy'
[18:41:59.429]   - Field: 'state'
[18:41:59.429] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.429] - Launch lazy future ...
[18:41:59.430] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.430] Packages needed by future strategies (n = 0): <none>
[18:41:59.430] {
[18:41:59.430]     {
[18:41:59.430]         {
[18:41:59.430]             ...future.startTime <- base::Sys.time()
[18:41:59.430]             {
[18:41:59.430]                 {
[18:41:59.430]                   {
[18:41:59.430]                     {
[18:41:59.430]                       base::local({
[18:41:59.430]                         has_future <- base::requireNamespace("future", 
[18:41:59.430]                           quietly = TRUE)
[18:41:59.430]                         if (has_future) {
[18:41:59.430]                           ns <- base::getNamespace("future")
[18:41:59.430]                           version <- ns[[".package"]][["version"]]
[18:41:59.430]                           if (is.null(version)) 
[18:41:59.430]                             version <- utils::packageVersion("future")
[18:41:59.430]                         }
[18:41:59.430]                         else {
[18:41:59.430]                           version <- NULL
[18:41:59.430]                         }
[18:41:59.430]                         if (!has_future || version < "1.8.0") {
[18:41:59.430]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.430]                             "", base::R.version$version.string), 
[18:41:59.430]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.430]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.430]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.430]                               "release", "version")], collapse = " "), 
[18:41:59.430]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.430]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.430]                             info)
[18:41:59.430]                           info <- base::paste(info, collapse = "; ")
[18:41:59.430]                           if (!has_future) {
[18:41:59.430]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.430]                               info)
[18:41:59.430]                           }
[18:41:59.430]                           else {
[18:41:59.430]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.430]                               info, version)
[18:41:59.430]                           }
[18:41:59.430]                           base::stop(msg)
[18:41:59.430]                         }
[18:41:59.430]                       })
[18:41:59.430]                     }
[18:41:59.430]                     base::local({
[18:41:59.430]                       for (pkg in "future.apply") {
[18:41:59.430]                         base::loadNamespace(pkg)
[18:41:59.430]                         base::library(pkg, character.only = TRUE)
[18:41:59.430]                       }
[18:41:59.430]                     })
[18:41:59.430]                   }
[18:41:59.430]                   ...future.strategy.old <- future::plan("list")
[18:41:59.430]                   options(future.plan = NULL)
[18:41:59.430]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.430]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.430]                 }
[18:41:59.430]                 ...future.workdir <- getwd()
[18:41:59.430]             }
[18:41:59.430]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.430]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.430]         }
[18:41:59.430]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.430]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.430]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.430]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.430]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.430]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.430]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.430]             base::names(...future.oldOptions))
[18:41:59.430]     }
[18:41:59.430]     if (FALSE) {
[18:41:59.430]     }
[18:41:59.430]     else {
[18:41:59.430]         if (TRUE) {
[18:41:59.430]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.430]                 open = "w")
[18:41:59.430]         }
[18:41:59.430]         else {
[18:41:59.430]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.430]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.430]         }
[18:41:59.430]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.430]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.430]             base::sink(type = "output", split = FALSE)
[18:41:59.430]             base::close(...future.stdout)
[18:41:59.430]         }, add = TRUE)
[18:41:59.430]     }
[18:41:59.430]     ...future.frame <- base::sys.nframe()
[18:41:59.430]     ...future.conditions <- base::list()
[18:41:59.430]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.430]     if (FALSE) {
[18:41:59.430]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.430]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.430]     }
[18:41:59.430]     ...future.result <- base::tryCatch({
[18:41:59.430]         base::withCallingHandlers({
[18:41:59.430]             ...future.value <- base::withVisible(base::local({
[18:41:59.430]                 do.call(function(...) {
[18:41:59.430]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.430]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.430]                     ...future.globals.maxSize)) {
[18:41:59.430]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.430]                     on.exit(options(oopts), add = TRUE)
[18:41:59.430]                   }
[18:41:59.430]                   {
[18:41:59.430]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.430]                       FUN = function(jj) {
[18:41:59.430]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.430]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.430]                       })
[18:41:59.430]                   }
[18:41:59.430]                 }, args = future.call.arguments)
[18:41:59.430]             }))
[18:41:59.430]             future::FutureResult(value = ...future.value$value, 
[18:41:59.430]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.430]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.430]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.430]                     ...future.globalenv.names))
[18:41:59.430]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.430]         }, condition = base::local({
[18:41:59.430]             c <- base::c
[18:41:59.430]             inherits <- base::inherits
[18:41:59.430]             invokeRestart <- base::invokeRestart
[18:41:59.430]             length <- base::length
[18:41:59.430]             list <- base::list
[18:41:59.430]             seq.int <- base::seq.int
[18:41:59.430]             signalCondition <- base::signalCondition
[18:41:59.430]             sys.calls <- base::sys.calls
[18:41:59.430]             `[[` <- base::`[[`
[18:41:59.430]             `+` <- base::`+`
[18:41:59.430]             `<<-` <- base::`<<-`
[18:41:59.430]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.430]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.430]                   3L)]
[18:41:59.430]             }
[18:41:59.430]             function(cond) {
[18:41:59.430]                 is_error <- inherits(cond, "error")
[18:41:59.430]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.430]                   NULL)
[18:41:59.430]                 if (is_error) {
[18:41:59.430]                   sessionInformation <- function() {
[18:41:59.430]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.430]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.430]                       search = base::search(), system = base::Sys.info())
[18:41:59.430]                   }
[18:41:59.430]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.430]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.430]                     cond$call), session = sessionInformation(), 
[18:41:59.430]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.430]                   signalCondition(cond)
[18:41:59.430]                 }
[18:41:59.430]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.430]                 "immediateCondition"))) {
[18:41:59.430]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.430]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.430]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.430]                   if (TRUE && !signal) {
[18:41:59.430]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.430]                     {
[18:41:59.430]                       inherits <- base::inherits
[18:41:59.430]                       invokeRestart <- base::invokeRestart
[18:41:59.430]                       is.null <- base::is.null
[18:41:59.430]                       muffled <- FALSE
[18:41:59.430]                       if (inherits(cond, "message")) {
[18:41:59.430]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.430]                         if (muffled) 
[18:41:59.430]                           invokeRestart("muffleMessage")
[18:41:59.430]                       }
[18:41:59.430]                       else if (inherits(cond, "warning")) {
[18:41:59.430]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.430]                         if (muffled) 
[18:41:59.430]                           invokeRestart("muffleWarning")
[18:41:59.430]                       }
[18:41:59.430]                       else if (inherits(cond, "condition")) {
[18:41:59.430]                         if (!is.null(pattern)) {
[18:41:59.430]                           computeRestarts <- base::computeRestarts
[18:41:59.430]                           grepl <- base::grepl
[18:41:59.430]                           restarts <- computeRestarts(cond)
[18:41:59.430]                           for (restart in restarts) {
[18:41:59.430]                             name <- restart$name
[18:41:59.430]                             if (is.null(name)) 
[18:41:59.430]                               next
[18:41:59.430]                             if (!grepl(pattern, name)) 
[18:41:59.430]                               next
[18:41:59.430]                             invokeRestart(restart)
[18:41:59.430]                             muffled <- TRUE
[18:41:59.430]                             break
[18:41:59.430]                           }
[18:41:59.430]                         }
[18:41:59.430]                       }
[18:41:59.430]                       invisible(muffled)
[18:41:59.430]                     }
[18:41:59.430]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.430]                   }
[18:41:59.430]                 }
[18:41:59.430]                 else {
[18:41:59.430]                   if (TRUE) {
[18:41:59.430]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.430]                     {
[18:41:59.430]                       inherits <- base::inherits
[18:41:59.430]                       invokeRestart <- base::invokeRestart
[18:41:59.430]                       is.null <- base::is.null
[18:41:59.430]                       muffled <- FALSE
[18:41:59.430]                       if (inherits(cond, "message")) {
[18:41:59.430]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.430]                         if (muffled) 
[18:41:59.430]                           invokeRestart("muffleMessage")
[18:41:59.430]                       }
[18:41:59.430]                       else if (inherits(cond, "warning")) {
[18:41:59.430]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.430]                         if (muffled) 
[18:41:59.430]                           invokeRestart("muffleWarning")
[18:41:59.430]                       }
[18:41:59.430]                       else if (inherits(cond, "condition")) {
[18:41:59.430]                         if (!is.null(pattern)) {
[18:41:59.430]                           computeRestarts <- base::computeRestarts
[18:41:59.430]                           grepl <- base::grepl
[18:41:59.430]                           restarts <- computeRestarts(cond)
[18:41:59.430]                           for (restart in restarts) {
[18:41:59.430]                             name <- restart$name
[18:41:59.430]                             if (is.null(name)) 
[18:41:59.430]                               next
[18:41:59.430]                             if (!grepl(pattern, name)) 
[18:41:59.430]                               next
[18:41:59.430]                             invokeRestart(restart)
[18:41:59.430]                             muffled <- TRUE
[18:41:59.430]                             break
[18:41:59.430]                           }
[18:41:59.430]                         }
[18:41:59.430]                       }
[18:41:59.430]                       invisible(muffled)
[18:41:59.430]                     }
[18:41:59.430]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.430]                   }
[18:41:59.430]                 }
[18:41:59.430]             }
[18:41:59.430]         }))
[18:41:59.430]     }, error = function(ex) {
[18:41:59.430]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.430]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.430]                 ...future.rng), started = ...future.startTime, 
[18:41:59.430]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.430]             version = "1.8"), class = "FutureResult")
[18:41:59.430]     }, finally = {
[18:41:59.430]         if (!identical(...future.workdir, getwd())) 
[18:41:59.430]             setwd(...future.workdir)
[18:41:59.430]         {
[18:41:59.430]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.430]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.430]             }
[18:41:59.430]             base::options(...future.oldOptions)
[18:41:59.430]             if (.Platform$OS.type == "windows") {
[18:41:59.430]                 old_names <- names(...future.oldEnvVars)
[18:41:59.430]                 envs <- base::Sys.getenv()
[18:41:59.430]                 names <- names(envs)
[18:41:59.430]                 common <- intersect(names, old_names)
[18:41:59.430]                 added <- setdiff(names, old_names)
[18:41:59.430]                 removed <- setdiff(old_names, names)
[18:41:59.430]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.430]                   envs[common]]
[18:41:59.430]                 NAMES <- toupper(changed)
[18:41:59.430]                 args <- list()
[18:41:59.430]                 for (kk in seq_along(NAMES)) {
[18:41:59.430]                   name <- changed[[kk]]
[18:41:59.430]                   NAME <- NAMES[[kk]]
[18:41:59.430]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.430]                     next
[18:41:59.430]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.430]                 }
[18:41:59.430]                 NAMES <- toupper(added)
[18:41:59.430]                 for (kk in seq_along(NAMES)) {
[18:41:59.430]                   name <- added[[kk]]
[18:41:59.430]                   NAME <- NAMES[[kk]]
[18:41:59.430]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.430]                     next
[18:41:59.430]                   args[[name]] <- ""
[18:41:59.430]                 }
[18:41:59.430]                 NAMES <- toupper(removed)
[18:41:59.430]                 for (kk in seq_along(NAMES)) {
[18:41:59.430]                   name <- removed[[kk]]
[18:41:59.430]                   NAME <- NAMES[[kk]]
[18:41:59.430]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.430]                     next
[18:41:59.430]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.430]                 }
[18:41:59.430]                 if (length(args) > 0) 
[18:41:59.430]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.430]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.430]             }
[18:41:59.430]             else {
[18:41:59.430]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.430]             }
[18:41:59.430]             {
[18:41:59.430]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.430]                   0L) {
[18:41:59.430]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.430]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.430]                   base::options(opts)
[18:41:59.430]                 }
[18:41:59.430]                 {
[18:41:59.430]                   {
[18:41:59.430]                     NULL
[18:41:59.430]                     RNGkind("Mersenne-Twister")
[18:41:59.430]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.430]                       inherits = FALSE)
[18:41:59.430]                   }
[18:41:59.430]                   options(future.plan = NULL)
[18:41:59.430]                   if (is.na(NA_character_)) 
[18:41:59.430]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.430]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.430]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.430]                     .init = FALSE)
[18:41:59.430]                 }
[18:41:59.430]             }
[18:41:59.430]         }
[18:41:59.430]     })
[18:41:59.430]     if (TRUE) {
[18:41:59.430]         base::sink(type = "output", split = FALSE)
[18:41:59.430]         if (TRUE) {
[18:41:59.430]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.430]         }
[18:41:59.430]         else {
[18:41:59.430]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.430]         }
[18:41:59.430]         base::close(...future.stdout)
[18:41:59.430]         ...future.stdout <- NULL
[18:41:59.430]     }
[18:41:59.430]     ...future.result$conditions <- ...future.conditions
[18:41:59.430]     ...future.result$finished <- base::Sys.time()
[18:41:59.430]     ...future.result
[18:41:59.430] }
[18:41:59.434] assign_globals() ...
[18:41:59.434] List of 11
[18:41:59.434]  $ ...future.FUN            :function (x, ...)  
[18:41:59.434]  $ x_FUN                    :function (x)  
[18:41:59.434]  $ times                    : int 2
[18:41:59.434]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.434]  $ stop_if_not              :function (...)  
[18:41:59.434]  $ dim                      : NULL
[18:41:59.434]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.434]  $ future.call.arguments    : list()
[18:41:59.434]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.434]  $ ...future.elements_ii    :List of 10
[18:41:59.434]   ..$ : int 1
[18:41:59.434]   ..$ : int 2
[18:41:59.434]   ..$ : int 3
[18:41:59.434]   ..$ : int 4
[18:41:59.434]   ..$ : int 5
[18:41:59.434]   ..$ : int 6
[18:41:59.434]   ..$ : int 7
[18:41:59.434]   ..$ : int 8
[18:41:59.434]   ..$ : int 9
[18:41:59.434]   ..$ : int 10
[18:41:59.434]  $ ...future.seeds_ii       : NULL
[18:41:59.434]  $ ...future.globals.maxSize: NULL
[18:41:59.434]  - attr(*, "where")=List of 11
[18:41:59.434]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.434]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.434]  - attr(*, "resolved")= logi FALSE
[18:41:59.434]  - attr(*, "total_size")= num 24454
[18:41:59.434]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.434]  - attr(*, "already-done")= logi TRUE
[18:41:59.447] - copied '...future.FUN' to environment
[18:41:59.448] - reassign environment for 'x_FUN'
[18:41:59.448] - copied 'x_FUN' to environment
[18:41:59.448] - copied 'times' to environment
[18:41:59.448] - copied 'stopf' to environment
[18:41:59.448] - copied 'stop_if_not' to environment
[18:41:59.448] - copied 'dim' to environment
[18:41:59.448] - copied 'valid_types' to environment
[18:41:59.449] - copied 'future.call.arguments' to environment
[18:41:59.449] - copied '...future.elements_ii' to environment
[18:41:59.449] - copied '...future.seeds_ii' to environment
[18:41:59.449] - copied '...future.globals.maxSize' to environment
[18:41:59.449] assign_globals() ... done
[18:41:59.450] plan(): Setting new future strategy stack:
[18:41:59.450] List of future strategies:
[18:41:59.450] 1. sequential:
[18:41:59.450]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.450]    - tweaked: FALSE
[18:41:59.450]    - call: NULL
[18:41:59.451] plan(): nbrOfWorkers() = 1
[18:41:59.452] plan(): Setting new future strategy stack:
[18:41:59.452] List of future strategies:
[18:41:59.452] 1. sequential:
[18:41:59.452]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.452]    - tweaked: FALSE
[18:41:59.452]    - call: plan(strategy)
[18:41:59.453] plan(): nbrOfWorkers() = 1
[18:41:59.453] SequentialFuture started (and completed)
[18:41:59.453] - Launch lazy future ... done
[18:41:59.453] run() for 'SequentialFuture' ... done
[18:41:59.454] Created future:
[18:41:59.454] SequentialFuture:
[18:41:59.454] Label: 'future_vapply-1'
[18:41:59.454] Expression:
[18:41:59.454] {
[18:41:59.454]     do.call(function(...) {
[18:41:59.454]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.454]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.454]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.454]             on.exit(options(oopts), add = TRUE)
[18:41:59.454]         }
[18:41:59.454]         {
[18:41:59.454]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.454]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.454]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.454]             })
[18:41:59.454]         }
[18:41:59.454]     }, args = future.call.arguments)
[18:41:59.454] }
[18:41:59.454] Lazy evaluation: FALSE
[18:41:59.454] Asynchronous evaluation: FALSE
[18:41:59.454] Local evaluation: TRUE
[18:41:59.454] Environment: R_GlobalEnv
[18:41:59.454] Capture standard output: TRUE
[18:41:59.454] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.454] Globals: 11 objects totaling 13.63 KiB (function '...future.FUN' of 4.88 KiB, function 'x_FUN' of 483 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.454] Packages: 1 packages ('future.apply')
[18:41:59.454] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.454] Resolved: TRUE
[18:41:59.454] Value: 271 bytes of class 'list'
[18:41:59.454] Early signaling: FALSE
[18:41:59.454] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.454] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.455] Chunk #1 of 1 ... DONE
[18:41:59.455] Launching 1 futures (chunks) ... DONE
[18:41:59.455] Resolving 1 futures (chunks) ...
[18:41:59.455] resolve() on list ...
[18:41:59.456]  recursive: 0
[18:41:59.456]  length: 1
[18:41:59.456] 
[18:41:59.456] resolved() for 'SequentialFuture' ...
[18:41:59.456] - state: 'finished'
[18:41:59.456] - run: TRUE
[18:41:59.457] - result: 'FutureResult'
[18:41:59.457] resolved() for 'SequentialFuture' ... done
[18:41:59.457] Future #1
[18:41:59.457] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.457] - nx: 1
[18:41:59.457] - relay: TRUE
[18:41:59.458] - stdout: TRUE
[18:41:59.458] - signal: TRUE
[18:41:59.458] - resignal: FALSE
[18:41:59.458] - force: TRUE
[18:41:59.458] - relayed: [n=1] FALSE
[18:41:59.458] - queued futures: [n=1] FALSE
[18:41:59.458]  - until=1
[18:41:59.459]  - relaying element #1
[18:41:59.459] - relayed: [n=1] TRUE
[18:41:59.459] - queued futures: [n=1] TRUE
[18:41:59.459] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.459]  length: 0 (resolved future 1)
[18:41:59.460] Relaying remaining futures
[18:41:59.460] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.460] - nx: 1
[18:41:59.460] - relay: TRUE
[18:41:59.460] - stdout: TRUE
[18:41:59.460] - signal: TRUE
[18:41:59.460] - resignal: FALSE
[18:41:59.461] - force: TRUE
[18:41:59.461] - relayed: [n=1] TRUE
[18:41:59.461] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.461] - relayed: [n=1] TRUE
[18:41:59.461] - queued futures: [n=1] TRUE
[18:41:59.461] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.462] resolve() on list ... DONE
[18:41:59.462]  - Number of value chunks collected: 1
[18:41:59.462] Resolving 1 futures (chunks) ... DONE
[18:41:59.462] Reducing values from 1 chunks ...
[18:41:59.462]  - Number of values collected after concatenation: 10
[18:41:59.462]  - Number of values expected: 10
[18:41:59.463] Reducing values from 1 chunks ... DONE
[18:41:59.463] future_lapply() ... DONE
 num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ...
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
[18:41:59.464] future_lapply() ...
[18:41:59.467] Number of chunks: 1
[18:41:59.467] getGlobalsAndPackagesXApply() ...
[18:41:59.467]  - future.globals: TRUE
[18:41:59.467] getGlobalsAndPackages() ...
[18:41:59.468] Searching for globals...
[18:41:59.472] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'matrix'
[18:41:59.472] Searching for globals ... DONE
[18:41:59.472] Resolving globals: FALSE
[18:41:59.473] The total size of the 7 globals is 13.59 KiB (13914 bytes)
[18:41:59.474] The total size of the 7 globals exported for future expression ('FUN()') is 13.59 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (5.06 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.474] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.474] - packages: [1] 'future.apply'
[18:41:59.474] getGlobalsAndPackages() ... DONE
[18:41:59.475]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.475]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.475] Finding globals ... DONE
[18:41:59.475]  - use_args: TRUE
[18:41:59.475]  - Getting '...' globals ...
[18:41:59.476] resolve() on list ...
[18:41:59.476]  recursive: 0
[18:41:59.476]  length: 1
[18:41:59.476]  elements: '...'
[18:41:59.476]  length: 0 (resolved future 1)
[18:41:59.476] resolve() on list ... DONE
[18:41:59.477]    - '...' content: [n=0] 
[18:41:59.477] List of 1
[18:41:59.477]  $ ...: list()
[18:41:59.477]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.477]  - attr(*, "where")=List of 1
[18:41:59.477]   ..$ ...:<environment: 0x000002ea02aa2298> 
[18:41:59.477]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.477]  - attr(*, "resolved")= logi TRUE
[18:41:59.477]  - attr(*, "total_size")= num NA
[18:41:59.479]  - Getting '...' globals ... DONE
[18:41:59.480] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.480] List of 8
[18:41:59.480]  $ ...future.FUN:function (x, ...)  
[18:41:59.480]  $ x_FUN        :function (x)  
[18:41:59.480]  $ times        : int 4
[18:41:59.480]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.480]  $ stop_if_not  :function (...)  
[18:41:59.480]  $ dim          : int [1:2] 2 2
[18:41:59.480]  $ valid_types  : chr [1:2] "logical" "integer"
[18:41:59.480]  $ ...          : list()
[18:41:59.480]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.480]  - attr(*, "where")=List of 8
[18:41:59.480]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.480]   ..$ ...          :<environment: 0x000002ea02aa2298> 
[18:41:59.480]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.480]  - attr(*, "resolved")= logi FALSE
[18:41:59.480]  - attr(*, "total_size")= int 24886
[18:41:59.487] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.487] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.488] Number of futures (= number of chunks): 1
[18:41:59.488] Launching 1 futures (chunks) ...
[18:41:59.488] Chunk #1 of 1 ...
[18:41:59.488]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.488] getGlobalsAndPackages() ...
[18:41:59.489] Searching for globals...
[18:41:59.489] 
[18:41:59.489] Searching for globals ... DONE
[18:41:59.489] - globals: [0] <none>
[18:41:59.490] getGlobalsAndPackages() ... DONE
[18:41:59.490]    + additional globals found: [n=0] 
[18:41:59.490]    + additional namespaces needed: [n=0] 
[18:41:59.490]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.490]  - seeds: <none>
[18:41:59.490]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.491] getGlobalsAndPackages() ...
[18:41:59.491] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.491] Resolving globals: FALSE
[18:41:59.491] Tweak future expression to call with '...' arguments ...
[18:41:59.491] {
[18:41:59.491]     do.call(function(...) {
[18:41:59.491]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.491]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.491]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.491]             on.exit(options(oopts), add = TRUE)
[18:41:59.491]         }
[18:41:59.491]         {
[18:41:59.491]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.491]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.491]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.491]             })
[18:41:59.491]         }
[18:41:59.491]     }, args = future.call.arguments)
[18:41:59.491] }
[18:41:59.492] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.492] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.493] - packages: [1] 'future.apply'
[18:41:59.493] getGlobalsAndPackages() ... DONE
[18:41:59.493] run() for 'Future' ...
[18:41:59.493] - state: 'created'
[18:41:59.493] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.494] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.494] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.494]   - Field: 'label'
[18:41:59.494]   - Field: 'local'
[18:41:59.495]   - Field: 'owner'
[18:41:59.495]   - Field: 'envir'
[18:41:59.495]   - Field: 'packages'
[18:41:59.495]   - Field: 'gc'
[18:41:59.495]   - Field: 'conditions'
[18:41:59.495]   - Field: 'expr'
[18:41:59.496]   - Field: 'uuid'
[18:41:59.496]   - Field: 'seed'
[18:41:59.496]   - Field: 'version'
[18:41:59.496]   - Field: 'result'
[18:41:59.496]   - Field: 'asynchronous'
[18:41:59.496]   - Field: 'calls'
[18:41:59.497]   - Field: 'globals'
[18:41:59.497]   - Field: 'stdout'
[18:41:59.497]   - Field: 'earlySignal'
[18:41:59.497]   - Field: 'lazy'
[18:41:59.497]   - Field: 'state'
[18:41:59.497] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.498] - Launch lazy future ...
[18:41:59.498] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.498] Packages needed by future strategies (n = 0): <none>
[18:41:59.499] {
[18:41:59.499]     {
[18:41:59.499]         {
[18:41:59.499]             ...future.startTime <- base::Sys.time()
[18:41:59.499]             {
[18:41:59.499]                 {
[18:41:59.499]                   {
[18:41:59.499]                     {
[18:41:59.499]                       base::local({
[18:41:59.499]                         has_future <- base::requireNamespace("future", 
[18:41:59.499]                           quietly = TRUE)
[18:41:59.499]                         if (has_future) {
[18:41:59.499]                           ns <- base::getNamespace("future")
[18:41:59.499]                           version <- ns[[".package"]][["version"]]
[18:41:59.499]                           if (is.null(version)) 
[18:41:59.499]                             version <- utils::packageVersion("future")
[18:41:59.499]                         }
[18:41:59.499]                         else {
[18:41:59.499]                           version <- NULL
[18:41:59.499]                         }
[18:41:59.499]                         if (!has_future || version < "1.8.0") {
[18:41:59.499]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.499]                             "", base::R.version$version.string), 
[18:41:59.499]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.499]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.499]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.499]                               "release", "version")], collapse = " "), 
[18:41:59.499]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.499]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.499]                             info)
[18:41:59.499]                           info <- base::paste(info, collapse = "; ")
[18:41:59.499]                           if (!has_future) {
[18:41:59.499]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.499]                               info)
[18:41:59.499]                           }
[18:41:59.499]                           else {
[18:41:59.499]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.499]                               info, version)
[18:41:59.499]                           }
[18:41:59.499]                           base::stop(msg)
[18:41:59.499]                         }
[18:41:59.499]                       })
[18:41:59.499]                     }
[18:41:59.499]                     base::local({
[18:41:59.499]                       for (pkg in "future.apply") {
[18:41:59.499]                         base::loadNamespace(pkg)
[18:41:59.499]                         base::library(pkg, character.only = TRUE)
[18:41:59.499]                       }
[18:41:59.499]                     })
[18:41:59.499]                   }
[18:41:59.499]                   ...future.strategy.old <- future::plan("list")
[18:41:59.499]                   options(future.plan = NULL)
[18:41:59.499]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.499]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.499]                 }
[18:41:59.499]                 ...future.workdir <- getwd()
[18:41:59.499]             }
[18:41:59.499]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.499]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.499]         }
[18:41:59.499]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.499]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.499]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.499]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.499]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.499]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.499]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.499]             base::names(...future.oldOptions))
[18:41:59.499]     }
[18:41:59.499]     if (FALSE) {
[18:41:59.499]     }
[18:41:59.499]     else {
[18:41:59.499]         if (TRUE) {
[18:41:59.499]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.499]                 open = "w")
[18:41:59.499]         }
[18:41:59.499]         else {
[18:41:59.499]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.499]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.499]         }
[18:41:59.499]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.499]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.499]             base::sink(type = "output", split = FALSE)
[18:41:59.499]             base::close(...future.stdout)
[18:41:59.499]         }, add = TRUE)
[18:41:59.499]     }
[18:41:59.499]     ...future.frame <- base::sys.nframe()
[18:41:59.499]     ...future.conditions <- base::list()
[18:41:59.499]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.499]     if (FALSE) {
[18:41:59.499]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.499]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.499]     }
[18:41:59.499]     ...future.result <- base::tryCatch({
[18:41:59.499]         base::withCallingHandlers({
[18:41:59.499]             ...future.value <- base::withVisible(base::local({
[18:41:59.499]                 do.call(function(...) {
[18:41:59.499]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.499]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.499]                     ...future.globals.maxSize)) {
[18:41:59.499]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.499]                     on.exit(options(oopts), add = TRUE)
[18:41:59.499]                   }
[18:41:59.499]                   {
[18:41:59.499]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.499]                       FUN = function(jj) {
[18:41:59.499]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.499]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.499]                       })
[18:41:59.499]                   }
[18:41:59.499]                 }, args = future.call.arguments)
[18:41:59.499]             }))
[18:41:59.499]             future::FutureResult(value = ...future.value$value, 
[18:41:59.499]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.499]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.499]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.499]                     ...future.globalenv.names))
[18:41:59.499]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.499]         }, condition = base::local({
[18:41:59.499]             c <- base::c
[18:41:59.499]             inherits <- base::inherits
[18:41:59.499]             invokeRestart <- base::invokeRestart
[18:41:59.499]             length <- base::length
[18:41:59.499]             list <- base::list
[18:41:59.499]             seq.int <- base::seq.int
[18:41:59.499]             signalCondition <- base::signalCondition
[18:41:59.499]             sys.calls <- base::sys.calls
[18:41:59.499]             `[[` <- base::`[[`
[18:41:59.499]             `+` <- base::`+`
[18:41:59.499]             `<<-` <- base::`<<-`
[18:41:59.499]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.499]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.499]                   3L)]
[18:41:59.499]             }
[18:41:59.499]             function(cond) {
[18:41:59.499]                 is_error <- inherits(cond, "error")
[18:41:59.499]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.499]                   NULL)
[18:41:59.499]                 if (is_error) {
[18:41:59.499]                   sessionInformation <- function() {
[18:41:59.499]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.499]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.499]                       search = base::search(), system = base::Sys.info())
[18:41:59.499]                   }
[18:41:59.499]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.499]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.499]                     cond$call), session = sessionInformation(), 
[18:41:59.499]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.499]                   signalCondition(cond)
[18:41:59.499]                 }
[18:41:59.499]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.499]                 "immediateCondition"))) {
[18:41:59.499]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.499]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.499]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.499]                   if (TRUE && !signal) {
[18:41:59.499]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.499]                     {
[18:41:59.499]                       inherits <- base::inherits
[18:41:59.499]                       invokeRestart <- base::invokeRestart
[18:41:59.499]                       is.null <- base::is.null
[18:41:59.499]                       muffled <- FALSE
[18:41:59.499]                       if (inherits(cond, "message")) {
[18:41:59.499]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.499]                         if (muffled) 
[18:41:59.499]                           invokeRestart("muffleMessage")
[18:41:59.499]                       }
[18:41:59.499]                       else if (inherits(cond, "warning")) {
[18:41:59.499]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.499]                         if (muffled) 
[18:41:59.499]                           invokeRestart("muffleWarning")
[18:41:59.499]                       }
[18:41:59.499]                       else if (inherits(cond, "condition")) {
[18:41:59.499]                         if (!is.null(pattern)) {
[18:41:59.499]                           computeRestarts <- base::computeRestarts
[18:41:59.499]                           grepl <- base::grepl
[18:41:59.499]                           restarts <- computeRestarts(cond)
[18:41:59.499]                           for (restart in restarts) {
[18:41:59.499]                             name <- restart$name
[18:41:59.499]                             if (is.null(name)) 
[18:41:59.499]                               next
[18:41:59.499]                             if (!grepl(pattern, name)) 
[18:41:59.499]                               next
[18:41:59.499]                             invokeRestart(restart)
[18:41:59.499]                             muffled <- TRUE
[18:41:59.499]                             break
[18:41:59.499]                           }
[18:41:59.499]                         }
[18:41:59.499]                       }
[18:41:59.499]                       invisible(muffled)
[18:41:59.499]                     }
[18:41:59.499]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.499]                   }
[18:41:59.499]                 }
[18:41:59.499]                 else {
[18:41:59.499]                   if (TRUE) {
[18:41:59.499]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.499]                     {
[18:41:59.499]                       inherits <- base::inherits
[18:41:59.499]                       invokeRestart <- base::invokeRestart
[18:41:59.499]                       is.null <- base::is.null
[18:41:59.499]                       muffled <- FALSE
[18:41:59.499]                       if (inherits(cond, "message")) {
[18:41:59.499]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.499]                         if (muffled) 
[18:41:59.499]                           invokeRestart("muffleMessage")
[18:41:59.499]                       }
[18:41:59.499]                       else if (inherits(cond, "warning")) {
[18:41:59.499]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.499]                         if (muffled) 
[18:41:59.499]                           invokeRestart("muffleWarning")
[18:41:59.499]                       }
[18:41:59.499]                       else if (inherits(cond, "condition")) {
[18:41:59.499]                         if (!is.null(pattern)) {
[18:41:59.499]                           computeRestarts <- base::computeRestarts
[18:41:59.499]                           grepl <- base::grepl
[18:41:59.499]                           restarts <- computeRestarts(cond)
[18:41:59.499]                           for (restart in restarts) {
[18:41:59.499]                             name <- restart$name
[18:41:59.499]                             if (is.null(name)) 
[18:41:59.499]                               next
[18:41:59.499]                             if (!grepl(pattern, name)) 
[18:41:59.499]                               next
[18:41:59.499]                             invokeRestart(restart)
[18:41:59.499]                             muffled <- TRUE
[18:41:59.499]                             break
[18:41:59.499]                           }
[18:41:59.499]                         }
[18:41:59.499]                       }
[18:41:59.499]                       invisible(muffled)
[18:41:59.499]                     }
[18:41:59.499]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.499]                   }
[18:41:59.499]                 }
[18:41:59.499]             }
[18:41:59.499]         }))
[18:41:59.499]     }, error = function(ex) {
[18:41:59.499]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.499]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.499]                 ...future.rng), started = ...future.startTime, 
[18:41:59.499]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.499]             version = "1.8"), class = "FutureResult")
[18:41:59.499]     }, finally = {
[18:41:59.499]         if (!identical(...future.workdir, getwd())) 
[18:41:59.499]             setwd(...future.workdir)
[18:41:59.499]         {
[18:41:59.499]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.499]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.499]             }
[18:41:59.499]             base::options(...future.oldOptions)
[18:41:59.499]             if (.Platform$OS.type == "windows") {
[18:41:59.499]                 old_names <- names(...future.oldEnvVars)
[18:41:59.499]                 envs <- base::Sys.getenv()
[18:41:59.499]                 names <- names(envs)
[18:41:59.499]                 common <- intersect(names, old_names)
[18:41:59.499]                 added <- setdiff(names, old_names)
[18:41:59.499]                 removed <- setdiff(old_names, names)
[18:41:59.499]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.499]                   envs[common]]
[18:41:59.499]                 NAMES <- toupper(changed)
[18:41:59.499]                 args <- list()
[18:41:59.499]                 for (kk in seq_along(NAMES)) {
[18:41:59.499]                   name <- changed[[kk]]
[18:41:59.499]                   NAME <- NAMES[[kk]]
[18:41:59.499]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.499]                     next
[18:41:59.499]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.499]                 }
[18:41:59.499]                 NAMES <- toupper(added)
[18:41:59.499]                 for (kk in seq_along(NAMES)) {
[18:41:59.499]                   name <- added[[kk]]
[18:41:59.499]                   NAME <- NAMES[[kk]]
[18:41:59.499]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.499]                     next
[18:41:59.499]                   args[[name]] <- ""
[18:41:59.499]                 }
[18:41:59.499]                 NAMES <- toupper(removed)
[18:41:59.499]                 for (kk in seq_along(NAMES)) {
[18:41:59.499]                   name <- removed[[kk]]
[18:41:59.499]                   NAME <- NAMES[[kk]]
[18:41:59.499]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.499]                     next
[18:41:59.499]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.499]                 }
[18:41:59.499]                 if (length(args) > 0) 
[18:41:59.499]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.499]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.499]             }
[18:41:59.499]             else {
[18:41:59.499]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.499]             }
[18:41:59.499]             {
[18:41:59.499]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.499]                   0L) {
[18:41:59.499]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.499]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.499]                   base::options(opts)
[18:41:59.499]                 }
[18:41:59.499]                 {
[18:41:59.499]                   {
[18:41:59.499]                     NULL
[18:41:59.499]                     RNGkind("Mersenne-Twister")
[18:41:59.499]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.499]                       inherits = FALSE)
[18:41:59.499]                   }
[18:41:59.499]                   options(future.plan = NULL)
[18:41:59.499]                   if (is.na(NA_character_)) 
[18:41:59.499]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.499]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.499]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.499]                     .init = FALSE)
[18:41:59.499]                 }
[18:41:59.499]             }
[18:41:59.499]         }
[18:41:59.499]     })
[18:41:59.499]     if (TRUE) {
[18:41:59.499]         base::sink(type = "output", split = FALSE)
[18:41:59.499]         if (TRUE) {
[18:41:59.499]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.499]         }
[18:41:59.499]         else {
[18:41:59.499]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.499]         }
[18:41:59.499]         base::close(...future.stdout)
[18:41:59.499]         ...future.stdout <- NULL
[18:41:59.499]     }
[18:41:59.499]     ...future.result$conditions <- ...future.conditions
[18:41:59.499]     ...future.result$finished <- base::Sys.time()
[18:41:59.499]     ...future.result
[18:41:59.499] }
[18:41:59.503] assign_globals() ...
[18:41:59.503] List of 11
[18:41:59.503]  $ ...future.FUN            :function (x, ...)  
[18:41:59.503]  $ x_FUN                    :function (x)  
[18:41:59.503]  $ times                    : int 4
[18:41:59.503]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.503]  $ stop_if_not              :function (...)  
[18:41:59.503]  $ dim                      : int [1:2] 2 2
[18:41:59.503]  $ valid_types              : chr [1:2] "logical" "integer"
[18:41:59.503]  $ future.call.arguments    : list()
[18:41:59.503]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.503]  $ ...future.elements_ii    :List of 10
[18:41:59.503]   ..$ : int 1
[18:41:59.503]   ..$ : int 2
[18:41:59.503]   ..$ : int 3
[18:41:59.503]   ..$ : int 4
[18:41:59.503]   ..$ : int 5
[18:41:59.503]   ..$ : int 6
[18:41:59.503]   ..$ : int 7
[18:41:59.503]   ..$ : int 8
[18:41:59.503]   ..$ : int 9
[18:41:59.503]   ..$ : int 10
[18:41:59.503]  $ ...future.seeds_ii       : NULL
[18:41:59.503]  $ ...future.globals.maxSize: NULL
[18:41:59.503]  - attr(*, "where")=List of 11
[18:41:59.503]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.503]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.503]  - attr(*, "resolved")= logi FALSE
[18:41:59.503]  - attr(*, "total_size")= num 24886
[18:41:59.503]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.503]  - attr(*, "already-done")= logi TRUE
[18:41:59.516] - copied '...future.FUN' to environment
[18:41:59.516] - reassign environment for 'x_FUN'
[18:41:59.516] - copied 'x_FUN' to environment
[18:41:59.516] - copied 'times' to environment
[18:41:59.516] - copied 'stopf' to environment
[18:41:59.517] - copied 'stop_if_not' to environment
[18:41:59.517] - copied 'dim' to environment
[18:41:59.517] - copied 'valid_types' to environment
[18:41:59.517] - copied 'future.call.arguments' to environment
[18:41:59.517] - copied '...future.elements_ii' to environment
[18:41:59.517] - copied '...future.seeds_ii' to environment
[18:41:59.518] - copied '...future.globals.maxSize' to environment
[18:41:59.518] assign_globals() ... done
[18:41:59.518] plan(): Setting new future strategy stack:
[18:41:59.518] List of future strategies:
[18:41:59.518] 1. sequential:
[18:41:59.518]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.518]    - tweaked: FALSE
[18:41:59.518]    - call: NULL
[18:41:59.519] plan(): nbrOfWorkers() = 1
[18:41:59.520] plan(): Setting new future strategy stack:
[18:41:59.521] List of future strategies:
[18:41:59.521] 1. sequential:
[18:41:59.521]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.521]    - tweaked: FALSE
[18:41:59.521]    - call: plan(strategy)
[18:41:59.521] plan(): nbrOfWorkers() = 1
[18:41:59.521] SequentialFuture started (and completed)
[18:41:59.522] - Launch lazy future ... done
[18:41:59.522] run() for 'SequentialFuture' ... done
[18:41:59.522] Created future:
[18:41:59.522] SequentialFuture:
[18:41:59.522] Label: 'future_vapply-1'
[18:41:59.522] Expression:
[18:41:59.522] {
[18:41:59.522]     do.call(function(...) {
[18:41:59.522]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.522]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.522]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.522]             on.exit(options(oopts), add = TRUE)
[18:41:59.522]         }
[18:41:59.522]         {
[18:41:59.522]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.522]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.522]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.522]             })
[18:41:59.522]         }
[18:41:59.522]     }, args = future.call.arguments)
[18:41:59.522] }
[18:41:59.522] Lazy evaluation: FALSE
[18:41:59.522] Asynchronous evaluation: FALSE
[18:41:59.522] Local evaluation: TRUE
[18:41:59.522] Environment: R_GlobalEnv
[18:41:59.522] Capture standard output: TRUE
[18:41:59.522] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.522] Globals: 11 objects totaling 13.88 KiB (function '...future.FUN' of 5.05 KiB, function 'x_FUN' of 567 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.522] Packages: 1 packages ('future.apply')
[18:41:59.522] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.522] Resolved: TRUE
[18:41:59.522] Value: 562 bytes of class 'list'
[18:41:59.522] Early signaling: FALSE
[18:41:59.522] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.522] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.523] Chunk #1 of 1 ... DONE
[18:41:59.524] Launching 1 futures (chunks) ... DONE
[18:41:59.524] Resolving 1 futures (chunks) ...
[18:41:59.524] resolve() on list ...
[18:41:59.524]  recursive: 0
[18:41:59.524]  length: 1
[18:41:59.524] 
[18:41:59.524] resolved() for 'SequentialFuture' ...
[18:41:59.525] - state: 'finished'
[18:41:59.525] - run: TRUE
[18:41:59.525] - result: 'FutureResult'
[18:41:59.525] resolved() for 'SequentialFuture' ... done
[18:41:59.525] Future #1
[18:41:59.526] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.526] - nx: 1
[18:41:59.526] - relay: TRUE
[18:41:59.526] - stdout: TRUE
[18:41:59.526] - signal: TRUE
[18:41:59.526] - resignal: FALSE
[18:41:59.526] - force: TRUE
[18:41:59.527] - relayed: [n=1] FALSE
[18:41:59.527] - queued futures: [n=1] FALSE
[18:41:59.527]  - until=1
[18:41:59.527]  - relaying element #1
[18:41:59.528] - relayed: [n=1] TRUE
[18:41:59.528] - queued futures: [n=1] TRUE
[18:41:59.528] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.528]  length: 0 (resolved future 1)
[18:41:59.528] Relaying remaining futures
[18:41:59.528] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.529] - nx: 1
[18:41:59.529] - relay: TRUE
[18:41:59.529] - stdout: TRUE
[18:41:59.529] - signal: TRUE
[18:41:59.529] - resignal: FALSE
[18:41:59.529] - force: TRUE
[18:41:59.529] - relayed: [n=1] TRUE
[18:41:59.530] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.530] - relayed: [n=1] TRUE
[18:41:59.530] - queued futures: [n=1] TRUE
[18:41:59.530] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.530] resolve() on list ... DONE
[18:41:59.530]  - Number of value chunks collected: 1
[18:41:59.531] Resolving 1 futures (chunks) ... DONE
[18:41:59.531] Reducing values from 1 chunks ...
[18:41:59.531]  - Number of values collected after concatenation: 10
[18:41:59.531]  - Number of values expected: 10
[18:41:59.531] Reducing values from 1 chunks ... DONE
[18:41:59.532] future_lapply() ... DONE
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
[18:41:59.533] future_lapply() ...
[18:41:59.536] Number of chunks: 1
[18:41:59.536] getGlobalsAndPackagesXApply() ...
[18:41:59.536]  - future.globals: TRUE
[18:41:59.536] getGlobalsAndPackages() ...
[18:41:59.536] Searching for globals...
[18:41:59.541] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'matrix'
[18:41:59.541] Searching for globals ... DONE
[18:41:59.541] Resolving globals: FALSE
[18:41:59.542] The total size of the 7 globals is 13.63 KiB (13957 bytes)
[18:41:59.543] The total size of the 7 globals exported for future expression ('FUN()') is 13.63 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (5.09 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.543] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.543] - packages: [1] 'future.apply'
[18:41:59.543] getGlobalsAndPackages() ... DONE
[18:41:59.543]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.544]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.544] Finding globals ... DONE
[18:41:59.544]  - use_args: TRUE
[18:41:59.544]  - Getting '...' globals ...
[18:41:59.544] resolve() on list ...
[18:41:59.545]  recursive: 0
[18:41:59.545]  length: 1
[18:41:59.545]  elements: '...'
[18:41:59.545]  length: 0 (resolved future 1)
[18:41:59.545] resolve() on list ... DONE
[18:41:59.545]    - '...' content: [n=0] 
[18:41:59.546] List of 1
[18:41:59.546]  $ ...: list()
[18:41:59.546]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.546]  - attr(*, "where")=List of 1
[18:41:59.546]   ..$ ...:<environment: 0x000002ea01d0f028> 
[18:41:59.546]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.546]  - attr(*, "resolved")= logi TRUE
[18:41:59.546]  - attr(*, "total_size")= num NA
[18:41:59.549]  - Getting '...' globals ... DONE
[18:41:59.549] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.549] List of 8
[18:41:59.549]  $ ...future.FUN:function (x, ...)  
[18:41:59.549]  $ x_FUN        :function (x)  
[18:41:59.549]  $ times        : int 4
[18:41:59.549]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.549]  $ stop_if_not  :function (...)  
[18:41:59.549]  $ dim          : int [1:2] 2 2
[18:41:59.549]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.549]  $ ...          : list()
[18:41:59.549]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.549]  - attr(*, "where")=List of 8
[18:41:59.549]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.549]   ..$ ...          :<environment: 0x000002ea01d0f028> 
[18:41:59.549]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.549]  - attr(*, "resolved")= logi FALSE
[18:41:59.549]  - attr(*, "total_size")= int 24958
[18:41:59.557] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.557] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.557] Number of futures (= number of chunks): 1
[18:41:59.557] Launching 1 futures (chunks) ...
[18:41:59.557] Chunk #1 of 1 ...
[18:41:59.558]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.558] getGlobalsAndPackages() ...
[18:41:59.558] Searching for globals...
[18:41:59.558] 
[18:41:59.558] Searching for globals ... DONE
[18:41:59.559] - globals: [0] <none>
[18:41:59.559] getGlobalsAndPackages() ... DONE
[18:41:59.559]    + additional globals found: [n=0] 
[18:41:59.559]    + additional namespaces needed: [n=0] 
[18:41:59.559]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.559]  - seeds: <none>
[18:41:59.559]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.560] getGlobalsAndPackages() ...
[18:41:59.560] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.560] Resolving globals: FALSE
[18:41:59.560] Tweak future expression to call with '...' arguments ...
[18:41:59.560] {
[18:41:59.560]     do.call(function(...) {
[18:41:59.560]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.560]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.560]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.560]             on.exit(options(oopts), add = TRUE)
[18:41:59.560]         }
[18:41:59.560]         {
[18:41:59.560]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.560]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.560]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.560]             })
[18:41:59.560]         }
[18:41:59.560]     }, args = future.call.arguments)
[18:41:59.560] }
[18:41:59.561] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.561] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.562] - packages: [1] 'future.apply'
[18:41:59.562] getGlobalsAndPackages() ... DONE
[18:41:59.562] run() for 'Future' ...
[18:41:59.562] - state: 'created'
[18:41:59.563] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.563] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.563] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.563]   - Field: 'label'
[18:41:59.564]   - Field: 'local'
[18:41:59.564]   - Field: 'owner'
[18:41:59.564]   - Field: 'envir'
[18:41:59.564]   - Field: 'packages'
[18:41:59.564]   - Field: 'gc'
[18:41:59.564]   - Field: 'conditions'
[18:41:59.565]   - Field: 'expr'
[18:41:59.565]   - Field: 'uuid'
[18:41:59.565]   - Field: 'seed'
[18:41:59.565]   - Field: 'version'
[18:41:59.565]   - Field: 'result'
[18:41:59.565]   - Field: 'asynchronous'
[18:41:59.566]   - Field: 'calls'
[18:41:59.566]   - Field: 'globals'
[18:41:59.566]   - Field: 'stdout'
[18:41:59.566]   - Field: 'earlySignal'
[18:41:59.566]   - Field: 'lazy'
[18:41:59.566]   - Field: 'state'
[18:41:59.567] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.567] - Launch lazy future ...
[18:41:59.567] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.567] Packages needed by future strategies (n = 0): <none>
[18:41:59.568] {
[18:41:59.568]     {
[18:41:59.568]         {
[18:41:59.568]             ...future.startTime <- base::Sys.time()
[18:41:59.568]             {
[18:41:59.568]                 {
[18:41:59.568]                   {
[18:41:59.568]                     {
[18:41:59.568]                       base::local({
[18:41:59.568]                         has_future <- base::requireNamespace("future", 
[18:41:59.568]                           quietly = TRUE)
[18:41:59.568]                         if (has_future) {
[18:41:59.568]                           ns <- base::getNamespace("future")
[18:41:59.568]                           version <- ns[[".package"]][["version"]]
[18:41:59.568]                           if (is.null(version)) 
[18:41:59.568]                             version <- utils::packageVersion("future")
[18:41:59.568]                         }
[18:41:59.568]                         else {
[18:41:59.568]                           version <- NULL
[18:41:59.568]                         }
[18:41:59.568]                         if (!has_future || version < "1.8.0") {
[18:41:59.568]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.568]                             "", base::R.version$version.string), 
[18:41:59.568]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.568]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.568]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.568]                               "release", "version")], collapse = " "), 
[18:41:59.568]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.568]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.568]                             info)
[18:41:59.568]                           info <- base::paste(info, collapse = "; ")
[18:41:59.568]                           if (!has_future) {
[18:41:59.568]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.568]                               info)
[18:41:59.568]                           }
[18:41:59.568]                           else {
[18:41:59.568]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.568]                               info, version)
[18:41:59.568]                           }
[18:41:59.568]                           base::stop(msg)
[18:41:59.568]                         }
[18:41:59.568]                       })
[18:41:59.568]                     }
[18:41:59.568]                     base::local({
[18:41:59.568]                       for (pkg in "future.apply") {
[18:41:59.568]                         base::loadNamespace(pkg)
[18:41:59.568]                         base::library(pkg, character.only = TRUE)
[18:41:59.568]                       }
[18:41:59.568]                     })
[18:41:59.568]                   }
[18:41:59.568]                   ...future.strategy.old <- future::plan("list")
[18:41:59.568]                   options(future.plan = NULL)
[18:41:59.568]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.568]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.568]                 }
[18:41:59.568]                 ...future.workdir <- getwd()
[18:41:59.568]             }
[18:41:59.568]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.568]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.568]         }
[18:41:59.568]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.568]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.568]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.568]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.568]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.568]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.568]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.568]             base::names(...future.oldOptions))
[18:41:59.568]     }
[18:41:59.568]     if (FALSE) {
[18:41:59.568]     }
[18:41:59.568]     else {
[18:41:59.568]         if (TRUE) {
[18:41:59.568]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.568]                 open = "w")
[18:41:59.568]         }
[18:41:59.568]         else {
[18:41:59.568]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.568]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.568]         }
[18:41:59.568]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.568]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.568]             base::sink(type = "output", split = FALSE)
[18:41:59.568]             base::close(...future.stdout)
[18:41:59.568]         }, add = TRUE)
[18:41:59.568]     }
[18:41:59.568]     ...future.frame <- base::sys.nframe()
[18:41:59.568]     ...future.conditions <- base::list()
[18:41:59.568]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.568]     if (FALSE) {
[18:41:59.568]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.568]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.568]     }
[18:41:59.568]     ...future.result <- base::tryCatch({
[18:41:59.568]         base::withCallingHandlers({
[18:41:59.568]             ...future.value <- base::withVisible(base::local({
[18:41:59.568]                 do.call(function(...) {
[18:41:59.568]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.568]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.568]                     ...future.globals.maxSize)) {
[18:41:59.568]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.568]                     on.exit(options(oopts), add = TRUE)
[18:41:59.568]                   }
[18:41:59.568]                   {
[18:41:59.568]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.568]                       FUN = function(jj) {
[18:41:59.568]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.568]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.568]                       })
[18:41:59.568]                   }
[18:41:59.568]                 }, args = future.call.arguments)
[18:41:59.568]             }))
[18:41:59.568]             future::FutureResult(value = ...future.value$value, 
[18:41:59.568]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.568]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.568]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.568]                     ...future.globalenv.names))
[18:41:59.568]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.568]         }, condition = base::local({
[18:41:59.568]             c <- base::c
[18:41:59.568]             inherits <- base::inherits
[18:41:59.568]             invokeRestart <- base::invokeRestart
[18:41:59.568]             length <- base::length
[18:41:59.568]             list <- base::list
[18:41:59.568]             seq.int <- base::seq.int
[18:41:59.568]             signalCondition <- base::signalCondition
[18:41:59.568]             sys.calls <- base::sys.calls
[18:41:59.568]             `[[` <- base::`[[`
[18:41:59.568]             `+` <- base::`+`
[18:41:59.568]             `<<-` <- base::`<<-`
[18:41:59.568]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.568]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.568]                   3L)]
[18:41:59.568]             }
[18:41:59.568]             function(cond) {
[18:41:59.568]                 is_error <- inherits(cond, "error")
[18:41:59.568]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.568]                   NULL)
[18:41:59.568]                 if (is_error) {
[18:41:59.568]                   sessionInformation <- function() {
[18:41:59.568]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.568]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.568]                       search = base::search(), system = base::Sys.info())
[18:41:59.568]                   }
[18:41:59.568]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.568]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.568]                     cond$call), session = sessionInformation(), 
[18:41:59.568]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.568]                   signalCondition(cond)
[18:41:59.568]                 }
[18:41:59.568]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.568]                 "immediateCondition"))) {
[18:41:59.568]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.568]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.568]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.568]                   if (TRUE && !signal) {
[18:41:59.568]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.568]                     {
[18:41:59.568]                       inherits <- base::inherits
[18:41:59.568]                       invokeRestart <- base::invokeRestart
[18:41:59.568]                       is.null <- base::is.null
[18:41:59.568]                       muffled <- FALSE
[18:41:59.568]                       if (inherits(cond, "message")) {
[18:41:59.568]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.568]                         if (muffled) 
[18:41:59.568]                           invokeRestart("muffleMessage")
[18:41:59.568]                       }
[18:41:59.568]                       else if (inherits(cond, "warning")) {
[18:41:59.568]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.568]                         if (muffled) 
[18:41:59.568]                           invokeRestart("muffleWarning")
[18:41:59.568]                       }
[18:41:59.568]                       else if (inherits(cond, "condition")) {
[18:41:59.568]                         if (!is.null(pattern)) {
[18:41:59.568]                           computeRestarts <- base::computeRestarts
[18:41:59.568]                           grepl <- base::grepl
[18:41:59.568]                           restarts <- computeRestarts(cond)
[18:41:59.568]                           for (restart in restarts) {
[18:41:59.568]                             name <- restart$name
[18:41:59.568]                             if (is.null(name)) 
[18:41:59.568]                               next
[18:41:59.568]                             if (!grepl(pattern, name)) 
[18:41:59.568]                               next
[18:41:59.568]                             invokeRestart(restart)
[18:41:59.568]                             muffled <- TRUE
[18:41:59.568]                             break
[18:41:59.568]                           }
[18:41:59.568]                         }
[18:41:59.568]                       }
[18:41:59.568]                       invisible(muffled)
[18:41:59.568]                     }
[18:41:59.568]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.568]                   }
[18:41:59.568]                 }
[18:41:59.568]                 else {
[18:41:59.568]                   if (TRUE) {
[18:41:59.568]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.568]                     {
[18:41:59.568]                       inherits <- base::inherits
[18:41:59.568]                       invokeRestart <- base::invokeRestart
[18:41:59.568]                       is.null <- base::is.null
[18:41:59.568]                       muffled <- FALSE
[18:41:59.568]                       if (inherits(cond, "message")) {
[18:41:59.568]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.568]                         if (muffled) 
[18:41:59.568]                           invokeRestart("muffleMessage")
[18:41:59.568]                       }
[18:41:59.568]                       else if (inherits(cond, "warning")) {
[18:41:59.568]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.568]                         if (muffled) 
[18:41:59.568]                           invokeRestart("muffleWarning")
[18:41:59.568]                       }
[18:41:59.568]                       else if (inherits(cond, "condition")) {
[18:41:59.568]                         if (!is.null(pattern)) {
[18:41:59.568]                           computeRestarts <- base::computeRestarts
[18:41:59.568]                           grepl <- base::grepl
[18:41:59.568]                           restarts <- computeRestarts(cond)
[18:41:59.568]                           for (restart in restarts) {
[18:41:59.568]                             name <- restart$name
[18:41:59.568]                             if (is.null(name)) 
[18:41:59.568]                               next
[18:41:59.568]                             if (!grepl(pattern, name)) 
[18:41:59.568]                               next
[18:41:59.568]                             invokeRestart(restart)
[18:41:59.568]                             muffled <- TRUE
[18:41:59.568]                             break
[18:41:59.568]                           }
[18:41:59.568]                         }
[18:41:59.568]                       }
[18:41:59.568]                       invisible(muffled)
[18:41:59.568]                     }
[18:41:59.568]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.568]                   }
[18:41:59.568]                 }
[18:41:59.568]             }
[18:41:59.568]         }))
[18:41:59.568]     }, error = function(ex) {
[18:41:59.568]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.568]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.568]                 ...future.rng), started = ...future.startTime, 
[18:41:59.568]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.568]             version = "1.8"), class = "FutureResult")
[18:41:59.568]     }, finally = {
[18:41:59.568]         if (!identical(...future.workdir, getwd())) 
[18:41:59.568]             setwd(...future.workdir)
[18:41:59.568]         {
[18:41:59.568]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.568]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.568]             }
[18:41:59.568]             base::options(...future.oldOptions)
[18:41:59.568]             if (.Platform$OS.type == "windows") {
[18:41:59.568]                 old_names <- names(...future.oldEnvVars)
[18:41:59.568]                 envs <- base::Sys.getenv()
[18:41:59.568]                 names <- names(envs)
[18:41:59.568]                 common <- intersect(names, old_names)
[18:41:59.568]                 added <- setdiff(names, old_names)
[18:41:59.568]                 removed <- setdiff(old_names, names)
[18:41:59.568]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.568]                   envs[common]]
[18:41:59.568]                 NAMES <- toupper(changed)
[18:41:59.568]                 args <- list()
[18:41:59.568]                 for (kk in seq_along(NAMES)) {
[18:41:59.568]                   name <- changed[[kk]]
[18:41:59.568]                   NAME <- NAMES[[kk]]
[18:41:59.568]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.568]                     next
[18:41:59.568]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.568]                 }
[18:41:59.568]                 NAMES <- toupper(added)
[18:41:59.568]                 for (kk in seq_along(NAMES)) {
[18:41:59.568]                   name <- added[[kk]]
[18:41:59.568]                   NAME <- NAMES[[kk]]
[18:41:59.568]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.568]                     next
[18:41:59.568]                   args[[name]] <- ""
[18:41:59.568]                 }
[18:41:59.568]                 NAMES <- toupper(removed)
[18:41:59.568]                 for (kk in seq_along(NAMES)) {
[18:41:59.568]                   name <- removed[[kk]]
[18:41:59.568]                   NAME <- NAMES[[kk]]
[18:41:59.568]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.568]                     next
[18:41:59.568]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.568]                 }
[18:41:59.568]                 if (length(args) > 0) 
[18:41:59.568]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.568]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.568]             }
[18:41:59.568]             else {
[18:41:59.568]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.568]             }
[18:41:59.568]             {
[18:41:59.568]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.568]                   0L) {
[18:41:59.568]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.568]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.568]                   base::options(opts)
[18:41:59.568]                 }
[18:41:59.568]                 {
[18:41:59.568]                   {
[18:41:59.568]                     NULL
[18:41:59.568]                     RNGkind("Mersenne-Twister")
[18:41:59.568]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.568]                       inherits = FALSE)
[18:41:59.568]                   }
[18:41:59.568]                   options(future.plan = NULL)
[18:41:59.568]                   if (is.na(NA_character_)) 
[18:41:59.568]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.568]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.568]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.568]                     .init = FALSE)
[18:41:59.568]                 }
[18:41:59.568]             }
[18:41:59.568]         }
[18:41:59.568]     })
[18:41:59.568]     if (TRUE) {
[18:41:59.568]         base::sink(type = "output", split = FALSE)
[18:41:59.568]         if (TRUE) {
[18:41:59.568]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.568]         }
[18:41:59.568]         else {
[18:41:59.568]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.568]         }
[18:41:59.568]         base::close(...future.stdout)
[18:41:59.568]         ...future.stdout <- NULL
[18:41:59.568]     }
[18:41:59.568]     ...future.result$conditions <- ...future.conditions
[18:41:59.568]     ...future.result$finished <- base::Sys.time()
[18:41:59.568]     ...future.result
[18:41:59.568] }
[18:41:59.572] assign_globals() ...
[18:41:59.572] List of 11
[18:41:59.572]  $ ...future.FUN            :function (x, ...)  
[18:41:59.572]  $ x_FUN                    :function (x)  
[18:41:59.572]  $ times                    : int 4
[18:41:59.572]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.572]  $ stop_if_not              :function (...)  
[18:41:59.572]  $ dim                      : int [1:2] 2 2
[18:41:59.572]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.572]  $ future.call.arguments    : list()
[18:41:59.572]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.572]  $ ...future.elements_ii    :List of 10
[18:41:59.572]   ..$ : int 1
[18:41:59.572]   ..$ : int 2
[18:41:59.572]   ..$ : int 3
[18:41:59.572]   ..$ : int 4
[18:41:59.572]   ..$ : int 5
[18:41:59.572]   ..$ : int 6
[18:41:59.572]   ..$ : int 7
[18:41:59.572]   ..$ : int 8
[18:41:59.572]   ..$ : int 9
[18:41:59.572]   ..$ : int 10
[18:41:59.572]  $ ...future.seeds_ii       : NULL
[18:41:59.572]  $ ...future.globals.maxSize: NULL
[18:41:59.572]  - attr(*, "where")=List of 11
[18:41:59.572]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.572]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.572]  - attr(*, "resolved")= logi FALSE
[18:41:59.572]  - attr(*, "total_size")= num 24958
[18:41:59.572]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.572]  - attr(*, "already-done")= logi TRUE
[18:41:59.585] - copied '...future.FUN' to environment
[18:41:59.585] - reassign environment for 'x_FUN'
[18:41:59.585] - copied 'x_FUN' to environment
[18:41:59.585] - copied 'times' to environment
[18:41:59.586] - copied 'stopf' to environment
[18:41:59.586] - copied 'stop_if_not' to environment
[18:41:59.586] - copied 'dim' to environment
[18:41:59.586] - copied 'valid_types' to environment
[18:41:59.586] - copied 'future.call.arguments' to environment
[18:41:59.586] - copied '...future.elements_ii' to environment
[18:41:59.587] - copied '...future.seeds_ii' to environment
[18:41:59.587] - copied '...future.globals.maxSize' to environment
[18:41:59.587] assign_globals() ... done
[18:41:59.587] plan(): Setting new future strategy stack:
[18:41:59.588] List of future strategies:
[18:41:59.588] 1. sequential:
[18:41:59.588]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.588]    - tweaked: FALSE
[18:41:59.588]    - call: NULL
[18:41:59.588] plan(): nbrOfWorkers() = 1
[18:41:59.589] plan(): Setting new future strategy stack:
[18:41:59.590] List of future strategies:
[18:41:59.590] 1. sequential:
[18:41:59.590]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.590]    - tweaked: FALSE
[18:41:59.590]    - call: plan(strategy)
[18:41:59.590] plan(): nbrOfWorkers() = 1
[18:41:59.591] SequentialFuture started (and completed)
[18:41:59.591] - Launch lazy future ... done
[18:41:59.591] run() for 'SequentialFuture' ... done
[18:41:59.591] Created future:
[18:41:59.591] SequentialFuture:
[18:41:59.591] Label: 'future_vapply-1'
[18:41:59.591] Expression:
[18:41:59.591] {
[18:41:59.591]     do.call(function(...) {
[18:41:59.591]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.591]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.591]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.591]             on.exit(options(oopts), add = TRUE)
[18:41:59.591]         }
[18:41:59.591]         {
[18:41:59.591]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.591]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.591]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.591]             })
[18:41:59.591]         }
[18:41:59.591]     }, args = future.call.arguments)
[18:41:59.591] }
[18:41:59.591] Lazy evaluation: FALSE
[18:41:59.591] Asynchronous evaluation: FALSE
[18:41:59.591] Local evaluation: TRUE
[18:41:59.591] Environment: R_GlobalEnv
[18:41:59.591] Capture standard output: TRUE
[18:41:59.591] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.591] Globals: 11 objects totaling 13.92 KiB (function '...future.FUN' of 5.08 KiB, function 'x_FUN' of 567 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.591] Packages: 1 packages ('future.apply')
[18:41:59.591] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.591] Resolved: TRUE
[18:41:59.591] Value: 562 bytes of class 'list'
[18:41:59.591] Early signaling: FALSE
[18:41:59.591] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.591] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.592] Chunk #1 of 1 ... DONE
[18:41:59.593] Launching 1 futures (chunks) ... DONE
[18:41:59.593] Resolving 1 futures (chunks) ...
[18:41:59.593] resolve() on list ...
[18:41:59.593]  recursive: 0
[18:41:59.593]  length: 1
[18:41:59.593] 
[18:41:59.594] resolved() for 'SequentialFuture' ...
[18:41:59.594] - state: 'finished'
[18:41:59.594] - run: TRUE
[18:41:59.594] - result: 'FutureResult'
[18:41:59.594] resolved() for 'SequentialFuture' ... done
[18:41:59.594] Future #1
[18:41:59.595] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.595] - nx: 1
[18:41:59.595] - relay: TRUE
[18:41:59.595] - stdout: TRUE
[18:41:59.595] - signal: TRUE
[18:41:59.595] - resignal: FALSE
[18:41:59.596] - force: TRUE
[18:41:59.596] - relayed: [n=1] FALSE
[18:41:59.596] - queued futures: [n=1] FALSE
[18:41:59.596]  - until=1
[18:41:59.596]  - relaying element #1
[18:41:59.596] - relayed: [n=1] TRUE
[18:41:59.597] - queued futures: [n=1] TRUE
[18:41:59.597] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.597]  length: 0 (resolved future 1)
[18:41:59.597] Relaying remaining futures
[18:41:59.597] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.597] - nx: 1
[18:41:59.598] - relay: TRUE
[18:41:59.599] - stdout: TRUE
[18:41:59.599] - signal: TRUE
[18:41:59.599] - resignal: FALSE
[18:41:59.599] - force: TRUE
[18:41:59.599] - relayed: [n=1] TRUE
[18:41:59.599] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.600] - relayed: [n=1] TRUE
[18:41:59.600] - queued futures: [n=1] TRUE
[18:41:59.600] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.600] resolve() on list ... DONE
[18:41:59.600]  - Number of value chunks collected: 1
[18:41:59.601] Resolving 1 futures (chunks) ... DONE
[18:41:59.601] Reducing values from 1 chunks ...
[18:41:59.601]  - Number of values collected after concatenation: 10
[18:41:59.601]  - Number of values expected: 10
[18:41:59.601] Reducing values from 1 chunks ... DONE
[18:41:59.601] future_lapply() ... DONE
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 - attr(*, "dimnames")=List of 3
  ..$ : chr [1:2] "a" "b"
  ..$ : chr [1:2] "A" "B"
  ..$ : NULL
[18:41:59.604] future_lapply() ...
[18:41:59.606] Number of chunks: 1
[18:41:59.606] getGlobalsAndPackagesXApply() ...
[18:41:59.606]  - future.globals: TRUE
[18:41:59.606] getGlobalsAndPackages() ...
[18:41:59.607] Searching for globals...
[18:41:59.611] - globals found: [19] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'matrix', 'list', 'c'
[18:41:59.611] Searching for globals ... DONE
[18:41:59.612] Resolving globals: FALSE
[18:41:59.613] The total size of the 7 globals is 16.05 KiB (16436 bytes)
[18:41:59.613] The total size of the 7 globals exported for future expression ('FUN()') is 16.05 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (6.71 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.613] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.614] - packages: [1] 'future.apply'
[18:41:59.614] getGlobalsAndPackages() ... DONE
[18:41:59.614]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.614]  - needed namespaces: [n=1] 'future.apply'
[18:41:59.614] Finding globals ... DONE
[18:41:59.614]  - use_args: TRUE
[18:41:59.615]  - Getting '...' globals ...
[18:41:59.615] resolve() on list ...
[18:41:59.615]  recursive: 0
[18:41:59.615]  length: 1
[18:41:59.615]  elements: '...'
[18:41:59.616]  length: 0 (resolved future 1)
[18:41:59.616] resolve() on list ... DONE
[18:41:59.616]    - '...' content: [n=0] 
[18:41:59.616] List of 1
[18:41:59.616]  $ ...: list()
[18:41:59.616]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.616]  - attr(*, "where")=List of 1
[18:41:59.616]   ..$ ...:<environment: 0x000002ea004149d0> 
[18:41:59.616]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.616]  - attr(*, "resolved")= logi TRUE
[18:41:59.616]  - attr(*, "total_size")= num NA
[18:41:59.620]  - Getting '...' globals ... DONE
[18:41:59.620] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.620] List of 8
[18:41:59.620]  $ ...future.FUN:function (x, ...)  
[18:41:59.620]  $ x_FUN        :function (x)  
[18:41:59.620]  $ times        : int 4
[18:41:59.620]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.620]  $ stop_if_not  :function (...)  
[18:41:59.620]  $ dim          : int [1:2] 2 2
[18:41:59.620]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.620]  $ ...          : list()
[18:41:59.620]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.620]  - attr(*, "where")=List of 8
[18:41:59.620]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.620]   ..$ ...          :<environment: 0x000002ea004149d0> 
[18:41:59.620]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.620]  - attr(*, "resolved")= logi FALSE
[18:41:59.620]  - attr(*, "total_size")= int 29094
[18:41:59.627] Packages to be attached in all futures: [n=1] 'future.apply'
[18:41:59.627] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.627] Number of futures (= number of chunks): 1
[18:41:59.627] Launching 1 futures (chunks) ...
[18:41:59.628] Chunk #1 of 1 ...
[18:41:59.628]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.628] getGlobalsAndPackages() ...
[18:41:59.628] Searching for globals...
[18:41:59.628] 
[18:41:59.629] Searching for globals ... DONE
[18:41:59.629] - globals: [0] <none>
[18:41:59.629] getGlobalsAndPackages() ... DONE
[18:41:59.629]    + additional globals found: [n=0] 
[18:41:59.629]    + additional namespaces needed: [n=0] 
[18:41:59.629]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.630]  - seeds: <none>
[18:41:59.630]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.630] getGlobalsAndPackages() ...
[18:41:59.630] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.630] Resolving globals: FALSE
[18:41:59.630] Tweak future expression to call with '...' arguments ...
[18:41:59.631] {
[18:41:59.631]     do.call(function(...) {
[18:41:59.631]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.631]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.631]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.631]             on.exit(options(oopts), add = TRUE)
[18:41:59.631]         }
[18:41:59.631]         {
[18:41:59.631]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.631]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.631]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.631]             })
[18:41:59.631]         }
[18:41:59.631]     }, args = future.call.arguments)
[18:41:59.631] }
[18:41:59.631] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.632] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.632] - packages: [1] 'future.apply'
[18:41:59.632] getGlobalsAndPackages() ... DONE
[18:41:59.632] run() for 'Future' ...
[18:41:59.633] - state: 'created'
[18:41:59.633] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.633] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.633] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.634]   - Field: 'label'
[18:41:59.634]   - Field: 'local'
[18:41:59.634]   - Field: 'owner'
[18:41:59.634]   - Field: 'envir'
[18:41:59.634]   - Field: 'packages'
[18:41:59.634]   - Field: 'gc'
[18:41:59.635]   - Field: 'conditions'
[18:41:59.635]   - Field: 'expr'
[18:41:59.635]   - Field: 'uuid'
[18:41:59.635]   - Field: 'seed'
[18:41:59.635]   - Field: 'version'
[18:41:59.635]   - Field: 'result'
[18:41:59.636]   - Field: 'asynchronous'
[18:41:59.636]   - Field: 'calls'
[18:41:59.636]   - Field: 'globals'
[18:41:59.636]   - Field: 'stdout'
[18:41:59.636]   - Field: 'earlySignal'
[18:41:59.636]   - Field: 'lazy'
[18:41:59.637]   - Field: 'state'
[18:41:59.637] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.637] - Launch lazy future ...
[18:41:59.637] Packages needed by the future expression (n = 1): 'future.apply'
[18:41:59.637] Packages needed by future strategies (n = 0): <none>
[18:41:59.638] {
[18:41:59.638]     {
[18:41:59.638]         {
[18:41:59.638]             ...future.startTime <- base::Sys.time()
[18:41:59.638]             {
[18:41:59.638]                 {
[18:41:59.638]                   {
[18:41:59.638]                     {
[18:41:59.638]                       base::local({
[18:41:59.638]                         has_future <- base::requireNamespace("future", 
[18:41:59.638]                           quietly = TRUE)
[18:41:59.638]                         if (has_future) {
[18:41:59.638]                           ns <- base::getNamespace("future")
[18:41:59.638]                           version <- ns[[".package"]][["version"]]
[18:41:59.638]                           if (is.null(version)) 
[18:41:59.638]                             version <- utils::packageVersion("future")
[18:41:59.638]                         }
[18:41:59.638]                         else {
[18:41:59.638]                           version <- NULL
[18:41:59.638]                         }
[18:41:59.638]                         if (!has_future || version < "1.8.0") {
[18:41:59.638]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.638]                             "", base::R.version$version.string), 
[18:41:59.638]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.638]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.638]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.638]                               "release", "version")], collapse = " "), 
[18:41:59.638]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.638]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.638]                             info)
[18:41:59.638]                           info <- base::paste(info, collapse = "; ")
[18:41:59.638]                           if (!has_future) {
[18:41:59.638]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.638]                               info)
[18:41:59.638]                           }
[18:41:59.638]                           else {
[18:41:59.638]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.638]                               info, version)
[18:41:59.638]                           }
[18:41:59.638]                           base::stop(msg)
[18:41:59.638]                         }
[18:41:59.638]                       })
[18:41:59.638]                     }
[18:41:59.638]                     base::local({
[18:41:59.638]                       for (pkg in "future.apply") {
[18:41:59.638]                         base::loadNamespace(pkg)
[18:41:59.638]                         base::library(pkg, character.only = TRUE)
[18:41:59.638]                       }
[18:41:59.638]                     })
[18:41:59.638]                   }
[18:41:59.638]                   ...future.strategy.old <- future::plan("list")
[18:41:59.638]                   options(future.plan = NULL)
[18:41:59.638]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.638]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.638]                 }
[18:41:59.638]                 ...future.workdir <- getwd()
[18:41:59.638]             }
[18:41:59.638]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.638]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.638]         }
[18:41:59.638]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.638]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.638]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.638]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.638]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.638]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.638]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.638]             base::names(...future.oldOptions))
[18:41:59.638]     }
[18:41:59.638]     if (FALSE) {
[18:41:59.638]     }
[18:41:59.638]     else {
[18:41:59.638]         if (TRUE) {
[18:41:59.638]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.638]                 open = "w")
[18:41:59.638]         }
[18:41:59.638]         else {
[18:41:59.638]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.638]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.638]         }
[18:41:59.638]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.638]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.638]             base::sink(type = "output", split = FALSE)
[18:41:59.638]             base::close(...future.stdout)
[18:41:59.638]         }, add = TRUE)
[18:41:59.638]     }
[18:41:59.638]     ...future.frame <- base::sys.nframe()
[18:41:59.638]     ...future.conditions <- base::list()
[18:41:59.638]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.638]     if (FALSE) {
[18:41:59.638]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.638]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.638]     }
[18:41:59.638]     ...future.result <- base::tryCatch({
[18:41:59.638]         base::withCallingHandlers({
[18:41:59.638]             ...future.value <- base::withVisible(base::local({
[18:41:59.638]                 do.call(function(...) {
[18:41:59.638]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.638]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.638]                     ...future.globals.maxSize)) {
[18:41:59.638]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.638]                     on.exit(options(oopts), add = TRUE)
[18:41:59.638]                   }
[18:41:59.638]                   {
[18:41:59.638]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.638]                       FUN = function(jj) {
[18:41:59.638]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.638]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.638]                       })
[18:41:59.638]                   }
[18:41:59.638]                 }, args = future.call.arguments)
[18:41:59.638]             }))
[18:41:59.638]             future::FutureResult(value = ...future.value$value, 
[18:41:59.638]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.638]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.638]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.638]                     ...future.globalenv.names))
[18:41:59.638]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.638]         }, condition = base::local({
[18:41:59.638]             c <- base::c
[18:41:59.638]             inherits <- base::inherits
[18:41:59.638]             invokeRestart <- base::invokeRestart
[18:41:59.638]             length <- base::length
[18:41:59.638]             list <- base::list
[18:41:59.638]             seq.int <- base::seq.int
[18:41:59.638]             signalCondition <- base::signalCondition
[18:41:59.638]             sys.calls <- base::sys.calls
[18:41:59.638]             `[[` <- base::`[[`
[18:41:59.638]             `+` <- base::`+`
[18:41:59.638]             `<<-` <- base::`<<-`
[18:41:59.638]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.638]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.638]                   3L)]
[18:41:59.638]             }
[18:41:59.638]             function(cond) {
[18:41:59.638]                 is_error <- inherits(cond, "error")
[18:41:59.638]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.638]                   NULL)
[18:41:59.638]                 if (is_error) {
[18:41:59.638]                   sessionInformation <- function() {
[18:41:59.638]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.638]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.638]                       search = base::search(), system = base::Sys.info())
[18:41:59.638]                   }
[18:41:59.638]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.638]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.638]                     cond$call), session = sessionInformation(), 
[18:41:59.638]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.638]                   signalCondition(cond)
[18:41:59.638]                 }
[18:41:59.638]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.638]                 "immediateCondition"))) {
[18:41:59.638]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.638]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.638]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.638]                   if (TRUE && !signal) {
[18:41:59.638]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.638]                     {
[18:41:59.638]                       inherits <- base::inherits
[18:41:59.638]                       invokeRestart <- base::invokeRestart
[18:41:59.638]                       is.null <- base::is.null
[18:41:59.638]                       muffled <- FALSE
[18:41:59.638]                       if (inherits(cond, "message")) {
[18:41:59.638]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.638]                         if (muffled) 
[18:41:59.638]                           invokeRestart("muffleMessage")
[18:41:59.638]                       }
[18:41:59.638]                       else if (inherits(cond, "warning")) {
[18:41:59.638]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.638]                         if (muffled) 
[18:41:59.638]                           invokeRestart("muffleWarning")
[18:41:59.638]                       }
[18:41:59.638]                       else if (inherits(cond, "condition")) {
[18:41:59.638]                         if (!is.null(pattern)) {
[18:41:59.638]                           computeRestarts <- base::computeRestarts
[18:41:59.638]                           grepl <- base::grepl
[18:41:59.638]                           restarts <- computeRestarts(cond)
[18:41:59.638]                           for (restart in restarts) {
[18:41:59.638]                             name <- restart$name
[18:41:59.638]                             if (is.null(name)) 
[18:41:59.638]                               next
[18:41:59.638]                             if (!grepl(pattern, name)) 
[18:41:59.638]                               next
[18:41:59.638]                             invokeRestart(restart)
[18:41:59.638]                             muffled <- TRUE
[18:41:59.638]                             break
[18:41:59.638]                           }
[18:41:59.638]                         }
[18:41:59.638]                       }
[18:41:59.638]                       invisible(muffled)
[18:41:59.638]                     }
[18:41:59.638]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.638]                   }
[18:41:59.638]                 }
[18:41:59.638]                 else {
[18:41:59.638]                   if (TRUE) {
[18:41:59.638]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.638]                     {
[18:41:59.638]                       inherits <- base::inherits
[18:41:59.638]                       invokeRestart <- base::invokeRestart
[18:41:59.638]                       is.null <- base::is.null
[18:41:59.638]                       muffled <- FALSE
[18:41:59.638]                       if (inherits(cond, "message")) {
[18:41:59.638]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.638]                         if (muffled) 
[18:41:59.638]                           invokeRestart("muffleMessage")
[18:41:59.638]                       }
[18:41:59.638]                       else if (inherits(cond, "warning")) {
[18:41:59.638]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.638]                         if (muffled) 
[18:41:59.638]                           invokeRestart("muffleWarning")
[18:41:59.638]                       }
[18:41:59.638]                       else if (inherits(cond, "condition")) {
[18:41:59.638]                         if (!is.null(pattern)) {
[18:41:59.638]                           computeRestarts <- base::computeRestarts
[18:41:59.638]                           grepl <- base::grepl
[18:41:59.638]                           restarts <- computeRestarts(cond)
[18:41:59.638]                           for (restart in restarts) {
[18:41:59.638]                             name <- restart$name
[18:41:59.638]                             if (is.null(name)) 
[18:41:59.638]                               next
[18:41:59.638]                             if (!grepl(pattern, name)) 
[18:41:59.638]                               next
[18:41:59.638]                             invokeRestart(restart)
[18:41:59.638]                             muffled <- TRUE
[18:41:59.638]                             break
[18:41:59.638]                           }
[18:41:59.638]                         }
[18:41:59.638]                       }
[18:41:59.638]                       invisible(muffled)
[18:41:59.638]                     }
[18:41:59.638]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.638]                   }
[18:41:59.638]                 }
[18:41:59.638]             }
[18:41:59.638]         }))
[18:41:59.638]     }, error = function(ex) {
[18:41:59.638]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.638]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.638]                 ...future.rng), started = ...future.startTime, 
[18:41:59.638]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.638]             version = "1.8"), class = "FutureResult")
[18:41:59.638]     }, finally = {
[18:41:59.638]         if (!identical(...future.workdir, getwd())) 
[18:41:59.638]             setwd(...future.workdir)
[18:41:59.638]         {
[18:41:59.638]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.638]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.638]             }
[18:41:59.638]             base::options(...future.oldOptions)
[18:41:59.638]             if (.Platform$OS.type == "windows") {
[18:41:59.638]                 old_names <- names(...future.oldEnvVars)
[18:41:59.638]                 envs <- base::Sys.getenv()
[18:41:59.638]                 names <- names(envs)
[18:41:59.638]                 common <- intersect(names, old_names)
[18:41:59.638]                 added <- setdiff(names, old_names)
[18:41:59.638]                 removed <- setdiff(old_names, names)
[18:41:59.638]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.638]                   envs[common]]
[18:41:59.638]                 NAMES <- toupper(changed)
[18:41:59.638]                 args <- list()
[18:41:59.638]                 for (kk in seq_along(NAMES)) {
[18:41:59.638]                   name <- changed[[kk]]
[18:41:59.638]                   NAME <- NAMES[[kk]]
[18:41:59.638]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.638]                     next
[18:41:59.638]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.638]                 }
[18:41:59.638]                 NAMES <- toupper(added)
[18:41:59.638]                 for (kk in seq_along(NAMES)) {
[18:41:59.638]                   name <- added[[kk]]
[18:41:59.638]                   NAME <- NAMES[[kk]]
[18:41:59.638]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.638]                     next
[18:41:59.638]                   args[[name]] <- ""
[18:41:59.638]                 }
[18:41:59.638]                 NAMES <- toupper(removed)
[18:41:59.638]                 for (kk in seq_along(NAMES)) {
[18:41:59.638]                   name <- removed[[kk]]
[18:41:59.638]                   NAME <- NAMES[[kk]]
[18:41:59.638]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.638]                     next
[18:41:59.638]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.638]                 }
[18:41:59.638]                 if (length(args) > 0) 
[18:41:59.638]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.638]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.638]             }
[18:41:59.638]             else {
[18:41:59.638]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.638]             }
[18:41:59.638]             {
[18:41:59.638]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.638]                   0L) {
[18:41:59.638]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.638]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.638]                   base::options(opts)
[18:41:59.638]                 }
[18:41:59.638]                 {
[18:41:59.638]                   {
[18:41:59.638]                     NULL
[18:41:59.638]                     RNGkind("Mersenne-Twister")
[18:41:59.638]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.638]                       inherits = FALSE)
[18:41:59.638]                   }
[18:41:59.638]                   options(future.plan = NULL)
[18:41:59.638]                   if (is.na(NA_character_)) 
[18:41:59.638]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.638]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.638]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.638]                     .init = FALSE)
[18:41:59.638]                 }
[18:41:59.638]             }
[18:41:59.638]         }
[18:41:59.638]     })
[18:41:59.638]     if (TRUE) {
[18:41:59.638]         base::sink(type = "output", split = FALSE)
[18:41:59.638]         if (TRUE) {
[18:41:59.638]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.638]         }
[18:41:59.638]         else {
[18:41:59.638]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.638]         }
[18:41:59.638]         base::close(...future.stdout)
[18:41:59.638]         ...future.stdout <- NULL
[18:41:59.638]     }
[18:41:59.638]     ...future.result$conditions <- ...future.conditions
[18:41:59.638]     ...future.result$finished <- base::Sys.time()
[18:41:59.638]     ...future.result
[18:41:59.638] }
[18:41:59.642] assign_globals() ...
[18:41:59.642] List of 11
[18:41:59.642]  $ ...future.FUN            :function (x, ...)  
[18:41:59.642]  $ x_FUN                    :function (x)  
[18:41:59.642]  $ times                    : int 4
[18:41:59.642]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.642]  $ stop_if_not              :function (...)  
[18:41:59.642]  $ dim                      : int [1:2] 2 2
[18:41:59.642]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.642]  $ future.call.arguments    : list()
[18:41:59.642]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.642]  $ ...future.elements_ii    :List of 10
[18:41:59.642]   ..$ : int 1
[18:41:59.642]   ..$ : int 2
[18:41:59.642]   ..$ : int 3
[18:41:59.642]   ..$ : int 4
[18:41:59.642]   ..$ : int 5
[18:41:59.642]   ..$ : int 6
[18:41:59.642]   ..$ : int 7
[18:41:59.642]   ..$ : int 8
[18:41:59.642]   ..$ : int 9
[18:41:59.642]   ..$ : int 10
[18:41:59.642]  $ ...future.seeds_ii       : NULL
[18:41:59.642]  $ ...future.globals.maxSize: NULL
[18:41:59.642]  - attr(*, "where")=List of 11
[18:41:59.642]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.642]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.642]  - attr(*, "resolved")= logi FALSE
[18:41:59.642]  - attr(*, "total_size")= num 29094
[18:41:59.642]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.642]  - attr(*, "already-done")= logi TRUE
[18:41:59.738] - copied '...future.FUN' to environment
[18:41:59.738] - reassign environment for 'x_FUN'
[18:41:59.739] - copied 'x_FUN' to environment
[18:41:59.739] - copied 'times' to environment
[18:41:59.739] - copied 'stopf' to environment
[18:41:59.739] - copied 'stop_if_not' to environment
[18:41:59.739] - copied 'dim' to environment
[18:41:59.740] - copied 'valid_types' to environment
[18:41:59.740] - copied 'future.call.arguments' to environment
[18:41:59.740] - copied '...future.elements_ii' to environment
[18:41:59.740] - copied '...future.seeds_ii' to environment
[18:41:59.740] - copied '...future.globals.maxSize' to environment
[18:41:59.740] assign_globals() ... done
[18:41:59.741] plan(): Setting new future strategy stack:
[18:41:59.741] List of future strategies:
[18:41:59.741] 1. sequential:
[18:41:59.741]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.741]    - tweaked: FALSE
[18:41:59.741]    - call: NULL
[18:41:59.742] plan(): nbrOfWorkers() = 1
[18:41:59.744] plan(): Setting new future strategy stack:
[18:41:59.744] List of future strategies:
[18:41:59.744] 1. sequential:
[18:41:59.744]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.744]    - tweaked: FALSE
[18:41:59.744]    - call: plan(strategy)
[18:41:59.744] plan(): nbrOfWorkers() = 1
[18:41:59.745] SequentialFuture started (and completed)
[18:41:59.745] - Launch lazy future ... done
[18:41:59.745] run() for 'SequentialFuture' ... done
[18:41:59.745] Created future:
[18:41:59.745] SequentialFuture:
[18:41:59.745] Label: 'future_vapply-1'
[18:41:59.745] Expression:
[18:41:59.745] {
[18:41:59.745]     do.call(function(...) {
[18:41:59.745]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.745]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.745]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.745]             on.exit(options(oopts), add = TRUE)
[18:41:59.745]         }
[18:41:59.745]         {
[18:41:59.745]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.745]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.745]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.745]             })
[18:41:59.745]         }
[18:41:59.745]     }, args = future.call.arguments)
[18:41:59.745] }
[18:41:59.745] Lazy evaluation: FALSE
[18:41:59.745] Asynchronous evaluation: FALSE
[18:41:59.745] Local evaluation: TRUE
[18:41:59.745] Environment: R_GlobalEnv
[18:41:59.745] Capture standard output: TRUE
[18:41:59.745] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.745] Globals: 11 objects totaling 16.34 KiB (function '...future.FUN' of 6.70 KiB, function 'x_FUN' of 1.36 KiB, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.745] Packages: 1 packages ('future.apply')
[18:41:59.745] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.745] Resolved: TRUE
[18:41:59.745] Value: 1.23 KiB of class 'list'
[18:41:59.745] Early signaling: FALSE
[18:41:59.745] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.745] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.747] Chunk #1 of 1 ... DONE
[18:41:59.747] Launching 1 futures (chunks) ... DONE
[18:41:59.747] Resolving 1 futures (chunks) ...
[18:41:59.747] resolve() on list ...
[18:41:59.747]  recursive: 0
[18:41:59.748]  length: 1
[18:41:59.748] 
[18:41:59.748] resolved() for 'SequentialFuture' ...
[18:41:59.748] - state: 'finished'
[18:41:59.748] - run: TRUE
[18:41:59.748] - result: 'FutureResult'
[18:41:59.749] resolved() for 'SequentialFuture' ... done
[18:41:59.749] Future #1
[18:41:59.749] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.749] - nx: 1
[18:41:59.749] - relay: TRUE
[18:41:59.750] - stdout: TRUE
[18:41:59.750] - signal: TRUE
[18:41:59.750] - resignal: FALSE
[18:41:59.750] - force: TRUE
[18:41:59.750] - relayed: [n=1] FALSE
[18:41:59.750] - queued futures: [n=1] FALSE
[18:41:59.750]  - until=1
[18:41:59.751]  - relaying element #1
[18:41:59.751] - relayed: [n=1] TRUE
[18:41:59.751] - queued futures: [n=1] TRUE
[18:41:59.751] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.751]  length: 0 (resolved future 1)
[18:41:59.752] Relaying remaining futures
[18:41:59.752] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.752] - nx: 1
[18:41:59.752] - relay: TRUE
[18:41:59.752] - stdout: TRUE
[18:41:59.752] - signal: TRUE
[18:41:59.752] - resignal: FALSE
[18:41:59.753] - force: TRUE
[18:41:59.753] - relayed: [n=1] TRUE
[18:41:59.753] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.753] - relayed: [n=1] TRUE
[18:41:59.753] - queued futures: [n=1] TRUE
[18:41:59.754] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.754] resolve() on list ... DONE
[18:41:59.754]  - Number of value chunks collected: 1
[18:41:59.754] Resolving 1 futures (chunks) ... DONE
[18:41:59.754] Reducing values from 1 chunks ...
[18:41:59.754]  - Number of values collected after concatenation: 10
[18:41:59.755]  - Number of values expected: 10
[18:41:59.755] Reducing values from 1 chunks ... DONE
[18:41:59.755] future_lapply() ... DONE
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 - attr(*, "dimnames")=List of 3
  ..$ : chr [1:2] "a" "b"
  ..$ : chr [1:2] "A" "B"
  ..$ : NULL
- From example(vapply) ...
[18:41:59.760] future_lapply() ...
[18:41:59.763] Number of chunks: 1
[18:41:59.763] getGlobalsAndPackagesXApply() ...
[18:41:59.763]  - future.globals: TRUE
[18:41:59.764] getGlobalsAndPackages() ...
[18:41:59.764] Searching for globals...
[18:41:59.769] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'UseMethod'
[18:41:59.769] Searching for globals ... DONE
[18:41:59.770] Resolving globals: FALSE
[18:41:59.771] The total size of the 7 globals is 13.03 KiB (13339 bytes)
[18:41:59.772] The total size of the 7 globals exported for future expression ('FUN()') is 13.03 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (4.75 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:41:59.772] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.772] - packages: [2] 'stats', 'future.apply'
[18:41:59.772] getGlobalsAndPackages() ... DONE
[18:41:59.773]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.773]  - needed namespaces: [n=2] 'stats', 'future.apply'
[18:41:59.773] Finding globals ... DONE
[18:41:59.773]  - use_args: TRUE
[18:41:59.773]  - Getting '...' globals ...
[18:41:59.774] resolve() on list ...
[18:41:59.774]  recursive: 0
[18:41:59.774]  length: 1
[18:41:59.774]  elements: '...'
[18:41:59.775]  length: 0 (resolved future 1)
[18:41:59.775] resolve() on list ... DONE
[18:41:59.775]    - '...' content: [n=0] 
[18:41:59.775] List of 1
[18:41:59.775]  $ ...: list()
[18:41:59.775]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.775]  - attr(*, "where")=List of 1
[18:41:59.775]   ..$ ...:<environment: 0x000002ea036a5958> 
[18:41:59.775]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.775]  - attr(*, "resolved")= logi TRUE
[18:41:59.775]  - attr(*, "total_size")= num NA
[18:41:59.779]  - Getting '...' globals ... DONE
[18:41:59.779] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.779] List of 8
[18:41:59.779]  $ ...future.FUN:function (x, ...)  
[18:41:59.779]  $ x_FUN        :function (x, ...)  
[18:41:59.779]  $ times        : int 5
[18:41:59.779]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.779]  $ stop_if_not  :function (...)  
[18:41:59.779]  $ dim          : NULL
[18:41:59.779]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.779]  $ ...          : list()
[18:41:59.779]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.779]  - attr(*, "where")=List of 8
[18:41:59.779]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.779]   ..$ ...          :<environment: 0x000002ea036a5958> 
[18:41:59.779]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.779]  - attr(*, "resolved")= logi FALSE
[18:41:59.779]  - attr(*, "total_size")= int 24127
[18:41:59.787] Packages to be attached in all futures: [n=2] 'stats', 'future.apply'
[18:41:59.788] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.788] Number of futures (= number of chunks): 1
[18:41:59.788] Launching 1 futures (chunks) ...
[18:41:59.788] Chunk #1 of 1 ...
[18:41:59.789]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.789] getGlobalsAndPackages() ...
[18:41:59.789] Searching for globals...
[18:41:59.789] 
[18:41:59.789] Searching for globals ... DONE
[18:41:59.790] - globals: [0] <none>
[18:41:59.790] getGlobalsAndPackages() ... DONE
[18:41:59.790]    + additional globals found: [n=0] 
[18:41:59.790]    + additional namespaces needed: [n=0] 
[18:41:59.790]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.791]  - seeds: <none>
[18:41:59.791]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.791] getGlobalsAndPackages() ...
[18:41:59.791] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.791] Resolving globals: FALSE
[18:41:59.792] Tweak future expression to call with '...' arguments ...
[18:41:59.792] {
[18:41:59.792]     do.call(function(...) {
[18:41:59.792]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.792]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.792]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.792]             on.exit(options(oopts), add = TRUE)
[18:41:59.792]         }
[18:41:59.792]         {
[18:41:59.792]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.792]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.792]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.792]             })
[18:41:59.792]         }
[18:41:59.792]     }, args = future.call.arguments)
[18:41:59.792] }
[18:41:59.792] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.793] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.793] - packages: [2] 'stats', 'future.apply'
[18:41:59.794] getGlobalsAndPackages() ... DONE
[18:41:59.794] run() for 'Future' ...
[18:41:59.794] - state: 'created'
[18:41:59.795] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.795] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.795] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.795]   - Field: 'label'
[18:41:59.796]   - Field: 'local'
[18:41:59.796]   - Field: 'owner'
[18:41:59.796]   - Field: 'envir'
[18:41:59.796]   - Field: 'packages'
[18:41:59.796]   - Field: 'gc'
[18:41:59.797]   - Field: 'conditions'
[18:41:59.797]   - Field: 'expr'
[18:41:59.797]   - Field: 'uuid'
[18:41:59.797]   - Field: 'seed'
[18:41:59.797]   - Field: 'version'
[18:41:59.798]   - Field: 'result'
[18:41:59.798]   - Field: 'asynchronous'
[18:41:59.798]   - Field: 'calls'
[18:41:59.798]   - Field: 'globals'
[18:41:59.798]   - Field: 'stdout'
[18:41:59.799]   - Field: 'earlySignal'
[18:41:59.799]   - Field: 'lazy'
[18:41:59.799]   - Field: 'state'
[18:41:59.799] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.799] - Launch lazy future ...
[18:41:59.800] Packages needed by the future expression (n = 2): 'stats', 'future.apply'
[18:41:59.800] Packages needed by future strategies (n = 0): <none>
[18:41:59.801] {
[18:41:59.801]     {
[18:41:59.801]         {
[18:41:59.801]             ...future.startTime <- base::Sys.time()
[18:41:59.801]             {
[18:41:59.801]                 {
[18:41:59.801]                   {
[18:41:59.801]                     {
[18:41:59.801]                       base::local({
[18:41:59.801]                         has_future <- base::requireNamespace("future", 
[18:41:59.801]                           quietly = TRUE)
[18:41:59.801]                         if (has_future) {
[18:41:59.801]                           ns <- base::getNamespace("future")
[18:41:59.801]                           version <- ns[[".package"]][["version"]]
[18:41:59.801]                           if (is.null(version)) 
[18:41:59.801]                             version <- utils::packageVersion("future")
[18:41:59.801]                         }
[18:41:59.801]                         else {
[18:41:59.801]                           version <- NULL
[18:41:59.801]                         }
[18:41:59.801]                         if (!has_future || version < "1.8.0") {
[18:41:59.801]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.801]                             "", base::R.version$version.string), 
[18:41:59.801]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.801]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.801]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.801]                               "release", "version")], collapse = " "), 
[18:41:59.801]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.801]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.801]                             info)
[18:41:59.801]                           info <- base::paste(info, collapse = "; ")
[18:41:59.801]                           if (!has_future) {
[18:41:59.801]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.801]                               info)
[18:41:59.801]                           }
[18:41:59.801]                           else {
[18:41:59.801]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.801]                               info, version)
[18:41:59.801]                           }
[18:41:59.801]                           base::stop(msg)
[18:41:59.801]                         }
[18:41:59.801]                       })
[18:41:59.801]                     }
[18:41:59.801]                     base::local({
[18:41:59.801]                       for (pkg in c("stats", "future.apply")) {
[18:41:59.801]                         base::loadNamespace(pkg)
[18:41:59.801]                         base::library(pkg, character.only = TRUE)
[18:41:59.801]                       }
[18:41:59.801]                     })
[18:41:59.801]                   }
[18:41:59.801]                   ...future.strategy.old <- future::plan("list")
[18:41:59.801]                   options(future.plan = NULL)
[18:41:59.801]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.801]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.801]                 }
[18:41:59.801]                 ...future.workdir <- getwd()
[18:41:59.801]             }
[18:41:59.801]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.801]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.801]         }
[18:41:59.801]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.801]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.801]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.801]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.801]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.801]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.801]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.801]             base::names(...future.oldOptions))
[18:41:59.801]     }
[18:41:59.801]     if (FALSE) {
[18:41:59.801]     }
[18:41:59.801]     else {
[18:41:59.801]         if (TRUE) {
[18:41:59.801]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.801]                 open = "w")
[18:41:59.801]         }
[18:41:59.801]         else {
[18:41:59.801]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.801]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.801]         }
[18:41:59.801]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.801]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.801]             base::sink(type = "output", split = FALSE)
[18:41:59.801]             base::close(...future.stdout)
[18:41:59.801]         }, add = TRUE)
[18:41:59.801]     }
[18:41:59.801]     ...future.frame <- base::sys.nframe()
[18:41:59.801]     ...future.conditions <- base::list()
[18:41:59.801]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.801]     if (FALSE) {
[18:41:59.801]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.801]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.801]     }
[18:41:59.801]     ...future.result <- base::tryCatch({
[18:41:59.801]         base::withCallingHandlers({
[18:41:59.801]             ...future.value <- base::withVisible(base::local({
[18:41:59.801]                 do.call(function(...) {
[18:41:59.801]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.801]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.801]                     ...future.globals.maxSize)) {
[18:41:59.801]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.801]                     on.exit(options(oopts), add = TRUE)
[18:41:59.801]                   }
[18:41:59.801]                   {
[18:41:59.801]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.801]                       FUN = function(jj) {
[18:41:59.801]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.801]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.801]                       })
[18:41:59.801]                   }
[18:41:59.801]                 }, args = future.call.arguments)
[18:41:59.801]             }))
[18:41:59.801]             future::FutureResult(value = ...future.value$value, 
[18:41:59.801]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.801]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.801]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.801]                     ...future.globalenv.names))
[18:41:59.801]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.801]         }, condition = base::local({
[18:41:59.801]             c <- base::c
[18:41:59.801]             inherits <- base::inherits
[18:41:59.801]             invokeRestart <- base::invokeRestart
[18:41:59.801]             length <- base::length
[18:41:59.801]             list <- base::list
[18:41:59.801]             seq.int <- base::seq.int
[18:41:59.801]             signalCondition <- base::signalCondition
[18:41:59.801]             sys.calls <- base::sys.calls
[18:41:59.801]             `[[` <- base::`[[`
[18:41:59.801]             `+` <- base::`+`
[18:41:59.801]             `<<-` <- base::`<<-`
[18:41:59.801]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.801]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.801]                   3L)]
[18:41:59.801]             }
[18:41:59.801]             function(cond) {
[18:41:59.801]                 is_error <- inherits(cond, "error")
[18:41:59.801]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.801]                   NULL)
[18:41:59.801]                 if (is_error) {
[18:41:59.801]                   sessionInformation <- function() {
[18:41:59.801]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.801]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.801]                       search = base::search(), system = base::Sys.info())
[18:41:59.801]                   }
[18:41:59.801]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.801]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.801]                     cond$call), session = sessionInformation(), 
[18:41:59.801]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.801]                   signalCondition(cond)
[18:41:59.801]                 }
[18:41:59.801]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.801]                 "immediateCondition"))) {
[18:41:59.801]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.801]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.801]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.801]                   if (TRUE && !signal) {
[18:41:59.801]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.801]                     {
[18:41:59.801]                       inherits <- base::inherits
[18:41:59.801]                       invokeRestart <- base::invokeRestart
[18:41:59.801]                       is.null <- base::is.null
[18:41:59.801]                       muffled <- FALSE
[18:41:59.801]                       if (inherits(cond, "message")) {
[18:41:59.801]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.801]                         if (muffled) 
[18:41:59.801]                           invokeRestart("muffleMessage")
[18:41:59.801]                       }
[18:41:59.801]                       else if (inherits(cond, "warning")) {
[18:41:59.801]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.801]                         if (muffled) 
[18:41:59.801]                           invokeRestart("muffleWarning")
[18:41:59.801]                       }
[18:41:59.801]                       else if (inherits(cond, "condition")) {
[18:41:59.801]                         if (!is.null(pattern)) {
[18:41:59.801]                           computeRestarts <- base::computeRestarts
[18:41:59.801]                           grepl <- base::grepl
[18:41:59.801]                           restarts <- computeRestarts(cond)
[18:41:59.801]                           for (restart in restarts) {
[18:41:59.801]                             name <- restart$name
[18:41:59.801]                             if (is.null(name)) 
[18:41:59.801]                               next
[18:41:59.801]                             if (!grepl(pattern, name)) 
[18:41:59.801]                               next
[18:41:59.801]                             invokeRestart(restart)
[18:41:59.801]                             muffled <- TRUE
[18:41:59.801]                             break
[18:41:59.801]                           }
[18:41:59.801]                         }
[18:41:59.801]                       }
[18:41:59.801]                       invisible(muffled)
[18:41:59.801]                     }
[18:41:59.801]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.801]                   }
[18:41:59.801]                 }
[18:41:59.801]                 else {
[18:41:59.801]                   if (TRUE) {
[18:41:59.801]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.801]                     {
[18:41:59.801]                       inherits <- base::inherits
[18:41:59.801]                       invokeRestart <- base::invokeRestart
[18:41:59.801]                       is.null <- base::is.null
[18:41:59.801]                       muffled <- FALSE
[18:41:59.801]                       if (inherits(cond, "message")) {
[18:41:59.801]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.801]                         if (muffled) 
[18:41:59.801]                           invokeRestart("muffleMessage")
[18:41:59.801]                       }
[18:41:59.801]                       else if (inherits(cond, "warning")) {
[18:41:59.801]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.801]                         if (muffled) 
[18:41:59.801]                           invokeRestart("muffleWarning")
[18:41:59.801]                       }
[18:41:59.801]                       else if (inherits(cond, "condition")) {
[18:41:59.801]                         if (!is.null(pattern)) {
[18:41:59.801]                           computeRestarts <- base::computeRestarts
[18:41:59.801]                           grepl <- base::grepl
[18:41:59.801]                           restarts <- computeRestarts(cond)
[18:41:59.801]                           for (restart in restarts) {
[18:41:59.801]                             name <- restart$name
[18:41:59.801]                             if (is.null(name)) 
[18:41:59.801]                               next
[18:41:59.801]                             if (!grepl(pattern, name)) 
[18:41:59.801]                               next
[18:41:59.801]                             invokeRestart(restart)
[18:41:59.801]                             muffled <- TRUE
[18:41:59.801]                             break
[18:41:59.801]                           }
[18:41:59.801]                         }
[18:41:59.801]                       }
[18:41:59.801]                       invisible(muffled)
[18:41:59.801]                     }
[18:41:59.801]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.801]                   }
[18:41:59.801]                 }
[18:41:59.801]             }
[18:41:59.801]         }))
[18:41:59.801]     }, error = function(ex) {
[18:41:59.801]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.801]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.801]                 ...future.rng), started = ...future.startTime, 
[18:41:59.801]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.801]             version = "1.8"), class = "FutureResult")
[18:41:59.801]     }, finally = {
[18:41:59.801]         if (!identical(...future.workdir, getwd())) 
[18:41:59.801]             setwd(...future.workdir)
[18:41:59.801]         {
[18:41:59.801]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.801]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.801]             }
[18:41:59.801]             base::options(...future.oldOptions)
[18:41:59.801]             if (.Platform$OS.type == "windows") {
[18:41:59.801]                 old_names <- names(...future.oldEnvVars)
[18:41:59.801]                 envs <- base::Sys.getenv()
[18:41:59.801]                 names <- names(envs)
[18:41:59.801]                 common <- intersect(names, old_names)
[18:41:59.801]                 added <- setdiff(names, old_names)
[18:41:59.801]                 removed <- setdiff(old_names, names)
[18:41:59.801]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.801]                   envs[common]]
[18:41:59.801]                 NAMES <- toupper(changed)
[18:41:59.801]                 args <- list()
[18:41:59.801]                 for (kk in seq_along(NAMES)) {
[18:41:59.801]                   name <- changed[[kk]]
[18:41:59.801]                   NAME <- NAMES[[kk]]
[18:41:59.801]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.801]                     next
[18:41:59.801]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.801]                 }
[18:41:59.801]                 NAMES <- toupper(added)
[18:41:59.801]                 for (kk in seq_along(NAMES)) {
[18:41:59.801]                   name <- added[[kk]]
[18:41:59.801]                   NAME <- NAMES[[kk]]
[18:41:59.801]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.801]                     next
[18:41:59.801]                   args[[name]] <- ""
[18:41:59.801]                 }
[18:41:59.801]                 NAMES <- toupper(removed)
[18:41:59.801]                 for (kk in seq_along(NAMES)) {
[18:41:59.801]                   name <- removed[[kk]]
[18:41:59.801]                   NAME <- NAMES[[kk]]
[18:41:59.801]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.801]                     next
[18:41:59.801]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.801]                 }
[18:41:59.801]                 if (length(args) > 0) 
[18:41:59.801]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.801]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.801]             }
[18:41:59.801]             else {
[18:41:59.801]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.801]             }
[18:41:59.801]             {
[18:41:59.801]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.801]                   0L) {
[18:41:59.801]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.801]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.801]                   base::options(opts)
[18:41:59.801]                 }
[18:41:59.801]                 {
[18:41:59.801]                   {
[18:41:59.801]                     NULL
[18:41:59.801]                     RNGkind("Mersenne-Twister")
[18:41:59.801]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.801]                       inherits = FALSE)
[18:41:59.801]                   }
[18:41:59.801]                   options(future.plan = NULL)
[18:41:59.801]                   if (is.na(NA_character_)) 
[18:41:59.801]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.801]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.801]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.801]                     .init = FALSE)
[18:41:59.801]                 }
[18:41:59.801]             }
[18:41:59.801]         }
[18:41:59.801]     })
[18:41:59.801]     if (TRUE) {
[18:41:59.801]         base::sink(type = "output", split = FALSE)
[18:41:59.801]         if (TRUE) {
[18:41:59.801]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.801]         }
[18:41:59.801]         else {
[18:41:59.801]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.801]         }
[18:41:59.801]         base::close(...future.stdout)
[18:41:59.801]         ...future.stdout <- NULL
[18:41:59.801]     }
[18:41:59.801]     ...future.result$conditions <- ...future.conditions
[18:41:59.801]     ...future.result$finished <- base::Sys.time()
[18:41:59.801]     ...future.result
[18:41:59.801] }
[18:41:59.805] assign_globals() ...
[18:41:59.805] List of 11
[18:41:59.805]  $ ...future.FUN            :function (x, ...)  
[18:41:59.805]  $ x_FUN                    :function (x, ...)  
[18:41:59.805]  $ times                    : int 5
[18:41:59.805]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.805]  $ stop_if_not              :function (...)  
[18:41:59.805]  $ dim                      : NULL
[18:41:59.805]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.805]  $ future.call.arguments    : list()
[18:41:59.805]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.805]  $ ...future.elements_ii    :List of 3
[18:41:59.805]   ..$ a    : int [1:10] 1 2 3 4 5 6 7 8 9 10
[18:41:59.805]   ..$ beta : num [1:7] 0.0498 0.1353 0.3679 1 2.7183 ...
[18:41:59.805]   ..$ logic: logi [1:4] TRUE FALSE FALSE TRUE
[18:41:59.805]  $ ...future.seeds_ii       : NULL
[18:41:59.805]  $ ...future.globals.maxSize: NULL
[18:41:59.805]  - attr(*, "where")=List of 11
[18:41:59.805]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.805]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.805]  - attr(*, "resolved")= logi FALSE
[18:41:59.805]  - attr(*, "total_size")= num 24127
[18:41:59.805]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.805]  - attr(*, "already-done")= logi TRUE
[18:41:59.818] - copied '...future.FUN' to environment
[18:41:59.818] - copied 'x_FUN' to environment
[18:41:59.818] - copied 'times' to environment
[18:41:59.819] - copied 'stopf' to environment
[18:41:59.819] - copied 'stop_if_not' to environment
[18:41:59.819] - copied 'dim' to environment
[18:41:59.819] - copied 'valid_types' to environment
[18:41:59.819] - copied 'future.call.arguments' to environment
[18:41:59.820] - copied '...future.elements_ii' to environment
[18:41:59.820] - copied '...future.seeds_ii' to environment
[18:41:59.820] - copied '...future.globals.maxSize' to environment
[18:41:59.820] assign_globals() ... done
[18:41:59.821] plan(): Setting new future strategy stack:
[18:41:59.821] List of future strategies:
[18:41:59.821] 1. sequential:
[18:41:59.821]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.821]    - tweaked: FALSE
[18:41:59.821]    - call: NULL
[18:41:59.822] plan(): nbrOfWorkers() = 1
[18:41:59.824] plan(): Setting new future strategy stack:
[18:41:59.825] List of future strategies:
[18:41:59.825] 1. sequential:
[18:41:59.825]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.825]    - tweaked: FALSE
[18:41:59.825]    - call: plan(strategy)
[18:41:59.825] plan(): nbrOfWorkers() = 1
[18:41:59.826] SequentialFuture started (and completed)
[18:41:59.826] - Launch lazy future ... done
[18:41:59.826] run() for 'SequentialFuture' ... done
[18:41:59.826] Created future:
[18:41:59.827] SequentialFuture:
[18:41:59.827] Label: 'future_vapply-1'
[18:41:59.827] Expression:
[18:41:59.827] {
[18:41:59.827]     do.call(function(...) {
[18:41:59.827]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.827]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.827]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.827]             on.exit(options(oopts), add = TRUE)
[18:41:59.827]         }
[18:41:59.827]         {
[18:41:59.827]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.827]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.827]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.827]             })
[18:41:59.827]         }
[18:41:59.827]     }, args = future.call.arguments)
[18:41:59.827] }
[18:41:59.827] Lazy evaluation: FALSE
[18:41:59.827] Asynchronous evaluation: FALSE
[18:41:59.827] Local evaluation: TRUE
[18:41:59.827] Environment: R_GlobalEnv
[18:41:59.827] Capture standard output: TRUE
[18:41:59.827] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.827] Globals: 11 objects totaling 13.46 KiB (function '...future.FUN' of 4.74 KiB, function 'x_FUN' of 311 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.827] Packages: 2 packages ('stats', 'future.apply')
[18:41:59.827] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.827] Resolved: TRUE
[18:41:59.827] Value: 413 bytes of class 'list'
[18:41:59.827] Early signaling: FALSE
[18:41:59.827] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.827] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.829] Chunk #1 of 1 ... DONE
[18:41:59.829] Launching 1 futures (chunks) ... DONE
[18:41:59.829] Resolving 1 futures (chunks) ...
[18:41:59.829] resolve() on list ...
[18:41:59.829]  recursive: 0
[18:41:59.830]  length: 1
[18:41:59.830] 
[18:41:59.830] resolved() for 'SequentialFuture' ...
[18:41:59.830] - state: 'finished'
[18:41:59.830] - run: TRUE
[18:41:59.831] - result: 'FutureResult'
[18:41:59.831] resolved() for 'SequentialFuture' ... done
[18:41:59.831] Future #1
[18:41:59.831] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.832] - nx: 1
[18:41:59.832] - relay: TRUE
[18:41:59.832] - stdout: TRUE
[18:41:59.832] - signal: TRUE
[18:41:59.832] - resignal: FALSE
[18:41:59.833] - force: TRUE
[18:41:59.833] - relayed: [n=1] FALSE
[18:41:59.833] - queued futures: [n=1] FALSE
[18:41:59.833]  - until=1
[18:41:59.833]  - relaying element #1
[18:41:59.834] - relayed: [n=1] TRUE
[18:41:59.834] - queued futures: [n=1] TRUE
[18:41:59.834] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.834]  length: 0 (resolved future 1)
[18:41:59.835] Relaying remaining futures
[18:41:59.835] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.835] - nx: 1
[18:41:59.835] - relay: TRUE
[18:41:59.835] - stdout: TRUE
[18:41:59.836] - signal: TRUE
[18:41:59.836] - resignal: FALSE
[18:41:59.836] - force: TRUE
[18:41:59.836] - relayed: [n=1] TRUE
[18:41:59.836] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.837] - relayed: [n=1] TRUE
[18:41:59.837] - queued futures: [n=1] TRUE
[18:41:59.837] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.837] resolve() on list ... DONE
[18:41:59.837]  - Number of value chunks collected: 1
[18:41:59.838] Resolving 1 futures (chunks) ... DONE
[18:41:59.838] Reducing values from 1 chunks ...
[18:41:59.838]  - Number of values collected after concatenation: 3
[18:41:59.838]  - Number of values expected: 3
[18:41:59.838] Reducing values from 1 chunks ... DONE
[18:41:59.839] future_lapply() ... DONE
 num [1:5, 1:3] 1 3.25 5.5 7.75 10 ...
 - attr(*, "dimnames")=List of 2
  ..$ : chr [1:5] "0%" "25%" "50%" "75%" ...
  ..$ : chr [1:3] "a" "beta" "logic"
[18:41:59.841] future_lapply() ...
[18:41:59.852] Number of chunks: 1
[18:41:59.852] getGlobalsAndPackagesXApply() ...
[18:41:59.852]  - future.globals: TRUE
[18:41:59.852] getGlobalsAndPackages() ...
[18:41:59.853] Searching for globals...
[18:41:59.859] - globals found: [21] 'FUN', '{', '<-', 'is.na', 'if', 'any', '[', '!', 'return', 'rep.int', 'sort', 'length', '==', '/', 'floor', '(', '+', 'c', '-', '*', 'ceiling'
[18:41:59.859] Searching for globals ... DONE
[18:41:59.860] Resolving globals: FALSE
[18:41:59.861] The total size of the 1 globals is 4.67 KiB (4777 bytes)
[18:41:59.861] The total size of the 1 globals exported for future expression ('FUN()') is 4.67 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (4.67 KiB of class 'function')
[18:41:59.862] - globals: [1] 'FUN'
[18:41:59.862] - packages: [1] 'stats'
[18:41:59.862] getGlobalsAndPackages() ... DONE
[18:41:59.862]  - globals found/used: [n=1] 'FUN'
[18:41:59.862]  - needed namespaces: [n=1] 'stats'
[18:41:59.862] Finding globals ... DONE
[18:41:59.863]  - use_args: TRUE
[18:41:59.863]  - Getting '...' globals ...
[18:41:59.863] resolve() on list ...
[18:41:59.863]  recursive: 0
[18:41:59.864]  length: 1
[18:41:59.864]  elements: '...'
[18:41:59.864]  length: 0 (resolved future 1)
[18:41:59.864] resolve() on list ... DONE
[18:41:59.864]    - '...' content: [n=0] 
[18:41:59.865] List of 1
[18:41:59.865]  $ ...: list()
[18:41:59.865]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.865]  - attr(*, "where")=List of 1
[18:41:59.865]   ..$ ...:<environment: 0x000002ea06475b38> 
[18:41:59.865]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.865]  - attr(*, "resolved")= logi TRUE
[18:41:59.865]  - attr(*, "total_size")= num NA
[18:41:59.868]  - Getting '...' globals ... DONE
[18:41:59.868] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:59.868] List of 2
[18:41:59.868]  $ ...future.FUN:function (x, na.rm = TRUE)  
[18:41:59.868]  $ ...          : list()
[18:41:59.868]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.868]  - attr(*, "where")=List of 2
[18:41:59.868]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.868]   ..$ ...          :<environment: 0x000002ea06475b38> 
[18:41:59.868]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.868]  - attr(*, "resolved")= logi FALSE
[18:41:59.868]  - attr(*, "total_size")= int 18895
[18:41:59.871] Packages to be attached in all futures: [n=1] 'stats'
[18:41:59.872] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.872] Number of futures (= number of chunks): 1
[18:41:59.872] Launching 1 futures (chunks) ...
[18:41:59.872] Chunk #1 of 1 ...
[18:41:59.873]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.873] getGlobalsAndPackages() ...
[18:41:59.873] Searching for globals...
[18:41:59.873] 
[18:41:59.873] Searching for globals ... DONE
[18:41:59.874] - globals: [0] <none>
[18:41:59.874] getGlobalsAndPackages() ... DONE
[18:41:59.874]    + additional globals found: [n=0] 
[18:41:59.874]    + additional namespaces needed: [n=0] 
[18:41:59.874]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.874]  - seeds: <none>
[18:41:59.875]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.875] getGlobalsAndPackages() ...
[18:41:59.875] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.875] Resolving globals: FALSE
[18:41:59.875] Tweak future expression to call with '...' arguments ...
[18:41:59.876] {
[18:41:59.876]     do.call(function(...) {
[18:41:59.876]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.876]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.876]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.876]             on.exit(options(oopts), add = TRUE)
[18:41:59.876]         }
[18:41:59.876]         {
[18:41:59.876]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.876]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.876]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.876]             })
[18:41:59.876]         }
[18:41:59.876]     }, args = future.call.arguments)
[18:41:59.876] }
[18:41:59.876] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.877] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.877] - packages: [1] 'stats'
[18:41:59.877] getGlobalsAndPackages() ... DONE
[18:41:59.877] run() for 'Future' ...
[18:41:59.878] - state: 'created'
[18:41:59.878] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.878] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.878] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.879]   - Field: 'label'
[18:41:59.879]   - Field: 'local'
[18:41:59.879]   - Field: 'owner'
[18:41:59.879]   - Field: 'envir'
[18:41:59.879]   - Field: 'packages'
[18:41:59.880]   - Field: 'gc'
[18:41:59.880]   - Field: 'conditions'
[18:41:59.880]   - Field: 'expr'
[18:41:59.880]   - Field: 'uuid'
[18:41:59.880]   - Field: 'seed'
[18:41:59.880]   - Field: 'version'
[18:41:59.881]   - Field: 'result'
[18:41:59.881]   - Field: 'asynchronous'
[18:41:59.881]   - Field: 'calls'
[18:41:59.881]   - Field: 'globals'
[18:41:59.881]   - Field: 'stdout'
[18:41:59.882]   - Field: 'earlySignal'
[18:41:59.882]   - Field: 'lazy'
[18:41:59.882]   - Field: 'state'
[18:41:59.882] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.882] - Launch lazy future ...
[18:41:59.883] Packages needed by the future expression (n = 1): 'stats'
[18:41:59.883] Packages needed by future strategies (n = 0): <none>
[18:41:59.883] {
[18:41:59.883]     {
[18:41:59.883]         {
[18:41:59.883]             ...future.startTime <- base::Sys.time()
[18:41:59.883]             {
[18:41:59.883]                 {
[18:41:59.883]                   {
[18:41:59.883]                     {
[18:41:59.883]                       base::local({
[18:41:59.883]                         has_future <- base::requireNamespace("future", 
[18:41:59.883]                           quietly = TRUE)
[18:41:59.883]                         if (has_future) {
[18:41:59.883]                           ns <- base::getNamespace("future")
[18:41:59.883]                           version <- ns[[".package"]][["version"]]
[18:41:59.883]                           if (is.null(version)) 
[18:41:59.883]                             version <- utils::packageVersion("future")
[18:41:59.883]                         }
[18:41:59.883]                         else {
[18:41:59.883]                           version <- NULL
[18:41:59.883]                         }
[18:41:59.883]                         if (!has_future || version < "1.8.0") {
[18:41:59.883]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.883]                             "", base::R.version$version.string), 
[18:41:59.883]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.883]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.883]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.883]                               "release", "version")], collapse = " "), 
[18:41:59.883]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.883]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.883]                             info)
[18:41:59.883]                           info <- base::paste(info, collapse = "; ")
[18:41:59.883]                           if (!has_future) {
[18:41:59.883]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.883]                               info)
[18:41:59.883]                           }
[18:41:59.883]                           else {
[18:41:59.883]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.883]                               info, version)
[18:41:59.883]                           }
[18:41:59.883]                           base::stop(msg)
[18:41:59.883]                         }
[18:41:59.883]                       })
[18:41:59.883]                     }
[18:41:59.883]                     base::local({
[18:41:59.883]                       for (pkg in "stats") {
[18:41:59.883]                         base::loadNamespace(pkg)
[18:41:59.883]                         base::library(pkg, character.only = TRUE)
[18:41:59.883]                       }
[18:41:59.883]                     })
[18:41:59.883]                   }
[18:41:59.883]                   ...future.strategy.old <- future::plan("list")
[18:41:59.883]                   options(future.plan = NULL)
[18:41:59.883]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.883]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.883]                 }
[18:41:59.883]                 ...future.workdir <- getwd()
[18:41:59.883]             }
[18:41:59.883]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.883]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.883]         }
[18:41:59.883]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.883]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.883]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.883]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.883]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.883]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.883]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.883]             base::names(...future.oldOptions))
[18:41:59.883]     }
[18:41:59.883]     if (FALSE) {
[18:41:59.883]     }
[18:41:59.883]     else {
[18:41:59.883]         if (TRUE) {
[18:41:59.883]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.883]                 open = "w")
[18:41:59.883]         }
[18:41:59.883]         else {
[18:41:59.883]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.883]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.883]         }
[18:41:59.883]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.883]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.883]             base::sink(type = "output", split = FALSE)
[18:41:59.883]             base::close(...future.stdout)
[18:41:59.883]         }, add = TRUE)
[18:41:59.883]     }
[18:41:59.883]     ...future.frame <- base::sys.nframe()
[18:41:59.883]     ...future.conditions <- base::list()
[18:41:59.883]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.883]     if (FALSE) {
[18:41:59.883]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.883]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.883]     }
[18:41:59.883]     ...future.result <- base::tryCatch({
[18:41:59.883]         base::withCallingHandlers({
[18:41:59.883]             ...future.value <- base::withVisible(base::local({
[18:41:59.883]                 do.call(function(...) {
[18:41:59.883]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.883]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.883]                     ...future.globals.maxSize)) {
[18:41:59.883]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.883]                     on.exit(options(oopts), add = TRUE)
[18:41:59.883]                   }
[18:41:59.883]                   {
[18:41:59.883]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.883]                       FUN = function(jj) {
[18:41:59.883]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.883]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.883]                       })
[18:41:59.883]                   }
[18:41:59.883]                 }, args = future.call.arguments)
[18:41:59.883]             }))
[18:41:59.883]             future::FutureResult(value = ...future.value$value, 
[18:41:59.883]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.883]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.883]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.883]                     ...future.globalenv.names))
[18:41:59.883]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.883]         }, condition = base::local({
[18:41:59.883]             c <- base::c
[18:41:59.883]             inherits <- base::inherits
[18:41:59.883]             invokeRestart <- base::invokeRestart
[18:41:59.883]             length <- base::length
[18:41:59.883]             list <- base::list
[18:41:59.883]             seq.int <- base::seq.int
[18:41:59.883]             signalCondition <- base::signalCondition
[18:41:59.883]             sys.calls <- base::sys.calls
[18:41:59.883]             `[[` <- base::`[[`
[18:41:59.883]             `+` <- base::`+`
[18:41:59.883]             `<<-` <- base::`<<-`
[18:41:59.883]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.883]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.883]                   3L)]
[18:41:59.883]             }
[18:41:59.883]             function(cond) {
[18:41:59.883]                 is_error <- inherits(cond, "error")
[18:41:59.883]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.883]                   NULL)
[18:41:59.883]                 if (is_error) {
[18:41:59.883]                   sessionInformation <- function() {
[18:41:59.883]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.883]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.883]                       search = base::search(), system = base::Sys.info())
[18:41:59.883]                   }
[18:41:59.883]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.883]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.883]                     cond$call), session = sessionInformation(), 
[18:41:59.883]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.883]                   signalCondition(cond)
[18:41:59.883]                 }
[18:41:59.883]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.883]                 "immediateCondition"))) {
[18:41:59.883]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.883]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.883]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.883]                   if (TRUE && !signal) {
[18:41:59.883]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.883]                     {
[18:41:59.883]                       inherits <- base::inherits
[18:41:59.883]                       invokeRestart <- base::invokeRestart
[18:41:59.883]                       is.null <- base::is.null
[18:41:59.883]                       muffled <- FALSE
[18:41:59.883]                       if (inherits(cond, "message")) {
[18:41:59.883]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.883]                         if (muffled) 
[18:41:59.883]                           invokeRestart("muffleMessage")
[18:41:59.883]                       }
[18:41:59.883]                       else if (inherits(cond, "warning")) {
[18:41:59.883]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.883]                         if (muffled) 
[18:41:59.883]                           invokeRestart("muffleWarning")
[18:41:59.883]                       }
[18:41:59.883]                       else if (inherits(cond, "condition")) {
[18:41:59.883]                         if (!is.null(pattern)) {
[18:41:59.883]                           computeRestarts <- base::computeRestarts
[18:41:59.883]                           grepl <- base::grepl
[18:41:59.883]                           restarts <- computeRestarts(cond)
[18:41:59.883]                           for (restart in restarts) {
[18:41:59.883]                             name <- restart$name
[18:41:59.883]                             if (is.null(name)) 
[18:41:59.883]                               next
[18:41:59.883]                             if (!grepl(pattern, name)) 
[18:41:59.883]                               next
[18:41:59.883]                             invokeRestart(restart)
[18:41:59.883]                             muffled <- TRUE
[18:41:59.883]                             break
[18:41:59.883]                           }
[18:41:59.883]                         }
[18:41:59.883]                       }
[18:41:59.883]                       invisible(muffled)
[18:41:59.883]                     }
[18:41:59.883]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.883]                   }
[18:41:59.883]                 }
[18:41:59.883]                 else {
[18:41:59.883]                   if (TRUE) {
[18:41:59.883]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.883]                     {
[18:41:59.883]                       inherits <- base::inherits
[18:41:59.883]                       invokeRestart <- base::invokeRestart
[18:41:59.883]                       is.null <- base::is.null
[18:41:59.883]                       muffled <- FALSE
[18:41:59.883]                       if (inherits(cond, "message")) {
[18:41:59.883]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.883]                         if (muffled) 
[18:41:59.883]                           invokeRestart("muffleMessage")
[18:41:59.883]                       }
[18:41:59.883]                       else if (inherits(cond, "warning")) {
[18:41:59.883]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.883]                         if (muffled) 
[18:41:59.883]                           invokeRestart("muffleWarning")
[18:41:59.883]                       }
[18:41:59.883]                       else if (inherits(cond, "condition")) {
[18:41:59.883]                         if (!is.null(pattern)) {
[18:41:59.883]                           computeRestarts <- base::computeRestarts
[18:41:59.883]                           grepl <- base::grepl
[18:41:59.883]                           restarts <- computeRestarts(cond)
[18:41:59.883]                           for (restart in restarts) {
[18:41:59.883]                             name <- restart$name
[18:41:59.883]                             if (is.null(name)) 
[18:41:59.883]                               next
[18:41:59.883]                             if (!grepl(pattern, name)) 
[18:41:59.883]                               next
[18:41:59.883]                             invokeRestart(restart)
[18:41:59.883]                             muffled <- TRUE
[18:41:59.883]                             break
[18:41:59.883]                           }
[18:41:59.883]                         }
[18:41:59.883]                       }
[18:41:59.883]                       invisible(muffled)
[18:41:59.883]                     }
[18:41:59.883]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.883]                   }
[18:41:59.883]                 }
[18:41:59.883]             }
[18:41:59.883]         }))
[18:41:59.883]     }, error = function(ex) {
[18:41:59.883]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.883]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.883]                 ...future.rng), started = ...future.startTime, 
[18:41:59.883]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.883]             version = "1.8"), class = "FutureResult")
[18:41:59.883]     }, finally = {
[18:41:59.883]         if (!identical(...future.workdir, getwd())) 
[18:41:59.883]             setwd(...future.workdir)
[18:41:59.883]         {
[18:41:59.883]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.883]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.883]             }
[18:41:59.883]             base::options(...future.oldOptions)
[18:41:59.883]             if (.Platform$OS.type == "windows") {
[18:41:59.883]                 old_names <- names(...future.oldEnvVars)
[18:41:59.883]                 envs <- base::Sys.getenv()
[18:41:59.883]                 names <- names(envs)
[18:41:59.883]                 common <- intersect(names, old_names)
[18:41:59.883]                 added <- setdiff(names, old_names)
[18:41:59.883]                 removed <- setdiff(old_names, names)
[18:41:59.883]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.883]                   envs[common]]
[18:41:59.883]                 NAMES <- toupper(changed)
[18:41:59.883]                 args <- list()
[18:41:59.883]                 for (kk in seq_along(NAMES)) {
[18:41:59.883]                   name <- changed[[kk]]
[18:41:59.883]                   NAME <- NAMES[[kk]]
[18:41:59.883]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.883]                     next
[18:41:59.883]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.883]                 }
[18:41:59.883]                 NAMES <- toupper(added)
[18:41:59.883]                 for (kk in seq_along(NAMES)) {
[18:41:59.883]                   name <- added[[kk]]
[18:41:59.883]                   NAME <- NAMES[[kk]]
[18:41:59.883]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.883]                     next
[18:41:59.883]                   args[[name]] <- ""
[18:41:59.883]                 }
[18:41:59.883]                 NAMES <- toupper(removed)
[18:41:59.883]                 for (kk in seq_along(NAMES)) {
[18:41:59.883]                   name <- removed[[kk]]
[18:41:59.883]                   NAME <- NAMES[[kk]]
[18:41:59.883]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.883]                     next
[18:41:59.883]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.883]                 }
[18:41:59.883]                 if (length(args) > 0) 
[18:41:59.883]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.883]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.883]             }
[18:41:59.883]             else {
[18:41:59.883]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.883]             }
[18:41:59.883]             {
[18:41:59.883]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.883]                   0L) {
[18:41:59.883]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.883]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.883]                   base::options(opts)
[18:41:59.883]                 }
[18:41:59.883]                 {
[18:41:59.883]                   {
[18:41:59.883]                     NULL
[18:41:59.883]                     RNGkind("Mersenne-Twister")
[18:41:59.883]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.883]                       inherits = FALSE)
[18:41:59.883]                   }
[18:41:59.883]                   options(future.plan = NULL)
[18:41:59.883]                   if (is.na(NA_character_)) 
[18:41:59.883]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.883]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.883]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.883]                     .init = FALSE)
[18:41:59.883]                 }
[18:41:59.883]             }
[18:41:59.883]         }
[18:41:59.883]     })
[18:41:59.883]     if (TRUE) {
[18:41:59.883]         base::sink(type = "output", split = FALSE)
[18:41:59.883]         if (TRUE) {
[18:41:59.883]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.883]         }
[18:41:59.883]         else {
[18:41:59.883]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.883]         }
[18:41:59.883]         base::close(...future.stdout)
[18:41:59.883]         ...future.stdout <- NULL
[18:41:59.883]     }
[18:41:59.883]     ...future.result$conditions <- ...future.conditions
[18:41:59.883]     ...future.result$finished <- base::Sys.time()
[18:41:59.883]     ...future.result
[18:41:59.883] }
[18:41:59.888] assign_globals() ...
[18:41:59.888] List of 5
[18:41:59.888]  $ ...future.FUN            :function (x, na.rm = TRUE)  
[18:41:59.888]  $ future.call.arguments    : list()
[18:41:59.888]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.888]  $ ...future.elements_ii    :List of 7
[18:41:59.888]   ..$ : int [1:3] 1 2 3
[18:41:59.888]   ..$ : int [1:4] 1 2 3 4
[18:41:59.888]   ..$ : int [1:5] 1 2 3 4 5
[18:41:59.888]   ..$ : int [1:6] 1 2 3 4 5 6
[18:41:59.888]   ..$ : int [1:7] 1 2 3 4 5 6 7
[18:41:59.888]   ..$ : int [1:8] 1 2 3 4 5 6 7 8
[18:41:59.888]   ..$ : int [1:9] 1 2 3 4 5 6 7 8 9
[18:41:59.888]  $ ...future.seeds_ii       : NULL
[18:41:59.888]  $ ...future.globals.maxSize: NULL
[18:41:59.888]  - attr(*, "where")=List of 5
[18:41:59.888]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.888]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.888]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.888]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.888]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.888]  - attr(*, "resolved")= logi FALSE
[18:41:59.888]  - attr(*, "total_size")= num 18895
[18:41:59.888]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.888]  - attr(*, "already-done")= logi TRUE
[18:41:59.896] - copied '...future.FUN' to environment
[18:41:59.897] - copied 'future.call.arguments' to environment
[18:41:59.897] - copied '...future.elements_ii' to environment
[18:41:59.897] - copied '...future.seeds_ii' to environment
[18:41:59.897] - copied '...future.globals.maxSize' to environment
[18:41:59.897] assign_globals() ... done
[18:41:59.898] plan(): Setting new future strategy stack:
[18:41:59.898] List of future strategies:
[18:41:59.898] 1. sequential:
[18:41:59.898]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.898]    - tweaked: FALSE
[18:41:59.898]    - call: NULL
[18:41:59.899] plan(): nbrOfWorkers() = 1
[18:41:59.900] plan(): Setting new future strategy stack:
[18:41:59.900] List of future strategies:
[18:41:59.900] 1. sequential:
[18:41:59.900]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.900]    - tweaked: FALSE
[18:41:59.900]    - call: plan(strategy)
[18:41:59.901] plan(): nbrOfWorkers() = 1
[18:41:59.901] SequentialFuture started (and completed)
[18:41:59.902] - Launch lazy future ... done
[18:41:59.902] run() for 'SequentialFuture' ... done
[18:41:59.902] Created future:
[18:41:59.902] SequentialFuture:
[18:41:59.902] Label: 'future_sapply-1'
[18:41:59.902] Expression:
[18:41:59.902] {
[18:41:59.902]     do.call(function(...) {
[18:41:59.902]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.902]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.902]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.902]             on.exit(options(oopts), add = TRUE)
[18:41:59.902]         }
[18:41:59.902]         {
[18:41:59.902]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.902]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.902]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.902]             })
[18:41:59.902]         }
[18:41:59.902]     }, args = future.call.arguments)
[18:41:59.902] }
[18:41:59.902] Lazy evaluation: FALSE
[18:41:59.902] Asynchronous evaluation: FALSE
[18:41:59.902] Local evaluation: TRUE
[18:41:59.902] Environment: R_GlobalEnv
[18:41:59.902] Capture standard output: TRUE
[18:41:59.902] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.902] Globals: 5 objects totaling 5.40 KiB (function '...future.FUN' of 4.67 KiB, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 597 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:59.902] Packages: 1 packages ('stats')
[18:41:59.902] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.902] Resolved: TRUE
[18:41:59.902] Value: 367 bytes of class 'list'
[18:41:59.902] Early signaling: FALSE
[18:41:59.902] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.902] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.903] Chunk #1 of 1 ... DONE
[18:41:59.904] Launching 1 futures (chunks) ... DONE
[18:41:59.904] Resolving 1 futures (chunks) ...
[18:41:59.904] resolve() on list ...
[18:41:59.904]  recursive: 0
[18:41:59.904]  length: 1
[18:41:59.904] 
[18:41:59.905] resolved() for 'SequentialFuture' ...
[18:41:59.905] - state: 'finished'
[18:41:59.905] - run: TRUE
[18:41:59.905] - result: 'FutureResult'
[18:41:59.905] resolved() for 'SequentialFuture' ... done
[18:41:59.906] Future #1
[18:41:59.906] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.906] - nx: 1
[18:41:59.906] - relay: TRUE
[18:41:59.906] - stdout: TRUE
[18:41:59.906] - signal: TRUE
[18:41:59.907] - resignal: FALSE
[18:41:59.907] - force: TRUE
[18:41:59.907] - relayed: [n=1] FALSE
[18:41:59.907] - queued futures: [n=1] FALSE
[18:41:59.907]  - until=1
[18:41:59.907]  - relaying element #1
[18:41:59.908] - relayed: [n=1] TRUE
[18:41:59.908] - queued futures: [n=1] TRUE
[18:41:59.908] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.908]  length: 0 (resolved future 1)
[18:41:59.908] Relaying remaining futures
[18:41:59.909] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.909] - nx: 1
[18:41:59.909] - relay: TRUE
[18:41:59.909] - stdout: TRUE
[18:41:59.909] - signal: TRUE
[18:41:59.909] - resignal: FALSE
[18:41:59.910] - force: TRUE
[18:41:59.910] - relayed: [n=1] TRUE
[18:41:59.910] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.910] - relayed: [n=1] TRUE
[18:41:59.910] - queued futures: [n=1] TRUE
[18:41:59.910] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.911] resolve() on list ... DONE
[18:41:59.911]  - Number of value chunks collected: 1
[18:41:59.911] Resolving 1 futures (chunks) ... DONE
[18:41:59.911] Reducing values from 1 chunks ...
[18:41:59.911]  - Number of values collected after concatenation: 7
[18:41:59.912]  - Number of values expected: 7
[18:41:59.912] Reducing values from 1 chunks ... DONE
[18:41:59.912] future_lapply() ... DONE
[18:41:59.912] future_lapply() ...
[18:41:59.915] Number of chunks: 1
[18:41:59.915] getGlobalsAndPackagesXApply() ...
[18:41:59.915]  - future.globals: TRUE
[18:41:59.915] getGlobalsAndPackages() ...
[18:41:59.916] Searching for globals...
[18:41:59.926] - globals found: [31] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'is.na', 'any', '[', '!', 'return', 'rep.int', 'sort', '/', 'floor', '(', '+', 'c', '-', '*', 'ceiling'
[18:41:59.926] Searching for globals ... DONE
[18:41:59.926] Resolving globals: FALSE
[18:41:59.928] The total size of the 7 globals is 26.71 KiB (27354 bytes)
[18:41:59.928] The total size of the 7 globals exported for future expression ('FUN()') is 26.71 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (14.07 KiB of class 'function'), 'x_FUN' (4.67 KiB of class 'function') and 'stop_if_not' (4.51 KiB of class 'function')
[18:41:59.929] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.929] - packages: [2] 'stats', 'future.apply'
[18:41:59.929] getGlobalsAndPackages() ... DONE
[18:41:59.929]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:41:59.929]  - needed namespaces: [n=2] 'stats', 'future.apply'
[18:41:59.929] Finding globals ... DONE
[18:41:59.930]  - use_args: TRUE
[18:41:59.930]  - Getting '...' globals ...
[18:41:59.930] resolve() on list ...
[18:41:59.930]  recursive: 0
[18:41:59.931]  length: 1
[18:41:59.931]  elements: '...'
[18:41:59.931]  length: 0 (resolved future 1)
[18:41:59.931] resolve() on list ... DONE
[18:41:59.931]    - '...' content: [n=0] 
[18:41:59.932] List of 1
[18:41:59.932]  $ ...: list()
[18:41:59.932]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.932]  - attr(*, "where")=List of 1
[18:41:59.932]   ..$ ...:<environment: 0x000002ea051179a8> 
[18:41:59.932]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.932]  - attr(*, "resolved")= logi TRUE
[18:41:59.932]  - attr(*, "total_size")= num NA
[18:41:59.935]  - Getting '...' globals ... DONE
[18:41:59.935] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:41:59.935] List of 8
[18:41:59.935]  $ ...future.FUN:function (x, ...)  
[18:41:59.935]  $ x_FUN        :function (x, na.rm = TRUE)  
[18:41:59.935]  $ times        : int 5
[18:41:59.935]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.935]  $ stop_if_not  :function (...)  
[18:41:59.935]  $ dim          : NULL
[18:41:59.935]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:41:59.935]  $ ...          : list()
[18:41:59.935]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.935]  - attr(*, "where")=List of 8
[18:41:59.935]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ times        :<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ dim          :<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:41:59.935]   ..$ ...          :<environment: 0x000002ea051179a8> 
[18:41:59.935]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.935]  - attr(*, "resolved")= logi FALSE
[18:41:59.935]  - attr(*, "total_size")= int 48005
[18:41:59.942] Packages to be attached in all futures: [n=2] 'stats', 'future.apply'
[18:41:59.942] getGlobalsAndPackagesXApply() ... DONE
[18:41:59.943] Number of futures (= number of chunks): 1
[18:41:59.943] Launching 1 futures (chunks) ...
[18:41:59.943] Chunk #1 of 1 ...
[18:41:59.943]  - Finding globals in 'X' for chunk #1 ...
[18:41:59.944] getGlobalsAndPackages() ...
[18:41:59.944] Searching for globals...
[18:41:59.944] 
[18:41:59.944] Searching for globals ... DONE
[18:41:59.944] - globals: [0] <none>
[18:41:59.945] getGlobalsAndPackages() ... DONE
[18:41:59.945]    + additional globals found: [n=0] 
[18:41:59.945]    + additional namespaces needed: [n=0] 
[18:41:59.945]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:59.945]  - seeds: <none>
[18:41:59.945]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.946] getGlobalsAndPackages() ...
[18:41:59.946] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.946] Resolving globals: FALSE
[18:41:59.946] Tweak future expression to call with '...' arguments ...
[18:41:59.946] {
[18:41:59.946]     do.call(function(...) {
[18:41:59.946]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.946]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.946]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.946]             on.exit(options(oopts), add = TRUE)
[18:41:59.946]         }
[18:41:59.946]         {
[18:41:59.946]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.946]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.946]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.946]             })
[18:41:59.946]         }
[18:41:59.946]     }, args = future.call.arguments)
[18:41:59.946] }
[18:41:59.947] Tweak future expression to call with '...' arguments ... DONE
[18:41:59.947] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:59.948] - packages: [2] 'stats', 'future.apply'
[18:41:59.948] getGlobalsAndPackages() ... DONE
[18:41:59.948] run() for 'Future' ...
[18:41:59.948] - state: 'created'
[18:41:59.949] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:59.949] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.949] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:59.949]   - Field: 'label'
[18:41:59.950]   - Field: 'local'
[18:41:59.950]   - Field: 'owner'
[18:41:59.950]   - Field: 'envir'
[18:41:59.950]   - Field: 'packages'
[18:41:59.950]   - Field: 'gc'
[18:41:59.951]   - Field: 'conditions'
[18:41:59.951]   - Field: 'expr'
[18:41:59.951]   - Field: 'uuid'
[18:41:59.951]   - Field: 'seed'
[18:41:59.951]   - Field: 'version'
[18:41:59.951]   - Field: 'result'
[18:41:59.952]   - Field: 'asynchronous'
[18:41:59.952]   - Field: 'calls'
[18:41:59.952]   - Field: 'globals'
[18:41:59.952]   - Field: 'stdout'
[18:41:59.952]   - Field: 'earlySignal'
[18:41:59.953]   - Field: 'lazy'
[18:41:59.953]   - Field: 'state'
[18:41:59.953] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:59.953] - Launch lazy future ...
[18:41:59.953] Packages needed by the future expression (n = 2): 'stats', 'future.apply'
[18:41:59.954] Packages needed by future strategies (n = 0): <none>
[18:41:59.954] {
[18:41:59.954]     {
[18:41:59.954]         {
[18:41:59.954]             ...future.startTime <- base::Sys.time()
[18:41:59.954]             {
[18:41:59.954]                 {
[18:41:59.954]                   {
[18:41:59.954]                     {
[18:41:59.954]                       base::local({
[18:41:59.954]                         has_future <- base::requireNamespace("future", 
[18:41:59.954]                           quietly = TRUE)
[18:41:59.954]                         if (has_future) {
[18:41:59.954]                           ns <- base::getNamespace("future")
[18:41:59.954]                           version <- ns[[".package"]][["version"]]
[18:41:59.954]                           if (is.null(version)) 
[18:41:59.954]                             version <- utils::packageVersion("future")
[18:41:59.954]                         }
[18:41:59.954]                         else {
[18:41:59.954]                           version <- NULL
[18:41:59.954]                         }
[18:41:59.954]                         if (!has_future || version < "1.8.0") {
[18:41:59.954]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:59.954]                             "", base::R.version$version.string), 
[18:41:59.954]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:59.954]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:59.954]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:59.954]                               "release", "version")], collapse = " "), 
[18:41:59.954]                             hostname = base::Sys.info()[["nodename"]])
[18:41:59.954]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:59.954]                             info)
[18:41:59.954]                           info <- base::paste(info, collapse = "; ")
[18:41:59.954]                           if (!has_future) {
[18:41:59.954]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:59.954]                               info)
[18:41:59.954]                           }
[18:41:59.954]                           else {
[18:41:59.954]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:59.954]                               info, version)
[18:41:59.954]                           }
[18:41:59.954]                           base::stop(msg)
[18:41:59.954]                         }
[18:41:59.954]                       })
[18:41:59.954]                     }
[18:41:59.954]                     base::local({
[18:41:59.954]                       for (pkg in c("stats", "future.apply")) {
[18:41:59.954]                         base::loadNamespace(pkg)
[18:41:59.954]                         base::library(pkg, character.only = TRUE)
[18:41:59.954]                       }
[18:41:59.954]                     })
[18:41:59.954]                   }
[18:41:59.954]                   ...future.strategy.old <- future::plan("list")
[18:41:59.954]                   options(future.plan = NULL)
[18:41:59.954]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.954]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:59.954]                 }
[18:41:59.954]                 ...future.workdir <- getwd()
[18:41:59.954]             }
[18:41:59.954]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:59.954]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:59.954]         }
[18:41:59.954]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:59.954]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:59.954]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:59.954]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:59.954]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:59.954]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:59.954]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:59.954]             base::names(...future.oldOptions))
[18:41:59.954]     }
[18:41:59.954]     if (FALSE) {
[18:41:59.954]     }
[18:41:59.954]     else {
[18:41:59.954]         if (TRUE) {
[18:41:59.954]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:59.954]                 open = "w")
[18:41:59.954]         }
[18:41:59.954]         else {
[18:41:59.954]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:59.954]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:59.954]         }
[18:41:59.954]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:59.954]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:59.954]             base::sink(type = "output", split = FALSE)
[18:41:59.954]             base::close(...future.stdout)
[18:41:59.954]         }, add = TRUE)
[18:41:59.954]     }
[18:41:59.954]     ...future.frame <- base::sys.nframe()
[18:41:59.954]     ...future.conditions <- base::list()
[18:41:59.954]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:59.954]     if (FALSE) {
[18:41:59.954]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:59.954]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:59.954]     }
[18:41:59.954]     ...future.result <- base::tryCatch({
[18:41:59.954]         base::withCallingHandlers({
[18:41:59.954]             ...future.value <- base::withVisible(base::local({
[18:41:59.954]                 do.call(function(...) {
[18:41:59.954]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.954]                   if (!identical(...future.globals.maxSize.org, 
[18:41:59.954]                     ...future.globals.maxSize)) {
[18:41:59.954]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.954]                     on.exit(options(oopts), add = TRUE)
[18:41:59.954]                   }
[18:41:59.954]                   {
[18:41:59.954]                     lapply(seq_along(...future.elements_ii), 
[18:41:59.954]                       FUN = function(jj) {
[18:41:59.954]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.954]                         ...future.FUN(...future.X_jj, ...)
[18:41:59.954]                       })
[18:41:59.954]                   }
[18:41:59.954]                 }, args = future.call.arguments)
[18:41:59.954]             }))
[18:41:59.954]             future::FutureResult(value = ...future.value$value, 
[18:41:59.954]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.954]                   ...future.rng), globalenv = if (FALSE) 
[18:41:59.954]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:59.954]                     ...future.globalenv.names))
[18:41:59.954]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:59.954]         }, condition = base::local({
[18:41:59.954]             c <- base::c
[18:41:59.954]             inherits <- base::inherits
[18:41:59.954]             invokeRestart <- base::invokeRestart
[18:41:59.954]             length <- base::length
[18:41:59.954]             list <- base::list
[18:41:59.954]             seq.int <- base::seq.int
[18:41:59.954]             signalCondition <- base::signalCondition
[18:41:59.954]             sys.calls <- base::sys.calls
[18:41:59.954]             `[[` <- base::`[[`
[18:41:59.954]             `+` <- base::`+`
[18:41:59.954]             `<<-` <- base::`<<-`
[18:41:59.954]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:59.954]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:59.954]                   3L)]
[18:41:59.954]             }
[18:41:59.954]             function(cond) {
[18:41:59.954]                 is_error <- inherits(cond, "error")
[18:41:59.954]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:59.954]                   NULL)
[18:41:59.954]                 if (is_error) {
[18:41:59.954]                   sessionInformation <- function() {
[18:41:59.954]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:59.954]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:59.954]                       search = base::search(), system = base::Sys.info())
[18:41:59.954]                   }
[18:41:59.954]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.954]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:59.954]                     cond$call), session = sessionInformation(), 
[18:41:59.954]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:59.954]                   signalCondition(cond)
[18:41:59.954]                 }
[18:41:59.954]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:59.954]                 "immediateCondition"))) {
[18:41:59.954]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:59.954]                   ...future.conditions[[length(...future.conditions) + 
[18:41:59.954]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:59.954]                   if (TRUE && !signal) {
[18:41:59.954]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.954]                     {
[18:41:59.954]                       inherits <- base::inherits
[18:41:59.954]                       invokeRestart <- base::invokeRestart
[18:41:59.954]                       is.null <- base::is.null
[18:41:59.954]                       muffled <- FALSE
[18:41:59.954]                       if (inherits(cond, "message")) {
[18:41:59.954]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.954]                         if (muffled) 
[18:41:59.954]                           invokeRestart("muffleMessage")
[18:41:59.954]                       }
[18:41:59.954]                       else if (inherits(cond, "warning")) {
[18:41:59.954]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.954]                         if (muffled) 
[18:41:59.954]                           invokeRestart("muffleWarning")
[18:41:59.954]                       }
[18:41:59.954]                       else if (inherits(cond, "condition")) {
[18:41:59.954]                         if (!is.null(pattern)) {
[18:41:59.954]                           computeRestarts <- base::computeRestarts
[18:41:59.954]                           grepl <- base::grepl
[18:41:59.954]                           restarts <- computeRestarts(cond)
[18:41:59.954]                           for (restart in restarts) {
[18:41:59.954]                             name <- restart$name
[18:41:59.954]                             if (is.null(name)) 
[18:41:59.954]                               next
[18:41:59.954]                             if (!grepl(pattern, name)) 
[18:41:59.954]                               next
[18:41:59.954]                             invokeRestart(restart)
[18:41:59.954]                             muffled <- TRUE
[18:41:59.954]                             break
[18:41:59.954]                           }
[18:41:59.954]                         }
[18:41:59.954]                       }
[18:41:59.954]                       invisible(muffled)
[18:41:59.954]                     }
[18:41:59.954]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.954]                   }
[18:41:59.954]                 }
[18:41:59.954]                 else {
[18:41:59.954]                   if (TRUE) {
[18:41:59.954]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:59.954]                     {
[18:41:59.954]                       inherits <- base::inherits
[18:41:59.954]                       invokeRestart <- base::invokeRestart
[18:41:59.954]                       is.null <- base::is.null
[18:41:59.954]                       muffled <- FALSE
[18:41:59.954]                       if (inherits(cond, "message")) {
[18:41:59.954]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:59.954]                         if (muffled) 
[18:41:59.954]                           invokeRestart("muffleMessage")
[18:41:59.954]                       }
[18:41:59.954]                       else if (inherits(cond, "warning")) {
[18:41:59.954]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:59.954]                         if (muffled) 
[18:41:59.954]                           invokeRestart("muffleWarning")
[18:41:59.954]                       }
[18:41:59.954]                       else if (inherits(cond, "condition")) {
[18:41:59.954]                         if (!is.null(pattern)) {
[18:41:59.954]                           computeRestarts <- base::computeRestarts
[18:41:59.954]                           grepl <- base::grepl
[18:41:59.954]                           restarts <- computeRestarts(cond)
[18:41:59.954]                           for (restart in restarts) {
[18:41:59.954]                             name <- restart$name
[18:41:59.954]                             if (is.null(name)) 
[18:41:59.954]                               next
[18:41:59.954]                             if (!grepl(pattern, name)) 
[18:41:59.954]                               next
[18:41:59.954]                             invokeRestart(restart)
[18:41:59.954]                             muffled <- TRUE
[18:41:59.954]                             break
[18:41:59.954]                           }
[18:41:59.954]                         }
[18:41:59.954]                       }
[18:41:59.954]                       invisible(muffled)
[18:41:59.954]                     }
[18:41:59.954]                     muffleCondition(cond, pattern = "^muffle")
[18:41:59.954]                   }
[18:41:59.954]                 }
[18:41:59.954]             }
[18:41:59.954]         }))
[18:41:59.954]     }, error = function(ex) {
[18:41:59.954]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:59.954]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:59.954]                 ...future.rng), started = ...future.startTime, 
[18:41:59.954]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:59.954]             version = "1.8"), class = "FutureResult")
[18:41:59.954]     }, finally = {
[18:41:59.954]         if (!identical(...future.workdir, getwd())) 
[18:41:59.954]             setwd(...future.workdir)
[18:41:59.954]         {
[18:41:59.954]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:59.954]                 ...future.oldOptions$nwarnings <- NULL
[18:41:59.954]             }
[18:41:59.954]             base::options(...future.oldOptions)
[18:41:59.954]             if (.Platform$OS.type == "windows") {
[18:41:59.954]                 old_names <- names(...future.oldEnvVars)
[18:41:59.954]                 envs <- base::Sys.getenv()
[18:41:59.954]                 names <- names(envs)
[18:41:59.954]                 common <- intersect(names, old_names)
[18:41:59.954]                 added <- setdiff(names, old_names)
[18:41:59.954]                 removed <- setdiff(old_names, names)
[18:41:59.954]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:59.954]                   envs[common]]
[18:41:59.954]                 NAMES <- toupper(changed)
[18:41:59.954]                 args <- list()
[18:41:59.954]                 for (kk in seq_along(NAMES)) {
[18:41:59.954]                   name <- changed[[kk]]
[18:41:59.954]                   NAME <- NAMES[[kk]]
[18:41:59.954]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.954]                     next
[18:41:59.954]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.954]                 }
[18:41:59.954]                 NAMES <- toupper(added)
[18:41:59.954]                 for (kk in seq_along(NAMES)) {
[18:41:59.954]                   name <- added[[kk]]
[18:41:59.954]                   NAME <- NAMES[[kk]]
[18:41:59.954]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.954]                     next
[18:41:59.954]                   args[[name]] <- ""
[18:41:59.954]                 }
[18:41:59.954]                 NAMES <- toupper(removed)
[18:41:59.954]                 for (kk in seq_along(NAMES)) {
[18:41:59.954]                   name <- removed[[kk]]
[18:41:59.954]                   NAME <- NAMES[[kk]]
[18:41:59.954]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:59.954]                     next
[18:41:59.954]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:59.954]                 }
[18:41:59.954]                 if (length(args) > 0) 
[18:41:59.954]                   base::do.call(base::Sys.setenv, args = args)
[18:41:59.954]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:59.954]             }
[18:41:59.954]             else {
[18:41:59.954]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:59.954]             }
[18:41:59.954]             {
[18:41:59.954]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:59.954]                   0L) {
[18:41:59.954]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:59.954]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:59.954]                   base::options(opts)
[18:41:59.954]                 }
[18:41:59.954]                 {
[18:41:59.954]                   {
[18:41:59.954]                     NULL
[18:41:59.954]                     RNGkind("Mersenne-Twister")
[18:41:59.954]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:41:59.954]                       inherits = FALSE)
[18:41:59.954]                   }
[18:41:59.954]                   options(future.plan = NULL)
[18:41:59.954]                   if (is.na(NA_character_)) 
[18:41:59.954]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:59.954]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:59.954]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:59.954]                     .init = FALSE)
[18:41:59.954]                 }
[18:41:59.954]             }
[18:41:59.954]         }
[18:41:59.954]     })
[18:41:59.954]     if (TRUE) {
[18:41:59.954]         base::sink(type = "output", split = FALSE)
[18:41:59.954]         if (TRUE) {
[18:41:59.954]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:59.954]         }
[18:41:59.954]         else {
[18:41:59.954]             ...future.result["stdout"] <- base::list(NULL)
[18:41:59.954]         }
[18:41:59.954]         base::close(...future.stdout)
[18:41:59.954]         ...future.stdout <- NULL
[18:41:59.954]     }
[18:41:59.954]     ...future.result$conditions <- ...future.conditions
[18:41:59.954]     ...future.result$finished <- base::Sys.time()
[18:41:59.954]     ...future.result
[18:41:59.954] }
[18:41:59.959] assign_globals() ...
[18:41:59.959] List of 11
[18:41:59.959]  $ ...future.FUN            :function (x, ...)  
[18:41:59.959]  $ x_FUN                    :function (x, na.rm = TRUE)  
[18:41:59.959]  $ times                    : int 5
[18:41:59.959]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:41:59.959]  $ stop_if_not              :function (...)  
[18:41:59.959]  $ dim                      : NULL
[18:41:59.959]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:41:59.959]  $ future.call.arguments    : list()
[18:41:59.959]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:59.959]  $ ...future.elements_ii    :List of 7
[18:41:59.959]   ..$ : int [1:3] 1 2 3
[18:41:59.959]   ..$ : int [1:4] 1 2 3 4
[18:41:59.959]   ..$ : int [1:5] 1 2 3 4 5
[18:41:59.959]   ..$ : int [1:6] 1 2 3 4 5 6
[18:41:59.959]   ..$ : int [1:7] 1 2 3 4 5 6 7
[18:41:59.959]   ..$ : int [1:8] 1 2 3 4 5 6 7 8
[18:41:59.959]   ..$ : int [1:9] 1 2 3 4 5 6 7 8 9
[18:41:59.959]  $ ...future.seeds_ii       : NULL
[18:41:59.959]  $ ...future.globals.maxSize: NULL
[18:41:59.959]  - attr(*, "where")=List of 11
[18:41:59.959]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ times                    :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:59.959]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:59.959]  - attr(*, "resolved")= logi FALSE
[18:41:59.959]  - attr(*, "total_size")= num 48005
[18:41:59.959]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:59.959]  - attr(*, "already-done")= logi TRUE
[18:41:59.973] - copied '...future.FUN' to environment
[18:41:59.974] - copied 'x_FUN' to environment
[18:41:59.974] - copied 'times' to environment
[18:41:59.974] - copied 'stopf' to environment
[18:41:59.974] - copied 'stop_if_not' to environment
[18:41:59.974] - copied 'dim' to environment
[18:41:59.974] - copied 'valid_types' to environment
[18:41:59.975] - copied 'future.call.arguments' to environment
[18:41:59.975] - copied '...future.elements_ii' to environment
[18:41:59.975] - copied '...future.seeds_ii' to environment
[18:41:59.975] - copied '...future.globals.maxSize' to environment
[18:41:59.975] assign_globals() ... done
[18:41:59.976] plan(): Setting new future strategy stack:
[18:41:59.976] List of future strategies:
[18:41:59.976] 1. sequential:
[18:41:59.976]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.976]    - tweaked: FALSE
[18:41:59.976]    - call: NULL
[18:41:59.977] plan(): nbrOfWorkers() = 1
[18:41:59.978] plan(): Setting new future strategy stack:
[18:41:59.979] List of future strategies:
[18:41:59.979] 1. sequential:
[18:41:59.979]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:59.979]    - tweaked: FALSE
[18:41:59.979]    - call: plan(strategy)
[18:41:59.979] plan(): nbrOfWorkers() = 1
[18:41:59.980] SequentialFuture started (and completed)
[18:41:59.980] - Launch lazy future ... done
[18:41:59.980] run() for 'SequentialFuture' ... done
[18:41:59.980] Created future:
[18:41:59.980] SequentialFuture:
[18:41:59.980] Label: 'future_vapply-1'
[18:41:59.980] Expression:
[18:41:59.980] {
[18:41:59.980]     do.call(function(...) {
[18:41:59.980]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:59.980]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:59.980]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:59.980]             on.exit(options(oopts), add = TRUE)
[18:41:59.980]         }
[18:41:59.980]         {
[18:41:59.980]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:59.980]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:59.980]                 ...future.FUN(...future.X_jj, ...)
[18:41:59.980]             })
[18:41:59.980]         }
[18:41:59.980]     }, args = future.call.arguments)
[18:41:59.980] }
[18:41:59.980] Lazy evaluation: FALSE
[18:41:59.980] Asynchronous evaluation: FALSE
[18:41:59.980] Local evaluation: TRUE
[18:41:59.980] Environment: R_GlobalEnv
[18:41:59.980] Capture standard output: TRUE
[18:41:59.980] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:59.980] Globals: 11 objects totaling 27.44 KiB (function '...future.FUN' of 14.07 KiB, function 'x_FUN' of 4.67 KiB, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:41:59.980] Packages: 2 packages ('stats', 'future.apply')
[18:41:59.980] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:41:59.980] Resolved: TRUE
[18:41:59.980] Value: 367 bytes of class 'list'
[18:41:59.980] Early signaling: FALSE
[18:41:59.980] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:41:59.980] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:59.982] Chunk #1 of 1 ... DONE
[18:41:59.982] Launching 1 futures (chunks) ... DONE
[18:41:59.982] Resolving 1 futures (chunks) ...
[18:41:59.982] resolve() on list ...
[18:41:59.982]  recursive: 0
[18:41:59.983]  length: 1
[18:41:59.983] 
[18:41:59.983] resolved() for 'SequentialFuture' ...
[18:41:59.983] - state: 'finished'
[18:41:59.983] - run: TRUE
[18:41:59.983] - result: 'FutureResult'
[18:41:59.984] resolved() for 'SequentialFuture' ... done
[18:41:59.984] Future #1
[18:41:59.984] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:59.984] - nx: 1
[18:41:59.984] - relay: TRUE
[18:41:59.985] - stdout: TRUE
[18:41:59.985] - signal: TRUE
[18:41:59.985] - resignal: FALSE
[18:41:59.985] - force: TRUE
[18:41:59.985] - relayed: [n=1] FALSE
[18:41:59.985] - queued futures: [n=1] FALSE
[18:41:59.986]  - until=1
[18:41:59.986]  - relaying element #1
[18:41:59.986] - relayed: [n=1] TRUE
[18:41:59.986] - queued futures: [n=1] TRUE
[18:41:59.986] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:59.987]  length: 0 (resolved future 1)
[18:41:59.987] Relaying remaining futures
[18:41:59.987] signalConditionsASAP(NULL, pos=0) ...
[18:41:59.987] - nx: 1
[18:41:59.987] - relay: TRUE
[18:41:59.987] - stdout: TRUE
[18:41:59.988] - signal: TRUE
[18:41:59.988] - resignal: FALSE
[18:41:59.988] - force: TRUE
[18:41:59.988] - relayed: [n=1] TRUE
[18:41:59.988] - queued futures: [n=1] TRUE
 - flush all
[18:41:59.989] - relayed: [n=1] TRUE
[18:41:59.989] - queued futures: [n=1] TRUE
[18:41:59.989] signalConditionsASAP(NULL, pos=0) ... done
[18:41:59.989] resolve() on list ... DONE
[18:41:59.989]  - Number of value chunks collected: 1
[18:41:59.990] Resolving 1 futures (chunks) ... DONE
[18:41:59.990] Reducing values from 1 chunks ...
[18:41:59.990]  - Number of values collected after concatenation: 7
[18:41:59.990]  - Number of values expected: 7
[18:41:59.990] Reducing values from 1 chunks ... DONE
[18:41:59.990] future_lapply() ... DONE
 num [1:5, 1:7] 1 1.5 2 2.5 3 1 1.5 2.5 3.5 4 ...
 - attr(*, "dimnames")=List of 2
  ..$ : chr [1:5] "Min." "1st Qu." "Median" "3rd Qu." ...
  ..$ : NULL
[18:41:59.992] future_lapply() ...
[18:41:59.993] Number of chunks: 1
[18:41:59.994] getGlobalsAndPackagesXApply() ...
[18:41:59.994]  - future.globals: TRUE
[18:41:59.994] getGlobalsAndPackages() ...
[18:41:59.994] Searching for globals...
[18:41:59.996] - globals found: [3] 'FUN', 'outer', 'rep'
[18:41:59.996] Searching for globals ... DONE
[18:41:59.996] Resolving globals: FALSE
[18:41:59.997] The total size of the 1 globals is 680 bytes (680 bytes)
[18:41:59.997] The total size of the 1 globals exported for future expression ('FUN(y = c(2, 4, 6, 8, 10))') is 680 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (680 bytes of class 'function')
[18:41:59.997] - globals: [1] 'FUN'
[18:41:59.997] 
[18:41:59.998] getGlobalsAndPackages() ... DONE
[18:41:59.998]  - globals found/used: [n=1] 'FUN'
[18:41:59.998]  - needed namespaces: [n=0] 
[18:41:59.998] Finding globals ... DONE
[18:41:59.998]  - use_args: TRUE
[18:41:59.998]  - Getting '...' globals ...
[18:41:59.999] resolve() on list ...
[18:41:59.999]  recursive: 0
[18:41:59.999]  length: 1
[18:41:59.999]  elements: '...'
[18:42:00.000]  length: 0 (resolved future 1)
[18:42:00.000] resolve() on list ... DONE
[18:42:00.000]    - '...' content: [n=1] 'y'
[18:42:00.000] List of 1
[18:42:00.000]  $ ...:List of 1
[18:42:00.000]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:00.000]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.000]  - attr(*, "where")=List of 1
[18:42:00.000]   ..$ ...:<environment: 0x000002ea00368d48> 
[18:42:00.000]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.000]  - attr(*, "resolved")= logi TRUE
[18:42:00.000]  - attr(*, "total_size")= num NA
[18:42:00.004]  - Getting '...' globals ... DONE
[18:42:00.004] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:42:00.004] List of 2
[18:42:00.004]  $ ...future.FUN:function (x, y)  
[18:42:00.004]  $ ...          :List of 1
[18:42:00.004]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:00.004]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.004]  - attr(*, "where")=List of 2
[18:42:00.004]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:00.004]   ..$ ...          :<environment: 0x000002ea00368d48> 
[18:42:00.004]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.004]  - attr(*, "resolved")= logi FALSE
[18:42:00.004]  - attr(*, "total_size")= int 7318
[18:42:00.011] Packages to be attached in all futures: [n=0] 
[18:42:00.011] getGlobalsAndPackagesXApply() ... DONE
[18:42:00.012] Number of futures (= number of chunks): 1
[18:42:00.012] Launching 1 futures (chunks) ...
[18:42:00.012] Chunk #1 of 1 ...
[18:42:00.013]  - Finding globals in 'X' for chunk #1 ...
[18:42:00.013] getGlobalsAndPackages() ...
[18:42:00.013] Searching for globals...
[18:42:00.014] 
[18:42:00.014] Searching for globals ... DONE
[18:42:00.014] - globals: [0] <none>
[18:42:00.015] getGlobalsAndPackages() ... DONE
[18:42:00.015]    + additional globals found: [n=0] 
[18:42:00.015]    + additional namespaces needed: [n=0] 
[18:42:00.015]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:00.016]  - seeds: <none>
[18:42:00.016]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.016] getGlobalsAndPackages() ...
[18:42:00.017] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.017] Resolving globals: FALSE
[18:42:00.017] Tweak future expression to call with '...' arguments ...
[18:42:00.017] {
[18:42:00.017]     do.call(function(...) {
[18:42:00.017]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.017]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.017]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.017]             on.exit(options(oopts), add = TRUE)
[18:42:00.017]         }
[18:42:00.017]         {
[18:42:00.017]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.017]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.017]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.017]             })
[18:42:00.017]         }
[18:42:00.017]     }, args = future.call.arguments)
[18:42:00.017] }
[18:42:00.018] Tweak future expression to call with '...' arguments ... DONE
[18:42:00.019] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.019] 
[18:42:00.019] getGlobalsAndPackages() ... DONE
[18:42:00.020] run() for 'Future' ...
[18:42:00.020] - state: 'created'
[18:42:00.021] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:42:00.021] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.022] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:42:00.022]   - Field: 'label'
[18:42:00.022]   - Field: 'local'
[18:42:00.023]   - Field: 'owner'
[18:42:00.023]   - Field: 'envir'
[18:42:00.023]   - Field: 'packages'
[18:42:00.024]   - Field: 'gc'
[18:42:00.024]   - Field: 'conditions'
[18:42:00.024]   - Field: 'expr'
[18:42:00.024]   - Field: 'uuid'
[18:42:00.025]   - Field: 'seed'
[18:42:00.025]   - Field: 'version'
[18:42:00.025]   - Field: 'result'
[18:42:00.026]   - Field: 'asynchronous'
[18:42:00.026]   - Field: 'calls'
[18:42:00.026]   - Field: 'globals'
[18:42:00.026]   - Field: 'stdout'
[18:42:00.027]   - Field: 'earlySignal'
[18:42:00.027]   - Field: 'lazy'
[18:42:00.027]   - Field: 'state'
[18:42:00.028] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:42:00.028] - Launch lazy future ...
[18:42:00.028] Packages needed by the future expression (n = 0): <none>
[18:42:00.029] Packages needed by future strategies (n = 0): <none>
[18:42:00.030] {
[18:42:00.030]     {
[18:42:00.030]         {
[18:42:00.030]             ...future.startTime <- base::Sys.time()
[18:42:00.030]             {
[18:42:00.030]                 {
[18:42:00.030]                   {
[18:42:00.030]                     base::local({
[18:42:00.030]                       has_future <- base::requireNamespace("future", 
[18:42:00.030]                         quietly = TRUE)
[18:42:00.030]                       if (has_future) {
[18:42:00.030]                         ns <- base::getNamespace("future")
[18:42:00.030]                         version <- ns[[".package"]][["version"]]
[18:42:00.030]                         if (is.null(version)) 
[18:42:00.030]                           version <- utils::packageVersion("future")
[18:42:00.030]                       }
[18:42:00.030]                       else {
[18:42:00.030]                         version <- NULL
[18:42:00.030]                       }
[18:42:00.030]                       if (!has_future || version < "1.8.0") {
[18:42:00.030]                         info <- base::c(r_version = base::gsub("R version ", 
[18:42:00.030]                           "", base::R.version$version.string), 
[18:42:00.030]                           platform = base::sprintf("%s (%s-bit)", 
[18:42:00.030]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:00.030]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:00.030]                             "release", "version")], collapse = " "), 
[18:42:00.030]                           hostname = base::Sys.info()[["nodename"]])
[18:42:00.030]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:42:00.030]                           info)
[18:42:00.030]                         info <- base::paste(info, collapse = "; ")
[18:42:00.030]                         if (!has_future) {
[18:42:00.030]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:00.030]                             info)
[18:42:00.030]                         }
[18:42:00.030]                         else {
[18:42:00.030]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:00.030]                             info, version)
[18:42:00.030]                         }
[18:42:00.030]                         base::stop(msg)
[18:42:00.030]                       }
[18:42:00.030]                     })
[18:42:00.030]                   }
[18:42:00.030]                   ...future.strategy.old <- future::plan("list")
[18:42:00.030]                   options(future.plan = NULL)
[18:42:00.030]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.030]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:00.030]                 }
[18:42:00.030]                 ...future.workdir <- getwd()
[18:42:00.030]             }
[18:42:00.030]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:00.030]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:00.030]         }
[18:42:00.030]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:00.030]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:42:00.030]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:00.030]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:00.030]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:00.030]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:00.030]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:00.030]             base::names(...future.oldOptions))
[18:42:00.030]     }
[18:42:00.030]     if (FALSE) {
[18:42:00.030]     }
[18:42:00.030]     else {
[18:42:00.030]         if (TRUE) {
[18:42:00.030]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:00.030]                 open = "w")
[18:42:00.030]         }
[18:42:00.030]         else {
[18:42:00.030]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:00.030]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:00.030]         }
[18:42:00.030]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:00.030]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:00.030]             base::sink(type = "output", split = FALSE)
[18:42:00.030]             base::close(...future.stdout)
[18:42:00.030]         }, add = TRUE)
[18:42:00.030]     }
[18:42:00.030]     ...future.frame <- base::sys.nframe()
[18:42:00.030]     ...future.conditions <- base::list()
[18:42:00.030]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:00.030]     if (FALSE) {
[18:42:00.030]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:00.030]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:00.030]     }
[18:42:00.030]     ...future.result <- base::tryCatch({
[18:42:00.030]         base::withCallingHandlers({
[18:42:00.030]             ...future.value <- base::withVisible(base::local({
[18:42:00.030]                 do.call(function(...) {
[18:42:00.030]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.030]                   if (!identical(...future.globals.maxSize.org, 
[18:42:00.030]                     ...future.globals.maxSize)) {
[18:42:00.030]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.030]                     on.exit(options(oopts), add = TRUE)
[18:42:00.030]                   }
[18:42:00.030]                   {
[18:42:00.030]                     lapply(seq_along(...future.elements_ii), 
[18:42:00.030]                       FUN = function(jj) {
[18:42:00.030]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.030]                         ...future.FUN(...future.X_jj, ...)
[18:42:00.030]                       })
[18:42:00.030]                   }
[18:42:00.030]                 }, args = future.call.arguments)
[18:42:00.030]             }))
[18:42:00.030]             future::FutureResult(value = ...future.value$value, 
[18:42:00.030]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.030]                   ...future.rng), globalenv = if (FALSE) 
[18:42:00.030]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:00.030]                     ...future.globalenv.names))
[18:42:00.030]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:00.030]         }, condition = base::local({
[18:42:00.030]             c <- base::c
[18:42:00.030]             inherits <- base::inherits
[18:42:00.030]             invokeRestart <- base::invokeRestart
[18:42:00.030]             length <- base::length
[18:42:00.030]             list <- base::list
[18:42:00.030]             seq.int <- base::seq.int
[18:42:00.030]             signalCondition <- base::signalCondition
[18:42:00.030]             sys.calls <- base::sys.calls
[18:42:00.030]             `[[` <- base::`[[`
[18:42:00.030]             `+` <- base::`+`
[18:42:00.030]             `<<-` <- base::`<<-`
[18:42:00.030]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:00.030]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:00.030]                   3L)]
[18:42:00.030]             }
[18:42:00.030]             function(cond) {
[18:42:00.030]                 is_error <- inherits(cond, "error")
[18:42:00.030]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:00.030]                   NULL)
[18:42:00.030]                 if (is_error) {
[18:42:00.030]                   sessionInformation <- function() {
[18:42:00.030]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:00.030]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:00.030]                       search = base::search(), system = base::Sys.info())
[18:42:00.030]                   }
[18:42:00.030]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.030]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:00.030]                     cond$call), session = sessionInformation(), 
[18:42:00.030]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:00.030]                   signalCondition(cond)
[18:42:00.030]                 }
[18:42:00.030]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:00.030]                 "immediateCondition"))) {
[18:42:00.030]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:00.030]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.030]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:00.030]                   if (TRUE && !signal) {
[18:42:00.030]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.030]                     {
[18:42:00.030]                       inherits <- base::inherits
[18:42:00.030]                       invokeRestart <- base::invokeRestart
[18:42:00.030]                       is.null <- base::is.null
[18:42:00.030]                       muffled <- FALSE
[18:42:00.030]                       if (inherits(cond, "message")) {
[18:42:00.030]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.030]                         if (muffled) 
[18:42:00.030]                           invokeRestart("muffleMessage")
[18:42:00.030]                       }
[18:42:00.030]                       else if (inherits(cond, "warning")) {
[18:42:00.030]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.030]                         if (muffled) 
[18:42:00.030]                           invokeRestart("muffleWarning")
[18:42:00.030]                       }
[18:42:00.030]                       else if (inherits(cond, "condition")) {
[18:42:00.030]                         if (!is.null(pattern)) {
[18:42:00.030]                           computeRestarts <- base::computeRestarts
[18:42:00.030]                           grepl <- base::grepl
[18:42:00.030]                           restarts <- computeRestarts(cond)
[18:42:00.030]                           for (restart in restarts) {
[18:42:00.030]                             name <- restart$name
[18:42:00.030]                             if (is.null(name)) 
[18:42:00.030]                               next
[18:42:00.030]                             if (!grepl(pattern, name)) 
[18:42:00.030]                               next
[18:42:00.030]                             invokeRestart(restart)
[18:42:00.030]                             muffled <- TRUE
[18:42:00.030]                             break
[18:42:00.030]                           }
[18:42:00.030]                         }
[18:42:00.030]                       }
[18:42:00.030]                       invisible(muffled)
[18:42:00.030]                     }
[18:42:00.030]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.030]                   }
[18:42:00.030]                 }
[18:42:00.030]                 else {
[18:42:00.030]                   if (TRUE) {
[18:42:00.030]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.030]                     {
[18:42:00.030]                       inherits <- base::inherits
[18:42:00.030]                       invokeRestart <- base::invokeRestart
[18:42:00.030]                       is.null <- base::is.null
[18:42:00.030]                       muffled <- FALSE
[18:42:00.030]                       if (inherits(cond, "message")) {
[18:42:00.030]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.030]                         if (muffled) 
[18:42:00.030]                           invokeRestart("muffleMessage")
[18:42:00.030]                       }
[18:42:00.030]                       else if (inherits(cond, "warning")) {
[18:42:00.030]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.030]                         if (muffled) 
[18:42:00.030]                           invokeRestart("muffleWarning")
[18:42:00.030]                       }
[18:42:00.030]                       else if (inherits(cond, "condition")) {
[18:42:00.030]                         if (!is.null(pattern)) {
[18:42:00.030]                           computeRestarts <- base::computeRestarts
[18:42:00.030]                           grepl <- base::grepl
[18:42:00.030]                           restarts <- computeRestarts(cond)
[18:42:00.030]                           for (restart in restarts) {
[18:42:00.030]                             name <- restart$name
[18:42:00.030]                             if (is.null(name)) 
[18:42:00.030]                               next
[18:42:00.030]                             if (!grepl(pattern, name)) 
[18:42:00.030]                               next
[18:42:00.030]                             invokeRestart(restart)
[18:42:00.030]                             muffled <- TRUE
[18:42:00.030]                             break
[18:42:00.030]                           }
[18:42:00.030]                         }
[18:42:00.030]                       }
[18:42:00.030]                       invisible(muffled)
[18:42:00.030]                     }
[18:42:00.030]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.030]                   }
[18:42:00.030]                 }
[18:42:00.030]             }
[18:42:00.030]         }))
[18:42:00.030]     }, error = function(ex) {
[18:42:00.030]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:00.030]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.030]                 ...future.rng), started = ...future.startTime, 
[18:42:00.030]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:00.030]             version = "1.8"), class = "FutureResult")
[18:42:00.030]     }, finally = {
[18:42:00.030]         if (!identical(...future.workdir, getwd())) 
[18:42:00.030]             setwd(...future.workdir)
[18:42:00.030]         {
[18:42:00.030]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:00.030]                 ...future.oldOptions$nwarnings <- NULL
[18:42:00.030]             }
[18:42:00.030]             base::options(...future.oldOptions)
[18:42:00.030]             if (.Platform$OS.type == "windows") {
[18:42:00.030]                 old_names <- names(...future.oldEnvVars)
[18:42:00.030]                 envs <- base::Sys.getenv()
[18:42:00.030]                 names <- names(envs)
[18:42:00.030]                 common <- intersect(names, old_names)
[18:42:00.030]                 added <- setdiff(names, old_names)
[18:42:00.030]                 removed <- setdiff(old_names, names)
[18:42:00.030]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:00.030]                   envs[common]]
[18:42:00.030]                 NAMES <- toupper(changed)
[18:42:00.030]                 args <- list()
[18:42:00.030]                 for (kk in seq_along(NAMES)) {
[18:42:00.030]                   name <- changed[[kk]]
[18:42:00.030]                   NAME <- NAMES[[kk]]
[18:42:00.030]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.030]                     next
[18:42:00.030]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.030]                 }
[18:42:00.030]                 NAMES <- toupper(added)
[18:42:00.030]                 for (kk in seq_along(NAMES)) {
[18:42:00.030]                   name <- added[[kk]]
[18:42:00.030]                   NAME <- NAMES[[kk]]
[18:42:00.030]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.030]                     next
[18:42:00.030]                   args[[name]] <- ""
[18:42:00.030]                 }
[18:42:00.030]                 NAMES <- toupper(removed)
[18:42:00.030]                 for (kk in seq_along(NAMES)) {
[18:42:00.030]                   name <- removed[[kk]]
[18:42:00.030]                   NAME <- NAMES[[kk]]
[18:42:00.030]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.030]                     next
[18:42:00.030]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.030]                 }
[18:42:00.030]                 if (length(args) > 0) 
[18:42:00.030]                   base::do.call(base::Sys.setenv, args = args)
[18:42:00.030]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:00.030]             }
[18:42:00.030]             else {
[18:42:00.030]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:00.030]             }
[18:42:00.030]             {
[18:42:00.030]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:00.030]                   0L) {
[18:42:00.030]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:00.030]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:00.030]                   base::options(opts)
[18:42:00.030]                 }
[18:42:00.030]                 {
[18:42:00.030]                   {
[18:42:00.030]                     NULL
[18:42:00.030]                     RNGkind("Mersenne-Twister")
[18:42:00.030]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:42:00.030]                       inherits = FALSE)
[18:42:00.030]                   }
[18:42:00.030]                   options(future.plan = NULL)
[18:42:00.030]                   if (is.na(NA_character_)) 
[18:42:00.030]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.030]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:00.030]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:00.030]                     .init = FALSE)
[18:42:00.030]                 }
[18:42:00.030]             }
[18:42:00.030]         }
[18:42:00.030]     })
[18:42:00.030]     if (TRUE) {
[18:42:00.030]         base::sink(type = "output", split = FALSE)
[18:42:00.030]         if (TRUE) {
[18:42:00.030]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:00.030]         }
[18:42:00.030]         else {
[18:42:00.030]             ...future.result["stdout"] <- base::list(NULL)
[18:42:00.030]         }
[18:42:00.030]         base::close(...future.stdout)
[18:42:00.030]         ...future.stdout <- NULL
[18:42:00.030]     }
[18:42:00.030]     ...future.result$conditions <- ...future.conditions
[18:42:00.030]     ...future.result$finished <- base::Sys.time()
[18:42:00.030]     ...future.result
[18:42:00.030] }
[18:42:00.036] assign_globals() ...
[18:42:00.037] List of 5
[18:42:00.037]  $ ...future.FUN            :function (x, y)  
[18:42:00.037]  $ future.call.arguments    :List of 1
[18:42:00.037]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:00.037]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.037]  $ ...future.elements_ii    :List of 4
[18:42:00.037]   ..$ A: num 50
[18:42:00.037]   ..$ B: num 60
[18:42:00.037]   ..$ C: num 70
[18:42:00.037]   ..$ D: num 80
[18:42:00.037]  $ ...future.seeds_ii       : NULL
[18:42:00.037]  $ ...future.globals.maxSize: NULL
[18:42:00.037]  - attr(*, "where")=List of 5
[18:42:00.037]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:42:00.037]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:42:00.037]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:42:00.037]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:42:00.037]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:42:00.037]  - attr(*, "resolved")= logi FALSE
[18:42:00.037]  - attr(*, "total_size")= num 7318
[18:42:00.037]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.037]  - attr(*, "already-done")= logi TRUE
[18:42:00.049] - reassign environment for '...future.FUN'
[18:42:00.050] - copied '...future.FUN' to environment
[18:42:00.050] - copied 'future.call.arguments' to environment
[18:42:00.050] - copied '...future.elements_ii' to environment
[18:42:00.050] - copied '...future.seeds_ii' to environment
[18:42:00.051] - copied '...future.globals.maxSize' to environment
[18:42:00.051] assign_globals() ... done
[18:42:00.052] plan(): Setting new future strategy stack:
[18:42:00.052] List of future strategies:
[18:42:00.052] 1. sequential:
[18:42:00.052]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.052]    - tweaked: FALSE
[18:42:00.052]    - call: NULL
[18:42:00.053] plan(): nbrOfWorkers() = 1
[18:42:00.055] plan(): Setting new future strategy stack:
[18:42:00.055] List of future strategies:
[18:42:00.055] 1. sequential:
[18:42:00.055]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.055]    - tweaked: FALSE
[18:42:00.055]    - call: plan(strategy)
[18:42:00.056] plan(): nbrOfWorkers() = 1
[18:42:00.057] SequentialFuture started (and completed)
[18:42:00.057] - Launch lazy future ... done
[18:42:00.057] run() for 'SequentialFuture' ... done
[18:42:00.058] Created future:
[18:42:00.058] SequentialFuture:
[18:42:00.058] Label: 'future_sapply-1'
[18:42:00.058] Expression:
[18:42:00.058] {
[18:42:00.058]     do.call(function(...) {
[18:42:00.058]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.058]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.058]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.058]             on.exit(options(oopts), add = TRUE)
[18:42:00.058]         }
[18:42:00.058]         {
[18:42:00.058]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.058]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.058]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.058]             })
[18:42:00.058]         }
[18:42:00.058]     }, args = future.call.arguments)
[18:42:00.058] }
[18:42:00.058] Lazy evaluation: FALSE
[18:42:00.058] Asynchronous evaluation: FALSE
[18:42:00.058] Local evaluation: TRUE
[18:42:00.058] Environment: R_GlobalEnv
[18:42:00.058] Capture standard output: TRUE
[18:42:00.058] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:00.058] Globals: 5 objects totaling 1.06 KiB (function '...future.FUN' of 680 bytes, DotDotDotList 'future.call.arguments' of 183 bytes, list '...future.elements_ii' of 164 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:42:00.058] Packages: <none>
[18:42:00.058] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:00.058] Resolved: TRUE
[18:42:00.058] Value: 666 bytes of class 'list'
[18:42:00.058] Early signaling: FALSE
[18:42:00.058] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:00.058] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.060] Chunk #1 of 1 ... DONE
[18:42:00.060] Launching 1 futures (chunks) ... DONE
[18:42:00.060] Resolving 1 futures (chunks) ...
[18:42:00.061] resolve() on list ...
[18:42:00.061]  recursive: 0
[18:42:00.061]  length: 1
[18:42:00.062] 
[18:42:00.062] resolved() for 'SequentialFuture' ...
[18:42:00.062] - state: 'finished'
[18:42:00.062] - run: TRUE
[18:42:00.063] - result: 'FutureResult'
[18:42:00.063] resolved() for 'SequentialFuture' ... done
[18:42:00.063] Future #1
[18:42:00.064] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:42:00.064] - nx: 1
[18:42:00.064] - relay: TRUE
[18:42:00.065] - stdout: TRUE
[18:42:00.065] - signal: TRUE
[18:42:00.065] - resignal: FALSE
[18:42:00.065] - force: TRUE
[18:42:00.066] - relayed: [n=1] FALSE
[18:42:00.066] - queued futures: [n=1] FALSE
[18:42:00.066]  - until=1
[18:42:00.066]  - relaying element #1
[18:42:00.067] - relayed: [n=1] TRUE
[18:42:00.067] - queued futures: [n=1] TRUE
[18:42:00.067] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:42:00.068]  length: 0 (resolved future 1)
[18:42:00.068] Relaying remaining futures
[18:42:00.068] signalConditionsASAP(NULL, pos=0) ...
[18:42:00.068] - nx: 1
[18:42:00.069] - relay: TRUE
[18:42:00.069] - stdout: TRUE
[18:42:00.069] - signal: TRUE
[18:42:00.069] - resignal: FALSE
[18:42:00.070] - force: TRUE
[18:42:00.070] - relayed: [n=1] TRUE
[18:42:00.070] - queued futures: [n=1] TRUE
 - flush all
[18:42:00.071] - relayed: [n=1] TRUE
[18:42:00.071] - queued futures: [n=1] TRUE
[18:42:00.071] signalConditionsASAP(NULL, pos=0) ... done
[18:42:00.071] resolve() on list ... DONE
[18:42:00.072]  - Number of value chunks collected: 1
[18:42:00.072] Resolving 1 futures (chunks) ... DONE
[18:42:00.072] Reducing values from 1 chunks ...
[18:42:00.073]  - Number of values collected after concatenation: 4
[18:42:00.073]  - Number of values expected: 4
[18:42:00.073] Reducing values from 1 chunks ... DONE
[18:42:00.073] future_lapply() ... DONE
[18:42:00.074] future_lapply() ...
[18:42:00.078] Number of chunks: 1
[18:42:00.079] getGlobalsAndPackagesXApply() ...
[18:42:00.079]  - future.globals: TRUE
[18:42:00.079] getGlobalsAndPackages() ...
[18:42:00.079] Searching for globals...
[18:42:00.087] - globals found: [18] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'outer', 'rep'
[18:42:00.088] Searching for globals ... DONE
[18:42:00.088] Resolving globals: FALSE
[18:42:00.090] The total size of the 7 globals is 14.32 KiB (14666 bytes)
[18:42:00.091] The total size of the 7 globals exported for future expression ('FUN(y = c(2, 4, 6, 8, 10))') is 14.32 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (5.67 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:00.091] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.091] - packages: [1] 'future.apply'
[18:42:00.092] getGlobalsAndPackages() ... DONE
[18:42:00.092]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.092]  - needed namespaces: [n=1] 'future.apply'
[18:42:00.093] Finding globals ... DONE
[18:42:00.093]  - use_args: TRUE
[18:42:00.093]  - Getting '...' globals ...
[18:42:00.094] resolve() on list ...
[18:42:00.094]  recursive: 0
[18:42:00.094]  length: 1
[18:42:00.095]  elements: '...'
[18:42:00.095]  length: 0 (resolved future 1)
[18:42:00.095] resolve() on list ... DONE
[18:42:00.096]    - '...' content: [n=1] 'y'
[18:42:00.096] List of 1
[18:42:00.096]  $ ...:List of 1
[18:42:00.096]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:00.096]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.096]  - attr(*, "where")=List of 1
[18:42:00.096]   ..$ ...:<environment: 0x000002ea05998b70> 
[18:42:00.096]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.096]  - attr(*, "resolved")= logi TRUE
[18:42:00.096]  - attr(*, "total_size")= num NA
[18:42:00.102]  - Getting '...' globals ... DONE
[18:42:00.102] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:00.102] List of 8
[18:42:00.102]  $ ...future.FUN:function (x, ...)  
[18:42:00.102]  $ x_FUN        :function (x, y)  
[18:42:00.102]  $ times        : int 15
[18:42:00.102]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.102]  $ stop_if_not  :function (...)  
[18:42:00.102]  $ dim          : int [1:2] 3 5
[18:42:00.102]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:00.102]  $ ...          :List of 1
[18:42:00.102]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:00.102]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.102]  - attr(*, "where")=List of 8
[18:42:00.102]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:00.102]   ..$ ...          :<environment: 0x000002ea05998b70> 
[18:42:00.102]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.102]  - attr(*, "resolved")= logi FALSE
[18:42:00.102]  - attr(*, "total_size")= int 26659
[18:42:00.120] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:00.120] getGlobalsAndPackagesXApply() ... DONE
[18:42:00.120] Number of futures (= number of chunks): 1
[18:42:00.121] Launching 1 futures (chunks) ...
[18:42:00.121] Chunk #1 of 1 ...
[18:42:00.121]  - Finding globals in 'X' for chunk #1 ...
[18:42:00.121] getGlobalsAndPackages() ...
[18:42:00.122] Searching for globals...
[18:42:00.122] 
[18:42:00.122] Searching for globals ... DONE
[18:42:00.123] - globals: [0] <none>
[18:42:00.123] getGlobalsAndPackages() ... DONE
[18:42:00.123]    + additional globals found: [n=0] 
[18:42:00.123]    + additional namespaces needed: [n=0] 
[18:42:00.124]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:00.124]  - seeds: <none>
[18:42:00.124]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.125] getGlobalsAndPackages() ...
[18:42:00.125] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.125] Resolving globals: FALSE
[18:42:00.125] Tweak future expression to call with '...' arguments ...
[18:42:00.126] {
[18:42:00.126]     do.call(function(...) {
[18:42:00.126]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.126]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.126]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.126]             on.exit(options(oopts), add = TRUE)
[18:42:00.126]         }
[18:42:00.126]         {
[18:42:00.126]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.126]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.126]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.126]             })
[18:42:00.126]         }
[18:42:00.126]     }, args = future.call.arguments)
[18:42:00.126] }
[18:42:00.126] Tweak future expression to call with '...' arguments ... DONE
[18:42:00.127] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.128] - packages: [1] 'future.apply'
[18:42:00.128] getGlobalsAndPackages() ... DONE
[18:42:00.129] run() for 'Future' ...
[18:42:00.129] - state: 'created'
[18:42:00.129] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:42:00.130] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.130] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:42:00.131]   - Field: 'label'
[18:42:00.131]   - Field: 'local'
[18:42:00.131]   - Field: 'owner'
[18:42:00.131]   - Field: 'envir'
[18:42:00.132]   - Field: 'packages'
[18:42:00.132]   - Field: 'gc'
[18:42:00.132]   - Field: 'conditions'
[18:42:00.133]   - Field: 'expr'
[18:42:00.133]   - Field: 'uuid'
[18:42:00.133]   - Field: 'seed'
[18:42:00.133]   - Field: 'version'
[18:42:00.134]   - Field: 'result'
[18:42:00.134]   - Field: 'asynchronous'
[18:42:00.134]   - Field: 'calls'
[18:42:00.135]   - Field: 'globals'
[18:42:00.135]   - Field: 'stdout'
[18:42:00.135]   - Field: 'earlySignal'
[18:42:00.135]   - Field: 'lazy'
[18:42:00.136]   - Field: 'state'
[18:42:00.136] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:42:00.136] - Launch lazy future ...
[18:42:00.137] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:00.137] Packages needed by future strategies (n = 0): <none>
[18:42:00.138] {
[18:42:00.138]     {
[18:42:00.138]         {
[18:42:00.138]             ...future.startTime <- base::Sys.time()
[18:42:00.138]             {
[18:42:00.138]                 {
[18:42:00.138]                   {
[18:42:00.138]                     {
[18:42:00.138]                       base::local({
[18:42:00.138]                         has_future <- base::requireNamespace("future", 
[18:42:00.138]                           quietly = TRUE)
[18:42:00.138]                         if (has_future) {
[18:42:00.138]                           ns <- base::getNamespace("future")
[18:42:00.138]                           version <- ns[[".package"]][["version"]]
[18:42:00.138]                           if (is.null(version)) 
[18:42:00.138]                             version <- utils::packageVersion("future")
[18:42:00.138]                         }
[18:42:00.138]                         else {
[18:42:00.138]                           version <- NULL
[18:42:00.138]                         }
[18:42:00.138]                         if (!has_future || version < "1.8.0") {
[18:42:00.138]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:00.138]                             "", base::R.version$version.string), 
[18:42:00.138]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:00.138]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:00.138]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:00.138]                               "release", "version")], collapse = " "), 
[18:42:00.138]                             hostname = base::Sys.info()[["nodename"]])
[18:42:00.138]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:00.138]                             info)
[18:42:00.138]                           info <- base::paste(info, collapse = "; ")
[18:42:00.138]                           if (!has_future) {
[18:42:00.138]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:00.138]                               info)
[18:42:00.138]                           }
[18:42:00.138]                           else {
[18:42:00.138]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:00.138]                               info, version)
[18:42:00.138]                           }
[18:42:00.138]                           base::stop(msg)
[18:42:00.138]                         }
[18:42:00.138]                       })
[18:42:00.138]                     }
[18:42:00.138]                     base::local({
[18:42:00.138]                       for (pkg in "future.apply") {
[18:42:00.138]                         base::loadNamespace(pkg)
[18:42:00.138]                         base::library(pkg, character.only = TRUE)
[18:42:00.138]                       }
[18:42:00.138]                     })
[18:42:00.138]                   }
[18:42:00.138]                   ...future.strategy.old <- future::plan("list")
[18:42:00.138]                   options(future.plan = NULL)
[18:42:00.138]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.138]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:00.138]                 }
[18:42:00.138]                 ...future.workdir <- getwd()
[18:42:00.138]             }
[18:42:00.138]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:00.138]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:00.138]         }
[18:42:00.138]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:00.138]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:42:00.138]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:00.138]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:00.138]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:00.138]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:00.138]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:00.138]             base::names(...future.oldOptions))
[18:42:00.138]     }
[18:42:00.138]     if (FALSE) {
[18:42:00.138]     }
[18:42:00.138]     else {
[18:42:00.138]         if (TRUE) {
[18:42:00.138]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:00.138]                 open = "w")
[18:42:00.138]         }
[18:42:00.138]         else {
[18:42:00.138]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:00.138]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:00.138]         }
[18:42:00.138]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:00.138]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:00.138]             base::sink(type = "output", split = FALSE)
[18:42:00.138]             base::close(...future.stdout)
[18:42:00.138]         }, add = TRUE)
[18:42:00.138]     }
[18:42:00.138]     ...future.frame <- base::sys.nframe()
[18:42:00.138]     ...future.conditions <- base::list()
[18:42:00.138]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:00.138]     if (FALSE) {
[18:42:00.138]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:00.138]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:00.138]     }
[18:42:00.138]     ...future.result <- base::tryCatch({
[18:42:00.138]         base::withCallingHandlers({
[18:42:00.138]             ...future.value <- base::withVisible(base::local({
[18:42:00.138]                 do.call(function(...) {
[18:42:00.138]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.138]                   if (!identical(...future.globals.maxSize.org, 
[18:42:00.138]                     ...future.globals.maxSize)) {
[18:42:00.138]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.138]                     on.exit(options(oopts), add = TRUE)
[18:42:00.138]                   }
[18:42:00.138]                   {
[18:42:00.138]                     lapply(seq_along(...future.elements_ii), 
[18:42:00.138]                       FUN = function(jj) {
[18:42:00.138]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.138]                         ...future.FUN(...future.X_jj, ...)
[18:42:00.138]                       })
[18:42:00.138]                   }
[18:42:00.138]                 }, args = future.call.arguments)
[18:42:00.138]             }))
[18:42:00.138]             future::FutureResult(value = ...future.value$value, 
[18:42:00.138]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.138]                   ...future.rng), globalenv = if (FALSE) 
[18:42:00.138]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:00.138]                     ...future.globalenv.names))
[18:42:00.138]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:00.138]         }, condition = base::local({
[18:42:00.138]             c <- base::c
[18:42:00.138]             inherits <- base::inherits
[18:42:00.138]             invokeRestart <- base::invokeRestart
[18:42:00.138]             length <- base::length
[18:42:00.138]             list <- base::list
[18:42:00.138]             seq.int <- base::seq.int
[18:42:00.138]             signalCondition <- base::signalCondition
[18:42:00.138]             sys.calls <- base::sys.calls
[18:42:00.138]             `[[` <- base::`[[`
[18:42:00.138]             `+` <- base::`+`
[18:42:00.138]             `<<-` <- base::`<<-`
[18:42:00.138]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:00.138]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:00.138]                   3L)]
[18:42:00.138]             }
[18:42:00.138]             function(cond) {
[18:42:00.138]                 is_error <- inherits(cond, "error")
[18:42:00.138]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:00.138]                   NULL)
[18:42:00.138]                 if (is_error) {
[18:42:00.138]                   sessionInformation <- function() {
[18:42:00.138]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:00.138]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:00.138]                       search = base::search(), system = base::Sys.info())
[18:42:00.138]                   }
[18:42:00.138]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.138]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:00.138]                     cond$call), session = sessionInformation(), 
[18:42:00.138]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:00.138]                   signalCondition(cond)
[18:42:00.138]                 }
[18:42:00.138]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:00.138]                 "immediateCondition"))) {
[18:42:00.138]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:00.138]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.138]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:00.138]                   if (TRUE && !signal) {
[18:42:00.138]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.138]                     {
[18:42:00.138]                       inherits <- base::inherits
[18:42:00.138]                       invokeRestart <- base::invokeRestart
[18:42:00.138]                       is.null <- base::is.null
[18:42:00.138]                       muffled <- FALSE
[18:42:00.138]                       if (inherits(cond, "message")) {
[18:42:00.138]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.138]                         if (muffled) 
[18:42:00.138]                           invokeRestart("muffleMessage")
[18:42:00.138]                       }
[18:42:00.138]                       else if (inherits(cond, "warning")) {
[18:42:00.138]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.138]                         if (muffled) 
[18:42:00.138]                           invokeRestart("muffleWarning")
[18:42:00.138]                       }
[18:42:00.138]                       else if (inherits(cond, "condition")) {
[18:42:00.138]                         if (!is.null(pattern)) {
[18:42:00.138]                           computeRestarts <- base::computeRestarts
[18:42:00.138]                           grepl <- base::grepl
[18:42:00.138]                           restarts <- computeRestarts(cond)
[18:42:00.138]                           for (restart in restarts) {
[18:42:00.138]                             name <- restart$name
[18:42:00.138]                             if (is.null(name)) 
[18:42:00.138]                               next
[18:42:00.138]                             if (!grepl(pattern, name)) 
[18:42:00.138]                               next
[18:42:00.138]                             invokeRestart(restart)
[18:42:00.138]                             muffled <- TRUE
[18:42:00.138]                             break
[18:42:00.138]                           }
[18:42:00.138]                         }
[18:42:00.138]                       }
[18:42:00.138]                       invisible(muffled)
[18:42:00.138]                     }
[18:42:00.138]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.138]                   }
[18:42:00.138]                 }
[18:42:00.138]                 else {
[18:42:00.138]                   if (TRUE) {
[18:42:00.138]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.138]                     {
[18:42:00.138]                       inherits <- base::inherits
[18:42:00.138]                       invokeRestart <- base::invokeRestart
[18:42:00.138]                       is.null <- base::is.null
[18:42:00.138]                       muffled <- FALSE
[18:42:00.138]                       if (inherits(cond, "message")) {
[18:42:00.138]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.138]                         if (muffled) 
[18:42:00.138]                           invokeRestart("muffleMessage")
[18:42:00.138]                       }
[18:42:00.138]                       else if (inherits(cond, "warning")) {
[18:42:00.138]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.138]                         if (muffled) 
[18:42:00.138]                           invokeRestart("muffleWarning")
[18:42:00.138]                       }
[18:42:00.138]                       else if (inherits(cond, "condition")) {
[18:42:00.138]                         if (!is.null(pattern)) {
[18:42:00.138]                           computeRestarts <- base::computeRestarts
[18:42:00.138]                           grepl <- base::grepl
[18:42:00.138]                           restarts <- computeRestarts(cond)
[18:42:00.138]                           for (restart in restarts) {
[18:42:00.138]                             name <- restart$name
[18:42:00.138]                             if (is.null(name)) 
[18:42:00.138]                               next
[18:42:00.138]                             if (!grepl(pattern, name)) 
[18:42:00.138]                               next
[18:42:00.138]                             invokeRestart(restart)
[18:42:00.138]                             muffled <- TRUE
[18:42:00.138]                             break
[18:42:00.138]                           }
[18:42:00.138]                         }
[18:42:00.138]                       }
[18:42:00.138]                       invisible(muffled)
[18:42:00.138]                     }
[18:42:00.138]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.138]                   }
[18:42:00.138]                 }
[18:42:00.138]             }
[18:42:00.138]         }))
[18:42:00.138]     }, error = function(ex) {
[18:42:00.138]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:00.138]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.138]                 ...future.rng), started = ...future.startTime, 
[18:42:00.138]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:00.138]             version = "1.8"), class = "FutureResult")
[18:42:00.138]     }, finally = {
[18:42:00.138]         if (!identical(...future.workdir, getwd())) 
[18:42:00.138]             setwd(...future.workdir)
[18:42:00.138]         {
[18:42:00.138]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:00.138]                 ...future.oldOptions$nwarnings <- NULL
[18:42:00.138]             }
[18:42:00.138]             base::options(...future.oldOptions)
[18:42:00.138]             if (.Platform$OS.type == "windows") {
[18:42:00.138]                 old_names <- names(...future.oldEnvVars)
[18:42:00.138]                 envs <- base::Sys.getenv()
[18:42:00.138]                 names <- names(envs)
[18:42:00.138]                 common <- intersect(names, old_names)
[18:42:00.138]                 added <- setdiff(names, old_names)
[18:42:00.138]                 removed <- setdiff(old_names, names)
[18:42:00.138]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:00.138]                   envs[common]]
[18:42:00.138]                 NAMES <- toupper(changed)
[18:42:00.138]                 args <- list()
[18:42:00.138]                 for (kk in seq_along(NAMES)) {
[18:42:00.138]                   name <- changed[[kk]]
[18:42:00.138]                   NAME <- NAMES[[kk]]
[18:42:00.138]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.138]                     next
[18:42:00.138]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.138]                 }
[18:42:00.138]                 NAMES <- toupper(added)
[18:42:00.138]                 for (kk in seq_along(NAMES)) {
[18:42:00.138]                   name <- added[[kk]]
[18:42:00.138]                   NAME <- NAMES[[kk]]
[18:42:00.138]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.138]                     next
[18:42:00.138]                   args[[name]] <- ""
[18:42:00.138]                 }
[18:42:00.138]                 NAMES <- toupper(removed)
[18:42:00.138]                 for (kk in seq_along(NAMES)) {
[18:42:00.138]                   name <- removed[[kk]]
[18:42:00.138]                   NAME <- NAMES[[kk]]
[18:42:00.138]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.138]                     next
[18:42:00.138]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.138]                 }
[18:42:00.138]                 if (length(args) > 0) 
[18:42:00.138]                   base::do.call(base::Sys.setenv, args = args)
[18:42:00.138]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:00.138]             }
[18:42:00.138]             else {
[18:42:00.138]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:00.138]             }
[18:42:00.138]             {
[18:42:00.138]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:00.138]                   0L) {
[18:42:00.138]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:00.138]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:00.138]                   base::options(opts)
[18:42:00.138]                 }
[18:42:00.138]                 {
[18:42:00.138]                   {
[18:42:00.138]                     NULL
[18:42:00.138]                     RNGkind("Mersenne-Twister")
[18:42:00.138]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:42:00.138]                       inherits = FALSE)
[18:42:00.138]                   }
[18:42:00.138]                   options(future.plan = NULL)
[18:42:00.138]                   if (is.na(NA_character_)) 
[18:42:00.138]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.138]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:00.138]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:00.138]                     .init = FALSE)
[18:42:00.138]                 }
[18:42:00.138]             }
[18:42:00.138]         }
[18:42:00.138]     })
[18:42:00.138]     if (TRUE) {
[18:42:00.138]         base::sink(type = "output", split = FALSE)
[18:42:00.138]         if (TRUE) {
[18:42:00.138]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:00.138]         }
[18:42:00.138]         else {
[18:42:00.138]             ...future.result["stdout"] <- base::list(NULL)
[18:42:00.138]         }
[18:42:00.138]         base::close(...future.stdout)
[18:42:00.138]         ...future.stdout <- NULL
[18:42:00.138]     }
[18:42:00.138]     ...future.result$conditions <- ...future.conditions
[18:42:00.138]     ...future.result$finished <- base::Sys.time()
[18:42:00.138]     ...future.result
[18:42:00.138] }
[18:42:00.144] assign_globals() ...
[18:42:00.145] List of 11
[18:42:00.145]  $ ...future.FUN            :function (x, ...)  
[18:42:00.145]  $ x_FUN                    :function (x, y)  
[18:42:00.145]  $ times                    : int 15
[18:42:00.145]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.145]  $ stop_if_not              :function (...)  
[18:42:00.145]  $ dim                      : int [1:2] 3 5
[18:42:00.145]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:42:00.145]  $ future.call.arguments    :List of 1
[18:42:00.145]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:00.145]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.145]  $ ...future.elements_ii    :List of 4
[18:42:00.145]   ..$ A: num 50
[18:42:00.145]   ..$ B: num 60
[18:42:00.145]   ..$ C: num 70
[18:42:00.145]   ..$ D: num 80
[18:42:00.145]  $ ...future.seeds_ii       : NULL
[18:42:00.145]  $ ...future.globals.maxSize: NULL
[18:42:00.145]  - attr(*, "where")=List of 11
[18:42:00.145]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ times                    :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:42:00.145]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:42:00.145]  - attr(*, "resolved")= logi FALSE
[18:42:00.145]  - attr(*, "total_size")= num 26659
[18:42:00.145]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.145]  - attr(*, "already-done")= logi TRUE
[18:42:00.172] - copied '...future.FUN' to environment
[18:42:00.173] - reassign environment for 'x_FUN'
[18:42:00.173] - copied 'x_FUN' to environment
[18:42:00.173] - copied 'times' to environment
[18:42:00.174] - copied 'stopf' to environment
[18:42:00.174] - copied 'stop_if_not' to environment
[18:42:00.174] - copied 'dim' to environment
[18:42:00.175] - copied 'valid_types' to environment
[18:42:00.175] - copied 'future.call.arguments' to environment
[18:42:00.175] - copied '...future.elements_ii' to environment
[18:42:00.176] - copied '...future.seeds_ii' to environment
[18:42:00.176] - copied '...future.globals.maxSize' to environment
[18:42:00.176] assign_globals() ... done
[18:42:00.178] plan(): Setting new future strategy stack:
[18:42:00.178] List of future strategies:
[18:42:00.178] 1. sequential:
[18:42:00.178]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.178]    - tweaked: FALSE
[18:42:00.178]    - call: NULL
[18:42:00.180] plan(): nbrOfWorkers() = 1
[18:42:00.183] plan(): Setting new future strategy stack:
[18:42:00.184] List of future strategies:
[18:42:00.184] 1. sequential:
[18:42:00.184]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.184]    - tweaked: FALSE
[18:42:00.184]    - call: plan(strategy)
[18:42:00.185] plan(): nbrOfWorkers() = 1
[18:42:00.186] SequentialFuture started (and completed)
[18:42:00.186] - Launch lazy future ... done
[18:42:00.186] run() for 'SequentialFuture' ... done
[18:42:00.187] Created future:
[18:42:00.187] SequentialFuture:
[18:42:00.187] Label: 'future_vapply-1'
[18:42:00.187] Expression:
[18:42:00.187] {
[18:42:00.187]     do.call(function(...) {
[18:42:00.187]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.187]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.187]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.187]             on.exit(options(oopts), add = TRUE)
[18:42:00.187]         }
[18:42:00.187]         {
[18:42:00.187]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.187]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.187]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.187]             })
[18:42:00.187]         }
[18:42:00.187]     }, args = future.call.arguments)
[18:42:00.187] }
[18:42:00.187] Lazy evaluation: FALSE
[18:42:00.187] Asynchronous evaluation: FALSE
[18:42:00.187] Local evaluation: TRUE
[18:42:00.187] Environment: R_GlobalEnv
[18:42:00.187] Capture standard output: TRUE
[18:42:00.187] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:00.187] Globals: 11 objects totaling 14.71 KiB (function '...future.FUN' of 5.67 KiB, function 'x_FUN' of 680 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:00.187] Packages: 1 packages ('future.apply')
[18:42:00.187] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:00.187] Resolved: TRUE
[18:42:00.187] Value: 666 bytes of class 'list'
[18:42:00.187] Early signaling: FALSE
[18:42:00.187] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:00.187] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.190] Chunk #1 of 1 ... DONE
[18:42:00.191] Launching 1 futures (chunks) ... DONE
[18:42:00.191] Resolving 1 futures (chunks) ...
[18:42:00.192] resolve() on list ...
[18:42:00.192]  recursive: 0
[18:42:00.192]  length: 1
[18:42:00.193] 
[18:42:00.193] resolved() for 'SequentialFuture' ...
[18:42:00.193] - state: 'finished'
[18:42:00.193] - run: TRUE
[18:42:00.194] - result: 'FutureResult'
[18:42:00.194] resolved() for 'SequentialFuture' ... done
[18:42:00.194] Future #1
[18:42:00.194] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:42:00.195] - nx: 1
[18:42:00.195] - relay: TRUE
[18:42:00.195] - stdout: TRUE
[18:42:00.195] - signal: TRUE
[18:42:00.195] - resignal: FALSE
[18:42:00.196] - force: TRUE
[18:42:00.196] - relayed: [n=1] FALSE
[18:42:00.196] - queued futures: [n=1] FALSE
[18:42:00.196]  - until=1
[18:42:00.196]  - relaying element #1
[18:42:00.197] - relayed: [n=1] TRUE
[18:42:00.197] - queued futures: [n=1] TRUE
[18:42:00.197] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:42:00.198]  length: 0 (resolved future 1)
[18:42:00.198] Relaying remaining futures
[18:42:00.198] signalConditionsASAP(NULL, pos=0) ...
[18:42:00.198] - nx: 1
[18:42:00.198] - relay: TRUE
[18:42:00.199] - stdout: TRUE
[18:42:00.199] - signal: TRUE
[18:42:00.199] - resignal: FALSE
[18:42:00.199] - force: TRUE
[18:42:00.199] - relayed: [n=1] TRUE
[18:42:00.200] - queued futures: [n=1] TRUE
 - flush all
[18:42:00.200] - relayed: [n=1] TRUE
[18:42:00.200] - queued futures: [n=1] TRUE
[18:42:00.200] signalConditionsASAP(NULL, pos=0) ... done
[18:42:00.201] resolve() on list ... DONE
[18:42:00.201]  - Number of value chunks collected: 1
[18:42:00.201] Resolving 1 futures (chunks) ... DONE
[18:42:00.201] Reducing values from 1 chunks ...
[18:42:00.202]  - Number of values collected after concatenation: 4
[18:42:00.202]  - Number of values expected: 4
[18:42:00.202] Reducing values from 1 chunks ... DONE
[18:42:00.202] future_lapply() ... DONE
 num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ...
 - attr(*, "dimnames")=List of 3
  ..$ : NULL
  ..$ : NULL
  ..$ : chr [1:4] "A" "B" "C" "D"
[18:42:00.206] future_lapply() ...
[18:42:00.210] Number of chunks: 1
[18:42:00.210] getGlobalsAndPackagesXApply() ...
[18:42:00.210]  - future.globals: TRUE
[18:42:00.210] getGlobalsAndPackages() ...
[18:42:00.211] Searching for globals...
[18:42:00.217] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:00.217] Searching for globals ... DONE
[18:42:00.217] Resolving globals: FALSE
[18:42:00.219] The total size of the 7 globals is 14.73 KiB (15079 bytes)
[18:42:00.220] The total size of the 7 globals exported for future expression ('FUN()') is 14.73 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (6.74 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:00.220] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.220] - packages: [1] 'future.apply'
[18:42:00.221] getGlobalsAndPackages() ... DONE
[18:42:00.221]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.221]  - needed namespaces: [n=1] 'future.apply'
[18:42:00.221] Finding globals ... DONE
[18:42:00.222]  - use_args: TRUE
[18:42:00.222]  - Getting '...' globals ...
[18:42:00.223] resolve() on list ...
[18:42:00.223]  recursive: 0
[18:42:00.223]  length: 1
[18:42:00.223]  elements: '...'
[18:42:00.224]  length: 0 (resolved future 1)
[18:42:00.224] resolve() on list ... DONE
[18:42:00.224]    - '...' content: [n=0] 
[18:42:00.224] List of 1
[18:42:00.224]  $ ...: list()
[18:42:00.224]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.224]  - attr(*, "where")=List of 1
[18:42:00.224]   ..$ ...:<environment: 0x000002ea03a38fd0> 
[18:42:00.224]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.224]  - attr(*, "resolved")= logi TRUE
[18:42:00.224]  - attr(*, "total_size")= num NA
[18:42:00.229]  - Getting '...' globals ... DONE
[18:42:00.229] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:00.230] List of 8
[18:42:00.230]  $ ...future.FUN:function (x, ...)  
[18:42:00.230]  $ x_FUN        :function (x)  
[18:42:00.230]  $ times        : int 1
[18:42:00.230]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.230]  $ stop_if_not  :function (...)  
[18:42:00.230]  $ dim          : NULL
[18:42:00.230]  $ valid_types  : chr "logical"
[18:42:00.230]  $ ...          : list()
[18:42:00.230]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.230]  - attr(*, "where")=List of 8
[18:42:00.230]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:00.230]   ..$ ...          :<environment: 0x000002ea03a38fd0> 
[18:42:00.230]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.230]  - attr(*, "resolved")= logi FALSE
[18:42:00.230]  - attr(*, "total_size")= int 30734
[18:42:00.240] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:00.240] getGlobalsAndPackagesXApply() ... DONE
[18:42:00.241] Number of futures (= number of chunks): 1
[18:42:00.241] Launching 1 futures (chunks) ...
[18:42:00.241] Chunk #1 of 1 ...
[18:42:00.241]  - Finding globals in 'X' for chunk #1 ...
[18:42:00.242] getGlobalsAndPackages() ...
[18:42:00.242] Searching for globals...
[18:42:00.242] 
[18:42:00.243] Searching for globals ... DONE
[18:42:00.243] - globals: [0] <none>
[18:42:00.243] getGlobalsAndPackages() ... DONE
[18:42:00.243]    + additional globals found: [n=0] 
[18:42:00.244]    + additional namespaces needed: [n=0] 
[18:42:00.244]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:00.244]  - seeds: <none>
[18:42:00.244]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.244] getGlobalsAndPackages() ...
[18:42:00.245] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.245] Resolving globals: FALSE
[18:42:00.245] Tweak future expression to call with '...' arguments ...
[18:42:00.245] {
[18:42:00.245]     do.call(function(...) {
[18:42:00.245]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.245]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.245]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.245]             on.exit(options(oopts), add = TRUE)
[18:42:00.245]         }
[18:42:00.245]         {
[18:42:00.245]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.245]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.245]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.245]             })
[18:42:00.245]         }
[18:42:00.245]     }, args = future.call.arguments)
[18:42:00.245] }
[18:42:00.246] Tweak future expression to call with '...' arguments ... DONE
[18:42:00.247] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.247] - packages: [1] 'future.apply'
[18:42:00.248] getGlobalsAndPackages() ... DONE
[18:42:00.248] run() for 'Future' ...
[18:42:00.248] - state: 'created'
[18:42:00.249] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:42:00.250] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.250] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:42:00.250]   - Field: 'label'
[18:42:00.250]   - Field: 'local'
[18:42:00.251]   - Field: 'owner'
[18:42:00.251]   - Field: 'envir'
[18:42:00.251]   - Field: 'packages'
[18:42:00.251]   - Field: 'gc'
[18:42:00.251]   - Field: 'conditions'
[18:42:00.252]   - Field: 'expr'
[18:42:00.252]   - Field: 'uuid'
[18:42:00.252]   - Field: 'seed'
[18:42:00.252]   - Field: 'version'
[18:42:00.253]   - Field: 'result'
[18:42:00.253]   - Field: 'asynchronous'
[18:42:00.253]   - Field: 'calls'
[18:42:00.253]   - Field: 'globals'
[18:42:00.254]   - Field: 'stdout'
[18:42:00.254]   - Field: 'earlySignal'
[18:42:00.254]   - Field: 'lazy'
[18:42:00.254]   - Field: 'state'
[18:42:00.255] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:42:00.255] - Launch lazy future ...
[18:42:00.255] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:00.255] Packages needed by future strategies (n = 0): <none>
[18:42:00.257] {
[18:42:00.257]     {
[18:42:00.257]         {
[18:42:00.257]             ...future.startTime <- base::Sys.time()
[18:42:00.257]             {
[18:42:00.257]                 {
[18:42:00.257]                   {
[18:42:00.257]                     {
[18:42:00.257]                       base::local({
[18:42:00.257]                         has_future <- base::requireNamespace("future", 
[18:42:00.257]                           quietly = TRUE)
[18:42:00.257]                         if (has_future) {
[18:42:00.257]                           ns <- base::getNamespace("future")
[18:42:00.257]                           version <- ns[[".package"]][["version"]]
[18:42:00.257]                           if (is.null(version)) 
[18:42:00.257]                             version <- utils::packageVersion("future")
[18:42:00.257]                         }
[18:42:00.257]                         else {
[18:42:00.257]                           version <- NULL
[18:42:00.257]                         }
[18:42:00.257]                         if (!has_future || version < "1.8.0") {
[18:42:00.257]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:00.257]                             "", base::R.version$version.string), 
[18:42:00.257]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:00.257]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:00.257]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:00.257]                               "release", "version")], collapse = " "), 
[18:42:00.257]                             hostname = base::Sys.info()[["nodename"]])
[18:42:00.257]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:00.257]                             info)
[18:42:00.257]                           info <- base::paste(info, collapse = "; ")
[18:42:00.257]                           if (!has_future) {
[18:42:00.257]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:00.257]                               info)
[18:42:00.257]                           }
[18:42:00.257]                           else {
[18:42:00.257]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:00.257]                               info, version)
[18:42:00.257]                           }
[18:42:00.257]                           base::stop(msg)
[18:42:00.257]                         }
[18:42:00.257]                       })
[18:42:00.257]                     }
[18:42:00.257]                     base::local({
[18:42:00.257]                       for (pkg in "future.apply") {
[18:42:00.257]                         base::loadNamespace(pkg)
[18:42:00.257]                         base::library(pkg, character.only = TRUE)
[18:42:00.257]                       }
[18:42:00.257]                     })
[18:42:00.257]                   }
[18:42:00.257]                   ...future.strategy.old <- future::plan("list")
[18:42:00.257]                   options(future.plan = NULL)
[18:42:00.257]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.257]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:00.257]                 }
[18:42:00.257]                 ...future.workdir <- getwd()
[18:42:00.257]             }
[18:42:00.257]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:00.257]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:00.257]         }
[18:42:00.257]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:00.257]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:42:00.257]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:00.257]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:00.257]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:00.257]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:00.257]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:00.257]             base::names(...future.oldOptions))
[18:42:00.257]     }
[18:42:00.257]     if (FALSE) {
[18:42:00.257]     }
[18:42:00.257]     else {
[18:42:00.257]         if (TRUE) {
[18:42:00.257]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:00.257]                 open = "w")
[18:42:00.257]         }
[18:42:00.257]         else {
[18:42:00.257]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:00.257]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:00.257]         }
[18:42:00.257]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:00.257]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:00.257]             base::sink(type = "output", split = FALSE)
[18:42:00.257]             base::close(...future.stdout)
[18:42:00.257]         }, add = TRUE)
[18:42:00.257]     }
[18:42:00.257]     ...future.frame <- base::sys.nframe()
[18:42:00.257]     ...future.conditions <- base::list()
[18:42:00.257]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:00.257]     if (FALSE) {
[18:42:00.257]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:00.257]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:00.257]     }
[18:42:00.257]     ...future.result <- base::tryCatch({
[18:42:00.257]         base::withCallingHandlers({
[18:42:00.257]             ...future.value <- base::withVisible(base::local({
[18:42:00.257]                 do.call(function(...) {
[18:42:00.257]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.257]                   if (!identical(...future.globals.maxSize.org, 
[18:42:00.257]                     ...future.globals.maxSize)) {
[18:42:00.257]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.257]                     on.exit(options(oopts), add = TRUE)
[18:42:00.257]                   }
[18:42:00.257]                   {
[18:42:00.257]                     lapply(seq_along(...future.elements_ii), 
[18:42:00.257]                       FUN = function(jj) {
[18:42:00.257]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.257]                         ...future.FUN(...future.X_jj, ...)
[18:42:00.257]                       })
[18:42:00.257]                   }
[18:42:00.257]                 }, args = future.call.arguments)
[18:42:00.257]             }))
[18:42:00.257]             future::FutureResult(value = ...future.value$value, 
[18:42:00.257]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.257]                   ...future.rng), globalenv = if (FALSE) 
[18:42:00.257]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:00.257]                     ...future.globalenv.names))
[18:42:00.257]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:00.257]         }, condition = base::local({
[18:42:00.257]             c <- base::c
[18:42:00.257]             inherits <- base::inherits
[18:42:00.257]             invokeRestart <- base::invokeRestart
[18:42:00.257]             length <- base::length
[18:42:00.257]             list <- base::list
[18:42:00.257]             seq.int <- base::seq.int
[18:42:00.257]             signalCondition <- base::signalCondition
[18:42:00.257]             sys.calls <- base::sys.calls
[18:42:00.257]             `[[` <- base::`[[`
[18:42:00.257]             `+` <- base::`+`
[18:42:00.257]             `<<-` <- base::`<<-`
[18:42:00.257]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:00.257]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:00.257]                   3L)]
[18:42:00.257]             }
[18:42:00.257]             function(cond) {
[18:42:00.257]                 is_error <- inherits(cond, "error")
[18:42:00.257]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:00.257]                   NULL)
[18:42:00.257]                 if (is_error) {
[18:42:00.257]                   sessionInformation <- function() {
[18:42:00.257]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:00.257]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:00.257]                       search = base::search(), system = base::Sys.info())
[18:42:00.257]                   }
[18:42:00.257]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.257]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:00.257]                     cond$call), session = sessionInformation(), 
[18:42:00.257]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:00.257]                   signalCondition(cond)
[18:42:00.257]                 }
[18:42:00.257]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:00.257]                 "immediateCondition"))) {
[18:42:00.257]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:00.257]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.257]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:00.257]                   if (TRUE && !signal) {
[18:42:00.257]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.257]                     {
[18:42:00.257]                       inherits <- base::inherits
[18:42:00.257]                       invokeRestart <- base::invokeRestart
[18:42:00.257]                       is.null <- base::is.null
[18:42:00.257]                       muffled <- FALSE
[18:42:00.257]                       if (inherits(cond, "message")) {
[18:42:00.257]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.257]                         if (muffled) 
[18:42:00.257]                           invokeRestart("muffleMessage")
[18:42:00.257]                       }
[18:42:00.257]                       else if (inherits(cond, "warning")) {
[18:42:00.257]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.257]                         if (muffled) 
[18:42:00.257]                           invokeRestart("muffleWarning")
[18:42:00.257]                       }
[18:42:00.257]                       else if (inherits(cond, "condition")) {
[18:42:00.257]                         if (!is.null(pattern)) {
[18:42:00.257]                           computeRestarts <- base::computeRestarts
[18:42:00.257]                           grepl <- base::grepl
[18:42:00.257]                           restarts <- computeRestarts(cond)
[18:42:00.257]                           for (restart in restarts) {
[18:42:00.257]                             name <- restart$name
[18:42:00.257]                             if (is.null(name)) 
[18:42:00.257]                               next
[18:42:00.257]                             if (!grepl(pattern, name)) 
[18:42:00.257]                               next
[18:42:00.257]                             invokeRestart(restart)
[18:42:00.257]                             muffled <- TRUE
[18:42:00.257]                             break
[18:42:00.257]                           }
[18:42:00.257]                         }
[18:42:00.257]                       }
[18:42:00.257]                       invisible(muffled)
[18:42:00.257]                     }
[18:42:00.257]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.257]                   }
[18:42:00.257]                 }
[18:42:00.257]                 else {
[18:42:00.257]                   if (TRUE) {
[18:42:00.257]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.257]                     {
[18:42:00.257]                       inherits <- base::inherits
[18:42:00.257]                       invokeRestart <- base::invokeRestart
[18:42:00.257]                       is.null <- base::is.null
[18:42:00.257]                       muffled <- FALSE
[18:42:00.257]                       if (inherits(cond, "message")) {
[18:42:00.257]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.257]                         if (muffled) 
[18:42:00.257]                           invokeRestart("muffleMessage")
[18:42:00.257]                       }
[18:42:00.257]                       else if (inherits(cond, "warning")) {
[18:42:00.257]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.257]                         if (muffled) 
[18:42:00.257]                           invokeRestart("muffleWarning")
[18:42:00.257]                       }
[18:42:00.257]                       else if (inherits(cond, "condition")) {
[18:42:00.257]                         if (!is.null(pattern)) {
[18:42:00.257]                           computeRestarts <- base::computeRestarts
[18:42:00.257]                           grepl <- base::grepl
[18:42:00.257]                           restarts <- computeRestarts(cond)
[18:42:00.257]                           for (restart in restarts) {
[18:42:00.257]                             name <- restart$name
[18:42:00.257]                             if (is.null(name)) 
[18:42:00.257]                               next
[18:42:00.257]                             if (!grepl(pattern, name)) 
[18:42:00.257]                               next
[18:42:00.257]                             invokeRestart(restart)
[18:42:00.257]                             muffled <- TRUE
[18:42:00.257]                             break
[18:42:00.257]                           }
[18:42:00.257]                         }
[18:42:00.257]                       }
[18:42:00.257]                       invisible(muffled)
[18:42:00.257]                     }
[18:42:00.257]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.257]                   }
[18:42:00.257]                 }
[18:42:00.257]             }
[18:42:00.257]         }))
[18:42:00.257]     }, error = function(ex) {
[18:42:00.257]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:00.257]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.257]                 ...future.rng), started = ...future.startTime, 
[18:42:00.257]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:00.257]             version = "1.8"), class = "FutureResult")
[18:42:00.257]     }, finally = {
[18:42:00.257]         if (!identical(...future.workdir, getwd())) 
[18:42:00.257]             setwd(...future.workdir)
[18:42:00.257]         {
[18:42:00.257]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:00.257]                 ...future.oldOptions$nwarnings <- NULL
[18:42:00.257]             }
[18:42:00.257]             base::options(...future.oldOptions)
[18:42:00.257]             if (.Platform$OS.type == "windows") {
[18:42:00.257]                 old_names <- names(...future.oldEnvVars)
[18:42:00.257]                 envs <- base::Sys.getenv()
[18:42:00.257]                 names <- names(envs)
[18:42:00.257]                 common <- intersect(names, old_names)
[18:42:00.257]                 added <- setdiff(names, old_names)
[18:42:00.257]                 removed <- setdiff(old_names, names)
[18:42:00.257]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:00.257]                   envs[common]]
[18:42:00.257]                 NAMES <- toupper(changed)
[18:42:00.257]                 args <- list()
[18:42:00.257]                 for (kk in seq_along(NAMES)) {
[18:42:00.257]                   name <- changed[[kk]]
[18:42:00.257]                   NAME <- NAMES[[kk]]
[18:42:00.257]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.257]                     next
[18:42:00.257]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.257]                 }
[18:42:00.257]                 NAMES <- toupper(added)
[18:42:00.257]                 for (kk in seq_along(NAMES)) {
[18:42:00.257]                   name <- added[[kk]]
[18:42:00.257]                   NAME <- NAMES[[kk]]
[18:42:00.257]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.257]                     next
[18:42:00.257]                   args[[name]] <- ""
[18:42:00.257]                 }
[18:42:00.257]                 NAMES <- toupper(removed)
[18:42:00.257]                 for (kk in seq_along(NAMES)) {
[18:42:00.257]                   name <- removed[[kk]]
[18:42:00.257]                   NAME <- NAMES[[kk]]
[18:42:00.257]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.257]                     next
[18:42:00.257]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.257]                 }
[18:42:00.257]                 if (length(args) > 0) 
[18:42:00.257]                   base::do.call(base::Sys.setenv, args = args)
[18:42:00.257]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:00.257]             }
[18:42:00.257]             else {
[18:42:00.257]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:00.257]             }
[18:42:00.257]             {
[18:42:00.257]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:00.257]                   0L) {
[18:42:00.257]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:00.257]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:00.257]                   base::options(opts)
[18:42:00.257]                 }
[18:42:00.257]                 {
[18:42:00.257]                   {
[18:42:00.257]                     NULL
[18:42:00.257]                     RNGkind("Mersenne-Twister")
[18:42:00.257]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:42:00.257]                       inherits = FALSE)
[18:42:00.257]                   }
[18:42:00.257]                   options(future.plan = NULL)
[18:42:00.257]                   if (is.na(NA_character_)) 
[18:42:00.257]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.257]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:00.257]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:00.257]                     .init = FALSE)
[18:42:00.257]                 }
[18:42:00.257]             }
[18:42:00.257]         }
[18:42:00.257]     })
[18:42:00.257]     if (TRUE) {
[18:42:00.257]         base::sink(type = "output", split = FALSE)
[18:42:00.257]         if (TRUE) {
[18:42:00.257]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:00.257]         }
[18:42:00.257]         else {
[18:42:00.257]             ...future.result["stdout"] <- base::list(NULL)
[18:42:00.257]         }
[18:42:00.257]         base::close(...future.stdout)
[18:42:00.257]         ...future.stdout <- NULL
[18:42:00.257]     }
[18:42:00.257]     ...future.result$conditions <- ...future.conditions
[18:42:00.257]     ...future.result$finished <- base::Sys.time()
[18:42:00.257]     ...future.result
[18:42:00.257] }
[18:42:00.261] assign_globals() ...
[18:42:00.261] List of 11
[18:42:00.261]  $ ...future.FUN            :function (x, ...)  
[18:42:00.261]  $ x_FUN                    :function (x)  
[18:42:00.261]  $ times                    : int 1
[18:42:00.261]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.261]  $ stop_if_not              :function (...)  
[18:42:00.261]  $ dim                      : NULL
[18:42:00.261]  $ valid_types              : chr "logical"
[18:42:00.261]  $ future.call.arguments    : list()
[18:42:00.261]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.261]  $ ...future.elements_ii    :List of 11
[18:42:00.261]   ..$ mpg : num [1:32] 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
[18:42:00.261]   ..$ cyl : num [1:32] 6 6 4 6 8 6 8 4 4 6 ...
[18:42:00.261]   ..$ disp: num [1:32] 160 160 108 258 360 ...
[18:42:00.261]   ..$ hp  : num [1:32] 110 110 93 110 175 105 245 62 95 123 ...
[18:42:00.261]   ..$ drat: num [1:32] 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
[18:42:00.261]   ..$ wt  : num [1:32] 2.62 2.88 2.32 3.21 3.44 ...
[18:42:00.261]   ..$ qsec: num [1:32] 16.5 17 18.6 19.4 17 ...
[18:42:00.261]   ..$ vs  : num [1:32] 0 0 1 1 0 1 0 1 1 1 ...
[18:42:00.261]   ..$ am  : num [1:32] 1 1 1 0 0 0 0 0 0 0 ...
[18:42:00.261]   ..$ gear: num [1:32] 4 4 4 3 3 3 3 4 4 4 ...
[18:42:00.261]   ..$ carb: num [1:32] 4 4 1 1 2 1 4 2 2 4 ...
[18:42:00.261]  $ ...future.seeds_ii       : NULL
[18:42:00.261]  $ ...future.globals.maxSize: NULL
[18:42:00.261]  - attr(*, "where")=List of 11
[18:42:00.261]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ times                    :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:42:00.261]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:42:00.261]  - attr(*, "resolved")= logi FALSE
[18:42:00.261]  - attr(*, "total_size")= num 30734
[18:42:00.261]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.261]  - attr(*, "already-done")= logi TRUE
[18:42:00.282] - copied '...future.FUN' to environment
[18:42:00.282] - copied 'x_FUN' to environment
[18:42:00.282] - copied 'times' to environment
[18:42:00.282] - copied 'stopf' to environment
[18:42:00.283] - copied 'stop_if_not' to environment
[18:42:00.283] - copied 'dim' to environment
[18:42:00.283] - copied 'valid_types' to environment
[18:42:00.283] - copied 'future.call.arguments' to environment
[18:42:00.284] - copied '...future.elements_ii' to environment
[18:42:00.284] - copied '...future.seeds_ii' to environment
[18:42:00.284] - copied '...future.globals.maxSize' to environment
[18:42:00.284] assign_globals() ... done
[18:42:00.285] plan(): Setting new future strategy stack:
[18:42:00.286] List of future strategies:
[18:42:00.286] 1. sequential:
[18:42:00.286]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.286]    - tweaked: FALSE
[18:42:00.286]    - call: NULL
[18:42:00.287] plan(): nbrOfWorkers() = 1
[18:42:00.288] plan(): Setting new future strategy stack:
[18:42:00.289] List of future strategies:
[18:42:00.289] 1. sequential:
[18:42:00.289]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.289]    - tweaked: FALSE
[18:42:00.289]    - call: plan(strategy)
[18:42:00.290] plan(): nbrOfWorkers() = 1
[18:42:00.290] SequentialFuture started (and completed)
[18:42:00.290] - Launch lazy future ... done
[18:42:00.291] run() for 'SequentialFuture' ... done
[18:42:00.291] Created future:
[18:42:00.291] SequentialFuture:
[18:42:00.291] Label: 'future_vapply-1'
[18:42:00.291] Expression:
[18:42:00.291] {
[18:42:00.291]     do.call(function(...) {
[18:42:00.291]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.291]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.291]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.291]             on.exit(options(oopts), add = TRUE)
[18:42:00.291]         }
[18:42:00.291]         {
[18:42:00.291]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.291]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.291]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.291]             })
[18:42:00.291]         }
[18:42:00.291]     }, args = future.call.arguments)
[18:42:00.291] }
[18:42:00.291] Lazy evaluation: FALSE
[18:42:00.291] Asynchronous evaluation: FALSE
[18:42:00.291] Local evaluation: TRUE
[18:42:00.291] Environment: R_GlobalEnv
[18:42:00.291] Capture standard output: TRUE
[18:42:00.291] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:00.291] Globals: 11 objects totaling 17.89 KiB (function '...future.FUN' of 6.73 KiB, function 'x_FUN' of 41 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:00.291] Packages: 1 packages ('future.apply')
[18:42:00.291] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:00.291] Resolved: TRUE
[18:42:00.291] Value: 163 bytes of class 'list'
[18:42:00.291] Early signaling: FALSE
[18:42:00.291] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:00.291] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.293] Chunk #1 of 1 ... DONE
[18:42:00.293] Launching 1 futures (chunks) ... DONE
[18:42:00.294] Resolving 1 futures (chunks) ...
[18:42:00.294] resolve() on list ...
[18:42:00.294]  recursive: 0
[18:42:00.294]  length: 1
[18:42:00.294] 
[18:42:00.295] resolved() for 'SequentialFuture' ...
[18:42:00.295] - state: 'finished'
[18:42:00.295] - run: TRUE
[18:42:00.295] - result: 'FutureResult'
[18:42:00.296] resolved() for 'SequentialFuture' ... done
[18:42:00.296] Future #1
[18:42:00.296] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:42:00.297] - nx: 1
[18:42:00.297] - relay: TRUE
[18:42:00.297] - stdout: TRUE
[18:42:00.297] - signal: TRUE
[18:42:00.297] - resignal: FALSE
[18:42:00.298] - force: TRUE
[18:42:00.298] - relayed: [n=1] FALSE
[18:42:00.303] - queued futures: [n=1] FALSE
[18:42:00.304]  - until=1
[18:42:00.304]  - relaying element #1
[18:42:00.304] - relayed: [n=1] TRUE
[18:42:00.304] - queued futures: [n=1] TRUE
[18:42:00.305] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:42:00.305]  length: 0 (resolved future 1)
[18:42:00.305] Relaying remaining futures
[18:42:00.305] signalConditionsASAP(NULL, pos=0) ...
[18:42:00.305] - nx: 1
[18:42:00.306] - relay: TRUE
[18:42:00.306] - stdout: TRUE
[18:42:00.306] - signal: TRUE
[18:42:00.306] - resignal: FALSE
[18:42:00.307] - force: TRUE
[18:42:00.307] - relayed: [n=1] TRUE
[18:42:00.307] - queued futures: [n=1] TRUE
 - flush all
[18:42:00.307] - relayed: [n=1] TRUE
[18:42:00.307] - queued futures: [n=1] TRUE
[18:42:00.308] signalConditionsASAP(NULL, pos=0) ... done
[18:42:00.308] resolve() on list ... DONE
[18:42:00.308]  - Number of value chunks collected: 1
[18:42:00.308] Resolving 1 futures (chunks) ... DONE
[18:42:00.309] Reducing values from 1 chunks ...
[18:42:00.309]  - Number of values collected after concatenation: 11
[18:42:00.309]  - Number of values expected: 11
[18:42:00.309] Reducing values from 1 chunks ... DONE
[18:42:00.309] future_lapply() ... DONE
 Named logi [1:11] TRUE TRUE TRUE TRUE TRUE TRUE ...
 - attr(*, "names")= chr [1:11] "mpg" "cyl" "disp" "hp" ...
- future_vapply(x, ...) where length(x) != length(as.list(x)) ...
[18:42:00.311] future_lapply() ...
[18:42:00.314] Number of chunks: 1
[18:42:00.315] getGlobalsAndPackagesXApply() ...
[18:42:00.315]  - future.globals: TRUE
[18:42:00.315] getGlobalsAndPackages() ...
[18:42:00.315] Searching for globals...
[18:42:00.320] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:00.321] Searching for globals ... DONE
[18:42:00.321] Resolving globals: FALSE
[18:42:00.322] The total size of the 7 globals is 11.92 KiB (12201 bytes)
[18:42:00.323] The total size of the 7 globals exported for future expression ('FUN()') is 11.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (3.92 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:00.323] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.324] - packages: [1] 'future.apply'
[18:42:00.324] getGlobalsAndPackages() ... DONE
[18:42:00.324]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.324]  - needed namespaces: [n=1] 'future.apply'
[18:42:00.324] Finding globals ... DONE
[18:42:00.325]  - use_args: TRUE
[18:42:00.325]  - Getting '...' globals ...
[18:42:00.325] resolve() on list ...
[18:42:00.325]  recursive: 0
[18:42:00.326]  length: 1
[18:42:00.326]  elements: '...'
[18:42:00.326]  length: 0 (resolved future 1)
[18:42:00.326] resolve() on list ... DONE
[18:42:00.326]    - '...' content: [n=0] 
[18:42:00.327] List of 1
[18:42:00.327]  $ ...: list()
[18:42:00.327]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.327]  - attr(*, "where")=List of 1
[18:42:00.327]   ..$ ...:<environment: 0x000002ea02ca8c70> 
[18:42:00.327]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.327]  - attr(*, "resolved")= logi TRUE
[18:42:00.327]  - attr(*, "total_size")= num NA
[18:42:00.330]  - Getting '...' globals ... DONE
[18:42:00.331] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:00.331] List of 8
[18:42:00.331]  $ ...future.FUN:function (x, ...)  
[18:42:00.331]  $ x_FUN        :function (x)  
[18:42:00.331]  $ times        : int 1
[18:42:00.331]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.331]  $ stop_if_not  :function (...)  
[18:42:00.331]  $ dim          : NULL
[18:42:00.331]  $ valid_types  : chr [1:2] "logical" "integer"
[18:42:00.331]  $ ...          : list()
[18:42:00.331]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.331]  - attr(*, "where")=List of 8
[18:42:00.331]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:00.331]   ..$ ...          :<environment: 0x000002ea02ca8c70> 
[18:42:00.331]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.331]  - attr(*, "resolved")= logi FALSE
[18:42:00.331]  - attr(*, "total_size")= int 22016
[18:42:00.340] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:00.340] getGlobalsAndPackagesXApply() ... DONE
[18:42:00.340] Number of futures (= number of chunks): 1
[18:42:00.341] Launching 1 futures (chunks) ...
[18:42:00.341] Chunk #1 of 1 ...
[18:42:00.341]  - Finding globals in 'X' for chunk #1 ...
[18:42:00.341] getGlobalsAndPackages() ...
[18:42:00.341] Searching for globals...
[18:42:00.342] 
[18:42:00.342] Searching for globals ... DONE
[18:42:00.342] - globals: [0] <none>
[18:42:00.342] getGlobalsAndPackages() ... DONE
[18:42:00.342]    + additional globals found: [n=0] 
[18:42:00.343]    + additional namespaces needed: [n=0] 
[18:42:00.343]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:00.343]  - seeds: <none>
[18:42:00.343]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.343] getGlobalsAndPackages() ...
[18:42:00.344] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.344] Resolving globals: FALSE
[18:42:00.344] Tweak future expression to call with '...' arguments ...
[18:42:00.344] {
[18:42:00.344]     do.call(function(...) {
[18:42:00.344]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.344]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.344]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.344]             on.exit(options(oopts), add = TRUE)
[18:42:00.344]         }
[18:42:00.344]         {
[18:42:00.344]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.344]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.344]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.344]             })
[18:42:00.344]         }
[18:42:00.344]     }, args = future.call.arguments)
[18:42:00.344] }
[18:42:00.345] Tweak future expression to call with '...' arguments ... DONE
[18:42:00.346] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.346] - packages: [1] 'future.apply'
[18:42:00.346] getGlobalsAndPackages() ... DONE
[18:42:00.347] run() for 'Future' ...
[18:42:00.347] - state: 'created'
[18:42:00.347] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:42:00.348] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.348] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:42:00.348]   - Field: 'label'
[18:42:00.348]   - Field: 'local'
[18:42:00.348]   - Field: 'owner'
[18:42:00.349]   - Field: 'envir'
[18:42:00.349]   - Field: 'packages'
[18:42:00.349]   - Field: 'gc'
[18:42:00.349]   - Field: 'conditions'
[18:42:00.350]   - Field: 'expr'
[18:42:00.350]   - Field: 'uuid'
[18:42:00.350]   - Field: 'seed'
[18:42:00.350]   - Field: 'version'
[18:42:00.350]   - Field: 'result'
[18:42:00.351]   - Field: 'asynchronous'
[18:42:00.351]   - Field: 'calls'
[18:42:00.351]   - Field: 'globals'
[18:42:00.351]   - Field: 'stdout'
[18:42:00.351]   - Field: 'earlySignal'
[18:42:00.352]   - Field: 'lazy'
[18:42:00.352]   - Field: 'state'
[18:42:00.352] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:42:00.352] - Launch lazy future ...
[18:42:00.353] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:00.353] Packages needed by future strategies (n = 0): <none>
[18:42:00.354] {
[18:42:00.354]     {
[18:42:00.354]         {
[18:42:00.354]             ...future.startTime <- base::Sys.time()
[18:42:00.354]             {
[18:42:00.354]                 {
[18:42:00.354]                   {
[18:42:00.354]                     {
[18:42:00.354]                       base::local({
[18:42:00.354]                         has_future <- base::requireNamespace("future", 
[18:42:00.354]                           quietly = TRUE)
[18:42:00.354]                         if (has_future) {
[18:42:00.354]                           ns <- base::getNamespace("future")
[18:42:00.354]                           version <- ns[[".package"]][["version"]]
[18:42:00.354]                           if (is.null(version)) 
[18:42:00.354]                             version <- utils::packageVersion("future")
[18:42:00.354]                         }
[18:42:00.354]                         else {
[18:42:00.354]                           version <- NULL
[18:42:00.354]                         }
[18:42:00.354]                         if (!has_future || version < "1.8.0") {
[18:42:00.354]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:00.354]                             "", base::R.version$version.string), 
[18:42:00.354]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:00.354]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:00.354]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:00.354]                               "release", "version")], collapse = " "), 
[18:42:00.354]                             hostname = base::Sys.info()[["nodename"]])
[18:42:00.354]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:00.354]                             info)
[18:42:00.354]                           info <- base::paste(info, collapse = "; ")
[18:42:00.354]                           if (!has_future) {
[18:42:00.354]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:00.354]                               info)
[18:42:00.354]                           }
[18:42:00.354]                           else {
[18:42:00.354]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:00.354]                               info, version)
[18:42:00.354]                           }
[18:42:00.354]                           base::stop(msg)
[18:42:00.354]                         }
[18:42:00.354]                       })
[18:42:00.354]                     }
[18:42:00.354]                     base::local({
[18:42:00.354]                       for (pkg in "future.apply") {
[18:42:00.354]                         base::loadNamespace(pkg)
[18:42:00.354]                         base::library(pkg, character.only = TRUE)
[18:42:00.354]                       }
[18:42:00.354]                     })
[18:42:00.354]                   }
[18:42:00.354]                   ...future.strategy.old <- future::plan("list")
[18:42:00.354]                   options(future.plan = NULL)
[18:42:00.354]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.354]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:00.354]                 }
[18:42:00.354]                 ...future.workdir <- getwd()
[18:42:00.354]             }
[18:42:00.354]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:00.354]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:00.354]         }
[18:42:00.354]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:00.354]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:42:00.354]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:00.354]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:00.354]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:00.354]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:00.354]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:00.354]             base::names(...future.oldOptions))
[18:42:00.354]     }
[18:42:00.354]     if (FALSE) {
[18:42:00.354]     }
[18:42:00.354]     else {
[18:42:00.354]         if (TRUE) {
[18:42:00.354]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:00.354]                 open = "w")
[18:42:00.354]         }
[18:42:00.354]         else {
[18:42:00.354]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:00.354]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:00.354]         }
[18:42:00.354]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:00.354]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:00.354]             base::sink(type = "output", split = FALSE)
[18:42:00.354]             base::close(...future.stdout)
[18:42:00.354]         }, add = TRUE)
[18:42:00.354]     }
[18:42:00.354]     ...future.frame <- base::sys.nframe()
[18:42:00.354]     ...future.conditions <- base::list()
[18:42:00.354]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:00.354]     if (FALSE) {
[18:42:00.354]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:00.354]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:00.354]     }
[18:42:00.354]     ...future.result <- base::tryCatch({
[18:42:00.354]         base::withCallingHandlers({
[18:42:00.354]             ...future.value <- base::withVisible(base::local({
[18:42:00.354]                 do.call(function(...) {
[18:42:00.354]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.354]                   if (!identical(...future.globals.maxSize.org, 
[18:42:00.354]                     ...future.globals.maxSize)) {
[18:42:00.354]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.354]                     on.exit(options(oopts), add = TRUE)
[18:42:00.354]                   }
[18:42:00.354]                   {
[18:42:00.354]                     lapply(seq_along(...future.elements_ii), 
[18:42:00.354]                       FUN = function(jj) {
[18:42:00.354]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.354]                         ...future.FUN(...future.X_jj, ...)
[18:42:00.354]                       })
[18:42:00.354]                   }
[18:42:00.354]                 }, args = future.call.arguments)
[18:42:00.354]             }))
[18:42:00.354]             future::FutureResult(value = ...future.value$value, 
[18:42:00.354]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.354]                   ...future.rng), globalenv = if (FALSE) 
[18:42:00.354]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:00.354]                     ...future.globalenv.names))
[18:42:00.354]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:00.354]         }, condition = base::local({
[18:42:00.354]             c <- base::c
[18:42:00.354]             inherits <- base::inherits
[18:42:00.354]             invokeRestart <- base::invokeRestart
[18:42:00.354]             length <- base::length
[18:42:00.354]             list <- base::list
[18:42:00.354]             seq.int <- base::seq.int
[18:42:00.354]             signalCondition <- base::signalCondition
[18:42:00.354]             sys.calls <- base::sys.calls
[18:42:00.354]             `[[` <- base::`[[`
[18:42:00.354]             `+` <- base::`+`
[18:42:00.354]             `<<-` <- base::`<<-`
[18:42:00.354]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:00.354]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:00.354]                   3L)]
[18:42:00.354]             }
[18:42:00.354]             function(cond) {
[18:42:00.354]                 is_error <- inherits(cond, "error")
[18:42:00.354]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:00.354]                   NULL)
[18:42:00.354]                 if (is_error) {
[18:42:00.354]                   sessionInformation <- function() {
[18:42:00.354]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:00.354]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:00.354]                       search = base::search(), system = base::Sys.info())
[18:42:00.354]                   }
[18:42:00.354]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.354]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:00.354]                     cond$call), session = sessionInformation(), 
[18:42:00.354]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:00.354]                   signalCondition(cond)
[18:42:00.354]                 }
[18:42:00.354]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:00.354]                 "immediateCondition"))) {
[18:42:00.354]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:00.354]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.354]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:00.354]                   if (TRUE && !signal) {
[18:42:00.354]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.354]                     {
[18:42:00.354]                       inherits <- base::inherits
[18:42:00.354]                       invokeRestart <- base::invokeRestart
[18:42:00.354]                       is.null <- base::is.null
[18:42:00.354]                       muffled <- FALSE
[18:42:00.354]                       if (inherits(cond, "message")) {
[18:42:00.354]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.354]                         if (muffled) 
[18:42:00.354]                           invokeRestart("muffleMessage")
[18:42:00.354]                       }
[18:42:00.354]                       else if (inherits(cond, "warning")) {
[18:42:00.354]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.354]                         if (muffled) 
[18:42:00.354]                           invokeRestart("muffleWarning")
[18:42:00.354]                       }
[18:42:00.354]                       else if (inherits(cond, "condition")) {
[18:42:00.354]                         if (!is.null(pattern)) {
[18:42:00.354]                           computeRestarts <- base::computeRestarts
[18:42:00.354]                           grepl <- base::grepl
[18:42:00.354]                           restarts <- computeRestarts(cond)
[18:42:00.354]                           for (restart in restarts) {
[18:42:00.354]                             name <- restart$name
[18:42:00.354]                             if (is.null(name)) 
[18:42:00.354]                               next
[18:42:00.354]                             if (!grepl(pattern, name)) 
[18:42:00.354]                               next
[18:42:00.354]                             invokeRestart(restart)
[18:42:00.354]                             muffled <- TRUE
[18:42:00.354]                             break
[18:42:00.354]                           }
[18:42:00.354]                         }
[18:42:00.354]                       }
[18:42:00.354]                       invisible(muffled)
[18:42:00.354]                     }
[18:42:00.354]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.354]                   }
[18:42:00.354]                 }
[18:42:00.354]                 else {
[18:42:00.354]                   if (TRUE) {
[18:42:00.354]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.354]                     {
[18:42:00.354]                       inherits <- base::inherits
[18:42:00.354]                       invokeRestart <- base::invokeRestart
[18:42:00.354]                       is.null <- base::is.null
[18:42:00.354]                       muffled <- FALSE
[18:42:00.354]                       if (inherits(cond, "message")) {
[18:42:00.354]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.354]                         if (muffled) 
[18:42:00.354]                           invokeRestart("muffleMessage")
[18:42:00.354]                       }
[18:42:00.354]                       else if (inherits(cond, "warning")) {
[18:42:00.354]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.354]                         if (muffled) 
[18:42:00.354]                           invokeRestart("muffleWarning")
[18:42:00.354]                       }
[18:42:00.354]                       else if (inherits(cond, "condition")) {
[18:42:00.354]                         if (!is.null(pattern)) {
[18:42:00.354]                           computeRestarts <- base::computeRestarts
[18:42:00.354]                           grepl <- base::grepl
[18:42:00.354]                           restarts <- computeRestarts(cond)
[18:42:00.354]                           for (restart in restarts) {
[18:42:00.354]                             name <- restart$name
[18:42:00.354]                             if (is.null(name)) 
[18:42:00.354]                               next
[18:42:00.354]                             if (!grepl(pattern, name)) 
[18:42:00.354]                               next
[18:42:00.354]                             invokeRestart(restart)
[18:42:00.354]                             muffled <- TRUE
[18:42:00.354]                             break
[18:42:00.354]                           }
[18:42:00.354]                         }
[18:42:00.354]                       }
[18:42:00.354]                       invisible(muffled)
[18:42:00.354]                     }
[18:42:00.354]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.354]                   }
[18:42:00.354]                 }
[18:42:00.354]             }
[18:42:00.354]         }))
[18:42:00.354]     }, error = function(ex) {
[18:42:00.354]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:00.354]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.354]                 ...future.rng), started = ...future.startTime, 
[18:42:00.354]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:00.354]             version = "1.8"), class = "FutureResult")
[18:42:00.354]     }, finally = {
[18:42:00.354]         if (!identical(...future.workdir, getwd())) 
[18:42:00.354]             setwd(...future.workdir)
[18:42:00.354]         {
[18:42:00.354]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:00.354]                 ...future.oldOptions$nwarnings <- NULL
[18:42:00.354]             }
[18:42:00.354]             base::options(...future.oldOptions)
[18:42:00.354]             if (.Platform$OS.type == "windows") {
[18:42:00.354]                 old_names <- names(...future.oldEnvVars)
[18:42:00.354]                 envs <- base::Sys.getenv()
[18:42:00.354]                 names <- names(envs)
[18:42:00.354]                 common <- intersect(names, old_names)
[18:42:00.354]                 added <- setdiff(names, old_names)
[18:42:00.354]                 removed <- setdiff(old_names, names)
[18:42:00.354]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:00.354]                   envs[common]]
[18:42:00.354]                 NAMES <- toupper(changed)
[18:42:00.354]                 args <- list()
[18:42:00.354]                 for (kk in seq_along(NAMES)) {
[18:42:00.354]                   name <- changed[[kk]]
[18:42:00.354]                   NAME <- NAMES[[kk]]
[18:42:00.354]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.354]                     next
[18:42:00.354]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.354]                 }
[18:42:00.354]                 NAMES <- toupper(added)
[18:42:00.354]                 for (kk in seq_along(NAMES)) {
[18:42:00.354]                   name <- added[[kk]]
[18:42:00.354]                   NAME <- NAMES[[kk]]
[18:42:00.354]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.354]                     next
[18:42:00.354]                   args[[name]] <- ""
[18:42:00.354]                 }
[18:42:00.354]                 NAMES <- toupper(removed)
[18:42:00.354]                 for (kk in seq_along(NAMES)) {
[18:42:00.354]                   name <- removed[[kk]]
[18:42:00.354]                   NAME <- NAMES[[kk]]
[18:42:00.354]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.354]                     next
[18:42:00.354]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.354]                 }
[18:42:00.354]                 if (length(args) > 0) 
[18:42:00.354]                   base::do.call(base::Sys.setenv, args = args)
[18:42:00.354]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:00.354]             }
[18:42:00.354]             else {
[18:42:00.354]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:00.354]             }
[18:42:00.354]             {
[18:42:00.354]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:00.354]                   0L) {
[18:42:00.354]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:00.354]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:00.354]                   base::options(opts)
[18:42:00.354]                 }
[18:42:00.354]                 {
[18:42:00.354]                   {
[18:42:00.354]                     NULL
[18:42:00.354]                     RNGkind("Mersenne-Twister")
[18:42:00.354]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:42:00.354]                       inherits = FALSE)
[18:42:00.354]                   }
[18:42:00.354]                   options(future.plan = NULL)
[18:42:00.354]                   if (is.na(NA_character_)) 
[18:42:00.354]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.354]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:00.354]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:00.354]                     .init = FALSE)
[18:42:00.354]                 }
[18:42:00.354]             }
[18:42:00.354]         }
[18:42:00.354]     })
[18:42:00.354]     if (TRUE) {
[18:42:00.354]         base::sink(type = "output", split = FALSE)
[18:42:00.354]         if (TRUE) {
[18:42:00.354]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:00.354]         }
[18:42:00.354]         else {
[18:42:00.354]             ...future.result["stdout"] <- base::list(NULL)
[18:42:00.354]         }
[18:42:00.354]         base::close(...future.stdout)
[18:42:00.354]         ...future.stdout <- NULL
[18:42:00.354]     }
[18:42:00.354]     ...future.result$conditions <- ...future.conditions
[18:42:00.354]     ...future.result$finished <- base::Sys.time()
[18:42:00.354]     ...future.result
[18:42:00.354] }
[18:42:00.358] assign_globals() ...
[18:42:00.358] List of 11
[18:42:00.358]  $ ...future.FUN            :function (x, ...)  
[18:42:00.358]  $ x_FUN                    :function (x)  
[18:42:00.358]  $ times                    : int 1
[18:42:00.358]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.358]  $ stop_if_not              :function (...)  
[18:42:00.358]  $ dim                      : NULL
[18:42:00.358]  $ valid_types              : chr [1:2] "logical" "integer"
[18:42:00.358]  $ future.call.arguments    : list()
[18:42:00.358]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.358]  $ ...future.elements_ii    :List of 3
[18:42:00.358]   ..$ a: num 1
[18:42:00.358]   ..$ b: num 2
[18:42:00.358]   ..$ c: num 3
[18:42:00.358]  $ ...future.seeds_ii       : NULL
[18:42:00.358]  $ ...future.globals.maxSize: NULL
[18:42:00.358]  - attr(*, "where")=List of 11
[18:42:00.358]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ times                    :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:42:00.358]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:42:00.358]  - attr(*, "resolved")= logi FALSE
[18:42:00.358]  - attr(*, "total_size")= num 22016
[18:42:00.358]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.358]  - attr(*, "already-done")= logi TRUE
[18:42:00.371] - copied '...future.FUN' to environment
[18:42:00.371] - copied 'x_FUN' to environment
[18:42:00.371] - copied 'times' to environment
[18:42:00.371] - copied 'stopf' to environment
[18:42:00.372] - copied 'stop_if_not' to environment
[18:42:00.372] - copied 'dim' to environment
[18:42:00.372] - copied 'valid_types' to environment
[18:42:00.372] - copied 'future.call.arguments' to environment
[18:42:00.372] - copied '...future.elements_ii' to environment
[18:42:00.373] - copied '...future.seeds_ii' to environment
[18:42:00.373] - copied '...future.globals.maxSize' to environment
[18:42:00.373] assign_globals() ... done
[18:42:00.374] plan(): Setting new future strategy stack:
[18:42:00.374] List of future strategies:
[18:42:00.374] 1. sequential:
[18:42:00.374]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.374]    - tweaked: FALSE
[18:42:00.374]    - call: NULL
[18:42:00.375] plan(): nbrOfWorkers() = 1
[18:42:00.376] plan(): Setting new future strategy stack:
[18:42:00.376] List of future strategies:
[18:42:00.376] 1. sequential:
[18:42:00.376]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.376]    - tweaked: FALSE
[18:42:00.376]    - call: plan(strategy)
[18:42:00.377] plan(): nbrOfWorkers() = 1
[18:42:00.377] SequentialFuture started (and completed)
[18:42:00.378] - Launch lazy future ... done
[18:42:00.378] run() for 'SequentialFuture' ... done
[18:42:00.378] Created future:
[18:42:00.378] SequentialFuture:
[18:42:00.378] Label: 'future_vapply-1'
[18:42:00.378] Expression:
[18:42:00.378] {
[18:42:00.378]     do.call(function(...) {
[18:42:00.378]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.378]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.378]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.378]             on.exit(options(oopts), add = TRUE)
[18:42:00.378]         }
[18:42:00.378]         {
[18:42:00.378]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.378]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.378]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.378]             })
[18:42:00.378]         }
[18:42:00.378]     }, args = future.call.arguments)
[18:42:00.378] }
[18:42:00.378] Lazy evaluation: FALSE
[18:42:00.378] Asynchronous evaluation: FALSE
[18:42:00.378] Local evaluation: TRUE
[18:42:00.378] Environment: R_GlobalEnv
[18:42:00.378] Capture standard output: TRUE
[18:42:00.378] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:00.378] Globals: 11 objects totaling 12.19 KiB (function '...future.FUN' of 3.91 KiB, function 'x_FUN' of 37 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:00.378] Packages: 1 packages ('future.apply')
[18:42:00.378] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:00.378] Resolved: TRUE
[18:42:00.378] Value: 67 bytes of class 'list'
[18:42:00.378] Early signaling: FALSE
[18:42:00.378] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:00.378] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.380] Chunk #1 of 1 ... DONE
[18:42:00.380] Launching 1 futures (chunks) ... DONE
[18:42:00.381] Resolving 1 futures (chunks) ...
[18:42:00.381] resolve() on list ...
[18:42:00.381]  recursive: 0
[18:42:00.381]  length: 1
[18:42:00.381] 
[18:42:00.382] resolved() for 'SequentialFuture' ...
[18:42:00.382] - state: 'finished'
[18:42:00.382] - run: TRUE
[18:42:00.382] - result: 'FutureResult'
[18:42:00.382] resolved() for 'SequentialFuture' ... done
[18:42:00.383] Future #1
[18:42:00.383] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:42:00.383] - nx: 1
[18:42:00.383] - relay: TRUE
[18:42:00.383] - stdout: TRUE
[18:42:00.384] - signal: TRUE
[18:42:00.384] - resignal: FALSE
[18:42:00.384] - force: TRUE
[18:42:00.384] - relayed: [n=1] FALSE
[18:42:00.384] - queued futures: [n=1] FALSE
[18:42:00.385]  - until=1
[18:42:00.385]  - relaying element #1
[18:42:00.385] - relayed: [n=1] TRUE
[18:42:00.385] - queued futures: [n=1] TRUE
[18:42:00.386] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:42:00.386]  length: 0 (resolved future 1)
[18:42:00.386] Relaying remaining futures
[18:42:00.386] signalConditionsASAP(NULL, pos=0) ...
[18:42:00.386] - nx: 1
[18:42:00.386] - relay: TRUE
[18:42:00.387] - stdout: TRUE
[18:42:00.387] - signal: TRUE
[18:42:00.387] - resignal: FALSE
[18:42:00.387] - force: TRUE
[18:42:00.387] - relayed: [n=1] TRUE
[18:42:00.388] - queued futures: [n=1] TRUE
 - flush all
[18:42:00.388] - relayed: [n=1] TRUE
[18:42:00.388] - queued futures: [n=1] TRUE
[18:42:00.388] signalConditionsASAP(NULL, pos=0) ... done
[18:42:00.388] resolve() on list ... DONE
[18:42:00.389]  - Number of value chunks collected: 1
[18:42:00.389] Resolving 1 futures (chunks) ... DONE
[18:42:00.389] Reducing values from 1 chunks ...
[18:42:00.389]  - Number of values collected after concatenation: 3
[18:42:00.389]  - Number of values expected: 3
[18:42:00.390] Reducing values from 1 chunks ... DONE
[18:42:00.390] future_lapply() ... DONE
- exceptions ...
[18:42:00.390] future_lapply() ...
[18:42:00.393] Number of chunks: 1
[18:42:00.393] getGlobalsAndPackagesXApply() ...
[18:42:00.394]  - future.globals: TRUE
[18:42:00.394] getGlobalsAndPackages() ...
[18:42:00.394] Searching for globals...
[18:42:00.399] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:00.400] Searching for globals ... DONE
[18:42:00.400] Resolving globals: FALSE
[18:42:00.401] The total size of the 7 globals is 12.81 KiB (13119 bytes)
[18:42:00.402] The total size of the 7 globals exported for future expression ('FUN()') is 12.81 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (4.65 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:00.402] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.402] - packages: [1] 'future.apply'
[18:42:00.403] getGlobalsAndPackages() ... DONE
[18:42:00.403]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:00.403]  - needed namespaces: [n=1] 'future.apply'
[18:42:00.403] Finding globals ... DONE
[18:42:00.404]  - use_args: TRUE
[18:42:00.404]  - Getting '...' globals ...
[18:42:00.404] resolve() on list ...
[18:42:00.404]  recursive: 0
[18:42:00.405]  length: 1
[18:42:00.405]  elements: '...'
[18:42:00.405]  length: 0 (resolved future 1)
[18:42:00.405] resolve() on list ... DONE
[18:42:00.406]    - '...' content: [n=0] 
[18:42:00.406] List of 1
[18:42:00.406]  $ ...: list()
[18:42:00.406]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.406]  - attr(*, "where")=List of 1
[18:42:00.406]   ..$ ...:<environment: 0x000002ea0562a2b0> 
[18:42:00.406]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.406]  - attr(*, "resolved")= logi TRUE
[18:42:00.406]  - attr(*, "total_size")= num NA
[18:42:00.410]  - Getting '...' globals ... DONE
[18:42:00.410] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:00.410] List of 8
[18:42:00.410]  $ ...future.FUN:function (x, ...)  
[18:42:00.410]  $ x_FUN        :function (x)  
[18:42:00.410]  $ times        : int 2
[18:42:00.410]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.410]  $ stop_if_not  :function (...)  
[18:42:00.410]  $ dim          : NULL
[18:42:00.410]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:00.410]  $ ...          : list()
[18:42:00.410]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.410]  - attr(*, "where")=List of 8
[18:42:00.410]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:00.410]   ..$ ...          :<environment: 0x000002ea0562a2b0> 
[18:42:00.410]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.410]  - attr(*, "resolved")= logi FALSE
[18:42:00.410]  - attr(*, "total_size")= int 23676
[18:42:00.419] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:00.419] getGlobalsAndPackagesXApply() ... DONE
[18:42:00.419] Number of futures (= number of chunks): 1
[18:42:00.420] Launching 1 futures (chunks) ...
[18:42:00.420] Chunk #1 of 1 ...
[18:42:00.420]  - Finding globals in 'X' for chunk #1 ...
[18:42:00.420] getGlobalsAndPackages() ...
[18:42:00.420] Searching for globals...
[18:42:00.421] 
[18:42:00.421] Searching for globals ... DONE
[18:42:00.421] - globals: [0] <none>
[18:42:00.422] getGlobalsAndPackages() ... DONE
[18:42:00.422]    + additional globals found: [n=0] 
[18:42:00.422]    + additional namespaces needed: [n=0] 
[18:42:00.422]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:00.422]  - seeds: <none>
[18:42:00.422]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.423] getGlobalsAndPackages() ...
[18:42:00.423] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.423] Resolving globals: FALSE
[18:42:00.423] Tweak future expression to call with '...' arguments ...
[18:42:00.424] {
[18:42:00.424]     do.call(function(...) {
[18:42:00.424]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.424]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.424]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.424]             on.exit(options(oopts), add = TRUE)
[18:42:00.424]         }
[18:42:00.424]         {
[18:42:00.424]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.424]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.424]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.424]             })
[18:42:00.424]         }
[18:42:00.424]     }, args = future.call.arguments)
[18:42:00.424] }
[18:42:00.424] Tweak future expression to call with '...' arguments ... DONE
[18:42:00.425] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:00.425] - packages: [1] 'future.apply'
[18:42:00.426] getGlobalsAndPackages() ... DONE
[18:42:00.426] run() for 'Future' ...
[18:42:00.426] - state: 'created'
[18:42:00.427] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:42:00.427] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.427] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:42:00.428]   - Field: 'label'
[18:42:00.428]   - Field: 'local'
[18:42:00.428]   - Field: 'owner'
[18:42:00.428]   - Field: 'envir'
[18:42:00.428]   - Field: 'packages'
[18:42:00.429]   - Field: 'gc'
[18:42:00.429]   - Field: 'conditions'
[18:42:00.429]   - Field: 'expr'
[18:42:00.429]   - Field: 'uuid'
[18:42:00.429]   - Field: 'seed'
[18:42:00.430]   - Field: 'version'
[18:42:00.430]   - Field: 'result'
[18:42:00.430]   - Field: 'asynchronous'
[18:42:00.430]   - Field: 'calls'
[18:42:00.431]   - Field: 'globals'
[18:42:00.431]   - Field: 'stdout'
[18:42:00.431]   - Field: 'earlySignal'
[18:42:00.431]   - Field: 'lazy'
[18:42:00.431]   - Field: 'state'
[18:42:00.432] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:42:00.432] - Launch lazy future ...
[18:42:00.432] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:00.437] Packages needed by future strategies (n = 0): <none>
[18:42:00.438] {
[18:42:00.438]     {
[18:42:00.438]         {
[18:42:00.438]             ...future.startTime <- base::Sys.time()
[18:42:00.438]             {
[18:42:00.438]                 {
[18:42:00.438]                   {
[18:42:00.438]                     {
[18:42:00.438]                       base::local({
[18:42:00.438]                         has_future <- base::requireNamespace("future", 
[18:42:00.438]                           quietly = TRUE)
[18:42:00.438]                         if (has_future) {
[18:42:00.438]                           ns <- base::getNamespace("future")
[18:42:00.438]                           version <- ns[[".package"]][["version"]]
[18:42:00.438]                           if (is.null(version)) 
[18:42:00.438]                             version <- utils::packageVersion("future")
[18:42:00.438]                         }
[18:42:00.438]                         else {
[18:42:00.438]                           version <- NULL
[18:42:00.438]                         }
[18:42:00.438]                         if (!has_future || version < "1.8.0") {
[18:42:00.438]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:00.438]                             "", base::R.version$version.string), 
[18:42:00.438]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:00.438]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:00.438]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:00.438]                               "release", "version")], collapse = " "), 
[18:42:00.438]                             hostname = base::Sys.info()[["nodename"]])
[18:42:00.438]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:00.438]                             info)
[18:42:00.438]                           info <- base::paste(info, collapse = "; ")
[18:42:00.438]                           if (!has_future) {
[18:42:00.438]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:00.438]                               info)
[18:42:00.438]                           }
[18:42:00.438]                           else {
[18:42:00.438]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:00.438]                               info, version)
[18:42:00.438]                           }
[18:42:00.438]                           base::stop(msg)
[18:42:00.438]                         }
[18:42:00.438]                       })
[18:42:00.438]                     }
[18:42:00.438]                     base::local({
[18:42:00.438]                       for (pkg in "future.apply") {
[18:42:00.438]                         base::loadNamespace(pkg)
[18:42:00.438]                         base::library(pkg, character.only = TRUE)
[18:42:00.438]                       }
[18:42:00.438]                     })
[18:42:00.438]                   }
[18:42:00.438]                   ...future.strategy.old <- future::plan("list")
[18:42:00.438]                   options(future.plan = NULL)
[18:42:00.438]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.438]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:00.438]                 }
[18:42:00.438]                 ...future.workdir <- getwd()
[18:42:00.438]             }
[18:42:00.438]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:00.438]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:00.438]         }
[18:42:00.438]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:00.438]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:42:00.438]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:00.438]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:00.438]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:00.438]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:00.438]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:00.438]             base::names(...future.oldOptions))
[18:42:00.438]     }
[18:42:00.438]     if (FALSE) {
[18:42:00.438]     }
[18:42:00.438]     else {
[18:42:00.438]         if (TRUE) {
[18:42:00.438]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:00.438]                 open = "w")
[18:42:00.438]         }
[18:42:00.438]         else {
[18:42:00.438]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:00.438]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:00.438]         }
[18:42:00.438]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:00.438]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:00.438]             base::sink(type = "output", split = FALSE)
[18:42:00.438]             base::close(...future.stdout)
[18:42:00.438]         }, add = TRUE)
[18:42:00.438]     }
[18:42:00.438]     ...future.frame <- base::sys.nframe()
[18:42:00.438]     ...future.conditions <- base::list()
[18:42:00.438]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:00.438]     if (FALSE) {
[18:42:00.438]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:00.438]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:00.438]     }
[18:42:00.438]     ...future.result <- base::tryCatch({
[18:42:00.438]         base::withCallingHandlers({
[18:42:00.438]             ...future.value <- base::withVisible(base::local({
[18:42:00.438]                 do.call(function(...) {
[18:42:00.438]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.438]                   if (!identical(...future.globals.maxSize.org, 
[18:42:00.438]                     ...future.globals.maxSize)) {
[18:42:00.438]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.438]                     on.exit(options(oopts), add = TRUE)
[18:42:00.438]                   }
[18:42:00.438]                   {
[18:42:00.438]                     lapply(seq_along(...future.elements_ii), 
[18:42:00.438]                       FUN = function(jj) {
[18:42:00.438]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.438]                         ...future.FUN(...future.X_jj, ...)
[18:42:00.438]                       })
[18:42:00.438]                   }
[18:42:00.438]                 }, args = future.call.arguments)
[18:42:00.438]             }))
[18:42:00.438]             future::FutureResult(value = ...future.value$value, 
[18:42:00.438]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.438]                   ...future.rng), globalenv = if (FALSE) 
[18:42:00.438]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:00.438]                     ...future.globalenv.names))
[18:42:00.438]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:00.438]         }, condition = base::local({
[18:42:00.438]             c <- base::c
[18:42:00.438]             inherits <- base::inherits
[18:42:00.438]             invokeRestart <- base::invokeRestart
[18:42:00.438]             length <- base::length
[18:42:00.438]             list <- base::list
[18:42:00.438]             seq.int <- base::seq.int
[18:42:00.438]             signalCondition <- base::signalCondition
[18:42:00.438]             sys.calls <- base::sys.calls
[18:42:00.438]             `[[` <- base::`[[`
[18:42:00.438]             `+` <- base::`+`
[18:42:00.438]             `<<-` <- base::`<<-`
[18:42:00.438]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:00.438]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:00.438]                   3L)]
[18:42:00.438]             }
[18:42:00.438]             function(cond) {
[18:42:00.438]                 is_error <- inherits(cond, "error")
[18:42:00.438]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:00.438]                   NULL)
[18:42:00.438]                 if (is_error) {
[18:42:00.438]                   sessionInformation <- function() {
[18:42:00.438]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:00.438]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:00.438]                       search = base::search(), system = base::Sys.info())
[18:42:00.438]                   }
[18:42:00.438]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.438]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:00.438]                     cond$call), session = sessionInformation(), 
[18:42:00.438]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:00.438]                   signalCondition(cond)
[18:42:00.438]                 }
[18:42:00.438]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:00.438]                 "immediateCondition"))) {
[18:42:00.438]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:00.438]                   ...future.conditions[[length(...future.conditions) + 
[18:42:00.438]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:00.438]                   if (TRUE && !signal) {
[18:42:00.438]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.438]                     {
[18:42:00.438]                       inherits <- base::inherits
[18:42:00.438]                       invokeRestart <- base::invokeRestart
[18:42:00.438]                       is.null <- base::is.null
[18:42:00.438]                       muffled <- FALSE
[18:42:00.438]                       if (inherits(cond, "message")) {
[18:42:00.438]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.438]                         if (muffled) 
[18:42:00.438]                           invokeRestart("muffleMessage")
[18:42:00.438]                       }
[18:42:00.438]                       else if (inherits(cond, "warning")) {
[18:42:00.438]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.438]                         if (muffled) 
[18:42:00.438]                           invokeRestart("muffleWarning")
[18:42:00.438]                       }
[18:42:00.438]                       else if (inherits(cond, "condition")) {
[18:42:00.438]                         if (!is.null(pattern)) {
[18:42:00.438]                           computeRestarts <- base::computeRestarts
[18:42:00.438]                           grepl <- base::grepl
[18:42:00.438]                           restarts <- computeRestarts(cond)
[18:42:00.438]                           for (restart in restarts) {
[18:42:00.438]                             name <- restart$name
[18:42:00.438]                             if (is.null(name)) 
[18:42:00.438]                               next
[18:42:00.438]                             if (!grepl(pattern, name)) 
[18:42:00.438]                               next
[18:42:00.438]                             invokeRestart(restart)
[18:42:00.438]                             muffled <- TRUE
[18:42:00.438]                             break
[18:42:00.438]                           }
[18:42:00.438]                         }
[18:42:00.438]                       }
[18:42:00.438]                       invisible(muffled)
[18:42:00.438]                     }
[18:42:00.438]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.438]                   }
[18:42:00.438]                 }
[18:42:00.438]                 else {
[18:42:00.438]                   if (TRUE) {
[18:42:00.438]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:00.438]                     {
[18:42:00.438]                       inherits <- base::inherits
[18:42:00.438]                       invokeRestart <- base::invokeRestart
[18:42:00.438]                       is.null <- base::is.null
[18:42:00.438]                       muffled <- FALSE
[18:42:00.438]                       if (inherits(cond, "message")) {
[18:42:00.438]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:00.438]                         if (muffled) 
[18:42:00.438]                           invokeRestart("muffleMessage")
[18:42:00.438]                       }
[18:42:00.438]                       else if (inherits(cond, "warning")) {
[18:42:00.438]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:00.438]                         if (muffled) 
[18:42:00.438]                           invokeRestart("muffleWarning")
[18:42:00.438]                       }
[18:42:00.438]                       else if (inherits(cond, "condition")) {
[18:42:00.438]                         if (!is.null(pattern)) {
[18:42:00.438]                           computeRestarts <- base::computeRestarts
[18:42:00.438]                           grepl <- base::grepl
[18:42:00.438]                           restarts <- computeRestarts(cond)
[18:42:00.438]                           for (restart in restarts) {
[18:42:00.438]                             name <- restart$name
[18:42:00.438]                             if (is.null(name)) 
[18:42:00.438]                               next
[18:42:00.438]                             if (!grepl(pattern, name)) 
[18:42:00.438]                               next
[18:42:00.438]                             invokeRestart(restart)
[18:42:00.438]                             muffled <- TRUE
[18:42:00.438]                             break
[18:42:00.438]                           }
[18:42:00.438]                         }
[18:42:00.438]                       }
[18:42:00.438]                       invisible(muffled)
[18:42:00.438]                     }
[18:42:00.438]                     muffleCondition(cond, pattern = "^muffle")
[18:42:00.438]                   }
[18:42:00.438]                 }
[18:42:00.438]             }
[18:42:00.438]         }))
[18:42:00.438]     }, error = function(ex) {
[18:42:00.438]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:00.438]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:00.438]                 ...future.rng), started = ...future.startTime, 
[18:42:00.438]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:00.438]             version = "1.8"), class = "FutureResult")
[18:42:00.438]     }, finally = {
[18:42:00.438]         if (!identical(...future.workdir, getwd())) 
[18:42:00.438]             setwd(...future.workdir)
[18:42:00.438]         {
[18:42:00.438]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:00.438]                 ...future.oldOptions$nwarnings <- NULL
[18:42:00.438]             }
[18:42:00.438]             base::options(...future.oldOptions)
[18:42:00.438]             if (.Platform$OS.type == "windows") {
[18:42:00.438]                 old_names <- names(...future.oldEnvVars)
[18:42:00.438]                 envs <- base::Sys.getenv()
[18:42:00.438]                 names <- names(envs)
[18:42:00.438]                 common <- intersect(names, old_names)
[18:42:00.438]                 added <- setdiff(names, old_names)
[18:42:00.438]                 removed <- setdiff(old_names, names)
[18:42:00.438]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:00.438]                   envs[common]]
[18:42:00.438]                 NAMES <- toupper(changed)
[18:42:00.438]                 args <- list()
[18:42:00.438]                 for (kk in seq_along(NAMES)) {
[18:42:00.438]                   name <- changed[[kk]]
[18:42:00.438]                   NAME <- NAMES[[kk]]
[18:42:00.438]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.438]                     next
[18:42:00.438]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.438]                 }
[18:42:00.438]                 NAMES <- toupper(added)
[18:42:00.438]                 for (kk in seq_along(NAMES)) {
[18:42:00.438]                   name <- added[[kk]]
[18:42:00.438]                   NAME <- NAMES[[kk]]
[18:42:00.438]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.438]                     next
[18:42:00.438]                   args[[name]] <- ""
[18:42:00.438]                 }
[18:42:00.438]                 NAMES <- toupper(removed)
[18:42:00.438]                 for (kk in seq_along(NAMES)) {
[18:42:00.438]                   name <- removed[[kk]]
[18:42:00.438]                   NAME <- NAMES[[kk]]
[18:42:00.438]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:00.438]                     next
[18:42:00.438]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:00.438]                 }
[18:42:00.438]                 if (length(args) > 0) 
[18:42:00.438]                   base::do.call(base::Sys.setenv, args = args)
[18:42:00.438]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:00.438]             }
[18:42:00.438]             else {
[18:42:00.438]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:00.438]             }
[18:42:00.438]             {
[18:42:00.438]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:00.438]                   0L) {
[18:42:00.438]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:00.438]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:00.438]                   base::options(opts)
[18:42:00.438]                 }
[18:42:00.438]                 {
[18:42:00.438]                   {
[18:42:00.438]                     NULL
[18:42:00.438]                     RNGkind("Mersenne-Twister")
[18:42:00.438]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[18:42:00.438]                       inherits = FALSE)
[18:42:00.438]                   }
[18:42:00.438]                   options(future.plan = NULL)
[18:42:00.438]                   if (is.na(NA_character_)) 
[18:42:00.438]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:00.438]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:00.438]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:00.438]                     .init = FALSE)
[18:42:00.438]                 }
[18:42:00.438]             }
[18:42:00.438]         }
[18:42:00.438]     })
[18:42:00.438]     if (TRUE) {
[18:42:00.438]         base::sink(type = "output", split = FALSE)
[18:42:00.438]         if (TRUE) {
[18:42:00.438]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:00.438]         }
[18:42:00.438]         else {
[18:42:00.438]             ...future.result["stdout"] <- base::list(NULL)
[18:42:00.438]         }
[18:42:00.438]         base::close(...future.stdout)
[18:42:00.438]         ...future.stdout <- NULL
[18:42:00.438]     }
[18:42:00.438]     ...future.result$conditions <- ...future.conditions
[18:42:00.438]     ...future.result$finished <- base::Sys.time()
[18:42:00.438]     ...future.result
[18:42:00.438] }
[18:42:00.442] assign_globals() ...
[18:42:00.442] List of 11
[18:42:00.442]  $ ...future.FUN            :function (x, ...)  
[18:42:00.442]  $ x_FUN                    :function (x)  
[18:42:00.442]  $ times                    : int 2
[18:42:00.442]  $ stopf                    :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:00.442]  $ stop_if_not              :function (...)  
[18:42:00.442]  $ dim                      : NULL
[18:42:00.442]  $ valid_types              : chr [1:3] "logical" "integer" "double"
[18:42:00.442]  $ future.call.arguments    : list()
[18:42:00.442]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:00.442]  $ ...future.elements_ii    :List of 3
[18:42:00.442]   ..$ : int 1
[18:42:00.442]   ..$ : int 2
[18:42:00.442]   ..$ : int 3
[18:42:00.442]  $ ...future.seeds_ii       : NULL
[18:42:00.442]  $ ...future.globals.maxSize: NULL
[18:42:00.442]  - attr(*, "where")=List of 11
[18:42:00.442]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ x_FUN                    :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ times                    :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ stopf                    :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ stop_if_not              :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ dim                      :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ valid_types              :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:42:00.442]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:42:00.442]  - attr(*, "resolved")= logi FALSE
[18:42:00.442]  - attr(*, "total_size")= num 23676
[18:42:00.442]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:00.442]  - attr(*, "already-done")= logi TRUE
[18:42:00.455] - copied '...future.FUN' to environment
[18:42:00.455] - copied 'x_FUN' to environment
[18:42:00.455] - copied 'times' to environment
[18:42:00.455] - copied 'stopf' to environment
[18:42:00.456] - copied 'stop_if_not' to environment
[18:42:00.456] - copied 'dim' to environment
[18:42:00.456] - copied 'valid_types' to environment
[18:42:00.456] - copied 'future.call.arguments' to environment
[18:42:00.456] - copied '...future.elements_ii' to environment
[18:42:00.457] - copied '...future.seeds_ii' to environment
[18:42:00.457] - copied '...future.globals.maxSize' to environment
[18:42:00.457] assign_globals() ... done
[18:42:00.458] plan(): Setting new future strategy stack:
[18:42:00.458] List of future strategies:
[18:42:00.458] 1. sequential:
[18:42:00.458]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.458]    - tweaked: FALSE
[18:42:00.458]    - call: NULL
[18:42:00.459] plan(): nbrOfWorkers() = 1
[18:42:00.461] plan(): Setting new future strategy stack:
[18:42:00.461] List of future strategies:
[18:42:00.461] 1. sequential:
[18:42:00.461]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.461]    - tweaked: FALSE
[18:42:00.461]    - call: plan(strategy)
[18:42:00.462] plan(): nbrOfWorkers() = 1
[18:42:00.462] SequentialFuture started (and completed)
[18:42:00.463] signalConditions() ...
[18:42:00.463]  - include = 'immediateCondition'
[18:42:00.463]  - exclude = 
[18:42:00.463]  - resignal = FALSE
[18:42:00.463]  - Number of conditions: 1
[18:42:00.464] signalConditions() ... done
[18:42:00.464] - Launch lazy future ... done
[18:42:00.464] run() for 'SequentialFuture' ... done
[18:42:00.464] Created future:
[18:42:00.465] SequentialFuture:
[18:42:00.465] Label: 'future_vapply-1'
[18:42:00.465] Expression:
[18:42:00.465] {
[18:42:00.465]     do.call(function(...) {
[18:42:00.465]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:00.465]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:00.465]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:00.465]             on.exit(options(oopts), add = TRUE)
[18:42:00.465]         }
[18:42:00.465]         {
[18:42:00.465]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:00.465]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:00.465]                 ...future.FUN(...future.X_jj, ...)
[18:42:00.465]             })
[18:42:00.465]         }
[18:42:00.465]     }, args = future.call.arguments)
[18:42:00.465] }
[18:42:00.465] Lazy evaluation: FALSE
[18:42:00.465] Asynchronous evaluation: FALSE
[18:42:00.465] Local evaluation: TRUE
[18:42:00.465] Environment: R_GlobalEnv
[18:42:00.465] Capture standard output: TRUE
[18:42:00.465] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:00.465] Globals: 11 objects totaling 13.02 KiB (function '...future.FUN' of 4.65 KiB, function 'x_FUN' of 185 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:00.465] Packages: 1 packages ('future.apply')
[18:42:00.465] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:00.465] Resolved: TRUE
[18:42:00.465] Value: 27 bytes of class 'NULL'
[18:42:00.465] Conditions captured: [n=1] 'simpleError'
[18:42:00.465] Early signaling: FALSE
[18:42:00.465] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:00.465] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:42:00.466] Chunk #1 of 1 ... DONE
[18:42:00.466] Launching 1 futures (chunks) ... DONE
[18:42:00.467] Resolving 1 futures (chunks) ...
[18:42:00.467] resolve() on list ...
[18:42:00.467]  recursive: 0
[18:42:00.467]  length: 1
[18:42:00.467] 
[18:42:00.468] resolved() for 'SequentialFuture' ...
[18:42:00.468] - state: 'finished'
[18:42:00.468] - run: TRUE
[18:42:00.468] - result: 'FutureResult'
[18:42:00.469] resolved() for 'SequentialFuture' ... done
[18:42:00.469] Future #1
[18:42:00.469] signalConditions() ...
[18:42:00.469]  - include = 'immediateCondition'
[18:42:00.469]  - exclude = 
[18:42:00.470]  - resignal = FALSE
[18:42:00.470]  - Number of conditions: 1
[18:42:00.470] signalConditions() ... done
[18:42:00.470] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:42:00.470] - nx: 1
[18:42:00.471] - relay: TRUE
[18:42:00.471] - stdout: TRUE
[18:42:00.471] - signal: TRUE
[18:42:00.471] - resignal: FALSE
[18:42:00.471] - force: TRUE
[18:42:00.472] - relayed: [n=1] FALSE
[18:42:00.472] - queued futures: [n=1] FALSE
[18:42:00.472]  - until=1
[18:42:00.472]  - relaying element #1
[18:42:00.473] signalConditions() ...
[18:42:00.473]  - include = 'immediateCondition'
[18:42:00.473]  - exclude = 
[18:42:00.473]  - resignal = FALSE
[18:42:00.473]  - Number of conditions: 1
[18:42:00.474] signalConditions() ... done
[18:42:00.474] signalConditions() ...
[18:42:00.474]  - include = 'immediateCondition'
[18:42:00.474]  - exclude = 
[18:42:00.474]  - resignal = FALSE
[18:42:00.475]  - Number of conditions: 1
[18:42:00.475] signalConditions() ... done
[18:42:00.475] signalConditions() ...
[18:42:00.475]  - include = 'condition'
[18:42:00.475]  - exclude = 'immediateCondition'
[18:42:00.476]  - resignal = TRUE
[18:42:00.476]  - Number of conditions: 1
[18:42:00.476]  - Condition #1: 'simpleError', 'error', 'condition'
[18:42:00.476] signalConditions() ... done
[18:42:00.477] - relayed: [n=1] FALSE
[18:42:00.477] - queued futures: [n=1] TRUE
[18:42:00.477] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:42:00.477] plan(): Setting new future strategy stack:
[18:42:00.477] List of future strategies:
[18:42:00.477] 1. sequential:
[18:42:00.477]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:00.477]    - tweaked: FALSE
[18:42:00.477]    - call: plan(sequential)
[18:42:00.478] plan(): nbrOfWorkers() = 1
*** strategy = 'sequential' ... done
*** strategy = 'multisession' ...
[18:42:00.479] plan(): Setting new future strategy stack:
[18:42:00.479] List of future strategies:
[18:42:00.479] 1. multisession:
[18:42:00.479]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[18:42:00.479]    - tweaked: FALSE
[18:42:00.479]    - call: plan(strategy)
[18:42:00.480] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[18:42:00.480] multisession:
[18:42:00.480] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[18:42:00.480] - tweaked: FALSE
[18:42:00.480] - call: plan(strategy)
[18:42:00.485] getGlobalsAndPackages() ...
[18:42:00.485] Not searching for globals
[18:42:00.485] - globals: [0] <none>
[18:42:00.486] getGlobalsAndPackages() ... DONE
[18:42:00.486] [local output] makeClusterPSOCK() ...
[18:42:00.573] [local output] Workers: [n = 2] 'localhost', 'localhost'
[18:42:00.581] [local output] Base port: 30741
[18:42:00.581] [local output] Getting setup options for 2 cluster nodes ...
[18:42:00.581] [local output]  - Node #1 of 2 ...
[18:42:00.582] [local output] localMachine=TRUE => revtunnel=FALSE

[18:42:00.584] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpERlK7e/worker.rank=1.parallelly.parent=122436.1de442951624d.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpERlK7e/worker.rank=1.parallelly.parent=122436.1de442951624d.pid\")"'
[18:42:00.802] - Possible to infer worker's PID: TRUE
[18:42:00.803] [local output] Rscript port: 30741

[18:42:00.804] [local output]  - Node #2 of 2 ...
[18:42:00.805] [local output] localMachine=TRUE => revtunnel=FALSE

[18:42:00.806] [local output] Rscript port: 30741

[18:42:00.806] [local output] Getting setup options for 2 cluster nodes ... done
[18:42:00.807] [local output]  - Parallel setup requested for some PSOCK nodes
[18:42:00.807] [local output] Setting up PSOCK nodes in parallel
[18:42:00.808] List of 36
[18:42:00.808]  $ worker          : chr "localhost"
[18:42:00.808]   ..- attr(*, "localhost")= logi TRUE
[18:42:00.808]  $ master          : chr "localhost"
[18:42:00.808]  $ port            : int 30741
[18:42:00.808]  $ connectTimeout  : num 120
[18:42:00.808]  $ timeout         : num 120
[18:42:00.808]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[18:42:00.808]  $ homogeneous     : logi TRUE
[18:42:00.808]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future_vapply.R:122436:CRANWIN3:"| __truncated__
[18:42:00.808]  $ rscript_envs    : NULL
[18:42:00.808]  $ rscript_libs    : chr [1:2] "D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8" "D:/RCompile/recent/R/library"
[18:42:00.808]  $ rscript_startup : NULL
[18:42:00.808]  $ rscript_sh      : chr [1:2] "cmd" "cmd"
[18:42:00.808]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[18:42:00.808]  $ methods         : logi TRUE
[18:42:00.808]  $ socketOptions   : chr "no-delay"
[18:42:00.808]  $ useXDR          : logi FALSE
[18:42:00.808]  $ outfile         : chr "/dev/null"
[18:42:00.808]  $ renice          : int NA
[18:42:00.808]  $ rshcmd          : NULL
[18:42:00.808]  $ user            : chr(0) 
[18:42:00.808]  $ revtunnel       : logi FALSE
[18:42:00.808]  $ rshlogfile      : NULL
[18:42:00.808]  $ rshopts         : chr(0) 
[18:42:00.808]  $ rank            : int 1
[18:42:00.808]  $ manual          : logi FALSE
[18:42:00.808]  $ dryrun          : logi FALSE
[18:42:00.808]  $ quiet           : logi FALSE
[18:42:00.808]  $ setup_strategy  : chr "parallel"
[18:42:00.808]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[18:42:00.808]  $ pidfile         : chr "D:/temp/RtmpERlK7e/worker.rank=1.parallelly.parent=122436.1de442951624d.pid"
[18:42:00.808]  $ rshcmd_label    : NULL
[18:42:00.808]  $ rsh_call        : NULL
[18:42:00.808]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[18:42:00.808]  $ localMachine    : logi TRUE
[18:42:00.808]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[18:42:00.808]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[18:42:00.808]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[18:42:00.808]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[18:42:00.808]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[18:42:00.808]         "cmd", "sh", "none"), default_packages = c("datasets", "utils", 
[18:42:00.808]         "grDevices", "graphics", "stats", if (methods) "methods"), methods = TRUE, 
[18:42:00.808]     socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[18:42:00.808]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[18:42:00.808]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[18:42:00.808]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[18:42:00.808]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[18:42:00.808]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[18:42:00.808]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[18:42:00.808]  $ arguments       :List of 28
[18:42:00.808]   ..$ worker          : chr "localhost"
[18:42:00.808]   ..$ master          : NULL
[18:42:00.808]   ..$ port            : int 30741
[18:42:00.808]   ..$ connectTimeout  : num 120
[18:42:00.808]   ..$ timeout         : num 120
[18:42:00.808]   ..$ rscript         : NULL
[18:42:00.808]   ..$ homogeneous     : NULL
[18:42:00.808]   ..$ rscript_args    : NULL
[18:42:00.808]   ..$ rscript_envs    : NULL
[18:42:00.808]   ..$ rscript_libs    : chr [1:2] "D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8" "D:/RCompile/recent/R/library"
[18:42:00.808]   ..$ rscript_startup : NULL
[18:42:00.808]   ..$ rscript_sh      : chr "auto"
[18:42:00.808]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[18:42:00.808]   ..$ methods         : logi TRUE
[18:42:00.808]   ..$ socketOptions   : chr "no-delay"
[18:42:00.808]   ..$ useXDR          : logi FALSE
[18:42:00.808]   ..$ outfile         : chr "/dev/null"
[18:42:00.808]   ..$ renice          : int NA
[18:42:00.808]   ..$ rshcmd          : NULL
[18:42:00.808]   ..$ user            : NULL
[18:42:00.808]   ..$ revtunnel       : logi NA
[18:42:00.808]   ..$ rshlogfile      : NULL
[18:42:00.808]   ..$ rshopts         : NULL
[18:42:00.808]   ..$ rank            : int 1
[18:42:00.808]   ..$ manual          : logi FALSE
[18:42:00.808]   ..$ dryrun          : logi FALSE
[18:42:00.808]   ..$ quiet           : logi FALSE
[18:42:00.808]   ..$ setup_strategy  : chr "parallel"
[18:42:00.808]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[18:42:00.829] [local output] System call to launch all workers:
[18:42:00.829] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_vapply.R:122436:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpERlK7e/worker.rank=1.parallelly.parent=122436.1de442951624d.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=30741 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[18:42:00.829] [local output] Starting PSOCK main server
[18:42:00.836] [local output] Workers launched
[18:42:00.836] [local output] Waiting for workers to connect back
[18:42:00.837]  - [local output] 0 workers out of 2 ready
[18:42:01.006]  - [local output] 0 workers out of 2 ready
[18:42:01.006]  - [local output] 1 workers out of 2 ready
[18:42:01.014]  - [local output] 1 workers out of 2 ready
[18:42:01.014]  - [local output] 2 workers out of 2 ready
[18:42:01.014] [local output] Launching of 2 workers completed
[18:42:01.014] [local output] Number of nodes in cluster: 2
[18:42:01.014] [local output] Collecting session information from 2 workers
[18:42:01.015] [local output]  - Worker #1 of 2
[18:42:01.016] [local output]  - Worker #2 of 2
[18:42:01.017] [local output] makeClusterPSOCK() ... done
[18:42:01.030] Packages needed by the future expression (n = 0): <none>
[18:42:01.031] Packages needed by future strategies (n = 0): <none>
[18:42:01.031] {
[18:42:01.031]     {
[18:42:01.031]         {
[18:42:01.031]             ...future.startTime <- base::Sys.time()
[18:42:01.031]             {
[18:42:01.031]                 {
[18:42:01.031]                   {
[18:42:01.031]                     {
[18:42:01.031]                       base::local({
[18:42:01.031]                         has_future <- base::requireNamespace("future", 
[18:42:01.031]                           quietly = TRUE)
[18:42:01.031]                         if (has_future) {
[18:42:01.031]                           ns <- base::getNamespace("future")
[18:42:01.031]                           version <- ns[[".package"]][["version"]]
[18:42:01.031]                           if (is.null(version)) 
[18:42:01.031]                             version <- utils::packageVersion("future")
[18:42:01.031]                         }
[18:42:01.031]                         else {
[18:42:01.031]                           version <- NULL
[18:42:01.031]                         }
[18:42:01.031]                         if (!has_future || version < "1.8.0") {
[18:42:01.031]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.031]                             "", base::R.version$version.string), 
[18:42:01.031]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:01.031]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:01.031]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.031]                               "release", "version")], collapse = " "), 
[18:42:01.031]                             hostname = base::Sys.info()[["nodename"]])
[18:42:01.031]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.031]                             info)
[18:42:01.031]                           info <- base::paste(info, collapse = "; ")
[18:42:01.031]                           if (!has_future) {
[18:42:01.031]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.031]                               info)
[18:42:01.031]                           }
[18:42:01.031]                           else {
[18:42:01.031]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.031]                               info, version)
[18:42:01.031]                           }
[18:42:01.031]                           base::stop(msg)
[18:42:01.031]                         }
[18:42:01.031]                       })
[18:42:01.031]                     }
[18:42:01.031]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.031]                     base::options(mc.cores = 1L)
[18:42:01.031]                   }
[18:42:01.031]                   ...future.strategy.old <- future::plan("list")
[18:42:01.031]                   options(future.plan = NULL)
[18:42:01.031]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.031]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.031]                 }
[18:42:01.031]                 ...future.workdir <- getwd()
[18:42:01.031]             }
[18:42:01.031]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.031]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.031]         }
[18:42:01.031]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.031]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:42:01.031]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.031]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.031]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.031]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.031]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.031]             base::names(...future.oldOptions))
[18:42:01.031]     }
[18:42:01.031]     if (FALSE) {
[18:42:01.031]     }
[18:42:01.031]     else {
[18:42:01.031]         if (TRUE) {
[18:42:01.031]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.031]                 open = "w")
[18:42:01.031]         }
[18:42:01.031]         else {
[18:42:01.031]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.031]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.031]         }
[18:42:01.031]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.031]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.031]             base::sink(type = "output", split = FALSE)
[18:42:01.031]             base::close(...future.stdout)
[18:42:01.031]         }, add = TRUE)
[18:42:01.031]     }
[18:42:01.031]     ...future.frame <- base::sys.nframe()
[18:42:01.031]     ...future.conditions <- base::list()
[18:42:01.031]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.031]     if (FALSE) {
[18:42:01.031]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.031]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.031]     }
[18:42:01.031]     ...future.result <- base::tryCatch({
[18:42:01.031]         base::withCallingHandlers({
[18:42:01.031]             ...future.value <- base::withVisible(base::local({
[18:42:01.031]                 ...future.makeSendCondition <- base::local({
[18:42:01.031]                   sendCondition <- NULL
[18:42:01.031]                   function(frame = 1L) {
[18:42:01.031]                     if (is.function(sendCondition)) 
[18:42:01.031]                       return(sendCondition)
[18:42:01.031]                     ns <- getNamespace("parallel")
[18:42:01.031]                     if (exists("sendData", mode = "function", 
[18:42:01.031]                       envir = ns)) {
[18:42:01.031]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.031]                         envir = ns)
[18:42:01.031]                       envir <- sys.frame(frame)
[18:42:01.031]                       master <- NULL
[18:42:01.031]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.031]                         !identical(envir, emptyenv())) {
[18:42:01.031]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.031]                           inherits = FALSE)) {
[18:42:01.031]                           master <- get("master", mode = "list", 
[18:42:01.031]                             envir = envir, inherits = FALSE)
[18:42:01.031]                           if (inherits(master, c("SOCKnode", 
[18:42:01.031]                             "SOCK0node"))) {
[18:42:01.031]                             sendCondition <<- function(cond) {
[18:42:01.031]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.031]                                 success = TRUE)
[18:42:01.031]                               parallel_sendData(master, data)
[18:42:01.031]                             }
[18:42:01.031]                             return(sendCondition)
[18:42:01.031]                           }
[18:42:01.031]                         }
[18:42:01.031]                         frame <- frame + 1L
[18:42:01.031]                         envir <- sys.frame(frame)
[18:42:01.031]                       }
[18:42:01.031]                     }
[18:42:01.031]                     sendCondition <<- function(cond) NULL
[18:42:01.031]                   }
[18:42:01.031]                 })
[18:42:01.031]                 withCallingHandlers({
[18:42:01.031]                   NA
[18:42:01.031]                 }, immediateCondition = function(cond) {
[18:42:01.031]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.031]                   sendCondition(cond)
[18:42:01.031]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.031]                   {
[18:42:01.031]                     inherits <- base::inherits
[18:42:01.031]                     invokeRestart <- base::invokeRestart
[18:42:01.031]                     is.null <- base::is.null
[18:42:01.031]                     muffled <- FALSE
[18:42:01.031]                     if (inherits(cond, "message")) {
[18:42:01.031]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.031]                       if (muffled) 
[18:42:01.031]                         invokeRestart("muffleMessage")
[18:42:01.031]                     }
[18:42:01.031]                     else if (inherits(cond, "warning")) {
[18:42:01.031]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.031]                       if (muffled) 
[18:42:01.031]                         invokeRestart("muffleWarning")
[18:42:01.031]                     }
[18:42:01.031]                     else if (inherits(cond, "condition")) {
[18:42:01.031]                       if (!is.null(pattern)) {
[18:42:01.031]                         computeRestarts <- base::computeRestarts
[18:42:01.031]                         grepl <- base::grepl
[18:42:01.031]                         restarts <- computeRestarts(cond)
[18:42:01.031]                         for (restart in restarts) {
[18:42:01.031]                           name <- restart$name
[18:42:01.031]                           if (is.null(name)) 
[18:42:01.031]                             next
[18:42:01.031]                           if (!grepl(pattern, name)) 
[18:42:01.031]                             next
[18:42:01.031]                           invokeRestart(restart)
[18:42:01.031]                           muffled <- TRUE
[18:42:01.031]                           break
[18:42:01.031]                         }
[18:42:01.031]                       }
[18:42:01.031]                     }
[18:42:01.031]                     invisible(muffled)
[18:42:01.031]                   }
[18:42:01.031]                   muffleCondition(cond)
[18:42:01.031]                 })
[18:42:01.031]             }))
[18:42:01.031]             future::FutureResult(value = ...future.value$value, 
[18:42:01.031]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.031]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.031]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.031]                     ...future.globalenv.names))
[18:42:01.031]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.031]         }, condition = base::local({
[18:42:01.031]             c <- base::c
[18:42:01.031]             inherits <- base::inherits
[18:42:01.031]             invokeRestart <- base::invokeRestart
[18:42:01.031]             length <- base::length
[18:42:01.031]             list <- base::list
[18:42:01.031]             seq.int <- base::seq.int
[18:42:01.031]             signalCondition <- base::signalCondition
[18:42:01.031]             sys.calls <- base::sys.calls
[18:42:01.031]             `[[` <- base::`[[`
[18:42:01.031]             `+` <- base::`+`
[18:42:01.031]             `<<-` <- base::`<<-`
[18:42:01.031]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.031]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.031]                   3L)]
[18:42:01.031]             }
[18:42:01.031]             function(cond) {
[18:42:01.031]                 is_error <- inherits(cond, "error")
[18:42:01.031]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.031]                   NULL)
[18:42:01.031]                 if (is_error) {
[18:42:01.031]                   sessionInformation <- function() {
[18:42:01.031]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.031]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.031]                       search = base::search(), system = base::Sys.info())
[18:42:01.031]                   }
[18:42:01.031]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.031]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.031]                     cond$call), session = sessionInformation(), 
[18:42:01.031]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.031]                   signalCondition(cond)
[18:42:01.031]                 }
[18:42:01.031]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.031]                 "immediateCondition"))) {
[18:42:01.031]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.031]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.031]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.031]                   if (TRUE && !signal) {
[18:42:01.031]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.031]                     {
[18:42:01.031]                       inherits <- base::inherits
[18:42:01.031]                       invokeRestart <- base::invokeRestart
[18:42:01.031]                       is.null <- base::is.null
[18:42:01.031]                       muffled <- FALSE
[18:42:01.031]                       if (inherits(cond, "message")) {
[18:42:01.031]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.031]                         if (muffled) 
[18:42:01.031]                           invokeRestart("muffleMessage")
[18:42:01.031]                       }
[18:42:01.031]                       else if (inherits(cond, "warning")) {
[18:42:01.031]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.031]                         if (muffled) 
[18:42:01.031]                           invokeRestart("muffleWarning")
[18:42:01.031]                       }
[18:42:01.031]                       else if (inherits(cond, "condition")) {
[18:42:01.031]                         if (!is.null(pattern)) {
[18:42:01.031]                           computeRestarts <- base::computeRestarts
[18:42:01.031]                           grepl <- base::grepl
[18:42:01.031]                           restarts <- computeRestarts(cond)
[18:42:01.031]                           for (restart in restarts) {
[18:42:01.031]                             name <- restart$name
[18:42:01.031]                             if (is.null(name)) 
[18:42:01.031]                               next
[18:42:01.031]                             if (!grepl(pattern, name)) 
[18:42:01.031]                               next
[18:42:01.031]                             invokeRestart(restart)
[18:42:01.031]                             muffled <- TRUE
[18:42:01.031]                             break
[18:42:01.031]                           }
[18:42:01.031]                         }
[18:42:01.031]                       }
[18:42:01.031]                       invisible(muffled)
[18:42:01.031]                     }
[18:42:01.031]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.031]                   }
[18:42:01.031]                 }
[18:42:01.031]                 else {
[18:42:01.031]                   if (TRUE) {
[18:42:01.031]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.031]                     {
[18:42:01.031]                       inherits <- base::inherits
[18:42:01.031]                       invokeRestart <- base::invokeRestart
[18:42:01.031]                       is.null <- base::is.null
[18:42:01.031]                       muffled <- FALSE
[18:42:01.031]                       if (inherits(cond, "message")) {
[18:42:01.031]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.031]                         if (muffled) 
[18:42:01.031]                           invokeRestart("muffleMessage")
[18:42:01.031]                       }
[18:42:01.031]                       else if (inherits(cond, "warning")) {
[18:42:01.031]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.031]                         if (muffled) 
[18:42:01.031]                           invokeRestart("muffleWarning")
[18:42:01.031]                       }
[18:42:01.031]                       else if (inherits(cond, "condition")) {
[18:42:01.031]                         if (!is.null(pattern)) {
[18:42:01.031]                           computeRestarts <- base::computeRestarts
[18:42:01.031]                           grepl <- base::grepl
[18:42:01.031]                           restarts <- computeRestarts(cond)
[18:42:01.031]                           for (restart in restarts) {
[18:42:01.031]                             name <- restart$name
[18:42:01.031]                             if (is.null(name)) 
[18:42:01.031]                               next
[18:42:01.031]                             if (!grepl(pattern, name)) 
[18:42:01.031]                               next
[18:42:01.031]                             invokeRestart(restart)
[18:42:01.031]                             muffled <- TRUE
[18:42:01.031]                             break
[18:42:01.031]                           }
[18:42:01.031]                         }
[18:42:01.031]                       }
[18:42:01.031]                       invisible(muffled)
[18:42:01.031]                     }
[18:42:01.031]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.031]                   }
[18:42:01.031]                 }
[18:42:01.031]             }
[18:42:01.031]         }))
[18:42:01.031]     }, error = function(ex) {
[18:42:01.031]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.031]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.031]                 ...future.rng), started = ...future.startTime, 
[18:42:01.031]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.031]             version = "1.8"), class = "FutureResult")
[18:42:01.031]     }, finally = {
[18:42:01.031]         if (!identical(...future.workdir, getwd())) 
[18:42:01.031]             setwd(...future.workdir)
[18:42:01.031]         {
[18:42:01.031]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.031]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.031]             }
[18:42:01.031]             base::options(...future.oldOptions)
[18:42:01.031]             if (.Platform$OS.type == "windows") {
[18:42:01.031]                 old_names <- names(...future.oldEnvVars)
[18:42:01.031]                 envs <- base::Sys.getenv()
[18:42:01.031]                 names <- names(envs)
[18:42:01.031]                 common <- intersect(names, old_names)
[18:42:01.031]                 added <- setdiff(names, old_names)
[18:42:01.031]                 removed <- setdiff(old_names, names)
[18:42:01.031]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.031]                   envs[common]]
[18:42:01.031]                 NAMES <- toupper(changed)
[18:42:01.031]                 args <- list()
[18:42:01.031]                 for (kk in seq_along(NAMES)) {
[18:42:01.031]                   name <- changed[[kk]]
[18:42:01.031]                   NAME <- NAMES[[kk]]
[18:42:01.031]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.031]                     next
[18:42:01.031]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.031]                 }
[18:42:01.031]                 NAMES <- toupper(added)
[18:42:01.031]                 for (kk in seq_along(NAMES)) {
[18:42:01.031]                   name <- added[[kk]]
[18:42:01.031]                   NAME <- NAMES[[kk]]
[18:42:01.031]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.031]                     next
[18:42:01.031]                   args[[name]] <- ""
[18:42:01.031]                 }
[18:42:01.031]                 NAMES <- toupper(removed)
[18:42:01.031]                 for (kk in seq_along(NAMES)) {
[18:42:01.031]                   name <- removed[[kk]]
[18:42:01.031]                   NAME <- NAMES[[kk]]
[18:42:01.031]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.031]                     next
[18:42:01.031]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.031]                 }
[18:42:01.031]                 if (length(args) > 0) 
[18:42:01.031]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.031]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.031]             }
[18:42:01.031]             else {
[18:42:01.031]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.031]             }
[18:42:01.031]             {
[18:42:01.031]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.031]                   0L) {
[18:42:01.031]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.031]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.031]                   base::options(opts)
[18:42:01.031]                 }
[18:42:01.031]                 {
[18:42:01.031]                   {
[18:42:01.031]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.031]                     NULL
[18:42:01.031]                   }
[18:42:01.031]                   options(future.plan = NULL)
[18:42:01.031]                   if (is.na(NA_character_)) 
[18:42:01.031]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.031]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.031]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.031]                     .init = FALSE)
[18:42:01.031]                 }
[18:42:01.031]             }
[18:42:01.031]         }
[18:42:01.031]     })
[18:42:01.031]     if (TRUE) {
[18:42:01.031]         base::sink(type = "output", split = FALSE)
[18:42:01.031]         if (TRUE) {
[18:42:01.031]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.031]         }
[18:42:01.031]         else {
[18:42:01.031]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.031]         }
[18:42:01.031]         base::close(...future.stdout)
[18:42:01.031]         ...future.stdout <- NULL
[18:42:01.031]     }
[18:42:01.031]     ...future.result$conditions <- ...future.conditions
[18:42:01.031]     ...future.result$finished <- base::Sys.time()
[18:42:01.031]     ...future.result
[18:42:01.031] }
[18:42:01.148] MultisessionFuture started
[18:42:01.148] result() for ClusterFuture ...
[18:42:01.149] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.149] - Validating connection of MultisessionFuture
[18:42:01.235] - received message: FutureResult
[18:42:01.235] - Received FutureResult
[18:42:01.239] - Erased future from FutureRegistry
[18:42:01.240] result() for ClusterFuture ...
[18:42:01.240] - result already collected: FutureResult
[18:42:01.240] result() for ClusterFuture ... done
[18:42:01.241] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.241] result() for ClusterFuture ... done
[18:42:01.241] result() for ClusterFuture ...
[18:42:01.241] - result already collected: FutureResult
[18:42:01.242] result() for ClusterFuture ... done
[18:42:01.242] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[18:42:01.246] plan(): nbrOfWorkers() = 2
 logi(0) 
 logi(0) 
 logi(0) 
 logi(0) 
 logi(0) 
 int(0) 
 int(0) 
 Named chr [1:2] "integer" "character"
 - attr(*, "names")= chr [1:2] "x" "y"
[18:42:01.250] future_lapply() ...
[18:42:01.258] Number of chunks: 2
[18:42:01.258] getGlobalsAndPackagesXApply() ...
[18:42:01.258]  - future.globals: TRUE
[18:42:01.259] getGlobalsAndPackages() ...
[18:42:01.259] Searching for globals...
[18:42:01.265] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:01.265] Searching for globals ... DONE
[18:42:01.265] Resolving globals: FALSE
[18:42:01.267] The total size of the 7 globals is 12.01 KiB (12294 bytes)
[18:42:01.268] The total size of the 7 globals exported for future expression ('FUN()') is 12.01 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.02 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:01.268] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:01.268] - packages: [1] 'future.apply'
[18:42:01.269] getGlobalsAndPackages() ... DONE
[18:42:01.269]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:01.269]  - needed namespaces: [n=1] 'future.apply'
[18:42:01.270] Finding globals ... DONE
[18:42:01.270]  - use_args: TRUE
[18:42:01.270]  - Getting '...' globals ...
[18:42:01.271] resolve() on list ...
[18:42:01.271]  recursive: 0
[18:42:01.271]  length: 1
[18:42:01.271]  elements: '...'
[18:42:01.272]  length: 0 (resolved future 1)
[18:42:01.272] resolve() on list ... DONE
[18:42:01.272]    - '...' content: [n=0] 
[18:42:01.273] List of 1
[18:42:01.273]  $ ...: list()
[18:42:01.273]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:01.273]  - attr(*, "where")=List of 1
[18:42:01.273]   ..$ ...:<environment: 0x000002ea03db88d0> 
[18:42:01.273]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:01.273]  - attr(*, "resolved")= logi TRUE
[18:42:01.273]  - attr(*, "total_size")= num NA
[18:42:01.277]  - Getting '...' globals ... DONE
[18:42:01.277] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:01.278] List of 8
[18:42:01.278]  $ ...future.FUN:function (x, ...)  
[18:42:01.278]  $ x_FUN        :function (x)  
[18:42:01.278]  $ times        : int 1
[18:42:01.278]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:01.278]  $ stop_if_not  :function (...)  
[18:42:01.278]  $ dim          : NULL
[18:42:01.278]  $ valid_types  : chr "character"
[18:42:01.278]  $ ...          : list()
[18:42:01.278]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:01.278]  - attr(*, "where")=List of 8
[18:42:01.278]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:01.278]   ..$ ...          :<environment: 0x000002ea03db88d0> 
[18:42:01.278]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:01.278]  - attr(*, "resolved")= logi FALSE
[18:42:01.278]  - attr(*, "total_size")= int 22333
[18:42:01.288] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:01.288] getGlobalsAndPackagesXApply() ... DONE
[18:42:01.289] Number of futures (= number of chunks): 2
[18:42:01.289] Launching 2 futures (chunks) ...
[18:42:01.289] Chunk #1 of 2 ...
[18:42:01.290]  - Finding globals in 'X' for chunk #1 ...
[18:42:01.290] getGlobalsAndPackages() ...
[18:42:01.290] Searching for globals...
[18:42:01.291] 
[18:42:01.291] Searching for globals ... DONE
[18:42:01.291] - globals: [0] <none>
[18:42:01.291] getGlobalsAndPackages() ... DONE
[18:42:01.292]    + additional globals found: [n=0] 
[18:42:01.292]    + additional namespaces needed: [n=0] 
[18:42:01.292]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:01.292]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:01.293]  - seeds: <none>
[18:42:01.293]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.293] getGlobalsAndPackages() ...
[18:42:01.293] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.294] Resolving globals: FALSE
[18:42:01.294] Tweak future expression to call with '...' arguments ...
[18:42:01.294] {
[18:42:01.294]     do.call(function(...) {
[18:42:01.294]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.294]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.294]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.294]             on.exit(options(oopts), add = TRUE)
[18:42:01.294]         }
[18:42:01.294]         {
[18:42:01.294]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.294]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.294]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.294]             })
[18:42:01.294]         }
[18:42:01.294]     }, args = future.call.arguments)
[18:42:01.294] }
[18:42:01.295] Tweak future expression to call with '...' arguments ... DONE
[18:42:01.296] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.296] - packages: [1] 'future.apply'
[18:42:01.297] getGlobalsAndPackages() ... DONE
[18:42:01.297] run() for 'Future' ...
[18:42:01.298] - state: 'created'
[18:42:01.298] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:01.319] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.320] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:01.320]   - Field: 'node'
[18:42:01.320]   - Field: 'label'
[18:42:01.321]   - Field: 'local'
[18:42:01.321]   - Field: 'owner'
[18:42:01.321]   - Field: 'envir'
[18:42:01.322]   - Field: 'workers'
[18:42:01.322]   - Field: 'packages'
[18:42:01.322]   - Field: 'gc'
[18:42:01.322]   - Field: 'conditions'
[18:42:01.323]   - Field: 'persistent'
[18:42:01.323]   - Field: 'expr'
[18:42:01.323]   - Field: 'uuid'
[18:42:01.323]   - Field: 'seed'
[18:42:01.324]   - Field: 'version'
[18:42:01.324]   - Field: 'result'
[18:42:01.324]   - Field: 'asynchronous'
[18:42:01.325]   - Field: 'calls'
[18:42:01.325]   - Field: 'globals'
[18:42:01.325]   - Field: 'stdout'
[18:42:01.325]   - Field: 'earlySignal'
[18:42:01.326]   - Field: 'lazy'
[18:42:01.326]   - Field: 'state'
[18:42:01.326] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:01.327] - Launch lazy future ...
[18:42:01.327] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:01.327] Packages needed by future strategies (n = 0): <none>
[18:42:01.328] {
[18:42:01.328]     {
[18:42:01.328]         {
[18:42:01.328]             ...future.startTime <- base::Sys.time()
[18:42:01.328]             {
[18:42:01.328]                 {
[18:42:01.328]                   {
[18:42:01.328]                     {
[18:42:01.328]                       {
[18:42:01.328]                         base::local({
[18:42:01.328]                           has_future <- base::requireNamespace("future", 
[18:42:01.328]                             quietly = TRUE)
[18:42:01.328]                           if (has_future) {
[18:42:01.328]                             ns <- base::getNamespace("future")
[18:42:01.328]                             version <- ns[[".package"]][["version"]]
[18:42:01.328]                             if (is.null(version)) 
[18:42:01.328]                               version <- utils::packageVersion("future")
[18:42:01.328]                           }
[18:42:01.328]                           else {
[18:42:01.328]                             version <- NULL
[18:42:01.328]                           }
[18:42:01.328]                           if (!has_future || version < "1.8.0") {
[18:42:01.328]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.328]                               "", base::R.version$version.string), 
[18:42:01.328]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:01.328]                                 base::R.version$platform, 8 * 
[18:42:01.328]                                   base::.Machine$sizeof.pointer), 
[18:42:01.328]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.328]                                 "release", "version")], collapse = " "), 
[18:42:01.328]                               hostname = base::Sys.info()[["nodename"]])
[18:42:01.328]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.328]                               info)
[18:42:01.328]                             info <- base::paste(info, collapse = "; ")
[18:42:01.328]                             if (!has_future) {
[18:42:01.328]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.328]                                 info)
[18:42:01.328]                             }
[18:42:01.328]                             else {
[18:42:01.328]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.328]                                 info, version)
[18:42:01.328]                             }
[18:42:01.328]                             base::stop(msg)
[18:42:01.328]                           }
[18:42:01.328]                         })
[18:42:01.328]                       }
[18:42:01.328]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.328]                       base::options(mc.cores = 1L)
[18:42:01.328]                     }
[18:42:01.328]                     base::local({
[18:42:01.328]                       for (pkg in "future.apply") {
[18:42:01.328]                         base::loadNamespace(pkg)
[18:42:01.328]                         base::library(pkg, character.only = TRUE)
[18:42:01.328]                       }
[18:42:01.328]                     })
[18:42:01.328]                   }
[18:42:01.328]                   ...future.strategy.old <- future::plan("list")
[18:42:01.328]                   options(future.plan = NULL)
[18:42:01.328]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.328]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.328]                 }
[18:42:01.328]                 ...future.workdir <- getwd()
[18:42:01.328]             }
[18:42:01.328]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.328]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.328]         }
[18:42:01.328]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.328]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:01.328]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.328]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.328]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.328]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.328]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.328]             base::names(...future.oldOptions))
[18:42:01.328]     }
[18:42:01.328]     if (FALSE) {
[18:42:01.328]     }
[18:42:01.328]     else {
[18:42:01.328]         if (TRUE) {
[18:42:01.328]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.328]                 open = "w")
[18:42:01.328]         }
[18:42:01.328]         else {
[18:42:01.328]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.328]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.328]         }
[18:42:01.328]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.328]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.328]             base::sink(type = "output", split = FALSE)
[18:42:01.328]             base::close(...future.stdout)
[18:42:01.328]         }, add = TRUE)
[18:42:01.328]     }
[18:42:01.328]     ...future.frame <- base::sys.nframe()
[18:42:01.328]     ...future.conditions <- base::list()
[18:42:01.328]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.328]     if (FALSE) {
[18:42:01.328]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.328]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.328]     }
[18:42:01.328]     ...future.result <- base::tryCatch({
[18:42:01.328]         base::withCallingHandlers({
[18:42:01.328]             ...future.value <- base::withVisible(base::local({
[18:42:01.328]                 ...future.makeSendCondition <- base::local({
[18:42:01.328]                   sendCondition <- NULL
[18:42:01.328]                   function(frame = 1L) {
[18:42:01.328]                     if (is.function(sendCondition)) 
[18:42:01.328]                       return(sendCondition)
[18:42:01.328]                     ns <- getNamespace("parallel")
[18:42:01.328]                     if (exists("sendData", mode = "function", 
[18:42:01.328]                       envir = ns)) {
[18:42:01.328]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.328]                         envir = ns)
[18:42:01.328]                       envir <- sys.frame(frame)
[18:42:01.328]                       master <- NULL
[18:42:01.328]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.328]                         !identical(envir, emptyenv())) {
[18:42:01.328]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.328]                           inherits = FALSE)) {
[18:42:01.328]                           master <- get("master", mode = "list", 
[18:42:01.328]                             envir = envir, inherits = FALSE)
[18:42:01.328]                           if (inherits(master, c("SOCKnode", 
[18:42:01.328]                             "SOCK0node"))) {
[18:42:01.328]                             sendCondition <<- function(cond) {
[18:42:01.328]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.328]                                 success = TRUE)
[18:42:01.328]                               parallel_sendData(master, data)
[18:42:01.328]                             }
[18:42:01.328]                             return(sendCondition)
[18:42:01.328]                           }
[18:42:01.328]                         }
[18:42:01.328]                         frame <- frame + 1L
[18:42:01.328]                         envir <- sys.frame(frame)
[18:42:01.328]                       }
[18:42:01.328]                     }
[18:42:01.328]                     sendCondition <<- function(cond) NULL
[18:42:01.328]                   }
[18:42:01.328]                 })
[18:42:01.328]                 withCallingHandlers({
[18:42:01.328]                   {
[18:42:01.328]                     do.call(function(...) {
[18:42:01.328]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.328]                       if (!identical(...future.globals.maxSize.org, 
[18:42:01.328]                         ...future.globals.maxSize)) {
[18:42:01.328]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.328]                         on.exit(options(oopts), add = TRUE)
[18:42:01.328]                       }
[18:42:01.328]                       {
[18:42:01.328]                         lapply(seq_along(...future.elements_ii), 
[18:42:01.328]                           FUN = function(jj) {
[18:42:01.328]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.328]                             ...future.FUN(...future.X_jj, ...)
[18:42:01.328]                           })
[18:42:01.328]                       }
[18:42:01.328]                     }, args = future.call.arguments)
[18:42:01.328]                   }
[18:42:01.328]                 }, immediateCondition = function(cond) {
[18:42:01.328]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.328]                   sendCondition(cond)
[18:42:01.328]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.328]                   {
[18:42:01.328]                     inherits <- base::inherits
[18:42:01.328]                     invokeRestart <- base::invokeRestart
[18:42:01.328]                     is.null <- base::is.null
[18:42:01.328]                     muffled <- FALSE
[18:42:01.328]                     if (inherits(cond, "message")) {
[18:42:01.328]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.328]                       if (muffled) 
[18:42:01.328]                         invokeRestart("muffleMessage")
[18:42:01.328]                     }
[18:42:01.328]                     else if (inherits(cond, "warning")) {
[18:42:01.328]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.328]                       if (muffled) 
[18:42:01.328]                         invokeRestart("muffleWarning")
[18:42:01.328]                     }
[18:42:01.328]                     else if (inherits(cond, "condition")) {
[18:42:01.328]                       if (!is.null(pattern)) {
[18:42:01.328]                         computeRestarts <- base::computeRestarts
[18:42:01.328]                         grepl <- base::grepl
[18:42:01.328]                         restarts <- computeRestarts(cond)
[18:42:01.328]                         for (restart in restarts) {
[18:42:01.328]                           name <- restart$name
[18:42:01.328]                           if (is.null(name)) 
[18:42:01.328]                             next
[18:42:01.328]                           if (!grepl(pattern, name)) 
[18:42:01.328]                             next
[18:42:01.328]                           invokeRestart(restart)
[18:42:01.328]                           muffled <- TRUE
[18:42:01.328]                           break
[18:42:01.328]                         }
[18:42:01.328]                       }
[18:42:01.328]                     }
[18:42:01.328]                     invisible(muffled)
[18:42:01.328]                   }
[18:42:01.328]                   muffleCondition(cond)
[18:42:01.328]                 })
[18:42:01.328]             }))
[18:42:01.328]             future::FutureResult(value = ...future.value$value, 
[18:42:01.328]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.328]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.328]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.328]                     ...future.globalenv.names))
[18:42:01.328]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.328]         }, condition = base::local({
[18:42:01.328]             c <- base::c
[18:42:01.328]             inherits <- base::inherits
[18:42:01.328]             invokeRestart <- base::invokeRestart
[18:42:01.328]             length <- base::length
[18:42:01.328]             list <- base::list
[18:42:01.328]             seq.int <- base::seq.int
[18:42:01.328]             signalCondition <- base::signalCondition
[18:42:01.328]             sys.calls <- base::sys.calls
[18:42:01.328]             `[[` <- base::`[[`
[18:42:01.328]             `+` <- base::`+`
[18:42:01.328]             `<<-` <- base::`<<-`
[18:42:01.328]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.328]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.328]                   3L)]
[18:42:01.328]             }
[18:42:01.328]             function(cond) {
[18:42:01.328]                 is_error <- inherits(cond, "error")
[18:42:01.328]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.328]                   NULL)
[18:42:01.328]                 if (is_error) {
[18:42:01.328]                   sessionInformation <- function() {
[18:42:01.328]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.328]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.328]                       search = base::search(), system = base::Sys.info())
[18:42:01.328]                   }
[18:42:01.328]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.328]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.328]                     cond$call), session = sessionInformation(), 
[18:42:01.328]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.328]                   signalCondition(cond)
[18:42:01.328]                 }
[18:42:01.328]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.328]                 "immediateCondition"))) {
[18:42:01.328]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.328]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.328]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.328]                   if (TRUE && !signal) {
[18:42:01.328]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.328]                     {
[18:42:01.328]                       inherits <- base::inherits
[18:42:01.328]                       invokeRestart <- base::invokeRestart
[18:42:01.328]                       is.null <- base::is.null
[18:42:01.328]                       muffled <- FALSE
[18:42:01.328]                       if (inherits(cond, "message")) {
[18:42:01.328]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.328]                         if (muffled) 
[18:42:01.328]                           invokeRestart("muffleMessage")
[18:42:01.328]                       }
[18:42:01.328]                       else if (inherits(cond, "warning")) {
[18:42:01.328]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.328]                         if (muffled) 
[18:42:01.328]                           invokeRestart("muffleWarning")
[18:42:01.328]                       }
[18:42:01.328]                       else if (inherits(cond, "condition")) {
[18:42:01.328]                         if (!is.null(pattern)) {
[18:42:01.328]                           computeRestarts <- base::computeRestarts
[18:42:01.328]                           grepl <- base::grepl
[18:42:01.328]                           restarts <- computeRestarts(cond)
[18:42:01.328]                           for (restart in restarts) {
[18:42:01.328]                             name <- restart$name
[18:42:01.328]                             if (is.null(name)) 
[18:42:01.328]                               next
[18:42:01.328]                             if (!grepl(pattern, name)) 
[18:42:01.328]                               next
[18:42:01.328]                             invokeRestart(restart)
[18:42:01.328]                             muffled <- TRUE
[18:42:01.328]                             break
[18:42:01.328]                           }
[18:42:01.328]                         }
[18:42:01.328]                       }
[18:42:01.328]                       invisible(muffled)
[18:42:01.328]                     }
[18:42:01.328]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.328]                   }
[18:42:01.328]                 }
[18:42:01.328]                 else {
[18:42:01.328]                   if (TRUE) {
[18:42:01.328]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.328]                     {
[18:42:01.328]                       inherits <- base::inherits
[18:42:01.328]                       invokeRestart <- base::invokeRestart
[18:42:01.328]                       is.null <- base::is.null
[18:42:01.328]                       muffled <- FALSE
[18:42:01.328]                       if (inherits(cond, "message")) {
[18:42:01.328]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.328]                         if (muffled) 
[18:42:01.328]                           invokeRestart("muffleMessage")
[18:42:01.328]                       }
[18:42:01.328]                       else if (inherits(cond, "warning")) {
[18:42:01.328]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.328]                         if (muffled) 
[18:42:01.328]                           invokeRestart("muffleWarning")
[18:42:01.328]                       }
[18:42:01.328]                       else if (inherits(cond, "condition")) {
[18:42:01.328]                         if (!is.null(pattern)) {
[18:42:01.328]                           computeRestarts <- base::computeRestarts
[18:42:01.328]                           grepl <- base::grepl
[18:42:01.328]                           restarts <- computeRestarts(cond)
[18:42:01.328]                           for (restart in restarts) {
[18:42:01.328]                             name <- restart$name
[18:42:01.328]                             if (is.null(name)) 
[18:42:01.328]                               next
[18:42:01.328]                             if (!grepl(pattern, name)) 
[18:42:01.328]                               next
[18:42:01.328]                             invokeRestart(restart)
[18:42:01.328]                             muffled <- TRUE
[18:42:01.328]                             break
[18:42:01.328]                           }
[18:42:01.328]                         }
[18:42:01.328]                       }
[18:42:01.328]                       invisible(muffled)
[18:42:01.328]                     }
[18:42:01.328]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.328]                   }
[18:42:01.328]                 }
[18:42:01.328]             }
[18:42:01.328]         }))
[18:42:01.328]     }, error = function(ex) {
[18:42:01.328]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.328]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.328]                 ...future.rng), started = ...future.startTime, 
[18:42:01.328]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.328]             version = "1.8"), class = "FutureResult")
[18:42:01.328]     }, finally = {
[18:42:01.328]         if (!identical(...future.workdir, getwd())) 
[18:42:01.328]             setwd(...future.workdir)
[18:42:01.328]         {
[18:42:01.328]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.328]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.328]             }
[18:42:01.328]             base::options(...future.oldOptions)
[18:42:01.328]             if (.Platform$OS.type == "windows") {
[18:42:01.328]                 old_names <- names(...future.oldEnvVars)
[18:42:01.328]                 envs <- base::Sys.getenv()
[18:42:01.328]                 names <- names(envs)
[18:42:01.328]                 common <- intersect(names, old_names)
[18:42:01.328]                 added <- setdiff(names, old_names)
[18:42:01.328]                 removed <- setdiff(old_names, names)
[18:42:01.328]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.328]                   envs[common]]
[18:42:01.328]                 NAMES <- toupper(changed)
[18:42:01.328]                 args <- list()
[18:42:01.328]                 for (kk in seq_along(NAMES)) {
[18:42:01.328]                   name <- changed[[kk]]
[18:42:01.328]                   NAME <- NAMES[[kk]]
[18:42:01.328]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.328]                     next
[18:42:01.328]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.328]                 }
[18:42:01.328]                 NAMES <- toupper(added)
[18:42:01.328]                 for (kk in seq_along(NAMES)) {
[18:42:01.328]                   name <- added[[kk]]
[18:42:01.328]                   NAME <- NAMES[[kk]]
[18:42:01.328]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.328]                     next
[18:42:01.328]                   args[[name]] <- ""
[18:42:01.328]                 }
[18:42:01.328]                 NAMES <- toupper(removed)
[18:42:01.328]                 for (kk in seq_along(NAMES)) {
[18:42:01.328]                   name <- removed[[kk]]
[18:42:01.328]                   NAME <- NAMES[[kk]]
[18:42:01.328]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.328]                     next
[18:42:01.328]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.328]                 }
[18:42:01.328]                 if (length(args) > 0) 
[18:42:01.328]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.328]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.328]             }
[18:42:01.328]             else {
[18:42:01.328]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.328]             }
[18:42:01.328]             {
[18:42:01.328]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.328]                   0L) {
[18:42:01.328]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.328]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.328]                   base::options(opts)
[18:42:01.328]                 }
[18:42:01.328]                 {
[18:42:01.328]                   {
[18:42:01.328]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.328]                     NULL
[18:42:01.328]                   }
[18:42:01.328]                   options(future.plan = NULL)
[18:42:01.328]                   if (is.na(NA_character_)) 
[18:42:01.328]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.328]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.328]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.328]                     .init = FALSE)
[18:42:01.328]                 }
[18:42:01.328]             }
[18:42:01.328]         }
[18:42:01.328]     })
[18:42:01.328]     if (TRUE) {
[18:42:01.328]         base::sink(type = "output", split = FALSE)
[18:42:01.328]         if (TRUE) {
[18:42:01.328]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.328]         }
[18:42:01.328]         else {
[18:42:01.328]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.328]         }
[18:42:01.328]         base::close(...future.stdout)
[18:42:01.328]         ...future.stdout <- NULL
[18:42:01.328]     }
[18:42:01.328]     ...future.result$conditions <- ...future.conditions
[18:42:01.328]     ...future.result$finished <- base::Sys.time()
[18:42:01.328]     ...future.result
[18:42:01.328] }
[18:42:01.337] Exporting 11 global objects (12.52 KiB) to cluster node #1 ...
[18:42:01.338] Exporting '...future.FUN' (4.02 KiB) to cluster node #1 ...
[18:42:01.351] Exporting '...future.FUN' (4.02 KiB) to cluster node #1 ... DONE
[18:42:01.351] Exporting 'x_FUN' (36 bytes) to cluster node #1 ...
[18:42:01.352] Exporting 'x_FUN' (36 bytes) to cluster node #1 ... DONE
[18:42:01.352] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:01.353] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:01.353] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:01.354] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:01.354] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:01.355] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:01.355] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:01.356] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:01.356] Exporting 'valid_types' (48 bytes) to cluster node #1 ...
[18:42:01.357] Exporting 'valid_types' (48 bytes) to cluster node #1 ... DONE
[18:42:01.357] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:01.358] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:01.358] Exporting '...future.elements_ii' (183 bytes) to cluster node #1 ...
[18:42:01.359] Exporting '...future.elements_ii' (183 bytes) to cluster node #1 ... DONE
[18:42:01.359] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:01.363] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:01.363] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:01.364] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:01.364] Exporting 11 global objects (12.52 KiB) to cluster node #1 ... DONE
[18:42:01.365] MultisessionFuture started
[18:42:01.365] - Launch lazy future ... done
[18:42:01.366] run() for 'MultisessionFuture' ... done
[18:42:01.366] Created future:
[18:42:01.405] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.405] - Validating connection of MultisessionFuture
[18:42:01.406] - received message: FutureResult
[18:42:01.406] - Received FutureResult
[18:42:01.406] - Erased future from FutureRegistry
[18:42:01.407] result() for ClusterFuture ...
[18:42:01.407] - result already collected: FutureResult
[18:42:01.407] result() for ClusterFuture ... done
[18:42:01.407] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.366] MultisessionFuture:
[18:42:01.366] Label: 'future_vapply-1'
[18:42:01.366] Expression:
[18:42:01.366] {
[18:42:01.366]     do.call(function(...) {
[18:42:01.366]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.366]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.366]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.366]             on.exit(options(oopts), add = TRUE)
[18:42:01.366]         }
[18:42:01.366]         {
[18:42:01.366]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.366]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.366]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.366]             })
[18:42:01.366]         }
[18:42:01.366]     }, args = future.call.arguments)
[18:42:01.366] }
[18:42:01.366] Lazy evaluation: FALSE
[18:42:01.366] Asynchronous evaluation: TRUE
[18:42:01.366] Local evaluation: TRUE
[18:42:01.366] Environment: R_GlobalEnv
[18:42:01.366] Capture standard output: TRUE
[18:42:01.366] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:01.366] Globals: 11 objects totaling 12.33 KiB (function '...future.FUN' of 4.02 KiB, function 'x_FUN' of 36 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:01.366] Packages: 1 packages ('future.apply')
[18:42:01.366] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:01.366] Resolved: TRUE
[18:42:01.366] Value: <not collected>
[18:42:01.366] Conditions captured: <none>
[18:42:01.366] Early signaling: FALSE
[18:42:01.366] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:01.366] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.408] Chunk #1 of 2 ... DONE
[18:42:01.408] Chunk #2 of 2 ...
[18:42:01.409]  - Finding globals in 'X' for chunk #2 ...
[18:42:01.409] getGlobalsAndPackages() ...
[18:42:01.409] Searching for globals...
[18:42:01.410] 
[18:42:01.410] Searching for globals ... DONE
[18:42:01.410] - globals: [0] <none>
[18:42:01.410] getGlobalsAndPackages() ... DONE
[18:42:01.411]    + additional globals found: [n=0] 
[18:42:01.411]    + additional namespaces needed: [n=0] 
[18:42:01.411]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:01.411]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:01.412]  - seeds: <none>
[18:42:01.412]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.412] getGlobalsAndPackages() ...
[18:42:01.412] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.413] Resolving globals: FALSE
[18:42:01.413] Tweak future expression to call with '...' arguments ...
[18:42:01.413] {
[18:42:01.413]     do.call(function(...) {
[18:42:01.413]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.413]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.413]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.413]             on.exit(options(oopts), add = TRUE)
[18:42:01.413]         }
[18:42:01.413]         {
[18:42:01.413]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.413]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.413]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.413]             })
[18:42:01.413]         }
[18:42:01.413]     }, args = future.call.arguments)
[18:42:01.413] }
[18:42:01.414] Tweak future expression to call with '...' arguments ... DONE
[18:42:01.415] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.415] - packages: [1] 'future.apply'
[18:42:01.416] getGlobalsAndPackages() ... DONE
[18:42:01.416] run() for 'Future' ...
[18:42:01.417] - state: 'created'
[18:42:01.417] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:01.437] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.437] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:01.437]   - Field: 'node'
[18:42:01.438]   - Field: 'label'
[18:42:01.438]   - Field: 'local'
[18:42:01.438]   - Field: 'owner'
[18:42:01.438]   - Field: 'envir'
[18:42:01.439]   - Field: 'workers'
[18:42:01.439]   - Field: 'packages'
[18:42:01.439]   - Field: 'gc'
[18:42:01.440]   - Field: 'conditions'
[18:42:01.440]   - Field: 'persistent'
[18:42:01.440]   - Field: 'expr'
[18:42:01.440]   - Field: 'uuid'
[18:42:01.441]   - Field: 'seed'
[18:42:01.441]   - Field: 'version'
[18:42:01.441]   - Field: 'result'
[18:42:01.441]   - Field: 'asynchronous'
[18:42:01.442]   - Field: 'calls'
[18:42:01.442]   - Field: 'globals'
[18:42:01.442]   - Field: 'stdout'
[18:42:01.443]   - Field: 'earlySignal'
[18:42:01.443]   - Field: 'lazy'
[18:42:01.443]   - Field: 'state'
[18:42:01.443] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:01.444] - Launch lazy future ...
[18:42:01.444] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:01.445] Packages needed by future strategies (n = 0): <none>
[18:42:01.446] {
[18:42:01.446]     {
[18:42:01.446]         {
[18:42:01.446]             ...future.startTime <- base::Sys.time()
[18:42:01.446]             {
[18:42:01.446]                 {
[18:42:01.446]                   {
[18:42:01.446]                     {
[18:42:01.446]                       {
[18:42:01.446]                         base::local({
[18:42:01.446]                           has_future <- base::requireNamespace("future", 
[18:42:01.446]                             quietly = TRUE)
[18:42:01.446]                           if (has_future) {
[18:42:01.446]                             ns <- base::getNamespace("future")
[18:42:01.446]                             version <- ns[[".package"]][["version"]]
[18:42:01.446]                             if (is.null(version)) 
[18:42:01.446]                               version <- utils::packageVersion("future")
[18:42:01.446]                           }
[18:42:01.446]                           else {
[18:42:01.446]                             version <- NULL
[18:42:01.446]                           }
[18:42:01.446]                           if (!has_future || version < "1.8.0") {
[18:42:01.446]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.446]                               "", base::R.version$version.string), 
[18:42:01.446]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:01.446]                                 base::R.version$platform, 8 * 
[18:42:01.446]                                   base::.Machine$sizeof.pointer), 
[18:42:01.446]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.446]                                 "release", "version")], collapse = " "), 
[18:42:01.446]                               hostname = base::Sys.info()[["nodename"]])
[18:42:01.446]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.446]                               info)
[18:42:01.446]                             info <- base::paste(info, collapse = "; ")
[18:42:01.446]                             if (!has_future) {
[18:42:01.446]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.446]                                 info)
[18:42:01.446]                             }
[18:42:01.446]                             else {
[18:42:01.446]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.446]                                 info, version)
[18:42:01.446]                             }
[18:42:01.446]                             base::stop(msg)
[18:42:01.446]                           }
[18:42:01.446]                         })
[18:42:01.446]                       }
[18:42:01.446]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.446]                       base::options(mc.cores = 1L)
[18:42:01.446]                     }
[18:42:01.446]                     base::local({
[18:42:01.446]                       for (pkg in "future.apply") {
[18:42:01.446]                         base::loadNamespace(pkg)
[18:42:01.446]                         base::library(pkg, character.only = TRUE)
[18:42:01.446]                       }
[18:42:01.446]                     })
[18:42:01.446]                   }
[18:42:01.446]                   ...future.strategy.old <- future::plan("list")
[18:42:01.446]                   options(future.plan = NULL)
[18:42:01.446]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.446]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.446]                 }
[18:42:01.446]                 ...future.workdir <- getwd()
[18:42:01.446]             }
[18:42:01.446]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.446]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.446]         }
[18:42:01.446]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.446]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:01.446]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.446]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.446]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.446]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.446]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.446]             base::names(...future.oldOptions))
[18:42:01.446]     }
[18:42:01.446]     if (FALSE) {
[18:42:01.446]     }
[18:42:01.446]     else {
[18:42:01.446]         if (TRUE) {
[18:42:01.446]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.446]                 open = "w")
[18:42:01.446]         }
[18:42:01.446]         else {
[18:42:01.446]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.446]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.446]         }
[18:42:01.446]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.446]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.446]             base::sink(type = "output", split = FALSE)
[18:42:01.446]             base::close(...future.stdout)
[18:42:01.446]         }, add = TRUE)
[18:42:01.446]     }
[18:42:01.446]     ...future.frame <- base::sys.nframe()
[18:42:01.446]     ...future.conditions <- base::list()
[18:42:01.446]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.446]     if (FALSE) {
[18:42:01.446]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.446]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.446]     }
[18:42:01.446]     ...future.result <- base::tryCatch({
[18:42:01.446]         base::withCallingHandlers({
[18:42:01.446]             ...future.value <- base::withVisible(base::local({
[18:42:01.446]                 ...future.makeSendCondition <- base::local({
[18:42:01.446]                   sendCondition <- NULL
[18:42:01.446]                   function(frame = 1L) {
[18:42:01.446]                     if (is.function(sendCondition)) 
[18:42:01.446]                       return(sendCondition)
[18:42:01.446]                     ns <- getNamespace("parallel")
[18:42:01.446]                     if (exists("sendData", mode = "function", 
[18:42:01.446]                       envir = ns)) {
[18:42:01.446]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.446]                         envir = ns)
[18:42:01.446]                       envir <- sys.frame(frame)
[18:42:01.446]                       master <- NULL
[18:42:01.446]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.446]                         !identical(envir, emptyenv())) {
[18:42:01.446]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.446]                           inherits = FALSE)) {
[18:42:01.446]                           master <- get("master", mode = "list", 
[18:42:01.446]                             envir = envir, inherits = FALSE)
[18:42:01.446]                           if (inherits(master, c("SOCKnode", 
[18:42:01.446]                             "SOCK0node"))) {
[18:42:01.446]                             sendCondition <<- function(cond) {
[18:42:01.446]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.446]                                 success = TRUE)
[18:42:01.446]                               parallel_sendData(master, data)
[18:42:01.446]                             }
[18:42:01.446]                             return(sendCondition)
[18:42:01.446]                           }
[18:42:01.446]                         }
[18:42:01.446]                         frame <- frame + 1L
[18:42:01.446]                         envir <- sys.frame(frame)
[18:42:01.446]                       }
[18:42:01.446]                     }
[18:42:01.446]                     sendCondition <<- function(cond) NULL
[18:42:01.446]                   }
[18:42:01.446]                 })
[18:42:01.446]                 withCallingHandlers({
[18:42:01.446]                   {
[18:42:01.446]                     do.call(function(...) {
[18:42:01.446]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.446]                       if (!identical(...future.globals.maxSize.org, 
[18:42:01.446]                         ...future.globals.maxSize)) {
[18:42:01.446]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.446]                         on.exit(options(oopts), add = TRUE)
[18:42:01.446]                       }
[18:42:01.446]                       {
[18:42:01.446]                         lapply(seq_along(...future.elements_ii), 
[18:42:01.446]                           FUN = function(jj) {
[18:42:01.446]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.446]                             ...future.FUN(...future.X_jj, ...)
[18:42:01.446]                           })
[18:42:01.446]                       }
[18:42:01.446]                     }, args = future.call.arguments)
[18:42:01.446]                   }
[18:42:01.446]                 }, immediateCondition = function(cond) {
[18:42:01.446]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.446]                   sendCondition(cond)
[18:42:01.446]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.446]                   {
[18:42:01.446]                     inherits <- base::inherits
[18:42:01.446]                     invokeRestart <- base::invokeRestart
[18:42:01.446]                     is.null <- base::is.null
[18:42:01.446]                     muffled <- FALSE
[18:42:01.446]                     if (inherits(cond, "message")) {
[18:42:01.446]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.446]                       if (muffled) 
[18:42:01.446]                         invokeRestart("muffleMessage")
[18:42:01.446]                     }
[18:42:01.446]                     else if (inherits(cond, "warning")) {
[18:42:01.446]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.446]                       if (muffled) 
[18:42:01.446]                         invokeRestart("muffleWarning")
[18:42:01.446]                     }
[18:42:01.446]                     else if (inherits(cond, "condition")) {
[18:42:01.446]                       if (!is.null(pattern)) {
[18:42:01.446]                         computeRestarts <- base::computeRestarts
[18:42:01.446]                         grepl <- base::grepl
[18:42:01.446]                         restarts <- computeRestarts(cond)
[18:42:01.446]                         for (restart in restarts) {
[18:42:01.446]                           name <- restart$name
[18:42:01.446]                           if (is.null(name)) 
[18:42:01.446]                             next
[18:42:01.446]                           if (!grepl(pattern, name)) 
[18:42:01.446]                             next
[18:42:01.446]                           invokeRestart(restart)
[18:42:01.446]                           muffled <- TRUE
[18:42:01.446]                           break
[18:42:01.446]                         }
[18:42:01.446]                       }
[18:42:01.446]                     }
[18:42:01.446]                     invisible(muffled)
[18:42:01.446]                   }
[18:42:01.446]                   muffleCondition(cond)
[18:42:01.446]                 })
[18:42:01.446]             }))
[18:42:01.446]             future::FutureResult(value = ...future.value$value, 
[18:42:01.446]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.446]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.446]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.446]                     ...future.globalenv.names))
[18:42:01.446]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.446]         }, condition = base::local({
[18:42:01.446]             c <- base::c
[18:42:01.446]             inherits <- base::inherits
[18:42:01.446]             invokeRestart <- base::invokeRestart
[18:42:01.446]             length <- base::length
[18:42:01.446]             list <- base::list
[18:42:01.446]             seq.int <- base::seq.int
[18:42:01.446]             signalCondition <- base::signalCondition
[18:42:01.446]             sys.calls <- base::sys.calls
[18:42:01.446]             `[[` <- base::`[[`
[18:42:01.446]             `+` <- base::`+`
[18:42:01.446]             `<<-` <- base::`<<-`
[18:42:01.446]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.446]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.446]                   3L)]
[18:42:01.446]             }
[18:42:01.446]             function(cond) {
[18:42:01.446]                 is_error <- inherits(cond, "error")
[18:42:01.446]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.446]                   NULL)
[18:42:01.446]                 if (is_error) {
[18:42:01.446]                   sessionInformation <- function() {
[18:42:01.446]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.446]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.446]                       search = base::search(), system = base::Sys.info())
[18:42:01.446]                   }
[18:42:01.446]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.446]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.446]                     cond$call), session = sessionInformation(), 
[18:42:01.446]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.446]                   signalCondition(cond)
[18:42:01.446]                 }
[18:42:01.446]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.446]                 "immediateCondition"))) {
[18:42:01.446]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.446]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.446]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.446]                   if (TRUE && !signal) {
[18:42:01.446]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.446]                     {
[18:42:01.446]                       inherits <- base::inherits
[18:42:01.446]                       invokeRestart <- base::invokeRestart
[18:42:01.446]                       is.null <- base::is.null
[18:42:01.446]                       muffled <- FALSE
[18:42:01.446]                       if (inherits(cond, "message")) {
[18:42:01.446]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.446]                         if (muffled) 
[18:42:01.446]                           invokeRestart("muffleMessage")
[18:42:01.446]                       }
[18:42:01.446]                       else if (inherits(cond, "warning")) {
[18:42:01.446]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.446]                         if (muffled) 
[18:42:01.446]                           invokeRestart("muffleWarning")
[18:42:01.446]                       }
[18:42:01.446]                       else if (inherits(cond, "condition")) {
[18:42:01.446]                         if (!is.null(pattern)) {
[18:42:01.446]                           computeRestarts <- base::computeRestarts
[18:42:01.446]                           grepl <- base::grepl
[18:42:01.446]                           restarts <- computeRestarts(cond)
[18:42:01.446]                           for (restart in restarts) {
[18:42:01.446]                             name <- restart$name
[18:42:01.446]                             if (is.null(name)) 
[18:42:01.446]                               next
[18:42:01.446]                             if (!grepl(pattern, name)) 
[18:42:01.446]                               next
[18:42:01.446]                             invokeRestart(restart)
[18:42:01.446]                             muffled <- TRUE
[18:42:01.446]                             break
[18:42:01.446]                           }
[18:42:01.446]                         }
[18:42:01.446]                       }
[18:42:01.446]                       invisible(muffled)
[18:42:01.446]                     }
[18:42:01.446]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.446]                   }
[18:42:01.446]                 }
[18:42:01.446]                 else {
[18:42:01.446]                   if (TRUE) {
[18:42:01.446]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.446]                     {
[18:42:01.446]                       inherits <- base::inherits
[18:42:01.446]                       invokeRestart <- base::invokeRestart
[18:42:01.446]                       is.null <- base::is.null
[18:42:01.446]                       muffled <- FALSE
[18:42:01.446]                       if (inherits(cond, "message")) {
[18:42:01.446]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.446]                         if (muffled) 
[18:42:01.446]                           invokeRestart("muffleMessage")
[18:42:01.446]                       }
[18:42:01.446]                       else if (inherits(cond, "warning")) {
[18:42:01.446]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.446]                         if (muffled) 
[18:42:01.446]                           invokeRestart("muffleWarning")
[18:42:01.446]                       }
[18:42:01.446]                       else if (inherits(cond, "condition")) {
[18:42:01.446]                         if (!is.null(pattern)) {
[18:42:01.446]                           computeRestarts <- base::computeRestarts
[18:42:01.446]                           grepl <- base::grepl
[18:42:01.446]                           restarts <- computeRestarts(cond)
[18:42:01.446]                           for (restart in restarts) {
[18:42:01.446]                             name <- restart$name
[18:42:01.446]                             if (is.null(name)) 
[18:42:01.446]                               next
[18:42:01.446]                             if (!grepl(pattern, name)) 
[18:42:01.446]                               next
[18:42:01.446]                             invokeRestart(restart)
[18:42:01.446]                             muffled <- TRUE
[18:42:01.446]                             break
[18:42:01.446]                           }
[18:42:01.446]                         }
[18:42:01.446]                       }
[18:42:01.446]                       invisible(muffled)
[18:42:01.446]                     }
[18:42:01.446]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.446]                   }
[18:42:01.446]                 }
[18:42:01.446]             }
[18:42:01.446]         }))
[18:42:01.446]     }, error = function(ex) {
[18:42:01.446]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.446]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.446]                 ...future.rng), started = ...future.startTime, 
[18:42:01.446]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.446]             version = "1.8"), class = "FutureResult")
[18:42:01.446]     }, finally = {
[18:42:01.446]         if (!identical(...future.workdir, getwd())) 
[18:42:01.446]             setwd(...future.workdir)
[18:42:01.446]         {
[18:42:01.446]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.446]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.446]             }
[18:42:01.446]             base::options(...future.oldOptions)
[18:42:01.446]             if (.Platform$OS.type == "windows") {
[18:42:01.446]                 old_names <- names(...future.oldEnvVars)
[18:42:01.446]                 envs <- base::Sys.getenv()
[18:42:01.446]                 names <- names(envs)
[18:42:01.446]                 common <- intersect(names, old_names)
[18:42:01.446]                 added <- setdiff(names, old_names)
[18:42:01.446]                 removed <- setdiff(old_names, names)
[18:42:01.446]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.446]                   envs[common]]
[18:42:01.446]                 NAMES <- toupper(changed)
[18:42:01.446]                 args <- list()
[18:42:01.446]                 for (kk in seq_along(NAMES)) {
[18:42:01.446]                   name <- changed[[kk]]
[18:42:01.446]                   NAME <- NAMES[[kk]]
[18:42:01.446]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.446]                     next
[18:42:01.446]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.446]                 }
[18:42:01.446]                 NAMES <- toupper(added)
[18:42:01.446]                 for (kk in seq_along(NAMES)) {
[18:42:01.446]                   name <- added[[kk]]
[18:42:01.446]                   NAME <- NAMES[[kk]]
[18:42:01.446]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.446]                     next
[18:42:01.446]                   args[[name]] <- ""
[18:42:01.446]                 }
[18:42:01.446]                 NAMES <- toupper(removed)
[18:42:01.446]                 for (kk in seq_along(NAMES)) {
[18:42:01.446]                   name <- removed[[kk]]
[18:42:01.446]                   NAME <- NAMES[[kk]]
[18:42:01.446]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.446]                     next
[18:42:01.446]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.446]                 }
[18:42:01.446]                 if (length(args) > 0) 
[18:42:01.446]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.446]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.446]             }
[18:42:01.446]             else {
[18:42:01.446]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.446]             }
[18:42:01.446]             {
[18:42:01.446]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.446]                   0L) {
[18:42:01.446]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.446]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.446]                   base::options(opts)
[18:42:01.446]                 }
[18:42:01.446]                 {
[18:42:01.446]                   {
[18:42:01.446]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.446]                     NULL
[18:42:01.446]                   }
[18:42:01.446]                   options(future.plan = NULL)
[18:42:01.446]                   if (is.na(NA_character_)) 
[18:42:01.446]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.446]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.446]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.446]                     .init = FALSE)
[18:42:01.446]                 }
[18:42:01.446]             }
[18:42:01.446]         }
[18:42:01.446]     })
[18:42:01.446]     if (TRUE) {
[18:42:01.446]         base::sink(type = "output", split = FALSE)
[18:42:01.446]         if (TRUE) {
[18:42:01.446]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.446]         }
[18:42:01.446]         else {
[18:42:01.446]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.446]         }
[18:42:01.446]         base::close(...future.stdout)
[18:42:01.446]         ...future.stdout <- NULL
[18:42:01.446]     }
[18:42:01.446]     ...future.result$conditions <- ...future.conditions
[18:42:01.446]     ...future.result$finished <- base::Sys.time()
[18:42:01.446]     ...future.result
[18:42:01.446] }
[18:42:01.454] Exporting 11 global objects (12.54 KiB) to cluster node #1 ...
[18:42:01.455] Exporting '...future.FUN' (4.02 KiB) to cluster node #1 ...
[18:42:01.455] Exporting '...future.FUN' (4.02 KiB) to cluster node #1 ... DONE
[18:42:01.456] Exporting 'x_FUN' (36 bytes) to cluster node #1 ...
[18:42:01.456] Exporting 'x_FUN' (36 bytes) to cluster node #1 ... DONE
[18:42:01.457] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:01.457] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:01.458] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:01.458] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:01.458] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:01.459] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:01.459] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:01.460] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:01.460] Exporting 'valid_types' (48 bytes) to cluster node #1 ...
[18:42:01.461] Exporting 'valid_types' (48 bytes) to cluster node #1 ... DONE
[18:42:01.461] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:01.462] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:01.462] Exporting '...future.elements_ii' (171 bytes) to cluster node #1 ...
[18:42:01.462] Exporting '...future.elements_ii' (171 bytes) to cluster node #1 ... DONE
[18:42:01.463] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:01.463] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:01.464] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:01.464] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:01.464] Exporting 11 global objects (12.54 KiB) to cluster node #1 ... DONE
[18:42:01.465] MultisessionFuture started
[18:42:01.465] - Launch lazy future ... done
[18:42:01.466] run() for 'MultisessionFuture' ... done
[18:42:01.466] Created future:
[18:42:01.492] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.492] - Validating connection of MultisessionFuture
[18:42:01.492] - received message: FutureResult
[18:42:01.493] - Received FutureResult
[18:42:01.493] - Erased future from FutureRegistry
[18:42:01.493] result() for ClusterFuture ...
[18:42:01.494] - result already collected: FutureResult
[18:42:01.494] result() for ClusterFuture ... done
[18:42:01.494] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.466] MultisessionFuture:
[18:42:01.466] Label: 'future_vapply-2'
[18:42:01.466] Expression:
[18:42:01.466] {
[18:42:01.466]     do.call(function(...) {
[18:42:01.466]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.466]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.466]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.466]             on.exit(options(oopts), add = TRUE)
[18:42:01.466]         }
[18:42:01.466]         {
[18:42:01.466]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.466]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.466]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.466]             })
[18:42:01.466]         }
[18:42:01.466]     }, args = future.call.arguments)
[18:42:01.466] }
[18:42:01.466] Lazy evaluation: FALSE
[18:42:01.466] Asynchronous evaluation: TRUE
[18:42:01.466] Local evaluation: TRUE
[18:42:01.466] Environment: R_GlobalEnv
[18:42:01.466] Capture standard output: TRUE
[18:42:01.466] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:01.466] Globals: 11 objects totaling 12.32 KiB (function '...future.FUN' of 4.02 KiB, function 'x_FUN' of 36 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:01.466] Packages: 1 packages ('future.apply')
[18:42:01.466] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:01.466] Resolved: TRUE
[18:42:01.466] Value: <not collected>
[18:42:01.466] Conditions captured: <none>
[18:42:01.466] Early signaling: FALSE
[18:42:01.466] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:01.466] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.495] Chunk #2 of 2 ... DONE
[18:42:01.495] Launching 2 futures (chunks) ... DONE
[18:42:01.495] Resolving 2 futures (chunks) ...
[18:42:01.495] resolve() on list ...
[18:42:01.496]  recursive: 0
[18:42:01.496]  length: 2
[18:42:01.496] 
[18:42:01.496] Future #1
[18:42:01.497] result() for ClusterFuture ...
[18:42:01.497] - result already collected: FutureResult
[18:42:01.497] result() for ClusterFuture ... done
[18:42:01.497] result() for ClusterFuture ...
[18:42:01.498] - result already collected: FutureResult
[18:42:01.498] result() for ClusterFuture ... done
[18:42:01.498] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:01.498] - nx: 2
[18:42:01.499] - relay: TRUE
[18:42:01.499] - stdout: TRUE
[18:42:01.499] - signal: TRUE
[18:42:01.499] - resignal: FALSE
[18:42:01.500] - force: TRUE
[18:42:01.500] - relayed: [n=2] FALSE, FALSE
[18:42:01.500] - queued futures: [n=2] FALSE, FALSE
[18:42:01.500]  - until=1
[18:42:01.501]  - relaying element #1
[18:42:01.501] result() for ClusterFuture ...
[18:42:01.501] - result already collected: FutureResult
[18:42:01.501] result() for ClusterFuture ... done
[18:42:01.502] result() for ClusterFuture ...
[18:42:01.502] - result already collected: FutureResult
[18:42:01.502] result() for ClusterFuture ... done
[18:42:01.502] result() for ClusterFuture ...
[18:42:01.503] - result already collected: FutureResult
[18:42:01.503] result() for ClusterFuture ... done
[18:42:01.503] result() for ClusterFuture ...
[18:42:01.503] - result already collected: FutureResult
[18:42:01.504] result() for ClusterFuture ... done
[18:42:01.504] - relayed: [n=2] TRUE, FALSE
[18:42:01.504] - queued futures: [n=2] TRUE, FALSE
[18:42:01.504] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:01.505]  length: 1 (resolved future 1)
[18:42:01.505] Future #2
[18:42:01.505] result() for ClusterFuture ...
[18:42:01.505] - result already collected: FutureResult
[18:42:01.506] result() for ClusterFuture ... done
[18:42:01.506] result() for ClusterFuture ...
[18:42:01.506] - result already collected: FutureResult
[18:42:01.506] result() for ClusterFuture ... done
[18:42:01.507] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:01.507] - nx: 2
[18:42:01.507] - relay: TRUE
[18:42:01.507] - stdout: TRUE
[18:42:01.508] - signal: TRUE
[18:42:01.508] - resignal: FALSE
[18:42:01.508] - force: TRUE
[18:42:01.508] - relayed: [n=2] TRUE, FALSE
[18:42:01.509] - queued futures: [n=2] TRUE, FALSE
[18:42:01.509]  - until=2
[18:42:01.509]  - relaying element #2
[18:42:01.509] result() for ClusterFuture ...
[18:42:01.510] - result already collected: FutureResult
[18:42:01.510] result() for ClusterFuture ... done
[18:42:01.510] result() for ClusterFuture ...
[18:42:01.510] - result already collected: FutureResult
[18:42:01.511] result() for ClusterFuture ... done
[18:42:01.511] result() for ClusterFuture ...
[18:42:01.511] - result already collected: FutureResult
[18:42:01.511] result() for ClusterFuture ... done
[18:42:01.512] result() for ClusterFuture ...
[18:42:01.512] - result already collected: FutureResult
[18:42:01.512] result() for ClusterFuture ... done
[18:42:01.512] - relayed: [n=2] TRUE, TRUE
[18:42:01.513] - queued futures: [n=2] TRUE, TRUE
[18:42:01.513] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:01.513]  length: 0 (resolved future 2)
[18:42:01.513] Relaying remaining futures
[18:42:01.514] signalConditionsASAP(NULL, pos=0) ...
[18:42:01.514] - nx: 2
[18:42:01.514] - relay: TRUE
[18:42:01.514] - stdout: TRUE
[18:42:01.515] - signal: TRUE
[18:42:01.515] - resignal: FALSE
[18:42:01.515] - force: TRUE
[18:42:01.515] - relayed: [n=2] TRUE, TRUE
[18:42:01.515] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:01.516] - relayed: [n=2] TRUE, TRUE
[18:42:01.516] - queued futures: [n=2] TRUE, TRUE
[18:42:01.516] signalConditionsASAP(NULL, pos=0) ... done
[18:42:01.517] resolve() on list ... DONE
[18:42:01.517] result() for ClusterFuture ...
[18:42:01.517] - result already collected: FutureResult
[18:42:01.517] result() for ClusterFuture ... done
[18:42:01.518] result() for ClusterFuture ...
[18:42:01.518] - result already collected: FutureResult
[18:42:01.518] result() for ClusterFuture ... done
[18:42:01.518] result() for ClusterFuture ...
[18:42:01.519] - result already collected: FutureResult
[18:42:01.519] result() for ClusterFuture ... done
[18:42:01.519] result() for ClusterFuture ...
[18:42:01.519] - result already collected: FutureResult
[18:42:01.520] result() for ClusterFuture ... done
[18:42:01.520]  - Number of value chunks collected: 2
[18:42:01.520] Resolving 2 futures (chunks) ... DONE
[18:42:01.520] Reducing values from 2 chunks ...
[18:42:01.521]  - Number of values collected after concatenation: 2
[18:42:01.521]  - Number of values expected: 2
[18:42:01.521] Reducing values from 2 chunks ... DONE
[18:42:01.521] future_lapply() ... DONE
 Named chr [1:2] "integer" "character"
 - attr(*, "names")= chr [1:2] "x" "y"
 num[0 , 1:10] 
[18:42:01.523] future_lapply() ...
[18:42:01.531] Number of chunks: 2
[18:42:01.531] getGlobalsAndPackagesXApply() ...
[18:42:01.531]  - future.globals: TRUE
[18:42:01.532] getGlobalsAndPackages() ...
[18:42:01.532] Searching for globals...
[18:42:01.539] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'double'
[18:42:01.539] Searching for globals ... DONE
[18:42:01.539] Resolving globals: FALSE
[18:42:01.541] The total size of the 7 globals is 12.77 KiB (13081 bytes)
[18:42:01.542] The total size of the 7 globals exported for future expression ('FUN()') is 12.77 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:01.542] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:01.543] - packages: [1] 'future.apply'
[18:42:01.543] getGlobalsAndPackages() ... DONE
[18:42:01.543]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:01.543]  - needed namespaces: [n=1] 'future.apply'
[18:42:01.544] Finding globals ... DONE
[18:42:01.544]  - use_args: TRUE
[18:42:01.544]  - Getting '...' globals ...
[18:42:01.545] resolve() on list ...
[18:42:01.545]  recursive: 0
[18:42:01.545]  length: 1
[18:42:01.546]  elements: '...'
[18:42:01.546]  length: 0 (resolved future 1)
[18:42:01.546] resolve() on list ... DONE
[18:42:01.546]    - '...' content: [n=0] 
[18:42:01.547] List of 1
[18:42:01.547]  $ ...: list()
[18:42:01.547]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:01.547]  - attr(*, "where")=List of 1
[18:42:01.547]   ..$ ...:<environment: 0x000002ea05409628> 
[18:42:01.547]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:01.547]  - attr(*, "resolved")= logi TRUE
[18:42:01.547]  - attr(*, "total_size")= num NA
[18:42:01.551]  - Getting '...' globals ... DONE
[18:42:01.552] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:01.552] List of 8
[18:42:01.552]  $ ...future.FUN:function (x, ...)  
[18:42:01.552]  $ x_FUN        :function (x)  
[18:42:01.552]  $ times        : int 0
[18:42:01.552]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:01.552]  $ stop_if_not  :function (...)  
[18:42:01.552]  $ dim          : NULL
[18:42:01.552]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:01.552]  $ ...          : list()
[18:42:01.552]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:01.552]  - attr(*, "where")=List of 8
[18:42:01.552]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:01.552]   ..$ ...          :<environment: 0x000002ea05409628> 
[18:42:01.552]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:01.552]  - attr(*, "resolved")= logi FALSE
[18:42:01.552]  - attr(*, "total_size")= int 23490
[18:42:01.562] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:01.562] getGlobalsAndPackagesXApply() ... DONE
[18:42:01.563] Number of futures (= number of chunks): 2
[18:42:01.563] Launching 2 futures (chunks) ...
[18:42:01.563] Chunk #1 of 2 ...
[18:42:01.564]  - Finding globals in 'X' for chunk #1 ...
[18:42:01.564] getGlobalsAndPackages() ...
[18:42:01.564] Searching for globals...
[18:42:01.565] 
[18:42:01.565] Searching for globals ... DONE
[18:42:01.565] - globals: [0] <none>
[18:42:01.565] getGlobalsAndPackages() ... DONE
[18:42:01.566]    + additional globals found: [n=0] 
[18:42:01.566]    + additional namespaces needed: [n=0] 
[18:42:01.566]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:01.566]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:01.567]  - seeds: <none>
[18:42:01.567]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.567] getGlobalsAndPackages() ...
[18:42:01.567] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.568] Resolving globals: FALSE
[18:42:01.568] Tweak future expression to call with '...' arguments ...
[18:42:01.568] {
[18:42:01.568]     do.call(function(...) {
[18:42:01.568]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.568]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.568]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.568]             on.exit(options(oopts), add = TRUE)
[18:42:01.568]         }
[18:42:01.568]         {
[18:42:01.568]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.568]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.568]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.568]             })
[18:42:01.568]         }
[18:42:01.568]     }, args = future.call.arguments)
[18:42:01.568] }
[18:42:01.569] Tweak future expression to call with '...' arguments ... DONE
[18:42:01.570] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.571] - packages: [1] 'future.apply'
[18:42:01.571] getGlobalsAndPackages() ... DONE
[18:42:01.571] run() for 'Future' ...
[18:42:01.572] - state: 'created'
[18:42:01.572] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:01.592] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.592] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:01.593]   - Field: 'node'
[18:42:01.593]   - Field: 'label'
[18:42:01.593]   - Field: 'local'
[18:42:01.594]   - Field: 'owner'
[18:42:01.594]   - Field: 'envir'
[18:42:01.594]   - Field: 'workers'
[18:42:01.594]   - Field: 'packages'
[18:42:01.595]   - Field: 'gc'
[18:42:01.595]   - Field: 'conditions'
[18:42:01.595]   - Field: 'persistent'
[18:42:01.596]   - Field: 'expr'
[18:42:01.596]   - Field: 'uuid'
[18:42:01.596]   - Field: 'seed'
[18:42:01.596]   - Field: 'version'
[18:42:01.597]   - Field: 'result'
[18:42:01.597]   - Field: 'asynchronous'
[18:42:01.597]   - Field: 'calls'
[18:42:01.597]   - Field: 'globals'
[18:42:01.598]   - Field: 'stdout'
[18:42:01.598]   - Field: 'earlySignal'
[18:42:01.598]   - Field: 'lazy'
[18:42:01.599]   - Field: 'state'
[18:42:01.599] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:01.599] - Launch lazy future ...
[18:42:01.600] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:01.600] Packages needed by future strategies (n = 0): <none>
[18:42:01.601] {
[18:42:01.601]     {
[18:42:01.601]         {
[18:42:01.601]             ...future.startTime <- base::Sys.time()
[18:42:01.601]             {
[18:42:01.601]                 {
[18:42:01.601]                   {
[18:42:01.601]                     {
[18:42:01.601]                       {
[18:42:01.601]                         base::local({
[18:42:01.601]                           has_future <- base::requireNamespace("future", 
[18:42:01.601]                             quietly = TRUE)
[18:42:01.601]                           if (has_future) {
[18:42:01.601]                             ns <- base::getNamespace("future")
[18:42:01.601]                             version <- ns[[".package"]][["version"]]
[18:42:01.601]                             if (is.null(version)) 
[18:42:01.601]                               version <- utils::packageVersion("future")
[18:42:01.601]                           }
[18:42:01.601]                           else {
[18:42:01.601]                             version <- NULL
[18:42:01.601]                           }
[18:42:01.601]                           if (!has_future || version < "1.8.0") {
[18:42:01.601]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.601]                               "", base::R.version$version.string), 
[18:42:01.601]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:01.601]                                 base::R.version$platform, 8 * 
[18:42:01.601]                                   base::.Machine$sizeof.pointer), 
[18:42:01.601]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.601]                                 "release", "version")], collapse = " "), 
[18:42:01.601]                               hostname = base::Sys.info()[["nodename"]])
[18:42:01.601]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.601]                               info)
[18:42:01.601]                             info <- base::paste(info, collapse = "; ")
[18:42:01.601]                             if (!has_future) {
[18:42:01.601]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.601]                                 info)
[18:42:01.601]                             }
[18:42:01.601]                             else {
[18:42:01.601]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.601]                                 info, version)
[18:42:01.601]                             }
[18:42:01.601]                             base::stop(msg)
[18:42:01.601]                           }
[18:42:01.601]                         })
[18:42:01.601]                       }
[18:42:01.601]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.601]                       base::options(mc.cores = 1L)
[18:42:01.601]                     }
[18:42:01.601]                     base::local({
[18:42:01.601]                       for (pkg in "future.apply") {
[18:42:01.601]                         base::loadNamespace(pkg)
[18:42:01.601]                         base::library(pkg, character.only = TRUE)
[18:42:01.601]                       }
[18:42:01.601]                     })
[18:42:01.601]                   }
[18:42:01.601]                   ...future.strategy.old <- future::plan("list")
[18:42:01.601]                   options(future.plan = NULL)
[18:42:01.601]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.601]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.601]                 }
[18:42:01.601]                 ...future.workdir <- getwd()
[18:42:01.601]             }
[18:42:01.601]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.601]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.601]         }
[18:42:01.601]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.601]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:01.601]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.601]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.601]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.601]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.601]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.601]             base::names(...future.oldOptions))
[18:42:01.601]     }
[18:42:01.601]     if (FALSE) {
[18:42:01.601]     }
[18:42:01.601]     else {
[18:42:01.601]         if (TRUE) {
[18:42:01.601]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.601]                 open = "w")
[18:42:01.601]         }
[18:42:01.601]         else {
[18:42:01.601]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.601]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.601]         }
[18:42:01.601]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.601]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.601]             base::sink(type = "output", split = FALSE)
[18:42:01.601]             base::close(...future.stdout)
[18:42:01.601]         }, add = TRUE)
[18:42:01.601]     }
[18:42:01.601]     ...future.frame <- base::sys.nframe()
[18:42:01.601]     ...future.conditions <- base::list()
[18:42:01.601]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.601]     if (FALSE) {
[18:42:01.601]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.601]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.601]     }
[18:42:01.601]     ...future.result <- base::tryCatch({
[18:42:01.601]         base::withCallingHandlers({
[18:42:01.601]             ...future.value <- base::withVisible(base::local({
[18:42:01.601]                 ...future.makeSendCondition <- base::local({
[18:42:01.601]                   sendCondition <- NULL
[18:42:01.601]                   function(frame = 1L) {
[18:42:01.601]                     if (is.function(sendCondition)) 
[18:42:01.601]                       return(sendCondition)
[18:42:01.601]                     ns <- getNamespace("parallel")
[18:42:01.601]                     if (exists("sendData", mode = "function", 
[18:42:01.601]                       envir = ns)) {
[18:42:01.601]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.601]                         envir = ns)
[18:42:01.601]                       envir <- sys.frame(frame)
[18:42:01.601]                       master <- NULL
[18:42:01.601]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.601]                         !identical(envir, emptyenv())) {
[18:42:01.601]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.601]                           inherits = FALSE)) {
[18:42:01.601]                           master <- get("master", mode = "list", 
[18:42:01.601]                             envir = envir, inherits = FALSE)
[18:42:01.601]                           if (inherits(master, c("SOCKnode", 
[18:42:01.601]                             "SOCK0node"))) {
[18:42:01.601]                             sendCondition <<- function(cond) {
[18:42:01.601]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.601]                                 success = TRUE)
[18:42:01.601]                               parallel_sendData(master, data)
[18:42:01.601]                             }
[18:42:01.601]                             return(sendCondition)
[18:42:01.601]                           }
[18:42:01.601]                         }
[18:42:01.601]                         frame <- frame + 1L
[18:42:01.601]                         envir <- sys.frame(frame)
[18:42:01.601]                       }
[18:42:01.601]                     }
[18:42:01.601]                     sendCondition <<- function(cond) NULL
[18:42:01.601]                   }
[18:42:01.601]                 })
[18:42:01.601]                 withCallingHandlers({
[18:42:01.601]                   {
[18:42:01.601]                     do.call(function(...) {
[18:42:01.601]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.601]                       if (!identical(...future.globals.maxSize.org, 
[18:42:01.601]                         ...future.globals.maxSize)) {
[18:42:01.601]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.601]                         on.exit(options(oopts), add = TRUE)
[18:42:01.601]                       }
[18:42:01.601]                       {
[18:42:01.601]                         lapply(seq_along(...future.elements_ii), 
[18:42:01.601]                           FUN = function(jj) {
[18:42:01.601]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.601]                             ...future.FUN(...future.X_jj, ...)
[18:42:01.601]                           })
[18:42:01.601]                       }
[18:42:01.601]                     }, args = future.call.arguments)
[18:42:01.601]                   }
[18:42:01.601]                 }, immediateCondition = function(cond) {
[18:42:01.601]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.601]                   sendCondition(cond)
[18:42:01.601]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.601]                   {
[18:42:01.601]                     inherits <- base::inherits
[18:42:01.601]                     invokeRestart <- base::invokeRestart
[18:42:01.601]                     is.null <- base::is.null
[18:42:01.601]                     muffled <- FALSE
[18:42:01.601]                     if (inherits(cond, "message")) {
[18:42:01.601]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.601]                       if (muffled) 
[18:42:01.601]                         invokeRestart("muffleMessage")
[18:42:01.601]                     }
[18:42:01.601]                     else if (inherits(cond, "warning")) {
[18:42:01.601]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.601]                       if (muffled) 
[18:42:01.601]                         invokeRestart("muffleWarning")
[18:42:01.601]                     }
[18:42:01.601]                     else if (inherits(cond, "condition")) {
[18:42:01.601]                       if (!is.null(pattern)) {
[18:42:01.601]                         computeRestarts <- base::computeRestarts
[18:42:01.601]                         grepl <- base::grepl
[18:42:01.601]                         restarts <- computeRestarts(cond)
[18:42:01.601]                         for (restart in restarts) {
[18:42:01.601]                           name <- restart$name
[18:42:01.601]                           if (is.null(name)) 
[18:42:01.601]                             next
[18:42:01.601]                           if (!grepl(pattern, name)) 
[18:42:01.601]                             next
[18:42:01.601]                           invokeRestart(restart)
[18:42:01.601]                           muffled <- TRUE
[18:42:01.601]                           break
[18:42:01.601]                         }
[18:42:01.601]                       }
[18:42:01.601]                     }
[18:42:01.601]                     invisible(muffled)
[18:42:01.601]                   }
[18:42:01.601]                   muffleCondition(cond)
[18:42:01.601]                 })
[18:42:01.601]             }))
[18:42:01.601]             future::FutureResult(value = ...future.value$value, 
[18:42:01.601]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.601]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.601]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.601]                     ...future.globalenv.names))
[18:42:01.601]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.601]         }, condition = base::local({
[18:42:01.601]             c <- base::c
[18:42:01.601]             inherits <- base::inherits
[18:42:01.601]             invokeRestart <- base::invokeRestart
[18:42:01.601]             length <- base::length
[18:42:01.601]             list <- base::list
[18:42:01.601]             seq.int <- base::seq.int
[18:42:01.601]             signalCondition <- base::signalCondition
[18:42:01.601]             sys.calls <- base::sys.calls
[18:42:01.601]             `[[` <- base::`[[`
[18:42:01.601]             `+` <- base::`+`
[18:42:01.601]             `<<-` <- base::`<<-`
[18:42:01.601]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.601]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.601]                   3L)]
[18:42:01.601]             }
[18:42:01.601]             function(cond) {
[18:42:01.601]                 is_error <- inherits(cond, "error")
[18:42:01.601]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.601]                   NULL)
[18:42:01.601]                 if (is_error) {
[18:42:01.601]                   sessionInformation <- function() {
[18:42:01.601]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.601]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.601]                       search = base::search(), system = base::Sys.info())
[18:42:01.601]                   }
[18:42:01.601]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.601]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.601]                     cond$call), session = sessionInformation(), 
[18:42:01.601]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.601]                   signalCondition(cond)
[18:42:01.601]                 }
[18:42:01.601]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.601]                 "immediateCondition"))) {
[18:42:01.601]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.601]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.601]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.601]                   if (TRUE && !signal) {
[18:42:01.601]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.601]                     {
[18:42:01.601]                       inherits <- base::inherits
[18:42:01.601]                       invokeRestart <- base::invokeRestart
[18:42:01.601]                       is.null <- base::is.null
[18:42:01.601]                       muffled <- FALSE
[18:42:01.601]                       if (inherits(cond, "message")) {
[18:42:01.601]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.601]                         if (muffled) 
[18:42:01.601]                           invokeRestart("muffleMessage")
[18:42:01.601]                       }
[18:42:01.601]                       else if (inherits(cond, "warning")) {
[18:42:01.601]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.601]                         if (muffled) 
[18:42:01.601]                           invokeRestart("muffleWarning")
[18:42:01.601]                       }
[18:42:01.601]                       else if (inherits(cond, "condition")) {
[18:42:01.601]                         if (!is.null(pattern)) {
[18:42:01.601]                           computeRestarts <- base::computeRestarts
[18:42:01.601]                           grepl <- base::grepl
[18:42:01.601]                           restarts <- computeRestarts(cond)
[18:42:01.601]                           for (restart in restarts) {
[18:42:01.601]                             name <- restart$name
[18:42:01.601]                             if (is.null(name)) 
[18:42:01.601]                               next
[18:42:01.601]                             if (!grepl(pattern, name)) 
[18:42:01.601]                               next
[18:42:01.601]                             invokeRestart(restart)
[18:42:01.601]                             muffled <- TRUE
[18:42:01.601]                             break
[18:42:01.601]                           }
[18:42:01.601]                         }
[18:42:01.601]                       }
[18:42:01.601]                       invisible(muffled)
[18:42:01.601]                     }
[18:42:01.601]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.601]                   }
[18:42:01.601]                 }
[18:42:01.601]                 else {
[18:42:01.601]                   if (TRUE) {
[18:42:01.601]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.601]                     {
[18:42:01.601]                       inherits <- base::inherits
[18:42:01.601]                       invokeRestart <- base::invokeRestart
[18:42:01.601]                       is.null <- base::is.null
[18:42:01.601]                       muffled <- FALSE
[18:42:01.601]                       if (inherits(cond, "message")) {
[18:42:01.601]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.601]                         if (muffled) 
[18:42:01.601]                           invokeRestart("muffleMessage")
[18:42:01.601]                       }
[18:42:01.601]                       else if (inherits(cond, "warning")) {
[18:42:01.601]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.601]                         if (muffled) 
[18:42:01.601]                           invokeRestart("muffleWarning")
[18:42:01.601]                       }
[18:42:01.601]                       else if (inherits(cond, "condition")) {
[18:42:01.601]                         if (!is.null(pattern)) {
[18:42:01.601]                           computeRestarts <- base::computeRestarts
[18:42:01.601]                           grepl <- base::grepl
[18:42:01.601]                           restarts <- computeRestarts(cond)
[18:42:01.601]                           for (restart in restarts) {
[18:42:01.601]                             name <- restart$name
[18:42:01.601]                             if (is.null(name)) 
[18:42:01.601]                               next
[18:42:01.601]                             if (!grepl(pattern, name)) 
[18:42:01.601]                               next
[18:42:01.601]                             invokeRestart(restart)
[18:42:01.601]                             muffled <- TRUE
[18:42:01.601]                             break
[18:42:01.601]                           }
[18:42:01.601]                         }
[18:42:01.601]                       }
[18:42:01.601]                       invisible(muffled)
[18:42:01.601]                     }
[18:42:01.601]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.601]                   }
[18:42:01.601]                 }
[18:42:01.601]             }
[18:42:01.601]         }))
[18:42:01.601]     }, error = function(ex) {
[18:42:01.601]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.601]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.601]                 ...future.rng), started = ...future.startTime, 
[18:42:01.601]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.601]             version = "1.8"), class = "FutureResult")
[18:42:01.601]     }, finally = {
[18:42:01.601]         if (!identical(...future.workdir, getwd())) 
[18:42:01.601]             setwd(...future.workdir)
[18:42:01.601]         {
[18:42:01.601]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.601]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.601]             }
[18:42:01.601]             base::options(...future.oldOptions)
[18:42:01.601]             if (.Platform$OS.type == "windows") {
[18:42:01.601]                 old_names <- names(...future.oldEnvVars)
[18:42:01.601]                 envs <- base::Sys.getenv()
[18:42:01.601]                 names <- names(envs)
[18:42:01.601]                 common <- intersect(names, old_names)
[18:42:01.601]                 added <- setdiff(names, old_names)
[18:42:01.601]                 removed <- setdiff(old_names, names)
[18:42:01.601]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.601]                   envs[common]]
[18:42:01.601]                 NAMES <- toupper(changed)
[18:42:01.601]                 args <- list()
[18:42:01.601]                 for (kk in seq_along(NAMES)) {
[18:42:01.601]                   name <- changed[[kk]]
[18:42:01.601]                   NAME <- NAMES[[kk]]
[18:42:01.601]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.601]                     next
[18:42:01.601]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.601]                 }
[18:42:01.601]                 NAMES <- toupper(added)
[18:42:01.601]                 for (kk in seq_along(NAMES)) {
[18:42:01.601]                   name <- added[[kk]]
[18:42:01.601]                   NAME <- NAMES[[kk]]
[18:42:01.601]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.601]                     next
[18:42:01.601]                   args[[name]] <- ""
[18:42:01.601]                 }
[18:42:01.601]                 NAMES <- toupper(removed)
[18:42:01.601]                 for (kk in seq_along(NAMES)) {
[18:42:01.601]                   name <- removed[[kk]]
[18:42:01.601]                   NAME <- NAMES[[kk]]
[18:42:01.601]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.601]                     next
[18:42:01.601]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.601]                 }
[18:42:01.601]                 if (length(args) > 0) 
[18:42:01.601]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.601]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.601]             }
[18:42:01.601]             else {
[18:42:01.601]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.601]             }
[18:42:01.601]             {
[18:42:01.601]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.601]                   0L) {
[18:42:01.601]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.601]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.601]                   base::options(opts)
[18:42:01.601]                 }
[18:42:01.601]                 {
[18:42:01.601]                   {
[18:42:01.601]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.601]                     NULL
[18:42:01.601]                   }
[18:42:01.601]                   options(future.plan = NULL)
[18:42:01.601]                   if (is.na(NA_character_)) 
[18:42:01.601]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.601]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.601]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.601]                     .init = FALSE)
[18:42:01.601]                 }
[18:42:01.601]             }
[18:42:01.601]         }
[18:42:01.601]     })
[18:42:01.601]     if (TRUE) {
[18:42:01.601]         base::sink(type = "output", split = FALSE)
[18:42:01.601]         if (TRUE) {
[18:42:01.601]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.601]         }
[18:42:01.601]         else {
[18:42:01.601]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.601]         }
[18:42:01.601]         base::close(...future.stdout)
[18:42:01.601]         ...future.stdout <- NULL
[18:42:01.601]     }
[18:42:01.601]     ...future.result$conditions <- ...future.conditions
[18:42:01.601]     ...future.result$finished <- base::Sys.time()
[18:42:01.601]     ...future.result
[18:42:01.601] }
[18:42:01.610] Exporting 11 global objects (13.22 KiB) to cluster node #1 ...
[18:42:01.610] Exporting '...future.FUN' (4.50 KiB) to cluster node #1 ...
[18:42:01.611] Exporting '...future.FUN' (4.50 KiB) to cluster node #1 ... DONE
[18:42:01.611] Exporting 'x_FUN' (295 bytes) to cluster node #1 ...
[18:42:01.612] Exporting 'x_FUN' (295 bytes) to cluster node #1 ... DONE
[18:42:01.612] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:01.613] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:01.613] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:01.614] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:01.614] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:01.615] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:01.615] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:01.615] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:01.616] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:01.616] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:01.617] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:01.617] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:01.617] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:01.618] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:01.618] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:01.619] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:01.619] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:01.620] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:01.620] Exporting 11 global objects (13.22 KiB) to cluster node #1 ... DONE
[18:42:01.621] MultisessionFuture started
[18:42:01.621] - Launch lazy future ... done
[18:42:01.621] run() for 'MultisessionFuture' ... done
[18:42:01.622] Created future:
[18:42:01.647] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.647] - Validating connection of MultisessionFuture
[18:42:01.648] - received message: FutureResult
[18:42:01.648] - Received FutureResult
[18:42:01.649] - Erased future from FutureRegistry
[18:42:01.649] result() for ClusterFuture ...
[18:42:01.649] - result already collected: FutureResult
[18:42:01.649] result() for ClusterFuture ... done
[18:42:01.650] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.622] MultisessionFuture:
[18:42:01.622] Label: 'future_vapply-1'
[18:42:01.622] Expression:
[18:42:01.622] {
[18:42:01.622]     do.call(function(...) {
[18:42:01.622]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.622]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.622]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.622]             on.exit(options(oopts), add = TRUE)
[18:42:01.622]         }
[18:42:01.622]         {
[18:42:01.622]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.622]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.622]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.622]             })
[18:42:01.622]         }
[18:42:01.622]     }, args = future.call.arguments)
[18:42:01.622] }
[18:42:01.622] Lazy evaluation: FALSE
[18:42:01.622] Asynchronous evaluation: TRUE
[18:42:01.622] Local evaluation: TRUE
[18:42:01.622] Environment: R_GlobalEnv
[18:42:01.622] Capture standard output: TRUE
[18:42:01.622] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:01.622] Globals: 11 objects totaling 13.01 KiB (function '...future.FUN' of 4.50 KiB, function 'x_FUN' of 295 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:01.622] Packages: 1 packages ('future.apply')
[18:42:01.622] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:01.622] Resolved: TRUE
[18:42:01.622] Value: <not collected>
[18:42:01.622] Conditions captured: <none>
[18:42:01.622] Early signaling: FALSE
[18:42:01.622] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:01.622] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.650] Chunk #1 of 2 ... DONE
[18:42:01.651] Chunk #2 of 2 ...
[18:42:01.651]  - Finding globals in 'X' for chunk #2 ...
[18:42:01.651] getGlobalsAndPackages() ...
[18:42:01.651] Searching for globals...
[18:42:01.652] 
[18:42:01.652] Searching for globals ... DONE
[18:42:01.652] - globals: [0] <none>
[18:42:01.653] getGlobalsAndPackages() ... DONE
[18:42:01.653]    + additional globals found: [n=0] 
[18:42:01.653]    + additional namespaces needed: [n=0] 
[18:42:01.653]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:01.654]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:01.654]  - seeds: <none>
[18:42:01.654]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.655] getGlobalsAndPackages() ...
[18:42:01.655] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.655] Resolving globals: FALSE
[18:42:01.655] Tweak future expression to call with '...' arguments ...
[18:42:01.656] {
[18:42:01.656]     do.call(function(...) {
[18:42:01.656]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.656]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.656]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.656]             on.exit(options(oopts), add = TRUE)
[18:42:01.656]         }
[18:42:01.656]         {
[18:42:01.656]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.656]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.656]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.656]             })
[18:42:01.656]         }
[18:42:01.656]     }, args = future.call.arguments)
[18:42:01.656] }
[18:42:01.656] Tweak future expression to call with '...' arguments ... DONE
[18:42:01.658] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.658] - packages: [1] 'future.apply'
[18:42:01.658] getGlobalsAndPackages() ... DONE
[18:42:01.659] run() for 'Future' ...
[18:42:01.659] - state: 'created'
[18:42:01.659] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:01.682] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.683] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:01.683]   - Field: 'node'
[18:42:01.683]   - Field: 'label'
[18:42:01.684]   - Field: 'local'
[18:42:01.684]   - Field: 'owner'
[18:42:01.684]   - Field: 'envir'
[18:42:01.685]   - Field: 'workers'
[18:42:01.685]   - Field: 'packages'
[18:42:01.685]   - Field: 'gc'
[18:42:01.685]   - Field: 'conditions'
[18:42:01.686]   - Field: 'persistent'
[18:42:01.686]   - Field: 'expr'
[18:42:01.686]   - Field: 'uuid'
[18:42:01.687]   - Field: 'seed'
[18:42:01.687]   - Field: 'version'
[18:42:01.687]   - Field: 'result'
[18:42:01.687]   - Field: 'asynchronous'
[18:42:01.688]   - Field: 'calls'
[18:42:01.688]   - Field: 'globals'
[18:42:01.688]   - Field: 'stdout'
[18:42:01.688]   - Field: 'earlySignal'
[18:42:01.689]   - Field: 'lazy'
[18:42:01.689]   - Field: 'state'
[18:42:01.689] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:01.690] - Launch lazy future ...
[18:42:01.690] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:01.690] Packages needed by future strategies (n = 0): <none>
[18:42:01.691] {
[18:42:01.691]     {
[18:42:01.691]         {
[18:42:01.691]             ...future.startTime <- base::Sys.time()
[18:42:01.691]             {
[18:42:01.691]                 {
[18:42:01.691]                   {
[18:42:01.691]                     {
[18:42:01.691]                       {
[18:42:01.691]                         base::local({
[18:42:01.691]                           has_future <- base::requireNamespace("future", 
[18:42:01.691]                             quietly = TRUE)
[18:42:01.691]                           if (has_future) {
[18:42:01.691]                             ns <- base::getNamespace("future")
[18:42:01.691]                             version <- ns[[".package"]][["version"]]
[18:42:01.691]                             if (is.null(version)) 
[18:42:01.691]                               version <- utils::packageVersion("future")
[18:42:01.691]                           }
[18:42:01.691]                           else {
[18:42:01.691]                             version <- NULL
[18:42:01.691]                           }
[18:42:01.691]                           if (!has_future || version < "1.8.0") {
[18:42:01.691]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.691]                               "", base::R.version$version.string), 
[18:42:01.691]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:01.691]                                 base::R.version$platform, 8 * 
[18:42:01.691]                                   base::.Machine$sizeof.pointer), 
[18:42:01.691]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.691]                                 "release", "version")], collapse = " "), 
[18:42:01.691]                               hostname = base::Sys.info()[["nodename"]])
[18:42:01.691]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.691]                               info)
[18:42:01.691]                             info <- base::paste(info, collapse = "; ")
[18:42:01.691]                             if (!has_future) {
[18:42:01.691]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.691]                                 info)
[18:42:01.691]                             }
[18:42:01.691]                             else {
[18:42:01.691]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.691]                                 info, version)
[18:42:01.691]                             }
[18:42:01.691]                             base::stop(msg)
[18:42:01.691]                           }
[18:42:01.691]                         })
[18:42:01.691]                       }
[18:42:01.691]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.691]                       base::options(mc.cores = 1L)
[18:42:01.691]                     }
[18:42:01.691]                     base::local({
[18:42:01.691]                       for (pkg in "future.apply") {
[18:42:01.691]                         base::loadNamespace(pkg)
[18:42:01.691]                         base::library(pkg, character.only = TRUE)
[18:42:01.691]                       }
[18:42:01.691]                     })
[18:42:01.691]                   }
[18:42:01.691]                   ...future.strategy.old <- future::plan("list")
[18:42:01.691]                   options(future.plan = NULL)
[18:42:01.691]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.691]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.691]                 }
[18:42:01.691]                 ...future.workdir <- getwd()
[18:42:01.691]             }
[18:42:01.691]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.691]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.691]         }
[18:42:01.691]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.691]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:01.691]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.691]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.691]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.691]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.691]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.691]             base::names(...future.oldOptions))
[18:42:01.691]     }
[18:42:01.691]     if (FALSE) {
[18:42:01.691]     }
[18:42:01.691]     else {
[18:42:01.691]         if (TRUE) {
[18:42:01.691]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.691]                 open = "w")
[18:42:01.691]         }
[18:42:01.691]         else {
[18:42:01.691]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.691]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.691]         }
[18:42:01.691]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.691]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.691]             base::sink(type = "output", split = FALSE)
[18:42:01.691]             base::close(...future.stdout)
[18:42:01.691]         }, add = TRUE)
[18:42:01.691]     }
[18:42:01.691]     ...future.frame <- base::sys.nframe()
[18:42:01.691]     ...future.conditions <- base::list()
[18:42:01.691]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.691]     if (FALSE) {
[18:42:01.691]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.691]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.691]     }
[18:42:01.691]     ...future.result <- base::tryCatch({
[18:42:01.691]         base::withCallingHandlers({
[18:42:01.691]             ...future.value <- base::withVisible(base::local({
[18:42:01.691]                 ...future.makeSendCondition <- base::local({
[18:42:01.691]                   sendCondition <- NULL
[18:42:01.691]                   function(frame = 1L) {
[18:42:01.691]                     if (is.function(sendCondition)) 
[18:42:01.691]                       return(sendCondition)
[18:42:01.691]                     ns <- getNamespace("parallel")
[18:42:01.691]                     if (exists("sendData", mode = "function", 
[18:42:01.691]                       envir = ns)) {
[18:42:01.691]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.691]                         envir = ns)
[18:42:01.691]                       envir <- sys.frame(frame)
[18:42:01.691]                       master <- NULL
[18:42:01.691]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.691]                         !identical(envir, emptyenv())) {
[18:42:01.691]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.691]                           inherits = FALSE)) {
[18:42:01.691]                           master <- get("master", mode = "list", 
[18:42:01.691]                             envir = envir, inherits = FALSE)
[18:42:01.691]                           if (inherits(master, c("SOCKnode", 
[18:42:01.691]                             "SOCK0node"))) {
[18:42:01.691]                             sendCondition <<- function(cond) {
[18:42:01.691]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.691]                                 success = TRUE)
[18:42:01.691]                               parallel_sendData(master, data)
[18:42:01.691]                             }
[18:42:01.691]                             return(sendCondition)
[18:42:01.691]                           }
[18:42:01.691]                         }
[18:42:01.691]                         frame <- frame + 1L
[18:42:01.691]                         envir <- sys.frame(frame)
[18:42:01.691]                       }
[18:42:01.691]                     }
[18:42:01.691]                     sendCondition <<- function(cond) NULL
[18:42:01.691]                   }
[18:42:01.691]                 })
[18:42:01.691]                 withCallingHandlers({
[18:42:01.691]                   {
[18:42:01.691]                     do.call(function(...) {
[18:42:01.691]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.691]                       if (!identical(...future.globals.maxSize.org, 
[18:42:01.691]                         ...future.globals.maxSize)) {
[18:42:01.691]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.691]                         on.exit(options(oopts), add = TRUE)
[18:42:01.691]                       }
[18:42:01.691]                       {
[18:42:01.691]                         lapply(seq_along(...future.elements_ii), 
[18:42:01.691]                           FUN = function(jj) {
[18:42:01.691]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.691]                             ...future.FUN(...future.X_jj, ...)
[18:42:01.691]                           })
[18:42:01.691]                       }
[18:42:01.691]                     }, args = future.call.arguments)
[18:42:01.691]                   }
[18:42:01.691]                 }, immediateCondition = function(cond) {
[18:42:01.691]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.691]                   sendCondition(cond)
[18:42:01.691]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.691]                   {
[18:42:01.691]                     inherits <- base::inherits
[18:42:01.691]                     invokeRestart <- base::invokeRestart
[18:42:01.691]                     is.null <- base::is.null
[18:42:01.691]                     muffled <- FALSE
[18:42:01.691]                     if (inherits(cond, "message")) {
[18:42:01.691]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.691]                       if (muffled) 
[18:42:01.691]                         invokeRestart("muffleMessage")
[18:42:01.691]                     }
[18:42:01.691]                     else if (inherits(cond, "warning")) {
[18:42:01.691]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.691]                       if (muffled) 
[18:42:01.691]                         invokeRestart("muffleWarning")
[18:42:01.691]                     }
[18:42:01.691]                     else if (inherits(cond, "condition")) {
[18:42:01.691]                       if (!is.null(pattern)) {
[18:42:01.691]                         computeRestarts <- base::computeRestarts
[18:42:01.691]                         grepl <- base::grepl
[18:42:01.691]                         restarts <- computeRestarts(cond)
[18:42:01.691]                         for (restart in restarts) {
[18:42:01.691]                           name <- restart$name
[18:42:01.691]                           if (is.null(name)) 
[18:42:01.691]                             next
[18:42:01.691]                           if (!grepl(pattern, name)) 
[18:42:01.691]                             next
[18:42:01.691]                           invokeRestart(restart)
[18:42:01.691]                           muffled <- TRUE
[18:42:01.691]                           break
[18:42:01.691]                         }
[18:42:01.691]                       }
[18:42:01.691]                     }
[18:42:01.691]                     invisible(muffled)
[18:42:01.691]                   }
[18:42:01.691]                   muffleCondition(cond)
[18:42:01.691]                 })
[18:42:01.691]             }))
[18:42:01.691]             future::FutureResult(value = ...future.value$value, 
[18:42:01.691]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.691]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.691]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.691]                     ...future.globalenv.names))
[18:42:01.691]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.691]         }, condition = base::local({
[18:42:01.691]             c <- base::c
[18:42:01.691]             inherits <- base::inherits
[18:42:01.691]             invokeRestart <- base::invokeRestart
[18:42:01.691]             length <- base::length
[18:42:01.691]             list <- base::list
[18:42:01.691]             seq.int <- base::seq.int
[18:42:01.691]             signalCondition <- base::signalCondition
[18:42:01.691]             sys.calls <- base::sys.calls
[18:42:01.691]             `[[` <- base::`[[`
[18:42:01.691]             `+` <- base::`+`
[18:42:01.691]             `<<-` <- base::`<<-`
[18:42:01.691]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.691]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.691]                   3L)]
[18:42:01.691]             }
[18:42:01.691]             function(cond) {
[18:42:01.691]                 is_error <- inherits(cond, "error")
[18:42:01.691]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.691]                   NULL)
[18:42:01.691]                 if (is_error) {
[18:42:01.691]                   sessionInformation <- function() {
[18:42:01.691]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.691]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.691]                       search = base::search(), system = base::Sys.info())
[18:42:01.691]                   }
[18:42:01.691]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.691]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.691]                     cond$call), session = sessionInformation(), 
[18:42:01.691]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.691]                   signalCondition(cond)
[18:42:01.691]                 }
[18:42:01.691]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.691]                 "immediateCondition"))) {
[18:42:01.691]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.691]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.691]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.691]                   if (TRUE && !signal) {
[18:42:01.691]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.691]                     {
[18:42:01.691]                       inherits <- base::inherits
[18:42:01.691]                       invokeRestart <- base::invokeRestart
[18:42:01.691]                       is.null <- base::is.null
[18:42:01.691]                       muffled <- FALSE
[18:42:01.691]                       if (inherits(cond, "message")) {
[18:42:01.691]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.691]                         if (muffled) 
[18:42:01.691]                           invokeRestart("muffleMessage")
[18:42:01.691]                       }
[18:42:01.691]                       else if (inherits(cond, "warning")) {
[18:42:01.691]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.691]                         if (muffled) 
[18:42:01.691]                           invokeRestart("muffleWarning")
[18:42:01.691]                       }
[18:42:01.691]                       else if (inherits(cond, "condition")) {
[18:42:01.691]                         if (!is.null(pattern)) {
[18:42:01.691]                           computeRestarts <- base::computeRestarts
[18:42:01.691]                           grepl <- base::grepl
[18:42:01.691]                           restarts <- computeRestarts(cond)
[18:42:01.691]                           for (restart in restarts) {
[18:42:01.691]                             name <- restart$name
[18:42:01.691]                             if (is.null(name)) 
[18:42:01.691]                               next
[18:42:01.691]                             if (!grepl(pattern, name)) 
[18:42:01.691]                               next
[18:42:01.691]                             invokeRestart(restart)
[18:42:01.691]                             muffled <- TRUE
[18:42:01.691]                             break
[18:42:01.691]                           }
[18:42:01.691]                         }
[18:42:01.691]                       }
[18:42:01.691]                       invisible(muffled)
[18:42:01.691]                     }
[18:42:01.691]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.691]                   }
[18:42:01.691]                 }
[18:42:01.691]                 else {
[18:42:01.691]                   if (TRUE) {
[18:42:01.691]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.691]                     {
[18:42:01.691]                       inherits <- base::inherits
[18:42:01.691]                       invokeRestart <- base::invokeRestart
[18:42:01.691]                       is.null <- base::is.null
[18:42:01.691]                       muffled <- FALSE
[18:42:01.691]                       if (inherits(cond, "message")) {
[18:42:01.691]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.691]                         if (muffled) 
[18:42:01.691]                           invokeRestart("muffleMessage")
[18:42:01.691]                       }
[18:42:01.691]                       else if (inherits(cond, "warning")) {
[18:42:01.691]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.691]                         if (muffled) 
[18:42:01.691]                           invokeRestart("muffleWarning")
[18:42:01.691]                       }
[18:42:01.691]                       else if (inherits(cond, "condition")) {
[18:42:01.691]                         if (!is.null(pattern)) {
[18:42:01.691]                           computeRestarts <- base::computeRestarts
[18:42:01.691]                           grepl <- base::grepl
[18:42:01.691]                           restarts <- computeRestarts(cond)
[18:42:01.691]                           for (restart in restarts) {
[18:42:01.691]                             name <- restart$name
[18:42:01.691]                             if (is.null(name)) 
[18:42:01.691]                               next
[18:42:01.691]                             if (!grepl(pattern, name)) 
[18:42:01.691]                               next
[18:42:01.691]                             invokeRestart(restart)
[18:42:01.691]                             muffled <- TRUE
[18:42:01.691]                             break
[18:42:01.691]                           }
[18:42:01.691]                         }
[18:42:01.691]                       }
[18:42:01.691]                       invisible(muffled)
[18:42:01.691]                     }
[18:42:01.691]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.691]                   }
[18:42:01.691]                 }
[18:42:01.691]             }
[18:42:01.691]         }))
[18:42:01.691]     }, error = function(ex) {
[18:42:01.691]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.691]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.691]                 ...future.rng), started = ...future.startTime, 
[18:42:01.691]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.691]             version = "1.8"), class = "FutureResult")
[18:42:01.691]     }, finally = {
[18:42:01.691]         if (!identical(...future.workdir, getwd())) 
[18:42:01.691]             setwd(...future.workdir)
[18:42:01.691]         {
[18:42:01.691]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.691]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.691]             }
[18:42:01.691]             base::options(...future.oldOptions)
[18:42:01.691]             if (.Platform$OS.type == "windows") {
[18:42:01.691]                 old_names <- names(...future.oldEnvVars)
[18:42:01.691]                 envs <- base::Sys.getenv()
[18:42:01.691]                 names <- names(envs)
[18:42:01.691]                 common <- intersect(names, old_names)
[18:42:01.691]                 added <- setdiff(names, old_names)
[18:42:01.691]                 removed <- setdiff(old_names, names)
[18:42:01.691]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.691]                   envs[common]]
[18:42:01.691]                 NAMES <- toupper(changed)
[18:42:01.691]                 args <- list()
[18:42:01.691]                 for (kk in seq_along(NAMES)) {
[18:42:01.691]                   name <- changed[[kk]]
[18:42:01.691]                   NAME <- NAMES[[kk]]
[18:42:01.691]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.691]                     next
[18:42:01.691]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.691]                 }
[18:42:01.691]                 NAMES <- toupper(added)
[18:42:01.691]                 for (kk in seq_along(NAMES)) {
[18:42:01.691]                   name <- added[[kk]]
[18:42:01.691]                   NAME <- NAMES[[kk]]
[18:42:01.691]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.691]                     next
[18:42:01.691]                   args[[name]] <- ""
[18:42:01.691]                 }
[18:42:01.691]                 NAMES <- toupper(removed)
[18:42:01.691]                 for (kk in seq_along(NAMES)) {
[18:42:01.691]                   name <- removed[[kk]]
[18:42:01.691]                   NAME <- NAMES[[kk]]
[18:42:01.691]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.691]                     next
[18:42:01.691]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.691]                 }
[18:42:01.691]                 if (length(args) > 0) 
[18:42:01.691]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.691]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.691]             }
[18:42:01.691]             else {
[18:42:01.691]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.691]             }
[18:42:01.691]             {
[18:42:01.691]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.691]                   0L) {
[18:42:01.691]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.691]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.691]                   base::options(opts)
[18:42:01.691]                 }
[18:42:01.691]                 {
[18:42:01.691]                   {
[18:42:01.691]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.691]                     NULL
[18:42:01.691]                   }
[18:42:01.691]                   options(future.plan = NULL)
[18:42:01.691]                   if (is.na(NA_character_)) 
[18:42:01.691]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.691]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.691]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.691]                     .init = FALSE)
[18:42:01.691]                 }
[18:42:01.691]             }
[18:42:01.691]         }
[18:42:01.691]     })
[18:42:01.691]     if (TRUE) {
[18:42:01.691]         base::sink(type = "output", split = FALSE)
[18:42:01.691]         if (TRUE) {
[18:42:01.691]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.691]         }
[18:42:01.691]         else {
[18:42:01.691]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.691]         }
[18:42:01.691]         base::close(...future.stdout)
[18:42:01.691]         ...future.stdout <- NULL
[18:42:01.691]     }
[18:42:01.691]     ...future.result$conditions <- ...future.conditions
[18:42:01.691]     ...future.result$finished <- base::Sys.time()
[18:42:01.691]     ...future.result
[18:42:01.691] }
[18:42:01.700] Exporting 11 global objects (13.22 KiB) to cluster node #1 ...
[18:42:01.700] Exporting '...future.FUN' (4.50 KiB) to cluster node #1 ...
[18:42:01.701] Exporting '...future.FUN' (4.50 KiB) to cluster node #1 ... DONE
[18:42:01.701] Exporting 'x_FUN' (295 bytes) to cluster node #1 ...
[18:42:01.701] Exporting 'x_FUN' (295 bytes) to cluster node #1 ... DONE
[18:42:01.702] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:01.702] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:01.702] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:01.703] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:01.703] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:01.703] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:01.703] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:01.704] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:01.704] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:01.704] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:01.704] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:01.705] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:01.705] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:01.705] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:01.706] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:01.706] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:01.706] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:01.706] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:01.707] Exporting 11 global objects (13.22 KiB) to cluster node #1 ... DONE
[18:42:01.707] MultisessionFuture started
[18:42:01.707] - Launch lazy future ... done
[18:42:01.707] run() for 'MultisessionFuture' ... done
[18:42:01.708] Created future:
[18:42:01.723] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.723] - Validating connection of MultisessionFuture
[18:42:01.724] - received message: FutureResult
[18:42:01.724] - Received FutureResult
[18:42:01.724] - Erased future from FutureRegistry
[18:42:01.724] result() for ClusterFuture ...
[18:42:01.724] - result already collected: FutureResult
[18:42:01.724] result() for ClusterFuture ... done
[18:42:01.725] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.708] MultisessionFuture:
[18:42:01.708] Label: 'future_vapply-2'
[18:42:01.708] Expression:
[18:42:01.708] {
[18:42:01.708]     do.call(function(...) {
[18:42:01.708]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.708]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.708]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.708]             on.exit(options(oopts), add = TRUE)
[18:42:01.708]         }
[18:42:01.708]         {
[18:42:01.708]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.708]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.708]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.708]             })
[18:42:01.708]         }
[18:42:01.708]     }, args = future.call.arguments)
[18:42:01.708] }
[18:42:01.708] Lazy evaluation: FALSE
[18:42:01.708] Asynchronous evaluation: TRUE
[18:42:01.708] Local evaluation: TRUE
[18:42:01.708] Environment: R_GlobalEnv
[18:42:01.708] Capture standard output: TRUE
[18:42:01.708] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:01.708] Globals: 11 objects totaling 13.01 KiB (function '...future.FUN' of 4.50 KiB, function 'x_FUN' of 295 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:01.708] Packages: 1 packages ('future.apply')
[18:42:01.708] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:01.708] Resolved: TRUE
[18:42:01.708] Value: <not collected>
[18:42:01.708] Conditions captured: <none>
[18:42:01.708] Early signaling: FALSE
[18:42:01.708] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:01.708] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.725] Chunk #2 of 2 ... DONE
[18:42:01.725] Launching 2 futures (chunks) ... DONE
[18:42:01.725] Resolving 2 futures (chunks) ...
[18:42:01.726] resolve() on list ...
[18:42:01.726]  recursive: 0
[18:42:01.726]  length: 2
[18:42:01.726] 
[18:42:01.726] Future #1
[18:42:01.726] result() for ClusterFuture ...
[18:42:01.726] - result already collected: FutureResult
[18:42:01.727] result() for ClusterFuture ... done
[18:42:01.727] result() for ClusterFuture ...
[18:42:01.727] - result already collected: FutureResult
[18:42:01.727] result() for ClusterFuture ... done
[18:42:01.727] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:01.727] - nx: 2
[18:42:01.728] - relay: TRUE
[18:42:01.728] - stdout: TRUE
[18:42:01.728] - signal: TRUE
[18:42:01.728] - resignal: FALSE
[18:42:01.728] - force: TRUE
[18:42:01.728] - relayed: [n=2] FALSE, FALSE
[18:42:01.728] - queued futures: [n=2] FALSE, FALSE
[18:42:01.729]  - until=1
[18:42:01.729]  - relaying element #1
[18:42:01.729] result() for ClusterFuture ...
[18:42:01.729] - result already collected: FutureResult
[18:42:01.729] result() for ClusterFuture ... done
[18:42:01.729] result() for ClusterFuture ...
[18:42:01.729] - result already collected: FutureResult
[18:42:01.730] result() for ClusterFuture ... done
[18:42:01.730] result() for ClusterFuture ...
[18:42:01.730] - result already collected: FutureResult
[18:42:01.730] result() for ClusterFuture ... done
[18:42:01.730] result() for ClusterFuture ...
[18:42:01.730] - result already collected: FutureResult
[18:42:01.731] result() for ClusterFuture ... done
[18:42:01.731] - relayed: [n=2] TRUE, FALSE
[18:42:01.731] - queued futures: [n=2] TRUE, FALSE
[18:42:01.731] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:01.731]  length: 1 (resolved future 1)
[18:42:01.731] Future #2
[18:42:01.732] result() for ClusterFuture ...
[18:42:01.732] - result already collected: FutureResult
[18:42:01.732] result() for ClusterFuture ... done
[18:42:01.732] result() for ClusterFuture ...
[18:42:01.732] - result already collected: FutureResult
[18:42:01.732] result() for ClusterFuture ... done
[18:42:01.733] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:01.733] - nx: 2
[18:42:01.733] - relay: TRUE
[18:42:01.733] - stdout: TRUE
[18:42:01.733] - signal: TRUE
[18:42:01.733] - resignal: FALSE
[18:42:01.733] - force: TRUE
[18:42:01.734] - relayed: [n=2] TRUE, FALSE
[18:42:01.734] - queued futures: [n=2] TRUE, FALSE
[18:42:01.734]  - until=2
[18:42:01.734]  - relaying element #2
[18:42:01.734] result() for ClusterFuture ...
[18:42:01.734] - result already collected: FutureResult
[18:42:01.734] result() for ClusterFuture ... done
[18:42:01.735] result() for ClusterFuture ...
[18:42:01.735] - result already collected: FutureResult
[18:42:01.735] result() for ClusterFuture ... done
[18:42:01.735] result() for ClusterFuture ...
[18:42:01.735] - result already collected: FutureResult
[18:42:01.735] result() for ClusterFuture ... done
[18:42:01.736] result() for ClusterFuture ...
[18:42:01.736] - result already collected: FutureResult
[18:42:01.736] result() for ClusterFuture ... done
[18:42:01.736] - relayed: [n=2] TRUE, TRUE
[18:42:01.736] - queued futures: [n=2] TRUE, TRUE
[18:42:01.736] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:01.736]  length: 0 (resolved future 2)
[18:42:01.737] Relaying remaining futures
[18:42:01.737] signalConditionsASAP(NULL, pos=0) ...
[18:42:01.737] - nx: 2
[18:42:01.737] - relay: TRUE
[18:42:01.737] - stdout: TRUE
[18:42:01.737] - signal: TRUE
[18:42:01.738] - resignal: FALSE
[18:42:01.738] - force: TRUE
[18:42:01.738] - relayed: [n=2] TRUE, TRUE
[18:42:01.738] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:01.738] - relayed: [n=2] TRUE, TRUE
[18:42:01.738] - queued futures: [n=2] TRUE, TRUE
[18:42:01.739] signalConditionsASAP(NULL, pos=0) ... done
[18:42:01.739] resolve() on list ... DONE
[18:42:01.739] result() for ClusterFuture ...
[18:42:01.739] - result already collected: FutureResult
[18:42:01.739] result() for ClusterFuture ... done
[18:42:01.739] result() for ClusterFuture ...
[18:42:01.740] - result already collected: FutureResult
[18:42:01.740] result() for ClusterFuture ... done
[18:42:01.740] result() for ClusterFuture ...
[18:42:01.741] - result already collected: FutureResult
[18:42:01.741] result() for ClusterFuture ... done
[18:42:01.741] result() for ClusterFuture ...
[18:42:01.741] - result already collected: FutureResult
[18:42:01.742] result() for ClusterFuture ... done
[18:42:01.742]  - Number of value chunks collected: 2
[18:42:01.742] Resolving 2 futures (chunks) ... DONE
[18:42:01.742] Reducing values from 2 chunks ...
[18:42:01.743]  - Number of values collected after concatenation: 10
[18:42:01.743]  - Number of values expected: 10
[18:42:01.743] Reducing values from 2 chunks ... DONE
[18:42:01.743] future_lapply() ... DONE
 num[0 , 1:10] 
 int[0 , 1:10] 
[18:42:01.745] future_lapply() ...
[18:42:01.752] Number of chunks: 2
[18:42:01.753] getGlobalsAndPackagesXApply() ...
[18:42:01.753]  - future.globals: TRUE
[18:42:01.753] getGlobalsAndPackages() ...
[18:42:01.753] Searching for globals...
[18:42:01.760] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'integer'
[18:42:01.760] Searching for globals ... DONE
[18:42:01.761] Resolving globals: FALSE
[18:42:01.762] The total size of the 7 globals is 12.75 KiB (13056 bytes)
[18:42:01.763] The total size of the 7 globals exported for future expression ('FUN()') is 12.75 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.50 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:01.764] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:01.764] - packages: [1] 'future.apply'
[18:42:01.764] getGlobalsAndPackages() ... DONE
[18:42:01.765]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:01.765]  - needed namespaces: [n=1] 'future.apply'
[18:42:01.765] Finding globals ... DONE
[18:42:01.765]  - use_args: TRUE
[18:42:01.766]  - Getting '...' globals ...
[18:42:01.766] resolve() on list ...
[18:42:01.767]  recursive: 0
[18:42:01.767]  length: 1
[18:42:01.767]  elements: '...'
[18:42:01.767]  length: 0 (resolved future 1)
[18:42:01.768] resolve() on list ... DONE
[18:42:01.768]    - '...' content: [n=0] 
[18:42:01.768] List of 1
[18:42:01.768]  $ ...: list()
[18:42:01.768]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:01.768]  - attr(*, "where")=List of 1
[18:42:01.768]   ..$ ...:<environment: 0x000002ea058bb008> 
[18:42:01.768]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:01.768]  - attr(*, "resolved")= logi TRUE
[18:42:01.768]  - attr(*, "total_size")= num NA
[18:42:01.773]  - Getting '...' globals ... DONE
[18:42:01.773] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:01.773] List of 8
[18:42:01.773]  $ ...future.FUN:function (x, ...)  
[18:42:01.773]  $ x_FUN        :function (x)  
[18:42:01.773]  $ times        : int 0
[18:42:01.773]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:01.773]  $ stop_if_not  :function (...)  
[18:42:01.773]  $ dim          : NULL
[18:42:01.773]  $ valid_types  : chr [1:2] "logical" "integer"
[18:42:01.773]  $ ...          : list()
[18:42:01.773]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:01.773]  - attr(*, "where")=List of 8
[18:42:01.773]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:01.773]   ..$ ...          :<environment: 0x000002ea058bb008> 
[18:42:01.773]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:01.773]  - attr(*, "resolved")= logi FALSE
[18:42:01.773]  - attr(*, "total_size")= int 23453
[18:42:01.784] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:01.784] getGlobalsAndPackagesXApply() ... DONE
[18:42:01.784] Number of futures (= number of chunks): 2
[18:42:01.785] Launching 2 futures (chunks) ...
[18:42:01.785] Chunk #1 of 2 ...
[18:42:01.785]  - Finding globals in 'X' for chunk #1 ...
[18:42:01.786] getGlobalsAndPackages() ...
[18:42:01.786] Searching for globals...
[18:42:01.786] 
[18:42:01.787] Searching for globals ... DONE
[18:42:01.787] - globals: [0] <none>
[18:42:01.787] getGlobalsAndPackages() ... DONE
[18:42:01.787]    + additional globals found: [n=0] 
[18:42:01.788]    + additional namespaces needed: [n=0] 
[18:42:01.788]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:01.788]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:01.788]  - seeds: <none>
[18:42:01.789]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.789] getGlobalsAndPackages() ...
[18:42:01.789] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.789] Resolving globals: FALSE
[18:42:01.790] Tweak future expression to call with '...' arguments ...
[18:42:01.790] {
[18:42:01.790]     do.call(function(...) {
[18:42:01.790]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.790]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.790]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.790]             on.exit(options(oopts), add = TRUE)
[18:42:01.790]         }
[18:42:01.790]         {
[18:42:01.790]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.790]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.790]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.790]             })
[18:42:01.790]         }
[18:42:01.790]     }, args = future.call.arguments)
[18:42:01.790] }
[18:42:01.791] Tweak future expression to call with '...' arguments ... DONE
[18:42:01.792] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.792] - packages: [1] 'future.apply'
[18:42:01.792] getGlobalsAndPackages() ... DONE
[18:42:01.793] run() for 'Future' ...
[18:42:01.793] - state: 'created'
[18:42:01.794] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:01.813] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.814] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:01.814]   - Field: 'node'
[18:42:01.814]   - Field: 'label'
[18:42:01.815]   - Field: 'local'
[18:42:01.815]   - Field: 'owner'
[18:42:01.815]   - Field: 'envir'
[18:42:01.815]   - Field: 'workers'
[18:42:01.816]   - Field: 'packages'
[18:42:01.816]   - Field: 'gc'
[18:42:01.816]   - Field: 'conditions'
[18:42:01.817]   - Field: 'persistent'
[18:42:01.817]   - Field: 'expr'
[18:42:01.817]   - Field: 'uuid'
[18:42:01.818]   - Field: 'seed'
[18:42:01.818]   - Field: 'version'
[18:42:01.818]   - Field: 'result'
[18:42:01.818]   - Field: 'asynchronous'
[18:42:01.819]   - Field: 'calls'
[18:42:01.819]   - Field: 'globals'
[18:42:01.819]   - Field: 'stdout'
[18:42:01.820]   - Field: 'earlySignal'
[18:42:01.820]   - Field: 'lazy'
[18:42:01.820]   - Field: 'state'
[18:42:01.820] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:01.821] - Launch lazy future ...
[18:42:01.821] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:01.821] Packages needed by future strategies (n = 0): <none>
[18:42:01.823] {
[18:42:01.823]     {
[18:42:01.823]         {
[18:42:01.823]             ...future.startTime <- base::Sys.time()
[18:42:01.823]             {
[18:42:01.823]                 {
[18:42:01.823]                   {
[18:42:01.823]                     {
[18:42:01.823]                       {
[18:42:01.823]                         base::local({
[18:42:01.823]                           has_future <- base::requireNamespace("future", 
[18:42:01.823]                             quietly = TRUE)
[18:42:01.823]                           if (has_future) {
[18:42:01.823]                             ns <- base::getNamespace("future")
[18:42:01.823]                             version <- ns[[".package"]][["version"]]
[18:42:01.823]                             if (is.null(version)) 
[18:42:01.823]                               version <- utils::packageVersion("future")
[18:42:01.823]                           }
[18:42:01.823]                           else {
[18:42:01.823]                             version <- NULL
[18:42:01.823]                           }
[18:42:01.823]                           if (!has_future || version < "1.8.0") {
[18:42:01.823]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.823]                               "", base::R.version$version.string), 
[18:42:01.823]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:01.823]                                 base::R.version$platform, 8 * 
[18:42:01.823]                                   base::.Machine$sizeof.pointer), 
[18:42:01.823]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.823]                                 "release", "version")], collapse = " "), 
[18:42:01.823]                               hostname = base::Sys.info()[["nodename"]])
[18:42:01.823]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.823]                               info)
[18:42:01.823]                             info <- base::paste(info, collapse = "; ")
[18:42:01.823]                             if (!has_future) {
[18:42:01.823]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.823]                                 info)
[18:42:01.823]                             }
[18:42:01.823]                             else {
[18:42:01.823]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.823]                                 info, version)
[18:42:01.823]                             }
[18:42:01.823]                             base::stop(msg)
[18:42:01.823]                           }
[18:42:01.823]                         })
[18:42:01.823]                       }
[18:42:01.823]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.823]                       base::options(mc.cores = 1L)
[18:42:01.823]                     }
[18:42:01.823]                     base::local({
[18:42:01.823]                       for (pkg in "future.apply") {
[18:42:01.823]                         base::loadNamespace(pkg)
[18:42:01.823]                         base::library(pkg, character.only = TRUE)
[18:42:01.823]                       }
[18:42:01.823]                     })
[18:42:01.823]                   }
[18:42:01.823]                   ...future.strategy.old <- future::plan("list")
[18:42:01.823]                   options(future.plan = NULL)
[18:42:01.823]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.823]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.823]                 }
[18:42:01.823]                 ...future.workdir <- getwd()
[18:42:01.823]             }
[18:42:01.823]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.823]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.823]         }
[18:42:01.823]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.823]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:01.823]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.823]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.823]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.823]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.823]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.823]             base::names(...future.oldOptions))
[18:42:01.823]     }
[18:42:01.823]     if (FALSE) {
[18:42:01.823]     }
[18:42:01.823]     else {
[18:42:01.823]         if (TRUE) {
[18:42:01.823]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.823]                 open = "w")
[18:42:01.823]         }
[18:42:01.823]         else {
[18:42:01.823]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.823]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.823]         }
[18:42:01.823]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.823]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.823]             base::sink(type = "output", split = FALSE)
[18:42:01.823]             base::close(...future.stdout)
[18:42:01.823]         }, add = TRUE)
[18:42:01.823]     }
[18:42:01.823]     ...future.frame <- base::sys.nframe()
[18:42:01.823]     ...future.conditions <- base::list()
[18:42:01.823]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.823]     if (FALSE) {
[18:42:01.823]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.823]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.823]     }
[18:42:01.823]     ...future.result <- base::tryCatch({
[18:42:01.823]         base::withCallingHandlers({
[18:42:01.823]             ...future.value <- base::withVisible(base::local({
[18:42:01.823]                 ...future.makeSendCondition <- base::local({
[18:42:01.823]                   sendCondition <- NULL
[18:42:01.823]                   function(frame = 1L) {
[18:42:01.823]                     if (is.function(sendCondition)) 
[18:42:01.823]                       return(sendCondition)
[18:42:01.823]                     ns <- getNamespace("parallel")
[18:42:01.823]                     if (exists("sendData", mode = "function", 
[18:42:01.823]                       envir = ns)) {
[18:42:01.823]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.823]                         envir = ns)
[18:42:01.823]                       envir <- sys.frame(frame)
[18:42:01.823]                       master <- NULL
[18:42:01.823]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.823]                         !identical(envir, emptyenv())) {
[18:42:01.823]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.823]                           inherits = FALSE)) {
[18:42:01.823]                           master <- get("master", mode = "list", 
[18:42:01.823]                             envir = envir, inherits = FALSE)
[18:42:01.823]                           if (inherits(master, c("SOCKnode", 
[18:42:01.823]                             "SOCK0node"))) {
[18:42:01.823]                             sendCondition <<- function(cond) {
[18:42:01.823]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.823]                                 success = TRUE)
[18:42:01.823]                               parallel_sendData(master, data)
[18:42:01.823]                             }
[18:42:01.823]                             return(sendCondition)
[18:42:01.823]                           }
[18:42:01.823]                         }
[18:42:01.823]                         frame <- frame + 1L
[18:42:01.823]                         envir <- sys.frame(frame)
[18:42:01.823]                       }
[18:42:01.823]                     }
[18:42:01.823]                     sendCondition <<- function(cond) NULL
[18:42:01.823]                   }
[18:42:01.823]                 })
[18:42:01.823]                 withCallingHandlers({
[18:42:01.823]                   {
[18:42:01.823]                     do.call(function(...) {
[18:42:01.823]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.823]                       if (!identical(...future.globals.maxSize.org, 
[18:42:01.823]                         ...future.globals.maxSize)) {
[18:42:01.823]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.823]                         on.exit(options(oopts), add = TRUE)
[18:42:01.823]                       }
[18:42:01.823]                       {
[18:42:01.823]                         lapply(seq_along(...future.elements_ii), 
[18:42:01.823]                           FUN = function(jj) {
[18:42:01.823]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.823]                             ...future.FUN(...future.X_jj, ...)
[18:42:01.823]                           })
[18:42:01.823]                       }
[18:42:01.823]                     }, args = future.call.arguments)
[18:42:01.823]                   }
[18:42:01.823]                 }, immediateCondition = function(cond) {
[18:42:01.823]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.823]                   sendCondition(cond)
[18:42:01.823]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.823]                   {
[18:42:01.823]                     inherits <- base::inherits
[18:42:01.823]                     invokeRestart <- base::invokeRestart
[18:42:01.823]                     is.null <- base::is.null
[18:42:01.823]                     muffled <- FALSE
[18:42:01.823]                     if (inherits(cond, "message")) {
[18:42:01.823]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.823]                       if (muffled) 
[18:42:01.823]                         invokeRestart("muffleMessage")
[18:42:01.823]                     }
[18:42:01.823]                     else if (inherits(cond, "warning")) {
[18:42:01.823]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.823]                       if (muffled) 
[18:42:01.823]                         invokeRestart("muffleWarning")
[18:42:01.823]                     }
[18:42:01.823]                     else if (inherits(cond, "condition")) {
[18:42:01.823]                       if (!is.null(pattern)) {
[18:42:01.823]                         computeRestarts <- base::computeRestarts
[18:42:01.823]                         grepl <- base::grepl
[18:42:01.823]                         restarts <- computeRestarts(cond)
[18:42:01.823]                         for (restart in restarts) {
[18:42:01.823]                           name <- restart$name
[18:42:01.823]                           if (is.null(name)) 
[18:42:01.823]                             next
[18:42:01.823]                           if (!grepl(pattern, name)) 
[18:42:01.823]                             next
[18:42:01.823]                           invokeRestart(restart)
[18:42:01.823]                           muffled <- TRUE
[18:42:01.823]                           break
[18:42:01.823]                         }
[18:42:01.823]                       }
[18:42:01.823]                     }
[18:42:01.823]                     invisible(muffled)
[18:42:01.823]                   }
[18:42:01.823]                   muffleCondition(cond)
[18:42:01.823]                 })
[18:42:01.823]             }))
[18:42:01.823]             future::FutureResult(value = ...future.value$value, 
[18:42:01.823]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.823]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.823]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.823]                     ...future.globalenv.names))
[18:42:01.823]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.823]         }, condition = base::local({
[18:42:01.823]             c <- base::c
[18:42:01.823]             inherits <- base::inherits
[18:42:01.823]             invokeRestart <- base::invokeRestart
[18:42:01.823]             length <- base::length
[18:42:01.823]             list <- base::list
[18:42:01.823]             seq.int <- base::seq.int
[18:42:01.823]             signalCondition <- base::signalCondition
[18:42:01.823]             sys.calls <- base::sys.calls
[18:42:01.823]             `[[` <- base::`[[`
[18:42:01.823]             `+` <- base::`+`
[18:42:01.823]             `<<-` <- base::`<<-`
[18:42:01.823]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.823]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.823]                   3L)]
[18:42:01.823]             }
[18:42:01.823]             function(cond) {
[18:42:01.823]                 is_error <- inherits(cond, "error")
[18:42:01.823]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.823]                   NULL)
[18:42:01.823]                 if (is_error) {
[18:42:01.823]                   sessionInformation <- function() {
[18:42:01.823]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.823]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.823]                       search = base::search(), system = base::Sys.info())
[18:42:01.823]                   }
[18:42:01.823]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.823]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.823]                     cond$call), session = sessionInformation(), 
[18:42:01.823]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.823]                   signalCondition(cond)
[18:42:01.823]                 }
[18:42:01.823]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.823]                 "immediateCondition"))) {
[18:42:01.823]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.823]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.823]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.823]                   if (TRUE && !signal) {
[18:42:01.823]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.823]                     {
[18:42:01.823]                       inherits <- base::inherits
[18:42:01.823]                       invokeRestart <- base::invokeRestart
[18:42:01.823]                       is.null <- base::is.null
[18:42:01.823]                       muffled <- FALSE
[18:42:01.823]                       if (inherits(cond, "message")) {
[18:42:01.823]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.823]                         if (muffled) 
[18:42:01.823]                           invokeRestart("muffleMessage")
[18:42:01.823]                       }
[18:42:01.823]                       else if (inherits(cond, "warning")) {
[18:42:01.823]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.823]                         if (muffled) 
[18:42:01.823]                           invokeRestart("muffleWarning")
[18:42:01.823]                       }
[18:42:01.823]                       else if (inherits(cond, "condition")) {
[18:42:01.823]                         if (!is.null(pattern)) {
[18:42:01.823]                           computeRestarts <- base::computeRestarts
[18:42:01.823]                           grepl <- base::grepl
[18:42:01.823]                           restarts <- computeRestarts(cond)
[18:42:01.823]                           for (restart in restarts) {
[18:42:01.823]                             name <- restart$name
[18:42:01.823]                             if (is.null(name)) 
[18:42:01.823]                               next
[18:42:01.823]                             if (!grepl(pattern, name)) 
[18:42:01.823]                               next
[18:42:01.823]                             invokeRestart(restart)
[18:42:01.823]                             muffled <- TRUE
[18:42:01.823]                             break
[18:42:01.823]                           }
[18:42:01.823]                         }
[18:42:01.823]                       }
[18:42:01.823]                       invisible(muffled)
[18:42:01.823]                     }
[18:42:01.823]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.823]                   }
[18:42:01.823]                 }
[18:42:01.823]                 else {
[18:42:01.823]                   if (TRUE) {
[18:42:01.823]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.823]                     {
[18:42:01.823]                       inherits <- base::inherits
[18:42:01.823]                       invokeRestart <- base::invokeRestart
[18:42:01.823]                       is.null <- base::is.null
[18:42:01.823]                       muffled <- FALSE
[18:42:01.823]                       if (inherits(cond, "message")) {
[18:42:01.823]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.823]                         if (muffled) 
[18:42:01.823]                           invokeRestart("muffleMessage")
[18:42:01.823]                       }
[18:42:01.823]                       else if (inherits(cond, "warning")) {
[18:42:01.823]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.823]                         if (muffled) 
[18:42:01.823]                           invokeRestart("muffleWarning")
[18:42:01.823]                       }
[18:42:01.823]                       else if (inherits(cond, "condition")) {
[18:42:01.823]                         if (!is.null(pattern)) {
[18:42:01.823]                           computeRestarts <- base::computeRestarts
[18:42:01.823]                           grepl <- base::grepl
[18:42:01.823]                           restarts <- computeRestarts(cond)
[18:42:01.823]                           for (restart in restarts) {
[18:42:01.823]                             name <- restart$name
[18:42:01.823]                             if (is.null(name)) 
[18:42:01.823]                               next
[18:42:01.823]                             if (!grepl(pattern, name)) 
[18:42:01.823]                               next
[18:42:01.823]                             invokeRestart(restart)
[18:42:01.823]                             muffled <- TRUE
[18:42:01.823]                             break
[18:42:01.823]                           }
[18:42:01.823]                         }
[18:42:01.823]                       }
[18:42:01.823]                       invisible(muffled)
[18:42:01.823]                     }
[18:42:01.823]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.823]                   }
[18:42:01.823]                 }
[18:42:01.823]             }
[18:42:01.823]         }))
[18:42:01.823]     }, error = function(ex) {
[18:42:01.823]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.823]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.823]                 ...future.rng), started = ...future.startTime, 
[18:42:01.823]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.823]             version = "1.8"), class = "FutureResult")
[18:42:01.823]     }, finally = {
[18:42:01.823]         if (!identical(...future.workdir, getwd())) 
[18:42:01.823]             setwd(...future.workdir)
[18:42:01.823]         {
[18:42:01.823]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.823]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.823]             }
[18:42:01.823]             base::options(...future.oldOptions)
[18:42:01.823]             if (.Platform$OS.type == "windows") {
[18:42:01.823]                 old_names <- names(...future.oldEnvVars)
[18:42:01.823]                 envs <- base::Sys.getenv()
[18:42:01.823]                 names <- names(envs)
[18:42:01.823]                 common <- intersect(names, old_names)
[18:42:01.823]                 added <- setdiff(names, old_names)
[18:42:01.823]                 removed <- setdiff(old_names, names)
[18:42:01.823]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.823]                   envs[common]]
[18:42:01.823]                 NAMES <- toupper(changed)
[18:42:01.823]                 args <- list()
[18:42:01.823]                 for (kk in seq_along(NAMES)) {
[18:42:01.823]                   name <- changed[[kk]]
[18:42:01.823]                   NAME <- NAMES[[kk]]
[18:42:01.823]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.823]                     next
[18:42:01.823]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.823]                 }
[18:42:01.823]                 NAMES <- toupper(added)
[18:42:01.823]                 for (kk in seq_along(NAMES)) {
[18:42:01.823]                   name <- added[[kk]]
[18:42:01.823]                   NAME <- NAMES[[kk]]
[18:42:01.823]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.823]                     next
[18:42:01.823]                   args[[name]] <- ""
[18:42:01.823]                 }
[18:42:01.823]                 NAMES <- toupper(removed)
[18:42:01.823]                 for (kk in seq_along(NAMES)) {
[18:42:01.823]                   name <- removed[[kk]]
[18:42:01.823]                   NAME <- NAMES[[kk]]
[18:42:01.823]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.823]                     next
[18:42:01.823]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.823]                 }
[18:42:01.823]                 if (length(args) > 0) 
[18:42:01.823]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.823]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.823]             }
[18:42:01.823]             else {
[18:42:01.823]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.823]             }
[18:42:01.823]             {
[18:42:01.823]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.823]                   0L) {
[18:42:01.823]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.823]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.823]                   base::options(opts)
[18:42:01.823]                 }
[18:42:01.823]                 {
[18:42:01.823]                   {
[18:42:01.823]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.823]                     NULL
[18:42:01.823]                   }
[18:42:01.823]                   options(future.plan = NULL)
[18:42:01.823]                   if (is.na(NA_character_)) 
[18:42:01.823]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.823]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.823]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.823]                     .init = FALSE)
[18:42:01.823]                 }
[18:42:01.823]             }
[18:42:01.823]         }
[18:42:01.823]     })
[18:42:01.823]     if (TRUE) {
[18:42:01.823]         base::sink(type = "output", split = FALSE)
[18:42:01.823]         if (TRUE) {
[18:42:01.823]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.823]         }
[18:42:01.823]         else {
[18:42:01.823]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.823]         }
[18:42:01.823]         base::close(...future.stdout)
[18:42:01.823]         ...future.stdout <- NULL
[18:42:01.823]     }
[18:42:01.823]     ...future.result$conditions <- ...future.conditions
[18:42:01.823]     ...future.result$finished <- base::Sys.time()
[18:42:01.823]     ...future.result
[18:42:01.823] }
[18:42:01.831] Exporting 11 global objects (13.20 KiB) to cluster node #1 ...
[18:42:01.832] Exporting '...future.FUN' (4.49 KiB) to cluster node #1 ...
[18:42:01.833] Exporting '...future.FUN' (4.49 KiB) to cluster node #1 ... DONE
[18:42:01.833] Exporting 'x_FUN' (296 bytes) to cluster node #1 ...
[18:42:01.833] Exporting 'x_FUN' (296 bytes) to cluster node #1 ... DONE
[18:42:01.834] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:01.834] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:01.835] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:01.835] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:01.836] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:01.836] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:01.837] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:01.837] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:01.837] Exporting 'valid_types' (61 bytes) to cluster node #1 ...
[18:42:01.838] Exporting 'valid_types' (61 bytes) to cluster node #1 ... DONE
[18:42:01.838] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:01.839] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:01.839] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:01.840] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:01.840] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:01.840] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:01.841] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:01.841] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:01.842] Exporting 11 global objects (13.20 KiB) to cluster node #1 ... DONE
[18:42:01.842] MultisessionFuture started
[18:42:01.843] - Launch lazy future ... done
[18:42:01.843] run() for 'MultisessionFuture' ... done
[18:42:01.843] Created future:
[18:42:01.867] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.867] - Validating connection of MultisessionFuture
[18:42:01.868] - received message: FutureResult
[18:42:01.868] - Received FutureResult
[18:42:01.868] - Erased future from FutureRegistry
[18:42:01.869] result() for ClusterFuture ...
[18:42:01.869] - result already collected: FutureResult
[18:42:01.869] result() for ClusterFuture ... done
[18:42:01.870] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.844] MultisessionFuture:
[18:42:01.844] Label: 'future_vapply-1'
[18:42:01.844] Expression:
[18:42:01.844] {
[18:42:01.844]     do.call(function(...) {
[18:42:01.844]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.844]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.844]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.844]             on.exit(options(oopts), add = TRUE)
[18:42:01.844]         }
[18:42:01.844]         {
[18:42:01.844]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.844]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.844]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.844]             })
[18:42:01.844]         }
[18:42:01.844]     }, args = future.call.arguments)
[18:42:01.844] }
[18:42:01.844] Lazy evaluation: FALSE
[18:42:01.844] Asynchronous evaluation: TRUE
[18:42:01.844] Local evaluation: TRUE
[18:42:01.844] Environment: R_GlobalEnv
[18:42:01.844] Capture standard output: TRUE
[18:42:01.844] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:01.844] Globals: 11 objects totaling 12.98 KiB (function '...future.FUN' of 4.49 KiB, function 'x_FUN' of 296 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:01.844] Packages: 1 packages ('future.apply')
[18:42:01.844] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:01.844] Resolved: TRUE
[18:42:01.844] Value: <not collected>
[18:42:01.844] Conditions captured: <none>
[18:42:01.844] Early signaling: FALSE
[18:42:01.844] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:01.844] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.870] Chunk #1 of 2 ... DONE
[18:42:01.871] Chunk #2 of 2 ...
[18:42:01.871]  - Finding globals in 'X' for chunk #2 ...
[18:42:01.871] getGlobalsAndPackages() ...
[18:42:01.871] Searching for globals...
[18:42:01.872] 
[18:42:01.872] Searching for globals ... DONE
[18:42:01.873] - globals: [0] <none>
[18:42:01.873] getGlobalsAndPackages() ... DONE
[18:42:01.873]    + additional globals found: [n=0] 
[18:42:01.873]    + additional namespaces needed: [n=0] 
[18:42:01.874]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:01.874]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:01.874]  - seeds: <none>
[18:42:01.874]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.875] getGlobalsAndPackages() ...
[18:42:01.875] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.875] Resolving globals: FALSE
[18:42:01.875] Tweak future expression to call with '...' arguments ...
[18:42:01.876] {
[18:42:01.876]     do.call(function(...) {
[18:42:01.876]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.876]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.876]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.876]             on.exit(options(oopts), add = TRUE)
[18:42:01.876]         }
[18:42:01.876]         {
[18:42:01.876]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.876]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.876]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.876]             })
[18:42:01.876]         }
[18:42:01.876]     }, args = future.call.arguments)
[18:42:01.876] }
[18:42:01.876] Tweak future expression to call with '...' arguments ... DONE
[18:42:01.878] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:01.878] - packages: [1] 'future.apply'
[18:42:01.878] getGlobalsAndPackages() ... DONE
[18:42:01.879] run() for 'Future' ...
[18:42:01.879] - state: 'created'
[18:42:01.879] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:01.900] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.900] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:01.900]   - Field: 'node'
[18:42:01.901]   - Field: 'label'
[18:42:01.901]   - Field: 'local'
[18:42:01.901]   - Field: 'owner'
[18:42:01.901]   - Field: 'envir'
[18:42:01.902]   - Field: 'workers'
[18:42:01.902]   - Field: 'packages'
[18:42:01.902]   - Field: 'gc'
[18:42:01.903]   - Field: 'conditions'
[18:42:01.903]   - Field: 'persistent'
[18:42:01.903]   - Field: 'expr'
[18:42:01.903]   - Field: 'uuid'
[18:42:01.904]   - Field: 'seed'
[18:42:01.904]   - Field: 'version'
[18:42:01.904]   - Field: 'result'
[18:42:01.905]   - Field: 'asynchronous'
[18:42:01.905]   - Field: 'calls'
[18:42:01.905]   - Field: 'globals'
[18:42:01.905]   - Field: 'stdout'
[18:42:01.906]   - Field: 'earlySignal'
[18:42:01.906]   - Field: 'lazy'
[18:42:01.906]   - Field: 'state'
[18:42:01.906] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:01.907] - Launch lazy future ...
[18:42:01.907] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:01.908] Packages needed by future strategies (n = 0): <none>
[18:42:01.909] {
[18:42:01.909]     {
[18:42:01.909]         {
[18:42:01.909]             ...future.startTime <- base::Sys.time()
[18:42:01.909]             {
[18:42:01.909]                 {
[18:42:01.909]                   {
[18:42:01.909]                     {
[18:42:01.909]                       {
[18:42:01.909]                         base::local({
[18:42:01.909]                           has_future <- base::requireNamespace("future", 
[18:42:01.909]                             quietly = TRUE)
[18:42:01.909]                           if (has_future) {
[18:42:01.909]                             ns <- base::getNamespace("future")
[18:42:01.909]                             version <- ns[[".package"]][["version"]]
[18:42:01.909]                             if (is.null(version)) 
[18:42:01.909]                               version <- utils::packageVersion("future")
[18:42:01.909]                           }
[18:42:01.909]                           else {
[18:42:01.909]                             version <- NULL
[18:42:01.909]                           }
[18:42:01.909]                           if (!has_future || version < "1.8.0") {
[18:42:01.909]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:01.909]                               "", base::R.version$version.string), 
[18:42:01.909]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:01.909]                                 base::R.version$platform, 8 * 
[18:42:01.909]                                   base::.Machine$sizeof.pointer), 
[18:42:01.909]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:01.909]                                 "release", "version")], collapse = " "), 
[18:42:01.909]                               hostname = base::Sys.info()[["nodename"]])
[18:42:01.909]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:01.909]                               info)
[18:42:01.909]                             info <- base::paste(info, collapse = "; ")
[18:42:01.909]                             if (!has_future) {
[18:42:01.909]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:01.909]                                 info)
[18:42:01.909]                             }
[18:42:01.909]                             else {
[18:42:01.909]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:01.909]                                 info, version)
[18:42:01.909]                             }
[18:42:01.909]                             base::stop(msg)
[18:42:01.909]                           }
[18:42:01.909]                         })
[18:42:01.909]                       }
[18:42:01.909]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:01.909]                       base::options(mc.cores = 1L)
[18:42:01.909]                     }
[18:42:01.909]                     base::local({
[18:42:01.909]                       for (pkg in "future.apply") {
[18:42:01.909]                         base::loadNamespace(pkg)
[18:42:01.909]                         base::library(pkg, character.only = TRUE)
[18:42:01.909]                       }
[18:42:01.909]                     })
[18:42:01.909]                   }
[18:42:01.909]                   ...future.strategy.old <- future::plan("list")
[18:42:01.909]                   options(future.plan = NULL)
[18:42:01.909]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.909]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:01.909]                 }
[18:42:01.909]                 ...future.workdir <- getwd()
[18:42:01.909]             }
[18:42:01.909]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:01.909]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:01.909]         }
[18:42:01.909]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:01.909]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:01.909]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:01.909]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:01.909]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:01.909]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:01.909]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:01.909]             base::names(...future.oldOptions))
[18:42:01.909]     }
[18:42:01.909]     if (FALSE) {
[18:42:01.909]     }
[18:42:01.909]     else {
[18:42:01.909]         if (TRUE) {
[18:42:01.909]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:01.909]                 open = "w")
[18:42:01.909]         }
[18:42:01.909]         else {
[18:42:01.909]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:01.909]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:01.909]         }
[18:42:01.909]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:01.909]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:01.909]             base::sink(type = "output", split = FALSE)
[18:42:01.909]             base::close(...future.stdout)
[18:42:01.909]         }, add = TRUE)
[18:42:01.909]     }
[18:42:01.909]     ...future.frame <- base::sys.nframe()
[18:42:01.909]     ...future.conditions <- base::list()
[18:42:01.909]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:01.909]     if (FALSE) {
[18:42:01.909]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:01.909]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:01.909]     }
[18:42:01.909]     ...future.result <- base::tryCatch({
[18:42:01.909]         base::withCallingHandlers({
[18:42:01.909]             ...future.value <- base::withVisible(base::local({
[18:42:01.909]                 ...future.makeSendCondition <- base::local({
[18:42:01.909]                   sendCondition <- NULL
[18:42:01.909]                   function(frame = 1L) {
[18:42:01.909]                     if (is.function(sendCondition)) 
[18:42:01.909]                       return(sendCondition)
[18:42:01.909]                     ns <- getNamespace("parallel")
[18:42:01.909]                     if (exists("sendData", mode = "function", 
[18:42:01.909]                       envir = ns)) {
[18:42:01.909]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:01.909]                         envir = ns)
[18:42:01.909]                       envir <- sys.frame(frame)
[18:42:01.909]                       master <- NULL
[18:42:01.909]                       while (!identical(envir, .GlobalEnv) && 
[18:42:01.909]                         !identical(envir, emptyenv())) {
[18:42:01.909]                         if (exists("master", mode = "list", envir = envir, 
[18:42:01.909]                           inherits = FALSE)) {
[18:42:01.909]                           master <- get("master", mode = "list", 
[18:42:01.909]                             envir = envir, inherits = FALSE)
[18:42:01.909]                           if (inherits(master, c("SOCKnode", 
[18:42:01.909]                             "SOCK0node"))) {
[18:42:01.909]                             sendCondition <<- function(cond) {
[18:42:01.909]                               data <- list(type = "VALUE", value = cond, 
[18:42:01.909]                                 success = TRUE)
[18:42:01.909]                               parallel_sendData(master, data)
[18:42:01.909]                             }
[18:42:01.909]                             return(sendCondition)
[18:42:01.909]                           }
[18:42:01.909]                         }
[18:42:01.909]                         frame <- frame + 1L
[18:42:01.909]                         envir <- sys.frame(frame)
[18:42:01.909]                       }
[18:42:01.909]                     }
[18:42:01.909]                     sendCondition <<- function(cond) NULL
[18:42:01.909]                   }
[18:42:01.909]                 })
[18:42:01.909]                 withCallingHandlers({
[18:42:01.909]                   {
[18:42:01.909]                     do.call(function(...) {
[18:42:01.909]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.909]                       if (!identical(...future.globals.maxSize.org, 
[18:42:01.909]                         ...future.globals.maxSize)) {
[18:42:01.909]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.909]                         on.exit(options(oopts), add = TRUE)
[18:42:01.909]                       }
[18:42:01.909]                       {
[18:42:01.909]                         lapply(seq_along(...future.elements_ii), 
[18:42:01.909]                           FUN = function(jj) {
[18:42:01.909]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.909]                             ...future.FUN(...future.X_jj, ...)
[18:42:01.909]                           })
[18:42:01.909]                       }
[18:42:01.909]                     }, args = future.call.arguments)
[18:42:01.909]                   }
[18:42:01.909]                 }, immediateCondition = function(cond) {
[18:42:01.909]                   sendCondition <- ...future.makeSendCondition()
[18:42:01.909]                   sendCondition(cond)
[18:42:01.909]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.909]                   {
[18:42:01.909]                     inherits <- base::inherits
[18:42:01.909]                     invokeRestart <- base::invokeRestart
[18:42:01.909]                     is.null <- base::is.null
[18:42:01.909]                     muffled <- FALSE
[18:42:01.909]                     if (inherits(cond, "message")) {
[18:42:01.909]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:01.909]                       if (muffled) 
[18:42:01.909]                         invokeRestart("muffleMessage")
[18:42:01.909]                     }
[18:42:01.909]                     else if (inherits(cond, "warning")) {
[18:42:01.909]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:01.909]                       if (muffled) 
[18:42:01.909]                         invokeRestart("muffleWarning")
[18:42:01.909]                     }
[18:42:01.909]                     else if (inherits(cond, "condition")) {
[18:42:01.909]                       if (!is.null(pattern)) {
[18:42:01.909]                         computeRestarts <- base::computeRestarts
[18:42:01.909]                         grepl <- base::grepl
[18:42:01.909]                         restarts <- computeRestarts(cond)
[18:42:01.909]                         for (restart in restarts) {
[18:42:01.909]                           name <- restart$name
[18:42:01.909]                           if (is.null(name)) 
[18:42:01.909]                             next
[18:42:01.909]                           if (!grepl(pattern, name)) 
[18:42:01.909]                             next
[18:42:01.909]                           invokeRestart(restart)
[18:42:01.909]                           muffled <- TRUE
[18:42:01.909]                           break
[18:42:01.909]                         }
[18:42:01.909]                       }
[18:42:01.909]                     }
[18:42:01.909]                     invisible(muffled)
[18:42:01.909]                   }
[18:42:01.909]                   muffleCondition(cond)
[18:42:01.909]                 })
[18:42:01.909]             }))
[18:42:01.909]             future::FutureResult(value = ...future.value$value, 
[18:42:01.909]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.909]                   ...future.rng), globalenv = if (FALSE) 
[18:42:01.909]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:01.909]                     ...future.globalenv.names))
[18:42:01.909]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:01.909]         }, condition = base::local({
[18:42:01.909]             c <- base::c
[18:42:01.909]             inherits <- base::inherits
[18:42:01.909]             invokeRestart <- base::invokeRestart
[18:42:01.909]             length <- base::length
[18:42:01.909]             list <- base::list
[18:42:01.909]             seq.int <- base::seq.int
[18:42:01.909]             signalCondition <- base::signalCondition
[18:42:01.909]             sys.calls <- base::sys.calls
[18:42:01.909]             `[[` <- base::`[[`
[18:42:01.909]             `+` <- base::`+`
[18:42:01.909]             `<<-` <- base::`<<-`
[18:42:01.909]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:01.909]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:01.909]                   3L)]
[18:42:01.909]             }
[18:42:01.909]             function(cond) {
[18:42:01.909]                 is_error <- inherits(cond, "error")
[18:42:01.909]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:01.909]                   NULL)
[18:42:01.909]                 if (is_error) {
[18:42:01.909]                   sessionInformation <- function() {
[18:42:01.909]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:01.909]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:01.909]                       search = base::search(), system = base::Sys.info())
[18:42:01.909]                   }
[18:42:01.909]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.909]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:01.909]                     cond$call), session = sessionInformation(), 
[18:42:01.909]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:01.909]                   signalCondition(cond)
[18:42:01.909]                 }
[18:42:01.909]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:01.909]                 "immediateCondition"))) {
[18:42:01.909]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:01.909]                   ...future.conditions[[length(...future.conditions) + 
[18:42:01.909]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:01.909]                   if (TRUE && !signal) {
[18:42:01.909]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.909]                     {
[18:42:01.909]                       inherits <- base::inherits
[18:42:01.909]                       invokeRestart <- base::invokeRestart
[18:42:01.909]                       is.null <- base::is.null
[18:42:01.909]                       muffled <- FALSE
[18:42:01.909]                       if (inherits(cond, "message")) {
[18:42:01.909]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.909]                         if (muffled) 
[18:42:01.909]                           invokeRestart("muffleMessage")
[18:42:01.909]                       }
[18:42:01.909]                       else if (inherits(cond, "warning")) {
[18:42:01.909]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.909]                         if (muffled) 
[18:42:01.909]                           invokeRestart("muffleWarning")
[18:42:01.909]                       }
[18:42:01.909]                       else if (inherits(cond, "condition")) {
[18:42:01.909]                         if (!is.null(pattern)) {
[18:42:01.909]                           computeRestarts <- base::computeRestarts
[18:42:01.909]                           grepl <- base::grepl
[18:42:01.909]                           restarts <- computeRestarts(cond)
[18:42:01.909]                           for (restart in restarts) {
[18:42:01.909]                             name <- restart$name
[18:42:01.909]                             if (is.null(name)) 
[18:42:01.909]                               next
[18:42:01.909]                             if (!grepl(pattern, name)) 
[18:42:01.909]                               next
[18:42:01.909]                             invokeRestart(restart)
[18:42:01.909]                             muffled <- TRUE
[18:42:01.909]                             break
[18:42:01.909]                           }
[18:42:01.909]                         }
[18:42:01.909]                       }
[18:42:01.909]                       invisible(muffled)
[18:42:01.909]                     }
[18:42:01.909]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.909]                   }
[18:42:01.909]                 }
[18:42:01.909]                 else {
[18:42:01.909]                   if (TRUE) {
[18:42:01.909]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:01.909]                     {
[18:42:01.909]                       inherits <- base::inherits
[18:42:01.909]                       invokeRestart <- base::invokeRestart
[18:42:01.909]                       is.null <- base::is.null
[18:42:01.909]                       muffled <- FALSE
[18:42:01.909]                       if (inherits(cond, "message")) {
[18:42:01.909]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:01.909]                         if (muffled) 
[18:42:01.909]                           invokeRestart("muffleMessage")
[18:42:01.909]                       }
[18:42:01.909]                       else if (inherits(cond, "warning")) {
[18:42:01.909]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:01.909]                         if (muffled) 
[18:42:01.909]                           invokeRestart("muffleWarning")
[18:42:01.909]                       }
[18:42:01.909]                       else if (inherits(cond, "condition")) {
[18:42:01.909]                         if (!is.null(pattern)) {
[18:42:01.909]                           computeRestarts <- base::computeRestarts
[18:42:01.909]                           grepl <- base::grepl
[18:42:01.909]                           restarts <- computeRestarts(cond)
[18:42:01.909]                           for (restart in restarts) {
[18:42:01.909]                             name <- restart$name
[18:42:01.909]                             if (is.null(name)) 
[18:42:01.909]                               next
[18:42:01.909]                             if (!grepl(pattern, name)) 
[18:42:01.909]                               next
[18:42:01.909]                             invokeRestart(restart)
[18:42:01.909]                             muffled <- TRUE
[18:42:01.909]                             break
[18:42:01.909]                           }
[18:42:01.909]                         }
[18:42:01.909]                       }
[18:42:01.909]                       invisible(muffled)
[18:42:01.909]                     }
[18:42:01.909]                     muffleCondition(cond, pattern = "^muffle")
[18:42:01.909]                   }
[18:42:01.909]                 }
[18:42:01.909]             }
[18:42:01.909]         }))
[18:42:01.909]     }, error = function(ex) {
[18:42:01.909]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:01.909]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:01.909]                 ...future.rng), started = ...future.startTime, 
[18:42:01.909]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:01.909]             version = "1.8"), class = "FutureResult")
[18:42:01.909]     }, finally = {
[18:42:01.909]         if (!identical(...future.workdir, getwd())) 
[18:42:01.909]             setwd(...future.workdir)
[18:42:01.909]         {
[18:42:01.909]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:01.909]                 ...future.oldOptions$nwarnings <- NULL
[18:42:01.909]             }
[18:42:01.909]             base::options(...future.oldOptions)
[18:42:01.909]             if (.Platform$OS.type == "windows") {
[18:42:01.909]                 old_names <- names(...future.oldEnvVars)
[18:42:01.909]                 envs <- base::Sys.getenv()
[18:42:01.909]                 names <- names(envs)
[18:42:01.909]                 common <- intersect(names, old_names)
[18:42:01.909]                 added <- setdiff(names, old_names)
[18:42:01.909]                 removed <- setdiff(old_names, names)
[18:42:01.909]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:01.909]                   envs[common]]
[18:42:01.909]                 NAMES <- toupper(changed)
[18:42:01.909]                 args <- list()
[18:42:01.909]                 for (kk in seq_along(NAMES)) {
[18:42:01.909]                   name <- changed[[kk]]
[18:42:01.909]                   NAME <- NAMES[[kk]]
[18:42:01.909]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.909]                     next
[18:42:01.909]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.909]                 }
[18:42:01.909]                 NAMES <- toupper(added)
[18:42:01.909]                 for (kk in seq_along(NAMES)) {
[18:42:01.909]                   name <- added[[kk]]
[18:42:01.909]                   NAME <- NAMES[[kk]]
[18:42:01.909]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.909]                     next
[18:42:01.909]                   args[[name]] <- ""
[18:42:01.909]                 }
[18:42:01.909]                 NAMES <- toupper(removed)
[18:42:01.909]                 for (kk in seq_along(NAMES)) {
[18:42:01.909]                   name <- removed[[kk]]
[18:42:01.909]                   NAME <- NAMES[[kk]]
[18:42:01.909]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:01.909]                     next
[18:42:01.909]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:01.909]                 }
[18:42:01.909]                 if (length(args) > 0) 
[18:42:01.909]                   base::do.call(base::Sys.setenv, args = args)
[18:42:01.909]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:01.909]             }
[18:42:01.909]             else {
[18:42:01.909]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:01.909]             }
[18:42:01.909]             {
[18:42:01.909]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:01.909]                   0L) {
[18:42:01.909]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:01.909]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:01.909]                   base::options(opts)
[18:42:01.909]                 }
[18:42:01.909]                 {
[18:42:01.909]                   {
[18:42:01.909]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:01.909]                     NULL
[18:42:01.909]                   }
[18:42:01.909]                   options(future.plan = NULL)
[18:42:01.909]                   if (is.na(NA_character_)) 
[18:42:01.909]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:01.909]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:01.909]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:01.909]                     .init = FALSE)
[18:42:01.909]                 }
[18:42:01.909]             }
[18:42:01.909]         }
[18:42:01.909]     })
[18:42:01.909]     if (TRUE) {
[18:42:01.909]         base::sink(type = "output", split = FALSE)
[18:42:01.909]         if (TRUE) {
[18:42:01.909]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:01.909]         }
[18:42:01.909]         else {
[18:42:01.909]             ...future.result["stdout"] <- base::list(NULL)
[18:42:01.909]         }
[18:42:01.909]         base::close(...future.stdout)
[18:42:01.909]         ...future.stdout <- NULL
[18:42:01.909]     }
[18:42:01.909]     ...future.result$conditions <- ...future.conditions
[18:42:01.909]     ...future.result$finished <- base::Sys.time()
[18:42:01.909]     ...future.result
[18:42:01.909] }
[18:42:01.918] Exporting 11 global objects (13.20 KiB) to cluster node #1 ...
[18:42:01.918] Exporting '...future.FUN' (4.49 KiB) to cluster node #1 ...
[18:42:01.919] Exporting '...future.FUN' (4.49 KiB) to cluster node #1 ... DONE
[18:42:01.919] Exporting 'x_FUN' (296 bytes) to cluster node #1 ...
[18:42:01.920] Exporting 'x_FUN' (296 bytes) to cluster node #1 ... DONE
[18:42:01.920] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:01.920] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:01.921] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:01.921] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:01.922] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:01.922] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:01.923] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:01.923] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:01.924] Exporting 'valid_types' (61 bytes) to cluster node #1 ...
[18:42:01.924] Exporting 'valid_types' (61 bytes) to cluster node #1 ... DONE
[18:42:01.928] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:01.928] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:01.929] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:01.929] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:01.929] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:01.930] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:01.930] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:01.931] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:01.931] Exporting 11 global objects (13.20 KiB) to cluster node #1 ... DONE
[18:42:01.932] MultisessionFuture started
[18:42:01.932] - Launch lazy future ... done
[18:42:01.933] run() for 'MultisessionFuture' ... done
[18:42:01.933] Created future:
[18:42:01.959] receiveMessageFromWorker() for ClusterFuture ...
[18:42:01.959] - Validating connection of MultisessionFuture
[18:42:01.960] - received message: FutureResult
[18:42:01.960] - Received FutureResult
[18:42:01.960] - Erased future from FutureRegistry
[18:42:01.960] result() for ClusterFuture ...
[18:42:01.961] - result already collected: FutureResult
[18:42:01.961] result() for ClusterFuture ... done
[18:42:01.961] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:01.933] MultisessionFuture:
[18:42:01.933] Label: 'future_vapply-2'
[18:42:01.933] Expression:
[18:42:01.933] {
[18:42:01.933]     do.call(function(...) {
[18:42:01.933]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:01.933]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:01.933]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:01.933]             on.exit(options(oopts), add = TRUE)
[18:42:01.933]         }
[18:42:01.933]         {
[18:42:01.933]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:01.933]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:01.933]                 ...future.FUN(...future.X_jj, ...)
[18:42:01.933]             })
[18:42:01.933]         }
[18:42:01.933]     }, args = future.call.arguments)
[18:42:01.933] }
[18:42:01.933] Lazy evaluation: FALSE
[18:42:01.933] Asynchronous evaluation: TRUE
[18:42:01.933] Local evaluation: TRUE
[18:42:01.933] Environment: R_GlobalEnv
[18:42:01.933] Capture standard output: TRUE
[18:42:01.933] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:01.933] Globals: 11 objects totaling 12.98 KiB (function '...future.FUN' of 4.49 KiB, function 'x_FUN' of 296 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:01.933] Packages: 1 packages ('future.apply')
[18:42:01.933] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:01.933] Resolved: TRUE
[18:42:01.933] Value: <not collected>
[18:42:01.933] Conditions captured: <none>
[18:42:01.933] Early signaling: FALSE
[18:42:01.933] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:01.933] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:01.962] Chunk #2 of 2 ... DONE
[18:42:01.962] Launching 2 futures (chunks) ... DONE
[18:42:01.962] Resolving 2 futures (chunks) ...
[18:42:01.963] resolve() on list ...
[18:42:01.963]  recursive: 0
[18:42:01.963]  length: 2
[18:42:01.963] 
[18:42:01.964] Future #1
[18:42:01.964] result() for ClusterFuture ...
[18:42:01.964] - result already collected: FutureResult
[18:42:01.964] result() for ClusterFuture ... done
[18:42:01.965] result() for ClusterFuture ...
[18:42:01.965] - result already collected: FutureResult
[18:42:01.965] result() for ClusterFuture ... done
[18:42:01.965] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:01.966] - nx: 2
[18:42:01.966] - relay: TRUE
[18:42:01.966] - stdout: TRUE
[18:42:01.966] - signal: TRUE
[18:42:01.967] - resignal: FALSE
[18:42:01.967] - force: TRUE
[18:42:01.967] - relayed: [n=2] FALSE, FALSE
[18:42:01.967] - queued futures: [n=2] FALSE, FALSE
[18:42:01.968]  - until=1
[18:42:01.968]  - relaying element #1
[18:42:01.968] result() for ClusterFuture ...
[18:42:01.968] - result already collected: FutureResult
[18:42:01.969] result() for ClusterFuture ... done
[18:42:01.969] result() for ClusterFuture ...
[18:42:01.969] - result already collected: FutureResult
[18:42:01.969] result() for ClusterFuture ... done
[18:42:01.970] result() for ClusterFuture ...
[18:42:01.970] - result already collected: FutureResult
[18:42:01.970] result() for ClusterFuture ... done
[18:42:01.970] result() for ClusterFuture ...
[18:42:01.971] - result already collected: FutureResult
[18:42:01.971] result() for ClusterFuture ... done
[18:42:01.971] - relayed: [n=2] TRUE, FALSE
[18:42:01.971] - queued futures: [n=2] TRUE, FALSE
[18:42:01.972] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:01.972]  length: 1 (resolved future 1)
[18:42:01.972] Future #2
[18:42:01.972] result() for ClusterFuture ...
[18:42:01.973] - result already collected: FutureResult
[18:42:01.973] result() for ClusterFuture ... done
[18:42:01.973] result() for ClusterFuture ...
[18:42:01.973] - result already collected: FutureResult
[18:42:01.974] result() for ClusterFuture ... done
[18:42:01.974] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:01.974] - nx: 2
[18:42:01.974] - relay: TRUE
[18:42:01.975] - stdout: TRUE
[18:42:01.975] - signal: TRUE
[18:42:01.975] - resignal: FALSE
[18:42:01.975] - force: TRUE
[18:42:01.976] - relayed: [n=2] TRUE, FALSE
[18:42:01.976] - queued futures: [n=2] TRUE, FALSE
[18:42:01.976]  - until=2
[18:42:01.976]  - relaying element #2
[18:42:01.977] result() for ClusterFuture ...
[18:42:01.977] - result already collected: FutureResult
[18:42:01.977] result() for ClusterFuture ... done
[18:42:01.977] result() for ClusterFuture ...
[18:42:01.978] - result already collected: FutureResult
[18:42:01.978] result() for ClusterFuture ... done
[18:42:01.978] result() for ClusterFuture ...
[18:42:01.978] - result already collected: FutureResult
[18:42:01.979] result() for ClusterFuture ... done
[18:42:01.979] result() for ClusterFuture ...
[18:42:01.979] - result already collected: FutureResult
[18:42:01.979] result() for ClusterFuture ... done
[18:42:01.980] - relayed: [n=2] TRUE, TRUE
[18:42:01.980] - queued futures: [n=2] TRUE, TRUE
[18:42:01.980] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:01.980]  length: 0 (resolved future 2)
[18:42:01.981] Relaying remaining futures
[18:42:01.981] signalConditionsASAP(NULL, pos=0) ...
[18:42:01.981] - nx: 2
[18:42:01.981] - relay: TRUE
[18:42:01.982] - stdout: TRUE
[18:42:01.982] - signal: TRUE
[18:42:01.982] - resignal: FALSE
[18:42:01.982] - force: TRUE
[18:42:01.982] - relayed: [n=2] TRUE, TRUE
[18:42:01.983] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:01.983] - relayed: [n=2] TRUE, TRUE
[18:42:01.983] - queued futures: [n=2] TRUE, TRUE
[18:42:01.984] signalConditionsASAP(NULL, pos=0) ... done
[18:42:01.984] resolve() on list ... DONE
[18:42:01.984] result() for ClusterFuture ...
[18:42:01.984] - result already collected: FutureResult
[18:42:01.985] result() for ClusterFuture ... done
[18:42:01.985] result() for ClusterFuture ...
[18:42:01.985] - result already collected: FutureResult
[18:42:01.985] result() for ClusterFuture ... done
[18:42:01.986] result() for ClusterFuture ...
[18:42:01.986] - result already collected: FutureResult
[18:42:01.986] result() for ClusterFuture ... done
[18:42:01.986] result() for ClusterFuture ...
[18:42:01.987] - result already collected: FutureResult
[18:42:01.987] result() for ClusterFuture ... done
[18:42:01.987]  - Number of value chunks collected: 2
[18:42:01.987] Resolving 2 futures (chunks) ... DONE
[18:42:01.988] Reducing values from 2 chunks ...
[18:42:01.988]  - Number of values collected after concatenation: 10
[18:42:01.988]  - Number of values expected: 10
[18:42:01.988] Reducing values from 2 chunks ... DONE
[18:42:01.989] future_lapply() ... DONE
 int[0 , 1:10] 
 num [1:10] 1 1.41 1.73 2 2.24 ...
[18:42:01.990] future_lapply() ...
[18:42:01.998] Number of chunks: 2
[18:42:01.998] getGlobalsAndPackagesXApply() ...
[18:42:01.998]  - future.globals: TRUE
[18:42:01.999] getGlobalsAndPackages() ...
[18:42:01.999] Searching for globals...
[18:42:02.005] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:02.005] Searching for globals ... DONE
[18:42:02.005] Resolving globals: FALSE
[18:42:02.007] The total size of the 7 globals is 12.08 KiB (12367 bytes)
[18:42:02.008] The total size of the 7 globals exported for future expression ('FUN()') is 12.08 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (4.07 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:02.008] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.008] - packages: [1] 'future.apply'
[18:42:02.009] getGlobalsAndPackages() ... DONE
[18:42:02.009]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.009]  - needed namespaces: [n=1] 'future.apply'
[18:42:02.010] Finding globals ... DONE
[18:42:02.010]  - use_args: TRUE
[18:42:02.010]  - Getting '...' globals ...
[18:42:02.011] resolve() on list ...
[18:42:02.011]  recursive: 0
[18:42:02.011]  length: 1
[18:42:02.012]  elements: '...'
[18:42:02.012]  length: 0 (resolved future 1)
[18:42:02.012] resolve() on list ... DONE
[18:42:02.012]    - '...' content: [n=0] 
[18:42:02.013] List of 1
[18:42:02.013]  $ ...: list()
[18:42:02.013]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.013]  - attr(*, "where")=List of 1
[18:42:02.013]   ..$ ...:<environment: 0x000002ea05cb52a8> 
[18:42:02.013]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.013]  - attr(*, "resolved")= logi TRUE
[18:42:02.013]  - attr(*, "total_size")= num NA
[18:42:02.017]  - Getting '...' globals ... DONE
[18:42:02.018] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:02.018] List of 8
[18:42:02.018]  $ ...future.FUN:function (x, ...)  
[18:42:02.018]  $ x_FUN        :function (x)  
[18:42:02.018]  $ times        : int 1
[18:42:02.018]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:02.018]  $ stop_if_not  :function (...)  
[18:42:02.018]  $ dim          : NULL
[18:42:02.018]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:02.018]  $ ...          : list()
[18:42:02.018]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.018]  - attr(*, "where")=List of 8
[18:42:02.018]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:02.018]   ..$ ...          :<environment: 0x000002ea05cb52a8> 
[18:42:02.018]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.018]  - attr(*, "resolved")= logi FALSE
[18:42:02.018]  - attr(*, "total_size")= int 22322
[18:42:02.028] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:02.029] getGlobalsAndPackagesXApply() ... DONE
[18:42:02.029] Number of futures (= number of chunks): 2
[18:42:02.029] Launching 2 futures (chunks) ...
[18:42:02.030] Chunk #1 of 2 ...
[18:42:02.030]  - Finding globals in 'X' for chunk #1 ...
[18:42:02.030] getGlobalsAndPackages() ...
[18:42:02.031] Searching for globals...
[18:42:02.031] 
[18:42:02.031] Searching for globals ... DONE
[18:42:02.032] - globals: [0] <none>
[18:42:02.032] getGlobalsAndPackages() ... DONE
[18:42:02.032]    + additional globals found: [n=0] 
[18:42:02.032]    + additional namespaces needed: [n=0] 
[18:42:02.033]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:02.033]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.033]  - seeds: <none>
[18:42:02.033]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.034] getGlobalsAndPackages() ...
[18:42:02.034] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.034] Resolving globals: FALSE
[18:42:02.034] Tweak future expression to call with '...' arguments ...
[18:42:02.035] {
[18:42:02.035]     do.call(function(...) {
[18:42:02.035]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.035]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.035]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.035]             on.exit(options(oopts), add = TRUE)
[18:42:02.035]         }
[18:42:02.035]         {
[18:42:02.035]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.035]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.035]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.035]             })
[18:42:02.035]         }
[18:42:02.035]     }, args = future.call.arguments)
[18:42:02.035] }
[18:42:02.035] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.037] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.037] - packages: [1] 'future.apply'
[18:42:02.037] getGlobalsAndPackages() ... DONE
[18:42:02.038] run() for 'Future' ...
[18:42:02.038] - state: 'created'
[18:42:02.039] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.059] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.059] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.059]   - Field: 'node'
[18:42:02.059]   - Field: 'label'
[18:42:02.060]   - Field: 'local'
[18:42:02.060]   - Field: 'owner'
[18:42:02.060]   - Field: 'envir'
[18:42:02.061]   - Field: 'workers'
[18:42:02.061]   - Field: 'packages'
[18:42:02.061]   - Field: 'gc'
[18:42:02.061]   - Field: 'conditions'
[18:42:02.062]   - Field: 'persistent'
[18:42:02.062]   - Field: 'expr'
[18:42:02.062]   - Field: 'uuid'
[18:42:02.063]   - Field: 'seed'
[18:42:02.063]   - Field: 'version'
[18:42:02.063]   - Field: 'result'
[18:42:02.063]   - Field: 'asynchronous'
[18:42:02.064]   - Field: 'calls'
[18:42:02.064]   - Field: 'globals'
[18:42:02.064]   - Field: 'stdout'
[18:42:02.064]   - Field: 'earlySignal'
[18:42:02.065]   - Field: 'lazy'
[18:42:02.065]   - Field: 'state'
[18:42:02.065] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.066] - Launch lazy future ...
[18:42:02.066] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.066] Packages needed by future strategies (n = 0): <none>
[18:42:02.067] {
[18:42:02.067]     {
[18:42:02.067]         {
[18:42:02.067]             ...future.startTime <- base::Sys.time()
[18:42:02.067]             {
[18:42:02.067]                 {
[18:42:02.067]                   {
[18:42:02.067]                     {
[18:42:02.067]                       {
[18:42:02.067]                         base::local({
[18:42:02.067]                           has_future <- base::requireNamespace("future", 
[18:42:02.067]                             quietly = TRUE)
[18:42:02.067]                           if (has_future) {
[18:42:02.067]                             ns <- base::getNamespace("future")
[18:42:02.067]                             version <- ns[[".package"]][["version"]]
[18:42:02.067]                             if (is.null(version)) 
[18:42:02.067]                               version <- utils::packageVersion("future")
[18:42:02.067]                           }
[18:42:02.067]                           else {
[18:42:02.067]                             version <- NULL
[18:42:02.067]                           }
[18:42:02.067]                           if (!has_future || version < "1.8.0") {
[18:42:02.067]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.067]                               "", base::R.version$version.string), 
[18:42:02.067]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.067]                                 base::R.version$platform, 8 * 
[18:42:02.067]                                   base::.Machine$sizeof.pointer), 
[18:42:02.067]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.067]                                 "release", "version")], collapse = " "), 
[18:42:02.067]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.067]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.067]                               info)
[18:42:02.067]                             info <- base::paste(info, collapse = "; ")
[18:42:02.067]                             if (!has_future) {
[18:42:02.067]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.067]                                 info)
[18:42:02.067]                             }
[18:42:02.067]                             else {
[18:42:02.067]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.067]                                 info, version)
[18:42:02.067]                             }
[18:42:02.067]                             base::stop(msg)
[18:42:02.067]                           }
[18:42:02.067]                         })
[18:42:02.067]                       }
[18:42:02.067]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.067]                       base::options(mc.cores = 1L)
[18:42:02.067]                     }
[18:42:02.067]                     base::local({
[18:42:02.067]                       for (pkg in "future.apply") {
[18:42:02.067]                         base::loadNamespace(pkg)
[18:42:02.067]                         base::library(pkg, character.only = TRUE)
[18:42:02.067]                       }
[18:42:02.067]                     })
[18:42:02.067]                   }
[18:42:02.067]                   ...future.strategy.old <- future::plan("list")
[18:42:02.067]                   options(future.plan = NULL)
[18:42:02.067]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.067]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.067]                 }
[18:42:02.067]                 ...future.workdir <- getwd()
[18:42:02.067]             }
[18:42:02.067]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.067]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.067]         }
[18:42:02.067]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.067]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.067]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.067]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.067]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.067]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.067]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.067]             base::names(...future.oldOptions))
[18:42:02.067]     }
[18:42:02.067]     if (FALSE) {
[18:42:02.067]     }
[18:42:02.067]     else {
[18:42:02.067]         if (TRUE) {
[18:42:02.067]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.067]                 open = "w")
[18:42:02.067]         }
[18:42:02.067]         else {
[18:42:02.067]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.067]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.067]         }
[18:42:02.067]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.067]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.067]             base::sink(type = "output", split = FALSE)
[18:42:02.067]             base::close(...future.stdout)
[18:42:02.067]         }, add = TRUE)
[18:42:02.067]     }
[18:42:02.067]     ...future.frame <- base::sys.nframe()
[18:42:02.067]     ...future.conditions <- base::list()
[18:42:02.067]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.067]     if (FALSE) {
[18:42:02.067]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.067]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.067]     }
[18:42:02.067]     ...future.result <- base::tryCatch({
[18:42:02.067]         base::withCallingHandlers({
[18:42:02.067]             ...future.value <- base::withVisible(base::local({
[18:42:02.067]                 ...future.makeSendCondition <- base::local({
[18:42:02.067]                   sendCondition <- NULL
[18:42:02.067]                   function(frame = 1L) {
[18:42:02.067]                     if (is.function(sendCondition)) 
[18:42:02.067]                       return(sendCondition)
[18:42:02.067]                     ns <- getNamespace("parallel")
[18:42:02.067]                     if (exists("sendData", mode = "function", 
[18:42:02.067]                       envir = ns)) {
[18:42:02.067]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.067]                         envir = ns)
[18:42:02.067]                       envir <- sys.frame(frame)
[18:42:02.067]                       master <- NULL
[18:42:02.067]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.067]                         !identical(envir, emptyenv())) {
[18:42:02.067]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.067]                           inherits = FALSE)) {
[18:42:02.067]                           master <- get("master", mode = "list", 
[18:42:02.067]                             envir = envir, inherits = FALSE)
[18:42:02.067]                           if (inherits(master, c("SOCKnode", 
[18:42:02.067]                             "SOCK0node"))) {
[18:42:02.067]                             sendCondition <<- function(cond) {
[18:42:02.067]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.067]                                 success = TRUE)
[18:42:02.067]                               parallel_sendData(master, data)
[18:42:02.067]                             }
[18:42:02.067]                             return(sendCondition)
[18:42:02.067]                           }
[18:42:02.067]                         }
[18:42:02.067]                         frame <- frame + 1L
[18:42:02.067]                         envir <- sys.frame(frame)
[18:42:02.067]                       }
[18:42:02.067]                     }
[18:42:02.067]                     sendCondition <<- function(cond) NULL
[18:42:02.067]                   }
[18:42:02.067]                 })
[18:42:02.067]                 withCallingHandlers({
[18:42:02.067]                   {
[18:42:02.067]                     do.call(function(...) {
[18:42:02.067]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.067]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.067]                         ...future.globals.maxSize)) {
[18:42:02.067]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.067]                         on.exit(options(oopts), add = TRUE)
[18:42:02.067]                       }
[18:42:02.067]                       {
[18:42:02.067]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.067]                           FUN = function(jj) {
[18:42:02.067]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.067]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.067]                           })
[18:42:02.067]                       }
[18:42:02.067]                     }, args = future.call.arguments)
[18:42:02.067]                   }
[18:42:02.067]                 }, immediateCondition = function(cond) {
[18:42:02.067]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.067]                   sendCondition(cond)
[18:42:02.067]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.067]                   {
[18:42:02.067]                     inherits <- base::inherits
[18:42:02.067]                     invokeRestart <- base::invokeRestart
[18:42:02.067]                     is.null <- base::is.null
[18:42:02.067]                     muffled <- FALSE
[18:42:02.067]                     if (inherits(cond, "message")) {
[18:42:02.067]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.067]                       if (muffled) 
[18:42:02.067]                         invokeRestart("muffleMessage")
[18:42:02.067]                     }
[18:42:02.067]                     else if (inherits(cond, "warning")) {
[18:42:02.067]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.067]                       if (muffled) 
[18:42:02.067]                         invokeRestart("muffleWarning")
[18:42:02.067]                     }
[18:42:02.067]                     else if (inherits(cond, "condition")) {
[18:42:02.067]                       if (!is.null(pattern)) {
[18:42:02.067]                         computeRestarts <- base::computeRestarts
[18:42:02.067]                         grepl <- base::grepl
[18:42:02.067]                         restarts <- computeRestarts(cond)
[18:42:02.067]                         for (restart in restarts) {
[18:42:02.067]                           name <- restart$name
[18:42:02.067]                           if (is.null(name)) 
[18:42:02.067]                             next
[18:42:02.067]                           if (!grepl(pattern, name)) 
[18:42:02.067]                             next
[18:42:02.067]                           invokeRestart(restart)
[18:42:02.067]                           muffled <- TRUE
[18:42:02.067]                           break
[18:42:02.067]                         }
[18:42:02.067]                       }
[18:42:02.067]                     }
[18:42:02.067]                     invisible(muffled)
[18:42:02.067]                   }
[18:42:02.067]                   muffleCondition(cond)
[18:42:02.067]                 })
[18:42:02.067]             }))
[18:42:02.067]             future::FutureResult(value = ...future.value$value, 
[18:42:02.067]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.067]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.067]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.067]                     ...future.globalenv.names))
[18:42:02.067]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.067]         }, condition = base::local({
[18:42:02.067]             c <- base::c
[18:42:02.067]             inherits <- base::inherits
[18:42:02.067]             invokeRestart <- base::invokeRestart
[18:42:02.067]             length <- base::length
[18:42:02.067]             list <- base::list
[18:42:02.067]             seq.int <- base::seq.int
[18:42:02.067]             signalCondition <- base::signalCondition
[18:42:02.067]             sys.calls <- base::sys.calls
[18:42:02.067]             `[[` <- base::`[[`
[18:42:02.067]             `+` <- base::`+`
[18:42:02.067]             `<<-` <- base::`<<-`
[18:42:02.067]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.067]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.067]                   3L)]
[18:42:02.067]             }
[18:42:02.067]             function(cond) {
[18:42:02.067]                 is_error <- inherits(cond, "error")
[18:42:02.067]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.067]                   NULL)
[18:42:02.067]                 if (is_error) {
[18:42:02.067]                   sessionInformation <- function() {
[18:42:02.067]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.067]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.067]                       search = base::search(), system = base::Sys.info())
[18:42:02.067]                   }
[18:42:02.067]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.067]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.067]                     cond$call), session = sessionInformation(), 
[18:42:02.067]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.067]                   signalCondition(cond)
[18:42:02.067]                 }
[18:42:02.067]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.067]                 "immediateCondition"))) {
[18:42:02.067]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.067]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.067]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.067]                   if (TRUE && !signal) {
[18:42:02.067]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.067]                     {
[18:42:02.067]                       inherits <- base::inherits
[18:42:02.067]                       invokeRestart <- base::invokeRestart
[18:42:02.067]                       is.null <- base::is.null
[18:42:02.067]                       muffled <- FALSE
[18:42:02.067]                       if (inherits(cond, "message")) {
[18:42:02.067]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.067]                         if (muffled) 
[18:42:02.067]                           invokeRestart("muffleMessage")
[18:42:02.067]                       }
[18:42:02.067]                       else if (inherits(cond, "warning")) {
[18:42:02.067]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.067]                         if (muffled) 
[18:42:02.067]                           invokeRestart("muffleWarning")
[18:42:02.067]                       }
[18:42:02.067]                       else if (inherits(cond, "condition")) {
[18:42:02.067]                         if (!is.null(pattern)) {
[18:42:02.067]                           computeRestarts <- base::computeRestarts
[18:42:02.067]                           grepl <- base::grepl
[18:42:02.067]                           restarts <- computeRestarts(cond)
[18:42:02.067]                           for (restart in restarts) {
[18:42:02.067]                             name <- restart$name
[18:42:02.067]                             if (is.null(name)) 
[18:42:02.067]                               next
[18:42:02.067]                             if (!grepl(pattern, name)) 
[18:42:02.067]                               next
[18:42:02.067]                             invokeRestart(restart)
[18:42:02.067]                             muffled <- TRUE
[18:42:02.067]                             break
[18:42:02.067]                           }
[18:42:02.067]                         }
[18:42:02.067]                       }
[18:42:02.067]                       invisible(muffled)
[18:42:02.067]                     }
[18:42:02.067]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.067]                   }
[18:42:02.067]                 }
[18:42:02.067]                 else {
[18:42:02.067]                   if (TRUE) {
[18:42:02.067]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.067]                     {
[18:42:02.067]                       inherits <- base::inherits
[18:42:02.067]                       invokeRestart <- base::invokeRestart
[18:42:02.067]                       is.null <- base::is.null
[18:42:02.067]                       muffled <- FALSE
[18:42:02.067]                       if (inherits(cond, "message")) {
[18:42:02.067]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.067]                         if (muffled) 
[18:42:02.067]                           invokeRestart("muffleMessage")
[18:42:02.067]                       }
[18:42:02.067]                       else if (inherits(cond, "warning")) {
[18:42:02.067]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.067]                         if (muffled) 
[18:42:02.067]                           invokeRestart("muffleWarning")
[18:42:02.067]                       }
[18:42:02.067]                       else if (inherits(cond, "condition")) {
[18:42:02.067]                         if (!is.null(pattern)) {
[18:42:02.067]                           computeRestarts <- base::computeRestarts
[18:42:02.067]                           grepl <- base::grepl
[18:42:02.067]                           restarts <- computeRestarts(cond)
[18:42:02.067]                           for (restart in restarts) {
[18:42:02.067]                             name <- restart$name
[18:42:02.067]                             if (is.null(name)) 
[18:42:02.067]                               next
[18:42:02.067]                             if (!grepl(pattern, name)) 
[18:42:02.067]                               next
[18:42:02.067]                             invokeRestart(restart)
[18:42:02.067]                             muffled <- TRUE
[18:42:02.067]                             break
[18:42:02.067]                           }
[18:42:02.067]                         }
[18:42:02.067]                       }
[18:42:02.067]                       invisible(muffled)
[18:42:02.067]                     }
[18:42:02.067]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.067]                   }
[18:42:02.067]                 }
[18:42:02.067]             }
[18:42:02.067]         }))
[18:42:02.067]     }, error = function(ex) {
[18:42:02.067]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.067]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.067]                 ...future.rng), started = ...future.startTime, 
[18:42:02.067]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.067]             version = "1.8"), class = "FutureResult")
[18:42:02.067]     }, finally = {
[18:42:02.067]         if (!identical(...future.workdir, getwd())) 
[18:42:02.067]             setwd(...future.workdir)
[18:42:02.067]         {
[18:42:02.067]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.067]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.067]             }
[18:42:02.067]             base::options(...future.oldOptions)
[18:42:02.067]             if (.Platform$OS.type == "windows") {
[18:42:02.067]                 old_names <- names(...future.oldEnvVars)
[18:42:02.067]                 envs <- base::Sys.getenv()
[18:42:02.067]                 names <- names(envs)
[18:42:02.067]                 common <- intersect(names, old_names)
[18:42:02.067]                 added <- setdiff(names, old_names)
[18:42:02.067]                 removed <- setdiff(old_names, names)
[18:42:02.067]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.067]                   envs[common]]
[18:42:02.067]                 NAMES <- toupper(changed)
[18:42:02.067]                 args <- list()
[18:42:02.067]                 for (kk in seq_along(NAMES)) {
[18:42:02.067]                   name <- changed[[kk]]
[18:42:02.067]                   NAME <- NAMES[[kk]]
[18:42:02.067]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.067]                     next
[18:42:02.067]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.067]                 }
[18:42:02.067]                 NAMES <- toupper(added)
[18:42:02.067]                 for (kk in seq_along(NAMES)) {
[18:42:02.067]                   name <- added[[kk]]
[18:42:02.067]                   NAME <- NAMES[[kk]]
[18:42:02.067]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.067]                     next
[18:42:02.067]                   args[[name]] <- ""
[18:42:02.067]                 }
[18:42:02.067]                 NAMES <- toupper(removed)
[18:42:02.067]                 for (kk in seq_along(NAMES)) {
[18:42:02.067]                   name <- removed[[kk]]
[18:42:02.067]                   NAME <- NAMES[[kk]]
[18:42:02.067]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.067]                     next
[18:42:02.067]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.067]                 }
[18:42:02.067]                 if (length(args) > 0) 
[18:42:02.067]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.067]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.067]             }
[18:42:02.067]             else {
[18:42:02.067]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.067]             }
[18:42:02.067]             {
[18:42:02.067]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.067]                   0L) {
[18:42:02.067]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.067]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.067]                   base::options(opts)
[18:42:02.067]                 }
[18:42:02.067]                 {
[18:42:02.067]                   {
[18:42:02.067]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.067]                     NULL
[18:42:02.067]                   }
[18:42:02.067]                   options(future.plan = NULL)
[18:42:02.067]                   if (is.na(NA_character_)) 
[18:42:02.067]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.067]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.067]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.067]                     .init = FALSE)
[18:42:02.067]                 }
[18:42:02.067]             }
[18:42:02.067]         }
[18:42:02.067]     })
[18:42:02.067]     if (TRUE) {
[18:42:02.067]         base::sink(type = "output", split = FALSE)
[18:42:02.067]         if (TRUE) {
[18:42:02.067]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.067]         }
[18:42:02.067]         else {
[18:42:02.067]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.067]         }
[18:42:02.067]         base::close(...future.stdout)
[18:42:02.067]         ...future.stdout <- NULL
[18:42:02.067]     }
[18:42:02.067]     ...future.result$conditions <- ...future.conditions
[18:42:02.067]     ...future.result$finished <- base::Sys.time()
[18:42:02.067]     ...future.result
[18:42:02.067] }
[18:42:02.077] Exporting 11 global objects (12.56 KiB) to cluster node #1 ...
[18:42:02.077] Exporting '...future.FUN' (4.06 KiB) to cluster node #1 ...
[18:42:02.078] Exporting '...future.FUN' (4.06 KiB) to cluster node #1 ... DONE
[18:42:02.078] Exporting 'x_FUN' (35 bytes) to cluster node #1 ...
[18:42:02.079] Exporting 'x_FUN' (35 bytes) to cluster node #1 ... DONE
[18:42:02.079] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.079] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.080] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.080] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.081] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.081] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.082] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:02.082] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:02.083] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:02.083] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:02.083] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.084] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.084] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.085] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.085] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.086] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.086] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.086] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.087] Exporting 11 global objects (12.56 KiB) to cluster node #1 ... DONE
[18:42:02.088] MultisessionFuture started
[18:42:02.088] - Launch lazy future ... done
[18:42:02.088] run() for 'MultisessionFuture' ... done
[18:42:02.089] Created future:
[18:42:02.114] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.114] - Validating connection of MultisessionFuture
[18:42:02.115] - received message: FutureResult
[18:42:02.115] - Received FutureResult
[18:42:02.116] - Erased future from FutureRegistry
[18:42:02.116] result() for ClusterFuture ...
[18:42:02.116] - result already collected: FutureResult
[18:42:02.116] result() for ClusterFuture ... done
[18:42:02.117] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.089] MultisessionFuture:
[18:42:02.089] Label: 'future_vapply-1'
[18:42:02.089] Expression:
[18:42:02.089] {
[18:42:02.089]     do.call(function(...) {
[18:42:02.089]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.089]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.089]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.089]             on.exit(options(oopts), add = TRUE)
[18:42:02.089]         }
[18:42:02.089]         {
[18:42:02.089]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.089]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.089]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.089]             })
[18:42:02.089]         }
[18:42:02.089]     }, args = future.call.arguments)
[18:42:02.089] }
[18:42:02.089] Lazy evaluation: FALSE
[18:42:02.089] Asynchronous evaluation: TRUE
[18:42:02.089] Local evaluation: TRUE
[18:42:02.089] Environment: R_GlobalEnv
[18:42:02.089] Capture standard output: TRUE
[18:42:02.089] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.089] Globals: 11 objects totaling 12.31 KiB (function '...future.FUN' of 4.06 KiB, function 'x_FUN' of 35 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.089] Packages: 1 packages ('future.apply')
[18:42:02.089] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.089] Resolved: TRUE
[18:42:02.089] Value: <not collected>
[18:42:02.089] Conditions captured: <none>
[18:42:02.089] Early signaling: FALSE
[18:42:02.089] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.089] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.117] Chunk #1 of 2 ... DONE
[18:42:02.117] Chunk #2 of 2 ...
[18:42:02.118]  - Finding globals in 'X' for chunk #2 ...
[18:42:02.118] getGlobalsAndPackages() ...
[18:42:02.118] Searching for globals...
[18:42:02.119] 
[18:42:02.119] Searching for globals ... DONE
[18:42:02.119] - globals: [0] <none>
[18:42:02.120] getGlobalsAndPackages() ... DONE
[18:42:02.120]    + additional globals found: [n=0] 
[18:42:02.120]    + additional namespaces needed: [n=0] 
[18:42:02.120]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:02.121]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.121]  - seeds: <none>
[18:42:02.121]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.121] getGlobalsAndPackages() ...
[18:42:02.122] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.122] Resolving globals: FALSE
[18:42:02.122] Tweak future expression to call with '...' arguments ...
[18:42:02.122] {
[18:42:02.122]     do.call(function(...) {
[18:42:02.122]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.122]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.122]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.122]             on.exit(options(oopts), add = TRUE)
[18:42:02.122]         }
[18:42:02.122]         {
[18:42:02.122]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.122]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.122]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.122]             })
[18:42:02.122]         }
[18:42:02.122]     }, args = future.call.arguments)
[18:42:02.122] }
[18:42:02.123] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.124] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.125] - packages: [1] 'future.apply'
[18:42:02.125] getGlobalsAndPackages() ... DONE
[18:42:02.126] run() for 'Future' ...
[18:42:02.126] - state: 'created'
[18:42:02.126] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.146] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.147] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.147]   - Field: 'node'
[18:42:02.147]   - Field: 'label'
[18:42:02.147]   - Field: 'local'
[18:42:02.148]   - Field: 'owner'
[18:42:02.148]   - Field: 'envir'
[18:42:02.148]   - Field: 'workers'
[18:42:02.149]   - Field: 'packages'
[18:42:02.149]   - Field: 'gc'
[18:42:02.149]   - Field: 'conditions'
[18:42:02.149]   - Field: 'persistent'
[18:42:02.150]   - Field: 'expr'
[18:42:02.150]   - Field: 'uuid'
[18:42:02.150]   - Field: 'seed'
[18:42:02.151]   - Field: 'version'
[18:42:02.151]   - Field: 'result'
[18:42:02.151]   - Field: 'asynchronous'
[18:42:02.151]   - Field: 'calls'
[18:42:02.152]   - Field: 'globals'
[18:42:02.152]   - Field: 'stdout'
[18:42:02.152]   - Field: 'earlySignal'
[18:42:02.152]   - Field: 'lazy'
[18:42:02.153]   - Field: 'state'
[18:42:02.153] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.153] - Launch lazy future ...
[18:42:02.154] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.154] Packages needed by future strategies (n = 0): <none>
[18:42:02.155] {
[18:42:02.155]     {
[18:42:02.155]         {
[18:42:02.155]             ...future.startTime <- base::Sys.time()
[18:42:02.155]             {
[18:42:02.155]                 {
[18:42:02.155]                   {
[18:42:02.155]                     {
[18:42:02.155]                       {
[18:42:02.155]                         base::local({
[18:42:02.155]                           has_future <- base::requireNamespace("future", 
[18:42:02.155]                             quietly = TRUE)
[18:42:02.155]                           if (has_future) {
[18:42:02.155]                             ns <- base::getNamespace("future")
[18:42:02.155]                             version <- ns[[".package"]][["version"]]
[18:42:02.155]                             if (is.null(version)) 
[18:42:02.155]                               version <- utils::packageVersion("future")
[18:42:02.155]                           }
[18:42:02.155]                           else {
[18:42:02.155]                             version <- NULL
[18:42:02.155]                           }
[18:42:02.155]                           if (!has_future || version < "1.8.0") {
[18:42:02.155]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.155]                               "", base::R.version$version.string), 
[18:42:02.155]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.155]                                 base::R.version$platform, 8 * 
[18:42:02.155]                                   base::.Machine$sizeof.pointer), 
[18:42:02.155]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.155]                                 "release", "version")], collapse = " "), 
[18:42:02.155]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.155]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.155]                               info)
[18:42:02.155]                             info <- base::paste(info, collapse = "; ")
[18:42:02.155]                             if (!has_future) {
[18:42:02.155]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.155]                                 info)
[18:42:02.155]                             }
[18:42:02.155]                             else {
[18:42:02.155]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.155]                                 info, version)
[18:42:02.155]                             }
[18:42:02.155]                             base::stop(msg)
[18:42:02.155]                           }
[18:42:02.155]                         })
[18:42:02.155]                       }
[18:42:02.155]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.155]                       base::options(mc.cores = 1L)
[18:42:02.155]                     }
[18:42:02.155]                     base::local({
[18:42:02.155]                       for (pkg in "future.apply") {
[18:42:02.155]                         base::loadNamespace(pkg)
[18:42:02.155]                         base::library(pkg, character.only = TRUE)
[18:42:02.155]                       }
[18:42:02.155]                     })
[18:42:02.155]                   }
[18:42:02.155]                   ...future.strategy.old <- future::plan("list")
[18:42:02.155]                   options(future.plan = NULL)
[18:42:02.155]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.155]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.155]                 }
[18:42:02.155]                 ...future.workdir <- getwd()
[18:42:02.155]             }
[18:42:02.155]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.155]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.155]         }
[18:42:02.155]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.155]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.155]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.155]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.155]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.155]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.155]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.155]             base::names(...future.oldOptions))
[18:42:02.155]     }
[18:42:02.155]     if (FALSE) {
[18:42:02.155]     }
[18:42:02.155]     else {
[18:42:02.155]         if (TRUE) {
[18:42:02.155]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.155]                 open = "w")
[18:42:02.155]         }
[18:42:02.155]         else {
[18:42:02.155]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.155]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.155]         }
[18:42:02.155]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.155]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.155]             base::sink(type = "output", split = FALSE)
[18:42:02.155]             base::close(...future.stdout)
[18:42:02.155]         }, add = TRUE)
[18:42:02.155]     }
[18:42:02.155]     ...future.frame <- base::sys.nframe()
[18:42:02.155]     ...future.conditions <- base::list()
[18:42:02.155]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.155]     if (FALSE) {
[18:42:02.155]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.155]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.155]     }
[18:42:02.155]     ...future.result <- base::tryCatch({
[18:42:02.155]         base::withCallingHandlers({
[18:42:02.155]             ...future.value <- base::withVisible(base::local({
[18:42:02.155]                 ...future.makeSendCondition <- base::local({
[18:42:02.155]                   sendCondition <- NULL
[18:42:02.155]                   function(frame = 1L) {
[18:42:02.155]                     if (is.function(sendCondition)) 
[18:42:02.155]                       return(sendCondition)
[18:42:02.155]                     ns <- getNamespace("parallel")
[18:42:02.155]                     if (exists("sendData", mode = "function", 
[18:42:02.155]                       envir = ns)) {
[18:42:02.155]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.155]                         envir = ns)
[18:42:02.155]                       envir <- sys.frame(frame)
[18:42:02.155]                       master <- NULL
[18:42:02.155]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.155]                         !identical(envir, emptyenv())) {
[18:42:02.155]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.155]                           inherits = FALSE)) {
[18:42:02.155]                           master <- get("master", mode = "list", 
[18:42:02.155]                             envir = envir, inherits = FALSE)
[18:42:02.155]                           if (inherits(master, c("SOCKnode", 
[18:42:02.155]                             "SOCK0node"))) {
[18:42:02.155]                             sendCondition <<- function(cond) {
[18:42:02.155]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.155]                                 success = TRUE)
[18:42:02.155]                               parallel_sendData(master, data)
[18:42:02.155]                             }
[18:42:02.155]                             return(sendCondition)
[18:42:02.155]                           }
[18:42:02.155]                         }
[18:42:02.155]                         frame <- frame + 1L
[18:42:02.155]                         envir <- sys.frame(frame)
[18:42:02.155]                       }
[18:42:02.155]                     }
[18:42:02.155]                     sendCondition <<- function(cond) NULL
[18:42:02.155]                   }
[18:42:02.155]                 })
[18:42:02.155]                 withCallingHandlers({
[18:42:02.155]                   {
[18:42:02.155]                     do.call(function(...) {
[18:42:02.155]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.155]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.155]                         ...future.globals.maxSize)) {
[18:42:02.155]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.155]                         on.exit(options(oopts), add = TRUE)
[18:42:02.155]                       }
[18:42:02.155]                       {
[18:42:02.155]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.155]                           FUN = function(jj) {
[18:42:02.155]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.155]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.155]                           })
[18:42:02.155]                       }
[18:42:02.155]                     }, args = future.call.arguments)
[18:42:02.155]                   }
[18:42:02.155]                 }, immediateCondition = function(cond) {
[18:42:02.155]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.155]                   sendCondition(cond)
[18:42:02.155]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.155]                   {
[18:42:02.155]                     inherits <- base::inherits
[18:42:02.155]                     invokeRestart <- base::invokeRestart
[18:42:02.155]                     is.null <- base::is.null
[18:42:02.155]                     muffled <- FALSE
[18:42:02.155]                     if (inherits(cond, "message")) {
[18:42:02.155]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.155]                       if (muffled) 
[18:42:02.155]                         invokeRestart("muffleMessage")
[18:42:02.155]                     }
[18:42:02.155]                     else if (inherits(cond, "warning")) {
[18:42:02.155]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.155]                       if (muffled) 
[18:42:02.155]                         invokeRestart("muffleWarning")
[18:42:02.155]                     }
[18:42:02.155]                     else if (inherits(cond, "condition")) {
[18:42:02.155]                       if (!is.null(pattern)) {
[18:42:02.155]                         computeRestarts <- base::computeRestarts
[18:42:02.155]                         grepl <- base::grepl
[18:42:02.155]                         restarts <- computeRestarts(cond)
[18:42:02.155]                         for (restart in restarts) {
[18:42:02.155]                           name <- restart$name
[18:42:02.155]                           if (is.null(name)) 
[18:42:02.155]                             next
[18:42:02.155]                           if (!grepl(pattern, name)) 
[18:42:02.155]                             next
[18:42:02.155]                           invokeRestart(restart)
[18:42:02.155]                           muffled <- TRUE
[18:42:02.155]                           break
[18:42:02.155]                         }
[18:42:02.155]                       }
[18:42:02.155]                     }
[18:42:02.155]                     invisible(muffled)
[18:42:02.155]                   }
[18:42:02.155]                   muffleCondition(cond)
[18:42:02.155]                 })
[18:42:02.155]             }))
[18:42:02.155]             future::FutureResult(value = ...future.value$value, 
[18:42:02.155]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.155]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.155]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.155]                     ...future.globalenv.names))
[18:42:02.155]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.155]         }, condition = base::local({
[18:42:02.155]             c <- base::c
[18:42:02.155]             inherits <- base::inherits
[18:42:02.155]             invokeRestart <- base::invokeRestart
[18:42:02.155]             length <- base::length
[18:42:02.155]             list <- base::list
[18:42:02.155]             seq.int <- base::seq.int
[18:42:02.155]             signalCondition <- base::signalCondition
[18:42:02.155]             sys.calls <- base::sys.calls
[18:42:02.155]             `[[` <- base::`[[`
[18:42:02.155]             `+` <- base::`+`
[18:42:02.155]             `<<-` <- base::`<<-`
[18:42:02.155]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.155]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.155]                   3L)]
[18:42:02.155]             }
[18:42:02.155]             function(cond) {
[18:42:02.155]                 is_error <- inherits(cond, "error")
[18:42:02.155]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.155]                   NULL)
[18:42:02.155]                 if (is_error) {
[18:42:02.155]                   sessionInformation <- function() {
[18:42:02.155]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.155]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.155]                       search = base::search(), system = base::Sys.info())
[18:42:02.155]                   }
[18:42:02.155]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.155]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.155]                     cond$call), session = sessionInformation(), 
[18:42:02.155]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.155]                   signalCondition(cond)
[18:42:02.155]                 }
[18:42:02.155]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.155]                 "immediateCondition"))) {
[18:42:02.155]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.155]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.155]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.155]                   if (TRUE && !signal) {
[18:42:02.155]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.155]                     {
[18:42:02.155]                       inherits <- base::inherits
[18:42:02.155]                       invokeRestart <- base::invokeRestart
[18:42:02.155]                       is.null <- base::is.null
[18:42:02.155]                       muffled <- FALSE
[18:42:02.155]                       if (inherits(cond, "message")) {
[18:42:02.155]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.155]                         if (muffled) 
[18:42:02.155]                           invokeRestart("muffleMessage")
[18:42:02.155]                       }
[18:42:02.155]                       else if (inherits(cond, "warning")) {
[18:42:02.155]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.155]                         if (muffled) 
[18:42:02.155]                           invokeRestart("muffleWarning")
[18:42:02.155]                       }
[18:42:02.155]                       else if (inherits(cond, "condition")) {
[18:42:02.155]                         if (!is.null(pattern)) {
[18:42:02.155]                           computeRestarts <- base::computeRestarts
[18:42:02.155]                           grepl <- base::grepl
[18:42:02.155]                           restarts <- computeRestarts(cond)
[18:42:02.155]                           for (restart in restarts) {
[18:42:02.155]                             name <- restart$name
[18:42:02.155]                             if (is.null(name)) 
[18:42:02.155]                               next
[18:42:02.155]                             if (!grepl(pattern, name)) 
[18:42:02.155]                               next
[18:42:02.155]                             invokeRestart(restart)
[18:42:02.155]                             muffled <- TRUE
[18:42:02.155]                             break
[18:42:02.155]                           }
[18:42:02.155]                         }
[18:42:02.155]                       }
[18:42:02.155]                       invisible(muffled)
[18:42:02.155]                     }
[18:42:02.155]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.155]                   }
[18:42:02.155]                 }
[18:42:02.155]                 else {
[18:42:02.155]                   if (TRUE) {
[18:42:02.155]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.155]                     {
[18:42:02.155]                       inherits <- base::inherits
[18:42:02.155]                       invokeRestart <- base::invokeRestart
[18:42:02.155]                       is.null <- base::is.null
[18:42:02.155]                       muffled <- FALSE
[18:42:02.155]                       if (inherits(cond, "message")) {
[18:42:02.155]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.155]                         if (muffled) 
[18:42:02.155]                           invokeRestart("muffleMessage")
[18:42:02.155]                       }
[18:42:02.155]                       else if (inherits(cond, "warning")) {
[18:42:02.155]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.155]                         if (muffled) 
[18:42:02.155]                           invokeRestart("muffleWarning")
[18:42:02.155]                       }
[18:42:02.155]                       else if (inherits(cond, "condition")) {
[18:42:02.155]                         if (!is.null(pattern)) {
[18:42:02.155]                           computeRestarts <- base::computeRestarts
[18:42:02.155]                           grepl <- base::grepl
[18:42:02.155]                           restarts <- computeRestarts(cond)
[18:42:02.155]                           for (restart in restarts) {
[18:42:02.155]                             name <- restart$name
[18:42:02.155]                             if (is.null(name)) 
[18:42:02.155]                               next
[18:42:02.155]                             if (!grepl(pattern, name)) 
[18:42:02.155]                               next
[18:42:02.155]                             invokeRestart(restart)
[18:42:02.155]                             muffled <- TRUE
[18:42:02.155]                             break
[18:42:02.155]                           }
[18:42:02.155]                         }
[18:42:02.155]                       }
[18:42:02.155]                       invisible(muffled)
[18:42:02.155]                     }
[18:42:02.155]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.155]                   }
[18:42:02.155]                 }
[18:42:02.155]             }
[18:42:02.155]         }))
[18:42:02.155]     }, error = function(ex) {
[18:42:02.155]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.155]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.155]                 ...future.rng), started = ...future.startTime, 
[18:42:02.155]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.155]             version = "1.8"), class = "FutureResult")
[18:42:02.155]     }, finally = {
[18:42:02.155]         if (!identical(...future.workdir, getwd())) 
[18:42:02.155]             setwd(...future.workdir)
[18:42:02.155]         {
[18:42:02.155]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.155]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.155]             }
[18:42:02.155]             base::options(...future.oldOptions)
[18:42:02.155]             if (.Platform$OS.type == "windows") {
[18:42:02.155]                 old_names <- names(...future.oldEnvVars)
[18:42:02.155]                 envs <- base::Sys.getenv()
[18:42:02.155]                 names <- names(envs)
[18:42:02.155]                 common <- intersect(names, old_names)
[18:42:02.155]                 added <- setdiff(names, old_names)
[18:42:02.155]                 removed <- setdiff(old_names, names)
[18:42:02.155]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.155]                   envs[common]]
[18:42:02.155]                 NAMES <- toupper(changed)
[18:42:02.155]                 args <- list()
[18:42:02.155]                 for (kk in seq_along(NAMES)) {
[18:42:02.155]                   name <- changed[[kk]]
[18:42:02.155]                   NAME <- NAMES[[kk]]
[18:42:02.155]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.155]                     next
[18:42:02.155]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.155]                 }
[18:42:02.155]                 NAMES <- toupper(added)
[18:42:02.155]                 for (kk in seq_along(NAMES)) {
[18:42:02.155]                   name <- added[[kk]]
[18:42:02.155]                   NAME <- NAMES[[kk]]
[18:42:02.155]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.155]                     next
[18:42:02.155]                   args[[name]] <- ""
[18:42:02.155]                 }
[18:42:02.155]                 NAMES <- toupper(removed)
[18:42:02.155]                 for (kk in seq_along(NAMES)) {
[18:42:02.155]                   name <- removed[[kk]]
[18:42:02.155]                   NAME <- NAMES[[kk]]
[18:42:02.155]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.155]                     next
[18:42:02.155]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.155]                 }
[18:42:02.155]                 if (length(args) > 0) 
[18:42:02.155]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.155]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.155]             }
[18:42:02.155]             else {
[18:42:02.155]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.155]             }
[18:42:02.155]             {
[18:42:02.155]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.155]                   0L) {
[18:42:02.155]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.155]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.155]                   base::options(opts)
[18:42:02.155]                 }
[18:42:02.155]                 {
[18:42:02.155]                   {
[18:42:02.155]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.155]                     NULL
[18:42:02.155]                   }
[18:42:02.155]                   options(future.plan = NULL)
[18:42:02.155]                   if (is.na(NA_character_)) 
[18:42:02.155]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.155]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.155]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.155]                     .init = FALSE)
[18:42:02.155]                 }
[18:42:02.155]             }
[18:42:02.155]         }
[18:42:02.155]     })
[18:42:02.155]     if (TRUE) {
[18:42:02.155]         base::sink(type = "output", split = FALSE)
[18:42:02.155]         if (TRUE) {
[18:42:02.155]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.155]         }
[18:42:02.155]         else {
[18:42:02.155]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.155]         }
[18:42:02.155]         base::close(...future.stdout)
[18:42:02.155]         ...future.stdout <- NULL
[18:42:02.155]     }
[18:42:02.155]     ...future.result$conditions <- ...future.conditions
[18:42:02.155]     ...future.result$finished <- base::Sys.time()
[18:42:02.155]     ...future.result
[18:42:02.155] }
[18:42:02.164] Exporting 11 global objects (12.56 KiB) to cluster node #1 ...
[18:42:02.164] Exporting '...future.FUN' (4.06 KiB) to cluster node #1 ...
[18:42:02.165] Exporting '...future.FUN' (4.06 KiB) to cluster node #1 ... DONE
[18:42:02.165] Exporting 'x_FUN' (35 bytes) to cluster node #1 ...
[18:42:02.166] Exporting 'x_FUN' (35 bytes) to cluster node #1 ... DONE
[18:42:02.166] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.167] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.167] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.168] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.168] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.169] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.169] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:02.170] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:02.170] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:02.171] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:02.171] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.172] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.172] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.172] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.173] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.173] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.174] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.174] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.174] Exporting 11 global objects (12.56 KiB) to cluster node #1 ... DONE
[18:42:02.175] MultisessionFuture started
[18:42:02.176] - Launch lazy future ... done
[18:42:02.176] run() for 'MultisessionFuture' ... done
[18:42:02.176] Created future:
[18:42:02.202] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.203] - Validating connection of MultisessionFuture
[18:42:02.203] - received message: FutureResult
[18:42:02.203] - Received FutureResult
[18:42:02.204] - Erased future from FutureRegistry
[18:42:02.204] result() for ClusterFuture ...
[18:42:02.204] - result already collected: FutureResult
[18:42:02.204] result() for ClusterFuture ... done
[18:42:02.205] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.176] MultisessionFuture:
[18:42:02.176] Label: 'future_vapply-2'
[18:42:02.176] Expression:
[18:42:02.176] {
[18:42:02.176]     do.call(function(...) {
[18:42:02.176]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.176]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.176]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.176]             on.exit(options(oopts), add = TRUE)
[18:42:02.176]         }
[18:42:02.176]         {
[18:42:02.176]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.176]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.176]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.176]             })
[18:42:02.176]         }
[18:42:02.176]     }, args = future.call.arguments)
[18:42:02.176] }
[18:42:02.176] Lazy evaluation: FALSE
[18:42:02.176] Asynchronous evaluation: TRUE
[18:42:02.176] Local evaluation: TRUE
[18:42:02.176] Environment: R_GlobalEnv
[18:42:02.176] Capture standard output: TRUE
[18:42:02.176] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.176] Globals: 11 objects totaling 12.31 KiB (function '...future.FUN' of 4.06 KiB, function 'x_FUN' of 35 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.176] Packages: 1 packages ('future.apply')
[18:42:02.176] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.176] Resolved: TRUE
[18:42:02.176] Value: <not collected>
[18:42:02.176] Conditions captured: <none>
[18:42:02.176] Early signaling: FALSE
[18:42:02.176] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.176] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.205] Chunk #2 of 2 ... DONE
[18:42:02.206] Launching 2 futures (chunks) ... DONE
[18:42:02.206] Resolving 2 futures (chunks) ...
[18:42:02.206] resolve() on list ...
[18:42:02.206]  recursive: 0
[18:42:02.207]  length: 2
[18:42:02.207] 
[18:42:02.207] Future #1
[18:42:02.208] result() for ClusterFuture ...
[18:42:02.208] - result already collected: FutureResult
[18:42:02.208] result() for ClusterFuture ... done
[18:42:02.208] result() for ClusterFuture ...
[18:42:02.209] - result already collected: FutureResult
[18:42:02.209] result() for ClusterFuture ... done
[18:42:02.209] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:02.209] - nx: 2
[18:42:02.210] - relay: TRUE
[18:42:02.210] - stdout: TRUE
[18:42:02.210] - signal: TRUE
[18:42:02.210] - resignal: FALSE
[18:42:02.211] - force: TRUE
[18:42:02.211] - relayed: [n=2] FALSE, FALSE
[18:42:02.211] - queued futures: [n=2] FALSE, FALSE
[18:42:02.211]  - until=1
[18:42:02.212]  - relaying element #1
[18:42:02.212] result() for ClusterFuture ...
[18:42:02.212] - result already collected: FutureResult
[18:42:02.212] result() for ClusterFuture ... done
[18:42:02.213] result() for ClusterFuture ...
[18:42:02.213] - result already collected: FutureResult
[18:42:02.213] result() for ClusterFuture ... done
[18:42:02.213] result() for ClusterFuture ...
[18:42:02.214] - result already collected: FutureResult
[18:42:02.214] result() for ClusterFuture ... done
[18:42:02.214] result() for ClusterFuture ...
[18:42:02.218] - result already collected: FutureResult
[18:42:02.218] result() for ClusterFuture ... done
[18:42:02.218] - relayed: [n=2] TRUE, FALSE
[18:42:02.219] - queued futures: [n=2] TRUE, FALSE
[18:42:02.219] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:02.219]  length: 1 (resolved future 1)
[18:42:02.220] Future #2
[18:42:02.220] result() for ClusterFuture ...
[18:42:02.220] - result already collected: FutureResult
[18:42:02.220] result() for ClusterFuture ... done
[18:42:02.221] result() for ClusterFuture ...
[18:42:02.221] - result already collected: FutureResult
[18:42:02.221] result() for ClusterFuture ... done
[18:42:02.221] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:02.222] - nx: 2
[18:42:02.222] - relay: TRUE
[18:42:02.222] - stdout: TRUE
[18:42:02.222] - signal: TRUE
[18:42:02.223] - resignal: FALSE
[18:42:02.223] - force: TRUE
[18:42:02.223] - relayed: [n=2] TRUE, FALSE
[18:42:02.223] - queued futures: [n=2] TRUE, FALSE
[18:42:02.224]  - until=2
[18:42:02.224]  - relaying element #2
[18:42:02.224] result() for ClusterFuture ...
[18:42:02.224] - result already collected: FutureResult
[18:42:02.225] result() for ClusterFuture ... done
[18:42:02.225] result() for ClusterFuture ...
[18:42:02.225] - result already collected: FutureResult
[18:42:02.225] result() for ClusterFuture ... done
[18:42:02.226] result() for ClusterFuture ...
[18:42:02.226] - result already collected: FutureResult
[18:42:02.226] result() for ClusterFuture ... done
[18:42:02.226] result() for ClusterFuture ...
[18:42:02.227] - result already collected: FutureResult
[18:42:02.227] result() for ClusterFuture ... done
[18:42:02.227] - relayed: [n=2] TRUE, TRUE
[18:42:02.227] - queued futures: [n=2] TRUE, TRUE
[18:42:02.228] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:02.228]  length: 0 (resolved future 2)
[18:42:02.228] Relaying remaining futures
[18:42:02.228] signalConditionsASAP(NULL, pos=0) ...
[18:42:02.229] - nx: 2
[18:42:02.229] - relay: TRUE
[18:42:02.229] - stdout: TRUE
[18:42:02.229] - signal: TRUE
[18:42:02.230] - resignal: FALSE
[18:42:02.230] - force: TRUE
[18:42:02.230] - relayed: [n=2] TRUE, TRUE
[18:42:02.230] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:02.231] - relayed: [n=2] TRUE, TRUE
[18:42:02.231] - queued futures: [n=2] TRUE, TRUE
[18:42:02.231] signalConditionsASAP(NULL, pos=0) ... done
[18:42:02.231] resolve() on list ... DONE
[18:42:02.232] result() for ClusterFuture ...
[18:42:02.232] - result already collected: FutureResult
[18:42:02.232] result() for ClusterFuture ... done
[18:42:02.233] result() for ClusterFuture ...
[18:42:02.233] - result already collected: FutureResult
[18:42:02.233] result() for ClusterFuture ... done
[18:42:02.233] result() for ClusterFuture ...
[18:42:02.234] - result already collected: FutureResult
[18:42:02.234] result() for ClusterFuture ... done
[18:42:02.234] result() for ClusterFuture ...
[18:42:02.234] - result already collected: FutureResult
[18:42:02.234] result() for ClusterFuture ... done
[18:42:02.235]  - Number of value chunks collected: 2
[18:42:02.235] Resolving 2 futures (chunks) ... DONE
[18:42:02.235] Reducing values from 2 chunks ...
[18:42:02.236]  - Number of values collected after concatenation: 10
[18:42:02.236]  - Number of values expected: 10
[18:42:02.236] Reducing values from 2 chunks ... DONE
[18:42:02.236] future_lapply() ... DONE
 num [1:10] 1 1.41 1.73 2 2.24 ...
 num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ...
[18:42:02.238] future_lapply() ...
[18:42:02.245] Number of chunks: 2
[18:42:02.245] getGlobalsAndPackagesXApply() ...
[18:42:02.246]  - future.globals: TRUE
[18:42:02.246] getGlobalsAndPackages() ...
[18:42:02.246] Searching for globals...
[18:42:02.253] - globals found: [18] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'c', '^'
[18:42:02.253] Searching for globals ... DONE
[18:42:02.254] Resolving globals: FALSE
[18:42:02.255] The total size of the 7 globals is 13.34 KiB (13657 bytes)
[18:42:02.256] The total size of the 7 globals exported for future expression ('FUN()') is 13.34 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (4.89 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:02.257] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.257] - packages: [1] 'future.apply'
[18:42:02.257] getGlobalsAndPackages() ... DONE
[18:42:02.257]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.258]  - needed namespaces: [n=1] 'future.apply'
[18:42:02.258] Finding globals ... DONE
[18:42:02.258]  - use_args: TRUE
[18:42:02.259]  - Getting '...' globals ...
[18:42:02.259] resolve() on list ...
[18:42:02.259]  recursive: 0
[18:42:02.260]  length: 1
[18:42:02.260]  elements: '...'
[18:42:02.260]  length: 0 (resolved future 1)
[18:42:02.261] resolve() on list ... DONE
[18:42:02.261]    - '...' content: [n=0] 
[18:42:02.261] List of 1
[18:42:02.261]  $ ...: list()
[18:42:02.261]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.261]  - attr(*, "where")=List of 1
[18:42:02.261]   ..$ ...:<environment: 0x000002ea0618c3c8> 
[18:42:02.261]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.261]  - attr(*, "resolved")= logi TRUE
[18:42:02.261]  - attr(*, "total_size")= num NA
[18:42:02.265]  - Getting '...' globals ... DONE
[18:42:02.266] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:02.266] List of 8
[18:42:02.266]  $ ...future.FUN:function (x, ...)  
[18:42:02.266]  $ x_FUN        :function (x)  
[18:42:02.266]  $ times        : int 2
[18:42:02.266]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:02.266]  $ stop_if_not  :function (...)  
[18:42:02.266]  $ dim          : NULL
[18:42:02.266]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:02.266]  $ ...          : list()
[18:42:02.266]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.266]  - attr(*, "where")=List of 8
[18:42:02.266]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:02.266]   ..$ ...          :<environment: 0x000002ea0618c3c8> 
[18:42:02.266]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.266]  - attr(*, "resolved")= logi FALSE
[18:42:02.266]  - attr(*, "total_size")= int 24454
[18:42:02.276] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:02.276] getGlobalsAndPackagesXApply() ... DONE
[18:42:02.277] Number of futures (= number of chunks): 2
[18:42:02.277] Launching 2 futures (chunks) ...
[18:42:02.277] Chunk #1 of 2 ...
[18:42:02.278]  - Finding globals in 'X' for chunk #1 ...
[18:42:02.278] getGlobalsAndPackages() ...
[18:42:02.278] Searching for globals...
[18:42:02.279] 
[18:42:02.279] Searching for globals ... DONE
[18:42:02.279] - globals: [0] <none>
[18:42:02.279] getGlobalsAndPackages() ... DONE
[18:42:02.280]    + additional globals found: [n=0] 
[18:42:02.280]    + additional namespaces needed: [n=0] 
[18:42:02.280]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:02.280]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.281]  - seeds: <none>
[18:42:02.281]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.281] getGlobalsAndPackages() ...
[18:42:02.281] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.282] Resolving globals: FALSE
[18:42:02.282] Tweak future expression to call with '...' arguments ...
[18:42:02.282] {
[18:42:02.282]     do.call(function(...) {
[18:42:02.282]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.282]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.282]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.282]             on.exit(options(oopts), add = TRUE)
[18:42:02.282]         }
[18:42:02.282]         {
[18:42:02.282]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.282]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.282]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.282]             })
[18:42:02.282]         }
[18:42:02.282]     }, args = future.call.arguments)
[18:42:02.282] }
[18:42:02.283] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.284] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.284] - packages: [1] 'future.apply'
[18:42:02.284] getGlobalsAndPackages() ... DONE
[18:42:02.285] run() for 'Future' ...
[18:42:02.285] - state: 'created'
[18:42:02.286] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.305] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.305] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.306]   - Field: 'node'
[18:42:02.306]   - Field: 'label'
[18:42:02.306]   - Field: 'local'
[18:42:02.307]   - Field: 'owner'
[18:42:02.307]   - Field: 'envir'
[18:42:02.307]   - Field: 'workers'
[18:42:02.308]   - Field: 'packages'
[18:42:02.308]   - Field: 'gc'
[18:42:02.308]   - Field: 'conditions'
[18:42:02.308]   - Field: 'persistent'
[18:42:02.309]   - Field: 'expr'
[18:42:02.309]   - Field: 'uuid'
[18:42:02.309]   - Field: 'seed'
[18:42:02.309]   - Field: 'version'
[18:42:02.310]   - Field: 'result'
[18:42:02.310]   - Field: 'asynchronous'
[18:42:02.310]   - Field: 'calls'
[18:42:02.311]   - Field: 'globals'
[18:42:02.311]   - Field: 'stdout'
[18:42:02.311]   - Field: 'earlySignal'
[18:42:02.311]   - Field: 'lazy'
[18:42:02.312]   - Field: 'state'
[18:42:02.312] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.312] - Launch lazy future ...
[18:42:02.313] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.313] Packages needed by future strategies (n = 0): <none>
[18:42:02.314] {
[18:42:02.314]     {
[18:42:02.314]         {
[18:42:02.314]             ...future.startTime <- base::Sys.time()
[18:42:02.314]             {
[18:42:02.314]                 {
[18:42:02.314]                   {
[18:42:02.314]                     {
[18:42:02.314]                       {
[18:42:02.314]                         base::local({
[18:42:02.314]                           has_future <- base::requireNamespace("future", 
[18:42:02.314]                             quietly = TRUE)
[18:42:02.314]                           if (has_future) {
[18:42:02.314]                             ns <- base::getNamespace("future")
[18:42:02.314]                             version <- ns[[".package"]][["version"]]
[18:42:02.314]                             if (is.null(version)) 
[18:42:02.314]                               version <- utils::packageVersion("future")
[18:42:02.314]                           }
[18:42:02.314]                           else {
[18:42:02.314]                             version <- NULL
[18:42:02.314]                           }
[18:42:02.314]                           if (!has_future || version < "1.8.0") {
[18:42:02.314]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.314]                               "", base::R.version$version.string), 
[18:42:02.314]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.314]                                 base::R.version$platform, 8 * 
[18:42:02.314]                                   base::.Machine$sizeof.pointer), 
[18:42:02.314]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.314]                                 "release", "version")], collapse = " "), 
[18:42:02.314]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.314]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.314]                               info)
[18:42:02.314]                             info <- base::paste(info, collapse = "; ")
[18:42:02.314]                             if (!has_future) {
[18:42:02.314]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.314]                                 info)
[18:42:02.314]                             }
[18:42:02.314]                             else {
[18:42:02.314]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.314]                                 info, version)
[18:42:02.314]                             }
[18:42:02.314]                             base::stop(msg)
[18:42:02.314]                           }
[18:42:02.314]                         })
[18:42:02.314]                       }
[18:42:02.314]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.314]                       base::options(mc.cores = 1L)
[18:42:02.314]                     }
[18:42:02.314]                     base::local({
[18:42:02.314]                       for (pkg in "future.apply") {
[18:42:02.314]                         base::loadNamespace(pkg)
[18:42:02.314]                         base::library(pkg, character.only = TRUE)
[18:42:02.314]                       }
[18:42:02.314]                     })
[18:42:02.314]                   }
[18:42:02.314]                   ...future.strategy.old <- future::plan("list")
[18:42:02.314]                   options(future.plan = NULL)
[18:42:02.314]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.314]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.314]                 }
[18:42:02.314]                 ...future.workdir <- getwd()
[18:42:02.314]             }
[18:42:02.314]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.314]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.314]         }
[18:42:02.314]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.314]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.314]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.314]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.314]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.314]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.314]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.314]             base::names(...future.oldOptions))
[18:42:02.314]     }
[18:42:02.314]     if (FALSE) {
[18:42:02.314]     }
[18:42:02.314]     else {
[18:42:02.314]         if (TRUE) {
[18:42:02.314]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.314]                 open = "w")
[18:42:02.314]         }
[18:42:02.314]         else {
[18:42:02.314]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.314]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.314]         }
[18:42:02.314]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.314]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.314]             base::sink(type = "output", split = FALSE)
[18:42:02.314]             base::close(...future.stdout)
[18:42:02.314]         }, add = TRUE)
[18:42:02.314]     }
[18:42:02.314]     ...future.frame <- base::sys.nframe()
[18:42:02.314]     ...future.conditions <- base::list()
[18:42:02.314]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.314]     if (FALSE) {
[18:42:02.314]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.314]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.314]     }
[18:42:02.314]     ...future.result <- base::tryCatch({
[18:42:02.314]         base::withCallingHandlers({
[18:42:02.314]             ...future.value <- base::withVisible(base::local({
[18:42:02.314]                 ...future.makeSendCondition <- base::local({
[18:42:02.314]                   sendCondition <- NULL
[18:42:02.314]                   function(frame = 1L) {
[18:42:02.314]                     if (is.function(sendCondition)) 
[18:42:02.314]                       return(sendCondition)
[18:42:02.314]                     ns <- getNamespace("parallel")
[18:42:02.314]                     if (exists("sendData", mode = "function", 
[18:42:02.314]                       envir = ns)) {
[18:42:02.314]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.314]                         envir = ns)
[18:42:02.314]                       envir <- sys.frame(frame)
[18:42:02.314]                       master <- NULL
[18:42:02.314]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.314]                         !identical(envir, emptyenv())) {
[18:42:02.314]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.314]                           inherits = FALSE)) {
[18:42:02.314]                           master <- get("master", mode = "list", 
[18:42:02.314]                             envir = envir, inherits = FALSE)
[18:42:02.314]                           if (inherits(master, c("SOCKnode", 
[18:42:02.314]                             "SOCK0node"))) {
[18:42:02.314]                             sendCondition <<- function(cond) {
[18:42:02.314]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.314]                                 success = TRUE)
[18:42:02.314]                               parallel_sendData(master, data)
[18:42:02.314]                             }
[18:42:02.314]                             return(sendCondition)
[18:42:02.314]                           }
[18:42:02.314]                         }
[18:42:02.314]                         frame <- frame + 1L
[18:42:02.314]                         envir <- sys.frame(frame)
[18:42:02.314]                       }
[18:42:02.314]                     }
[18:42:02.314]                     sendCondition <<- function(cond) NULL
[18:42:02.314]                   }
[18:42:02.314]                 })
[18:42:02.314]                 withCallingHandlers({
[18:42:02.314]                   {
[18:42:02.314]                     do.call(function(...) {
[18:42:02.314]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.314]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.314]                         ...future.globals.maxSize)) {
[18:42:02.314]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.314]                         on.exit(options(oopts), add = TRUE)
[18:42:02.314]                       }
[18:42:02.314]                       {
[18:42:02.314]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.314]                           FUN = function(jj) {
[18:42:02.314]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.314]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.314]                           })
[18:42:02.314]                       }
[18:42:02.314]                     }, args = future.call.arguments)
[18:42:02.314]                   }
[18:42:02.314]                 }, immediateCondition = function(cond) {
[18:42:02.314]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.314]                   sendCondition(cond)
[18:42:02.314]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.314]                   {
[18:42:02.314]                     inherits <- base::inherits
[18:42:02.314]                     invokeRestart <- base::invokeRestart
[18:42:02.314]                     is.null <- base::is.null
[18:42:02.314]                     muffled <- FALSE
[18:42:02.314]                     if (inherits(cond, "message")) {
[18:42:02.314]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.314]                       if (muffled) 
[18:42:02.314]                         invokeRestart("muffleMessage")
[18:42:02.314]                     }
[18:42:02.314]                     else if (inherits(cond, "warning")) {
[18:42:02.314]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.314]                       if (muffled) 
[18:42:02.314]                         invokeRestart("muffleWarning")
[18:42:02.314]                     }
[18:42:02.314]                     else if (inherits(cond, "condition")) {
[18:42:02.314]                       if (!is.null(pattern)) {
[18:42:02.314]                         computeRestarts <- base::computeRestarts
[18:42:02.314]                         grepl <- base::grepl
[18:42:02.314]                         restarts <- computeRestarts(cond)
[18:42:02.314]                         for (restart in restarts) {
[18:42:02.314]                           name <- restart$name
[18:42:02.314]                           if (is.null(name)) 
[18:42:02.314]                             next
[18:42:02.314]                           if (!grepl(pattern, name)) 
[18:42:02.314]                             next
[18:42:02.314]                           invokeRestart(restart)
[18:42:02.314]                           muffled <- TRUE
[18:42:02.314]                           break
[18:42:02.314]                         }
[18:42:02.314]                       }
[18:42:02.314]                     }
[18:42:02.314]                     invisible(muffled)
[18:42:02.314]                   }
[18:42:02.314]                   muffleCondition(cond)
[18:42:02.314]                 })
[18:42:02.314]             }))
[18:42:02.314]             future::FutureResult(value = ...future.value$value, 
[18:42:02.314]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.314]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.314]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.314]                     ...future.globalenv.names))
[18:42:02.314]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.314]         }, condition = base::local({
[18:42:02.314]             c <- base::c
[18:42:02.314]             inherits <- base::inherits
[18:42:02.314]             invokeRestart <- base::invokeRestart
[18:42:02.314]             length <- base::length
[18:42:02.314]             list <- base::list
[18:42:02.314]             seq.int <- base::seq.int
[18:42:02.314]             signalCondition <- base::signalCondition
[18:42:02.314]             sys.calls <- base::sys.calls
[18:42:02.314]             `[[` <- base::`[[`
[18:42:02.314]             `+` <- base::`+`
[18:42:02.314]             `<<-` <- base::`<<-`
[18:42:02.314]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.314]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.314]                   3L)]
[18:42:02.314]             }
[18:42:02.314]             function(cond) {
[18:42:02.314]                 is_error <- inherits(cond, "error")
[18:42:02.314]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.314]                   NULL)
[18:42:02.314]                 if (is_error) {
[18:42:02.314]                   sessionInformation <- function() {
[18:42:02.314]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.314]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.314]                       search = base::search(), system = base::Sys.info())
[18:42:02.314]                   }
[18:42:02.314]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.314]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.314]                     cond$call), session = sessionInformation(), 
[18:42:02.314]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.314]                   signalCondition(cond)
[18:42:02.314]                 }
[18:42:02.314]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.314]                 "immediateCondition"))) {
[18:42:02.314]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.314]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.314]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.314]                   if (TRUE && !signal) {
[18:42:02.314]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.314]                     {
[18:42:02.314]                       inherits <- base::inherits
[18:42:02.314]                       invokeRestart <- base::invokeRestart
[18:42:02.314]                       is.null <- base::is.null
[18:42:02.314]                       muffled <- FALSE
[18:42:02.314]                       if (inherits(cond, "message")) {
[18:42:02.314]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.314]                         if (muffled) 
[18:42:02.314]                           invokeRestart("muffleMessage")
[18:42:02.314]                       }
[18:42:02.314]                       else if (inherits(cond, "warning")) {
[18:42:02.314]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.314]                         if (muffled) 
[18:42:02.314]                           invokeRestart("muffleWarning")
[18:42:02.314]                       }
[18:42:02.314]                       else if (inherits(cond, "condition")) {
[18:42:02.314]                         if (!is.null(pattern)) {
[18:42:02.314]                           computeRestarts <- base::computeRestarts
[18:42:02.314]                           grepl <- base::grepl
[18:42:02.314]                           restarts <- computeRestarts(cond)
[18:42:02.314]                           for (restart in restarts) {
[18:42:02.314]                             name <- restart$name
[18:42:02.314]                             if (is.null(name)) 
[18:42:02.314]                               next
[18:42:02.314]                             if (!grepl(pattern, name)) 
[18:42:02.314]                               next
[18:42:02.314]                             invokeRestart(restart)
[18:42:02.314]                             muffled <- TRUE
[18:42:02.314]                             break
[18:42:02.314]                           }
[18:42:02.314]                         }
[18:42:02.314]                       }
[18:42:02.314]                       invisible(muffled)
[18:42:02.314]                     }
[18:42:02.314]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.314]                   }
[18:42:02.314]                 }
[18:42:02.314]                 else {
[18:42:02.314]                   if (TRUE) {
[18:42:02.314]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.314]                     {
[18:42:02.314]                       inherits <- base::inherits
[18:42:02.314]                       invokeRestart <- base::invokeRestart
[18:42:02.314]                       is.null <- base::is.null
[18:42:02.314]                       muffled <- FALSE
[18:42:02.314]                       if (inherits(cond, "message")) {
[18:42:02.314]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.314]                         if (muffled) 
[18:42:02.314]                           invokeRestart("muffleMessage")
[18:42:02.314]                       }
[18:42:02.314]                       else if (inherits(cond, "warning")) {
[18:42:02.314]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.314]                         if (muffled) 
[18:42:02.314]                           invokeRestart("muffleWarning")
[18:42:02.314]                       }
[18:42:02.314]                       else if (inherits(cond, "condition")) {
[18:42:02.314]                         if (!is.null(pattern)) {
[18:42:02.314]                           computeRestarts <- base::computeRestarts
[18:42:02.314]                           grepl <- base::grepl
[18:42:02.314]                           restarts <- computeRestarts(cond)
[18:42:02.314]                           for (restart in restarts) {
[18:42:02.314]                             name <- restart$name
[18:42:02.314]                             if (is.null(name)) 
[18:42:02.314]                               next
[18:42:02.314]                             if (!grepl(pattern, name)) 
[18:42:02.314]                               next
[18:42:02.314]                             invokeRestart(restart)
[18:42:02.314]                             muffled <- TRUE
[18:42:02.314]                             break
[18:42:02.314]                           }
[18:42:02.314]                         }
[18:42:02.314]                       }
[18:42:02.314]                       invisible(muffled)
[18:42:02.314]                     }
[18:42:02.314]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.314]                   }
[18:42:02.314]                 }
[18:42:02.314]             }
[18:42:02.314]         }))
[18:42:02.314]     }, error = function(ex) {
[18:42:02.314]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.314]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.314]                 ...future.rng), started = ...future.startTime, 
[18:42:02.314]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.314]             version = "1.8"), class = "FutureResult")
[18:42:02.314]     }, finally = {
[18:42:02.314]         if (!identical(...future.workdir, getwd())) 
[18:42:02.314]             setwd(...future.workdir)
[18:42:02.314]         {
[18:42:02.314]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.314]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.314]             }
[18:42:02.314]             base::options(...future.oldOptions)
[18:42:02.314]             if (.Platform$OS.type == "windows") {
[18:42:02.314]                 old_names <- names(...future.oldEnvVars)
[18:42:02.314]                 envs <- base::Sys.getenv()
[18:42:02.314]                 names <- names(envs)
[18:42:02.314]                 common <- intersect(names, old_names)
[18:42:02.314]                 added <- setdiff(names, old_names)
[18:42:02.314]                 removed <- setdiff(old_names, names)
[18:42:02.314]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.314]                   envs[common]]
[18:42:02.314]                 NAMES <- toupper(changed)
[18:42:02.314]                 args <- list()
[18:42:02.314]                 for (kk in seq_along(NAMES)) {
[18:42:02.314]                   name <- changed[[kk]]
[18:42:02.314]                   NAME <- NAMES[[kk]]
[18:42:02.314]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.314]                     next
[18:42:02.314]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.314]                 }
[18:42:02.314]                 NAMES <- toupper(added)
[18:42:02.314]                 for (kk in seq_along(NAMES)) {
[18:42:02.314]                   name <- added[[kk]]
[18:42:02.314]                   NAME <- NAMES[[kk]]
[18:42:02.314]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.314]                     next
[18:42:02.314]                   args[[name]] <- ""
[18:42:02.314]                 }
[18:42:02.314]                 NAMES <- toupper(removed)
[18:42:02.314]                 for (kk in seq_along(NAMES)) {
[18:42:02.314]                   name <- removed[[kk]]
[18:42:02.314]                   NAME <- NAMES[[kk]]
[18:42:02.314]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.314]                     next
[18:42:02.314]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.314]                 }
[18:42:02.314]                 if (length(args) > 0) 
[18:42:02.314]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.314]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.314]             }
[18:42:02.314]             else {
[18:42:02.314]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.314]             }
[18:42:02.314]             {
[18:42:02.314]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.314]                   0L) {
[18:42:02.314]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.314]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.314]                   base::options(opts)
[18:42:02.314]                 }
[18:42:02.314]                 {
[18:42:02.314]                   {
[18:42:02.314]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.314]                     NULL
[18:42:02.314]                   }
[18:42:02.314]                   options(future.plan = NULL)
[18:42:02.314]                   if (is.na(NA_character_)) 
[18:42:02.314]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.314]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.314]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.314]                     .init = FALSE)
[18:42:02.314]                 }
[18:42:02.314]             }
[18:42:02.314]         }
[18:42:02.314]     })
[18:42:02.314]     if (TRUE) {
[18:42:02.314]         base::sink(type = "output", split = FALSE)
[18:42:02.314]         if (TRUE) {
[18:42:02.314]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.314]         }
[18:42:02.314]         else {
[18:42:02.314]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.314]         }
[18:42:02.314]         base::close(...future.stdout)
[18:42:02.314]         ...future.stdout <- NULL
[18:42:02.314]     }
[18:42:02.314]     ...future.result$conditions <- ...future.conditions
[18:42:02.314]     ...future.result$finished <- base::Sys.time()
[18:42:02.314]     ...future.result
[18:42:02.314] }
[18:42:02.323] Exporting 11 global objects (13.78 KiB) to cluster node #1 ...
[18:42:02.324] Exporting '...future.FUN' (4.88 KiB) to cluster node #1 ...
[18:42:02.325] Exporting '...future.FUN' (4.88 KiB) to cluster node #1 ... DONE
[18:42:02.325] Exporting 'x_FUN' (483 bytes) to cluster node #1 ...
[18:42:02.325] Exporting 'x_FUN' (483 bytes) to cluster node #1 ... DONE
[18:42:02.326] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.326] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.327] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.327] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.328] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.328] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.329] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:02.329] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:02.329] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:02.330] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:02.330] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.331] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.331] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.332] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.332] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.332] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.333] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.333] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.334] Exporting 11 global objects (13.78 KiB) to cluster node #1 ... DONE
[18:42:02.334] MultisessionFuture started
[18:42:02.335] - Launch lazy future ... done
[18:42:02.335] run() for 'MultisessionFuture' ... done
[18:42:02.335] Created future:
[18:42:02.361] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.361] - Validating connection of MultisessionFuture
[18:42:02.362] - received message: FutureResult
[18:42:02.362] - Received FutureResult
[18:42:02.363] - Erased future from FutureRegistry
[18:42:02.363] result() for ClusterFuture ...
[18:42:02.363] - result already collected: FutureResult
[18:42:02.363] result() for ClusterFuture ... done
[18:42:02.364] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.336] MultisessionFuture:
[18:42:02.336] Label: 'future_vapply-1'
[18:42:02.336] Expression:
[18:42:02.336] {
[18:42:02.336]     do.call(function(...) {
[18:42:02.336]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.336]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.336]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.336]             on.exit(options(oopts), add = TRUE)
[18:42:02.336]         }
[18:42:02.336]         {
[18:42:02.336]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.336]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.336]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.336]             })
[18:42:02.336]         }
[18:42:02.336]     }, args = future.call.arguments)
[18:42:02.336] }
[18:42:02.336] Lazy evaluation: FALSE
[18:42:02.336] Asynchronous evaluation: TRUE
[18:42:02.336] Local evaluation: TRUE
[18:42:02.336] Environment: R_GlobalEnv
[18:42:02.336] Capture standard output: TRUE
[18:42:02.336] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.336] Globals: 11 objects totaling 13.57 KiB (function '...future.FUN' of 4.88 KiB, function 'x_FUN' of 483 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.336] Packages: 1 packages ('future.apply')
[18:42:02.336] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.336] Resolved: TRUE
[18:42:02.336] Value: <not collected>
[18:42:02.336] Conditions captured: <none>
[18:42:02.336] Early signaling: FALSE
[18:42:02.336] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.336] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.364] Chunk #1 of 2 ... DONE
[18:42:02.364] Chunk #2 of 2 ...
[18:42:02.365]  - Finding globals in 'X' for chunk #2 ...
[18:42:02.365] getGlobalsAndPackages() ...
[18:42:02.365] Searching for globals...
[18:42:02.366] 
[18:42:02.366] Searching for globals ... DONE
[18:42:02.366] - globals: [0] <none>
[18:42:02.367] getGlobalsAndPackages() ... DONE
[18:42:02.367]    + additional globals found: [n=0] 
[18:42:02.367]    + additional namespaces needed: [n=0] 
[18:42:02.367]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:02.368]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.368]  - seeds: <none>
[18:42:02.368]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.368] getGlobalsAndPackages() ...
[18:42:02.369] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.369] Resolving globals: FALSE
[18:42:02.369] Tweak future expression to call with '...' arguments ...
[18:42:02.370] {
[18:42:02.370]     do.call(function(...) {
[18:42:02.370]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.370]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.370]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.370]             on.exit(options(oopts), add = TRUE)
[18:42:02.370]         }
[18:42:02.370]         {
[18:42:02.370]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.370]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.370]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.370]             })
[18:42:02.370]         }
[18:42:02.370]     }, args = future.call.arguments)
[18:42:02.370] }
[18:42:02.370] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.371] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.372] - packages: [1] 'future.apply'
[18:42:02.372] getGlobalsAndPackages() ... DONE
[18:42:02.373] run() for 'Future' ...
[18:42:02.373] - state: 'created'
[18:42:02.373] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.393] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.394] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.394]   - Field: 'node'
[18:42:02.394]   - Field: 'label'
[18:42:02.395]   - Field: 'local'
[18:42:02.395]   - Field: 'owner'
[18:42:02.395]   - Field: 'envir'
[18:42:02.395]   - Field: 'workers'
[18:42:02.396]   - Field: 'packages'
[18:42:02.396]   - Field: 'gc'
[18:42:02.396]   - Field: 'conditions'
[18:42:02.397]   - Field: 'persistent'
[18:42:02.397]   - Field: 'expr'
[18:42:02.397]   - Field: 'uuid'
[18:42:02.397]   - Field: 'seed'
[18:42:02.398]   - Field: 'version'
[18:42:02.398]   - Field: 'result'
[18:42:02.398]   - Field: 'asynchronous'
[18:42:02.399]   - Field: 'calls'
[18:42:02.399]   - Field: 'globals'
[18:42:02.399]   - Field: 'stdout'
[18:42:02.399]   - Field: 'earlySignal'
[18:42:02.400]   - Field: 'lazy'
[18:42:02.400]   - Field: 'state'
[18:42:02.400] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.401] - Launch lazy future ...
[18:42:02.401] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.401] Packages needed by future strategies (n = 0): <none>
[18:42:02.402] {
[18:42:02.402]     {
[18:42:02.402]         {
[18:42:02.402]             ...future.startTime <- base::Sys.time()
[18:42:02.402]             {
[18:42:02.402]                 {
[18:42:02.402]                   {
[18:42:02.402]                     {
[18:42:02.402]                       {
[18:42:02.402]                         base::local({
[18:42:02.402]                           has_future <- base::requireNamespace("future", 
[18:42:02.402]                             quietly = TRUE)
[18:42:02.402]                           if (has_future) {
[18:42:02.402]                             ns <- base::getNamespace("future")
[18:42:02.402]                             version <- ns[[".package"]][["version"]]
[18:42:02.402]                             if (is.null(version)) 
[18:42:02.402]                               version <- utils::packageVersion("future")
[18:42:02.402]                           }
[18:42:02.402]                           else {
[18:42:02.402]                             version <- NULL
[18:42:02.402]                           }
[18:42:02.402]                           if (!has_future || version < "1.8.0") {
[18:42:02.402]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.402]                               "", base::R.version$version.string), 
[18:42:02.402]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.402]                                 base::R.version$platform, 8 * 
[18:42:02.402]                                   base::.Machine$sizeof.pointer), 
[18:42:02.402]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.402]                                 "release", "version")], collapse = " "), 
[18:42:02.402]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.402]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.402]                               info)
[18:42:02.402]                             info <- base::paste(info, collapse = "; ")
[18:42:02.402]                             if (!has_future) {
[18:42:02.402]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.402]                                 info)
[18:42:02.402]                             }
[18:42:02.402]                             else {
[18:42:02.402]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.402]                                 info, version)
[18:42:02.402]                             }
[18:42:02.402]                             base::stop(msg)
[18:42:02.402]                           }
[18:42:02.402]                         })
[18:42:02.402]                       }
[18:42:02.402]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.402]                       base::options(mc.cores = 1L)
[18:42:02.402]                     }
[18:42:02.402]                     base::local({
[18:42:02.402]                       for (pkg in "future.apply") {
[18:42:02.402]                         base::loadNamespace(pkg)
[18:42:02.402]                         base::library(pkg, character.only = TRUE)
[18:42:02.402]                       }
[18:42:02.402]                     })
[18:42:02.402]                   }
[18:42:02.402]                   ...future.strategy.old <- future::plan("list")
[18:42:02.402]                   options(future.plan = NULL)
[18:42:02.402]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.402]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.402]                 }
[18:42:02.402]                 ...future.workdir <- getwd()
[18:42:02.402]             }
[18:42:02.402]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.402]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.402]         }
[18:42:02.402]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.402]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.402]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.402]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.402]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.402]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.402]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.402]             base::names(...future.oldOptions))
[18:42:02.402]     }
[18:42:02.402]     if (FALSE) {
[18:42:02.402]     }
[18:42:02.402]     else {
[18:42:02.402]         if (TRUE) {
[18:42:02.402]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.402]                 open = "w")
[18:42:02.402]         }
[18:42:02.402]         else {
[18:42:02.402]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.402]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.402]         }
[18:42:02.402]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.402]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.402]             base::sink(type = "output", split = FALSE)
[18:42:02.402]             base::close(...future.stdout)
[18:42:02.402]         }, add = TRUE)
[18:42:02.402]     }
[18:42:02.402]     ...future.frame <- base::sys.nframe()
[18:42:02.402]     ...future.conditions <- base::list()
[18:42:02.402]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.402]     if (FALSE) {
[18:42:02.402]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.402]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.402]     }
[18:42:02.402]     ...future.result <- base::tryCatch({
[18:42:02.402]         base::withCallingHandlers({
[18:42:02.402]             ...future.value <- base::withVisible(base::local({
[18:42:02.402]                 ...future.makeSendCondition <- base::local({
[18:42:02.402]                   sendCondition <- NULL
[18:42:02.402]                   function(frame = 1L) {
[18:42:02.402]                     if (is.function(sendCondition)) 
[18:42:02.402]                       return(sendCondition)
[18:42:02.402]                     ns <- getNamespace("parallel")
[18:42:02.402]                     if (exists("sendData", mode = "function", 
[18:42:02.402]                       envir = ns)) {
[18:42:02.402]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.402]                         envir = ns)
[18:42:02.402]                       envir <- sys.frame(frame)
[18:42:02.402]                       master <- NULL
[18:42:02.402]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.402]                         !identical(envir, emptyenv())) {
[18:42:02.402]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.402]                           inherits = FALSE)) {
[18:42:02.402]                           master <- get("master", mode = "list", 
[18:42:02.402]                             envir = envir, inherits = FALSE)
[18:42:02.402]                           if (inherits(master, c("SOCKnode", 
[18:42:02.402]                             "SOCK0node"))) {
[18:42:02.402]                             sendCondition <<- function(cond) {
[18:42:02.402]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.402]                                 success = TRUE)
[18:42:02.402]                               parallel_sendData(master, data)
[18:42:02.402]                             }
[18:42:02.402]                             return(sendCondition)
[18:42:02.402]                           }
[18:42:02.402]                         }
[18:42:02.402]                         frame <- frame + 1L
[18:42:02.402]                         envir <- sys.frame(frame)
[18:42:02.402]                       }
[18:42:02.402]                     }
[18:42:02.402]                     sendCondition <<- function(cond) NULL
[18:42:02.402]                   }
[18:42:02.402]                 })
[18:42:02.402]                 withCallingHandlers({
[18:42:02.402]                   {
[18:42:02.402]                     do.call(function(...) {
[18:42:02.402]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.402]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.402]                         ...future.globals.maxSize)) {
[18:42:02.402]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.402]                         on.exit(options(oopts), add = TRUE)
[18:42:02.402]                       }
[18:42:02.402]                       {
[18:42:02.402]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.402]                           FUN = function(jj) {
[18:42:02.402]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.402]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.402]                           })
[18:42:02.402]                       }
[18:42:02.402]                     }, args = future.call.arguments)
[18:42:02.402]                   }
[18:42:02.402]                 }, immediateCondition = function(cond) {
[18:42:02.402]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.402]                   sendCondition(cond)
[18:42:02.402]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.402]                   {
[18:42:02.402]                     inherits <- base::inherits
[18:42:02.402]                     invokeRestart <- base::invokeRestart
[18:42:02.402]                     is.null <- base::is.null
[18:42:02.402]                     muffled <- FALSE
[18:42:02.402]                     if (inherits(cond, "message")) {
[18:42:02.402]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.402]                       if (muffled) 
[18:42:02.402]                         invokeRestart("muffleMessage")
[18:42:02.402]                     }
[18:42:02.402]                     else if (inherits(cond, "warning")) {
[18:42:02.402]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.402]                       if (muffled) 
[18:42:02.402]                         invokeRestart("muffleWarning")
[18:42:02.402]                     }
[18:42:02.402]                     else if (inherits(cond, "condition")) {
[18:42:02.402]                       if (!is.null(pattern)) {
[18:42:02.402]                         computeRestarts <- base::computeRestarts
[18:42:02.402]                         grepl <- base::grepl
[18:42:02.402]                         restarts <- computeRestarts(cond)
[18:42:02.402]                         for (restart in restarts) {
[18:42:02.402]                           name <- restart$name
[18:42:02.402]                           if (is.null(name)) 
[18:42:02.402]                             next
[18:42:02.402]                           if (!grepl(pattern, name)) 
[18:42:02.402]                             next
[18:42:02.402]                           invokeRestart(restart)
[18:42:02.402]                           muffled <- TRUE
[18:42:02.402]                           break
[18:42:02.402]                         }
[18:42:02.402]                       }
[18:42:02.402]                     }
[18:42:02.402]                     invisible(muffled)
[18:42:02.402]                   }
[18:42:02.402]                   muffleCondition(cond)
[18:42:02.402]                 })
[18:42:02.402]             }))
[18:42:02.402]             future::FutureResult(value = ...future.value$value, 
[18:42:02.402]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.402]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.402]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.402]                     ...future.globalenv.names))
[18:42:02.402]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.402]         }, condition = base::local({
[18:42:02.402]             c <- base::c
[18:42:02.402]             inherits <- base::inherits
[18:42:02.402]             invokeRestart <- base::invokeRestart
[18:42:02.402]             length <- base::length
[18:42:02.402]             list <- base::list
[18:42:02.402]             seq.int <- base::seq.int
[18:42:02.402]             signalCondition <- base::signalCondition
[18:42:02.402]             sys.calls <- base::sys.calls
[18:42:02.402]             `[[` <- base::`[[`
[18:42:02.402]             `+` <- base::`+`
[18:42:02.402]             `<<-` <- base::`<<-`
[18:42:02.402]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.402]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.402]                   3L)]
[18:42:02.402]             }
[18:42:02.402]             function(cond) {
[18:42:02.402]                 is_error <- inherits(cond, "error")
[18:42:02.402]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.402]                   NULL)
[18:42:02.402]                 if (is_error) {
[18:42:02.402]                   sessionInformation <- function() {
[18:42:02.402]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.402]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.402]                       search = base::search(), system = base::Sys.info())
[18:42:02.402]                   }
[18:42:02.402]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.402]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.402]                     cond$call), session = sessionInformation(), 
[18:42:02.402]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.402]                   signalCondition(cond)
[18:42:02.402]                 }
[18:42:02.402]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.402]                 "immediateCondition"))) {
[18:42:02.402]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.402]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.402]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.402]                   if (TRUE && !signal) {
[18:42:02.402]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.402]                     {
[18:42:02.402]                       inherits <- base::inherits
[18:42:02.402]                       invokeRestart <- base::invokeRestart
[18:42:02.402]                       is.null <- base::is.null
[18:42:02.402]                       muffled <- FALSE
[18:42:02.402]                       if (inherits(cond, "message")) {
[18:42:02.402]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.402]                         if (muffled) 
[18:42:02.402]                           invokeRestart("muffleMessage")
[18:42:02.402]                       }
[18:42:02.402]                       else if (inherits(cond, "warning")) {
[18:42:02.402]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.402]                         if (muffled) 
[18:42:02.402]                           invokeRestart("muffleWarning")
[18:42:02.402]                       }
[18:42:02.402]                       else if (inherits(cond, "condition")) {
[18:42:02.402]                         if (!is.null(pattern)) {
[18:42:02.402]                           computeRestarts <- base::computeRestarts
[18:42:02.402]                           grepl <- base::grepl
[18:42:02.402]                           restarts <- computeRestarts(cond)
[18:42:02.402]                           for (restart in restarts) {
[18:42:02.402]                             name <- restart$name
[18:42:02.402]                             if (is.null(name)) 
[18:42:02.402]                               next
[18:42:02.402]                             if (!grepl(pattern, name)) 
[18:42:02.402]                               next
[18:42:02.402]                             invokeRestart(restart)
[18:42:02.402]                             muffled <- TRUE
[18:42:02.402]                             break
[18:42:02.402]                           }
[18:42:02.402]                         }
[18:42:02.402]                       }
[18:42:02.402]                       invisible(muffled)
[18:42:02.402]                     }
[18:42:02.402]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.402]                   }
[18:42:02.402]                 }
[18:42:02.402]                 else {
[18:42:02.402]                   if (TRUE) {
[18:42:02.402]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.402]                     {
[18:42:02.402]                       inherits <- base::inherits
[18:42:02.402]                       invokeRestart <- base::invokeRestart
[18:42:02.402]                       is.null <- base::is.null
[18:42:02.402]                       muffled <- FALSE
[18:42:02.402]                       if (inherits(cond, "message")) {
[18:42:02.402]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.402]                         if (muffled) 
[18:42:02.402]                           invokeRestart("muffleMessage")
[18:42:02.402]                       }
[18:42:02.402]                       else if (inherits(cond, "warning")) {
[18:42:02.402]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.402]                         if (muffled) 
[18:42:02.402]                           invokeRestart("muffleWarning")
[18:42:02.402]                       }
[18:42:02.402]                       else if (inherits(cond, "condition")) {
[18:42:02.402]                         if (!is.null(pattern)) {
[18:42:02.402]                           computeRestarts <- base::computeRestarts
[18:42:02.402]                           grepl <- base::grepl
[18:42:02.402]                           restarts <- computeRestarts(cond)
[18:42:02.402]                           for (restart in restarts) {
[18:42:02.402]                             name <- restart$name
[18:42:02.402]                             if (is.null(name)) 
[18:42:02.402]                               next
[18:42:02.402]                             if (!grepl(pattern, name)) 
[18:42:02.402]                               next
[18:42:02.402]                             invokeRestart(restart)
[18:42:02.402]                             muffled <- TRUE
[18:42:02.402]                             break
[18:42:02.402]                           }
[18:42:02.402]                         }
[18:42:02.402]                       }
[18:42:02.402]                       invisible(muffled)
[18:42:02.402]                     }
[18:42:02.402]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.402]                   }
[18:42:02.402]                 }
[18:42:02.402]             }
[18:42:02.402]         }))
[18:42:02.402]     }, error = function(ex) {
[18:42:02.402]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.402]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.402]                 ...future.rng), started = ...future.startTime, 
[18:42:02.402]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.402]             version = "1.8"), class = "FutureResult")
[18:42:02.402]     }, finally = {
[18:42:02.402]         if (!identical(...future.workdir, getwd())) 
[18:42:02.402]             setwd(...future.workdir)
[18:42:02.402]         {
[18:42:02.402]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.402]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.402]             }
[18:42:02.402]             base::options(...future.oldOptions)
[18:42:02.402]             if (.Platform$OS.type == "windows") {
[18:42:02.402]                 old_names <- names(...future.oldEnvVars)
[18:42:02.402]                 envs <- base::Sys.getenv()
[18:42:02.402]                 names <- names(envs)
[18:42:02.402]                 common <- intersect(names, old_names)
[18:42:02.402]                 added <- setdiff(names, old_names)
[18:42:02.402]                 removed <- setdiff(old_names, names)
[18:42:02.402]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.402]                   envs[common]]
[18:42:02.402]                 NAMES <- toupper(changed)
[18:42:02.402]                 args <- list()
[18:42:02.402]                 for (kk in seq_along(NAMES)) {
[18:42:02.402]                   name <- changed[[kk]]
[18:42:02.402]                   NAME <- NAMES[[kk]]
[18:42:02.402]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.402]                     next
[18:42:02.402]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.402]                 }
[18:42:02.402]                 NAMES <- toupper(added)
[18:42:02.402]                 for (kk in seq_along(NAMES)) {
[18:42:02.402]                   name <- added[[kk]]
[18:42:02.402]                   NAME <- NAMES[[kk]]
[18:42:02.402]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.402]                     next
[18:42:02.402]                   args[[name]] <- ""
[18:42:02.402]                 }
[18:42:02.402]                 NAMES <- toupper(removed)
[18:42:02.402]                 for (kk in seq_along(NAMES)) {
[18:42:02.402]                   name <- removed[[kk]]
[18:42:02.402]                   NAME <- NAMES[[kk]]
[18:42:02.402]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.402]                     next
[18:42:02.402]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.402]                 }
[18:42:02.402]                 if (length(args) > 0) 
[18:42:02.402]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.402]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.402]             }
[18:42:02.402]             else {
[18:42:02.402]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.402]             }
[18:42:02.402]             {
[18:42:02.402]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.402]                   0L) {
[18:42:02.402]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.402]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.402]                   base::options(opts)
[18:42:02.402]                 }
[18:42:02.402]                 {
[18:42:02.402]                   {
[18:42:02.402]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.402]                     NULL
[18:42:02.402]                   }
[18:42:02.402]                   options(future.plan = NULL)
[18:42:02.402]                   if (is.na(NA_character_)) 
[18:42:02.402]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.402]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.402]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.402]                     .init = FALSE)
[18:42:02.402]                 }
[18:42:02.402]             }
[18:42:02.402]         }
[18:42:02.402]     })
[18:42:02.402]     if (TRUE) {
[18:42:02.402]         base::sink(type = "output", split = FALSE)
[18:42:02.402]         if (TRUE) {
[18:42:02.402]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.402]         }
[18:42:02.402]         else {
[18:42:02.402]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.402]         }
[18:42:02.402]         base::close(...future.stdout)
[18:42:02.402]         ...future.stdout <- NULL
[18:42:02.402]     }
[18:42:02.402]     ...future.result$conditions <- ...future.conditions
[18:42:02.402]     ...future.result$finished <- base::Sys.time()
[18:42:02.402]     ...future.result
[18:42:02.402] }
[18:42:02.412] Exporting 11 global objects (13.78 KiB) to cluster node #1 ...
[18:42:02.412] Exporting '...future.FUN' (4.88 KiB) to cluster node #1 ...
[18:42:02.413] Exporting '...future.FUN' (4.88 KiB) to cluster node #1 ... DONE
[18:42:02.413] Exporting 'x_FUN' (483 bytes) to cluster node #1 ...
[18:42:02.414] Exporting 'x_FUN' (483 bytes) to cluster node #1 ... DONE
[18:42:02.414] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.415] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.415] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.416] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.416] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.417] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.417] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:02.417] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:02.418] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:02.418] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:02.419] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.419] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.420] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.420] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.420] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.421] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.421] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.422] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.422] Exporting 11 global objects (13.78 KiB) to cluster node #1 ... DONE
[18:42:02.423] MultisessionFuture started
[18:42:02.423] - Launch lazy future ... done
[18:42:02.424] run() for 'MultisessionFuture' ... done
[18:42:02.424] Created future:
[18:42:02.456] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.456] - Validating connection of MultisessionFuture
[18:42:02.457] - received message: FutureResult
[18:42:02.457] - Received FutureResult
[18:42:02.457] - Erased future from FutureRegistry
[18:42:02.458] result() for ClusterFuture ...
[18:42:02.458] - result already collected: FutureResult
[18:42:02.458] result() for ClusterFuture ... done
[18:42:02.458] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.424] MultisessionFuture:
[18:42:02.424] Label: 'future_vapply-2'
[18:42:02.424] Expression:
[18:42:02.424] {
[18:42:02.424]     do.call(function(...) {
[18:42:02.424]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.424]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.424]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.424]             on.exit(options(oopts), add = TRUE)
[18:42:02.424]         }
[18:42:02.424]         {
[18:42:02.424]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.424]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.424]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.424]             })
[18:42:02.424]         }
[18:42:02.424]     }, args = future.call.arguments)
[18:42:02.424] }
[18:42:02.424] Lazy evaluation: FALSE
[18:42:02.424] Asynchronous evaluation: TRUE
[18:42:02.424] Local evaluation: TRUE
[18:42:02.424] Environment: R_GlobalEnv
[18:42:02.424] Capture standard output: TRUE
[18:42:02.424] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.424] Globals: 11 objects totaling 13.57 KiB (function '...future.FUN' of 4.88 KiB, function 'x_FUN' of 483 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.424] Packages: 1 packages ('future.apply')
[18:42:02.424] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.424] Resolved: TRUE
[18:42:02.424] Value: <not collected>
[18:42:02.424] Conditions captured: <none>
[18:42:02.424] Early signaling: FALSE
[18:42:02.424] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.424] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.459] Chunk #2 of 2 ... DONE
[18:42:02.459] Launching 2 futures (chunks) ... DONE
[18:42:02.460] Resolving 2 futures (chunks) ...
[18:42:02.460] resolve() on list ...
[18:42:02.460]  recursive: 0
[18:42:02.460]  length: 2
[18:42:02.461] 
[18:42:02.461] Future #1
[18:42:02.461] result() for ClusterFuture ...
[18:42:02.461] - result already collected: FutureResult
[18:42:02.462] result() for ClusterFuture ... done
[18:42:02.462] result() for ClusterFuture ...
[18:42:02.462] - result already collected: FutureResult
[18:42:02.462] result() for ClusterFuture ... done
[18:42:02.463] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:02.463] - nx: 2
[18:42:02.463] - relay: TRUE
[18:42:02.463] - stdout: TRUE
[18:42:02.464] - signal: TRUE
[18:42:02.464] - resignal: FALSE
[18:42:02.464] - force: TRUE
[18:42:02.464] - relayed: [n=2] FALSE, FALSE
[18:42:02.465] - queued futures: [n=2] FALSE, FALSE
[18:42:02.465]  - until=1
[18:42:02.465]  - relaying element #1
[18:42:02.466] result() for ClusterFuture ...
[18:42:02.466] - result already collected: FutureResult
[18:42:02.466] result() for ClusterFuture ... done
[18:42:02.466] result() for ClusterFuture ...
[18:42:02.467] - result already collected: FutureResult
[18:42:02.467] result() for ClusterFuture ... done
[18:42:02.467] result() for ClusterFuture ...
[18:42:02.467] - result already collected: FutureResult
[18:42:02.468] result() for ClusterFuture ... done
[18:42:02.468] result() for ClusterFuture ...
[18:42:02.468] - result already collected: FutureResult
[18:42:02.468] result() for ClusterFuture ... done
[18:42:02.469] - relayed: [n=2] TRUE, FALSE
[18:42:02.469] - queued futures: [n=2] TRUE, FALSE
[18:42:02.469] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:02.469]  length: 1 (resolved future 1)
[18:42:02.470] Future #2
[18:42:02.470] result() for ClusterFuture ...
[18:42:02.470] - result already collected: FutureResult
[18:42:02.470] result() for ClusterFuture ... done
[18:42:02.471] result() for ClusterFuture ...
[18:42:02.471] - result already collected: FutureResult
[18:42:02.471] result() for ClusterFuture ... done
[18:42:02.472] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:02.472] - nx: 2
[18:42:02.472] - relay: TRUE
[18:42:02.472] - stdout: TRUE
[18:42:02.472] - signal: TRUE
[18:42:02.473] - resignal: FALSE
[18:42:02.473] - force: TRUE
[18:42:02.473] - relayed: [n=2] TRUE, FALSE
[18:42:02.473] - queued futures: [n=2] TRUE, FALSE
[18:42:02.474]  - until=2
[18:42:02.474]  - relaying element #2
[18:42:02.474] result() for ClusterFuture ...
[18:42:02.475] - result already collected: FutureResult
[18:42:02.475] result() for ClusterFuture ... done
[18:42:02.475] result() for ClusterFuture ...
[18:42:02.475] - result already collected: FutureResult
[18:42:02.475] result() for ClusterFuture ... done
[18:42:02.476] result() for ClusterFuture ...
[18:42:02.476] - result already collected: FutureResult
[18:42:02.476] result() for ClusterFuture ... done
[18:42:02.477] result() for ClusterFuture ...
[18:42:02.477] - result already collected: FutureResult
[18:42:02.477] result() for ClusterFuture ... done
[18:42:02.477] - relayed: [n=2] TRUE, TRUE
[18:42:02.478] - queued futures: [n=2] TRUE, TRUE
[18:42:02.478] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:02.478]  length: 0 (resolved future 2)
[18:42:02.478] Relaying remaining futures
[18:42:02.479] signalConditionsASAP(NULL, pos=0) ...
[18:42:02.479] - nx: 2
[18:42:02.479] - relay: TRUE
[18:42:02.479] - stdout: TRUE
[18:42:02.480] - signal: TRUE
[18:42:02.480] - resignal: FALSE
[18:42:02.480] - force: TRUE
[18:42:02.480] - relayed: [n=2] TRUE, TRUE
[18:42:02.481] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:02.481] - relayed: [n=2] TRUE, TRUE
[18:42:02.481] - queued futures: [n=2] TRUE, TRUE
[18:42:02.481] signalConditionsASAP(NULL, pos=0) ... done
[18:42:02.482] resolve() on list ... DONE
[18:42:02.482] result() for ClusterFuture ...
[18:42:02.482] - result already collected: FutureResult
[18:42:02.482] result() for ClusterFuture ... done
[18:42:02.483] result() for ClusterFuture ...
[18:42:02.483] - result already collected: FutureResult
[18:42:02.483] result() for ClusterFuture ... done
[18:42:02.483] result() for ClusterFuture ...
[18:42:02.484] - result already collected: FutureResult
[18:42:02.487] result() for ClusterFuture ... done
[18:42:02.488] result() for ClusterFuture ...
[18:42:02.488] - result already collected: FutureResult
[18:42:02.488] result() for ClusterFuture ... done
[18:42:02.488]  - Number of value chunks collected: 2
[18:42:02.489] Resolving 2 futures (chunks) ... DONE
[18:42:02.489] Reducing values from 2 chunks ...
[18:42:02.489]  - Number of values collected after concatenation: 10
[18:42:02.490]  - Number of values expected: 10
[18:42:02.490] Reducing values from 2 chunks ... DONE
[18:42:02.490] future_lapply() ... DONE
 num [1:2, 1:10] 1 1 2 4 3 9 4 16 5 25 ...
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
[18:42:02.492] future_lapply() ...
[18:42:02.500] Number of chunks: 2
[18:42:02.500] getGlobalsAndPackagesXApply() ...
[18:42:02.500]  - future.globals: TRUE
[18:42:02.500] getGlobalsAndPackages() ...
[18:42:02.501] Searching for globals...
[18:42:02.508] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'matrix'
[18:42:02.508] Searching for globals ... DONE
[18:42:02.508] Resolving globals: FALSE
[18:42:02.510] The total size of the 7 globals is 13.59 KiB (13914 bytes)
[18:42:02.511] The total size of the 7 globals exported for future expression ('FUN()') is 13.59 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (5.06 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:02.511] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.512] - packages: [1] 'future.apply'
[18:42:02.512] getGlobalsAndPackages() ... DONE
[18:42:02.512]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.513]  - needed namespaces: [n=1] 'future.apply'
[18:42:02.513] Finding globals ... DONE
[18:42:02.513]  - use_args: TRUE
[18:42:02.514]  - Getting '...' globals ...
[18:42:02.514] resolve() on list ...
[18:42:02.515]  recursive: 0
[18:42:02.515]  length: 1
[18:42:02.515]  elements: '...'
[18:42:02.515]  length: 0 (resolved future 1)
[18:42:02.516] resolve() on list ... DONE
[18:42:02.516]    - '...' content: [n=0] 
[18:42:02.516] List of 1
[18:42:02.516]  $ ...: list()
[18:42:02.516]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.516]  - attr(*, "where")=List of 1
[18:42:02.516]   ..$ ...:<environment: 0x000002ea0657d5f8> 
[18:42:02.516]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.516]  - attr(*, "resolved")= logi TRUE
[18:42:02.516]  - attr(*, "total_size")= num NA
[18:42:02.521]  - Getting '...' globals ... DONE
[18:42:02.521] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:02.522] List of 8
[18:42:02.522]  $ ...future.FUN:function (x, ...)  
[18:42:02.522]  $ x_FUN        :function (x)  
[18:42:02.522]  $ times        : int 4
[18:42:02.522]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:02.522]  $ stop_if_not  :function (...)  
[18:42:02.522]  $ dim          : int [1:2] 2 2
[18:42:02.522]  $ valid_types  : chr [1:2] "logical" "integer"
[18:42:02.522]  $ ...          : list()
[18:42:02.522]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.522]  - attr(*, "where")=List of 8
[18:42:02.522]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:02.522]   ..$ ...          :<environment: 0x000002ea0657d5f8> 
[18:42:02.522]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.522]  - attr(*, "resolved")= logi FALSE
[18:42:02.522]  - attr(*, "total_size")= int 24886
[18:42:02.533] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:02.533] getGlobalsAndPackagesXApply() ... DONE
[18:42:02.534] Number of futures (= number of chunks): 2
[18:42:02.534] Launching 2 futures (chunks) ...
[18:42:02.534] Chunk #1 of 2 ...
[18:42:02.534]  - Finding globals in 'X' for chunk #1 ...
[18:42:02.535] getGlobalsAndPackages() ...
[18:42:02.535] Searching for globals...
[18:42:02.535] 
[18:42:02.536] Searching for globals ... DONE
[18:42:02.536] - globals: [0] <none>
[18:42:02.536] getGlobalsAndPackages() ... DONE
[18:42:02.537]    + additional globals found: [n=0] 
[18:42:02.537]    + additional namespaces needed: [n=0] 
[18:42:02.537]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:02.537]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.538]  - seeds: <none>
[18:42:02.538]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.538] getGlobalsAndPackages() ...
[18:42:02.538] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.539] Resolving globals: FALSE
[18:42:02.539] Tweak future expression to call with '...' arguments ...
[18:42:02.539] {
[18:42:02.539]     do.call(function(...) {
[18:42:02.539]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.539]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.539]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.539]             on.exit(options(oopts), add = TRUE)
[18:42:02.539]         }
[18:42:02.539]         {
[18:42:02.539]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.539]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.539]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.539]             })
[18:42:02.539]         }
[18:42:02.539]     }, args = future.call.arguments)
[18:42:02.539] }
[18:42:02.540] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.541] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.541] - packages: [1] 'future.apply'
[18:42:02.542] getGlobalsAndPackages() ... DONE
[18:42:02.542] run() for 'Future' ...
[18:42:02.543] - state: 'created'
[18:42:02.543] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.563] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.563] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.564]   - Field: 'node'
[18:42:02.564]   - Field: 'label'
[18:42:02.564]   - Field: 'local'
[18:42:02.565]   - Field: 'owner'
[18:42:02.565]   - Field: 'envir'
[18:42:02.565]   - Field: 'workers'
[18:42:02.566]   - Field: 'packages'
[18:42:02.566]   - Field: 'gc'
[18:42:02.566]   - Field: 'conditions'
[18:42:02.566]   - Field: 'persistent'
[18:42:02.567]   - Field: 'expr'
[18:42:02.567]   - Field: 'uuid'
[18:42:02.567]   - Field: 'seed'
[18:42:02.567]   - Field: 'version'
[18:42:02.568]   - Field: 'result'
[18:42:02.568]   - Field: 'asynchronous'
[18:42:02.568]   - Field: 'calls'
[18:42:02.569]   - Field: 'globals'
[18:42:02.569]   - Field: 'stdout'
[18:42:02.569]   - Field: 'earlySignal'
[18:42:02.569]   - Field: 'lazy'
[18:42:02.570]   - Field: 'state'
[18:42:02.570] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.570] - Launch lazy future ...
[18:42:02.571] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.571] Packages needed by future strategies (n = 0): <none>
[18:42:02.572] {
[18:42:02.572]     {
[18:42:02.572]         {
[18:42:02.572]             ...future.startTime <- base::Sys.time()
[18:42:02.572]             {
[18:42:02.572]                 {
[18:42:02.572]                   {
[18:42:02.572]                     {
[18:42:02.572]                       {
[18:42:02.572]                         base::local({
[18:42:02.572]                           has_future <- base::requireNamespace("future", 
[18:42:02.572]                             quietly = TRUE)
[18:42:02.572]                           if (has_future) {
[18:42:02.572]                             ns <- base::getNamespace("future")
[18:42:02.572]                             version <- ns[[".package"]][["version"]]
[18:42:02.572]                             if (is.null(version)) 
[18:42:02.572]                               version <- utils::packageVersion("future")
[18:42:02.572]                           }
[18:42:02.572]                           else {
[18:42:02.572]                             version <- NULL
[18:42:02.572]                           }
[18:42:02.572]                           if (!has_future || version < "1.8.0") {
[18:42:02.572]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.572]                               "", base::R.version$version.string), 
[18:42:02.572]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.572]                                 base::R.version$platform, 8 * 
[18:42:02.572]                                   base::.Machine$sizeof.pointer), 
[18:42:02.572]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.572]                                 "release", "version")], collapse = " "), 
[18:42:02.572]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.572]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.572]                               info)
[18:42:02.572]                             info <- base::paste(info, collapse = "; ")
[18:42:02.572]                             if (!has_future) {
[18:42:02.572]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.572]                                 info)
[18:42:02.572]                             }
[18:42:02.572]                             else {
[18:42:02.572]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.572]                                 info, version)
[18:42:02.572]                             }
[18:42:02.572]                             base::stop(msg)
[18:42:02.572]                           }
[18:42:02.572]                         })
[18:42:02.572]                       }
[18:42:02.572]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.572]                       base::options(mc.cores = 1L)
[18:42:02.572]                     }
[18:42:02.572]                     base::local({
[18:42:02.572]                       for (pkg in "future.apply") {
[18:42:02.572]                         base::loadNamespace(pkg)
[18:42:02.572]                         base::library(pkg, character.only = TRUE)
[18:42:02.572]                       }
[18:42:02.572]                     })
[18:42:02.572]                   }
[18:42:02.572]                   ...future.strategy.old <- future::plan("list")
[18:42:02.572]                   options(future.plan = NULL)
[18:42:02.572]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.572]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.572]                 }
[18:42:02.572]                 ...future.workdir <- getwd()
[18:42:02.572]             }
[18:42:02.572]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.572]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.572]         }
[18:42:02.572]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.572]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.572]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.572]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.572]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.572]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.572]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.572]             base::names(...future.oldOptions))
[18:42:02.572]     }
[18:42:02.572]     if (FALSE) {
[18:42:02.572]     }
[18:42:02.572]     else {
[18:42:02.572]         if (TRUE) {
[18:42:02.572]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.572]                 open = "w")
[18:42:02.572]         }
[18:42:02.572]         else {
[18:42:02.572]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.572]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.572]         }
[18:42:02.572]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.572]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.572]             base::sink(type = "output", split = FALSE)
[18:42:02.572]             base::close(...future.stdout)
[18:42:02.572]         }, add = TRUE)
[18:42:02.572]     }
[18:42:02.572]     ...future.frame <- base::sys.nframe()
[18:42:02.572]     ...future.conditions <- base::list()
[18:42:02.572]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.572]     if (FALSE) {
[18:42:02.572]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.572]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.572]     }
[18:42:02.572]     ...future.result <- base::tryCatch({
[18:42:02.572]         base::withCallingHandlers({
[18:42:02.572]             ...future.value <- base::withVisible(base::local({
[18:42:02.572]                 ...future.makeSendCondition <- base::local({
[18:42:02.572]                   sendCondition <- NULL
[18:42:02.572]                   function(frame = 1L) {
[18:42:02.572]                     if (is.function(sendCondition)) 
[18:42:02.572]                       return(sendCondition)
[18:42:02.572]                     ns <- getNamespace("parallel")
[18:42:02.572]                     if (exists("sendData", mode = "function", 
[18:42:02.572]                       envir = ns)) {
[18:42:02.572]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.572]                         envir = ns)
[18:42:02.572]                       envir <- sys.frame(frame)
[18:42:02.572]                       master <- NULL
[18:42:02.572]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.572]                         !identical(envir, emptyenv())) {
[18:42:02.572]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.572]                           inherits = FALSE)) {
[18:42:02.572]                           master <- get("master", mode = "list", 
[18:42:02.572]                             envir = envir, inherits = FALSE)
[18:42:02.572]                           if (inherits(master, c("SOCKnode", 
[18:42:02.572]                             "SOCK0node"))) {
[18:42:02.572]                             sendCondition <<- function(cond) {
[18:42:02.572]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.572]                                 success = TRUE)
[18:42:02.572]                               parallel_sendData(master, data)
[18:42:02.572]                             }
[18:42:02.572]                             return(sendCondition)
[18:42:02.572]                           }
[18:42:02.572]                         }
[18:42:02.572]                         frame <- frame + 1L
[18:42:02.572]                         envir <- sys.frame(frame)
[18:42:02.572]                       }
[18:42:02.572]                     }
[18:42:02.572]                     sendCondition <<- function(cond) NULL
[18:42:02.572]                   }
[18:42:02.572]                 })
[18:42:02.572]                 withCallingHandlers({
[18:42:02.572]                   {
[18:42:02.572]                     do.call(function(...) {
[18:42:02.572]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.572]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.572]                         ...future.globals.maxSize)) {
[18:42:02.572]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.572]                         on.exit(options(oopts), add = TRUE)
[18:42:02.572]                       }
[18:42:02.572]                       {
[18:42:02.572]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.572]                           FUN = function(jj) {
[18:42:02.572]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.572]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.572]                           })
[18:42:02.572]                       }
[18:42:02.572]                     }, args = future.call.arguments)
[18:42:02.572]                   }
[18:42:02.572]                 }, immediateCondition = function(cond) {
[18:42:02.572]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.572]                   sendCondition(cond)
[18:42:02.572]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.572]                   {
[18:42:02.572]                     inherits <- base::inherits
[18:42:02.572]                     invokeRestart <- base::invokeRestart
[18:42:02.572]                     is.null <- base::is.null
[18:42:02.572]                     muffled <- FALSE
[18:42:02.572]                     if (inherits(cond, "message")) {
[18:42:02.572]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.572]                       if (muffled) 
[18:42:02.572]                         invokeRestart("muffleMessage")
[18:42:02.572]                     }
[18:42:02.572]                     else if (inherits(cond, "warning")) {
[18:42:02.572]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.572]                       if (muffled) 
[18:42:02.572]                         invokeRestart("muffleWarning")
[18:42:02.572]                     }
[18:42:02.572]                     else if (inherits(cond, "condition")) {
[18:42:02.572]                       if (!is.null(pattern)) {
[18:42:02.572]                         computeRestarts <- base::computeRestarts
[18:42:02.572]                         grepl <- base::grepl
[18:42:02.572]                         restarts <- computeRestarts(cond)
[18:42:02.572]                         for (restart in restarts) {
[18:42:02.572]                           name <- restart$name
[18:42:02.572]                           if (is.null(name)) 
[18:42:02.572]                             next
[18:42:02.572]                           if (!grepl(pattern, name)) 
[18:42:02.572]                             next
[18:42:02.572]                           invokeRestart(restart)
[18:42:02.572]                           muffled <- TRUE
[18:42:02.572]                           break
[18:42:02.572]                         }
[18:42:02.572]                       }
[18:42:02.572]                     }
[18:42:02.572]                     invisible(muffled)
[18:42:02.572]                   }
[18:42:02.572]                   muffleCondition(cond)
[18:42:02.572]                 })
[18:42:02.572]             }))
[18:42:02.572]             future::FutureResult(value = ...future.value$value, 
[18:42:02.572]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.572]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.572]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.572]                     ...future.globalenv.names))
[18:42:02.572]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.572]         }, condition = base::local({
[18:42:02.572]             c <- base::c
[18:42:02.572]             inherits <- base::inherits
[18:42:02.572]             invokeRestart <- base::invokeRestart
[18:42:02.572]             length <- base::length
[18:42:02.572]             list <- base::list
[18:42:02.572]             seq.int <- base::seq.int
[18:42:02.572]             signalCondition <- base::signalCondition
[18:42:02.572]             sys.calls <- base::sys.calls
[18:42:02.572]             `[[` <- base::`[[`
[18:42:02.572]             `+` <- base::`+`
[18:42:02.572]             `<<-` <- base::`<<-`
[18:42:02.572]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.572]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.572]                   3L)]
[18:42:02.572]             }
[18:42:02.572]             function(cond) {
[18:42:02.572]                 is_error <- inherits(cond, "error")
[18:42:02.572]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.572]                   NULL)
[18:42:02.572]                 if (is_error) {
[18:42:02.572]                   sessionInformation <- function() {
[18:42:02.572]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.572]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.572]                       search = base::search(), system = base::Sys.info())
[18:42:02.572]                   }
[18:42:02.572]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.572]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.572]                     cond$call), session = sessionInformation(), 
[18:42:02.572]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.572]                   signalCondition(cond)
[18:42:02.572]                 }
[18:42:02.572]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.572]                 "immediateCondition"))) {
[18:42:02.572]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.572]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.572]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.572]                   if (TRUE && !signal) {
[18:42:02.572]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.572]                     {
[18:42:02.572]                       inherits <- base::inherits
[18:42:02.572]                       invokeRestart <- base::invokeRestart
[18:42:02.572]                       is.null <- base::is.null
[18:42:02.572]                       muffled <- FALSE
[18:42:02.572]                       if (inherits(cond, "message")) {
[18:42:02.572]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.572]                         if (muffled) 
[18:42:02.572]                           invokeRestart("muffleMessage")
[18:42:02.572]                       }
[18:42:02.572]                       else if (inherits(cond, "warning")) {
[18:42:02.572]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.572]                         if (muffled) 
[18:42:02.572]                           invokeRestart("muffleWarning")
[18:42:02.572]                       }
[18:42:02.572]                       else if (inherits(cond, "condition")) {
[18:42:02.572]                         if (!is.null(pattern)) {
[18:42:02.572]                           computeRestarts <- base::computeRestarts
[18:42:02.572]                           grepl <- base::grepl
[18:42:02.572]                           restarts <- computeRestarts(cond)
[18:42:02.572]                           for (restart in restarts) {
[18:42:02.572]                             name <- restart$name
[18:42:02.572]                             if (is.null(name)) 
[18:42:02.572]                               next
[18:42:02.572]                             if (!grepl(pattern, name)) 
[18:42:02.572]                               next
[18:42:02.572]                             invokeRestart(restart)
[18:42:02.572]                             muffled <- TRUE
[18:42:02.572]                             break
[18:42:02.572]                           }
[18:42:02.572]                         }
[18:42:02.572]                       }
[18:42:02.572]                       invisible(muffled)
[18:42:02.572]                     }
[18:42:02.572]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.572]                   }
[18:42:02.572]                 }
[18:42:02.572]                 else {
[18:42:02.572]                   if (TRUE) {
[18:42:02.572]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.572]                     {
[18:42:02.572]                       inherits <- base::inherits
[18:42:02.572]                       invokeRestart <- base::invokeRestart
[18:42:02.572]                       is.null <- base::is.null
[18:42:02.572]                       muffled <- FALSE
[18:42:02.572]                       if (inherits(cond, "message")) {
[18:42:02.572]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.572]                         if (muffled) 
[18:42:02.572]                           invokeRestart("muffleMessage")
[18:42:02.572]                       }
[18:42:02.572]                       else if (inherits(cond, "warning")) {
[18:42:02.572]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.572]                         if (muffled) 
[18:42:02.572]                           invokeRestart("muffleWarning")
[18:42:02.572]                       }
[18:42:02.572]                       else if (inherits(cond, "condition")) {
[18:42:02.572]                         if (!is.null(pattern)) {
[18:42:02.572]                           computeRestarts <- base::computeRestarts
[18:42:02.572]                           grepl <- base::grepl
[18:42:02.572]                           restarts <- computeRestarts(cond)
[18:42:02.572]                           for (restart in restarts) {
[18:42:02.572]                             name <- restart$name
[18:42:02.572]                             if (is.null(name)) 
[18:42:02.572]                               next
[18:42:02.572]                             if (!grepl(pattern, name)) 
[18:42:02.572]                               next
[18:42:02.572]                             invokeRestart(restart)
[18:42:02.572]                             muffled <- TRUE
[18:42:02.572]                             break
[18:42:02.572]                           }
[18:42:02.572]                         }
[18:42:02.572]                       }
[18:42:02.572]                       invisible(muffled)
[18:42:02.572]                     }
[18:42:02.572]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.572]                   }
[18:42:02.572]                 }
[18:42:02.572]             }
[18:42:02.572]         }))
[18:42:02.572]     }, error = function(ex) {
[18:42:02.572]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.572]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.572]                 ...future.rng), started = ...future.startTime, 
[18:42:02.572]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.572]             version = "1.8"), class = "FutureResult")
[18:42:02.572]     }, finally = {
[18:42:02.572]         if (!identical(...future.workdir, getwd())) 
[18:42:02.572]             setwd(...future.workdir)
[18:42:02.572]         {
[18:42:02.572]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.572]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.572]             }
[18:42:02.572]             base::options(...future.oldOptions)
[18:42:02.572]             if (.Platform$OS.type == "windows") {
[18:42:02.572]                 old_names <- names(...future.oldEnvVars)
[18:42:02.572]                 envs <- base::Sys.getenv()
[18:42:02.572]                 names <- names(envs)
[18:42:02.572]                 common <- intersect(names, old_names)
[18:42:02.572]                 added <- setdiff(names, old_names)
[18:42:02.572]                 removed <- setdiff(old_names, names)
[18:42:02.572]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.572]                   envs[common]]
[18:42:02.572]                 NAMES <- toupper(changed)
[18:42:02.572]                 args <- list()
[18:42:02.572]                 for (kk in seq_along(NAMES)) {
[18:42:02.572]                   name <- changed[[kk]]
[18:42:02.572]                   NAME <- NAMES[[kk]]
[18:42:02.572]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.572]                     next
[18:42:02.572]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.572]                 }
[18:42:02.572]                 NAMES <- toupper(added)
[18:42:02.572]                 for (kk in seq_along(NAMES)) {
[18:42:02.572]                   name <- added[[kk]]
[18:42:02.572]                   NAME <- NAMES[[kk]]
[18:42:02.572]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.572]                     next
[18:42:02.572]                   args[[name]] <- ""
[18:42:02.572]                 }
[18:42:02.572]                 NAMES <- toupper(removed)
[18:42:02.572]                 for (kk in seq_along(NAMES)) {
[18:42:02.572]                   name <- removed[[kk]]
[18:42:02.572]                   NAME <- NAMES[[kk]]
[18:42:02.572]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.572]                     next
[18:42:02.572]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.572]                 }
[18:42:02.572]                 if (length(args) > 0) 
[18:42:02.572]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.572]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.572]             }
[18:42:02.572]             else {
[18:42:02.572]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.572]             }
[18:42:02.572]             {
[18:42:02.572]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.572]                   0L) {
[18:42:02.572]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.572]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.572]                   base::options(opts)
[18:42:02.572]                 }
[18:42:02.572]                 {
[18:42:02.572]                   {
[18:42:02.572]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.572]                     NULL
[18:42:02.572]                   }
[18:42:02.572]                   options(future.plan = NULL)
[18:42:02.572]                   if (is.na(NA_character_)) 
[18:42:02.572]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.572]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.572]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.572]                     .init = FALSE)
[18:42:02.572]                 }
[18:42:02.572]             }
[18:42:02.572]         }
[18:42:02.572]     })
[18:42:02.572]     if (TRUE) {
[18:42:02.572]         base::sink(type = "output", split = FALSE)
[18:42:02.572]         if (TRUE) {
[18:42:02.572]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.572]         }
[18:42:02.572]         else {
[18:42:02.572]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.572]         }
[18:42:02.572]         base::close(...future.stdout)
[18:42:02.572]         ...future.stdout <- NULL
[18:42:02.572]     }
[18:42:02.572]     ...future.result$conditions <- ...future.conditions
[18:42:02.572]     ...future.result$finished <- base::Sys.time()
[18:42:02.572]     ...future.result
[18:42:02.572] }
[18:42:02.581] Exporting 11 global objects (14.01 KiB) to cluster node #1 ...
[18:42:02.582] Exporting '...future.FUN' (5.05 KiB) to cluster node #1 ...
[18:42:02.582] Exporting '...future.FUN' (5.05 KiB) to cluster node #1 ... DONE
[18:42:02.583] Exporting 'x_FUN' (567 bytes) to cluster node #1 ...
[18:42:02.583] Exporting 'x_FUN' (567 bytes) to cluster node #1 ... DONE
[18:42:02.583] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.584] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.584] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.585] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.585] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.586] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.586] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:02.587] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:02.587] Exporting 'valid_types' (61 bytes) to cluster node #1 ...
[18:42:02.588] Exporting 'valid_types' (61 bytes) to cluster node #1 ... DONE
[18:42:02.588] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.589] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.589] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.589] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.590] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.590] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.590] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.591] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.591] Exporting 11 global objects (14.01 KiB) to cluster node #1 ... DONE
[18:42:02.592] MultisessionFuture started
[18:42:02.592] - Launch lazy future ... done
[18:42:02.592] run() for 'MultisessionFuture' ... done
[18:42:02.593] Created future:
[18:42:02.620] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.620] - Validating connection of MultisessionFuture
[18:42:02.621] - received message: FutureResult
[18:42:02.621] - Received FutureResult
[18:42:02.621] - Erased future from FutureRegistry
[18:42:02.622] result() for ClusterFuture ...
[18:42:02.622] - result already collected: FutureResult
[18:42:02.622] result() for ClusterFuture ... done
[18:42:02.622] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.593] MultisessionFuture:
[18:42:02.593] Label: 'future_vapply-1'
[18:42:02.593] Expression:
[18:42:02.593] {
[18:42:02.593]     do.call(function(...) {
[18:42:02.593]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.593]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.593]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.593]             on.exit(options(oopts), add = TRUE)
[18:42:02.593]         }
[18:42:02.593]         {
[18:42:02.593]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.593]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.593]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.593]             })
[18:42:02.593]         }
[18:42:02.593]     }, args = future.call.arguments)
[18:42:02.593] }
[18:42:02.593] Lazy evaluation: FALSE
[18:42:02.593] Asynchronous evaluation: TRUE
[18:42:02.593] Local evaluation: TRUE
[18:42:02.593] Environment: R_GlobalEnv
[18:42:02.593] Capture standard output: TRUE
[18:42:02.593] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.593] Globals: 11 objects totaling 13.82 KiB (function '...future.FUN' of 5.05 KiB, function 'x_FUN' of 567 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.593] Packages: 1 packages ('future.apply')
[18:42:02.593] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.593] Resolved: TRUE
[18:42:02.593] Value: <not collected>
[18:42:02.593] Conditions captured: <none>
[18:42:02.593] Early signaling: FALSE
[18:42:02.593] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.593] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.623] Chunk #1 of 2 ... DONE
[18:42:02.623] Chunk #2 of 2 ...
[18:42:02.624]  - Finding globals in 'X' for chunk #2 ...
[18:42:02.624] getGlobalsAndPackages() ...
[18:42:02.624] Searching for globals...
[18:42:02.625] 
[18:42:02.625] Searching for globals ... DONE
[18:42:02.625] - globals: [0] <none>
[18:42:02.625] getGlobalsAndPackages() ... DONE
[18:42:02.626]    + additional globals found: [n=0] 
[18:42:02.626]    + additional namespaces needed: [n=0] 
[18:42:02.626]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:02.626]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.627]  - seeds: <none>
[18:42:02.627]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.627] getGlobalsAndPackages() ...
[18:42:02.627] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.628] Resolving globals: FALSE
[18:42:02.628] Tweak future expression to call with '...' arguments ...
[18:42:02.628] {
[18:42:02.628]     do.call(function(...) {
[18:42:02.628]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.628]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.628]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.628]             on.exit(options(oopts), add = TRUE)
[18:42:02.628]         }
[18:42:02.628]         {
[18:42:02.628]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.628]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.628]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.628]             })
[18:42:02.628]         }
[18:42:02.628]     }, args = future.call.arguments)
[18:42:02.628] }
[18:42:02.629] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.630] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.630] - packages: [1] 'future.apply'
[18:42:02.631] getGlobalsAndPackages() ... DONE
[18:42:02.631] run() for 'Future' ...
[18:42:02.632] - state: 'created'
[18:42:02.632] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.652] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.652] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.652]   - Field: 'node'
[18:42:02.653]   - Field: 'label'
[18:42:02.653]   - Field: 'local'
[18:42:02.653]   - Field: 'owner'
[18:42:02.653]   - Field: 'envir'
[18:42:02.654]   - Field: 'workers'
[18:42:02.654]   - Field: 'packages'
[18:42:02.654]   - Field: 'gc'
[18:42:02.655]   - Field: 'conditions'
[18:42:02.655]   - Field: 'persistent'
[18:42:02.655]   - Field: 'expr'
[18:42:02.655]   - Field: 'uuid'
[18:42:02.656]   - Field: 'seed'
[18:42:02.656]   - Field: 'version'
[18:42:02.656]   - Field: 'result'
[18:42:02.657]   - Field: 'asynchronous'
[18:42:02.657]   - Field: 'calls'
[18:42:02.657]   - Field: 'globals'
[18:42:02.657]   - Field: 'stdout'
[18:42:02.658]   - Field: 'earlySignal'
[18:42:02.658]   - Field: 'lazy'
[18:42:02.658]   - Field: 'state'
[18:42:02.659] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.659] - Launch lazy future ...
[18:42:02.659] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.660] Packages needed by future strategies (n = 0): <none>
[18:42:02.661] {
[18:42:02.661]     {
[18:42:02.661]         {
[18:42:02.661]             ...future.startTime <- base::Sys.time()
[18:42:02.661]             {
[18:42:02.661]                 {
[18:42:02.661]                   {
[18:42:02.661]                     {
[18:42:02.661]                       {
[18:42:02.661]                         base::local({
[18:42:02.661]                           has_future <- base::requireNamespace("future", 
[18:42:02.661]                             quietly = TRUE)
[18:42:02.661]                           if (has_future) {
[18:42:02.661]                             ns <- base::getNamespace("future")
[18:42:02.661]                             version <- ns[[".package"]][["version"]]
[18:42:02.661]                             if (is.null(version)) 
[18:42:02.661]                               version <- utils::packageVersion("future")
[18:42:02.661]                           }
[18:42:02.661]                           else {
[18:42:02.661]                             version <- NULL
[18:42:02.661]                           }
[18:42:02.661]                           if (!has_future || version < "1.8.0") {
[18:42:02.661]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.661]                               "", base::R.version$version.string), 
[18:42:02.661]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.661]                                 base::R.version$platform, 8 * 
[18:42:02.661]                                   base::.Machine$sizeof.pointer), 
[18:42:02.661]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.661]                                 "release", "version")], collapse = " "), 
[18:42:02.661]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.661]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.661]                               info)
[18:42:02.661]                             info <- base::paste(info, collapse = "; ")
[18:42:02.661]                             if (!has_future) {
[18:42:02.661]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.661]                                 info)
[18:42:02.661]                             }
[18:42:02.661]                             else {
[18:42:02.661]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.661]                                 info, version)
[18:42:02.661]                             }
[18:42:02.661]                             base::stop(msg)
[18:42:02.661]                           }
[18:42:02.661]                         })
[18:42:02.661]                       }
[18:42:02.661]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.661]                       base::options(mc.cores = 1L)
[18:42:02.661]                     }
[18:42:02.661]                     base::local({
[18:42:02.661]                       for (pkg in "future.apply") {
[18:42:02.661]                         base::loadNamespace(pkg)
[18:42:02.661]                         base::library(pkg, character.only = TRUE)
[18:42:02.661]                       }
[18:42:02.661]                     })
[18:42:02.661]                   }
[18:42:02.661]                   ...future.strategy.old <- future::plan("list")
[18:42:02.661]                   options(future.plan = NULL)
[18:42:02.661]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.661]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.661]                 }
[18:42:02.661]                 ...future.workdir <- getwd()
[18:42:02.661]             }
[18:42:02.661]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.661]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.661]         }
[18:42:02.661]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.661]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.661]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.661]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.661]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.661]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.661]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.661]             base::names(...future.oldOptions))
[18:42:02.661]     }
[18:42:02.661]     if (FALSE) {
[18:42:02.661]     }
[18:42:02.661]     else {
[18:42:02.661]         if (TRUE) {
[18:42:02.661]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.661]                 open = "w")
[18:42:02.661]         }
[18:42:02.661]         else {
[18:42:02.661]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.661]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.661]         }
[18:42:02.661]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.661]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.661]             base::sink(type = "output", split = FALSE)
[18:42:02.661]             base::close(...future.stdout)
[18:42:02.661]         }, add = TRUE)
[18:42:02.661]     }
[18:42:02.661]     ...future.frame <- base::sys.nframe()
[18:42:02.661]     ...future.conditions <- base::list()
[18:42:02.661]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.661]     if (FALSE) {
[18:42:02.661]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.661]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.661]     }
[18:42:02.661]     ...future.result <- base::tryCatch({
[18:42:02.661]         base::withCallingHandlers({
[18:42:02.661]             ...future.value <- base::withVisible(base::local({
[18:42:02.661]                 ...future.makeSendCondition <- base::local({
[18:42:02.661]                   sendCondition <- NULL
[18:42:02.661]                   function(frame = 1L) {
[18:42:02.661]                     if (is.function(sendCondition)) 
[18:42:02.661]                       return(sendCondition)
[18:42:02.661]                     ns <- getNamespace("parallel")
[18:42:02.661]                     if (exists("sendData", mode = "function", 
[18:42:02.661]                       envir = ns)) {
[18:42:02.661]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.661]                         envir = ns)
[18:42:02.661]                       envir <- sys.frame(frame)
[18:42:02.661]                       master <- NULL
[18:42:02.661]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.661]                         !identical(envir, emptyenv())) {
[18:42:02.661]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.661]                           inherits = FALSE)) {
[18:42:02.661]                           master <- get("master", mode = "list", 
[18:42:02.661]                             envir = envir, inherits = FALSE)
[18:42:02.661]                           if (inherits(master, c("SOCKnode", 
[18:42:02.661]                             "SOCK0node"))) {
[18:42:02.661]                             sendCondition <<- function(cond) {
[18:42:02.661]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.661]                                 success = TRUE)
[18:42:02.661]                               parallel_sendData(master, data)
[18:42:02.661]                             }
[18:42:02.661]                             return(sendCondition)
[18:42:02.661]                           }
[18:42:02.661]                         }
[18:42:02.661]                         frame <- frame + 1L
[18:42:02.661]                         envir <- sys.frame(frame)
[18:42:02.661]                       }
[18:42:02.661]                     }
[18:42:02.661]                     sendCondition <<- function(cond) NULL
[18:42:02.661]                   }
[18:42:02.661]                 })
[18:42:02.661]                 withCallingHandlers({
[18:42:02.661]                   {
[18:42:02.661]                     do.call(function(...) {
[18:42:02.661]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.661]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.661]                         ...future.globals.maxSize)) {
[18:42:02.661]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.661]                         on.exit(options(oopts), add = TRUE)
[18:42:02.661]                       }
[18:42:02.661]                       {
[18:42:02.661]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.661]                           FUN = function(jj) {
[18:42:02.661]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.661]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.661]                           })
[18:42:02.661]                       }
[18:42:02.661]                     }, args = future.call.arguments)
[18:42:02.661]                   }
[18:42:02.661]                 }, immediateCondition = function(cond) {
[18:42:02.661]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.661]                   sendCondition(cond)
[18:42:02.661]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.661]                   {
[18:42:02.661]                     inherits <- base::inherits
[18:42:02.661]                     invokeRestart <- base::invokeRestart
[18:42:02.661]                     is.null <- base::is.null
[18:42:02.661]                     muffled <- FALSE
[18:42:02.661]                     if (inherits(cond, "message")) {
[18:42:02.661]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.661]                       if (muffled) 
[18:42:02.661]                         invokeRestart("muffleMessage")
[18:42:02.661]                     }
[18:42:02.661]                     else if (inherits(cond, "warning")) {
[18:42:02.661]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.661]                       if (muffled) 
[18:42:02.661]                         invokeRestart("muffleWarning")
[18:42:02.661]                     }
[18:42:02.661]                     else if (inherits(cond, "condition")) {
[18:42:02.661]                       if (!is.null(pattern)) {
[18:42:02.661]                         computeRestarts <- base::computeRestarts
[18:42:02.661]                         grepl <- base::grepl
[18:42:02.661]                         restarts <- computeRestarts(cond)
[18:42:02.661]                         for (restart in restarts) {
[18:42:02.661]                           name <- restart$name
[18:42:02.661]                           if (is.null(name)) 
[18:42:02.661]                             next
[18:42:02.661]                           if (!grepl(pattern, name)) 
[18:42:02.661]                             next
[18:42:02.661]                           invokeRestart(restart)
[18:42:02.661]                           muffled <- TRUE
[18:42:02.661]                           break
[18:42:02.661]                         }
[18:42:02.661]                       }
[18:42:02.661]                     }
[18:42:02.661]                     invisible(muffled)
[18:42:02.661]                   }
[18:42:02.661]                   muffleCondition(cond)
[18:42:02.661]                 })
[18:42:02.661]             }))
[18:42:02.661]             future::FutureResult(value = ...future.value$value, 
[18:42:02.661]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.661]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.661]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.661]                     ...future.globalenv.names))
[18:42:02.661]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.661]         }, condition = base::local({
[18:42:02.661]             c <- base::c
[18:42:02.661]             inherits <- base::inherits
[18:42:02.661]             invokeRestart <- base::invokeRestart
[18:42:02.661]             length <- base::length
[18:42:02.661]             list <- base::list
[18:42:02.661]             seq.int <- base::seq.int
[18:42:02.661]             signalCondition <- base::signalCondition
[18:42:02.661]             sys.calls <- base::sys.calls
[18:42:02.661]             `[[` <- base::`[[`
[18:42:02.661]             `+` <- base::`+`
[18:42:02.661]             `<<-` <- base::`<<-`
[18:42:02.661]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.661]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.661]                   3L)]
[18:42:02.661]             }
[18:42:02.661]             function(cond) {
[18:42:02.661]                 is_error <- inherits(cond, "error")
[18:42:02.661]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.661]                   NULL)
[18:42:02.661]                 if (is_error) {
[18:42:02.661]                   sessionInformation <- function() {
[18:42:02.661]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.661]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.661]                       search = base::search(), system = base::Sys.info())
[18:42:02.661]                   }
[18:42:02.661]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.661]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.661]                     cond$call), session = sessionInformation(), 
[18:42:02.661]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.661]                   signalCondition(cond)
[18:42:02.661]                 }
[18:42:02.661]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.661]                 "immediateCondition"))) {
[18:42:02.661]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.661]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.661]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.661]                   if (TRUE && !signal) {
[18:42:02.661]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.661]                     {
[18:42:02.661]                       inherits <- base::inherits
[18:42:02.661]                       invokeRestart <- base::invokeRestart
[18:42:02.661]                       is.null <- base::is.null
[18:42:02.661]                       muffled <- FALSE
[18:42:02.661]                       if (inherits(cond, "message")) {
[18:42:02.661]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.661]                         if (muffled) 
[18:42:02.661]                           invokeRestart("muffleMessage")
[18:42:02.661]                       }
[18:42:02.661]                       else if (inherits(cond, "warning")) {
[18:42:02.661]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.661]                         if (muffled) 
[18:42:02.661]                           invokeRestart("muffleWarning")
[18:42:02.661]                       }
[18:42:02.661]                       else if (inherits(cond, "condition")) {
[18:42:02.661]                         if (!is.null(pattern)) {
[18:42:02.661]                           computeRestarts <- base::computeRestarts
[18:42:02.661]                           grepl <- base::grepl
[18:42:02.661]                           restarts <- computeRestarts(cond)
[18:42:02.661]                           for (restart in restarts) {
[18:42:02.661]                             name <- restart$name
[18:42:02.661]                             if (is.null(name)) 
[18:42:02.661]                               next
[18:42:02.661]                             if (!grepl(pattern, name)) 
[18:42:02.661]                               next
[18:42:02.661]                             invokeRestart(restart)
[18:42:02.661]                             muffled <- TRUE
[18:42:02.661]                             break
[18:42:02.661]                           }
[18:42:02.661]                         }
[18:42:02.661]                       }
[18:42:02.661]                       invisible(muffled)
[18:42:02.661]                     }
[18:42:02.661]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.661]                   }
[18:42:02.661]                 }
[18:42:02.661]                 else {
[18:42:02.661]                   if (TRUE) {
[18:42:02.661]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.661]                     {
[18:42:02.661]                       inherits <- base::inherits
[18:42:02.661]                       invokeRestart <- base::invokeRestart
[18:42:02.661]                       is.null <- base::is.null
[18:42:02.661]                       muffled <- FALSE
[18:42:02.661]                       if (inherits(cond, "message")) {
[18:42:02.661]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.661]                         if (muffled) 
[18:42:02.661]                           invokeRestart("muffleMessage")
[18:42:02.661]                       }
[18:42:02.661]                       else if (inherits(cond, "warning")) {
[18:42:02.661]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.661]                         if (muffled) 
[18:42:02.661]                           invokeRestart("muffleWarning")
[18:42:02.661]                       }
[18:42:02.661]                       else if (inherits(cond, "condition")) {
[18:42:02.661]                         if (!is.null(pattern)) {
[18:42:02.661]                           computeRestarts <- base::computeRestarts
[18:42:02.661]                           grepl <- base::grepl
[18:42:02.661]                           restarts <- computeRestarts(cond)
[18:42:02.661]                           for (restart in restarts) {
[18:42:02.661]                             name <- restart$name
[18:42:02.661]                             if (is.null(name)) 
[18:42:02.661]                               next
[18:42:02.661]                             if (!grepl(pattern, name)) 
[18:42:02.661]                               next
[18:42:02.661]                             invokeRestart(restart)
[18:42:02.661]                             muffled <- TRUE
[18:42:02.661]                             break
[18:42:02.661]                           }
[18:42:02.661]                         }
[18:42:02.661]                       }
[18:42:02.661]                       invisible(muffled)
[18:42:02.661]                     }
[18:42:02.661]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.661]                   }
[18:42:02.661]                 }
[18:42:02.661]             }
[18:42:02.661]         }))
[18:42:02.661]     }, error = function(ex) {
[18:42:02.661]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.661]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.661]                 ...future.rng), started = ...future.startTime, 
[18:42:02.661]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.661]             version = "1.8"), class = "FutureResult")
[18:42:02.661]     }, finally = {
[18:42:02.661]         if (!identical(...future.workdir, getwd())) 
[18:42:02.661]             setwd(...future.workdir)
[18:42:02.661]         {
[18:42:02.661]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.661]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.661]             }
[18:42:02.661]             base::options(...future.oldOptions)
[18:42:02.661]             if (.Platform$OS.type == "windows") {
[18:42:02.661]                 old_names <- names(...future.oldEnvVars)
[18:42:02.661]                 envs <- base::Sys.getenv()
[18:42:02.661]                 names <- names(envs)
[18:42:02.661]                 common <- intersect(names, old_names)
[18:42:02.661]                 added <- setdiff(names, old_names)
[18:42:02.661]                 removed <- setdiff(old_names, names)
[18:42:02.661]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.661]                   envs[common]]
[18:42:02.661]                 NAMES <- toupper(changed)
[18:42:02.661]                 args <- list()
[18:42:02.661]                 for (kk in seq_along(NAMES)) {
[18:42:02.661]                   name <- changed[[kk]]
[18:42:02.661]                   NAME <- NAMES[[kk]]
[18:42:02.661]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.661]                     next
[18:42:02.661]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.661]                 }
[18:42:02.661]                 NAMES <- toupper(added)
[18:42:02.661]                 for (kk in seq_along(NAMES)) {
[18:42:02.661]                   name <- added[[kk]]
[18:42:02.661]                   NAME <- NAMES[[kk]]
[18:42:02.661]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.661]                     next
[18:42:02.661]                   args[[name]] <- ""
[18:42:02.661]                 }
[18:42:02.661]                 NAMES <- toupper(removed)
[18:42:02.661]                 for (kk in seq_along(NAMES)) {
[18:42:02.661]                   name <- removed[[kk]]
[18:42:02.661]                   NAME <- NAMES[[kk]]
[18:42:02.661]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.661]                     next
[18:42:02.661]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.661]                 }
[18:42:02.661]                 if (length(args) > 0) 
[18:42:02.661]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.661]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.661]             }
[18:42:02.661]             else {
[18:42:02.661]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.661]             }
[18:42:02.661]             {
[18:42:02.661]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.661]                   0L) {
[18:42:02.661]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.661]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.661]                   base::options(opts)
[18:42:02.661]                 }
[18:42:02.661]                 {
[18:42:02.661]                   {
[18:42:02.661]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.661]                     NULL
[18:42:02.661]                   }
[18:42:02.661]                   options(future.plan = NULL)
[18:42:02.661]                   if (is.na(NA_character_)) 
[18:42:02.661]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.661]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.661]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.661]                     .init = FALSE)
[18:42:02.661]                 }
[18:42:02.661]             }
[18:42:02.661]         }
[18:42:02.661]     })
[18:42:02.661]     if (TRUE) {
[18:42:02.661]         base::sink(type = "output", split = FALSE)
[18:42:02.661]         if (TRUE) {
[18:42:02.661]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.661]         }
[18:42:02.661]         else {
[18:42:02.661]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.661]         }
[18:42:02.661]         base::close(...future.stdout)
[18:42:02.661]         ...future.stdout <- NULL
[18:42:02.661]     }
[18:42:02.661]     ...future.result$conditions <- ...future.conditions
[18:42:02.661]     ...future.result$finished <- base::Sys.time()
[18:42:02.661]     ...future.result
[18:42:02.661] }
[18:42:02.670] Exporting 11 global objects (14.01 KiB) to cluster node #1 ...
[18:42:02.671] Exporting '...future.FUN' (5.05 KiB) to cluster node #1 ...
[18:42:02.671] Exporting '...future.FUN' (5.05 KiB) to cluster node #1 ... DONE
[18:42:02.672] Exporting 'x_FUN' (567 bytes) to cluster node #1 ...
[18:42:02.672] Exporting 'x_FUN' (567 bytes) to cluster node #1 ... DONE
[18:42:02.672] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.673] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.673] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.674] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.674] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.675] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.675] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:02.676] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:02.676] Exporting 'valid_types' (61 bytes) to cluster node #1 ...
[18:42:02.677] Exporting 'valid_types' (61 bytes) to cluster node #1 ... DONE
[18:42:02.677] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.678] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.678] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.679] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.679] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.679] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.680] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.680] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.681] Exporting 11 global objects (14.01 KiB) to cluster node #1 ... DONE
[18:42:02.682] MultisessionFuture started
[18:42:02.682] - Launch lazy future ... done
[18:42:02.682] run() for 'MultisessionFuture' ... done
[18:42:02.682] Created future:
[18:42:02.713] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.713] - Validating connection of MultisessionFuture
[18:42:02.713] - received message: FutureResult
[18:42:02.713] - Received FutureResult
[18:42:02.714] - Erased future from FutureRegistry
[18:42:02.714] result() for ClusterFuture ...
[18:42:02.714] - result already collected: FutureResult
[18:42:02.714] result() for ClusterFuture ... done
[18:42:02.714] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.683] MultisessionFuture:
[18:42:02.683] Label: 'future_vapply-2'
[18:42:02.683] Expression:
[18:42:02.683] {
[18:42:02.683]     do.call(function(...) {
[18:42:02.683]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.683]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.683]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.683]             on.exit(options(oopts), add = TRUE)
[18:42:02.683]         }
[18:42:02.683]         {
[18:42:02.683]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.683]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.683]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.683]             })
[18:42:02.683]         }
[18:42:02.683]     }, args = future.call.arguments)
[18:42:02.683] }
[18:42:02.683] Lazy evaluation: FALSE
[18:42:02.683] Asynchronous evaluation: TRUE
[18:42:02.683] Local evaluation: TRUE
[18:42:02.683] Environment: R_GlobalEnv
[18:42:02.683] Capture standard output: TRUE
[18:42:02.683] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.683] Globals: 11 objects totaling 13.82 KiB (function '...future.FUN' of 5.05 KiB, function 'x_FUN' of 567 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.683] Packages: 1 packages ('future.apply')
[18:42:02.683] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.683] Resolved: TRUE
[18:42:02.683] Value: <not collected>
[18:42:02.683] Conditions captured: <none>
[18:42:02.683] Early signaling: FALSE
[18:42:02.683] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.683] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.715] Chunk #2 of 2 ... DONE
[18:42:02.715] Launching 2 futures (chunks) ... DONE
[18:42:02.715] Resolving 2 futures (chunks) ...
[18:42:02.715] resolve() on list ...
[18:42:02.715]  recursive: 0
[18:42:02.716]  length: 2
[18:42:02.716] 
[18:42:02.716] Future #1
[18:42:02.716] result() for ClusterFuture ...
[18:42:02.716] - result already collected: FutureResult
[18:42:02.716] result() for ClusterFuture ... done
[18:42:02.716] result() for ClusterFuture ...
[18:42:02.717] - result already collected: FutureResult
[18:42:02.717] result() for ClusterFuture ... done
[18:42:02.717] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:02.717] - nx: 2
[18:42:02.717] - relay: TRUE
[18:42:02.717] - stdout: TRUE
[18:42:02.718] - signal: TRUE
[18:42:02.718] - resignal: FALSE
[18:42:02.718] - force: TRUE
[18:42:02.718] - relayed: [n=2] FALSE, FALSE
[18:42:02.718] - queued futures: [n=2] FALSE, FALSE
[18:42:02.718]  - until=1
[18:42:02.718]  - relaying element #1
[18:42:02.719] result() for ClusterFuture ...
[18:42:02.719] - result already collected: FutureResult
[18:42:02.719] result() for ClusterFuture ... done
[18:42:02.719] result() for ClusterFuture ...
[18:42:02.719] - result already collected: FutureResult
[18:42:02.719] result() for ClusterFuture ... done
[18:42:02.720] result() for ClusterFuture ...
[18:42:02.720] - result already collected: FutureResult
[18:42:02.720] result() for ClusterFuture ... done
[18:42:02.720] result() for ClusterFuture ...
[18:42:02.720] - result already collected: FutureResult
[18:42:02.720] result() for ClusterFuture ... done
[18:42:02.720] - relayed: [n=2] TRUE, FALSE
[18:42:02.721] - queued futures: [n=2] TRUE, FALSE
[18:42:02.721] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:02.721]  length: 1 (resolved future 1)
[18:42:02.721] Future #2
[18:42:02.721] result() for ClusterFuture ...
[18:42:02.721] - result already collected: FutureResult
[18:42:02.722] result() for ClusterFuture ... done
[18:42:02.722] result() for ClusterFuture ...
[18:42:02.722] - result already collected: FutureResult
[18:42:02.722] result() for ClusterFuture ... done
[18:42:02.722] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:02.722] - nx: 2
[18:42:02.723] - relay: TRUE
[18:42:02.723] - stdout: TRUE
[18:42:02.723] - signal: TRUE
[18:42:02.723] - resignal: FALSE
[18:42:02.723] - force: TRUE
[18:42:02.723] - relayed: [n=2] TRUE, FALSE
[18:42:02.723] - queued futures: [n=2] TRUE, FALSE
[18:42:02.724]  - until=2
[18:42:02.724]  - relaying element #2
[18:42:02.724] result() for ClusterFuture ...
[18:42:02.724] - result already collected: FutureResult
[18:42:02.724] result() for ClusterFuture ... done
[18:42:02.724] result() for ClusterFuture ...
[18:42:02.725] - result already collected: FutureResult
[18:42:02.725] result() for ClusterFuture ... done
[18:42:02.725] result() for ClusterFuture ...
[18:42:02.725] - result already collected: FutureResult
[18:42:02.725] result() for ClusterFuture ... done
[18:42:02.725] result() for ClusterFuture ...
[18:42:02.726] - result already collected: FutureResult
[18:42:02.726] result() for ClusterFuture ... done
[18:42:02.726] - relayed: [n=2] TRUE, TRUE
[18:42:02.726] - queued futures: [n=2] TRUE, TRUE
[18:42:02.726] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:02.726]  length: 0 (resolved future 2)
[18:42:02.727] Relaying remaining futures
[18:42:02.727] signalConditionsASAP(NULL, pos=0) ...
[18:42:02.727] - nx: 2
[18:42:02.727] - relay: TRUE
[18:42:02.727] - stdout: TRUE
[18:42:02.727] - signal: TRUE
[18:42:02.727] - resignal: FALSE
[18:42:02.728] - force: TRUE
[18:42:02.728] - relayed: [n=2] TRUE, TRUE
[18:42:02.728] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:02.728] - relayed: [n=2] TRUE, TRUE
[18:42:02.728] - queued futures: [n=2] TRUE, TRUE
[18:42:02.728] signalConditionsASAP(NULL, pos=0) ... done
[18:42:02.729] resolve() on list ... DONE
[18:42:02.729] result() for ClusterFuture ...
[18:42:02.729] - result already collected: FutureResult
[18:42:02.729] result() for ClusterFuture ... done
[18:42:02.729] result() for ClusterFuture ...
[18:42:02.729] - result already collected: FutureResult
[18:42:02.729] result() for ClusterFuture ... done
[18:42:02.730] result() for ClusterFuture ...
[18:42:02.730] - result already collected: FutureResult
[18:42:02.730] result() for ClusterFuture ... done
[18:42:02.730] result() for ClusterFuture ...
[18:42:02.730] - result already collected: FutureResult
[18:42:02.730] result() for ClusterFuture ... done
[18:42:02.731]  - Number of value chunks collected: 2
[18:42:02.731] Resolving 2 futures (chunks) ... DONE
[18:42:02.731] Reducing values from 2 chunks ...
[18:42:02.731]  - Number of values collected after concatenation: 10
[18:42:02.731]  - Number of values expected: 10
[18:42:02.731] Reducing values from 2 chunks ... DONE
[18:42:02.732] future_lapply() ... DONE
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
[18:42:02.733] future_lapply() ...
[18:42:02.738] Number of chunks: 2
[18:42:02.738] getGlobalsAndPackagesXApply() ...
[18:42:02.738]  - future.globals: TRUE
[18:42:02.738] getGlobalsAndPackages() ...
[18:42:02.738] Searching for globals...
[18:42:02.749] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'matrix'
[18:42:02.750] Searching for globals ... DONE
[18:42:02.750] Resolving globals: FALSE
[18:42:02.752] The total size of the 7 globals is 13.63 KiB (13957 bytes)
[18:42:02.753] The total size of the 7 globals exported for future expression ('FUN()') is 13.63 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (5.09 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:02.753] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.754] - packages: [1] 'future.apply'
[18:42:02.754] getGlobalsAndPackages() ... DONE
[18:42:02.754]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:02.755]  - needed namespaces: [n=1] 'future.apply'
[18:42:02.755] Finding globals ... DONE
[18:42:02.755]  - use_args: TRUE
[18:42:02.756]  - Getting '...' globals ...
[18:42:02.756] resolve() on list ...
[18:42:02.757]  recursive: 0
[18:42:02.757]  length: 1
[18:42:02.757]  elements: '...'
[18:42:02.758]  length: 0 (resolved future 1)
[18:42:02.758] resolve() on list ... DONE
[18:42:02.758]    - '...' content: [n=0] 
[18:42:02.758] List of 1
[18:42:02.758]  $ ...: list()
[18:42:02.758]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.758]  - attr(*, "where")=List of 1
[18:42:02.758]   ..$ ...:<environment: 0x000002ea01e262d0> 
[18:42:02.758]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.758]  - attr(*, "resolved")= logi TRUE
[18:42:02.758]  - attr(*, "total_size")= num NA
[18:42:02.764]  - Getting '...' globals ... DONE
[18:42:02.764] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:02.765] List of 8
[18:42:02.765]  $ ...future.FUN:function (x, ...)  
[18:42:02.765]  $ x_FUN        :function (x)  
[18:42:02.765]  $ times        : int 4
[18:42:02.765]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:02.765]  $ stop_if_not  :function (...)  
[18:42:02.765]  $ dim          : int [1:2] 2 2
[18:42:02.765]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:02.765]  $ ...          : list()
[18:42:02.765]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:02.765]  - attr(*, "where")=List of 8
[18:42:02.765]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:02.765]   ..$ ...          :<environment: 0x000002ea01e262d0> 
[18:42:02.765]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:02.765]  - attr(*, "resolved")= logi FALSE
[18:42:02.765]  - attr(*, "total_size")= int 24958
[18:42:02.777] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:02.778] getGlobalsAndPackagesXApply() ... DONE
[18:42:02.778] Number of futures (= number of chunks): 2
[18:42:02.778] Launching 2 futures (chunks) ...
[18:42:02.779] Chunk #1 of 2 ...
[18:42:02.779]  - Finding globals in 'X' for chunk #1 ...
[18:42:02.779] getGlobalsAndPackages() ...
[18:42:02.780] Searching for globals...
[18:42:02.780] 
[18:42:02.781] Searching for globals ... DONE
[18:42:02.781] - globals: [0] <none>
[18:42:02.781] getGlobalsAndPackages() ... DONE
[18:42:02.781]    + additional globals found: [n=0] 
[18:42:02.782]    + additional namespaces needed: [n=0] 
[18:42:02.782]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:02.782]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.783]  - seeds: <none>
[18:42:02.783]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.783] getGlobalsAndPackages() ...
[18:42:02.783] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.784] Resolving globals: FALSE
[18:42:02.784] Tweak future expression to call with '...' arguments ...
[18:42:02.784] {
[18:42:02.784]     do.call(function(...) {
[18:42:02.784]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.784]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.784]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.784]             on.exit(options(oopts), add = TRUE)
[18:42:02.784]         }
[18:42:02.784]         {
[18:42:02.784]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.784]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.784]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.784]             })
[18:42:02.784]         }
[18:42:02.784]     }, args = future.call.arguments)
[18:42:02.784] }
[18:42:02.785] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.787] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.787] - packages: [1] 'future.apply'
[18:42:02.788] getGlobalsAndPackages() ... DONE
[18:42:02.788] run() for 'Future' ...
[18:42:02.789] - state: 'created'
[18:42:02.789] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.816] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.816] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.817]   - Field: 'node'
[18:42:02.817]   - Field: 'label'
[18:42:02.817]   - Field: 'local'
[18:42:02.818]   - Field: 'owner'
[18:42:02.818]   - Field: 'envir'
[18:42:02.818]   - Field: 'workers'
[18:42:02.819]   - Field: 'packages'
[18:42:02.819]   - Field: 'gc'
[18:42:02.819]   - Field: 'conditions'
[18:42:02.820]   - Field: 'persistent'
[18:42:02.820]   - Field: 'expr'
[18:42:02.820]   - Field: 'uuid'
[18:42:02.821]   - Field: 'seed'
[18:42:02.821]   - Field: 'version'
[18:42:02.821]   - Field: 'result'
[18:42:02.822]   - Field: 'asynchronous'
[18:42:02.822]   - Field: 'calls'
[18:42:02.822]   - Field: 'globals'
[18:42:02.823]   - Field: 'stdout'
[18:42:02.823]   - Field: 'earlySignal'
[18:42:02.823]   - Field: 'lazy'
[18:42:02.824]   - Field: 'state'
[18:42:02.824] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.824] - Launch lazy future ...
[18:42:02.825] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.826] Packages needed by future strategies (n = 0): <none>
[18:42:02.827] {
[18:42:02.827]     {
[18:42:02.827]         {
[18:42:02.827]             ...future.startTime <- base::Sys.time()
[18:42:02.827]             {
[18:42:02.827]                 {
[18:42:02.827]                   {
[18:42:02.827]                     {
[18:42:02.827]                       {
[18:42:02.827]                         base::local({
[18:42:02.827]                           has_future <- base::requireNamespace("future", 
[18:42:02.827]                             quietly = TRUE)
[18:42:02.827]                           if (has_future) {
[18:42:02.827]                             ns <- base::getNamespace("future")
[18:42:02.827]                             version <- ns[[".package"]][["version"]]
[18:42:02.827]                             if (is.null(version)) 
[18:42:02.827]                               version <- utils::packageVersion("future")
[18:42:02.827]                           }
[18:42:02.827]                           else {
[18:42:02.827]                             version <- NULL
[18:42:02.827]                           }
[18:42:02.827]                           if (!has_future || version < "1.8.0") {
[18:42:02.827]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.827]                               "", base::R.version$version.string), 
[18:42:02.827]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.827]                                 base::R.version$platform, 8 * 
[18:42:02.827]                                   base::.Machine$sizeof.pointer), 
[18:42:02.827]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.827]                                 "release", "version")], collapse = " "), 
[18:42:02.827]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.827]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.827]                               info)
[18:42:02.827]                             info <- base::paste(info, collapse = "; ")
[18:42:02.827]                             if (!has_future) {
[18:42:02.827]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.827]                                 info)
[18:42:02.827]                             }
[18:42:02.827]                             else {
[18:42:02.827]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.827]                                 info, version)
[18:42:02.827]                             }
[18:42:02.827]                             base::stop(msg)
[18:42:02.827]                           }
[18:42:02.827]                         })
[18:42:02.827]                       }
[18:42:02.827]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.827]                       base::options(mc.cores = 1L)
[18:42:02.827]                     }
[18:42:02.827]                     base::local({
[18:42:02.827]                       for (pkg in "future.apply") {
[18:42:02.827]                         base::loadNamespace(pkg)
[18:42:02.827]                         base::library(pkg, character.only = TRUE)
[18:42:02.827]                       }
[18:42:02.827]                     })
[18:42:02.827]                   }
[18:42:02.827]                   ...future.strategy.old <- future::plan("list")
[18:42:02.827]                   options(future.plan = NULL)
[18:42:02.827]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.827]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.827]                 }
[18:42:02.827]                 ...future.workdir <- getwd()
[18:42:02.827]             }
[18:42:02.827]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.827]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.827]         }
[18:42:02.827]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.827]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.827]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.827]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.827]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.827]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.827]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.827]             base::names(...future.oldOptions))
[18:42:02.827]     }
[18:42:02.827]     if (FALSE) {
[18:42:02.827]     }
[18:42:02.827]     else {
[18:42:02.827]         if (TRUE) {
[18:42:02.827]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.827]                 open = "w")
[18:42:02.827]         }
[18:42:02.827]         else {
[18:42:02.827]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.827]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.827]         }
[18:42:02.827]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.827]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.827]             base::sink(type = "output", split = FALSE)
[18:42:02.827]             base::close(...future.stdout)
[18:42:02.827]         }, add = TRUE)
[18:42:02.827]     }
[18:42:02.827]     ...future.frame <- base::sys.nframe()
[18:42:02.827]     ...future.conditions <- base::list()
[18:42:02.827]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.827]     if (FALSE) {
[18:42:02.827]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.827]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.827]     }
[18:42:02.827]     ...future.result <- base::tryCatch({
[18:42:02.827]         base::withCallingHandlers({
[18:42:02.827]             ...future.value <- base::withVisible(base::local({
[18:42:02.827]                 ...future.makeSendCondition <- base::local({
[18:42:02.827]                   sendCondition <- NULL
[18:42:02.827]                   function(frame = 1L) {
[18:42:02.827]                     if (is.function(sendCondition)) 
[18:42:02.827]                       return(sendCondition)
[18:42:02.827]                     ns <- getNamespace("parallel")
[18:42:02.827]                     if (exists("sendData", mode = "function", 
[18:42:02.827]                       envir = ns)) {
[18:42:02.827]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.827]                         envir = ns)
[18:42:02.827]                       envir <- sys.frame(frame)
[18:42:02.827]                       master <- NULL
[18:42:02.827]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.827]                         !identical(envir, emptyenv())) {
[18:42:02.827]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.827]                           inherits = FALSE)) {
[18:42:02.827]                           master <- get("master", mode = "list", 
[18:42:02.827]                             envir = envir, inherits = FALSE)
[18:42:02.827]                           if (inherits(master, c("SOCKnode", 
[18:42:02.827]                             "SOCK0node"))) {
[18:42:02.827]                             sendCondition <<- function(cond) {
[18:42:02.827]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.827]                                 success = TRUE)
[18:42:02.827]                               parallel_sendData(master, data)
[18:42:02.827]                             }
[18:42:02.827]                             return(sendCondition)
[18:42:02.827]                           }
[18:42:02.827]                         }
[18:42:02.827]                         frame <- frame + 1L
[18:42:02.827]                         envir <- sys.frame(frame)
[18:42:02.827]                       }
[18:42:02.827]                     }
[18:42:02.827]                     sendCondition <<- function(cond) NULL
[18:42:02.827]                   }
[18:42:02.827]                 })
[18:42:02.827]                 withCallingHandlers({
[18:42:02.827]                   {
[18:42:02.827]                     do.call(function(...) {
[18:42:02.827]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.827]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.827]                         ...future.globals.maxSize)) {
[18:42:02.827]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.827]                         on.exit(options(oopts), add = TRUE)
[18:42:02.827]                       }
[18:42:02.827]                       {
[18:42:02.827]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.827]                           FUN = function(jj) {
[18:42:02.827]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.827]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.827]                           })
[18:42:02.827]                       }
[18:42:02.827]                     }, args = future.call.arguments)
[18:42:02.827]                   }
[18:42:02.827]                 }, immediateCondition = function(cond) {
[18:42:02.827]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.827]                   sendCondition(cond)
[18:42:02.827]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.827]                   {
[18:42:02.827]                     inherits <- base::inherits
[18:42:02.827]                     invokeRestart <- base::invokeRestart
[18:42:02.827]                     is.null <- base::is.null
[18:42:02.827]                     muffled <- FALSE
[18:42:02.827]                     if (inherits(cond, "message")) {
[18:42:02.827]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.827]                       if (muffled) 
[18:42:02.827]                         invokeRestart("muffleMessage")
[18:42:02.827]                     }
[18:42:02.827]                     else if (inherits(cond, "warning")) {
[18:42:02.827]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.827]                       if (muffled) 
[18:42:02.827]                         invokeRestart("muffleWarning")
[18:42:02.827]                     }
[18:42:02.827]                     else if (inherits(cond, "condition")) {
[18:42:02.827]                       if (!is.null(pattern)) {
[18:42:02.827]                         computeRestarts <- base::computeRestarts
[18:42:02.827]                         grepl <- base::grepl
[18:42:02.827]                         restarts <- computeRestarts(cond)
[18:42:02.827]                         for (restart in restarts) {
[18:42:02.827]                           name <- restart$name
[18:42:02.827]                           if (is.null(name)) 
[18:42:02.827]                             next
[18:42:02.827]                           if (!grepl(pattern, name)) 
[18:42:02.827]                             next
[18:42:02.827]                           invokeRestart(restart)
[18:42:02.827]                           muffled <- TRUE
[18:42:02.827]                           break
[18:42:02.827]                         }
[18:42:02.827]                       }
[18:42:02.827]                     }
[18:42:02.827]                     invisible(muffled)
[18:42:02.827]                   }
[18:42:02.827]                   muffleCondition(cond)
[18:42:02.827]                 })
[18:42:02.827]             }))
[18:42:02.827]             future::FutureResult(value = ...future.value$value, 
[18:42:02.827]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.827]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.827]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.827]                     ...future.globalenv.names))
[18:42:02.827]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.827]         }, condition = base::local({
[18:42:02.827]             c <- base::c
[18:42:02.827]             inherits <- base::inherits
[18:42:02.827]             invokeRestart <- base::invokeRestart
[18:42:02.827]             length <- base::length
[18:42:02.827]             list <- base::list
[18:42:02.827]             seq.int <- base::seq.int
[18:42:02.827]             signalCondition <- base::signalCondition
[18:42:02.827]             sys.calls <- base::sys.calls
[18:42:02.827]             `[[` <- base::`[[`
[18:42:02.827]             `+` <- base::`+`
[18:42:02.827]             `<<-` <- base::`<<-`
[18:42:02.827]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.827]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.827]                   3L)]
[18:42:02.827]             }
[18:42:02.827]             function(cond) {
[18:42:02.827]                 is_error <- inherits(cond, "error")
[18:42:02.827]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.827]                   NULL)
[18:42:02.827]                 if (is_error) {
[18:42:02.827]                   sessionInformation <- function() {
[18:42:02.827]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.827]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.827]                       search = base::search(), system = base::Sys.info())
[18:42:02.827]                   }
[18:42:02.827]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.827]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.827]                     cond$call), session = sessionInformation(), 
[18:42:02.827]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.827]                   signalCondition(cond)
[18:42:02.827]                 }
[18:42:02.827]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.827]                 "immediateCondition"))) {
[18:42:02.827]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.827]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.827]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.827]                   if (TRUE && !signal) {
[18:42:02.827]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.827]                     {
[18:42:02.827]                       inherits <- base::inherits
[18:42:02.827]                       invokeRestart <- base::invokeRestart
[18:42:02.827]                       is.null <- base::is.null
[18:42:02.827]                       muffled <- FALSE
[18:42:02.827]                       if (inherits(cond, "message")) {
[18:42:02.827]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.827]                         if (muffled) 
[18:42:02.827]                           invokeRestart("muffleMessage")
[18:42:02.827]                       }
[18:42:02.827]                       else if (inherits(cond, "warning")) {
[18:42:02.827]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.827]                         if (muffled) 
[18:42:02.827]                           invokeRestart("muffleWarning")
[18:42:02.827]                       }
[18:42:02.827]                       else if (inherits(cond, "condition")) {
[18:42:02.827]                         if (!is.null(pattern)) {
[18:42:02.827]                           computeRestarts <- base::computeRestarts
[18:42:02.827]                           grepl <- base::grepl
[18:42:02.827]                           restarts <- computeRestarts(cond)
[18:42:02.827]                           for (restart in restarts) {
[18:42:02.827]                             name <- restart$name
[18:42:02.827]                             if (is.null(name)) 
[18:42:02.827]                               next
[18:42:02.827]                             if (!grepl(pattern, name)) 
[18:42:02.827]                               next
[18:42:02.827]                             invokeRestart(restart)
[18:42:02.827]                             muffled <- TRUE
[18:42:02.827]                             break
[18:42:02.827]                           }
[18:42:02.827]                         }
[18:42:02.827]                       }
[18:42:02.827]                       invisible(muffled)
[18:42:02.827]                     }
[18:42:02.827]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.827]                   }
[18:42:02.827]                 }
[18:42:02.827]                 else {
[18:42:02.827]                   if (TRUE) {
[18:42:02.827]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.827]                     {
[18:42:02.827]                       inherits <- base::inherits
[18:42:02.827]                       invokeRestart <- base::invokeRestart
[18:42:02.827]                       is.null <- base::is.null
[18:42:02.827]                       muffled <- FALSE
[18:42:02.827]                       if (inherits(cond, "message")) {
[18:42:02.827]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.827]                         if (muffled) 
[18:42:02.827]                           invokeRestart("muffleMessage")
[18:42:02.827]                       }
[18:42:02.827]                       else if (inherits(cond, "warning")) {
[18:42:02.827]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.827]                         if (muffled) 
[18:42:02.827]                           invokeRestart("muffleWarning")
[18:42:02.827]                       }
[18:42:02.827]                       else if (inherits(cond, "condition")) {
[18:42:02.827]                         if (!is.null(pattern)) {
[18:42:02.827]                           computeRestarts <- base::computeRestarts
[18:42:02.827]                           grepl <- base::grepl
[18:42:02.827]                           restarts <- computeRestarts(cond)
[18:42:02.827]                           for (restart in restarts) {
[18:42:02.827]                             name <- restart$name
[18:42:02.827]                             if (is.null(name)) 
[18:42:02.827]                               next
[18:42:02.827]                             if (!grepl(pattern, name)) 
[18:42:02.827]                               next
[18:42:02.827]                             invokeRestart(restart)
[18:42:02.827]                             muffled <- TRUE
[18:42:02.827]                             break
[18:42:02.827]                           }
[18:42:02.827]                         }
[18:42:02.827]                       }
[18:42:02.827]                       invisible(muffled)
[18:42:02.827]                     }
[18:42:02.827]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.827]                   }
[18:42:02.827]                 }
[18:42:02.827]             }
[18:42:02.827]         }))
[18:42:02.827]     }, error = function(ex) {
[18:42:02.827]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.827]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.827]                 ...future.rng), started = ...future.startTime, 
[18:42:02.827]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.827]             version = "1.8"), class = "FutureResult")
[18:42:02.827]     }, finally = {
[18:42:02.827]         if (!identical(...future.workdir, getwd())) 
[18:42:02.827]             setwd(...future.workdir)
[18:42:02.827]         {
[18:42:02.827]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.827]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.827]             }
[18:42:02.827]             base::options(...future.oldOptions)
[18:42:02.827]             if (.Platform$OS.type == "windows") {
[18:42:02.827]                 old_names <- names(...future.oldEnvVars)
[18:42:02.827]                 envs <- base::Sys.getenv()
[18:42:02.827]                 names <- names(envs)
[18:42:02.827]                 common <- intersect(names, old_names)
[18:42:02.827]                 added <- setdiff(names, old_names)
[18:42:02.827]                 removed <- setdiff(old_names, names)
[18:42:02.827]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.827]                   envs[common]]
[18:42:02.827]                 NAMES <- toupper(changed)
[18:42:02.827]                 args <- list()
[18:42:02.827]                 for (kk in seq_along(NAMES)) {
[18:42:02.827]                   name <- changed[[kk]]
[18:42:02.827]                   NAME <- NAMES[[kk]]
[18:42:02.827]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.827]                     next
[18:42:02.827]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.827]                 }
[18:42:02.827]                 NAMES <- toupper(added)
[18:42:02.827]                 for (kk in seq_along(NAMES)) {
[18:42:02.827]                   name <- added[[kk]]
[18:42:02.827]                   NAME <- NAMES[[kk]]
[18:42:02.827]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.827]                     next
[18:42:02.827]                   args[[name]] <- ""
[18:42:02.827]                 }
[18:42:02.827]                 NAMES <- toupper(removed)
[18:42:02.827]                 for (kk in seq_along(NAMES)) {
[18:42:02.827]                   name <- removed[[kk]]
[18:42:02.827]                   NAME <- NAMES[[kk]]
[18:42:02.827]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.827]                     next
[18:42:02.827]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.827]                 }
[18:42:02.827]                 if (length(args) > 0) 
[18:42:02.827]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.827]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.827]             }
[18:42:02.827]             else {
[18:42:02.827]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.827]             }
[18:42:02.827]             {
[18:42:02.827]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.827]                   0L) {
[18:42:02.827]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.827]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.827]                   base::options(opts)
[18:42:02.827]                 }
[18:42:02.827]                 {
[18:42:02.827]                   {
[18:42:02.827]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.827]                     NULL
[18:42:02.827]                   }
[18:42:02.827]                   options(future.plan = NULL)
[18:42:02.827]                   if (is.na(NA_character_)) 
[18:42:02.827]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.827]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.827]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.827]                     .init = FALSE)
[18:42:02.827]                 }
[18:42:02.827]             }
[18:42:02.827]         }
[18:42:02.827]     })
[18:42:02.827]     if (TRUE) {
[18:42:02.827]         base::sink(type = "output", split = FALSE)
[18:42:02.827]         if (TRUE) {
[18:42:02.827]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.827]         }
[18:42:02.827]         else {
[18:42:02.827]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.827]         }
[18:42:02.827]         base::close(...future.stdout)
[18:42:02.827]         ...future.stdout <- NULL
[18:42:02.827]     }
[18:42:02.827]     ...future.result$conditions <- ...future.conditions
[18:42:02.827]     ...future.result$finished <- base::Sys.time()
[18:42:02.827]     ...future.result
[18:42:02.827] }
[18:42:02.837] Exporting 11 global objects (14.06 KiB) to cluster node #1 ...
[18:42:02.838] Exporting '...future.FUN' (5.08 KiB) to cluster node #1 ...
[18:42:02.839] Exporting '...future.FUN' (5.08 KiB) to cluster node #1 ... DONE
[18:42:02.839] Exporting 'x_FUN' (567 bytes) to cluster node #1 ...
[18:42:02.840] Exporting 'x_FUN' (567 bytes) to cluster node #1 ... DONE
[18:42:02.840] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.841] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.842] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.842] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.843] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.844] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.844] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:02.845] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:02.845] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:02.845] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:02.846] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.846] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.847] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.847] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.848] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.848] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.849] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.849] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.850] Exporting 11 global objects (14.06 KiB) to cluster node #1 ... DONE
[18:42:02.851] MultisessionFuture started
[18:42:02.851] - Launch lazy future ... done
[18:42:02.851] run() for 'MultisessionFuture' ... done
[18:42:02.852] Created future:
[18:42:02.878] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.878] - Validating connection of MultisessionFuture
[18:42:02.878] - received message: FutureResult
[18:42:02.879] - Received FutureResult
[18:42:02.879] - Erased future from FutureRegistry
[18:42:02.880] result() for ClusterFuture ...
[18:42:02.880] - result already collected: FutureResult
[18:42:02.880] result() for ClusterFuture ... done
[18:42:02.880] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.852] MultisessionFuture:
[18:42:02.852] Label: 'future_vapply-1'
[18:42:02.852] Expression:
[18:42:02.852] {
[18:42:02.852]     do.call(function(...) {
[18:42:02.852]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.852]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.852]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.852]             on.exit(options(oopts), add = TRUE)
[18:42:02.852]         }
[18:42:02.852]         {
[18:42:02.852]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.852]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.852]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.852]             })
[18:42:02.852]         }
[18:42:02.852]     }, args = future.call.arguments)
[18:42:02.852] }
[18:42:02.852] Lazy evaluation: FALSE
[18:42:02.852] Asynchronous evaluation: TRUE
[18:42:02.852] Local evaluation: TRUE
[18:42:02.852] Environment: R_GlobalEnv
[18:42:02.852] Capture standard output: TRUE
[18:42:02.852] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.852] Globals: 11 objects totaling 13.86 KiB (function '...future.FUN' of 5.08 KiB, function 'x_FUN' of 567 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.852] Packages: 1 packages ('future.apply')
[18:42:02.852] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.852] Resolved: TRUE
[18:42:02.852] Value: <not collected>
[18:42:02.852] Conditions captured: <none>
[18:42:02.852] Early signaling: FALSE
[18:42:02.852] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.852] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.881] Chunk #1 of 2 ... DONE
[18:42:02.881] Chunk #2 of 2 ...
[18:42:02.882]  - Finding globals in 'X' for chunk #2 ...
[18:42:02.882] getGlobalsAndPackages() ...
[18:42:02.882] Searching for globals...
[18:42:02.883] 
[18:42:02.883] Searching for globals ... DONE
[18:42:02.884] - globals: [0] <none>
[18:42:02.884] getGlobalsAndPackages() ... DONE
[18:42:02.884]    + additional globals found: [n=0] 
[18:42:02.884]    + additional namespaces needed: [n=0] 
[18:42:02.885]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:02.885]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:02.885]  - seeds: <none>
[18:42:02.886]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.886] getGlobalsAndPackages() ...
[18:42:02.886] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.887] Resolving globals: FALSE
[18:42:02.887] Tweak future expression to call with '...' arguments ...
[18:42:02.887] {
[18:42:02.887]     do.call(function(...) {
[18:42:02.887]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.887]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.887]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.887]             on.exit(options(oopts), add = TRUE)
[18:42:02.887]         }
[18:42:02.887]         {
[18:42:02.887]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.887]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.887]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.887]             })
[18:42:02.887]         }
[18:42:02.887]     }, args = future.call.arguments)
[18:42:02.887] }
[18:42:02.888] Tweak future expression to call with '...' arguments ... DONE
[18:42:02.889] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:02.890] - packages: [1] 'future.apply'
[18:42:02.890] getGlobalsAndPackages() ... DONE
[18:42:02.891] run() for 'Future' ...
[18:42:02.891] - state: 'created'
[18:42:02.892] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:02.919] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.919] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:02.920]   - Field: 'node'
[18:42:02.920]   - Field: 'label'
[18:42:02.920]   - Field: 'local'
[18:42:02.921]   - Field: 'owner'
[18:42:02.921]   - Field: 'envir'
[18:42:02.921]   - Field: 'workers'
[18:42:02.922]   - Field: 'packages'
[18:42:02.922]   - Field: 'gc'
[18:42:02.922]   - Field: 'conditions'
[18:42:02.923]   - Field: 'persistent'
[18:42:02.923]   - Field: 'expr'
[18:42:02.923]   - Field: 'uuid'
[18:42:02.924]   - Field: 'seed'
[18:42:02.924]   - Field: 'version'
[18:42:02.924]   - Field: 'result'
[18:42:02.925]   - Field: 'asynchronous'
[18:42:02.925]   - Field: 'calls'
[18:42:02.925]   - Field: 'globals'
[18:42:02.925]   - Field: 'stdout'
[18:42:02.926]   - Field: 'earlySignal'
[18:42:02.926]   - Field: 'lazy'
[18:42:02.927]   - Field: 'state'
[18:42:02.927] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:02.927] - Launch lazy future ...
[18:42:02.928] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:02.928] Packages needed by future strategies (n = 0): <none>
[18:42:02.930] {
[18:42:02.930]     {
[18:42:02.930]         {
[18:42:02.930]             ...future.startTime <- base::Sys.time()
[18:42:02.930]             {
[18:42:02.930]                 {
[18:42:02.930]                   {
[18:42:02.930]                     {
[18:42:02.930]                       {
[18:42:02.930]                         base::local({
[18:42:02.930]                           has_future <- base::requireNamespace("future", 
[18:42:02.930]                             quietly = TRUE)
[18:42:02.930]                           if (has_future) {
[18:42:02.930]                             ns <- base::getNamespace("future")
[18:42:02.930]                             version <- ns[[".package"]][["version"]]
[18:42:02.930]                             if (is.null(version)) 
[18:42:02.930]                               version <- utils::packageVersion("future")
[18:42:02.930]                           }
[18:42:02.930]                           else {
[18:42:02.930]                             version <- NULL
[18:42:02.930]                           }
[18:42:02.930]                           if (!has_future || version < "1.8.0") {
[18:42:02.930]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:02.930]                               "", base::R.version$version.string), 
[18:42:02.930]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:02.930]                                 base::R.version$platform, 8 * 
[18:42:02.930]                                   base::.Machine$sizeof.pointer), 
[18:42:02.930]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:02.930]                                 "release", "version")], collapse = " "), 
[18:42:02.930]                               hostname = base::Sys.info()[["nodename"]])
[18:42:02.930]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:02.930]                               info)
[18:42:02.930]                             info <- base::paste(info, collapse = "; ")
[18:42:02.930]                             if (!has_future) {
[18:42:02.930]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:02.930]                                 info)
[18:42:02.930]                             }
[18:42:02.930]                             else {
[18:42:02.930]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:02.930]                                 info, version)
[18:42:02.930]                             }
[18:42:02.930]                             base::stop(msg)
[18:42:02.930]                           }
[18:42:02.930]                         })
[18:42:02.930]                       }
[18:42:02.930]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:02.930]                       base::options(mc.cores = 1L)
[18:42:02.930]                     }
[18:42:02.930]                     base::local({
[18:42:02.930]                       for (pkg in "future.apply") {
[18:42:02.930]                         base::loadNamespace(pkg)
[18:42:02.930]                         base::library(pkg, character.only = TRUE)
[18:42:02.930]                       }
[18:42:02.930]                     })
[18:42:02.930]                   }
[18:42:02.930]                   ...future.strategy.old <- future::plan("list")
[18:42:02.930]                   options(future.plan = NULL)
[18:42:02.930]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.930]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:02.930]                 }
[18:42:02.930]                 ...future.workdir <- getwd()
[18:42:02.930]             }
[18:42:02.930]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:02.930]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:02.930]         }
[18:42:02.930]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:02.930]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:02.930]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:02.930]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:02.930]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:02.930]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:02.930]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:02.930]             base::names(...future.oldOptions))
[18:42:02.930]     }
[18:42:02.930]     if (FALSE) {
[18:42:02.930]     }
[18:42:02.930]     else {
[18:42:02.930]         if (TRUE) {
[18:42:02.930]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:02.930]                 open = "w")
[18:42:02.930]         }
[18:42:02.930]         else {
[18:42:02.930]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:02.930]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:02.930]         }
[18:42:02.930]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:02.930]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:02.930]             base::sink(type = "output", split = FALSE)
[18:42:02.930]             base::close(...future.stdout)
[18:42:02.930]         }, add = TRUE)
[18:42:02.930]     }
[18:42:02.930]     ...future.frame <- base::sys.nframe()
[18:42:02.930]     ...future.conditions <- base::list()
[18:42:02.930]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:02.930]     if (FALSE) {
[18:42:02.930]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:02.930]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:02.930]     }
[18:42:02.930]     ...future.result <- base::tryCatch({
[18:42:02.930]         base::withCallingHandlers({
[18:42:02.930]             ...future.value <- base::withVisible(base::local({
[18:42:02.930]                 ...future.makeSendCondition <- base::local({
[18:42:02.930]                   sendCondition <- NULL
[18:42:02.930]                   function(frame = 1L) {
[18:42:02.930]                     if (is.function(sendCondition)) 
[18:42:02.930]                       return(sendCondition)
[18:42:02.930]                     ns <- getNamespace("parallel")
[18:42:02.930]                     if (exists("sendData", mode = "function", 
[18:42:02.930]                       envir = ns)) {
[18:42:02.930]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:02.930]                         envir = ns)
[18:42:02.930]                       envir <- sys.frame(frame)
[18:42:02.930]                       master <- NULL
[18:42:02.930]                       while (!identical(envir, .GlobalEnv) && 
[18:42:02.930]                         !identical(envir, emptyenv())) {
[18:42:02.930]                         if (exists("master", mode = "list", envir = envir, 
[18:42:02.930]                           inherits = FALSE)) {
[18:42:02.930]                           master <- get("master", mode = "list", 
[18:42:02.930]                             envir = envir, inherits = FALSE)
[18:42:02.930]                           if (inherits(master, c("SOCKnode", 
[18:42:02.930]                             "SOCK0node"))) {
[18:42:02.930]                             sendCondition <<- function(cond) {
[18:42:02.930]                               data <- list(type = "VALUE", value = cond, 
[18:42:02.930]                                 success = TRUE)
[18:42:02.930]                               parallel_sendData(master, data)
[18:42:02.930]                             }
[18:42:02.930]                             return(sendCondition)
[18:42:02.930]                           }
[18:42:02.930]                         }
[18:42:02.930]                         frame <- frame + 1L
[18:42:02.930]                         envir <- sys.frame(frame)
[18:42:02.930]                       }
[18:42:02.930]                     }
[18:42:02.930]                     sendCondition <<- function(cond) NULL
[18:42:02.930]                   }
[18:42:02.930]                 })
[18:42:02.930]                 withCallingHandlers({
[18:42:02.930]                   {
[18:42:02.930]                     do.call(function(...) {
[18:42:02.930]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.930]                       if (!identical(...future.globals.maxSize.org, 
[18:42:02.930]                         ...future.globals.maxSize)) {
[18:42:02.930]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.930]                         on.exit(options(oopts), add = TRUE)
[18:42:02.930]                       }
[18:42:02.930]                       {
[18:42:02.930]                         lapply(seq_along(...future.elements_ii), 
[18:42:02.930]                           FUN = function(jj) {
[18:42:02.930]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.930]                             ...future.FUN(...future.X_jj, ...)
[18:42:02.930]                           })
[18:42:02.930]                       }
[18:42:02.930]                     }, args = future.call.arguments)
[18:42:02.930]                   }
[18:42:02.930]                 }, immediateCondition = function(cond) {
[18:42:02.930]                   sendCondition <- ...future.makeSendCondition()
[18:42:02.930]                   sendCondition(cond)
[18:42:02.930]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.930]                   {
[18:42:02.930]                     inherits <- base::inherits
[18:42:02.930]                     invokeRestart <- base::invokeRestart
[18:42:02.930]                     is.null <- base::is.null
[18:42:02.930]                     muffled <- FALSE
[18:42:02.930]                     if (inherits(cond, "message")) {
[18:42:02.930]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:02.930]                       if (muffled) 
[18:42:02.930]                         invokeRestart("muffleMessage")
[18:42:02.930]                     }
[18:42:02.930]                     else if (inherits(cond, "warning")) {
[18:42:02.930]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:02.930]                       if (muffled) 
[18:42:02.930]                         invokeRestart("muffleWarning")
[18:42:02.930]                     }
[18:42:02.930]                     else if (inherits(cond, "condition")) {
[18:42:02.930]                       if (!is.null(pattern)) {
[18:42:02.930]                         computeRestarts <- base::computeRestarts
[18:42:02.930]                         grepl <- base::grepl
[18:42:02.930]                         restarts <- computeRestarts(cond)
[18:42:02.930]                         for (restart in restarts) {
[18:42:02.930]                           name <- restart$name
[18:42:02.930]                           if (is.null(name)) 
[18:42:02.930]                             next
[18:42:02.930]                           if (!grepl(pattern, name)) 
[18:42:02.930]                             next
[18:42:02.930]                           invokeRestart(restart)
[18:42:02.930]                           muffled <- TRUE
[18:42:02.930]                           break
[18:42:02.930]                         }
[18:42:02.930]                       }
[18:42:02.930]                     }
[18:42:02.930]                     invisible(muffled)
[18:42:02.930]                   }
[18:42:02.930]                   muffleCondition(cond)
[18:42:02.930]                 })
[18:42:02.930]             }))
[18:42:02.930]             future::FutureResult(value = ...future.value$value, 
[18:42:02.930]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.930]                   ...future.rng), globalenv = if (FALSE) 
[18:42:02.930]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:02.930]                     ...future.globalenv.names))
[18:42:02.930]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:02.930]         }, condition = base::local({
[18:42:02.930]             c <- base::c
[18:42:02.930]             inherits <- base::inherits
[18:42:02.930]             invokeRestart <- base::invokeRestart
[18:42:02.930]             length <- base::length
[18:42:02.930]             list <- base::list
[18:42:02.930]             seq.int <- base::seq.int
[18:42:02.930]             signalCondition <- base::signalCondition
[18:42:02.930]             sys.calls <- base::sys.calls
[18:42:02.930]             `[[` <- base::`[[`
[18:42:02.930]             `+` <- base::`+`
[18:42:02.930]             `<<-` <- base::`<<-`
[18:42:02.930]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:02.930]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:02.930]                   3L)]
[18:42:02.930]             }
[18:42:02.930]             function(cond) {
[18:42:02.930]                 is_error <- inherits(cond, "error")
[18:42:02.930]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:02.930]                   NULL)
[18:42:02.930]                 if (is_error) {
[18:42:02.930]                   sessionInformation <- function() {
[18:42:02.930]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:02.930]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:02.930]                       search = base::search(), system = base::Sys.info())
[18:42:02.930]                   }
[18:42:02.930]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.930]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:02.930]                     cond$call), session = sessionInformation(), 
[18:42:02.930]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:02.930]                   signalCondition(cond)
[18:42:02.930]                 }
[18:42:02.930]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:02.930]                 "immediateCondition"))) {
[18:42:02.930]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:02.930]                   ...future.conditions[[length(...future.conditions) + 
[18:42:02.930]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:02.930]                   if (TRUE && !signal) {
[18:42:02.930]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.930]                     {
[18:42:02.930]                       inherits <- base::inherits
[18:42:02.930]                       invokeRestart <- base::invokeRestart
[18:42:02.930]                       is.null <- base::is.null
[18:42:02.930]                       muffled <- FALSE
[18:42:02.930]                       if (inherits(cond, "message")) {
[18:42:02.930]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.930]                         if (muffled) 
[18:42:02.930]                           invokeRestart("muffleMessage")
[18:42:02.930]                       }
[18:42:02.930]                       else if (inherits(cond, "warning")) {
[18:42:02.930]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.930]                         if (muffled) 
[18:42:02.930]                           invokeRestart("muffleWarning")
[18:42:02.930]                       }
[18:42:02.930]                       else if (inherits(cond, "condition")) {
[18:42:02.930]                         if (!is.null(pattern)) {
[18:42:02.930]                           computeRestarts <- base::computeRestarts
[18:42:02.930]                           grepl <- base::grepl
[18:42:02.930]                           restarts <- computeRestarts(cond)
[18:42:02.930]                           for (restart in restarts) {
[18:42:02.930]                             name <- restart$name
[18:42:02.930]                             if (is.null(name)) 
[18:42:02.930]                               next
[18:42:02.930]                             if (!grepl(pattern, name)) 
[18:42:02.930]                               next
[18:42:02.930]                             invokeRestart(restart)
[18:42:02.930]                             muffled <- TRUE
[18:42:02.930]                             break
[18:42:02.930]                           }
[18:42:02.930]                         }
[18:42:02.930]                       }
[18:42:02.930]                       invisible(muffled)
[18:42:02.930]                     }
[18:42:02.930]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.930]                   }
[18:42:02.930]                 }
[18:42:02.930]                 else {
[18:42:02.930]                   if (TRUE) {
[18:42:02.930]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:02.930]                     {
[18:42:02.930]                       inherits <- base::inherits
[18:42:02.930]                       invokeRestart <- base::invokeRestart
[18:42:02.930]                       is.null <- base::is.null
[18:42:02.930]                       muffled <- FALSE
[18:42:02.930]                       if (inherits(cond, "message")) {
[18:42:02.930]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:02.930]                         if (muffled) 
[18:42:02.930]                           invokeRestart("muffleMessage")
[18:42:02.930]                       }
[18:42:02.930]                       else if (inherits(cond, "warning")) {
[18:42:02.930]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:02.930]                         if (muffled) 
[18:42:02.930]                           invokeRestart("muffleWarning")
[18:42:02.930]                       }
[18:42:02.930]                       else if (inherits(cond, "condition")) {
[18:42:02.930]                         if (!is.null(pattern)) {
[18:42:02.930]                           computeRestarts <- base::computeRestarts
[18:42:02.930]                           grepl <- base::grepl
[18:42:02.930]                           restarts <- computeRestarts(cond)
[18:42:02.930]                           for (restart in restarts) {
[18:42:02.930]                             name <- restart$name
[18:42:02.930]                             if (is.null(name)) 
[18:42:02.930]                               next
[18:42:02.930]                             if (!grepl(pattern, name)) 
[18:42:02.930]                               next
[18:42:02.930]                             invokeRestart(restart)
[18:42:02.930]                             muffled <- TRUE
[18:42:02.930]                             break
[18:42:02.930]                           }
[18:42:02.930]                         }
[18:42:02.930]                       }
[18:42:02.930]                       invisible(muffled)
[18:42:02.930]                     }
[18:42:02.930]                     muffleCondition(cond, pattern = "^muffle")
[18:42:02.930]                   }
[18:42:02.930]                 }
[18:42:02.930]             }
[18:42:02.930]         }))
[18:42:02.930]     }, error = function(ex) {
[18:42:02.930]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:02.930]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:02.930]                 ...future.rng), started = ...future.startTime, 
[18:42:02.930]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:02.930]             version = "1.8"), class = "FutureResult")
[18:42:02.930]     }, finally = {
[18:42:02.930]         if (!identical(...future.workdir, getwd())) 
[18:42:02.930]             setwd(...future.workdir)
[18:42:02.930]         {
[18:42:02.930]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:02.930]                 ...future.oldOptions$nwarnings <- NULL
[18:42:02.930]             }
[18:42:02.930]             base::options(...future.oldOptions)
[18:42:02.930]             if (.Platform$OS.type == "windows") {
[18:42:02.930]                 old_names <- names(...future.oldEnvVars)
[18:42:02.930]                 envs <- base::Sys.getenv()
[18:42:02.930]                 names <- names(envs)
[18:42:02.930]                 common <- intersect(names, old_names)
[18:42:02.930]                 added <- setdiff(names, old_names)
[18:42:02.930]                 removed <- setdiff(old_names, names)
[18:42:02.930]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:02.930]                   envs[common]]
[18:42:02.930]                 NAMES <- toupper(changed)
[18:42:02.930]                 args <- list()
[18:42:02.930]                 for (kk in seq_along(NAMES)) {
[18:42:02.930]                   name <- changed[[kk]]
[18:42:02.930]                   NAME <- NAMES[[kk]]
[18:42:02.930]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.930]                     next
[18:42:02.930]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.930]                 }
[18:42:02.930]                 NAMES <- toupper(added)
[18:42:02.930]                 for (kk in seq_along(NAMES)) {
[18:42:02.930]                   name <- added[[kk]]
[18:42:02.930]                   NAME <- NAMES[[kk]]
[18:42:02.930]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.930]                     next
[18:42:02.930]                   args[[name]] <- ""
[18:42:02.930]                 }
[18:42:02.930]                 NAMES <- toupper(removed)
[18:42:02.930]                 for (kk in seq_along(NAMES)) {
[18:42:02.930]                   name <- removed[[kk]]
[18:42:02.930]                   NAME <- NAMES[[kk]]
[18:42:02.930]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:02.930]                     next
[18:42:02.930]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:02.930]                 }
[18:42:02.930]                 if (length(args) > 0) 
[18:42:02.930]                   base::do.call(base::Sys.setenv, args = args)
[18:42:02.930]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:02.930]             }
[18:42:02.930]             else {
[18:42:02.930]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:02.930]             }
[18:42:02.930]             {
[18:42:02.930]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:02.930]                   0L) {
[18:42:02.930]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:02.930]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:02.930]                   base::options(opts)
[18:42:02.930]                 }
[18:42:02.930]                 {
[18:42:02.930]                   {
[18:42:02.930]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:02.930]                     NULL
[18:42:02.930]                   }
[18:42:02.930]                   options(future.plan = NULL)
[18:42:02.930]                   if (is.na(NA_character_)) 
[18:42:02.930]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:02.930]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:02.930]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:02.930]                     .init = FALSE)
[18:42:02.930]                 }
[18:42:02.930]             }
[18:42:02.930]         }
[18:42:02.930]     })
[18:42:02.930]     if (TRUE) {
[18:42:02.930]         base::sink(type = "output", split = FALSE)
[18:42:02.930]         if (TRUE) {
[18:42:02.930]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:02.930]         }
[18:42:02.930]         else {
[18:42:02.930]             ...future.result["stdout"] <- base::list(NULL)
[18:42:02.930]         }
[18:42:02.930]         base::close(...future.stdout)
[18:42:02.930]         ...future.stdout <- NULL
[18:42:02.930]     }
[18:42:02.930]     ...future.result$conditions <- ...future.conditions
[18:42:02.930]     ...future.result$finished <- base::Sys.time()
[18:42:02.930]     ...future.result
[18:42:02.930] }
[18:42:02.939] Exporting 11 global objects (14.06 KiB) to cluster node #1 ...
[18:42:02.939] Exporting '...future.FUN' (5.08 KiB) to cluster node #1 ...
[18:42:02.940] Exporting '...future.FUN' (5.08 KiB) to cluster node #1 ... DONE
[18:42:02.941] Exporting 'x_FUN' (567 bytes) to cluster node #1 ...
[18:42:02.941] Exporting 'x_FUN' (567 bytes) to cluster node #1 ... DONE
[18:42:02.942] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:02.942] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:02.943] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:02.944] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:02.944] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:02.945] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:02.945] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:02.946] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:02.946] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:02.947] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:02.947] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:02.948] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:02.948] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:02.949] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:02.949] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:02.950] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:02.950] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:02.950] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:02.951] Exporting 11 global objects (14.06 KiB) to cluster node #1 ... DONE
[18:42:02.952] MultisessionFuture started
[18:42:02.952] - Launch lazy future ... done
[18:42:02.952] run() for 'MultisessionFuture' ... done
[18:42:02.953] Created future:
[18:42:02.983] receiveMessageFromWorker() for ClusterFuture ...
[18:42:02.983] - Validating connection of MultisessionFuture
[18:42:02.984] - received message: FutureResult
[18:42:02.984] - Received FutureResult
[18:42:02.984] - Erased future from FutureRegistry
[18:42:02.985] result() for ClusterFuture ...
[18:42:02.985] - result already collected: FutureResult
[18:42:02.985] result() for ClusterFuture ... done
[18:42:02.985] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:02.953] MultisessionFuture:
[18:42:02.953] Label: 'future_vapply-2'
[18:42:02.953] Expression:
[18:42:02.953] {
[18:42:02.953]     do.call(function(...) {
[18:42:02.953]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:02.953]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:02.953]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:02.953]             on.exit(options(oopts), add = TRUE)
[18:42:02.953]         }
[18:42:02.953]         {
[18:42:02.953]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:02.953]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:02.953]                 ...future.FUN(...future.X_jj, ...)
[18:42:02.953]             })
[18:42:02.953]         }
[18:42:02.953]     }, args = future.call.arguments)
[18:42:02.953] }
[18:42:02.953] Lazy evaluation: FALSE
[18:42:02.953] Asynchronous evaluation: TRUE
[18:42:02.953] Local evaluation: TRUE
[18:42:02.953] Environment: R_GlobalEnv
[18:42:02.953] Capture standard output: TRUE
[18:42:02.953] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:02.953] Globals: 11 objects totaling 13.86 KiB (function '...future.FUN' of 5.08 KiB, function 'x_FUN' of 567 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:02.953] Packages: 1 packages ('future.apply')
[18:42:02.953] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:02.953] Resolved: TRUE
[18:42:02.953] Value: <not collected>
[18:42:02.953] Conditions captured: <none>
[18:42:02.953] Early signaling: FALSE
[18:42:02.953] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:02.953] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:02.986] Chunk #2 of 2 ... DONE
[18:42:02.987] Launching 2 futures (chunks) ... DONE
[18:42:02.987] Resolving 2 futures (chunks) ...
[18:42:02.987] resolve() on list ...
[18:42:02.987]  recursive: 0
[18:42:02.988]  length: 2
[18:42:02.988] 
[18:42:02.988] Future #1
[18:42:02.989] result() for ClusterFuture ...
[18:42:02.989] - result already collected: FutureResult
[18:42:02.989] result() for ClusterFuture ... done
[18:42:02.990] result() for ClusterFuture ...
[18:42:02.990] - result already collected: FutureResult
[18:42:02.990] result() for ClusterFuture ... done
[18:42:02.991] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:02.991] - nx: 2
[18:42:02.991] - relay: TRUE
[18:42:02.991] - stdout: TRUE
[18:42:02.992] - signal: TRUE
[18:42:02.992] - resignal: FALSE
[18:42:02.992] - force: TRUE
[18:42:02.992] - relayed: [n=2] FALSE, FALSE
[18:42:02.993] - queued futures: [n=2] FALSE, FALSE
[18:42:02.993]  - until=1
[18:42:02.993]  - relaying element #1
[18:42:02.994] result() for ClusterFuture ...
[18:42:02.994] - result already collected: FutureResult
[18:42:02.994] result() for ClusterFuture ... done
[18:42:02.995] result() for ClusterFuture ...
[18:42:02.995] - result already collected: FutureResult
[18:42:02.995] result() for ClusterFuture ... done
[18:42:02.995] result() for ClusterFuture ...
[18:42:02.996] - result already collected: FutureResult
[18:42:02.996] result() for ClusterFuture ... done
[18:42:02.996] result() for ClusterFuture ...
[18:42:02.997] - result already collected: FutureResult
[18:42:02.997] result() for ClusterFuture ... done
[18:42:02.997] - relayed: [n=2] TRUE, FALSE
[18:42:02.997] - queued futures: [n=2] TRUE, FALSE
[18:42:02.998] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:02.998]  length: 1 (resolved future 1)
[18:42:02.998] Future #2
[18:42:02.999] result() for ClusterFuture ...
[18:42:02.999] - result already collected: FutureResult
[18:42:02.999] result() for ClusterFuture ... done
[18:42:03.000] result() for ClusterFuture ...
[18:42:03.000] - result already collected: FutureResult
[18:42:03.000] result() for ClusterFuture ... done
[18:42:03.001] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:03.001] - nx: 2
[18:42:03.001] - relay: TRUE
[18:42:03.001] - stdout: TRUE
[18:42:03.002] - signal: TRUE
[18:42:03.002] - resignal: FALSE
[18:42:03.002] - force: TRUE
[18:42:03.003] - relayed: [n=2] TRUE, FALSE
[18:42:03.003] - queued futures: [n=2] TRUE, FALSE
[18:42:03.003]  - until=2
[18:42:03.003]  - relaying element #2
[18:42:03.004] result() for ClusterFuture ...
[18:42:03.004] - result already collected: FutureResult
[18:42:03.004] result() for ClusterFuture ... done
[18:42:03.005] result() for ClusterFuture ...
[18:42:03.005] - result already collected: FutureResult
[18:42:03.005] result() for ClusterFuture ... done
[18:42:03.006] result() for ClusterFuture ...
[18:42:03.006] - result already collected: FutureResult
[18:42:03.006] result() for ClusterFuture ... done
[18:42:03.006] result() for ClusterFuture ...
[18:42:03.007] - result already collected: FutureResult
[18:42:03.007] result() for ClusterFuture ... done
[18:42:03.007] - relayed: [n=2] TRUE, TRUE
[18:42:03.008] - queued futures: [n=2] TRUE, TRUE
[18:42:03.008] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:03.008]  length: 0 (resolved future 2)
[18:42:03.008] Relaying remaining futures
[18:42:03.009] signalConditionsASAP(NULL, pos=0) ...
[18:42:03.009] - nx: 2
[18:42:03.009] - relay: TRUE
[18:42:03.010] - stdout: TRUE
[18:42:03.010] - signal: TRUE
[18:42:03.010] - resignal: FALSE
[18:42:03.010] - force: TRUE
[18:42:03.011] - relayed: [n=2] TRUE, TRUE
[18:42:03.011] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:03.011] - relayed: [n=2] TRUE, TRUE
[18:42:03.012] - queued futures: [n=2] TRUE, TRUE
[18:42:03.012] signalConditionsASAP(NULL, pos=0) ... done
[18:42:03.012] resolve() on list ... DONE
[18:42:03.013] result() for ClusterFuture ...
[18:42:03.013] - result already collected: FutureResult
[18:42:03.013] result() for ClusterFuture ... done
[18:42:03.013] result() for ClusterFuture ...
[18:42:03.014] - result already collected: FutureResult
[18:42:03.014] result() for ClusterFuture ... done
[18:42:03.014] result() for ClusterFuture ...
[18:42:03.015] - result already collected: FutureResult
[18:42:03.015] result() for ClusterFuture ... done
[18:42:03.015] result() for ClusterFuture ...
[18:42:03.016] - result already collected: FutureResult
[18:42:03.016] result() for ClusterFuture ... done
[18:42:03.016]  - Number of value chunks collected: 2
[18:42:03.016] Resolving 2 futures (chunks) ... DONE
[18:42:03.017] Reducing values from 2 chunks ...
[18:42:03.017]  - Number of values collected after concatenation: 10
[18:42:03.017]  - Number of values expected: 10
[18:42:03.018] Reducing values from 2 chunks ... DONE
[18:42:03.018] future_lapply() ... DONE
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 num [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 - attr(*, "dimnames")=List of 3
  ..$ : chr [1:2] "a" "b"
  ..$ : chr [1:2] "A" "B"
  ..$ : NULL
[18:42:03.022] future_lapply() ...
[18:42:03.031] Number of chunks: 2
[18:42:03.032] getGlobalsAndPackagesXApply() ...
[18:42:03.032]  - future.globals: TRUE
[18:42:03.032] getGlobalsAndPackages() ...
[18:42:03.033] Searching for globals...
[18:42:03.046] - globals found: [19] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'matrix', 'list', 'c'
[18:42:03.046] Searching for globals ... DONE
[18:42:03.047] Resolving globals: FALSE
[18:42:03.049] The total size of the 7 globals is 16.05 KiB (16436 bytes)
[18:42:03.050] The total size of the 7 globals exported for future expression ('FUN()') is 16.05 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (6.71 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:03.050] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:03.051] - packages: [1] 'future.apply'
[18:42:03.051] getGlobalsAndPackages() ... DONE
[18:42:03.051]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:03.052]  - needed namespaces: [n=1] 'future.apply'
[18:42:03.052] Finding globals ... DONE
[18:42:03.052]  - use_args: TRUE
[18:42:03.053]  - Getting '...' globals ...
[18:42:03.053] resolve() on list ...
[18:42:03.054]  recursive: 0
[18:42:03.054]  length: 1
[18:42:03.054]  elements: '...'
[18:42:03.055]  length: 0 (resolved future 1)
[18:42:03.055] resolve() on list ... DONE
[18:42:03.055]    - '...' content: [n=0] 
[18:42:03.056] List of 1
[18:42:03.056]  $ ...: list()
[18:42:03.056]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.056]  - attr(*, "where")=List of 1
[18:42:03.056]   ..$ ...:<environment: 0x000002ea023a6d88> 
[18:42:03.056]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.056]  - attr(*, "resolved")= logi TRUE
[18:42:03.056]  - attr(*, "total_size")= num NA
[18:42:03.061]  - Getting '...' globals ... DONE
[18:42:03.061] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:03.062] List of 8
[18:42:03.062]  $ ...future.FUN:function (x, ...)  
[18:42:03.062]  $ x_FUN        :function (x)  
[18:42:03.062]  $ times        : int 4
[18:42:03.062]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:03.062]  $ stop_if_not  :function (...)  
[18:42:03.062]  $ dim          : int [1:2] 2 2
[18:42:03.062]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:03.062]  $ ...          : list()
[18:42:03.062]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.062]  - attr(*, "where")=List of 8
[18:42:03.062]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:03.062]   ..$ ...          :<environment: 0x000002ea023a6d88> 
[18:42:03.062]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.062]  - attr(*, "resolved")= logi FALSE
[18:42:03.062]  - attr(*, "total_size")= int 29094
[18:42:03.074] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:03.075] getGlobalsAndPackagesXApply() ... DONE
[18:42:03.075] Number of futures (= number of chunks): 2
[18:42:03.075] Launching 2 futures (chunks) ...
[18:42:03.076] Chunk #1 of 2 ...
[18:42:03.076]  - Finding globals in 'X' for chunk #1 ...
[18:42:03.076] getGlobalsAndPackages() ...
[18:42:03.077] Searching for globals...
[18:42:03.077] 
[18:42:03.078] Searching for globals ... DONE
[18:42:03.078] - globals: [0] <none>
[18:42:03.078] getGlobalsAndPackages() ... DONE
[18:42:03.078]    + additional globals found: [n=0] 
[18:42:03.079]    + additional namespaces needed: [n=0] 
[18:42:03.079]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:03.079]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.080]  - seeds: <none>
[18:42:03.080]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.080] getGlobalsAndPackages() ...
[18:42:03.081] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.081] Resolving globals: FALSE
[18:42:03.081] Tweak future expression to call with '...' arguments ...
[18:42:03.082] {
[18:42:03.082]     do.call(function(...) {
[18:42:03.082]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.082]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.082]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.082]             on.exit(options(oopts), add = TRUE)
[18:42:03.082]         }
[18:42:03.082]         {
[18:42:03.082]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.082]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.082]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.082]             })
[18:42:03.082]         }
[18:42:03.082]     }, args = future.call.arguments)
[18:42:03.082] }
[18:42:03.082] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.084] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.084] - packages: [1] 'future.apply'
[18:42:03.084] getGlobalsAndPackages() ... DONE
[18:42:03.085] run() for 'Future' ...
[18:42:03.085] - state: 'created'
[18:42:03.086] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.113] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.114] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.114]   - Field: 'node'
[18:42:03.114]   - Field: 'label'
[18:42:03.115]   - Field: 'local'
[18:42:03.115]   - Field: 'owner'
[18:42:03.115]   - Field: 'envir'
[18:42:03.116]   - Field: 'workers'
[18:42:03.116]   - Field: 'packages'
[18:42:03.116]   - Field: 'gc'
[18:42:03.117]   - Field: 'conditions'
[18:42:03.117]   - Field: 'persistent'
[18:42:03.117]   - Field: 'expr'
[18:42:03.117]   - Field: 'uuid'
[18:42:03.118]   - Field: 'seed'
[18:42:03.118]   - Field: 'version'
[18:42:03.118]   - Field: 'result'
[18:42:03.119]   - Field: 'asynchronous'
[18:42:03.119]   - Field: 'calls'
[18:42:03.119]   - Field: 'globals'
[18:42:03.120]   - Field: 'stdout'
[18:42:03.120]   - Field: 'earlySignal'
[18:42:03.120]   - Field: 'lazy'
[18:42:03.121]   - Field: 'state'
[18:42:03.121] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.121] - Launch lazy future ...
[18:42:03.122] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:03.122] Packages needed by future strategies (n = 0): <none>
[18:42:03.124] {
[18:42:03.124]     {
[18:42:03.124]         {
[18:42:03.124]             ...future.startTime <- base::Sys.time()
[18:42:03.124]             {
[18:42:03.124]                 {
[18:42:03.124]                   {
[18:42:03.124]                     {
[18:42:03.124]                       {
[18:42:03.124]                         base::local({
[18:42:03.124]                           has_future <- base::requireNamespace("future", 
[18:42:03.124]                             quietly = TRUE)
[18:42:03.124]                           if (has_future) {
[18:42:03.124]                             ns <- base::getNamespace("future")
[18:42:03.124]                             version <- ns[[".package"]][["version"]]
[18:42:03.124]                             if (is.null(version)) 
[18:42:03.124]                               version <- utils::packageVersion("future")
[18:42:03.124]                           }
[18:42:03.124]                           else {
[18:42:03.124]                             version <- NULL
[18:42:03.124]                           }
[18:42:03.124]                           if (!has_future || version < "1.8.0") {
[18:42:03.124]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.124]                               "", base::R.version$version.string), 
[18:42:03.124]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.124]                                 base::R.version$platform, 8 * 
[18:42:03.124]                                   base::.Machine$sizeof.pointer), 
[18:42:03.124]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.124]                                 "release", "version")], collapse = " "), 
[18:42:03.124]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.124]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.124]                               info)
[18:42:03.124]                             info <- base::paste(info, collapse = "; ")
[18:42:03.124]                             if (!has_future) {
[18:42:03.124]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.124]                                 info)
[18:42:03.124]                             }
[18:42:03.124]                             else {
[18:42:03.124]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.124]                                 info, version)
[18:42:03.124]                             }
[18:42:03.124]                             base::stop(msg)
[18:42:03.124]                           }
[18:42:03.124]                         })
[18:42:03.124]                       }
[18:42:03.124]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.124]                       base::options(mc.cores = 1L)
[18:42:03.124]                     }
[18:42:03.124]                     base::local({
[18:42:03.124]                       for (pkg in "future.apply") {
[18:42:03.124]                         base::loadNamespace(pkg)
[18:42:03.124]                         base::library(pkg, character.only = TRUE)
[18:42:03.124]                       }
[18:42:03.124]                     })
[18:42:03.124]                   }
[18:42:03.124]                   ...future.strategy.old <- future::plan("list")
[18:42:03.124]                   options(future.plan = NULL)
[18:42:03.124]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.124]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.124]                 }
[18:42:03.124]                 ...future.workdir <- getwd()
[18:42:03.124]             }
[18:42:03.124]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.124]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.124]         }
[18:42:03.124]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.124]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.124]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.124]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.124]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.124]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.124]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.124]             base::names(...future.oldOptions))
[18:42:03.124]     }
[18:42:03.124]     if (FALSE) {
[18:42:03.124]     }
[18:42:03.124]     else {
[18:42:03.124]         if (TRUE) {
[18:42:03.124]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.124]                 open = "w")
[18:42:03.124]         }
[18:42:03.124]         else {
[18:42:03.124]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.124]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.124]         }
[18:42:03.124]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.124]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.124]             base::sink(type = "output", split = FALSE)
[18:42:03.124]             base::close(...future.stdout)
[18:42:03.124]         }, add = TRUE)
[18:42:03.124]     }
[18:42:03.124]     ...future.frame <- base::sys.nframe()
[18:42:03.124]     ...future.conditions <- base::list()
[18:42:03.124]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.124]     if (FALSE) {
[18:42:03.124]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.124]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.124]     }
[18:42:03.124]     ...future.result <- base::tryCatch({
[18:42:03.124]         base::withCallingHandlers({
[18:42:03.124]             ...future.value <- base::withVisible(base::local({
[18:42:03.124]                 ...future.makeSendCondition <- base::local({
[18:42:03.124]                   sendCondition <- NULL
[18:42:03.124]                   function(frame = 1L) {
[18:42:03.124]                     if (is.function(sendCondition)) 
[18:42:03.124]                       return(sendCondition)
[18:42:03.124]                     ns <- getNamespace("parallel")
[18:42:03.124]                     if (exists("sendData", mode = "function", 
[18:42:03.124]                       envir = ns)) {
[18:42:03.124]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.124]                         envir = ns)
[18:42:03.124]                       envir <- sys.frame(frame)
[18:42:03.124]                       master <- NULL
[18:42:03.124]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.124]                         !identical(envir, emptyenv())) {
[18:42:03.124]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.124]                           inherits = FALSE)) {
[18:42:03.124]                           master <- get("master", mode = "list", 
[18:42:03.124]                             envir = envir, inherits = FALSE)
[18:42:03.124]                           if (inherits(master, c("SOCKnode", 
[18:42:03.124]                             "SOCK0node"))) {
[18:42:03.124]                             sendCondition <<- function(cond) {
[18:42:03.124]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.124]                                 success = TRUE)
[18:42:03.124]                               parallel_sendData(master, data)
[18:42:03.124]                             }
[18:42:03.124]                             return(sendCondition)
[18:42:03.124]                           }
[18:42:03.124]                         }
[18:42:03.124]                         frame <- frame + 1L
[18:42:03.124]                         envir <- sys.frame(frame)
[18:42:03.124]                       }
[18:42:03.124]                     }
[18:42:03.124]                     sendCondition <<- function(cond) NULL
[18:42:03.124]                   }
[18:42:03.124]                 })
[18:42:03.124]                 withCallingHandlers({
[18:42:03.124]                   {
[18:42:03.124]                     do.call(function(...) {
[18:42:03.124]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.124]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.124]                         ...future.globals.maxSize)) {
[18:42:03.124]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.124]                         on.exit(options(oopts), add = TRUE)
[18:42:03.124]                       }
[18:42:03.124]                       {
[18:42:03.124]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.124]                           FUN = function(jj) {
[18:42:03.124]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.124]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.124]                           })
[18:42:03.124]                       }
[18:42:03.124]                     }, args = future.call.arguments)
[18:42:03.124]                   }
[18:42:03.124]                 }, immediateCondition = function(cond) {
[18:42:03.124]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.124]                   sendCondition(cond)
[18:42:03.124]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.124]                   {
[18:42:03.124]                     inherits <- base::inherits
[18:42:03.124]                     invokeRestart <- base::invokeRestart
[18:42:03.124]                     is.null <- base::is.null
[18:42:03.124]                     muffled <- FALSE
[18:42:03.124]                     if (inherits(cond, "message")) {
[18:42:03.124]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.124]                       if (muffled) 
[18:42:03.124]                         invokeRestart("muffleMessage")
[18:42:03.124]                     }
[18:42:03.124]                     else if (inherits(cond, "warning")) {
[18:42:03.124]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.124]                       if (muffled) 
[18:42:03.124]                         invokeRestart("muffleWarning")
[18:42:03.124]                     }
[18:42:03.124]                     else if (inherits(cond, "condition")) {
[18:42:03.124]                       if (!is.null(pattern)) {
[18:42:03.124]                         computeRestarts <- base::computeRestarts
[18:42:03.124]                         grepl <- base::grepl
[18:42:03.124]                         restarts <- computeRestarts(cond)
[18:42:03.124]                         for (restart in restarts) {
[18:42:03.124]                           name <- restart$name
[18:42:03.124]                           if (is.null(name)) 
[18:42:03.124]                             next
[18:42:03.124]                           if (!grepl(pattern, name)) 
[18:42:03.124]                             next
[18:42:03.124]                           invokeRestart(restart)
[18:42:03.124]                           muffled <- TRUE
[18:42:03.124]                           break
[18:42:03.124]                         }
[18:42:03.124]                       }
[18:42:03.124]                     }
[18:42:03.124]                     invisible(muffled)
[18:42:03.124]                   }
[18:42:03.124]                   muffleCondition(cond)
[18:42:03.124]                 })
[18:42:03.124]             }))
[18:42:03.124]             future::FutureResult(value = ...future.value$value, 
[18:42:03.124]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.124]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.124]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.124]                     ...future.globalenv.names))
[18:42:03.124]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.124]         }, condition = base::local({
[18:42:03.124]             c <- base::c
[18:42:03.124]             inherits <- base::inherits
[18:42:03.124]             invokeRestart <- base::invokeRestart
[18:42:03.124]             length <- base::length
[18:42:03.124]             list <- base::list
[18:42:03.124]             seq.int <- base::seq.int
[18:42:03.124]             signalCondition <- base::signalCondition
[18:42:03.124]             sys.calls <- base::sys.calls
[18:42:03.124]             `[[` <- base::`[[`
[18:42:03.124]             `+` <- base::`+`
[18:42:03.124]             `<<-` <- base::`<<-`
[18:42:03.124]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.124]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.124]                   3L)]
[18:42:03.124]             }
[18:42:03.124]             function(cond) {
[18:42:03.124]                 is_error <- inherits(cond, "error")
[18:42:03.124]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.124]                   NULL)
[18:42:03.124]                 if (is_error) {
[18:42:03.124]                   sessionInformation <- function() {
[18:42:03.124]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.124]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.124]                       search = base::search(), system = base::Sys.info())
[18:42:03.124]                   }
[18:42:03.124]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.124]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.124]                     cond$call), session = sessionInformation(), 
[18:42:03.124]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.124]                   signalCondition(cond)
[18:42:03.124]                 }
[18:42:03.124]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.124]                 "immediateCondition"))) {
[18:42:03.124]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.124]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.124]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.124]                   if (TRUE && !signal) {
[18:42:03.124]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.124]                     {
[18:42:03.124]                       inherits <- base::inherits
[18:42:03.124]                       invokeRestart <- base::invokeRestart
[18:42:03.124]                       is.null <- base::is.null
[18:42:03.124]                       muffled <- FALSE
[18:42:03.124]                       if (inherits(cond, "message")) {
[18:42:03.124]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.124]                         if (muffled) 
[18:42:03.124]                           invokeRestart("muffleMessage")
[18:42:03.124]                       }
[18:42:03.124]                       else if (inherits(cond, "warning")) {
[18:42:03.124]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.124]                         if (muffled) 
[18:42:03.124]                           invokeRestart("muffleWarning")
[18:42:03.124]                       }
[18:42:03.124]                       else if (inherits(cond, "condition")) {
[18:42:03.124]                         if (!is.null(pattern)) {
[18:42:03.124]                           computeRestarts <- base::computeRestarts
[18:42:03.124]                           grepl <- base::grepl
[18:42:03.124]                           restarts <- computeRestarts(cond)
[18:42:03.124]                           for (restart in restarts) {
[18:42:03.124]                             name <- restart$name
[18:42:03.124]                             if (is.null(name)) 
[18:42:03.124]                               next
[18:42:03.124]                             if (!grepl(pattern, name)) 
[18:42:03.124]                               next
[18:42:03.124]                             invokeRestart(restart)
[18:42:03.124]                             muffled <- TRUE
[18:42:03.124]                             break
[18:42:03.124]                           }
[18:42:03.124]                         }
[18:42:03.124]                       }
[18:42:03.124]                       invisible(muffled)
[18:42:03.124]                     }
[18:42:03.124]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.124]                   }
[18:42:03.124]                 }
[18:42:03.124]                 else {
[18:42:03.124]                   if (TRUE) {
[18:42:03.124]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.124]                     {
[18:42:03.124]                       inherits <- base::inherits
[18:42:03.124]                       invokeRestart <- base::invokeRestart
[18:42:03.124]                       is.null <- base::is.null
[18:42:03.124]                       muffled <- FALSE
[18:42:03.124]                       if (inherits(cond, "message")) {
[18:42:03.124]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.124]                         if (muffled) 
[18:42:03.124]                           invokeRestart("muffleMessage")
[18:42:03.124]                       }
[18:42:03.124]                       else if (inherits(cond, "warning")) {
[18:42:03.124]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.124]                         if (muffled) 
[18:42:03.124]                           invokeRestart("muffleWarning")
[18:42:03.124]                       }
[18:42:03.124]                       else if (inherits(cond, "condition")) {
[18:42:03.124]                         if (!is.null(pattern)) {
[18:42:03.124]                           computeRestarts <- base::computeRestarts
[18:42:03.124]                           grepl <- base::grepl
[18:42:03.124]                           restarts <- computeRestarts(cond)
[18:42:03.124]                           for (restart in restarts) {
[18:42:03.124]                             name <- restart$name
[18:42:03.124]                             if (is.null(name)) 
[18:42:03.124]                               next
[18:42:03.124]                             if (!grepl(pattern, name)) 
[18:42:03.124]                               next
[18:42:03.124]                             invokeRestart(restart)
[18:42:03.124]                             muffled <- TRUE
[18:42:03.124]                             break
[18:42:03.124]                           }
[18:42:03.124]                         }
[18:42:03.124]                       }
[18:42:03.124]                       invisible(muffled)
[18:42:03.124]                     }
[18:42:03.124]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.124]                   }
[18:42:03.124]                 }
[18:42:03.124]             }
[18:42:03.124]         }))
[18:42:03.124]     }, error = function(ex) {
[18:42:03.124]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.124]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.124]                 ...future.rng), started = ...future.startTime, 
[18:42:03.124]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.124]             version = "1.8"), class = "FutureResult")
[18:42:03.124]     }, finally = {
[18:42:03.124]         if (!identical(...future.workdir, getwd())) 
[18:42:03.124]             setwd(...future.workdir)
[18:42:03.124]         {
[18:42:03.124]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.124]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.124]             }
[18:42:03.124]             base::options(...future.oldOptions)
[18:42:03.124]             if (.Platform$OS.type == "windows") {
[18:42:03.124]                 old_names <- names(...future.oldEnvVars)
[18:42:03.124]                 envs <- base::Sys.getenv()
[18:42:03.124]                 names <- names(envs)
[18:42:03.124]                 common <- intersect(names, old_names)
[18:42:03.124]                 added <- setdiff(names, old_names)
[18:42:03.124]                 removed <- setdiff(old_names, names)
[18:42:03.124]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.124]                   envs[common]]
[18:42:03.124]                 NAMES <- toupper(changed)
[18:42:03.124]                 args <- list()
[18:42:03.124]                 for (kk in seq_along(NAMES)) {
[18:42:03.124]                   name <- changed[[kk]]
[18:42:03.124]                   NAME <- NAMES[[kk]]
[18:42:03.124]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.124]                     next
[18:42:03.124]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.124]                 }
[18:42:03.124]                 NAMES <- toupper(added)
[18:42:03.124]                 for (kk in seq_along(NAMES)) {
[18:42:03.124]                   name <- added[[kk]]
[18:42:03.124]                   NAME <- NAMES[[kk]]
[18:42:03.124]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.124]                     next
[18:42:03.124]                   args[[name]] <- ""
[18:42:03.124]                 }
[18:42:03.124]                 NAMES <- toupper(removed)
[18:42:03.124]                 for (kk in seq_along(NAMES)) {
[18:42:03.124]                   name <- removed[[kk]]
[18:42:03.124]                   NAME <- NAMES[[kk]]
[18:42:03.124]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.124]                     next
[18:42:03.124]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.124]                 }
[18:42:03.124]                 if (length(args) > 0) 
[18:42:03.124]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.124]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.124]             }
[18:42:03.124]             else {
[18:42:03.124]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.124]             }
[18:42:03.124]             {
[18:42:03.124]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.124]                   0L) {
[18:42:03.124]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.124]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.124]                   base::options(opts)
[18:42:03.124]                 }
[18:42:03.124]                 {
[18:42:03.124]                   {
[18:42:03.124]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.124]                     NULL
[18:42:03.124]                   }
[18:42:03.124]                   options(future.plan = NULL)
[18:42:03.124]                   if (is.na(NA_character_)) 
[18:42:03.124]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.124]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.124]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.124]                     .init = FALSE)
[18:42:03.124]                 }
[18:42:03.124]             }
[18:42:03.124]         }
[18:42:03.124]     })
[18:42:03.124]     if (TRUE) {
[18:42:03.124]         base::sink(type = "output", split = FALSE)
[18:42:03.124]         if (TRUE) {
[18:42:03.124]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.124]         }
[18:42:03.124]         else {
[18:42:03.124]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.124]         }
[18:42:03.124]         base::close(...future.stdout)
[18:42:03.124]         ...future.stdout <- NULL
[18:42:03.124]     }
[18:42:03.124]     ...future.result$conditions <- ...future.conditions
[18:42:03.124]     ...future.result$finished <- base::Sys.time()
[18:42:03.124]     ...future.result
[18:42:03.124] }
[18:42:03.133] Exporting 11 global objects (16.42 KiB) to cluster node #1 ...
[18:42:03.133] Exporting '...future.FUN' (6.70 KiB) to cluster node #1 ...
[18:42:03.134] Exporting '...future.FUN' (6.70 KiB) to cluster node #1 ... DONE
[18:42:03.135] Exporting 'x_FUN' (1.36 KiB) to cluster node #1 ...
[18:42:03.135] Exporting 'x_FUN' (1.36 KiB) to cluster node #1 ... DONE
[18:42:03.135] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:03.136] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:03.136] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:03.137] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:03.137] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:03.139] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:03.139] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:03.140] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:03.140] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:03.141] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:03.141] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.142] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.142] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:03.143] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:03.143] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.144] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.144] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.145] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.145] Exporting 11 global objects (16.42 KiB) to cluster node #1 ... DONE
[18:42:03.147] MultisessionFuture started
[18:42:03.147] - Launch lazy future ... done
[18:42:03.148] run() for 'MultisessionFuture' ... done
[18:42:03.148] Created future:
[18:42:03.171] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.171] - Validating connection of MultisessionFuture
[18:42:03.171] - received message: FutureResult
[18:42:03.171] - Received FutureResult
[18:42:03.172] - Erased future from FutureRegistry
[18:42:03.172] result() for ClusterFuture ...
[18:42:03.172] - result already collected: FutureResult
[18:42:03.172] result() for ClusterFuture ... done
[18:42:03.172] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.149] MultisessionFuture:
[18:42:03.149] Label: 'future_vapply-1'
[18:42:03.149] Expression:
[18:42:03.149] {
[18:42:03.149]     do.call(function(...) {
[18:42:03.149]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.149]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.149]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.149]             on.exit(options(oopts), add = TRUE)
[18:42:03.149]         }
[18:42:03.149]         {
[18:42:03.149]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.149]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.149]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.149]             })
[18:42:03.149]         }
[18:42:03.149]     }, args = future.call.arguments)
[18:42:03.149] }
[18:42:03.149] Lazy evaluation: FALSE
[18:42:03.149] Asynchronous evaluation: TRUE
[18:42:03.149] Local evaluation: TRUE
[18:42:03.149] Environment: R_GlobalEnv
[18:42:03.149] Capture standard output: TRUE
[18:42:03.149] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.149] Globals: 11 objects totaling 16.28 KiB (function '...future.FUN' of 6.70 KiB, function 'x_FUN' of 1.36 KiB, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:03.149] Packages: 1 packages ('future.apply')
[18:42:03.149] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.149] Resolved: TRUE
[18:42:03.149] Value: <not collected>
[18:42:03.149] Conditions captured: <none>
[18:42:03.149] Early signaling: FALSE
[18:42:03.149] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.149] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.173] Chunk #1 of 2 ... DONE
[18:42:03.173] Chunk #2 of 2 ...
[18:42:03.173]  - Finding globals in 'X' for chunk #2 ...
[18:42:03.173] getGlobalsAndPackages() ...
[18:42:03.173] Searching for globals...
[18:42:03.174] 
[18:42:03.174] Searching for globals ... DONE
[18:42:03.174] - globals: [0] <none>
[18:42:03.174] getGlobalsAndPackages() ... DONE
[18:42:03.174]    + additional globals found: [n=0] 
[18:42:03.175]    + additional namespaces needed: [n=0] 
[18:42:03.175]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:03.175]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.175]  - seeds: <none>
[18:42:03.175]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.175] getGlobalsAndPackages() ...
[18:42:03.176] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.176] Resolving globals: FALSE
[18:42:03.176] Tweak future expression to call with '...' arguments ...
[18:42:03.176] {
[18:42:03.176]     do.call(function(...) {
[18:42:03.176]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.176]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.176]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.176]             on.exit(options(oopts), add = TRUE)
[18:42:03.176]         }
[18:42:03.176]         {
[18:42:03.176]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.176]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.176]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.176]             })
[18:42:03.176]         }
[18:42:03.176]     }, args = future.call.arguments)
[18:42:03.176] }
[18:42:03.177] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.177] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.177] - packages: [1] 'future.apply'
[18:42:03.178] getGlobalsAndPackages() ... DONE
[18:42:03.178] run() for 'Future' ...
[18:42:03.178] - state: 'created'
[18:42:03.178] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.193] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.194] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.194]   - Field: 'node'
[18:42:03.194]   - Field: 'label'
[18:42:03.194]   - Field: 'local'
[18:42:03.194]   - Field: 'owner'
[18:42:03.195]   - Field: 'envir'
[18:42:03.195]   - Field: 'workers'
[18:42:03.195]   - Field: 'packages'
[18:42:03.195]   - Field: 'gc'
[18:42:03.195]   - Field: 'conditions'
[18:42:03.195]   - Field: 'persistent'
[18:42:03.196]   - Field: 'expr'
[18:42:03.196]   - Field: 'uuid'
[18:42:03.196]   - Field: 'seed'
[18:42:03.196]   - Field: 'version'
[18:42:03.196]   - Field: 'result'
[18:42:03.196]   - Field: 'asynchronous'
[18:42:03.197]   - Field: 'calls'
[18:42:03.197]   - Field: 'globals'
[18:42:03.197]   - Field: 'stdout'
[18:42:03.197]   - Field: 'earlySignal'
[18:42:03.197]   - Field: 'lazy'
[18:42:03.197]   - Field: 'state'
[18:42:03.198] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.198] - Launch lazy future ...
[18:42:03.198] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:03.198] Packages needed by future strategies (n = 0): <none>
[18:42:03.199] {
[18:42:03.199]     {
[18:42:03.199]         {
[18:42:03.199]             ...future.startTime <- base::Sys.time()
[18:42:03.199]             {
[18:42:03.199]                 {
[18:42:03.199]                   {
[18:42:03.199]                     {
[18:42:03.199]                       {
[18:42:03.199]                         base::local({
[18:42:03.199]                           has_future <- base::requireNamespace("future", 
[18:42:03.199]                             quietly = TRUE)
[18:42:03.199]                           if (has_future) {
[18:42:03.199]                             ns <- base::getNamespace("future")
[18:42:03.199]                             version <- ns[[".package"]][["version"]]
[18:42:03.199]                             if (is.null(version)) 
[18:42:03.199]                               version <- utils::packageVersion("future")
[18:42:03.199]                           }
[18:42:03.199]                           else {
[18:42:03.199]                             version <- NULL
[18:42:03.199]                           }
[18:42:03.199]                           if (!has_future || version < "1.8.0") {
[18:42:03.199]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.199]                               "", base::R.version$version.string), 
[18:42:03.199]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.199]                                 base::R.version$platform, 8 * 
[18:42:03.199]                                   base::.Machine$sizeof.pointer), 
[18:42:03.199]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.199]                                 "release", "version")], collapse = " "), 
[18:42:03.199]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.199]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.199]                               info)
[18:42:03.199]                             info <- base::paste(info, collapse = "; ")
[18:42:03.199]                             if (!has_future) {
[18:42:03.199]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.199]                                 info)
[18:42:03.199]                             }
[18:42:03.199]                             else {
[18:42:03.199]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.199]                                 info, version)
[18:42:03.199]                             }
[18:42:03.199]                             base::stop(msg)
[18:42:03.199]                           }
[18:42:03.199]                         })
[18:42:03.199]                       }
[18:42:03.199]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.199]                       base::options(mc.cores = 1L)
[18:42:03.199]                     }
[18:42:03.199]                     base::local({
[18:42:03.199]                       for (pkg in "future.apply") {
[18:42:03.199]                         base::loadNamespace(pkg)
[18:42:03.199]                         base::library(pkg, character.only = TRUE)
[18:42:03.199]                       }
[18:42:03.199]                     })
[18:42:03.199]                   }
[18:42:03.199]                   ...future.strategy.old <- future::plan("list")
[18:42:03.199]                   options(future.plan = NULL)
[18:42:03.199]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.199]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.199]                 }
[18:42:03.199]                 ...future.workdir <- getwd()
[18:42:03.199]             }
[18:42:03.199]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.199]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.199]         }
[18:42:03.199]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.199]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.199]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.199]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.199]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.199]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.199]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.199]             base::names(...future.oldOptions))
[18:42:03.199]     }
[18:42:03.199]     if (FALSE) {
[18:42:03.199]     }
[18:42:03.199]     else {
[18:42:03.199]         if (TRUE) {
[18:42:03.199]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.199]                 open = "w")
[18:42:03.199]         }
[18:42:03.199]         else {
[18:42:03.199]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.199]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.199]         }
[18:42:03.199]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.199]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.199]             base::sink(type = "output", split = FALSE)
[18:42:03.199]             base::close(...future.stdout)
[18:42:03.199]         }, add = TRUE)
[18:42:03.199]     }
[18:42:03.199]     ...future.frame <- base::sys.nframe()
[18:42:03.199]     ...future.conditions <- base::list()
[18:42:03.199]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.199]     if (FALSE) {
[18:42:03.199]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.199]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.199]     }
[18:42:03.199]     ...future.result <- base::tryCatch({
[18:42:03.199]         base::withCallingHandlers({
[18:42:03.199]             ...future.value <- base::withVisible(base::local({
[18:42:03.199]                 ...future.makeSendCondition <- base::local({
[18:42:03.199]                   sendCondition <- NULL
[18:42:03.199]                   function(frame = 1L) {
[18:42:03.199]                     if (is.function(sendCondition)) 
[18:42:03.199]                       return(sendCondition)
[18:42:03.199]                     ns <- getNamespace("parallel")
[18:42:03.199]                     if (exists("sendData", mode = "function", 
[18:42:03.199]                       envir = ns)) {
[18:42:03.199]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.199]                         envir = ns)
[18:42:03.199]                       envir <- sys.frame(frame)
[18:42:03.199]                       master <- NULL
[18:42:03.199]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.199]                         !identical(envir, emptyenv())) {
[18:42:03.199]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.199]                           inherits = FALSE)) {
[18:42:03.199]                           master <- get("master", mode = "list", 
[18:42:03.199]                             envir = envir, inherits = FALSE)
[18:42:03.199]                           if (inherits(master, c("SOCKnode", 
[18:42:03.199]                             "SOCK0node"))) {
[18:42:03.199]                             sendCondition <<- function(cond) {
[18:42:03.199]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.199]                                 success = TRUE)
[18:42:03.199]                               parallel_sendData(master, data)
[18:42:03.199]                             }
[18:42:03.199]                             return(sendCondition)
[18:42:03.199]                           }
[18:42:03.199]                         }
[18:42:03.199]                         frame <- frame + 1L
[18:42:03.199]                         envir <- sys.frame(frame)
[18:42:03.199]                       }
[18:42:03.199]                     }
[18:42:03.199]                     sendCondition <<- function(cond) NULL
[18:42:03.199]                   }
[18:42:03.199]                 })
[18:42:03.199]                 withCallingHandlers({
[18:42:03.199]                   {
[18:42:03.199]                     do.call(function(...) {
[18:42:03.199]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.199]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.199]                         ...future.globals.maxSize)) {
[18:42:03.199]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.199]                         on.exit(options(oopts), add = TRUE)
[18:42:03.199]                       }
[18:42:03.199]                       {
[18:42:03.199]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.199]                           FUN = function(jj) {
[18:42:03.199]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.199]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.199]                           })
[18:42:03.199]                       }
[18:42:03.199]                     }, args = future.call.arguments)
[18:42:03.199]                   }
[18:42:03.199]                 }, immediateCondition = function(cond) {
[18:42:03.199]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.199]                   sendCondition(cond)
[18:42:03.199]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.199]                   {
[18:42:03.199]                     inherits <- base::inherits
[18:42:03.199]                     invokeRestart <- base::invokeRestart
[18:42:03.199]                     is.null <- base::is.null
[18:42:03.199]                     muffled <- FALSE
[18:42:03.199]                     if (inherits(cond, "message")) {
[18:42:03.199]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.199]                       if (muffled) 
[18:42:03.199]                         invokeRestart("muffleMessage")
[18:42:03.199]                     }
[18:42:03.199]                     else if (inherits(cond, "warning")) {
[18:42:03.199]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.199]                       if (muffled) 
[18:42:03.199]                         invokeRestart("muffleWarning")
[18:42:03.199]                     }
[18:42:03.199]                     else if (inherits(cond, "condition")) {
[18:42:03.199]                       if (!is.null(pattern)) {
[18:42:03.199]                         computeRestarts <- base::computeRestarts
[18:42:03.199]                         grepl <- base::grepl
[18:42:03.199]                         restarts <- computeRestarts(cond)
[18:42:03.199]                         for (restart in restarts) {
[18:42:03.199]                           name <- restart$name
[18:42:03.199]                           if (is.null(name)) 
[18:42:03.199]                             next
[18:42:03.199]                           if (!grepl(pattern, name)) 
[18:42:03.199]                             next
[18:42:03.199]                           invokeRestart(restart)
[18:42:03.199]                           muffled <- TRUE
[18:42:03.199]                           break
[18:42:03.199]                         }
[18:42:03.199]                       }
[18:42:03.199]                     }
[18:42:03.199]                     invisible(muffled)
[18:42:03.199]                   }
[18:42:03.199]                   muffleCondition(cond)
[18:42:03.199]                 })
[18:42:03.199]             }))
[18:42:03.199]             future::FutureResult(value = ...future.value$value, 
[18:42:03.199]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.199]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.199]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.199]                     ...future.globalenv.names))
[18:42:03.199]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.199]         }, condition = base::local({
[18:42:03.199]             c <- base::c
[18:42:03.199]             inherits <- base::inherits
[18:42:03.199]             invokeRestart <- base::invokeRestart
[18:42:03.199]             length <- base::length
[18:42:03.199]             list <- base::list
[18:42:03.199]             seq.int <- base::seq.int
[18:42:03.199]             signalCondition <- base::signalCondition
[18:42:03.199]             sys.calls <- base::sys.calls
[18:42:03.199]             `[[` <- base::`[[`
[18:42:03.199]             `+` <- base::`+`
[18:42:03.199]             `<<-` <- base::`<<-`
[18:42:03.199]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.199]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.199]                   3L)]
[18:42:03.199]             }
[18:42:03.199]             function(cond) {
[18:42:03.199]                 is_error <- inherits(cond, "error")
[18:42:03.199]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.199]                   NULL)
[18:42:03.199]                 if (is_error) {
[18:42:03.199]                   sessionInformation <- function() {
[18:42:03.199]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.199]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.199]                       search = base::search(), system = base::Sys.info())
[18:42:03.199]                   }
[18:42:03.199]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.199]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.199]                     cond$call), session = sessionInformation(), 
[18:42:03.199]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.199]                   signalCondition(cond)
[18:42:03.199]                 }
[18:42:03.199]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.199]                 "immediateCondition"))) {
[18:42:03.199]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.199]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.199]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.199]                   if (TRUE && !signal) {
[18:42:03.199]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.199]                     {
[18:42:03.199]                       inherits <- base::inherits
[18:42:03.199]                       invokeRestart <- base::invokeRestart
[18:42:03.199]                       is.null <- base::is.null
[18:42:03.199]                       muffled <- FALSE
[18:42:03.199]                       if (inherits(cond, "message")) {
[18:42:03.199]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.199]                         if (muffled) 
[18:42:03.199]                           invokeRestart("muffleMessage")
[18:42:03.199]                       }
[18:42:03.199]                       else if (inherits(cond, "warning")) {
[18:42:03.199]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.199]                         if (muffled) 
[18:42:03.199]                           invokeRestart("muffleWarning")
[18:42:03.199]                       }
[18:42:03.199]                       else if (inherits(cond, "condition")) {
[18:42:03.199]                         if (!is.null(pattern)) {
[18:42:03.199]                           computeRestarts <- base::computeRestarts
[18:42:03.199]                           grepl <- base::grepl
[18:42:03.199]                           restarts <- computeRestarts(cond)
[18:42:03.199]                           for (restart in restarts) {
[18:42:03.199]                             name <- restart$name
[18:42:03.199]                             if (is.null(name)) 
[18:42:03.199]                               next
[18:42:03.199]                             if (!grepl(pattern, name)) 
[18:42:03.199]                               next
[18:42:03.199]                             invokeRestart(restart)
[18:42:03.199]                             muffled <- TRUE
[18:42:03.199]                             break
[18:42:03.199]                           }
[18:42:03.199]                         }
[18:42:03.199]                       }
[18:42:03.199]                       invisible(muffled)
[18:42:03.199]                     }
[18:42:03.199]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.199]                   }
[18:42:03.199]                 }
[18:42:03.199]                 else {
[18:42:03.199]                   if (TRUE) {
[18:42:03.199]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.199]                     {
[18:42:03.199]                       inherits <- base::inherits
[18:42:03.199]                       invokeRestart <- base::invokeRestart
[18:42:03.199]                       is.null <- base::is.null
[18:42:03.199]                       muffled <- FALSE
[18:42:03.199]                       if (inherits(cond, "message")) {
[18:42:03.199]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.199]                         if (muffled) 
[18:42:03.199]                           invokeRestart("muffleMessage")
[18:42:03.199]                       }
[18:42:03.199]                       else if (inherits(cond, "warning")) {
[18:42:03.199]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.199]                         if (muffled) 
[18:42:03.199]                           invokeRestart("muffleWarning")
[18:42:03.199]                       }
[18:42:03.199]                       else if (inherits(cond, "condition")) {
[18:42:03.199]                         if (!is.null(pattern)) {
[18:42:03.199]                           computeRestarts <- base::computeRestarts
[18:42:03.199]                           grepl <- base::grepl
[18:42:03.199]                           restarts <- computeRestarts(cond)
[18:42:03.199]                           for (restart in restarts) {
[18:42:03.199]                             name <- restart$name
[18:42:03.199]                             if (is.null(name)) 
[18:42:03.199]                               next
[18:42:03.199]                             if (!grepl(pattern, name)) 
[18:42:03.199]                               next
[18:42:03.199]                             invokeRestart(restart)
[18:42:03.199]                             muffled <- TRUE
[18:42:03.199]                             break
[18:42:03.199]                           }
[18:42:03.199]                         }
[18:42:03.199]                       }
[18:42:03.199]                       invisible(muffled)
[18:42:03.199]                     }
[18:42:03.199]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.199]                   }
[18:42:03.199]                 }
[18:42:03.199]             }
[18:42:03.199]         }))
[18:42:03.199]     }, error = function(ex) {
[18:42:03.199]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.199]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.199]                 ...future.rng), started = ...future.startTime, 
[18:42:03.199]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.199]             version = "1.8"), class = "FutureResult")
[18:42:03.199]     }, finally = {
[18:42:03.199]         if (!identical(...future.workdir, getwd())) 
[18:42:03.199]             setwd(...future.workdir)
[18:42:03.199]         {
[18:42:03.199]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.199]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.199]             }
[18:42:03.199]             base::options(...future.oldOptions)
[18:42:03.199]             if (.Platform$OS.type == "windows") {
[18:42:03.199]                 old_names <- names(...future.oldEnvVars)
[18:42:03.199]                 envs <- base::Sys.getenv()
[18:42:03.199]                 names <- names(envs)
[18:42:03.199]                 common <- intersect(names, old_names)
[18:42:03.199]                 added <- setdiff(names, old_names)
[18:42:03.199]                 removed <- setdiff(old_names, names)
[18:42:03.199]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.199]                   envs[common]]
[18:42:03.199]                 NAMES <- toupper(changed)
[18:42:03.199]                 args <- list()
[18:42:03.199]                 for (kk in seq_along(NAMES)) {
[18:42:03.199]                   name <- changed[[kk]]
[18:42:03.199]                   NAME <- NAMES[[kk]]
[18:42:03.199]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.199]                     next
[18:42:03.199]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.199]                 }
[18:42:03.199]                 NAMES <- toupper(added)
[18:42:03.199]                 for (kk in seq_along(NAMES)) {
[18:42:03.199]                   name <- added[[kk]]
[18:42:03.199]                   NAME <- NAMES[[kk]]
[18:42:03.199]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.199]                     next
[18:42:03.199]                   args[[name]] <- ""
[18:42:03.199]                 }
[18:42:03.199]                 NAMES <- toupper(removed)
[18:42:03.199]                 for (kk in seq_along(NAMES)) {
[18:42:03.199]                   name <- removed[[kk]]
[18:42:03.199]                   NAME <- NAMES[[kk]]
[18:42:03.199]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.199]                     next
[18:42:03.199]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.199]                 }
[18:42:03.199]                 if (length(args) > 0) 
[18:42:03.199]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.199]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.199]             }
[18:42:03.199]             else {
[18:42:03.199]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.199]             }
[18:42:03.199]             {
[18:42:03.199]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.199]                   0L) {
[18:42:03.199]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.199]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.199]                   base::options(opts)
[18:42:03.199]                 }
[18:42:03.199]                 {
[18:42:03.199]                   {
[18:42:03.199]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.199]                     NULL
[18:42:03.199]                   }
[18:42:03.199]                   options(future.plan = NULL)
[18:42:03.199]                   if (is.na(NA_character_)) 
[18:42:03.199]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.199]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.199]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.199]                     .init = FALSE)
[18:42:03.199]                 }
[18:42:03.199]             }
[18:42:03.199]         }
[18:42:03.199]     })
[18:42:03.199]     if (TRUE) {
[18:42:03.199]         base::sink(type = "output", split = FALSE)
[18:42:03.199]         if (TRUE) {
[18:42:03.199]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.199]         }
[18:42:03.199]         else {
[18:42:03.199]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.199]         }
[18:42:03.199]         base::close(...future.stdout)
[18:42:03.199]         ...future.stdout <- NULL
[18:42:03.199]     }
[18:42:03.199]     ...future.result$conditions <- ...future.conditions
[18:42:03.199]     ...future.result$finished <- base::Sys.time()
[18:42:03.199]     ...future.result
[18:42:03.199] }
[18:42:03.205] Exporting 11 global objects (16.42 KiB) to cluster node #1 ...
[18:42:03.205] Exporting '...future.FUN' (6.70 KiB) to cluster node #1 ...
[18:42:03.206] Exporting '...future.FUN' (6.70 KiB) to cluster node #1 ... DONE
[18:42:03.206] Exporting 'x_FUN' (1.36 KiB) to cluster node #1 ...
[18:42:03.207] Exporting 'x_FUN' (1.36 KiB) to cluster node #1 ... DONE
[18:42:03.207] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:03.208] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:03.208] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:03.209] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:03.209] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:03.210] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:03.210] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:03.211] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:03.211] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:03.212] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:03.212] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.213] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.213] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ...
[18:42:03.213] Exporting '...future.elements_ii' (91 bytes) to cluster node #1 ... DONE
[18:42:03.214] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.214] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.214] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.215] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.215] Exporting 11 global objects (16.42 KiB) to cluster node #1 ... DONE
[18:42:03.216] MultisessionFuture started
[18:42:03.216] - Launch lazy future ... done
[18:42:03.216] run() for 'MultisessionFuture' ... done
[18:42:03.216] Created future:
[18:42:03.247] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.248] - Validating connection of MultisessionFuture
[18:42:03.248] - received message: FutureResult
[18:42:03.249] - Received FutureResult
[18:42:03.249] - Erased future from FutureRegistry
[18:42:03.249] result() for ClusterFuture ...
[18:42:03.249] - result already collected: FutureResult
[18:42:03.249] result() for ClusterFuture ... done
[18:42:03.249] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.217] MultisessionFuture:
[18:42:03.217] Label: 'future_vapply-2'
[18:42:03.217] Expression:
[18:42:03.217] {
[18:42:03.217]     do.call(function(...) {
[18:42:03.217]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.217]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.217]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.217]             on.exit(options(oopts), add = TRUE)
[18:42:03.217]         }
[18:42:03.217]         {
[18:42:03.217]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.217]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.217]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.217]             })
[18:42:03.217]         }
[18:42:03.217]     }, args = future.call.arguments)
[18:42:03.217] }
[18:42:03.217] Lazy evaluation: FALSE
[18:42:03.217] Asynchronous evaluation: TRUE
[18:42:03.217] Local evaluation: TRUE
[18:42:03.217] Environment: R_GlobalEnv
[18:42:03.217] Capture standard output: TRUE
[18:42:03.217] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.217] Globals: 11 objects totaling 16.28 KiB (function '...future.FUN' of 6.70 KiB, function 'x_FUN' of 1.36 KiB, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:03.217] Packages: 1 packages ('future.apply')
[18:42:03.217] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.217] Resolved: TRUE
[18:42:03.217] Value: <not collected>
[18:42:03.217] Conditions captured: <none>
[18:42:03.217] Early signaling: FALSE
[18:42:03.217] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.217] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.250] Chunk #2 of 2 ... DONE
[18:42:03.250] Launching 2 futures (chunks) ... DONE
[18:42:03.250] Resolving 2 futures (chunks) ...
[18:42:03.251] resolve() on list ...
[18:42:03.251]  recursive: 0
[18:42:03.251]  length: 2
[18:42:03.251] 
[18:42:03.251] Future #1
[18:42:03.251] result() for ClusterFuture ...
[18:42:03.251] - result already collected: FutureResult
[18:42:03.252] result() for ClusterFuture ... done
[18:42:03.252] result() for ClusterFuture ...
[18:42:03.252] - result already collected: FutureResult
[18:42:03.252] result() for ClusterFuture ... done
[18:42:03.252] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:03.252] - nx: 2
[18:42:03.253] - relay: TRUE
[18:42:03.253] - stdout: TRUE
[18:42:03.253] - signal: TRUE
[18:42:03.253] - resignal: FALSE
[18:42:03.253] - force: TRUE
[18:42:03.253] - relayed: [n=2] FALSE, FALSE
[18:42:03.254] - queued futures: [n=2] FALSE, FALSE
[18:42:03.254]  - until=1
[18:42:03.254]  - relaying element #1
[18:42:03.254] result() for ClusterFuture ...
[18:42:03.254] - result already collected: FutureResult
[18:42:03.254] result() for ClusterFuture ... done
[18:42:03.254] result() for ClusterFuture ...
[18:42:03.255] - result already collected: FutureResult
[18:42:03.255] result() for ClusterFuture ... done
[18:42:03.255] result() for ClusterFuture ...
[18:42:03.255] - result already collected: FutureResult
[18:42:03.255] result() for ClusterFuture ... done
[18:42:03.256] result() for ClusterFuture ...
[18:42:03.256] - result already collected: FutureResult
[18:42:03.256] result() for ClusterFuture ... done
[18:42:03.256] - relayed: [n=2] TRUE, FALSE
[18:42:03.256] - queued futures: [n=2] TRUE, FALSE
[18:42:03.256] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:03.256]  length: 1 (resolved future 1)
[18:42:03.257] Future #2
[18:42:03.257] result() for ClusterFuture ...
[18:42:03.257] - result already collected: FutureResult
[18:42:03.257] result() for ClusterFuture ... done
[18:42:03.257] result() for ClusterFuture ...
[18:42:03.257] - result already collected: FutureResult
[18:42:03.258] result() for ClusterFuture ... done
[18:42:03.258] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:03.258] - nx: 2
[18:42:03.258] - relay: TRUE
[18:42:03.258] - stdout: TRUE
[18:42:03.258] - signal: TRUE
[18:42:03.259] - resignal: FALSE
[18:42:03.259] - force: TRUE
[18:42:03.259] - relayed: [n=2] TRUE, FALSE
[18:42:03.259] - queued futures: [n=2] TRUE, FALSE
[18:42:03.259]  - until=2
[18:42:03.259]  - relaying element #2
[18:42:03.260] result() for ClusterFuture ...
[18:42:03.260] - result already collected: FutureResult
[18:42:03.260] result() for ClusterFuture ... done
[18:42:03.260] result() for ClusterFuture ...
[18:42:03.260] - result already collected: FutureResult
[18:42:03.260] result() for ClusterFuture ... done
[18:42:03.261] result() for ClusterFuture ...
[18:42:03.261] - result already collected: FutureResult
[18:42:03.261] result() for ClusterFuture ... done
[18:42:03.261] result() for ClusterFuture ...
[18:42:03.261] - result already collected: FutureResult
[18:42:03.261] result() for ClusterFuture ... done
[18:42:03.261] - relayed: [n=2] TRUE, TRUE
[18:42:03.262] - queued futures: [n=2] TRUE, TRUE
[18:42:03.262] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:03.262]  length: 0 (resolved future 2)
[18:42:03.262] Relaying remaining futures
[18:42:03.262] signalConditionsASAP(NULL, pos=0) ...
[18:42:03.262] - nx: 2
[18:42:03.263] - relay: TRUE
[18:42:03.263] - stdout: TRUE
[18:42:03.263] - signal: TRUE
[18:42:03.263] - resignal: FALSE
[18:42:03.263] - force: TRUE
[18:42:03.263] - relayed: [n=2] TRUE, TRUE
[18:42:03.264] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:03.264] - relayed: [n=2] TRUE, TRUE
[18:42:03.264] - queued futures: [n=2] TRUE, TRUE
[18:42:03.264] signalConditionsASAP(NULL, pos=0) ... done
[18:42:03.264] resolve() on list ... DONE
[18:42:03.264] result() for ClusterFuture ...
[18:42:03.265] - result already collected: FutureResult
[18:42:03.265] result() for ClusterFuture ... done
[18:42:03.265] result() for ClusterFuture ...
[18:42:03.265] - result already collected: FutureResult
[18:42:03.265] result() for ClusterFuture ... done
[18:42:03.265] result() for ClusterFuture ...
[18:42:03.266] - result already collected: FutureResult
[18:42:03.266] result() for ClusterFuture ... done
[18:42:03.266] result() for ClusterFuture ...
[18:42:03.266] - result already collected: FutureResult
[18:42:03.266] result() for ClusterFuture ... done
[18:42:03.266]  - Number of value chunks collected: 2
[18:42:03.267] Resolving 2 futures (chunks) ... DONE
[18:42:03.267] Reducing values from 2 chunks ...
[18:42:03.267]  - Number of values collected after concatenation: 10
[18:42:03.267]  - Number of values expected: 10
[18:42:03.267] Reducing values from 2 chunks ... DONE
[18:42:03.267] future_lapply() ... DONE
 int [1:2, 1:2, 1:10] 1 1 1 1 2 2 2 2 3 3 ...
 - attr(*, "dimnames")=List of 3
  ..$ : chr [1:2] "a" "b"
  ..$ : chr [1:2] "A" "B"
  ..$ : NULL
- From example(vapply) ...
[18:42:03.270] future_lapply() ...
[18:42:03.275] Number of chunks: 2
[18:42:03.276] getGlobalsAndPackagesXApply() ...
[18:42:03.276]  - future.globals: TRUE
[18:42:03.276] getGlobalsAndPackages() ...
[18:42:03.276] Searching for globals...
[18:42:03.281] - globals found: [17] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'UseMethod'
[18:42:03.281] Searching for globals ... DONE
[18:42:03.281] Resolving globals: FALSE
[18:42:03.282] The total size of the 7 globals is 13.03 KiB (13339 bytes)
[18:42:03.283] The total size of the 7 globals exported for future expression ('FUN()') is 13.03 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (4.75 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:03.283] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:03.283] - packages: [2] 'stats', 'future.apply'
[18:42:03.283] getGlobalsAndPackages() ... DONE
[18:42:03.284]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:03.284]  - needed namespaces: [n=2] 'stats', 'future.apply'
[18:42:03.284] Finding globals ... DONE
[18:42:03.284]  - use_args: TRUE
[18:42:03.284]  - Getting '...' globals ...
[18:42:03.285] resolve() on list ...
[18:42:03.285]  recursive: 0
[18:42:03.285]  length: 1
[18:42:03.285]  elements: '...'
[18:42:03.285]  length: 0 (resolved future 1)
[18:42:03.286] resolve() on list ... DONE
[18:42:03.286]    - '...' content: [n=0] 
[18:42:03.286] List of 1
[18:42:03.286]  $ ...: list()
[18:42:03.286]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.286]  - attr(*, "where")=List of 1
[18:42:03.286]   ..$ ...:<environment: 0x000002ea02b36ff0> 
[18:42:03.286]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.286]  - attr(*, "resolved")= logi TRUE
[18:42:03.286]  - attr(*, "total_size")= num NA
[18:42:03.292]  - Getting '...' globals ... DONE
[18:42:03.292] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:03.292] List of 8
[18:42:03.292]  $ ...future.FUN:function (x, ...)  
[18:42:03.292]  $ x_FUN        :function (x, ...)  
[18:42:03.292]  $ times        : int 5
[18:42:03.292]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:03.292]  $ stop_if_not  :function (...)  
[18:42:03.292]  $ dim          : NULL
[18:42:03.292]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:03.292]  $ ...          : list()
[18:42:03.292]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.292]  - attr(*, "where")=List of 8
[18:42:03.292]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:03.292]   ..$ ...          :<environment: 0x000002ea02b36ff0> 
[18:42:03.292]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.292]  - attr(*, "resolved")= logi FALSE
[18:42:03.292]  - attr(*, "total_size")= int 24127
[18:42:03.299] Packages to be attached in all futures: [n=2] 'stats', 'future.apply'
[18:42:03.299] getGlobalsAndPackagesXApply() ... DONE
[18:42:03.300] Number of futures (= number of chunks): 2
[18:42:03.300] Launching 2 futures (chunks) ...
[18:42:03.300] Chunk #1 of 2 ...
[18:42:03.300]  - Finding globals in 'X' for chunk #1 ...
[18:42:03.300] getGlobalsAndPackages() ...
[18:42:03.300] Searching for globals...
[18:42:03.301] 
[18:42:03.301] Searching for globals ... DONE
[18:42:03.301] - globals: [0] <none>
[18:42:03.301] getGlobalsAndPackages() ... DONE
[18:42:03.301]    + additional globals found: [n=0] 
[18:42:03.302]    + additional namespaces needed: [n=0] 
[18:42:03.302]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:03.302]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.302]  - seeds: <none>
[18:42:03.302]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.302] getGlobalsAndPackages() ...
[18:42:03.303] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.303] Resolving globals: FALSE
[18:42:03.303] Tweak future expression to call with '...' arguments ...
[18:42:03.303] {
[18:42:03.303]     do.call(function(...) {
[18:42:03.303]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.303]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.303]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.303]             on.exit(options(oopts), add = TRUE)
[18:42:03.303]         }
[18:42:03.303]         {
[18:42:03.303]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.303]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.303]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.303]             })
[18:42:03.303]         }
[18:42:03.303]     }, args = future.call.arguments)
[18:42:03.303] }
[18:42:03.304] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.304] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.305] - packages: [2] 'stats', 'future.apply'
[18:42:03.305] getGlobalsAndPackages() ... DONE
[18:42:03.305] run() for 'Future' ...
[18:42:03.305] - state: 'created'
[18:42:03.306] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.321] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.321] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.321]   - Field: 'node'
[18:42:03.321]   - Field: 'label'
[18:42:03.322]   - Field: 'local'
[18:42:03.322]   - Field: 'owner'
[18:42:03.322]   - Field: 'envir'
[18:42:03.322]   - Field: 'workers'
[18:42:03.322]   - Field: 'packages'
[18:42:03.322]   - Field: 'gc'
[18:42:03.323]   - Field: 'conditions'
[18:42:03.323]   - Field: 'persistent'
[18:42:03.323]   - Field: 'expr'
[18:42:03.323]   - Field: 'uuid'
[18:42:03.323]   - Field: 'seed'
[18:42:03.323]   - Field: 'version'
[18:42:03.324]   - Field: 'result'
[18:42:03.324]   - Field: 'asynchronous'
[18:42:03.324]   - Field: 'calls'
[18:42:03.324]   - Field: 'globals'
[18:42:03.324]   - Field: 'stdout'
[18:42:03.324]   - Field: 'earlySignal'
[18:42:03.325]   - Field: 'lazy'
[18:42:03.325]   - Field: 'state'
[18:42:03.325] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.325] - Launch lazy future ...
[18:42:03.326] Packages needed by the future expression (n = 2): 'stats', 'future.apply'
[18:42:03.326] Packages needed by future strategies (n = 0): <none>
[18:42:03.326] {
[18:42:03.326]     {
[18:42:03.326]         {
[18:42:03.326]             ...future.startTime <- base::Sys.time()
[18:42:03.326]             {
[18:42:03.326]                 {
[18:42:03.326]                   {
[18:42:03.326]                     {
[18:42:03.326]                       {
[18:42:03.326]                         base::local({
[18:42:03.326]                           has_future <- base::requireNamespace("future", 
[18:42:03.326]                             quietly = TRUE)
[18:42:03.326]                           if (has_future) {
[18:42:03.326]                             ns <- base::getNamespace("future")
[18:42:03.326]                             version <- ns[[".package"]][["version"]]
[18:42:03.326]                             if (is.null(version)) 
[18:42:03.326]                               version <- utils::packageVersion("future")
[18:42:03.326]                           }
[18:42:03.326]                           else {
[18:42:03.326]                             version <- NULL
[18:42:03.326]                           }
[18:42:03.326]                           if (!has_future || version < "1.8.0") {
[18:42:03.326]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.326]                               "", base::R.version$version.string), 
[18:42:03.326]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.326]                                 base::R.version$platform, 8 * 
[18:42:03.326]                                   base::.Machine$sizeof.pointer), 
[18:42:03.326]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.326]                                 "release", "version")], collapse = " "), 
[18:42:03.326]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.326]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.326]                               info)
[18:42:03.326]                             info <- base::paste(info, collapse = "; ")
[18:42:03.326]                             if (!has_future) {
[18:42:03.326]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.326]                                 info)
[18:42:03.326]                             }
[18:42:03.326]                             else {
[18:42:03.326]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.326]                                 info, version)
[18:42:03.326]                             }
[18:42:03.326]                             base::stop(msg)
[18:42:03.326]                           }
[18:42:03.326]                         })
[18:42:03.326]                       }
[18:42:03.326]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.326]                       base::options(mc.cores = 1L)
[18:42:03.326]                     }
[18:42:03.326]                     base::local({
[18:42:03.326]                       for (pkg in c("stats", "future.apply")) {
[18:42:03.326]                         base::loadNamespace(pkg)
[18:42:03.326]                         base::library(pkg, character.only = TRUE)
[18:42:03.326]                       }
[18:42:03.326]                     })
[18:42:03.326]                   }
[18:42:03.326]                   ...future.strategy.old <- future::plan("list")
[18:42:03.326]                   options(future.plan = NULL)
[18:42:03.326]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.326]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.326]                 }
[18:42:03.326]                 ...future.workdir <- getwd()
[18:42:03.326]             }
[18:42:03.326]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.326]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.326]         }
[18:42:03.326]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.326]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.326]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.326]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.326]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.326]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.326]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.326]             base::names(...future.oldOptions))
[18:42:03.326]     }
[18:42:03.326]     if (FALSE) {
[18:42:03.326]     }
[18:42:03.326]     else {
[18:42:03.326]         if (TRUE) {
[18:42:03.326]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.326]                 open = "w")
[18:42:03.326]         }
[18:42:03.326]         else {
[18:42:03.326]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.326]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.326]         }
[18:42:03.326]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.326]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.326]             base::sink(type = "output", split = FALSE)
[18:42:03.326]             base::close(...future.stdout)
[18:42:03.326]         }, add = TRUE)
[18:42:03.326]     }
[18:42:03.326]     ...future.frame <- base::sys.nframe()
[18:42:03.326]     ...future.conditions <- base::list()
[18:42:03.326]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.326]     if (FALSE) {
[18:42:03.326]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.326]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.326]     }
[18:42:03.326]     ...future.result <- base::tryCatch({
[18:42:03.326]         base::withCallingHandlers({
[18:42:03.326]             ...future.value <- base::withVisible(base::local({
[18:42:03.326]                 ...future.makeSendCondition <- base::local({
[18:42:03.326]                   sendCondition <- NULL
[18:42:03.326]                   function(frame = 1L) {
[18:42:03.326]                     if (is.function(sendCondition)) 
[18:42:03.326]                       return(sendCondition)
[18:42:03.326]                     ns <- getNamespace("parallel")
[18:42:03.326]                     if (exists("sendData", mode = "function", 
[18:42:03.326]                       envir = ns)) {
[18:42:03.326]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.326]                         envir = ns)
[18:42:03.326]                       envir <- sys.frame(frame)
[18:42:03.326]                       master <- NULL
[18:42:03.326]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.326]                         !identical(envir, emptyenv())) {
[18:42:03.326]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.326]                           inherits = FALSE)) {
[18:42:03.326]                           master <- get("master", mode = "list", 
[18:42:03.326]                             envir = envir, inherits = FALSE)
[18:42:03.326]                           if (inherits(master, c("SOCKnode", 
[18:42:03.326]                             "SOCK0node"))) {
[18:42:03.326]                             sendCondition <<- function(cond) {
[18:42:03.326]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.326]                                 success = TRUE)
[18:42:03.326]                               parallel_sendData(master, data)
[18:42:03.326]                             }
[18:42:03.326]                             return(sendCondition)
[18:42:03.326]                           }
[18:42:03.326]                         }
[18:42:03.326]                         frame <- frame + 1L
[18:42:03.326]                         envir <- sys.frame(frame)
[18:42:03.326]                       }
[18:42:03.326]                     }
[18:42:03.326]                     sendCondition <<- function(cond) NULL
[18:42:03.326]                   }
[18:42:03.326]                 })
[18:42:03.326]                 withCallingHandlers({
[18:42:03.326]                   {
[18:42:03.326]                     do.call(function(...) {
[18:42:03.326]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.326]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.326]                         ...future.globals.maxSize)) {
[18:42:03.326]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.326]                         on.exit(options(oopts), add = TRUE)
[18:42:03.326]                       }
[18:42:03.326]                       {
[18:42:03.326]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.326]                           FUN = function(jj) {
[18:42:03.326]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.326]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.326]                           })
[18:42:03.326]                       }
[18:42:03.326]                     }, args = future.call.arguments)
[18:42:03.326]                   }
[18:42:03.326]                 }, immediateCondition = function(cond) {
[18:42:03.326]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.326]                   sendCondition(cond)
[18:42:03.326]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.326]                   {
[18:42:03.326]                     inherits <- base::inherits
[18:42:03.326]                     invokeRestart <- base::invokeRestart
[18:42:03.326]                     is.null <- base::is.null
[18:42:03.326]                     muffled <- FALSE
[18:42:03.326]                     if (inherits(cond, "message")) {
[18:42:03.326]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.326]                       if (muffled) 
[18:42:03.326]                         invokeRestart("muffleMessage")
[18:42:03.326]                     }
[18:42:03.326]                     else if (inherits(cond, "warning")) {
[18:42:03.326]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.326]                       if (muffled) 
[18:42:03.326]                         invokeRestart("muffleWarning")
[18:42:03.326]                     }
[18:42:03.326]                     else if (inherits(cond, "condition")) {
[18:42:03.326]                       if (!is.null(pattern)) {
[18:42:03.326]                         computeRestarts <- base::computeRestarts
[18:42:03.326]                         grepl <- base::grepl
[18:42:03.326]                         restarts <- computeRestarts(cond)
[18:42:03.326]                         for (restart in restarts) {
[18:42:03.326]                           name <- restart$name
[18:42:03.326]                           if (is.null(name)) 
[18:42:03.326]                             next
[18:42:03.326]                           if (!grepl(pattern, name)) 
[18:42:03.326]                             next
[18:42:03.326]                           invokeRestart(restart)
[18:42:03.326]                           muffled <- TRUE
[18:42:03.326]                           break
[18:42:03.326]                         }
[18:42:03.326]                       }
[18:42:03.326]                     }
[18:42:03.326]                     invisible(muffled)
[18:42:03.326]                   }
[18:42:03.326]                   muffleCondition(cond)
[18:42:03.326]                 })
[18:42:03.326]             }))
[18:42:03.326]             future::FutureResult(value = ...future.value$value, 
[18:42:03.326]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.326]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.326]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.326]                     ...future.globalenv.names))
[18:42:03.326]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.326]         }, condition = base::local({
[18:42:03.326]             c <- base::c
[18:42:03.326]             inherits <- base::inherits
[18:42:03.326]             invokeRestart <- base::invokeRestart
[18:42:03.326]             length <- base::length
[18:42:03.326]             list <- base::list
[18:42:03.326]             seq.int <- base::seq.int
[18:42:03.326]             signalCondition <- base::signalCondition
[18:42:03.326]             sys.calls <- base::sys.calls
[18:42:03.326]             `[[` <- base::`[[`
[18:42:03.326]             `+` <- base::`+`
[18:42:03.326]             `<<-` <- base::`<<-`
[18:42:03.326]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.326]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.326]                   3L)]
[18:42:03.326]             }
[18:42:03.326]             function(cond) {
[18:42:03.326]                 is_error <- inherits(cond, "error")
[18:42:03.326]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.326]                   NULL)
[18:42:03.326]                 if (is_error) {
[18:42:03.326]                   sessionInformation <- function() {
[18:42:03.326]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.326]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.326]                       search = base::search(), system = base::Sys.info())
[18:42:03.326]                   }
[18:42:03.326]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.326]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.326]                     cond$call), session = sessionInformation(), 
[18:42:03.326]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.326]                   signalCondition(cond)
[18:42:03.326]                 }
[18:42:03.326]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.326]                 "immediateCondition"))) {
[18:42:03.326]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.326]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.326]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.326]                   if (TRUE && !signal) {
[18:42:03.326]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.326]                     {
[18:42:03.326]                       inherits <- base::inherits
[18:42:03.326]                       invokeRestart <- base::invokeRestart
[18:42:03.326]                       is.null <- base::is.null
[18:42:03.326]                       muffled <- FALSE
[18:42:03.326]                       if (inherits(cond, "message")) {
[18:42:03.326]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.326]                         if (muffled) 
[18:42:03.326]                           invokeRestart("muffleMessage")
[18:42:03.326]                       }
[18:42:03.326]                       else if (inherits(cond, "warning")) {
[18:42:03.326]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.326]                         if (muffled) 
[18:42:03.326]                           invokeRestart("muffleWarning")
[18:42:03.326]                       }
[18:42:03.326]                       else if (inherits(cond, "condition")) {
[18:42:03.326]                         if (!is.null(pattern)) {
[18:42:03.326]                           computeRestarts <- base::computeRestarts
[18:42:03.326]                           grepl <- base::grepl
[18:42:03.326]                           restarts <- computeRestarts(cond)
[18:42:03.326]                           for (restart in restarts) {
[18:42:03.326]                             name <- restart$name
[18:42:03.326]                             if (is.null(name)) 
[18:42:03.326]                               next
[18:42:03.326]                             if (!grepl(pattern, name)) 
[18:42:03.326]                               next
[18:42:03.326]                             invokeRestart(restart)
[18:42:03.326]                             muffled <- TRUE
[18:42:03.326]                             break
[18:42:03.326]                           }
[18:42:03.326]                         }
[18:42:03.326]                       }
[18:42:03.326]                       invisible(muffled)
[18:42:03.326]                     }
[18:42:03.326]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.326]                   }
[18:42:03.326]                 }
[18:42:03.326]                 else {
[18:42:03.326]                   if (TRUE) {
[18:42:03.326]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.326]                     {
[18:42:03.326]                       inherits <- base::inherits
[18:42:03.326]                       invokeRestart <- base::invokeRestart
[18:42:03.326]                       is.null <- base::is.null
[18:42:03.326]                       muffled <- FALSE
[18:42:03.326]                       if (inherits(cond, "message")) {
[18:42:03.326]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.326]                         if (muffled) 
[18:42:03.326]                           invokeRestart("muffleMessage")
[18:42:03.326]                       }
[18:42:03.326]                       else if (inherits(cond, "warning")) {
[18:42:03.326]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.326]                         if (muffled) 
[18:42:03.326]                           invokeRestart("muffleWarning")
[18:42:03.326]                       }
[18:42:03.326]                       else if (inherits(cond, "condition")) {
[18:42:03.326]                         if (!is.null(pattern)) {
[18:42:03.326]                           computeRestarts <- base::computeRestarts
[18:42:03.326]                           grepl <- base::grepl
[18:42:03.326]                           restarts <- computeRestarts(cond)
[18:42:03.326]                           for (restart in restarts) {
[18:42:03.326]                             name <- restart$name
[18:42:03.326]                             if (is.null(name)) 
[18:42:03.326]                               next
[18:42:03.326]                             if (!grepl(pattern, name)) 
[18:42:03.326]                               next
[18:42:03.326]                             invokeRestart(restart)
[18:42:03.326]                             muffled <- TRUE
[18:42:03.326]                             break
[18:42:03.326]                           }
[18:42:03.326]                         }
[18:42:03.326]                       }
[18:42:03.326]                       invisible(muffled)
[18:42:03.326]                     }
[18:42:03.326]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.326]                   }
[18:42:03.326]                 }
[18:42:03.326]             }
[18:42:03.326]         }))
[18:42:03.326]     }, error = function(ex) {
[18:42:03.326]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.326]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.326]                 ...future.rng), started = ...future.startTime, 
[18:42:03.326]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.326]             version = "1.8"), class = "FutureResult")
[18:42:03.326]     }, finally = {
[18:42:03.326]         if (!identical(...future.workdir, getwd())) 
[18:42:03.326]             setwd(...future.workdir)
[18:42:03.326]         {
[18:42:03.326]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.326]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.326]             }
[18:42:03.326]             base::options(...future.oldOptions)
[18:42:03.326]             if (.Platform$OS.type == "windows") {
[18:42:03.326]                 old_names <- names(...future.oldEnvVars)
[18:42:03.326]                 envs <- base::Sys.getenv()
[18:42:03.326]                 names <- names(envs)
[18:42:03.326]                 common <- intersect(names, old_names)
[18:42:03.326]                 added <- setdiff(names, old_names)
[18:42:03.326]                 removed <- setdiff(old_names, names)
[18:42:03.326]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.326]                   envs[common]]
[18:42:03.326]                 NAMES <- toupper(changed)
[18:42:03.326]                 args <- list()
[18:42:03.326]                 for (kk in seq_along(NAMES)) {
[18:42:03.326]                   name <- changed[[kk]]
[18:42:03.326]                   NAME <- NAMES[[kk]]
[18:42:03.326]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.326]                     next
[18:42:03.326]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.326]                 }
[18:42:03.326]                 NAMES <- toupper(added)
[18:42:03.326]                 for (kk in seq_along(NAMES)) {
[18:42:03.326]                   name <- added[[kk]]
[18:42:03.326]                   NAME <- NAMES[[kk]]
[18:42:03.326]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.326]                     next
[18:42:03.326]                   args[[name]] <- ""
[18:42:03.326]                 }
[18:42:03.326]                 NAMES <- toupper(removed)
[18:42:03.326]                 for (kk in seq_along(NAMES)) {
[18:42:03.326]                   name <- removed[[kk]]
[18:42:03.326]                   NAME <- NAMES[[kk]]
[18:42:03.326]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.326]                     next
[18:42:03.326]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.326]                 }
[18:42:03.326]                 if (length(args) > 0) 
[18:42:03.326]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.326]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.326]             }
[18:42:03.326]             else {
[18:42:03.326]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.326]             }
[18:42:03.326]             {
[18:42:03.326]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.326]                   0L) {
[18:42:03.326]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.326]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.326]                   base::options(opts)
[18:42:03.326]                 }
[18:42:03.326]                 {
[18:42:03.326]                   {
[18:42:03.326]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.326]                     NULL
[18:42:03.326]                   }
[18:42:03.326]                   options(future.plan = NULL)
[18:42:03.326]                   if (is.na(NA_character_)) 
[18:42:03.326]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.326]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.326]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.326]                     .init = FALSE)
[18:42:03.326]                 }
[18:42:03.326]             }
[18:42:03.326]         }
[18:42:03.326]     })
[18:42:03.326]     if (TRUE) {
[18:42:03.326]         base::sink(type = "output", split = FALSE)
[18:42:03.326]         if (TRUE) {
[18:42:03.326]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.326]         }
[18:42:03.326]         else {
[18:42:03.326]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.326]         }
[18:42:03.326]         base::close(...future.stdout)
[18:42:03.326]         ...future.stdout <- NULL
[18:42:03.326]     }
[18:42:03.326]     ...future.result$conditions <- ...future.conditions
[18:42:03.326]     ...future.result$finished <- base::Sys.time()
[18:42:03.326]     ...future.result
[18:42:03.326] }
[18:42:03.332] Exporting 11 global objects (13.46 KiB) to cluster node #1 ...
[18:42:03.332] Exporting '...future.FUN' (4.74 KiB) to cluster node #1 ...
[18:42:03.333] Exporting '...future.FUN' (4.74 KiB) to cluster node #1 ... DONE
[18:42:03.334] Exporting 'x_FUN' (311 bytes) to cluster node #1 ...
[18:42:03.334] Exporting 'x_FUN' (311 bytes) to cluster node #1 ... DONE
[18:42:03.335] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:03.335] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:03.336] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:03.336] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:03.337] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:03.337] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:03.338] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:03.338] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:03.339] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:03.339] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:03.340] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.340] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.341] Exporting '...future.elements_ii' (183 bytes) to cluster node #1 ...
[18:42:03.341] Exporting '...future.elements_ii' (183 bytes) to cluster node #1 ... DONE
[18:42:03.341] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.342] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.342] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.342] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.343] Exporting 11 global objects (13.46 KiB) to cluster node #1 ... DONE
[18:42:03.343] MultisessionFuture started
[18:42:03.344] - Launch lazy future ... done
[18:42:03.344] run() for 'MultisessionFuture' ... done
[18:42:03.344] Created future:
[18:42:03.375] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.376] - Validating connection of MultisessionFuture
[18:42:03.376] - received message: FutureResult
[18:42:03.376] - Received FutureResult
[18:42:03.377] - Erased future from FutureRegistry
[18:42:03.377] result() for ClusterFuture ...
[18:42:03.377] - result already collected: FutureResult
[18:42:03.377] result() for ClusterFuture ... done
[18:42:03.377] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.345] MultisessionFuture:
[18:42:03.345] Label: 'future_vapply-1'
[18:42:03.345] Expression:
[18:42:03.345] {
[18:42:03.345]     do.call(function(...) {
[18:42:03.345]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.345]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.345]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.345]             on.exit(options(oopts), add = TRUE)
[18:42:03.345]         }
[18:42:03.345]         {
[18:42:03.345]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.345]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.345]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.345]             })
[18:42:03.345]         }
[18:42:03.345]     }, args = future.call.arguments)
[18:42:03.345] }
[18:42:03.345] Lazy evaluation: FALSE
[18:42:03.345] Asynchronous evaluation: TRUE
[18:42:03.345] Local evaluation: TRUE
[18:42:03.345] Environment: R_GlobalEnv
[18:42:03.345] Capture standard output: TRUE
[18:42:03.345] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.345] Globals: 11 objects totaling 13.35 KiB (function '...future.FUN' of 4.74 KiB, function 'x_FUN' of 311 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:03.345] Packages: 2 packages ('stats', 'future.apply')
[18:42:03.345] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.345] Resolved: TRUE
[18:42:03.345] Value: <not collected>
[18:42:03.345] Conditions captured: <none>
[18:42:03.345] Early signaling: FALSE
[18:42:03.345] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.345] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.378] Chunk #1 of 2 ... DONE
[18:42:03.378] Chunk #2 of 2 ...
[18:42:03.378]  - Finding globals in 'X' for chunk #2 ...
[18:42:03.378] getGlobalsAndPackages() ...
[18:42:03.378] Searching for globals...
[18:42:03.379] 
[18:42:03.379] Searching for globals ... DONE
[18:42:03.379] - globals: [0] <none>
[18:42:03.379] getGlobalsAndPackages() ... DONE
[18:42:03.379]    + additional globals found: [n=0] 
[18:42:03.380]    + additional namespaces needed: [n=0] 
[18:42:03.380]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:03.380]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.380]  - seeds: <none>
[18:42:03.380]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.380] getGlobalsAndPackages() ...
[18:42:03.381] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.381] Resolving globals: FALSE
[18:42:03.381] Tweak future expression to call with '...' arguments ...
[18:42:03.381] {
[18:42:03.381]     do.call(function(...) {
[18:42:03.381]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.381]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.381]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.381]             on.exit(options(oopts), add = TRUE)
[18:42:03.381]         }
[18:42:03.381]         {
[18:42:03.381]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.381]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.381]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.381]             })
[18:42:03.381]         }
[18:42:03.381]     }, args = future.call.arguments)
[18:42:03.381] }
[18:42:03.382] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.382] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.383] - packages: [2] 'stats', 'future.apply'
[18:42:03.383] getGlobalsAndPackages() ... DONE
[18:42:03.383] run() for 'Future' ...
[18:42:03.383] - state: 'created'
[18:42:03.384] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.399] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.399] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.399]   - Field: 'node'
[18:42:03.399]   - Field: 'label'
[18:42:03.400]   - Field: 'local'
[18:42:03.400]   - Field: 'owner'
[18:42:03.400]   - Field: 'envir'
[18:42:03.400]   - Field: 'workers'
[18:42:03.400]   - Field: 'packages'
[18:42:03.400]   - Field: 'gc'
[18:42:03.401]   - Field: 'conditions'
[18:42:03.401]   - Field: 'persistent'
[18:42:03.401]   - Field: 'expr'
[18:42:03.401]   - Field: 'uuid'
[18:42:03.401]   - Field: 'seed'
[18:42:03.401]   - Field: 'version'
[18:42:03.402]   - Field: 'result'
[18:42:03.402]   - Field: 'asynchronous'
[18:42:03.402]   - Field: 'calls'
[18:42:03.402]   - Field: 'globals'
[18:42:03.402]   - Field: 'stdout'
[18:42:03.402]   - Field: 'earlySignal'
[18:42:03.403]   - Field: 'lazy'
[18:42:03.403]   - Field: 'state'
[18:42:03.403] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.403] - Launch lazy future ...
[18:42:03.403] Packages needed by the future expression (n = 2): 'stats', 'future.apply'
[18:42:03.404] Packages needed by future strategies (n = 0): <none>
[18:42:03.404] {
[18:42:03.404]     {
[18:42:03.404]         {
[18:42:03.404]             ...future.startTime <- base::Sys.time()
[18:42:03.404]             {
[18:42:03.404]                 {
[18:42:03.404]                   {
[18:42:03.404]                     {
[18:42:03.404]                       {
[18:42:03.404]                         base::local({
[18:42:03.404]                           has_future <- base::requireNamespace("future", 
[18:42:03.404]                             quietly = TRUE)
[18:42:03.404]                           if (has_future) {
[18:42:03.404]                             ns <- base::getNamespace("future")
[18:42:03.404]                             version <- ns[[".package"]][["version"]]
[18:42:03.404]                             if (is.null(version)) 
[18:42:03.404]                               version <- utils::packageVersion("future")
[18:42:03.404]                           }
[18:42:03.404]                           else {
[18:42:03.404]                             version <- NULL
[18:42:03.404]                           }
[18:42:03.404]                           if (!has_future || version < "1.8.0") {
[18:42:03.404]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.404]                               "", base::R.version$version.string), 
[18:42:03.404]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.404]                                 base::R.version$platform, 8 * 
[18:42:03.404]                                   base::.Machine$sizeof.pointer), 
[18:42:03.404]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.404]                                 "release", "version")], collapse = " "), 
[18:42:03.404]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.404]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.404]                               info)
[18:42:03.404]                             info <- base::paste(info, collapse = "; ")
[18:42:03.404]                             if (!has_future) {
[18:42:03.404]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.404]                                 info)
[18:42:03.404]                             }
[18:42:03.404]                             else {
[18:42:03.404]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.404]                                 info, version)
[18:42:03.404]                             }
[18:42:03.404]                             base::stop(msg)
[18:42:03.404]                           }
[18:42:03.404]                         })
[18:42:03.404]                       }
[18:42:03.404]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.404]                       base::options(mc.cores = 1L)
[18:42:03.404]                     }
[18:42:03.404]                     base::local({
[18:42:03.404]                       for (pkg in c("stats", "future.apply")) {
[18:42:03.404]                         base::loadNamespace(pkg)
[18:42:03.404]                         base::library(pkg, character.only = TRUE)
[18:42:03.404]                       }
[18:42:03.404]                     })
[18:42:03.404]                   }
[18:42:03.404]                   ...future.strategy.old <- future::plan("list")
[18:42:03.404]                   options(future.plan = NULL)
[18:42:03.404]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.404]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.404]                 }
[18:42:03.404]                 ...future.workdir <- getwd()
[18:42:03.404]             }
[18:42:03.404]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.404]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.404]         }
[18:42:03.404]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.404]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.404]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.404]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.404]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.404]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.404]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.404]             base::names(...future.oldOptions))
[18:42:03.404]     }
[18:42:03.404]     if (FALSE) {
[18:42:03.404]     }
[18:42:03.404]     else {
[18:42:03.404]         if (TRUE) {
[18:42:03.404]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.404]                 open = "w")
[18:42:03.404]         }
[18:42:03.404]         else {
[18:42:03.404]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.404]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.404]         }
[18:42:03.404]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.404]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.404]             base::sink(type = "output", split = FALSE)
[18:42:03.404]             base::close(...future.stdout)
[18:42:03.404]         }, add = TRUE)
[18:42:03.404]     }
[18:42:03.404]     ...future.frame <- base::sys.nframe()
[18:42:03.404]     ...future.conditions <- base::list()
[18:42:03.404]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.404]     if (FALSE) {
[18:42:03.404]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.404]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.404]     }
[18:42:03.404]     ...future.result <- base::tryCatch({
[18:42:03.404]         base::withCallingHandlers({
[18:42:03.404]             ...future.value <- base::withVisible(base::local({
[18:42:03.404]                 ...future.makeSendCondition <- base::local({
[18:42:03.404]                   sendCondition <- NULL
[18:42:03.404]                   function(frame = 1L) {
[18:42:03.404]                     if (is.function(sendCondition)) 
[18:42:03.404]                       return(sendCondition)
[18:42:03.404]                     ns <- getNamespace("parallel")
[18:42:03.404]                     if (exists("sendData", mode = "function", 
[18:42:03.404]                       envir = ns)) {
[18:42:03.404]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.404]                         envir = ns)
[18:42:03.404]                       envir <- sys.frame(frame)
[18:42:03.404]                       master <- NULL
[18:42:03.404]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.404]                         !identical(envir, emptyenv())) {
[18:42:03.404]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.404]                           inherits = FALSE)) {
[18:42:03.404]                           master <- get("master", mode = "list", 
[18:42:03.404]                             envir = envir, inherits = FALSE)
[18:42:03.404]                           if (inherits(master, c("SOCKnode", 
[18:42:03.404]                             "SOCK0node"))) {
[18:42:03.404]                             sendCondition <<- function(cond) {
[18:42:03.404]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.404]                                 success = TRUE)
[18:42:03.404]                               parallel_sendData(master, data)
[18:42:03.404]                             }
[18:42:03.404]                             return(sendCondition)
[18:42:03.404]                           }
[18:42:03.404]                         }
[18:42:03.404]                         frame <- frame + 1L
[18:42:03.404]                         envir <- sys.frame(frame)
[18:42:03.404]                       }
[18:42:03.404]                     }
[18:42:03.404]                     sendCondition <<- function(cond) NULL
[18:42:03.404]                   }
[18:42:03.404]                 })
[18:42:03.404]                 withCallingHandlers({
[18:42:03.404]                   {
[18:42:03.404]                     do.call(function(...) {
[18:42:03.404]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.404]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.404]                         ...future.globals.maxSize)) {
[18:42:03.404]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.404]                         on.exit(options(oopts), add = TRUE)
[18:42:03.404]                       }
[18:42:03.404]                       {
[18:42:03.404]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.404]                           FUN = function(jj) {
[18:42:03.404]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.404]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.404]                           })
[18:42:03.404]                       }
[18:42:03.404]                     }, args = future.call.arguments)
[18:42:03.404]                   }
[18:42:03.404]                 }, immediateCondition = function(cond) {
[18:42:03.404]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.404]                   sendCondition(cond)
[18:42:03.404]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.404]                   {
[18:42:03.404]                     inherits <- base::inherits
[18:42:03.404]                     invokeRestart <- base::invokeRestart
[18:42:03.404]                     is.null <- base::is.null
[18:42:03.404]                     muffled <- FALSE
[18:42:03.404]                     if (inherits(cond, "message")) {
[18:42:03.404]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.404]                       if (muffled) 
[18:42:03.404]                         invokeRestart("muffleMessage")
[18:42:03.404]                     }
[18:42:03.404]                     else if (inherits(cond, "warning")) {
[18:42:03.404]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.404]                       if (muffled) 
[18:42:03.404]                         invokeRestart("muffleWarning")
[18:42:03.404]                     }
[18:42:03.404]                     else if (inherits(cond, "condition")) {
[18:42:03.404]                       if (!is.null(pattern)) {
[18:42:03.404]                         computeRestarts <- base::computeRestarts
[18:42:03.404]                         grepl <- base::grepl
[18:42:03.404]                         restarts <- computeRestarts(cond)
[18:42:03.404]                         for (restart in restarts) {
[18:42:03.404]                           name <- restart$name
[18:42:03.404]                           if (is.null(name)) 
[18:42:03.404]                             next
[18:42:03.404]                           if (!grepl(pattern, name)) 
[18:42:03.404]                             next
[18:42:03.404]                           invokeRestart(restart)
[18:42:03.404]                           muffled <- TRUE
[18:42:03.404]                           break
[18:42:03.404]                         }
[18:42:03.404]                       }
[18:42:03.404]                     }
[18:42:03.404]                     invisible(muffled)
[18:42:03.404]                   }
[18:42:03.404]                   muffleCondition(cond)
[18:42:03.404]                 })
[18:42:03.404]             }))
[18:42:03.404]             future::FutureResult(value = ...future.value$value, 
[18:42:03.404]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.404]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.404]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.404]                     ...future.globalenv.names))
[18:42:03.404]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.404]         }, condition = base::local({
[18:42:03.404]             c <- base::c
[18:42:03.404]             inherits <- base::inherits
[18:42:03.404]             invokeRestart <- base::invokeRestart
[18:42:03.404]             length <- base::length
[18:42:03.404]             list <- base::list
[18:42:03.404]             seq.int <- base::seq.int
[18:42:03.404]             signalCondition <- base::signalCondition
[18:42:03.404]             sys.calls <- base::sys.calls
[18:42:03.404]             `[[` <- base::`[[`
[18:42:03.404]             `+` <- base::`+`
[18:42:03.404]             `<<-` <- base::`<<-`
[18:42:03.404]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.404]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.404]                   3L)]
[18:42:03.404]             }
[18:42:03.404]             function(cond) {
[18:42:03.404]                 is_error <- inherits(cond, "error")
[18:42:03.404]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.404]                   NULL)
[18:42:03.404]                 if (is_error) {
[18:42:03.404]                   sessionInformation <- function() {
[18:42:03.404]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.404]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.404]                       search = base::search(), system = base::Sys.info())
[18:42:03.404]                   }
[18:42:03.404]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.404]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.404]                     cond$call), session = sessionInformation(), 
[18:42:03.404]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.404]                   signalCondition(cond)
[18:42:03.404]                 }
[18:42:03.404]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.404]                 "immediateCondition"))) {
[18:42:03.404]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.404]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.404]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.404]                   if (TRUE && !signal) {
[18:42:03.404]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.404]                     {
[18:42:03.404]                       inherits <- base::inherits
[18:42:03.404]                       invokeRestart <- base::invokeRestart
[18:42:03.404]                       is.null <- base::is.null
[18:42:03.404]                       muffled <- FALSE
[18:42:03.404]                       if (inherits(cond, "message")) {
[18:42:03.404]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.404]                         if (muffled) 
[18:42:03.404]                           invokeRestart("muffleMessage")
[18:42:03.404]                       }
[18:42:03.404]                       else if (inherits(cond, "warning")) {
[18:42:03.404]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.404]                         if (muffled) 
[18:42:03.404]                           invokeRestart("muffleWarning")
[18:42:03.404]                       }
[18:42:03.404]                       else if (inherits(cond, "condition")) {
[18:42:03.404]                         if (!is.null(pattern)) {
[18:42:03.404]                           computeRestarts <- base::computeRestarts
[18:42:03.404]                           grepl <- base::grepl
[18:42:03.404]                           restarts <- computeRestarts(cond)
[18:42:03.404]                           for (restart in restarts) {
[18:42:03.404]                             name <- restart$name
[18:42:03.404]                             if (is.null(name)) 
[18:42:03.404]                               next
[18:42:03.404]                             if (!grepl(pattern, name)) 
[18:42:03.404]                               next
[18:42:03.404]                             invokeRestart(restart)
[18:42:03.404]                             muffled <- TRUE
[18:42:03.404]                             break
[18:42:03.404]                           }
[18:42:03.404]                         }
[18:42:03.404]                       }
[18:42:03.404]                       invisible(muffled)
[18:42:03.404]                     }
[18:42:03.404]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.404]                   }
[18:42:03.404]                 }
[18:42:03.404]                 else {
[18:42:03.404]                   if (TRUE) {
[18:42:03.404]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.404]                     {
[18:42:03.404]                       inherits <- base::inherits
[18:42:03.404]                       invokeRestart <- base::invokeRestart
[18:42:03.404]                       is.null <- base::is.null
[18:42:03.404]                       muffled <- FALSE
[18:42:03.404]                       if (inherits(cond, "message")) {
[18:42:03.404]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.404]                         if (muffled) 
[18:42:03.404]                           invokeRestart("muffleMessage")
[18:42:03.404]                       }
[18:42:03.404]                       else if (inherits(cond, "warning")) {
[18:42:03.404]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.404]                         if (muffled) 
[18:42:03.404]                           invokeRestart("muffleWarning")
[18:42:03.404]                       }
[18:42:03.404]                       else if (inherits(cond, "condition")) {
[18:42:03.404]                         if (!is.null(pattern)) {
[18:42:03.404]                           computeRestarts <- base::computeRestarts
[18:42:03.404]                           grepl <- base::grepl
[18:42:03.404]                           restarts <- computeRestarts(cond)
[18:42:03.404]                           for (restart in restarts) {
[18:42:03.404]                             name <- restart$name
[18:42:03.404]                             if (is.null(name)) 
[18:42:03.404]                               next
[18:42:03.404]                             if (!grepl(pattern, name)) 
[18:42:03.404]                               next
[18:42:03.404]                             invokeRestart(restart)
[18:42:03.404]                             muffled <- TRUE
[18:42:03.404]                             break
[18:42:03.404]                           }
[18:42:03.404]                         }
[18:42:03.404]                       }
[18:42:03.404]                       invisible(muffled)
[18:42:03.404]                     }
[18:42:03.404]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.404]                   }
[18:42:03.404]                 }
[18:42:03.404]             }
[18:42:03.404]         }))
[18:42:03.404]     }, error = function(ex) {
[18:42:03.404]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.404]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.404]                 ...future.rng), started = ...future.startTime, 
[18:42:03.404]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.404]             version = "1.8"), class = "FutureResult")
[18:42:03.404]     }, finally = {
[18:42:03.404]         if (!identical(...future.workdir, getwd())) 
[18:42:03.404]             setwd(...future.workdir)
[18:42:03.404]         {
[18:42:03.404]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.404]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.404]             }
[18:42:03.404]             base::options(...future.oldOptions)
[18:42:03.404]             if (.Platform$OS.type == "windows") {
[18:42:03.404]                 old_names <- names(...future.oldEnvVars)
[18:42:03.404]                 envs <- base::Sys.getenv()
[18:42:03.404]                 names <- names(envs)
[18:42:03.404]                 common <- intersect(names, old_names)
[18:42:03.404]                 added <- setdiff(names, old_names)
[18:42:03.404]                 removed <- setdiff(old_names, names)
[18:42:03.404]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.404]                   envs[common]]
[18:42:03.404]                 NAMES <- toupper(changed)
[18:42:03.404]                 args <- list()
[18:42:03.404]                 for (kk in seq_along(NAMES)) {
[18:42:03.404]                   name <- changed[[kk]]
[18:42:03.404]                   NAME <- NAMES[[kk]]
[18:42:03.404]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.404]                     next
[18:42:03.404]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.404]                 }
[18:42:03.404]                 NAMES <- toupper(added)
[18:42:03.404]                 for (kk in seq_along(NAMES)) {
[18:42:03.404]                   name <- added[[kk]]
[18:42:03.404]                   NAME <- NAMES[[kk]]
[18:42:03.404]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.404]                     next
[18:42:03.404]                   args[[name]] <- ""
[18:42:03.404]                 }
[18:42:03.404]                 NAMES <- toupper(removed)
[18:42:03.404]                 for (kk in seq_along(NAMES)) {
[18:42:03.404]                   name <- removed[[kk]]
[18:42:03.404]                   NAME <- NAMES[[kk]]
[18:42:03.404]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.404]                     next
[18:42:03.404]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.404]                 }
[18:42:03.404]                 if (length(args) > 0) 
[18:42:03.404]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.404]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.404]             }
[18:42:03.404]             else {
[18:42:03.404]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.404]             }
[18:42:03.404]             {
[18:42:03.404]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.404]                   0L) {
[18:42:03.404]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.404]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.404]                   base::options(opts)
[18:42:03.404]                 }
[18:42:03.404]                 {
[18:42:03.404]                   {
[18:42:03.404]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.404]                     NULL
[18:42:03.404]                   }
[18:42:03.404]                   options(future.plan = NULL)
[18:42:03.404]                   if (is.na(NA_character_)) 
[18:42:03.404]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.404]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.404]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.404]                     .init = FALSE)
[18:42:03.404]                 }
[18:42:03.404]             }
[18:42:03.404]         }
[18:42:03.404]     })
[18:42:03.404]     if (TRUE) {
[18:42:03.404]         base::sink(type = "output", split = FALSE)
[18:42:03.404]         if (TRUE) {
[18:42:03.404]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.404]         }
[18:42:03.404]         else {
[18:42:03.404]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.404]         }
[18:42:03.404]         base::close(...future.stdout)
[18:42:03.404]         ...future.stdout <- NULL
[18:42:03.404]     }
[18:42:03.404]     ...future.result$conditions <- ...future.conditions
[18:42:03.404]     ...future.result$finished <- base::Sys.time()
[18:42:03.404]     ...future.result
[18:42:03.404] }
[18:42:03.410] Exporting 11 global objects (13.49 KiB) to cluster node #1 ...
[18:42:03.410] Exporting '...future.FUN' (4.74 KiB) to cluster node #1 ...
[18:42:03.411] Exporting '...future.FUN' (4.74 KiB) to cluster node #1 ... DONE
[18:42:03.411] Exporting 'x_FUN' (311 bytes) to cluster node #1 ...
[18:42:03.412] Exporting 'x_FUN' (311 bytes) to cluster node #1 ... DONE
[18:42:03.412] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:03.413] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:03.413] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:03.414] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:03.414] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:03.415] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:03.415] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:03.415] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:03.416] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:03.416] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:03.417] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.417] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.417] Exporting '...future.elements_ii' (177 bytes) to cluster node #1 ...
[18:42:03.418] Exporting '...future.elements_ii' (177 bytes) to cluster node #1 ... DONE
[18:42:03.418] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.418] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.419] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.419] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.419] Exporting 11 global objects (13.49 KiB) to cluster node #1 ... DONE
[18:42:03.420] MultisessionFuture started
[18:42:03.420] - Launch lazy future ... done
[18:42:03.421] run() for 'MultisessionFuture' ... done
[18:42:03.421] Created future:
[18:42:03.449] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.449] - Validating connection of MultisessionFuture
[18:42:03.450] - received message: FutureResult
[18:42:03.450] - Received FutureResult
[18:42:03.450] - Erased future from FutureRegistry
[18:42:03.450] result() for ClusterFuture ...
[18:42:03.450] - result already collected: FutureResult
[18:42:03.451] result() for ClusterFuture ... done
[18:42:03.451] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.421] MultisessionFuture:
[18:42:03.421] Label: 'future_vapply-2'
[18:42:03.421] Expression:
[18:42:03.421] {
[18:42:03.421]     do.call(function(...) {
[18:42:03.421]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.421]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.421]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.421]             on.exit(options(oopts), add = TRUE)
[18:42:03.421]         }
[18:42:03.421]         {
[18:42:03.421]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.421]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.421]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.421]             })
[18:42:03.421]         }
[18:42:03.421]     }, args = future.call.arguments)
[18:42:03.421] }
[18:42:03.421] Lazy evaluation: FALSE
[18:42:03.421] Asynchronous evaluation: TRUE
[18:42:03.421] Local evaluation: TRUE
[18:42:03.421] Environment: R_GlobalEnv
[18:42:03.421] Capture standard output: TRUE
[18:42:03.421] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.421] Globals: 11 objects totaling 13.34 KiB (function '...future.FUN' of 4.74 KiB, function 'x_FUN' of 311 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:03.421] Packages: 2 packages ('stats', 'future.apply')
[18:42:03.421] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.421] Resolved: TRUE
[18:42:03.421] Value: <not collected>
[18:42:03.421] Conditions captured: <none>
[18:42:03.421] Early signaling: FALSE
[18:42:03.421] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.421] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.451] Chunk #2 of 2 ... DONE
[18:42:03.451] Launching 2 futures (chunks) ... DONE
[18:42:03.452] Resolving 2 futures (chunks) ...
[18:42:03.452] resolve() on list ...
[18:42:03.452]  recursive: 0
[18:42:03.452]  length: 2
[18:42:03.452] 
[18:42:03.452] Future #1
[18:42:03.453] result() for ClusterFuture ...
[18:42:03.453] - result already collected: FutureResult
[18:42:03.453] result() for ClusterFuture ... done
[18:42:03.453] result() for ClusterFuture ...
[18:42:03.453] - result already collected: FutureResult
[18:42:03.453] result() for ClusterFuture ... done
[18:42:03.454] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:03.454] - nx: 2
[18:42:03.454] - relay: TRUE
[18:42:03.454] - stdout: TRUE
[18:42:03.454] - signal: TRUE
[18:42:03.454] - resignal: FALSE
[18:42:03.454] - force: TRUE
[18:42:03.455] - relayed: [n=2] FALSE, FALSE
[18:42:03.455] - queued futures: [n=2] FALSE, FALSE
[18:42:03.455]  - until=1
[18:42:03.455]  - relaying element #1
[18:42:03.455] result() for ClusterFuture ...
[18:42:03.455] - result already collected: FutureResult
[18:42:03.456] result() for ClusterFuture ... done
[18:42:03.456] result() for ClusterFuture ...
[18:42:03.456] - result already collected: FutureResult
[18:42:03.456] result() for ClusterFuture ... done
[18:42:03.456] result() for ClusterFuture ...
[18:42:03.456] - result already collected: FutureResult
[18:42:03.457] result() for ClusterFuture ... done
[18:42:03.457] result() for ClusterFuture ...
[18:42:03.457] - result already collected: FutureResult
[18:42:03.457] result() for ClusterFuture ... done
[18:42:03.457] - relayed: [n=2] TRUE, FALSE
[18:42:03.457] - queued futures: [n=2] TRUE, FALSE
[18:42:03.458] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:03.458]  length: 1 (resolved future 1)
[18:42:03.458] Future #2
[18:42:03.458] result() for ClusterFuture ...
[18:42:03.458] - result already collected: FutureResult
[18:42:03.459] result() for ClusterFuture ... done
[18:42:03.459] result() for ClusterFuture ...
[18:42:03.459] - result already collected: FutureResult
[18:42:03.460] result() for ClusterFuture ... done
[18:42:03.460] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:03.460] - nx: 2
[18:42:03.460] - relay: TRUE
[18:42:03.461] - stdout: TRUE
[18:42:03.461] - signal: TRUE
[18:42:03.461] - resignal: FALSE
[18:42:03.461] - force: TRUE
[18:42:03.462] - relayed: [n=2] TRUE, FALSE
[18:42:03.462] - queued futures: [n=2] TRUE, FALSE
[18:42:03.462]  - until=2
[18:42:03.463]  - relaying element #2
[18:42:03.463] result() for ClusterFuture ...
[18:42:03.463] - result already collected: FutureResult
[18:42:03.463] result() for ClusterFuture ... done
[18:42:03.464] result() for ClusterFuture ...
[18:42:03.464] - result already collected: FutureResult
[18:42:03.464] result() for ClusterFuture ... done
[18:42:03.464] result() for ClusterFuture ...
[18:42:03.464] - result already collected: FutureResult
[18:42:03.465] result() for ClusterFuture ... done
[18:42:03.465] result() for ClusterFuture ...
[18:42:03.465] - result already collected: FutureResult
[18:42:03.465] result() for ClusterFuture ... done
[18:42:03.465] - relayed: [n=2] TRUE, TRUE
[18:42:03.465] - queued futures: [n=2] TRUE, TRUE
[18:42:03.466] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:03.466]  length: 0 (resolved future 2)
[18:42:03.466] Relaying remaining futures
[18:42:03.466] signalConditionsASAP(NULL, pos=0) ...
[18:42:03.466] - nx: 2
[18:42:03.466] - relay: TRUE
[18:42:03.467] - stdout: TRUE
[18:42:03.467] - signal: TRUE
[18:42:03.467] - resignal: FALSE
[18:42:03.467] - force: TRUE
[18:42:03.467] - relayed: [n=2] TRUE, TRUE
[18:42:03.467] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:03.468] - relayed: [n=2] TRUE, TRUE
[18:42:03.468] - queued futures: [n=2] TRUE, TRUE
[18:42:03.468] signalConditionsASAP(NULL, pos=0) ... done
[18:42:03.468] resolve() on list ... DONE
[18:42:03.468] result() for ClusterFuture ...
[18:42:03.468] - result already collected: FutureResult
[18:42:03.468] result() for ClusterFuture ... done
[18:42:03.469] result() for ClusterFuture ...
[18:42:03.469] - result already collected: FutureResult
[18:42:03.469] result() for ClusterFuture ... done
[18:42:03.469] result() for ClusterFuture ...
[18:42:03.469] - result already collected: FutureResult
[18:42:03.469] result() for ClusterFuture ... done
[18:42:03.470] result() for ClusterFuture ...
[18:42:03.470] - result already collected: FutureResult
[18:42:03.470] result() for ClusterFuture ... done
[18:42:03.470]  - Number of value chunks collected: 2
[18:42:03.470] Resolving 2 futures (chunks) ... DONE
[18:42:03.470] Reducing values from 2 chunks ...
[18:42:03.471]  - Number of values collected after concatenation: 3
[18:42:03.471]  - Number of values expected: 3
[18:42:03.471] Reducing values from 2 chunks ... DONE
[18:42:03.471] future_lapply() ... DONE
 num [1:5, 1:3] 1 3.25 5.5 7.75 10 ...
 - attr(*, "dimnames")=List of 2
  ..$ : chr [1:5] "0%" "25%" "50%" "75%" ...
  ..$ : chr [1:3] "a" "beta" "logic"
[18:42:03.473] future_lapply() ...
[18:42:03.481] Number of chunks: 2
[18:42:03.481] getGlobalsAndPackagesXApply() ...
[18:42:03.482]  - future.globals: TRUE
[18:42:03.482] getGlobalsAndPackages() ...
[18:42:03.482] Searching for globals...
[18:42:03.489] - globals found: [21] 'FUN', '{', '<-', 'is.na', 'if', 'any', '[', '!', 'return', 'rep.int', 'sort', 'length', '==', '/', 'floor', '(', '+', 'c', '-', '*', 'ceiling'
[18:42:03.489] Searching for globals ... DONE
[18:42:03.489] Resolving globals: FALSE
[18:42:03.490] The total size of the 1 globals is 4.67 KiB (4777 bytes)
[18:42:03.490] The total size of the 1 globals exported for future expression ('FUN()') is 4.67 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (4.67 KiB of class 'function')
[18:42:03.491] - globals: [1] 'FUN'
[18:42:03.491] - packages: [1] 'stats'
[18:42:03.491] getGlobalsAndPackages() ... DONE
[18:42:03.491]  - globals found/used: [n=1] 'FUN'
[18:42:03.491]  - needed namespaces: [n=1] 'stats'
[18:42:03.492] Finding globals ... DONE
[18:42:03.492]  - use_args: TRUE
[18:42:03.492]  - Getting '...' globals ...
[18:42:03.492] resolve() on list ...
[18:42:03.493]  recursive: 0
[18:42:03.496]  length: 1
[18:42:03.496]  elements: '...'
[18:42:03.496]  length: 0 (resolved future 1)
[18:42:03.497] resolve() on list ... DONE
[18:42:03.497]    - '...' content: [n=0] 
[18:42:03.497] List of 1
[18:42:03.497]  $ ...: list()
[18:42:03.497]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.497]  - attr(*, "where")=List of 1
[18:42:03.497]   ..$ ...:<environment: 0x000002ea02ea67a0> 
[18:42:03.497]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.497]  - attr(*, "resolved")= logi TRUE
[18:42:03.497]  - attr(*, "total_size")= num NA
[18:42:03.500]  - Getting '...' globals ... DONE
[18:42:03.500] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:42:03.500] List of 2
[18:42:03.500]  $ ...future.FUN:function (x, na.rm = TRUE)  
[18:42:03.500]  $ ...          : list()
[18:42:03.500]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.500]  - attr(*, "where")=List of 2
[18:42:03.500]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:03.500]   ..$ ...          :<environment: 0x000002ea02ea67a0> 
[18:42:03.500]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.500]  - attr(*, "resolved")= logi FALSE
[18:42:03.500]  - attr(*, "total_size")= int 18895
[18:42:03.504] Packages to be attached in all futures: [n=1] 'stats'
[18:42:03.504] getGlobalsAndPackagesXApply() ... DONE
[18:42:03.504] Number of futures (= number of chunks): 2
[18:42:03.504] Launching 2 futures (chunks) ...
[18:42:03.504] Chunk #1 of 2 ...
[18:42:03.505]  - Finding globals in 'X' for chunk #1 ...
[18:42:03.505] getGlobalsAndPackages() ...
[18:42:03.505] Searching for globals...
[18:42:03.505] 
[18:42:03.505] Searching for globals ... DONE
[18:42:03.506] - globals: [0] <none>
[18:42:03.506] getGlobalsAndPackages() ... DONE
[18:42:03.506]    + additional globals found: [n=0] 
[18:42:03.506]    + additional namespaces needed: [n=0] 
[18:42:03.506]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:03.506]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.507]  - seeds: <none>
[18:42:03.507]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.507] getGlobalsAndPackages() ...
[18:42:03.507] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.507] Resolving globals: FALSE
[18:42:03.507] Tweak future expression to call with '...' arguments ...
[18:42:03.508] {
[18:42:03.508]     do.call(function(...) {
[18:42:03.508]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.508]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.508]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.508]             on.exit(options(oopts), add = TRUE)
[18:42:03.508]         }
[18:42:03.508]         {
[18:42:03.508]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.508]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.508]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.508]             })
[18:42:03.508]         }
[18:42:03.508]     }, args = future.call.arguments)
[18:42:03.508] }
[18:42:03.508] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.509] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.509] - packages: [1] 'stats'
[18:42:03.509] getGlobalsAndPackages() ... DONE
[18:42:03.509] run() for 'Future' ...
[18:42:03.510] - state: 'created'
[18:42:03.510] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.525] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.525] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.525]   - Field: 'node'
[18:42:03.525]   - Field: 'label'
[18:42:03.526]   - Field: 'local'
[18:42:03.526]   - Field: 'owner'
[18:42:03.526]   - Field: 'envir'
[18:42:03.526]   - Field: 'workers'
[18:42:03.526]   - Field: 'packages'
[18:42:03.527]   - Field: 'gc'
[18:42:03.527]   - Field: 'conditions'
[18:42:03.527]   - Field: 'persistent'
[18:42:03.527]   - Field: 'expr'
[18:42:03.527]   - Field: 'uuid'
[18:42:03.527]   - Field: 'seed'
[18:42:03.528]   - Field: 'version'
[18:42:03.528]   - Field: 'result'
[18:42:03.528]   - Field: 'asynchronous'
[18:42:03.528]   - Field: 'calls'
[18:42:03.528]   - Field: 'globals'
[18:42:03.528]   - Field: 'stdout'
[18:42:03.529]   - Field: 'earlySignal'
[18:42:03.529]   - Field: 'lazy'
[18:42:03.529]   - Field: 'state'
[18:42:03.529] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.529] - Launch lazy future ...
[18:42:03.530] Packages needed by the future expression (n = 1): 'stats'
[18:42:03.530] Packages needed by future strategies (n = 0): <none>
[18:42:03.530] {
[18:42:03.530]     {
[18:42:03.530]         {
[18:42:03.530]             ...future.startTime <- base::Sys.time()
[18:42:03.530]             {
[18:42:03.530]                 {
[18:42:03.530]                   {
[18:42:03.530]                     {
[18:42:03.530]                       {
[18:42:03.530]                         base::local({
[18:42:03.530]                           has_future <- base::requireNamespace("future", 
[18:42:03.530]                             quietly = TRUE)
[18:42:03.530]                           if (has_future) {
[18:42:03.530]                             ns <- base::getNamespace("future")
[18:42:03.530]                             version <- ns[[".package"]][["version"]]
[18:42:03.530]                             if (is.null(version)) 
[18:42:03.530]                               version <- utils::packageVersion("future")
[18:42:03.530]                           }
[18:42:03.530]                           else {
[18:42:03.530]                             version <- NULL
[18:42:03.530]                           }
[18:42:03.530]                           if (!has_future || version < "1.8.0") {
[18:42:03.530]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.530]                               "", base::R.version$version.string), 
[18:42:03.530]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.530]                                 base::R.version$platform, 8 * 
[18:42:03.530]                                   base::.Machine$sizeof.pointer), 
[18:42:03.530]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.530]                                 "release", "version")], collapse = " "), 
[18:42:03.530]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.530]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.530]                               info)
[18:42:03.530]                             info <- base::paste(info, collapse = "; ")
[18:42:03.530]                             if (!has_future) {
[18:42:03.530]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.530]                                 info)
[18:42:03.530]                             }
[18:42:03.530]                             else {
[18:42:03.530]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.530]                                 info, version)
[18:42:03.530]                             }
[18:42:03.530]                             base::stop(msg)
[18:42:03.530]                           }
[18:42:03.530]                         })
[18:42:03.530]                       }
[18:42:03.530]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.530]                       base::options(mc.cores = 1L)
[18:42:03.530]                     }
[18:42:03.530]                     base::local({
[18:42:03.530]                       for (pkg in "stats") {
[18:42:03.530]                         base::loadNamespace(pkg)
[18:42:03.530]                         base::library(pkg, character.only = TRUE)
[18:42:03.530]                       }
[18:42:03.530]                     })
[18:42:03.530]                   }
[18:42:03.530]                   ...future.strategy.old <- future::plan("list")
[18:42:03.530]                   options(future.plan = NULL)
[18:42:03.530]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.530]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.530]                 }
[18:42:03.530]                 ...future.workdir <- getwd()
[18:42:03.530]             }
[18:42:03.530]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.530]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.530]         }
[18:42:03.530]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.530]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.530]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.530]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.530]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.530]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.530]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.530]             base::names(...future.oldOptions))
[18:42:03.530]     }
[18:42:03.530]     if (FALSE) {
[18:42:03.530]     }
[18:42:03.530]     else {
[18:42:03.530]         if (TRUE) {
[18:42:03.530]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.530]                 open = "w")
[18:42:03.530]         }
[18:42:03.530]         else {
[18:42:03.530]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.530]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.530]         }
[18:42:03.530]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.530]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.530]             base::sink(type = "output", split = FALSE)
[18:42:03.530]             base::close(...future.stdout)
[18:42:03.530]         }, add = TRUE)
[18:42:03.530]     }
[18:42:03.530]     ...future.frame <- base::sys.nframe()
[18:42:03.530]     ...future.conditions <- base::list()
[18:42:03.530]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.530]     if (FALSE) {
[18:42:03.530]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.530]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.530]     }
[18:42:03.530]     ...future.result <- base::tryCatch({
[18:42:03.530]         base::withCallingHandlers({
[18:42:03.530]             ...future.value <- base::withVisible(base::local({
[18:42:03.530]                 ...future.makeSendCondition <- base::local({
[18:42:03.530]                   sendCondition <- NULL
[18:42:03.530]                   function(frame = 1L) {
[18:42:03.530]                     if (is.function(sendCondition)) 
[18:42:03.530]                       return(sendCondition)
[18:42:03.530]                     ns <- getNamespace("parallel")
[18:42:03.530]                     if (exists("sendData", mode = "function", 
[18:42:03.530]                       envir = ns)) {
[18:42:03.530]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.530]                         envir = ns)
[18:42:03.530]                       envir <- sys.frame(frame)
[18:42:03.530]                       master <- NULL
[18:42:03.530]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.530]                         !identical(envir, emptyenv())) {
[18:42:03.530]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.530]                           inherits = FALSE)) {
[18:42:03.530]                           master <- get("master", mode = "list", 
[18:42:03.530]                             envir = envir, inherits = FALSE)
[18:42:03.530]                           if (inherits(master, c("SOCKnode", 
[18:42:03.530]                             "SOCK0node"))) {
[18:42:03.530]                             sendCondition <<- function(cond) {
[18:42:03.530]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.530]                                 success = TRUE)
[18:42:03.530]                               parallel_sendData(master, data)
[18:42:03.530]                             }
[18:42:03.530]                             return(sendCondition)
[18:42:03.530]                           }
[18:42:03.530]                         }
[18:42:03.530]                         frame <- frame + 1L
[18:42:03.530]                         envir <- sys.frame(frame)
[18:42:03.530]                       }
[18:42:03.530]                     }
[18:42:03.530]                     sendCondition <<- function(cond) NULL
[18:42:03.530]                   }
[18:42:03.530]                 })
[18:42:03.530]                 withCallingHandlers({
[18:42:03.530]                   {
[18:42:03.530]                     do.call(function(...) {
[18:42:03.530]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.530]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.530]                         ...future.globals.maxSize)) {
[18:42:03.530]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.530]                         on.exit(options(oopts), add = TRUE)
[18:42:03.530]                       }
[18:42:03.530]                       {
[18:42:03.530]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.530]                           FUN = function(jj) {
[18:42:03.530]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.530]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.530]                           })
[18:42:03.530]                       }
[18:42:03.530]                     }, args = future.call.arguments)
[18:42:03.530]                   }
[18:42:03.530]                 }, immediateCondition = function(cond) {
[18:42:03.530]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.530]                   sendCondition(cond)
[18:42:03.530]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.530]                   {
[18:42:03.530]                     inherits <- base::inherits
[18:42:03.530]                     invokeRestart <- base::invokeRestart
[18:42:03.530]                     is.null <- base::is.null
[18:42:03.530]                     muffled <- FALSE
[18:42:03.530]                     if (inherits(cond, "message")) {
[18:42:03.530]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.530]                       if (muffled) 
[18:42:03.530]                         invokeRestart("muffleMessage")
[18:42:03.530]                     }
[18:42:03.530]                     else if (inherits(cond, "warning")) {
[18:42:03.530]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.530]                       if (muffled) 
[18:42:03.530]                         invokeRestart("muffleWarning")
[18:42:03.530]                     }
[18:42:03.530]                     else if (inherits(cond, "condition")) {
[18:42:03.530]                       if (!is.null(pattern)) {
[18:42:03.530]                         computeRestarts <- base::computeRestarts
[18:42:03.530]                         grepl <- base::grepl
[18:42:03.530]                         restarts <- computeRestarts(cond)
[18:42:03.530]                         for (restart in restarts) {
[18:42:03.530]                           name <- restart$name
[18:42:03.530]                           if (is.null(name)) 
[18:42:03.530]                             next
[18:42:03.530]                           if (!grepl(pattern, name)) 
[18:42:03.530]                             next
[18:42:03.530]                           invokeRestart(restart)
[18:42:03.530]                           muffled <- TRUE
[18:42:03.530]                           break
[18:42:03.530]                         }
[18:42:03.530]                       }
[18:42:03.530]                     }
[18:42:03.530]                     invisible(muffled)
[18:42:03.530]                   }
[18:42:03.530]                   muffleCondition(cond)
[18:42:03.530]                 })
[18:42:03.530]             }))
[18:42:03.530]             future::FutureResult(value = ...future.value$value, 
[18:42:03.530]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.530]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.530]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.530]                     ...future.globalenv.names))
[18:42:03.530]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.530]         }, condition = base::local({
[18:42:03.530]             c <- base::c
[18:42:03.530]             inherits <- base::inherits
[18:42:03.530]             invokeRestart <- base::invokeRestart
[18:42:03.530]             length <- base::length
[18:42:03.530]             list <- base::list
[18:42:03.530]             seq.int <- base::seq.int
[18:42:03.530]             signalCondition <- base::signalCondition
[18:42:03.530]             sys.calls <- base::sys.calls
[18:42:03.530]             `[[` <- base::`[[`
[18:42:03.530]             `+` <- base::`+`
[18:42:03.530]             `<<-` <- base::`<<-`
[18:42:03.530]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.530]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.530]                   3L)]
[18:42:03.530]             }
[18:42:03.530]             function(cond) {
[18:42:03.530]                 is_error <- inherits(cond, "error")
[18:42:03.530]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.530]                   NULL)
[18:42:03.530]                 if (is_error) {
[18:42:03.530]                   sessionInformation <- function() {
[18:42:03.530]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.530]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.530]                       search = base::search(), system = base::Sys.info())
[18:42:03.530]                   }
[18:42:03.530]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.530]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.530]                     cond$call), session = sessionInformation(), 
[18:42:03.530]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.530]                   signalCondition(cond)
[18:42:03.530]                 }
[18:42:03.530]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.530]                 "immediateCondition"))) {
[18:42:03.530]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.530]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.530]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.530]                   if (TRUE && !signal) {
[18:42:03.530]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.530]                     {
[18:42:03.530]                       inherits <- base::inherits
[18:42:03.530]                       invokeRestart <- base::invokeRestart
[18:42:03.530]                       is.null <- base::is.null
[18:42:03.530]                       muffled <- FALSE
[18:42:03.530]                       if (inherits(cond, "message")) {
[18:42:03.530]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.530]                         if (muffled) 
[18:42:03.530]                           invokeRestart("muffleMessage")
[18:42:03.530]                       }
[18:42:03.530]                       else if (inherits(cond, "warning")) {
[18:42:03.530]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.530]                         if (muffled) 
[18:42:03.530]                           invokeRestart("muffleWarning")
[18:42:03.530]                       }
[18:42:03.530]                       else if (inherits(cond, "condition")) {
[18:42:03.530]                         if (!is.null(pattern)) {
[18:42:03.530]                           computeRestarts <- base::computeRestarts
[18:42:03.530]                           grepl <- base::grepl
[18:42:03.530]                           restarts <- computeRestarts(cond)
[18:42:03.530]                           for (restart in restarts) {
[18:42:03.530]                             name <- restart$name
[18:42:03.530]                             if (is.null(name)) 
[18:42:03.530]                               next
[18:42:03.530]                             if (!grepl(pattern, name)) 
[18:42:03.530]                               next
[18:42:03.530]                             invokeRestart(restart)
[18:42:03.530]                             muffled <- TRUE
[18:42:03.530]                             break
[18:42:03.530]                           }
[18:42:03.530]                         }
[18:42:03.530]                       }
[18:42:03.530]                       invisible(muffled)
[18:42:03.530]                     }
[18:42:03.530]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.530]                   }
[18:42:03.530]                 }
[18:42:03.530]                 else {
[18:42:03.530]                   if (TRUE) {
[18:42:03.530]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.530]                     {
[18:42:03.530]                       inherits <- base::inherits
[18:42:03.530]                       invokeRestart <- base::invokeRestart
[18:42:03.530]                       is.null <- base::is.null
[18:42:03.530]                       muffled <- FALSE
[18:42:03.530]                       if (inherits(cond, "message")) {
[18:42:03.530]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.530]                         if (muffled) 
[18:42:03.530]                           invokeRestart("muffleMessage")
[18:42:03.530]                       }
[18:42:03.530]                       else if (inherits(cond, "warning")) {
[18:42:03.530]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.530]                         if (muffled) 
[18:42:03.530]                           invokeRestart("muffleWarning")
[18:42:03.530]                       }
[18:42:03.530]                       else if (inherits(cond, "condition")) {
[18:42:03.530]                         if (!is.null(pattern)) {
[18:42:03.530]                           computeRestarts <- base::computeRestarts
[18:42:03.530]                           grepl <- base::grepl
[18:42:03.530]                           restarts <- computeRestarts(cond)
[18:42:03.530]                           for (restart in restarts) {
[18:42:03.530]                             name <- restart$name
[18:42:03.530]                             if (is.null(name)) 
[18:42:03.530]                               next
[18:42:03.530]                             if (!grepl(pattern, name)) 
[18:42:03.530]                               next
[18:42:03.530]                             invokeRestart(restart)
[18:42:03.530]                             muffled <- TRUE
[18:42:03.530]                             break
[18:42:03.530]                           }
[18:42:03.530]                         }
[18:42:03.530]                       }
[18:42:03.530]                       invisible(muffled)
[18:42:03.530]                     }
[18:42:03.530]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.530]                   }
[18:42:03.530]                 }
[18:42:03.530]             }
[18:42:03.530]         }))
[18:42:03.530]     }, error = function(ex) {
[18:42:03.530]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.530]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.530]                 ...future.rng), started = ...future.startTime, 
[18:42:03.530]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.530]             version = "1.8"), class = "FutureResult")
[18:42:03.530]     }, finally = {
[18:42:03.530]         if (!identical(...future.workdir, getwd())) 
[18:42:03.530]             setwd(...future.workdir)
[18:42:03.530]         {
[18:42:03.530]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.530]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.530]             }
[18:42:03.530]             base::options(...future.oldOptions)
[18:42:03.530]             if (.Platform$OS.type == "windows") {
[18:42:03.530]                 old_names <- names(...future.oldEnvVars)
[18:42:03.530]                 envs <- base::Sys.getenv()
[18:42:03.530]                 names <- names(envs)
[18:42:03.530]                 common <- intersect(names, old_names)
[18:42:03.530]                 added <- setdiff(names, old_names)
[18:42:03.530]                 removed <- setdiff(old_names, names)
[18:42:03.530]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.530]                   envs[common]]
[18:42:03.530]                 NAMES <- toupper(changed)
[18:42:03.530]                 args <- list()
[18:42:03.530]                 for (kk in seq_along(NAMES)) {
[18:42:03.530]                   name <- changed[[kk]]
[18:42:03.530]                   NAME <- NAMES[[kk]]
[18:42:03.530]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.530]                     next
[18:42:03.530]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.530]                 }
[18:42:03.530]                 NAMES <- toupper(added)
[18:42:03.530]                 for (kk in seq_along(NAMES)) {
[18:42:03.530]                   name <- added[[kk]]
[18:42:03.530]                   NAME <- NAMES[[kk]]
[18:42:03.530]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.530]                     next
[18:42:03.530]                   args[[name]] <- ""
[18:42:03.530]                 }
[18:42:03.530]                 NAMES <- toupper(removed)
[18:42:03.530]                 for (kk in seq_along(NAMES)) {
[18:42:03.530]                   name <- removed[[kk]]
[18:42:03.530]                   NAME <- NAMES[[kk]]
[18:42:03.530]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.530]                     next
[18:42:03.530]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.530]                 }
[18:42:03.530]                 if (length(args) > 0) 
[18:42:03.530]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.530]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.530]             }
[18:42:03.530]             else {
[18:42:03.530]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.530]             }
[18:42:03.530]             {
[18:42:03.530]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.530]                   0L) {
[18:42:03.530]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.530]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.530]                   base::options(opts)
[18:42:03.530]                 }
[18:42:03.530]                 {
[18:42:03.530]                   {
[18:42:03.530]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.530]                     NULL
[18:42:03.530]                   }
[18:42:03.530]                   options(future.plan = NULL)
[18:42:03.530]                   if (is.na(NA_character_)) 
[18:42:03.530]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.530]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.530]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.530]                     .init = FALSE)
[18:42:03.530]                 }
[18:42:03.530]             }
[18:42:03.530]         }
[18:42:03.530]     })
[18:42:03.530]     if (TRUE) {
[18:42:03.530]         base::sink(type = "output", split = FALSE)
[18:42:03.530]         if (TRUE) {
[18:42:03.530]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.530]         }
[18:42:03.530]         else {
[18:42:03.530]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.530]         }
[18:42:03.530]         base::close(...future.stdout)
[18:42:03.530]         ...future.stdout <- NULL
[18:42:03.530]     }
[18:42:03.530]     ...future.result$conditions <- ...future.conditions
[18:42:03.530]     ...future.result$finished <- base::Sys.time()
[18:42:03.530]     ...future.result
[18:42:03.530] }
[18:42:03.536] Exporting 5 global objects (5.62 KiB) to cluster node #1 ...
[18:42:03.537] Exporting '...future.FUN' (4.67 KiB) to cluster node #1 ...
[18:42:03.538] Exporting '...future.FUN' (4.67 KiB) to cluster node #1 ... DONE
[18:42:03.538] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.539] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.539] Exporting '...future.elements_ii' (369 bytes) to cluster node #1 ...
[18:42:03.540] Exporting '...future.elements_ii' (369 bytes) to cluster node #1 ... DONE
[18:42:03.540] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.540] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.541] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.541] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.542] Exporting 5 global objects (5.62 KiB) to cluster node #1 ... DONE
[18:42:03.543] MultisessionFuture started
[18:42:03.543] - Launch lazy future ... done
[18:42:03.543] run() for 'MultisessionFuture' ... done
[18:42:03.544] Created future:
[18:42:03.570] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.570] - Validating connection of MultisessionFuture
[18:42:03.570] - received message: FutureResult
[18:42:03.571] - Received FutureResult
[18:42:03.571] - Erased future from FutureRegistry
[18:42:03.571] result() for ClusterFuture ...
[18:42:03.571] - result already collected: FutureResult
[18:42:03.571] result() for ClusterFuture ... done
[18:42:03.572] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.544] MultisessionFuture:
[18:42:03.544] Label: 'future_sapply-1'
[18:42:03.544] Expression:
[18:42:03.544] {
[18:42:03.544]     do.call(function(...) {
[18:42:03.544]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.544]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.544]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.544]             on.exit(options(oopts), add = TRUE)
[18:42:03.544]         }
[18:42:03.544]         {
[18:42:03.544]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.544]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.544]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.544]             })
[18:42:03.544]         }
[18:42:03.544]     }, args = future.call.arguments)
[18:42:03.544] }
[18:42:03.544] Lazy evaluation: FALSE
[18:42:03.544] Asynchronous evaluation: TRUE
[18:42:03.544] Local evaluation: TRUE
[18:42:03.544] Environment: R_GlobalEnv
[18:42:03.544] Capture standard output: TRUE
[18:42:03.544] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.544] Globals: 5 objects totaling 5.17 KiB (function '...future.FUN' of 4.67 KiB, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 369 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:42:03.544] Packages: 1 packages ('stats')
[18:42:03.544] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.544] Resolved: TRUE
[18:42:03.544] Value: <not collected>
[18:42:03.544] Conditions captured: <none>
[18:42:03.544] Early signaling: FALSE
[18:42:03.544] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.544] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.572] Chunk #1 of 2 ... DONE
[18:42:03.572] Chunk #2 of 2 ...
[18:42:03.572]  - Finding globals in 'X' for chunk #2 ...
[18:42:03.573] getGlobalsAndPackages() ...
[18:42:03.573] Searching for globals...
[18:42:03.573] 
[18:42:03.573] Searching for globals ... DONE
[18:42:03.573] - globals: [0] <none>
[18:42:03.573] getGlobalsAndPackages() ... DONE
[18:42:03.574]    + additional globals found: [n=0] 
[18:42:03.574]    + additional namespaces needed: [n=0] 
[18:42:03.574]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:03.574]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.574]  - seeds: <none>
[18:42:03.574]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.575] getGlobalsAndPackages() ...
[18:42:03.575] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.575] Resolving globals: FALSE
[18:42:03.575] Tweak future expression to call with '...' arguments ...
[18:42:03.575] {
[18:42:03.575]     do.call(function(...) {
[18:42:03.575]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.575]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.575]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.575]             on.exit(options(oopts), add = TRUE)
[18:42:03.575]         }
[18:42:03.575]         {
[18:42:03.575]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.575]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.575]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.575]             })
[18:42:03.575]         }
[18:42:03.575]     }, args = future.call.arguments)
[18:42:03.575] }
[18:42:03.576] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.576] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.577] - packages: [1] 'stats'
[18:42:03.577] getGlobalsAndPackages() ... DONE
[18:42:03.577] run() for 'Future' ...
[18:42:03.577] - state: 'created'
[18:42:03.578] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.593] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.593] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.593]   - Field: 'node'
[18:42:03.593]   - Field: 'label'
[18:42:03.593]   - Field: 'local'
[18:42:03.594]   - Field: 'owner'
[18:42:03.594]   - Field: 'envir'
[18:42:03.594]   - Field: 'workers'
[18:42:03.594]   - Field: 'packages'
[18:42:03.594]   - Field: 'gc'
[18:42:03.595]   - Field: 'conditions'
[18:42:03.595]   - Field: 'persistent'
[18:42:03.595]   - Field: 'expr'
[18:42:03.595]   - Field: 'uuid'
[18:42:03.595]   - Field: 'seed'
[18:42:03.595]   - Field: 'version'
[18:42:03.596]   - Field: 'result'
[18:42:03.596]   - Field: 'asynchronous'
[18:42:03.596]   - Field: 'calls'
[18:42:03.596]   - Field: 'globals'
[18:42:03.596]   - Field: 'stdout'
[18:42:03.596]   - Field: 'earlySignal'
[18:42:03.597]   - Field: 'lazy'
[18:42:03.597]   - Field: 'state'
[18:42:03.597] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.597] - Launch lazy future ...
[18:42:03.597] Packages needed by the future expression (n = 1): 'stats'
[18:42:03.598] Packages needed by future strategies (n = 0): <none>
[18:42:03.598] {
[18:42:03.598]     {
[18:42:03.598]         {
[18:42:03.598]             ...future.startTime <- base::Sys.time()
[18:42:03.598]             {
[18:42:03.598]                 {
[18:42:03.598]                   {
[18:42:03.598]                     {
[18:42:03.598]                       {
[18:42:03.598]                         base::local({
[18:42:03.598]                           has_future <- base::requireNamespace("future", 
[18:42:03.598]                             quietly = TRUE)
[18:42:03.598]                           if (has_future) {
[18:42:03.598]                             ns <- base::getNamespace("future")
[18:42:03.598]                             version <- ns[[".package"]][["version"]]
[18:42:03.598]                             if (is.null(version)) 
[18:42:03.598]                               version <- utils::packageVersion("future")
[18:42:03.598]                           }
[18:42:03.598]                           else {
[18:42:03.598]                             version <- NULL
[18:42:03.598]                           }
[18:42:03.598]                           if (!has_future || version < "1.8.0") {
[18:42:03.598]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.598]                               "", base::R.version$version.string), 
[18:42:03.598]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.598]                                 base::R.version$platform, 8 * 
[18:42:03.598]                                   base::.Machine$sizeof.pointer), 
[18:42:03.598]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.598]                                 "release", "version")], collapse = " "), 
[18:42:03.598]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.598]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.598]                               info)
[18:42:03.598]                             info <- base::paste(info, collapse = "; ")
[18:42:03.598]                             if (!has_future) {
[18:42:03.598]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.598]                                 info)
[18:42:03.598]                             }
[18:42:03.598]                             else {
[18:42:03.598]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.598]                                 info, version)
[18:42:03.598]                             }
[18:42:03.598]                             base::stop(msg)
[18:42:03.598]                           }
[18:42:03.598]                         })
[18:42:03.598]                       }
[18:42:03.598]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.598]                       base::options(mc.cores = 1L)
[18:42:03.598]                     }
[18:42:03.598]                     base::local({
[18:42:03.598]                       for (pkg in "stats") {
[18:42:03.598]                         base::loadNamespace(pkg)
[18:42:03.598]                         base::library(pkg, character.only = TRUE)
[18:42:03.598]                       }
[18:42:03.598]                     })
[18:42:03.598]                   }
[18:42:03.598]                   ...future.strategy.old <- future::plan("list")
[18:42:03.598]                   options(future.plan = NULL)
[18:42:03.598]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.598]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.598]                 }
[18:42:03.598]                 ...future.workdir <- getwd()
[18:42:03.598]             }
[18:42:03.598]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.598]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.598]         }
[18:42:03.598]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.598]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.598]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.598]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.598]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.598]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.598]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.598]             base::names(...future.oldOptions))
[18:42:03.598]     }
[18:42:03.598]     if (FALSE) {
[18:42:03.598]     }
[18:42:03.598]     else {
[18:42:03.598]         if (TRUE) {
[18:42:03.598]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.598]                 open = "w")
[18:42:03.598]         }
[18:42:03.598]         else {
[18:42:03.598]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.598]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.598]         }
[18:42:03.598]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.598]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.598]             base::sink(type = "output", split = FALSE)
[18:42:03.598]             base::close(...future.stdout)
[18:42:03.598]         }, add = TRUE)
[18:42:03.598]     }
[18:42:03.598]     ...future.frame <- base::sys.nframe()
[18:42:03.598]     ...future.conditions <- base::list()
[18:42:03.598]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.598]     if (FALSE) {
[18:42:03.598]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.598]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.598]     }
[18:42:03.598]     ...future.result <- base::tryCatch({
[18:42:03.598]         base::withCallingHandlers({
[18:42:03.598]             ...future.value <- base::withVisible(base::local({
[18:42:03.598]                 ...future.makeSendCondition <- base::local({
[18:42:03.598]                   sendCondition <- NULL
[18:42:03.598]                   function(frame = 1L) {
[18:42:03.598]                     if (is.function(sendCondition)) 
[18:42:03.598]                       return(sendCondition)
[18:42:03.598]                     ns <- getNamespace("parallel")
[18:42:03.598]                     if (exists("sendData", mode = "function", 
[18:42:03.598]                       envir = ns)) {
[18:42:03.598]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.598]                         envir = ns)
[18:42:03.598]                       envir <- sys.frame(frame)
[18:42:03.598]                       master <- NULL
[18:42:03.598]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.598]                         !identical(envir, emptyenv())) {
[18:42:03.598]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.598]                           inherits = FALSE)) {
[18:42:03.598]                           master <- get("master", mode = "list", 
[18:42:03.598]                             envir = envir, inherits = FALSE)
[18:42:03.598]                           if (inherits(master, c("SOCKnode", 
[18:42:03.598]                             "SOCK0node"))) {
[18:42:03.598]                             sendCondition <<- function(cond) {
[18:42:03.598]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.598]                                 success = TRUE)
[18:42:03.598]                               parallel_sendData(master, data)
[18:42:03.598]                             }
[18:42:03.598]                             return(sendCondition)
[18:42:03.598]                           }
[18:42:03.598]                         }
[18:42:03.598]                         frame <- frame + 1L
[18:42:03.598]                         envir <- sys.frame(frame)
[18:42:03.598]                       }
[18:42:03.598]                     }
[18:42:03.598]                     sendCondition <<- function(cond) NULL
[18:42:03.598]                   }
[18:42:03.598]                 })
[18:42:03.598]                 withCallingHandlers({
[18:42:03.598]                   {
[18:42:03.598]                     do.call(function(...) {
[18:42:03.598]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.598]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.598]                         ...future.globals.maxSize)) {
[18:42:03.598]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.598]                         on.exit(options(oopts), add = TRUE)
[18:42:03.598]                       }
[18:42:03.598]                       {
[18:42:03.598]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.598]                           FUN = function(jj) {
[18:42:03.598]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.598]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.598]                           })
[18:42:03.598]                       }
[18:42:03.598]                     }, args = future.call.arguments)
[18:42:03.598]                   }
[18:42:03.598]                 }, immediateCondition = function(cond) {
[18:42:03.598]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.598]                   sendCondition(cond)
[18:42:03.598]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.598]                   {
[18:42:03.598]                     inherits <- base::inherits
[18:42:03.598]                     invokeRestart <- base::invokeRestart
[18:42:03.598]                     is.null <- base::is.null
[18:42:03.598]                     muffled <- FALSE
[18:42:03.598]                     if (inherits(cond, "message")) {
[18:42:03.598]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.598]                       if (muffled) 
[18:42:03.598]                         invokeRestart("muffleMessage")
[18:42:03.598]                     }
[18:42:03.598]                     else if (inherits(cond, "warning")) {
[18:42:03.598]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.598]                       if (muffled) 
[18:42:03.598]                         invokeRestart("muffleWarning")
[18:42:03.598]                     }
[18:42:03.598]                     else if (inherits(cond, "condition")) {
[18:42:03.598]                       if (!is.null(pattern)) {
[18:42:03.598]                         computeRestarts <- base::computeRestarts
[18:42:03.598]                         grepl <- base::grepl
[18:42:03.598]                         restarts <- computeRestarts(cond)
[18:42:03.598]                         for (restart in restarts) {
[18:42:03.598]                           name <- restart$name
[18:42:03.598]                           if (is.null(name)) 
[18:42:03.598]                             next
[18:42:03.598]                           if (!grepl(pattern, name)) 
[18:42:03.598]                             next
[18:42:03.598]                           invokeRestart(restart)
[18:42:03.598]                           muffled <- TRUE
[18:42:03.598]                           break
[18:42:03.598]                         }
[18:42:03.598]                       }
[18:42:03.598]                     }
[18:42:03.598]                     invisible(muffled)
[18:42:03.598]                   }
[18:42:03.598]                   muffleCondition(cond)
[18:42:03.598]                 })
[18:42:03.598]             }))
[18:42:03.598]             future::FutureResult(value = ...future.value$value, 
[18:42:03.598]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.598]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.598]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.598]                     ...future.globalenv.names))
[18:42:03.598]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.598]         }, condition = base::local({
[18:42:03.598]             c <- base::c
[18:42:03.598]             inherits <- base::inherits
[18:42:03.598]             invokeRestart <- base::invokeRestart
[18:42:03.598]             length <- base::length
[18:42:03.598]             list <- base::list
[18:42:03.598]             seq.int <- base::seq.int
[18:42:03.598]             signalCondition <- base::signalCondition
[18:42:03.598]             sys.calls <- base::sys.calls
[18:42:03.598]             `[[` <- base::`[[`
[18:42:03.598]             `+` <- base::`+`
[18:42:03.598]             `<<-` <- base::`<<-`
[18:42:03.598]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.598]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.598]                   3L)]
[18:42:03.598]             }
[18:42:03.598]             function(cond) {
[18:42:03.598]                 is_error <- inherits(cond, "error")
[18:42:03.598]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.598]                   NULL)
[18:42:03.598]                 if (is_error) {
[18:42:03.598]                   sessionInformation <- function() {
[18:42:03.598]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.598]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.598]                       search = base::search(), system = base::Sys.info())
[18:42:03.598]                   }
[18:42:03.598]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.598]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.598]                     cond$call), session = sessionInformation(), 
[18:42:03.598]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.598]                   signalCondition(cond)
[18:42:03.598]                 }
[18:42:03.598]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.598]                 "immediateCondition"))) {
[18:42:03.598]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.598]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.598]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.598]                   if (TRUE && !signal) {
[18:42:03.598]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.598]                     {
[18:42:03.598]                       inherits <- base::inherits
[18:42:03.598]                       invokeRestart <- base::invokeRestart
[18:42:03.598]                       is.null <- base::is.null
[18:42:03.598]                       muffled <- FALSE
[18:42:03.598]                       if (inherits(cond, "message")) {
[18:42:03.598]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.598]                         if (muffled) 
[18:42:03.598]                           invokeRestart("muffleMessage")
[18:42:03.598]                       }
[18:42:03.598]                       else if (inherits(cond, "warning")) {
[18:42:03.598]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.598]                         if (muffled) 
[18:42:03.598]                           invokeRestart("muffleWarning")
[18:42:03.598]                       }
[18:42:03.598]                       else if (inherits(cond, "condition")) {
[18:42:03.598]                         if (!is.null(pattern)) {
[18:42:03.598]                           computeRestarts <- base::computeRestarts
[18:42:03.598]                           grepl <- base::grepl
[18:42:03.598]                           restarts <- computeRestarts(cond)
[18:42:03.598]                           for (restart in restarts) {
[18:42:03.598]                             name <- restart$name
[18:42:03.598]                             if (is.null(name)) 
[18:42:03.598]                               next
[18:42:03.598]                             if (!grepl(pattern, name)) 
[18:42:03.598]                               next
[18:42:03.598]                             invokeRestart(restart)
[18:42:03.598]                             muffled <- TRUE
[18:42:03.598]                             break
[18:42:03.598]                           }
[18:42:03.598]                         }
[18:42:03.598]                       }
[18:42:03.598]                       invisible(muffled)
[18:42:03.598]                     }
[18:42:03.598]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.598]                   }
[18:42:03.598]                 }
[18:42:03.598]                 else {
[18:42:03.598]                   if (TRUE) {
[18:42:03.598]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.598]                     {
[18:42:03.598]                       inherits <- base::inherits
[18:42:03.598]                       invokeRestart <- base::invokeRestart
[18:42:03.598]                       is.null <- base::is.null
[18:42:03.598]                       muffled <- FALSE
[18:42:03.598]                       if (inherits(cond, "message")) {
[18:42:03.598]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.598]                         if (muffled) 
[18:42:03.598]                           invokeRestart("muffleMessage")
[18:42:03.598]                       }
[18:42:03.598]                       else if (inherits(cond, "warning")) {
[18:42:03.598]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.598]                         if (muffled) 
[18:42:03.598]                           invokeRestart("muffleWarning")
[18:42:03.598]                       }
[18:42:03.598]                       else if (inherits(cond, "condition")) {
[18:42:03.598]                         if (!is.null(pattern)) {
[18:42:03.598]                           computeRestarts <- base::computeRestarts
[18:42:03.598]                           grepl <- base::grepl
[18:42:03.598]                           restarts <- computeRestarts(cond)
[18:42:03.598]                           for (restart in restarts) {
[18:42:03.598]                             name <- restart$name
[18:42:03.598]                             if (is.null(name)) 
[18:42:03.598]                               next
[18:42:03.598]                             if (!grepl(pattern, name)) 
[18:42:03.598]                               next
[18:42:03.598]                             invokeRestart(restart)
[18:42:03.598]                             muffled <- TRUE
[18:42:03.598]                             break
[18:42:03.598]                           }
[18:42:03.598]                         }
[18:42:03.598]                       }
[18:42:03.598]                       invisible(muffled)
[18:42:03.598]                     }
[18:42:03.598]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.598]                   }
[18:42:03.598]                 }
[18:42:03.598]             }
[18:42:03.598]         }))
[18:42:03.598]     }, error = function(ex) {
[18:42:03.598]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.598]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.598]                 ...future.rng), started = ...future.startTime, 
[18:42:03.598]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.598]             version = "1.8"), class = "FutureResult")
[18:42:03.598]     }, finally = {
[18:42:03.598]         if (!identical(...future.workdir, getwd())) 
[18:42:03.598]             setwd(...future.workdir)
[18:42:03.598]         {
[18:42:03.598]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.598]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.598]             }
[18:42:03.598]             base::options(...future.oldOptions)
[18:42:03.598]             if (.Platform$OS.type == "windows") {
[18:42:03.598]                 old_names <- names(...future.oldEnvVars)
[18:42:03.598]                 envs <- base::Sys.getenv()
[18:42:03.598]                 names <- names(envs)
[18:42:03.598]                 common <- intersect(names, old_names)
[18:42:03.598]                 added <- setdiff(names, old_names)
[18:42:03.598]                 removed <- setdiff(old_names, names)
[18:42:03.598]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.598]                   envs[common]]
[18:42:03.598]                 NAMES <- toupper(changed)
[18:42:03.598]                 args <- list()
[18:42:03.598]                 for (kk in seq_along(NAMES)) {
[18:42:03.598]                   name <- changed[[kk]]
[18:42:03.598]                   NAME <- NAMES[[kk]]
[18:42:03.598]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.598]                     next
[18:42:03.598]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.598]                 }
[18:42:03.598]                 NAMES <- toupper(added)
[18:42:03.598]                 for (kk in seq_along(NAMES)) {
[18:42:03.598]                   name <- added[[kk]]
[18:42:03.598]                   NAME <- NAMES[[kk]]
[18:42:03.598]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.598]                     next
[18:42:03.598]                   args[[name]] <- ""
[18:42:03.598]                 }
[18:42:03.598]                 NAMES <- toupper(removed)
[18:42:03.598]                 for (kk in seq_along(NAMES)) {
[18:42:03.598]                   name <- removed[[kk]]
[18:42:03.598]                   NAME <- NAMES[[kk]]
[18:42:03.598]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.598]                     next
[18:42:03.598]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.598]                 }
[18:42:03.598]                 if (length(args) > 0) 
[18:42:03.598]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.598]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.598]             }
[18:42:03.598]             else {
[18:42:03.598]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.598]             }
[18:42:03.598]             {
[18:42:03.598]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.598]                   0L) {
[18:42:03.598]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.598]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.598]                   base::options(opts)
[18:42:03.598]                 }
[18:42:03.598]                 {
[18:42:03.598]                   {
[18:42:03.598]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.598]                     NULL
[18:42:03.598]                   }
[18:42:03.598]                   options(future.plan = NULL)
[18:42:03.598]                   if (is.na(NA_character_)) 
[18:42:03.598]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.598]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.598]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.598]                     .init = FALSE)
[18:42:03.598]                 }
[18:42:03.598]             }
[18:42:03.598]         }
[18:42:03.598]     })
[18:42:03.598]     if (TRUE) {
[18:42:03.598]         base::sink(type = "output", split = FALSE)
[18:42:03.598]         if (TRUE) {
[18:42:03.598]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.598]         }
[18:42:03.598]         else {
[18:42:03.598]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.598]         }
[18:42:03.598]         base::close(...future.stdout)
[18:42:03.598]         ...future.stdout <- NULL
[18:42:03.598]     }
[18:42:03.598]     ...future.result$conditions <- ...future.conditions
[18:42:03.598]     ...future.result$finished <- base::Sys.time()
[18:42:03.598]     ...future.result
[18:42:03.598] }
[18:42:03.604] Exporting 5 global objects (5.55 KiB) to cluster node #1 ...
[18:42:03.604] Exporting '...future.FUN' (4.67 KiB) to cluster node #1 ...
[18:42:03.605] Exporting '...future.FUN' (4.67 KiB) to cluster node #1 ... DONE
[18:42:03.605] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.606] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.606] Exporting '...future.elements_ii' (293 bytes) to cluster node #1 ...
[18:42:03.607] Exporting '...future.elements_ii' (293 bytes) to cluster node #1 ... DONE
[18:42:03.607] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.608] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.608] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.608] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.609] Exporting 5 global objects (5.55 KiB) to cluster node #1 ... DONE
[18:42:03.610] MultisessionFuture started
[18:42:03.610] - Launch lazy future ... done
[18:42:03.610] run() for 'MultisessionFuture' ... done
[18:42:03.611] Created future:
[18:42:03.634] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.634] - Validating connection of MultisessionFuture
[18:42:03.634] - received message: FutureResult
[18:42:03.634] - Received FutureResult
[18:42:03.635] - Erased future from FutureRegistry
[18:42:03.635] result() for ClusterFuture ...
[18:42:03.635] - result already collected: FutureResult
[18:42:03.635] result() for ClusterFuture ... done
[18:42:03.635] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.611] MultisessionFuture:
[18:42:03.611] Label: 'future_sapply-2'
[18:42:03.611] Expression:
[18:42:03.611] {
[18:42:03.611]     do.call(function(...) {
[18:42:03.611]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.611]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.611]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.611]             on.exit(options(oopts), add = TRUE)
[18:42:03.611]         }
[18:42:03.611]         {
[18:42:03.611]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.611]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.611]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.611]             })
[18:42:03.611]         }
[18:42:03.611]     }, args = future.call.arguments)
[18:42:03.611] }
[18:42:03.611] Lazy evaluation: FALSE
[18:42:03.611] Asynchronous evaluation: TRUE
[18:42:03.611] Local evaluation: TRUE
[18:42:03.611] Environment: R_GlobalEnv
[18:42:03.611] Capture standard output: TRUE
[18:42:03.611] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.611] Globals: 5 objects totaling 5.10 KiB (function '...future.FUN' of 4.67 KiB, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 293 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:42:03.611] Packages: 1 packages ('stats')
[18:42:03.611] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.611] Resolved: TRUE
[18:42:03.611] Value: <not collected>
[18:42:03.611] Conditions captured: <none>
[18:42:03.611] Early signaling: FALSE
[18:42:03.611] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.611] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.636] Chunk #2 of 2 ... DONE
[18:42:03.636] Launching 2 futures (chunks) ... DONE
[18:42:03.636] Resolving 2 futures (chunks) ...
[18:42:03.636] resolve() on list ...
[18:42:03.636]  recursive: 0
[18:42:03.637]  length: 2
[18:42:03.637] 
[18:42:03.637] Future #1
[18:42:03.637] result() for ClusterFuture ...
[18:42:03.637] - result already collected: FutureResult
[18:42:03.637] result() for ClusterFuture ... done
[18:42:03.638] result() for ClusterFuture ...
[18:42:03.638] - result already collected: FutureResult
[18:42:03.638] result() for ClusterFuture ... done
[18:42:03.638] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:03.638] - nx: 2
[18:42:03.638] - relay: TRUE
[18:42:03.639] - stdout: TRUE
[18:42:03.639] - signal: TRUE
[18:42:03.639] - resignal: FALSE
[18:42:03.639] - force: TRUE
[18:42:03.639] - relayed: [n=2] FALSE, FALSE
[18:42:03.639] - queued futures: [n=2] FALSE, FALSE
[18:42:03.639]  - until=1
[18:42:03.640]  - relaying element #1
[18:42:03.640] result() for ClusterFuture ...
[18:42:03.640] - result already collected: FutureResult
[18:42:03.640] result() for ClusterFuture ... done
[18:42:03.640] result() for ClusterFuture ...
[18:42:03.640] - result already collected: FutureResult
[18:42:03.641] result() for ClusterFuture ... done
[18:42:03.641] result() for ClusterFuture ...
[18:42:03.641] - result already collected: FutureResult
[18:42:03.641] result() for ClusterFuture ... done
[18:42:03.641] result() for ClusterFuture ...
[18:42:03.641] - result already collected: FutureResult
[18:42:03.642] result() for ClusterFuture ... done
[18:42:03.642] - relayed: [n=2] TRUE, FALSE
[18:42:03.642] - queued futures: [n=2] TRUE, FALSE
[18:42:03.642] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:03.642]  length: 1 (resolved future 1)
[18:42:03.642] Future #2
[18:42:03.643] result() for ClusterFuture ...
[18:42:03.643] - result already collected: FutureResult
[18:42:03.643] result() for ClusterFuture ... done
[18:42:03.643] result() for ClusterFuture ...
[18:42:03.643] - result already collected: FutureResult
[18:42:03.643] result() for ClusterFuture ... done
[18:42:03.644] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:03.644] - nx: 2
[18:42:03.644] - relay: TRUE
[18:42:03.644] - stdout: TRUE
[18:42:03.644] - signal: TRUE
[18:42:03.644] - resignal: FALSE
[18:42:03.644] - force: TRUE
[18:42:03.645] - relayed: [n=2] TRUE, FALSE
[18:42:03.645] - queued futures: [n=2] TRUE, FALSE
[18:42:03.645]  - until=2
[18:42:03.645]  - relaying element #2
[18:42:03.645] result() for ClusterFuture ...
[18:42:03.645] - result already collected: FutureResult
[18:42:03.646] result() for ClusterFuture ... done
[18:42:03.646] result() for ClusterFuture ...
[18:42:03.646] - result already collected: FutureResult
[18:42:03.646] result() for ClusterFuture ... done
[18:42:03.646] result() for ClusterFuture ...
[18:42:03.646] - result already collected: FutureResult
[18:42:03.647] result() for ClusterFuture ... done
[18:42:03.647] result() for ClusterFuture ...
[18:42:03.647] - result already collected: FutureResult
[18:42:03.647] result() for ClusterFuture ... done
[18:42:03.647] - relayed: [n=2] TRUE, TRUE
[18:42:03.647] - queued futures: [n=2] TRUE, TRUE
[18:42:03.647] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:03.648]  length: 0 (resolved future 2)
[18:42:03.648] Relaying remaining futures
[18:42:03.648] signalConditionsASAP(NULL, pos=0) ...
[18:42:03.648] - nx: 2
[18:42:03.648] - relay: TRUE
[18:42:03.648] - stdout: TRUE
[18:42:03.649] - signal: TRUE
[18:42:03.649] - resignal: FALSE
[18:42:03.649] - force: TRUE
[18:42:03.649] - relayed: [n=2] TRUE, TRUE
[18:42:03.649] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:03.649] - relayed: [n=2] TRUE, TRUE
[18:42:03.650] - queued futures: [n=2] TRUE, TRUE
[18:42:03.650] signalConditionsASAP(NULL, pos=0) ... done
[18:42:03.650] resolve() on list ... DONE
[18:42:03.650] result() for ClusterFuture ...
[18:42:03.650] - result already collected: FutureResult
[18:42:03.650] result() for ClusterFuture ... done
[18:42:03.651] result() for ClusterFuture ...
[18:42:03.651] - result already collected: FutureResult
[18:42:03.651] result() for ClusterFuture ... done
[18:42:03.651] result() for ClusterFuture ...
[18:42:03.651] - result already collected: FutureResult
[18:42:03.651] result() for ClusterFuture ... done
[18:42:03.652] result() for ClusterFuture ...
[18:42:03.652] - result already collected: FutureResult
[18:42:03.652] result() for ClusterFuture ... done
[18:42:03.652]  - Number of value chunks collected: 2
[18:42:03.652] Resolving 2 futures (chunks) ... DONE
[18:42:03.652] Reducing values from 2 chunks ...
[18:42:03.652]  - Number of values collected after concatenation: 7
[18:42:03.653]  - Number of values expected: 7
[18:42:03.653] Reducing values from 2 chunks ... DONE
[18:42:03.653] future_lapply() ... DONE
[18:42:03.653] future_lapply() ...
[18:42:03.658] Number of chunks: 2
[18:42:03.658] getGlobalsAndPackagesXApply() ...
[18:42:03.659]  - future.globals: TRUE
[18:42:03.659] getGlobalsAndPackages() ...
[18:42:03.659] Searching for globals...
[18:42:03.669] - globals found: [31] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'is.na', 'any', '[', '!', 'return', 'rep.int', 'sort', '/', 'floor', '(', '+', 'c', '-', '*', 'ceiling'
[18:42:03.670] Searching for globals ... DONE
[18:42:03.670] Resolving globals: FALSE
[18:42:03.671] The total size of the 7 globals is 26.71 KiB (27354 bytes)
[18:42:03.672] The total size of the 7 globals exported for future expression ('FUN()') is 26.71 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (14.07 KiB of class 'function'), 'x_FUN' (4.67 KiB of class 'function') and 'stop_if_not' (4.51 KiB of class 'function')
[18:42:03.672] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:03.672] - packages: [2] 'stats', 'future.apply'
[18:42:03.673] getGlobalsAndPackages() ... DONE
[18:42:03.673]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:03.673]  - needed namespaces: [n=2] 'stats', 'future.apply'
[18:42:03.673] Finding globals ... DONE
[18:42:03.673]  - use_args: TRUE
[18:42:03.674]  - Getting '...' globals ...
[18:42:03.674] resolve() on list ...
[18:42:03.674]  recursive: 0
[18:42:03.675]  length: 1
[18:42:03.675]  elements: '...'
[18:42:03.675]  length: 0 (resolved future 1)
[18:42:03.675] resolve() on list ... DONE
[18:42:03.675]    - '...' content: [n=0] 
[18:42:03.676] List of 1
[18:42:03.676]  $ ...: list()
[18:42:03.676]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.676]  - attr(*, "where")=List of 1
[18:42:03.676]   ..$ ...:<environment: 0x000002ea039a80b8> 
[18:42:03.676]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.676]  - attr(*, "resolved")= logi TRUE
[18:42:03.676]  - attr(*, "total_size")= num NA
[18:42:03.679]  - Getting '...' globals ... DONE
[18:42:03.679] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:03.679] List of 8
[18:42:03.679]  $ ...future.FUN:function (x, ...)  
[18:42:03.679]  $ x_FUN        :function (x, na.rm = TRUE)  
[18:42:03.679]  $ times        : int 5
[18:42:03.679]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:03.679]  $ stop_if_not  :function (...)  
[18:42:03.679]  $ dim          : NULL
[18:42:03.679]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:03.679]  $ ...          : list()
[18:42:03.679]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.679]  - attr(*, "where")=List of 8
[18:42:03.679]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:03.679]   ..$ ...          :<environment: 0x000002ea039a80b8> 
[18:42:03.679]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.679]  - attr(*, "resolved")= logi FALSE
[18:42:03.679]  - attr(*, "total_size")= int 48005
[18:42:03.689] Packages to be attached in all futures: [n=2] 'stats', 'future.apply'
[18:42:03.690] getGlobalsAndPackagesXApply() ... DONE
[18:42:03.690] Number of futures (= number of chunks): 2
[18:42:03.690] Launching 2 futures (chunks) ...
[18:42:03.690] Chunk #1 of 2 ...
[18:42:03.691]  - Finding globals in 'X' for chunk #1 ...
[18:42:03.691] getGlobalsAndPackages() ...
[18:42:03.691] Searching for globals...
[18:42:03.691] 
[18:42:03.691] Searching for globals ... DONE
[18:42:03.692] - globals: [0] <none>
[18:42:03.692] getGlobalsAndPackages() ... DONE
[18:42:03.692]    + additional globals found: [n=0] 
[18:42:03.692]    + additional namespaces needed: [n=0] 
[18:42:03.692]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:03.692]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.693]  - seeds: <none>
[18:42:03.693]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.693] getGlobalsAndPackages() ...
[18:42:03.693] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.693] Resolving globals: FALSE
[18:42:03.693] Tweak future expression to call with '...' arguments ...
[18:42:03.694] {
[18:42:03.694]     do.call(function(...) {
[18:42:03.694]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.694]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.694]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.694]             on.exit(options(oopts), add = TRUE)
[18:42:03.694]         }
[18:42:03.694]         {
[18:42:03.694]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.694]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.694]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.694]             })
[18:42:03.694]         }
[18:42:03.694]     }, args = future.call.arguments)
[18:42:03.694] }
[18:42:03.694] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.695] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.695] - packages: [2] 'stats', 'future.apply'
[18:42:03.695] getGlobalsAndPackages() ... DONE
[18:42:03.696] run() for 'Future' ...
[18:42:03.696] - state: 'created'
[18:42:03.696] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.711] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.711] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.711]   - Field: 'node'
[18:42:03.711]   - Field: 'label'
[18:42:03.712]   - Field: 'local'
[18:42:03.712]   - Field: 'owner'
[18:42:03.712]   - Field: 'envir'
[18:42:03.712]   - Field: 'workers'
[18:42:03.712]   - Field: 'packages'
[18:42:03.713]   - Field: 'gc'
[18:42:03.713]   - Field: 'conditions'
[18:42:03.713]   - Field: 'persistent'
[18:42:03.713]   - Field: 'expr'
[18:42:03.713]   - Field: 'uuid'
[18:42:03.713]   - Field: 'seed'
[18:42:03.714]   - Field: 'version'
[18:42:03.714]   - Field: 'result'
[18:42:03.714]   - Field: 'asynchronous'
[18:42:03.714]   - Field: 'calls'
[18:42:03.714]   - Field: 'globals'
[18:42:03.714]   - Field: 'stdout'
[18:42:03.715]   - Field: 'earlySignal'
[18:42:03.715]   - Field: 'lazy'
[18:42:03.715]   - Field: 'state'
[18:42:03.715] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.715] - Launch lazy future ...
[18:42:03.716] Packages needed by the future expression (n = 2): 'stats', 'future.apply'
[18:42:03.716] Packages needed by future strategies (n = 0): <none>
[18:42:03.717] {
[18:42:03.717]     {
[18:42:03.717]         {
[18:42:03.717]             ...future.startTime <- base::Sys.time()
[18:42:03.717]             {
[18:42:03.717]                 {
[18:42:03.717]                   {
[18:42:03.717]                     {
[18:42:03.717]                       {
[18:42:03.717]                         base::local({
[18:42:03.717]                           has_future <- base::requireNamespace("future", 
[18:42:03.717]                             quietly = TRUE)
[18:42:03.717]                           if (has_future) {
[18:42:03.717]                             ns <- base::getNamespace("future")
[18:42:03.717]                             version <- ns[[".package"]][["version"]]
[18:42:03.717]                             if (is.null(version)) 
[18:42:03.717]                               version <- utils::packageVersion("future")
[18:42:03.717]                           }
[18:42:03.717]                           else {
[18:42:03.717]                             version <- NULL
[18:42:03.717]                           }
[18:42:03.717]                           if (!has_future || version < "1.8.0") {
[18:42:03.717]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.717]                               "", base::R.version$version.string), 
[18:42:03.717]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.717]                                 base::R.version$platform, 8 * 
[18:42:03.717]                                   base::.Machine$sizeof.pointer), 
[18:42:03.717]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.717]                                 "release", "version")], collapse = " "), 
[18:42:03.717]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.717]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.717]                               info)
[18:42:03.717]                             info <- base::paste(info, collapse = "; ")
[18:42:03.717]                             if (!has_future) {
[18:42:03.717]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.717]                                 info)
[18:42:03.717]                             }
[18:42:03.717]                             else {
[18:42:03.717]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.717]                                 info, version)
[18:42:03.717]                             }
[18:42:03.717]                             base::stop(msg)
[18:42:03.717]                           }
[18:42:03.717]                         })
[18:42:03.717]                       }
[18:42:03.717]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.717]                       base::options(mc.cores = 1L)
[18:42:03.717]                     }
[18:42:03.717]                     base::local({
[18:42:03.717]                       for (pkg in c("stats", "future.apply")) {
[18:42:03.717]                         base::loadNamespace(pkg)
[18:42:03.717]                         base::library(pkg, character.only = TRUE)
[18:42:03.717]                       }
[18:42:03.717]                     })
[18:42:03.717]                   }
[18:42:03.717]                   ...future.strategy.old <- future::plan("list")
[18:42:03.717]                   options(future.plan = NULL)
[18:42:03.717]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.717]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.717]                 }
[18:42:03.717]                 ...future.workdir <- getwd()
[18:42:03.717]             }
[18:42:03.717]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.717]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.717]         }
[18:42:03.717]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.717]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.717]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.717]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.717]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.717]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.717]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.717]             base::names(...future.oldOptions))
[18:42:03.717]     }
[18:42:03.717]     if (FALSE) {
[18:42:03.717]     }
[18:42:03.717]     else {
[18:42:03.717]         if (TRUE) {
[18:42:03.717]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.717]                 open = "w")
[18:42:03.717]         }
[18:42:03.717]         else {
[18:42:03.717]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.717]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.717]         }
[18:42:03.717]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.717]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.717]             base::sink(type = "output", split = FALSE)
[18:42:03.717]             base::close(...future.stdout)
[18:42:03.717]         }, add = TRUE)
[18:42:03.717]     }
[18:42:03.717]     ...future.frame <- base::sys.nframe()
[18:42:03.717]     ...future.conditions <- base::list()
[18:42:03.717]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.717]     if (FALSE) {
[18:42:03.717]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.717]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.717]     }
[18:42:03.717]     ...future.result <- base::tryCatch({
[18:42:03.717]         base::withCallingHandlers({
[18:42:03.717]             ...future.value <- base::withVisible(base::local({
[18:42:03.717]                 ...future.makeSendCondition <- base::local({
[18:42:03.717]                   sendCondition <- NULL
[18:42:03.717]                   function(frame = 1L) {
[18:42:03.717]                     if (is.function(sendCondition)) 
[18:42:03.717]                       return(sendCondition)
[18:42:03.717]                     ns <- getNamespace("parallel")
[18:42:03.717]                     if (exists("sendData", mode = "function", 
[18:42:03.717]                       envir = ns)) {
[18:42:03.717]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.717]                         envir = ns)
[18:42:03.717]                       envir <- sys.frame(frame)
[18:42:03.717]                       master <- NULL
[18:42:03.717]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.717]                         !identical(envir, emptyenv())) {
[18:42:03.717]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.717]                           inherits = FALSE)) {
[18:42:03.717]                           master <- get("master", mode = "list", 
[18:42:03.717]                             envir = envir, inherits = FALSE)
[18:42:03.717]                           if (inherits(master, c("SOCKnode", 
[18:42:03.717]                             "SOCK0node"))) {
[18:42:03.717]                             sendCondition <<- function(cond) {
[18:42:03.717]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.717]                                 success = TRUE)
[18:42:03.717]                               parallel_sendData(master, data)
[18:42:03.717]                             }
[18:42:03.717]                             return(sendCondition)
[18:42:03.717]                           }
[18:42:03.717]                         }
[18:42:03.717]                         frame <- frame + 1L
[18:42:03.717]                         envir <- sys.frame(frame)
[18:42:03.717]                       }
[18:42:03.717]                     }
[18:42:03.717]                     sendCondition <<- function(cond) NULL
[18:42:03.717]                   }
[18:42:03.717]                 })
[18:42:03.717]                 withCallingHandlers({
[18:42:03.717]                   {
[18:42:03.717]                     do.call(function(...) {
[18:42:03.717]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.717]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.717]                         ...future.globals.maxSize)) {
[18:42:03.717]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.717]                         on.exit(options(oopts), add = TRUE)
[18:42:03.717]                       }
[18:42:03.717]                       {
[18:42:03.717]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.717]                           FUN = function(jj) {
[18:42:03.717]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.717]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.717]                           })
[18:42:03.717]                       }
[18:42:03.717]                     }, args = future.call.arguments)
[18:42:03.717]                   }
[18:42:03.717]                 }, immediateCondition = function(cond) {
[18:42:03.717]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.717]                   sendCondition(cond)
[18:42:03.717]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.717]                   {
[18:42:03.717]                     inherits <- base::inherits
[18:42:03.717]                     invokeRestart <- base::invokeRestart
[18:42:03.717]                     is.null <- base::is.null
[18:42:03.717]                     muffled <- FALSE
[18:42:03.717]                     if (inherits(cond, "message")) {
[18:42:03.717]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.717]                       if (muffled) 
[18:42:03.717]                         invokeRestart("muffleMessage")
[18:42:03.717]                     }
[18:42:03.717]                     else if (inherits(cond, "warning")) {
[18:42:03.717]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.717]                       if (muffled) 
[18:42:03.717]                         invokeRestart("muffleWarning")
[18:42:03.717]                     }
[18:42:03.717]                     else if (inherits(cond, "condition")) {
[18:42:03.717]                       if (!is.null(pattern)) {
[18:42:03.717]                         computeRestarts <- base::computeRestarts
[18:42:03.717]                         grepl <- base::grepl
[18:42:03.717]                         restarts <- computeRestarts(cond)
[18:42:03.717]                         for (restart in restarts) {
[18:42:03.717]                           name <- restart$name
[18:42:03.717]                           if (is.null(name)) 
[18:42:03.717]                             next
[18:42:03.717]                           if (!grepl(pattern, name)) 
[18:42:03.717]                             next
[18:42:03.717]                           invokeRestart(restart)
[18:42:03.717]                           muffled <- TRUE
[18:42:03.717]                           break
[18:42:03.717]                         }
[18:42:03.717]                       }
[18:42:03.717]                     }
[18:42:03.717]                     invisible(muffled)
[18:42:03.717]                   }
[18:42:03.717]                   muffleCondition(cond)
[18:42:03.717]                 })
[18:42:03.717]             }))
[18:42:03.717]             future::FutureResult(value = ...future.value$value, 
[18:42:03.717]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.717]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.717]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.717]                     ...future.globalenv.names))
[18:42:03.717]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.717]         }, condition = base::local({
[18:42:03.717]             c <- base::c
[18:42:03.717]             inherits <- base::inherits
[18:42:03.717]             invokeRestart <- base::invokeRestart
[18:42:03.717]             length <- base::length
[18:42:03.717]             list <- base::list
[18:42:03.717]             seq.int <- base::seq.int
[18:42:03.717]             signalCondition <- base::signalCondition
[18:42:03.717]             sys.calls <- base::sys.calls
[18:42:03.717]             `[[` <- base::`[[`
[18:42:03.717]             `+` <- base::`+`
[18:42:03.717]             `<<-` <- base::`<<-`
[18:42:03.717]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.717]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.717]                   3L)]
[18:42:03.717]             }
[18:42:03.717]             function(cond) {
[18:42:03.717]                 is_error <- inherits(cond, "error")
[18:42:03.717]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.717]                   NULL)
[18:42:03.717]                 if (is_error) {
[18:42:03.717]                   sessionInformation <- function() {
[18:42:03.717]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.717]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.717]                       search = base::search(), system = base::Sys.info())
[18:42:03.717]                   }
[18:42:03.717]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.717]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.717]                     cond$call), session = sessionInformation(), 
[18:42:03.717]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.717]                   signalCondition(cond)
[18:42:03.717]                 }
[18:42:03.717]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.717]                 "immediateCondition"))) {
[18:42:03.717]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.717]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.717]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.717]                   if (TRUE && !signal) {
[18:42:03.717]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.717]                     {
[18:42:03.717]                       inherits <- base::inherits
[18:42:03.717]                       invokeRestart <- base::invokeRestart
[18:42:03.717]                       is.null <- base::is.null
[18:42:03.717]                       muffled <- FALSE
[18:42:03.717]                       if (inherits(cond, "message")) {
[18:42:03.717]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.717]                         if (muffled) 
[18:42:03.717]                           invokeRestart("muffleMessage")
[18:42:03.717]                       }
[18:42:03.717]                       else if (inherits(cond, "warning")) {
[18:42:03.717]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.717]                         if (muffled) 
[18:42:03.717]                           invokeRestart("muffleWarning")
[18:42:03.717]                       }
[18:42:03.717]                       else if (inherits(cond, "condition")) {
[18:42:03.717]                         if (!is.null(pattern)) {
[18:42:03.717]                           computeRestarts <- base::computeRestarts
[18:42:03.717]                           grepl <- base::grepl
[18:42:03.717]                           restarts <- computeRestarts(cond)
[18:42:03.717]                           for (restart in restarts) {
[18:42:03.717]                             name <- restart$name
[18:42:03.717]                             if (is.null(name)) 
[18:42:03.717]                               next
[18:42:03.717]                             if (!grepl(pattern, name)) 
[18:42:03.717]                               next
[18:42:03.717]                             invokeRestart(restart)
[18:42:03.717]                             muffled <- TRUE
[18:42:03.717]                             break
[18:42:03.717]                           }
[18:42:03.717]                         }
[18:42:03.717]                       }
[18:42:03.717]                       invisible(muffled)
[18:42:03.717]                     }
[18:42:03.717]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.717]                   }
[18:42:03.717]                 }
[18:42:03.717]                 else {
[18:42:03.717]                   if (TRUE) {
[18:42:03.717]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.717]                     {
[18:42:03.717]                       inherits <- base::inherits
[18:42:03.717]                       invokeRestart <- base::invokeRestart
[18:42:03.717]                       is.null <- base::is.null
[18:42:03.717]                       muffled <- FALSE
[18:42:03.717]                       if (inherits(cond, "message")) {
[18:42:03.717]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.717]                         if (muffled) 
[18:42:03.717]                           invokeRestart("muffleMessage")
[18:42:03.717]                       }
[18:42:03.717]                       else if (inherits(cond, "warning")) {
[18:42:03.717]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.717]                         if (muffled) 
[18:42:03.717]                           invokeRestart("muffleWarning")
[18:42:03.717]                       }
[18:42:03.717]                       else if (inherits(cond, "condition")) {
[18:42:03.717]                         if (!is.null(pattern)) {
[18:42:03.717]                           computeRestarts <- base::computeRestarts
[18:42:03.717]                           grepl <- base::grepl
[18:42:03.717]                           restarts <- computeRestarts(cond)
[18:42:03.717]                           for (restart in restarts) {
[18:42:03.717]                             name <- restart$name
[18:42:03.717]                             if (is.null(name)) 
[18:42:03.717]                               next
[18:42:03.717]                             if (!grepl(pattern, name)) 
[18:42:03.717]                               next
[18:42:03.717]                             invokeRestart(restart)
[18:42:03.717]                             muffled <- TRUE
[18:42:03.717]                             break
[18:42:03.717]                           }
[18:42:03.717]                         }
[18:42:03.717]                       }
[18:42:03.717]                       invisible(muffled)
[18:42:03.717]                     }
[18:42:03.717]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.717]                   }
[18:42:03.717]                 }
[18:42:03.717]             }
[18:42:03.717]         }))
[18:42:03.717]     }, error = function(ex) {
[18:42:03.717]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.717]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.717]                 ...future.rng), started = ...future.startTime, 
[18:42:03.717]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.717]             version = "1.8"), class = "FutureResult")
[18:42:03.717]     }, finally = {
[18:42:03.717]         if (!identical(...future.workdir, getwd())) 
[18:42:03.717]             setwd(...future.workdir)
[18:42:03.717]         {
[18:42:03.717]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.717]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.717]             }
[18:42:03.717]             base::options(...future.oldOptions)
[18:42:03.717]             if (.Platform$OS.type == "windows") {
[18:42:03.717]                 old_names <- names(...future.oldEnvVars)
[18:42:03.717]                 envs <- base::Sys.getenv()
[18:42:03.717]                 names <- names(envs)
[18:42:03.717]                 common <- intersect(names, old_names)
[18:42:03.717]                 added <- setdiff(names, old_names)
[18:42:03.717]                 removed <- setdiff(old_names, names)
[18:42:03.717]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.717]                   envs[common]]
[18:42:03.717]                 NAMES <- toupper(changed)
[18:42:03.717]                 args <- list()
[18:42:03.717]                 for (kk in seq_along(NAMES)) {
[18:42:03.717]                   name <- changed[[kk]]
[18:42:03.717]                   NAME <- NAMES[[kk]]
[18:42:03.717]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.717]                     next
[18:42:03.717]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.717]                 }
[18:42:03.717]                 NAMES <- toupper(added)
[18:42:03.717]                 for (kk in seq_along(NAMES)) {
[18:42:03.717]                   name <- added[[kk]]
[18:42:03.717]                   NAME <- NAMES[[kk]]
[18:42:03.717]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.717]                     next
[18:42:03.717]                   args[[name]] <- ""
[18:42:03.717]                 }
[18:42:03.717]                 NAMES <- toupper(removed)
[18:42:03.717]                 for (kk in seq_along(NAMES)) {
[18:42:03.717]                   name <- removed[[kk]]
[18:42:03.717]                   NAME <- NAMES[[kk]]
[18:42:03.717]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.717]                     next
[18:42:03.717]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.717]                 }
[18:42:03.717]                 if (length(args) > 0) 
[18:42:03.717]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.717]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.717]             }
[18:42:03.717]             else {
[18:42:03.717]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.717]             }
[18:42:03.717]             {
[18:42:03.717]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.717]                   0L) {
[18:42:03.717]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.717]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.717]                   base::options(opts)
[18:42:03.717]                 }
[18:42:03.717]                 {
[18:42:03.717]                   {
[18:42:03.717]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.717]                     NULL
[18:42:03.717]                   }
[18:42:03.717]                   options(future.plan = NULL)
[18:42:03.717]                   if (is.na(NA_character_)) 
[18:42:03.717]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.717]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.717]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.717]                     .init = FALSE)
[18:42:03.717]                 }
[18:42:03.717]             }
[18:42:03.717]         }
[18:42:03.717]     })
[18:42:03.717]     if (TRUE) {
[18:42:03.717]         base::sink(type = "output", split = FALSE)
[18:42:03.717]         if (TRUE) {
[18:42:03.717]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.717]         }
[18:42:03.717]         else {
[18:42:03.717]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.717]         }
[18:42:03.717]         base::close(...future.stdout)
[18:42:03.717]         ...future.stdout <- NULL
[18:42:03.717]     }
[18:42:03.717]     ...future.result$conditions <- ...future.conditions
[18:42:03.717]     ...future.result$finished <- base::Sys.time()
[18:42:03.717]     ...future.result
[18:42:03.717] }
[18:42:03.722] Exporting 11 global objects (27.06 KiB) to cluster node #1 ...
[18:42:03.722] Exporting '...future.FUN' (14.07 KiB) to cluster node #1 ...
[18:42:03.723] Exporting '...future.FUN' (14.07 KiB) to cluster node #1 ... DONE
[18:42:03.723] Exporting 'x_FUN' (4.67 KiB) to cluster node #1 ...
[18:42:03.724] Exporting 'x_FUN' (4.67 KiB) to cluster node #1 ... DONE
[18:42:03.724] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:03.724] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:03.725] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:03.725] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:03.725] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:03.726] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:03.726] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:03.726] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:03.727] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:03.727] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:03.727] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.728] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.728] Exporting '...future.elements_ii' (369 bytes) to cluster node #1 ...
[18:42:03.728] Exporting '...future.elements_ii' (369 bytes) to cluster node #1 ... DONE
[18:42:03.729] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.729] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.729] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.730] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.730] Exporting 11 global objects (27.06 KiB) to cluster node #1 ... DONE
[18:42:03.730] MultisessionFuture started
[18:42:03.730] - Launch lazy future ... done
[18:42:03.731] run() for 'MultisessionFuture' ... done
[18:42:03.731] Created future:
[18:42:03.752] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.753] - Validating connection of MultisessionFuture
[18:42:03.753] - received message: FutureResult
[18:42:03.753] - Received FutureResult
[18:42:03.753] - Erased future from FutureRegistry
[18:42:03.754] result() for ClusterFuture ...
[18:42:03.754] - result already collected: FutureResult
[18:42:03.754] result() for ClusterFuture ... done
[18:42:03.754] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.731] MultisessionFuture:
[18:42:03.731] Label: 'future_vapply-1'
[18:42:03.731] Expression:
[18:42:03.731] {
[18:42:03.731]     do.call(function(...) {
[18:42:03.731]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.731]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.731]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.731]             on.exit(options(oopts), add = TRUE)
[18:42:03.731]         }
[18:42:03.731]         {
[18:42:03.731]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.731]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.731]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.731]             })
[18:42:03.731]         }
[18:42:03.731]     }, args = future.call.arguments)
[18:42:03.731] }
[18:42:03.731] Lazy evaluation: FALSE
[18:42:03.731] Asynchronous evaluation: TRUE
[18:42:03.731] Local evaluation: TRUE
[18:42:03.731] Environment: R_GlobalEnv
[18:42:03.731] Capture standard output: TRUE
[18:42:03.731] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.731] Globals: 11 objects totaling 27.22 KiB (function '...future.FUN' of 14.07 KiB, function 'x_FUN' of 4.67 KiB, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:03.731] Packages: 2 packages ('stats', 'future.apply')
[18:42:03.731] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.731] Resolved: TRUE
[18:42:03.731] Value: <not collected>
[18:42:03.731] Conditions captured: <none>
[18:42:03.731] Early signaling: FALSE
[18:42:03.731] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.731] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.755] Chunk #1 of 2 ... DONE
[18:42:03.755] Chunk #2 of 2 ...
[18:42:03.755]  - Finding globals in 'X' for chunk #2 ...
[18:42:03.755] getGlobalsAndPackages() ...
[18:42:03.755] Searching for globals...
[18:42:03.756] 
[18:42:03.756] Searching for globals ... DONE
[18:42:03.756] - globals: [0] <none>
[18:42:03.757] getGlobalsAndPackages() ... DONE
[18:42:03.757]    + additional globals found: [n=0] 
[18:42:03.757]    + additional namespaces needed: [n=0] 
[18:42:03.757]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:03.758]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.758]  - seeds: <none>
[18:42:03.758]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.759] getGlobalsAndPackages() ...
[18:42:03.759] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.759] Resolving globals: FALSE
[18:42:03.760] Tweak future expression to call with '...' arguments ...
[18:42:03.760] {
[18:42:03.760]     do.call(function(...) {
[18:42:03.760]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.760]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.760]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.760]             on.exit(options(oopts), add = TRUE)
[18:42:03.760]         }
[18:42:03.760]         {
[18:42:03.760]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.760]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.760]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.760]             })
[18:42:03.760]         }
[18:42:03.760]     }, args = future.call.arguments)
[18:42:03.760] }
[18:42:03.761] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.762] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.762] - packages: [2] 'stats', 'future.apply'
[18:42:03.762] getGlobalsAndPackages() ... DONE
[18:42:03.762] run() for 'Future' ...
[18:42:03.763] - state: 'created'
[18:42:03.763] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.779] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.779] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.779]   - Field: 'node'
[18:42:03.780]   - Field: 'label'
[18:42:03.780]   - Field: 'local'
[18:42:03.780]   - Field: 'owner'
[18:42:03.780]   - Field: 'envir'
[18:42:03.780]   - Field: 'workers'
[18:42:03.781]   - Field: 'packages'
[18:42:03.781]   - Field: 'gc'
[18:42:03.781]   - Field: 'conditions'
[18:42:03.781]   - Field: 'persistent'
[18:42:03.781]   - Field: 'expr'
[18:42:03.781]   - Field: 'uuid'
[18:42:03.782]   - Field: 'seed'
[18:42:03.782]   - Field: 'version'
[18:42:03.782]   - Field: 'result'
[18:42:03.782]   - Field: 'asynchronous'
[18:42:03.782]   - Field: 'calls'
[18:42:03.782]   - Field: 'globals'
[18:42:03.783]   - Field: 'stdout'
[18:42:03.783]   - Field: 'earlySignal'
[18:42:03.783]   - Field: 'lazy'
[18:42:03.783]   - Field: 'state'
[18:42:03.783] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.783] - Launch lazy future ...
[18:42:03.784] Packages needed by the future expression (n = 2): 'stats', 'future.apply'
[18:42:03.784] Packages needed by future strategies (n = 0): <none>
[18:42:03.785] {
[18:42:03.785]     {
[18:42:03.785]         {
[18:42:03.785]             ...future.startTime <- base::Sys.time()
[18:42:03.785]             {
[18:42:03.785]                 {
[18:42:03.785]                   {
[18:42:03.785]                     {
[18:42:03.785]                       {
[18:42:03.785]                         base::local({
[18:42:03.785]                           has_future <- base::requireNamespace("future", 
[18:42:03.785]                             quietly = TRUE)
[18:42:03.785]                           if (has_future) {
[18:42:03.785]                             ns <- base::getNamespace("future")
[18:42:03.785]                             version <- ns[[".package"]][["version"]]
[18:42:03.785]                             if (is.null(version)) 
[18:42:03.785]                               version <- utils::packageVersion("future")
[18:42:03.785]                           }
[18:42:03.785]                           else {
[18:42:03.785]                             version <- NULL
[18:42:03.785]                           }
[18:42:03.785]                           if (!has_future || version < "1.8.0") {
[18:42:03.785]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.785]                               "", base::R.version$version.string), 
[18:42:03.785]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:03.785]                                 base::R.version$platform, 8 * 
[18:42:03.785]                                   base::.Machine$sizeof.pointer), 
[18:42:03.785]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.785]                                 "release", "version")], collapse = " "), 
[18:42:03.785]                               hostname = base::Sys.info()[["nodename"]])
[18:42:03.785]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.785]                               info)
[18:42:03.785]                             info <- base::paste(info, collapse = "; ")
[18:42:03.785]                             if (!has_future) {
[18:42:03.785]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.785]                                 info)
[18:42:03.785]                             }
[18:42:03.785]                             else {
[18:42:03.785]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.785]                                 info, version)
[18:42:03.785]                             }
[18:42:03.785]                             base::stop(msg)
[18:42:03.785]                           }
[18:42:03.785]                         })
[18:42:03.785]                       }
[18:42:03.785]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.785]                       base::options(mc.cores = 1L)
[18:42:03.785]                     }
[18:42:03.785]                     base::local({
[18:42:03.785]                       for (pkg in c("stats", "future.apply")) {
[18:42:03.785]                         base::loadNamespace(pkg)
[18:42:03.785]                         base::library(pkg, character.only = TRUE)
[18:42:03.785]                       }
[18:42:03.785]                     })
[18:42:03.785]                   }
[18:42:03.785]                   ...future.strategy.old <- future::plan("list")
[18:42:03.785]                   options(future.plan = NULL)
[18:42:03.785]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.785]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.785]                 }
[18:42:03.785]                 ...future.workdir <- getwd()
[18:42:03.785]             }
[18:42:03.785]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.785]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.785]         }
[18:42:03.785]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.785]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.785]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.785]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.785]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.785]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.785]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.785]             base::names(...future.oldOptions))
[18:42:03.785]     }
[18:42:03.785]     if (FALSE) {
[18:42:03.785]     }
[18:42:03.785]     else {
[18:42:03.785]         if (TRUE) {
[18:42:03.785]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.785]                 open = "w")
[18:42:03.785]         }
[18:42:03.785]         else {
[18:42:03.785]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.785]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.785]         }
[18:42:03.785]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.785]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.785]             base::sink(type = "output", split = FALSE)
[18:42:03.785]             base::close(...future.stdout)
[18:42:03.785]         }, add = TRUE)
[18:42:03.785]     }
[18:42:03.785]     ...future.frame <- base::sys.nframe()
[18:42:03.785]     ...future.conditions <- base::list()
[18:42:03.785]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.785]     if (FALSE) {
[18:42:03.785]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.785]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.785]     }
[18:42:03.785]     ...future.result <- base::tryCatch({
[18:42:03.785]         base::withCallingHandlers({
[18:42:03.785]             ...future.value <- base::withVisible(base::local({
[18:42:03.785]                 ...future.makeSendCondition <- base::local({
[18:42:03.785]                   sendCondition <- NULL
[18:42:03.785]                   function(frame = 1L) {
[18:42:03.785]                     if (is.function(sendCondition)) 
[18:42:03.785]                       return(sendCondition)
[18:42:03.785]                     ns <- getNamespace("parallel")
[18:42:03.785]                     if (exists("sendData", mode = "function", 
[18:42:03.785]                       envir = ns)) {
[18:42:03.785]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.785]                         envir = ns)
[18:42:03.785]                       envir <- sys.frame(frame)
[18:42:03.785]                       master <- NULL
[18:42:03.785]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.785]                         !identical(envir, emptyenv())) {
[18:42:03.785]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.785]                           inherits = FALSE)) {
[18:42:03.785]                           master <- get("master", mode = "list", 
[18:42:03.785]                             envir = envir, inherits = FALSE)
[18:42:03.785]                           if (inherits(master, c("SOCKnode", 
[18:42:03.785]                             "SOCK0node"))) {
[18:42:03.785]                             sendCondition <<- function(cond) {
[18:42:03.785]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.785]                                 success = TRUE)
[18:42:03.785]                               parallel_sendData(master, data)
[18:42:03.785]                             }
[18:42:03.785]                             return(sendCondition)
[18:42:03.785]                           }
[18:42:03.785]                         }
[18:42:03.785]                         frame <- frame + 1L
[18:42:03.785]                         envir <- sys.frame(frame)
[18:42:03.785]                       }
[18:42:03.785]                     }
[18:42:03.785]                     sendCondition <<- function(cond) NULL
[18:42:03.785]                   }
[18:42:03.785]                 })
[18:42:03.785]                 withCallingHandlers({
[18:42:03.785]                   {
[18:42:03.785]                     do.call(function(...) {
[18:42:03.785]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.785]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.785]                         ...future.globals.maxSize)) {
[18:42:03.785]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.785]                         on.exit(options(oopts), add = TRUE)
[18:42:03.785]                       }
[18:42:03.785]                       {
[18:42:03.785]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.785]                           FUN = function(jj) {
[18:42:03.785]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.785]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.785]                           })
[18:42:03.785]                       }
[18:42:03.785]                     }, args = future.call.arguments)
[18:42:03.785]                   }
[18:42:03.785]                 }, immediateCondition = function(cond) {
[18:42:03.785]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.785]                   sendCondition(cond)
[18:42:03.785]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.785]                   {
[18:42:03.785]                     inherits <- base::inherits
[18:42:03.785]                     invokeRestart <- base::invokeRestart
[18:42:03.785]                     is.null <- base::is.null
[18:42:03.785]                     muffled <- FALSE
[18:42:03.785]                     if (inherits(cond, "message")) {
[18:42:03.785]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.785]                       if (muffled) 
[18:42:03.785]                         invokeRestart("muffleMessage")
[18:42:03.785]                     }
[18:42:03.785]                     else if (inherits(cond, "warning")) {
[18:42:03.785]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.785]                       if (muffled) 
[18:42:03.785]                         invokeRestart("muffleWarning")
[18:42:03.785]                     }
[18:42:03.785]                     else if (inherits(cond, "condition")) {
[18:42:03.785]                       if (!is.null(pattern)) {
[18:42:03.785]                         computeRestarts <- base::computeRestarts
[18:42:03.785]                         grepl <- base::grepl
[18:42:03.785]                         restarts <- computeRestarts(cond)
[18:42:03.785]                         for (restart in restarts) {
[18:42:03.785]                           name <- restart$name
[18:42:03.785]                           if (is.null(name)) 
[18:42:03.785]                             next
[18:42:03.785]                           if (!grepl(pattern, name)) 
[18:42:03.785]                             next
[18:42:03.785]                           invokeRestart(restart)
[18:42:03.785]                           muffled <- TRUE
[18:42:03.785]                           break
[18:42:03.785]                         }
[18:42:03.785]                       }
[18:42:03.785]                     }
[18:42:03.785]                     invisible(muffled)
[18:42:03.785]                   }
[18:42:03.785]                   muffleCondition(cond)
[18:42:03.785]                 })
[18:42:03.785]             }))
[18:42:03.785]             future::FutureResult(value = ...future.value$value, 
[18:42:03.785]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.785]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.785]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.785]                     ...future.globalenv.names))
[18:42:03.785]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.785]         }, condition = base::local({
[18:42:03.785]             c <- base::c
[18:42:03.785]             inherits <- base::inherits
[18:42:03.785]             invokeRestart <- base::invokeRestart
[18:42:03.785]             length <- base::length
[18:42:03.785]             list <- base::list
[18:42:03.785]             seq.int <- base::seq.int
[18:42:03.785]             signalCondition <- base::signalCondition
[18:42:03.785]             sys.calls <- base::sys.calls
[18:42:03.785]             `[[` <- base::`[[`
[18:42:03.785]             `+` <- base::`+`
[18:42:03.785]             `<<-` <- base::`<<-`
[18:42:03.785]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.785]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.785]                   3L)]
[18:42:03.785]             }
[18:42:03.785]             function(cond) {
[18:42:03.785]                 is_error <- inherits(cond, "error")
[18:42:03.785]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.785]                   NULL)
[18:42:03.785]                 if (is_error) {
[18:42:03.785]                   sessionInformation <- function() {
[18:42:03.785]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.785]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.785]                       search = base::search(), system = base::Sys.info())
[18:42:03.785]                   }
[18:42:03.785]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.785]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.785]                     cond$call), session = sessionInformation(), 
[18:42:03.785]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.785]                   signalCondition(cond)
[18:42:03.785]                 }
[18:42:03.785]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.785]                 "immediateCondition"))) {
[18:42:03.785]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.785]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.785]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.785]                   if (TRUE && !signal) {
[18:42:03.785]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.785]                     {
[18:42:03.785]                       inherits <- base::inherits
[18:42:03.785]                       invokeRestart <- base::invokeRestart
[18:42:03.785]                       is.null <- base::is.null
[18:42:03.785]                       muffled <- FALSE
[18:42:03.785]                       if (inherits(cond, "message")) {
[18:42:03.785]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.785]                         if (muffled) 
[18:42:03.785]                           invokeRestart("muffleMessage")
[18:42:03.785]                       }
[18:42:03.785]                       else if (inherits(cond, "warning")) {
[18:42:03.785]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.785]                         if (muffled) 
[18:42:03.785]                           invokeRestart("muffleWarning")
[18:42:03.785]                       }
[18:42:03.785]                       else if (inherits(cond, "condition")) {
[18:42:03.785]                         if (!is.null(pattern)) {
[18:42:03.785]                           computeRestarts <- base::computeRestarts
[18:42:03.785]                           grepl <- base::grepl
[18:42:03.785]                           restarts <- computeRestarts(cond)
[18:42:03.785]                           for (restart in restarts) {
[18:42:03.785]                             name <- restart$name
[18:42:03.785]                             if (is.null(name)) 
[18:42:03.785]                               next
[18:42:03.785]                             if (!grepl(pattern, name)) 
[18:42:03.785]                               next
[18:42:03.785]                             invokeRestart(restart)
[18:42:03.785]                             muffled <- TRUE
[18:42:03.785]                             break
[18:42:03.785]                           }
[18:42:03.785]                         }
[18:42:03.785]                       }
[18:42:03.785]                       invisible(muffled)
[18:42:03.785]                     }
[18:42:03.785]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.785]                   }
[18:42:03.785]                 }
[18:42:03.785]                 else {
[18:42:03.785]                   if (TRUE) {
[18:42:03.785]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.785]                     {
[18:42:03.785]                       inherits <- base::inherits
[18:42:03.785]                       invokeRestart <- base::invokeRestart
[18:42:03.785]                       is.null <- base::is.null
[18:42:03.785]                       muffled <- FALSE
[18:42:03.785]                       if (inherits(cond, "message")) {
[18:42:03.785]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.785]                         if (muffled) 
[18:42:03.785]                           invokeRestart("muffleMessage")
[18:42:03.785]                       }
[18:42:03.785]                       else if (inherits(cond, "warning")) {
[18:42:03.785]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.785]                         if (muffled) 
[18:42:03.785]                           invokeRestart("muffleWarning")
[18:42:03.785]                       }
[18:42:03.785]                       else if (inherits(cond, "condition")) {
[18:42:03.785]                         if (!is.null(pattern)) {
[18:42:03.785]                           computeRestarts <- base::computeRestarts
[18:42:03.785]                           grepl <- base::grepl
[18:42:03.785]                           restarts <- computeRestarts(cond)
[18:42:03.785]                           for (restart in restarts) {
[18:42:03.785]                             name <- restart$name
[18:42:03.785]                             if (is.null(name)) 
[18:42:03.785]                               next
[18:42:03.785]                             if (!grepl(pattern, name)) 
[18:42:03.785]                               next
[18:42:03.785]                             invokeRestart(restart)
[18:42:03.785]                             muffled <- TRUE
[18:42:03.785]                             break
[18:42:03.785]                           }
[18:42:03.785]                         }
[18:42:03.785]                       }
[18:42:03.785]                       invisible(muffled)
[18:42:03.785]                     }
[18:42:03.785]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.785]                   }
[18:42:03.785]                 }
[18:42:03.785]             }
[18:42:03.785]         }))
[18:42:03.785]     }, error = function(ex) {
[18:42:03.785]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.785]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.785]                 ...future.rng), started = ...future.startTime, 
[18:42:03.785]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.785]             version = "1.8"), class = "FutureResult")
[18:42:03.785]     }, finally = {
[18:42:03.785]         if (!identical(...future.workdir, getwd())) 
[18:42:03.785]             setwd(...future.workdir)
[18:42:03.785]         {
[18:42:03.785]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.785]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.785]             }
[18:42:03.785]             base::options(...future.oldOptions)
[18:42:03.785]             if (.Platform$OS.type == "windows") {
[18:42:03.785]                 old_names <- names(...future.oldEnvVars)
[18:42:03.785]                 envs <- base::Sys.getenv()
[18:42:03.785]                 names <- names(envs)
[18:42:03.785]                 common <- intersect(names, old_names)
[18:42:03.785]                 added <- setdiff(names, old_names)
[18:42:03.785]                 removed <- setdiff(old_names, names)
[18:42:03.785]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.785]                   envs[common]]
[18:42:03.785]                 NAMES <- toupper(changed)
[18:42:03.785]                 args <- list()
[18:42:03.785]                 for (kk in seq_along(NAMES)) {
[18:42:03.785]                   name <- changed[[kk]]
[18:42:03.785]                   NAME <- NAMES[[kk]]
[18:42:03.785]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.785]                     next
[18:42:03.785]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.785]                 }
[18:42:03.785]                 NAMES <- toupper(added)
[18:42:03.785]                 for (kk in seq_along(NAMES)) {
[18:42:03.785]                   name <- added[[kk]]
[18:42:03.785]                   NAME <- NAMES[[kk]]
[18:42:03.785]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.785]                     next
[18:42:03.785]                   args[[name]] <- ""
[18:42:03.785]                 }
[18:42:03.785]                 NAMES <- toupper(removed)
[18:42:03.785]                 for (kk in seq_along(NAMES)) {
[18:42:03.785]                   name <- removed[[kk]]
[18:42:03.785]                   NAME <- NAMES[[kk]]
[18:42:03.785]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.785]                     next
[18:42:03.785]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.785]                 }
[18:42:03.785]                 if (length(args) > 0) 
[18:42:03.785]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.785]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.785]             }
[18:42:03.785]             else {
[18:42:03.785]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.785]             }
[18:42:03.785]             {
[18:42:03.785]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.785]                   0L) {
[18:42:03.785]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.785]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.785]                   base::options(opts)
[18:42:03.785]                 }
[18:42:03.785]                 {
[18:42:03.785]                   {
[18:42:03.785]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.785]                     NULL
[18:42:03.785]                   }
[18:42:03.785]                   options(future.plan = NULL)
[18:42:03.785]                   if (is.na(NA_character_)) 
[18:42:03.785]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.785]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.785]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.785]                     .init = FALSE)
[18:42:03.785]                 }
[18:42:03.785]             }
[18:42:03.785]         }
[18:42:03.785]     })
[18:42:03.785]     if (TRUE) {
[18:42:03.785]         base::sink(type = "output", split = FALSE)
[18:42:03.785]         if (TRUE) {
[18:42:03.785]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.785]         }
[18:42:03.785]         else {
[18:42:03.785]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.785]         }
[18:42:03.785]         base::close(...future.stdout)
[18:42:03.785]         ...future.stdout <- NULL
[18:42:03.785]     }
[18:42:03.785]     ...future.result$conditions <- ...future.conditions
[18:42:03.785]     ...future.result$finished <- base::Sys.time()
[18:42:03.785]     ...future.result
[18:42:03.785] }
[18:42:03.790] Exporting 11 global objects (26.98 KiB) to cluster node #1 ...
[18:42:03.791] Exporting '...future.FUN' (14.07 KiB) to cluster node #1 ...
[18:42:03.792] Exporting '...future.FUN' (14.07 KiB) to cluster node #1 ... DONE
[18:42:03.792] Exporting 'x_FUN' (4.67 KiB) to cluster node #1 ...
[18:42:03.793] Exporting 'x_FUN' (4.67 KiB) to cluster node #1 ... DONE
[18:42:03.793] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:03.794] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:03.794] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:03.795] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:03.795] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:03.795] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:03.796] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:03.796] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:03.796] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:03.797] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:03.797] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:03.798] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:03.798] Exporting '...future.elements_ii' (293 bytes) to cluster node #1 ...
[18:42:03.798] Exporting '...future.elements_ii' (293 bytes) to cluster node #1 ... DONE
[18:42:03.799] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.799] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.799] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.800] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.800] Exporting 11 global objects (26.98 KiB) to cluster node #1 ... DONE
[18:42:03.801] MultisessionFuture started
[18:42:03.801] - Launch lazy future ... done
[18:42:03.801] run() for 'MultisessionFuture' ... done
[18:42:03.801] Created future:
[18:42:03.872] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.872] - Validating connection of MultisessionFuture
[18:42:03.872] - received message: FutureResult
[18:42:03.873] - Received FutureResult
[18:42:03.873] - Erased future from FutureRegistry
[18:42:03.873] result() for ClusterFuture ...
[18:42:03.873] - result already collected: FutureResult
[18:42:03.873] result() for ClusterFuture ... done
[18:42:03.874] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.802] MultisessionFuture:
[18:42:03.802] Label: 'future_vapply-2'
[18:42:03.802] Expression:
[18:42:03.802] {
[18:42:03.802]     do.call(function(...) {
[18:42:03.802]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.802]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.802]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.802]             on.exit(options(oopts), add = TRUE)
[18:42:03.802]         }
[18:42:03.802]         {
[18:42:03.802]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.802]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.802]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.802]             })
[18:42:03.802]         }
[18:42:03.802]     }, args = future.call.arguments)
[18:42:03.802] }
[18:42:03.802] Lazy evaluation: FALSE
[18:42:03.802] Asynchronous evaluation: TRUE
[18:42:03.802] Local evaluation: TRUE
[18:42:03.802] Environment: R_GlobalEnv
[18:42:03.802] Capture standard output: TRUE
[18:42:03.802] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.802] Globals: 11 objects totaling 27.14 KiB (function '...future.FUN' of 14.07 KiB, function 'x_FUN' of 4.67 KiB, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:03.802] Packages: 2 packages ('stats', 'future.apply')
[18:42:03.802] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.802] Resolved: TRUE
[18:42:03.802] Value: <not collected>
[18:42:03.802] Conditions captured: <none>
[18:42:03.802] Early signaling: FALSE
[18:42:03.802] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.802] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.874] Chunk #2 of 2 ... DONE
[18:42:03.874] Launching 2 futures (chunks) ... DONE
[18:42:03.874] Resolving 2 futures (chunks) ...
[18:42:03.875] resolve() on list ...
[18:42:03.875]  recursive: 0
[18:42:03.875]  length: 2
[18:42:03.875] 
[18:42:03.875] Future #1
[18:42:03.876] result() for ClusterFuture ...
[18:42:03.876] - result already collected: FutureResult
[18:42:03.876] result() for ClusterFuture ... done
[18:42:03.876] result() for ClusterFuture ...
[18:42:03.876] - result already collected: FutureResult
[18:42:03.876] result() for ClusterFuture ... done
[18:42:03.877] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:03.877] - nx: 2
[18:42:03.877] - relay: TRUE
[18:42:03.877] - stdout: TRUE
[18:42:03.877] - signal: TRUE
[18:42:03.877] - resignal: FALSE
[18:42:03.878] - force: TRUE
[18:42:03.878] - relayed: [n=2] FALSE, FALSE
[18:42:03.878] - queued futures: [n=2] FALSE, FALSE
[18:42:03.878]  - until=1
[18:42:03.878]  - relaying element #1
[18:42:03.878] result() for ClusterFuture ...
[18:42:03.879] - result already collected: FutureResult
[18:42:03.879] result() for ClusterFuture ... done
[18:42:03.879] result() for ClusterFuture ...
[18:42:03.879] - result already collected: FutureResult
[18:42:03.879] result() for ClusterFuture ... done
[18:42:03.879] result() for ClusterFuture ...
[18:42:03.880] - result already collected: FutureResult
[18:42:03.880] result() for ClusterFuture ... done
[18:42:03.880] result() for ClusterFuture ...
[18:42:03.880] - result already collected: FutureResult
[18:42:03.880] result() for ClusterFuture ... done
[18:42:03.880] - relayed: [n=2] TRUE, FALSE
[18:42:03.881] - queued futures: [n=2] TRUE, FALSE
[18:42:03.881] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:03.881]  length: 1 (resolved future 1)
[18:42:03.881] Future #2
[18:42:03.881] result() for ClusterFuture ...
[18:42:03.881] - result already collected: FutureResult
[18:42:03.882] result() for ClusterFuture ... done
[18:42:03.882] result() for ClusterFuture ...
[18:42:03.882] - result already collected: FutureResult
[18:42:03.882] result() for ClusterFuture ... done
[18:42:03.882] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:03.882] - nx: 2
[18:42:03.883] - relay: TRUE
[18:42:03.883] - stdout: TRUE
[18:42:03.883] - signal: TRUE
[18:42:03.883] - resignal: FALSE
[18:42:03.883] - force: TRUE
[18:42:03.883] - relayed: [n=2] TRUE, FALSE
[18:42:03.883] - queued futures: [n=2] TRUE, FALSE
[18:42:03.884]  - until=2
[18:42:03.884]  - relaying element #2
[18:42:03.884] result() for ClusterFuture ...
[18:42:03.884] - result already collected: FutureResult
[18:42:03.884] result() for ClusterFuture ... done
[18:42:03.884] result() for ClusterFuture ...
[18:42:03.885] - result already collected: FutureResult
[18:42:03.885] result() for ClusterFuture ... done
[18:42:03.885] result() for ClusterFuture ...
[18:42:03.885] - result already collected: FutureResult
[18:42:03.885] result() for ClusterFuture ... done
[18:42:03.885] result() for ClusterFuture ...
[18:42:03.885] - result already collected: FutureResult
[18:42:03.886] result() for ClusterFuture ... done
[18:42:03.886] - relayed: [n=2] TRUE, TRUE
[18:42:03.886] - queued futures: [n=2] TRUE, TRUE
[18:42:03.886] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:03.886]  length: 0 (resolved future 2)
[18:42:03.886] Relaying remaining futures
[18:42:03.887] signalConditionsASAP(NULL, pos=0) ...
[18:42:03.887] - nx: 2
[18:42:03.887] - relay: TRUE
[18:42:03.887] - stdout: TRUE
[18:42:03.887] - signal: TRUE
[18:42:03.887] - resignal: FALSE
[18:42:03.887] - force: TRUE
[18:42:03.888] - relayed: [n=2] TRUE, TRUE
[18:42:03.888] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:03.888] - relayed: [n=2] TRUE, TRUE
[18:42:03.888] - queued futures: [n=2] TRUE, TRUE
[18:42:03.888] signalConditionsASAP(NULL, pos=0) ... done
[18:42:03.889] resolve() on list ... DONE
[18:42:03.889] result() for ClusterFuture ...
[18:42:03.889] - result already collected: FutureResult
[18:42:03.889] result() for ClusterFuture ... done
[18:42:03.889] result() for ClusterFuture ...
[18:42:03.889] - result already collected: FutureResult
[18:42:03.889] result() for ClusterFuture ... done
[18:42:03.890] result() for ClusterFuture ...
[18:42:03.890] - result already collected: FutureResult
[18:42:03.890] result() for ClusterFuture ... done
[18:42:03.890] result() for ClusterFuture ...
[18:42:03.890] - result already collected: FutureResult
[18:42:03.890] result() for ClusterFuture ... done
[18:42:03.891]  - Number of value chunks collected: 2
[18:42:03.891] Resolving 2 futures (chunks) ... DONE
[18:42:03.891] Reducing values from 2 chunks ...
[18:42:03.891]  - Number of values collected after concatenation: 7
[18:42:03.891]  - Number of values expected: 7
[18:42:03.891] Reducing values from 2 chunks ... DONE
[18:42:03.892] future_lapply() ... DONE
 num [1:5, 1:7] 1 1.5 2 2.5 3 1 1.5 2.5 3.5 4 ...
 - attr(*, "dimnames")=List of 2
  ..$ : chr [1:5] "Min." "1st Qu." "Median" "3rd Qu." ...
  ..$ : NULL
[18:42:03.894] future_lapply() ...
[18:42:03.897] Number of chunks: 2
[18:42:03.897] getGlobalsAndPackagesXApply() ...
[18:42:03.898]  - future.globals: TRUE
[18:42:03.898] getGlobalsAndPackages() ...
[18:42:03.898] Searching for globals...
[18:42:03.900] - globals found: [3] 'FUN', 'outer', 'rep'
[18:42:03.900] Searching for globals ... DONE
[18:42:03.900] Resolving globals: FALSE
[18:42:03.901] The total size of the 1 globals is 680 bytes (680 bytes)
[18:42:03.901] The total size of the 1 globals exported for future expression ('FUN(y = c(2, 4, 6, 8, 10))') is 680 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (680 bytes of class 'function')
[18:42:03.901] - globals: [1] 'FUN'
[18:42:03.901] 
[18:42:03.902] getGlobalsAndPackages() ... DONE
[18:42:03.902]  - globals found/used: [n=1] 'FUN'
[18:42:03.902]  - needed namespaces: [n=0] 
[18:42:03.902] Finding globals ... DONE
[18:42:03.902]  - use_args: TRUE
[18:42:03.902]  - Getting '...' globals ...
[18:42:03.903] resolve() on list ...
[18:42:03.903]  recursive: 0
[18:42:03.903]  length: 1
[18:42:03.903]  elements: '...'
[18:42:03.904]  length: 0 (resolved future 1)
[18:42:03.904] resolve() on list ... DONE
[18:42:03.904]    - '...' content: [n=1] 'y'
[18:42:03.904] List of 1
[18:42:03.904]  $ ...:List of 1
[18:42:03.904]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:03.904]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.904]  - attr(*, "where")=List of 1
[18:42:03.904]   ..$ ...:<environment: 0x000002ea0386cb50> 
[18:42:03.904]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.904]  - attr(*, "resolved")= logi TRUE
[18:42:03.904]  - attr(*, "total_size")= num NA
[18:42:03.908]  - Getting '...' globals ... DONE
[18:42:03.908] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:42:03.908] List of 2
[18:42:03.908]  $ ...future.FUN:function (x, y)  
[18:42:03.908]  $ ...          :List of 1
[18:42:03.908]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:03.908]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:03.908]  - attr(*, "where")=List of 2
[18:42:03.908]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:03.908]   ..$ ...          :<environment: 0x000002ea0386cb50> 
[18:42:03.908]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:03.908]  - attr(*, "resolved")= logi FALSE
[18:42:03.908]  - attr(*, "total_size")= int 7318
[18:42:03.912] Packages to be attached in all futures: [n=0] 
[18:42:03.912] getGlobalsAndPackagesXApply() ... DONE
[18:42:03.912] Number of futures (= number of chunks): 2
[18:42:03.913] Launching 2 futures (chunks) ...
[18:42:03.913] Chunk #1 of 2 ...
[18:42:03.913]  - Finding globals in 'X' for chunk #1 ...
[18:42:03.913] getGlobalsAndPackages() ...
[18:42:03.913] Searching for globals...
[18:42:03.914] 
[18:42:03.914] Searching for globals ... DONE
[18:42:03.914] - globals: [0] <none>
[18:42:03.914] getGlobalsAndPackages() ... DONE
[18:42:03.914]    + additional globals found: [n=0] 
[18:42:03.915]    + additional namespaces needed: [n=0] 
[18:42:03.915]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:03.915]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.915]  - seeds: <none>
[18:42:03.915]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.915] getGlobalsAndPackages() ...
[18:42:03.915] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.916] Resolving globals: FALSE
[18:42:03.916] Tweak future expression to call with '...' arguments ...
[18:42:03.916] {
[18:42:03.916]     do.call(function(...) {
[18:42:03.916]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.916]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.916]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.916]             on.exit(options(oopts), add = TRUE)
[18:42:03.916]         }
[18:42:03.916]         {
[18:42:03.916]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.916]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.916]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.916]             })
[18:42:03.916]         }
[18:42:03.916]     }, args = future.call.arguments)
[18:42:03.916] }
[18:42:03.917] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.917] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.917] 
[18:42:03.917] getGlobalsAndPackages() ... DONE
[18:42:03.918] run() for 'Future' ...
[18:42:03.918] - state: 'created'
[18:42:03.918] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:03.935] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.935] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:03.935]   - Field: 'node'
[18:42:03.935]   - Field: 'label'
[18:42:03.936]   - Field: 'local'
[18:42:03.936]   - Field: 'owner'
[18:42:03.936]   - Field: 'envir'
[18:42:03.936]   - Field: 'workers'
[18:42:03.936]   - Field: 'packages'
[18:42:03.937]   - Field: 'gc'
[18:42:03.937]   - Field: 'conditions'
[18:42:03.937]   - Field: 'persistent'
[18:42:03.947]   - Field: 'expr'
[18:42:03.947]   - Field: 'uuid'
[18:42:03.948]   - Field: 'seed'
[18:42:03.948]   - Field: 'version'
[18:42:03.948]   - Field: 'result'
[18:42:03.948]   - Field: 'asynchronous'
[18:42:03.948]   - Field: 'calls'
[18:42:03.949]   - Field: 'globals'
[18:42:03.949]   - Field: 'stdout'
[18:42:03.949]   - Field: 'earlySignal'
[18:42:03.949]   - Field: 'lazy'
[18:42:03.949]   - Field: 'state'
[18:42:03.950] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:03.950] - Launch lazy future ...
[18:42:03.950] Packages needed by the future expression (n = 0): <none>
[18:42:03.950] Packages needed by future strategies (n = 0): <none>
[18:42:03.951] {
[18:42:03.951]     {
[18:42:03.951]         {
[18:42:03.951]             ...future.startTime <- base::Sys.time()
[18:42:03.951]             {
[18:42:03.951]                 {
[18:42:03.951]                   {
[18:42:03.951]                     {
[18:42:03.951]                       base::local({
[18:42:03.951]                         has_future <- base::requireNamespace("future", 
[18:42:03.951]                           quietly = TRUE)
[18:42:03.951]                         if (has_future) {
[18:42:03.951]                           ns <- base::getNamespace("future")
[18:42:03.951]                           version <- ns[[".package"]][["version"]]
[18:42:03.951]                           if (is.null(version)) 
[18:42:03.951]                             version <- utils::packageVersion("future")
[18:42:03.951]                         }
[18:42:03.951]                         else {
[18:42:03.951]                           version <- NULL
[18:42:03.951]                         }
[18:42:03.951]                         if (!has_future || version < "1.8.0") {
[18:42:03.951]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:03.951]                             "", base::R.version$version.string), 
[18:42:03.951]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:03.951]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:03.951]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:03.951]                               "release", "version")], collapse = " "), 
[18:42:03.951]                             hostname = base::Sys.info()[["nodename"]])
[18:42:03.951]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:03.951]                             info)
[18:42:03.951]                           info <- base::paste(info, collapse = "; ")
[18:42:03.951]                           if (!has_future) {
[18:42:03.951]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:03.951]                               info)
[18:42:03.951]                           }
[18:42:03.951]                           else {
[18:42:03.951]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:03.951]                               info, version)
[18:42:03.951]                           }
[18:42:03.951]                           base::stop(msg)
[18:42:03.951]                         }
[18:42:03.951]                       })
[18:42:03.951]                     }
[18:42:03.951]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:03.951]                     base::options(mc.cores = 1L)
[18:42:03.951]                   }
[18:42:03.951]                   ...future.strategy.old <- future::plan("list")
[18:42:03.951]                   options(future.plan = NULL)
[18:42:03.951]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.951]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:03.951]                 }
[18:42:03.951]                 ...future.workdir <- getwd()
[18:42:03.951]             }
[18:42:03.951]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:03.951]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:03.951]         }
[18:42:03.951]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:03.951]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:03.951]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:03.951]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:03.951]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:03.951]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:03.951]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:03.951]             base::names(...future.oldOptions))
[18:42:03.951]     }
[18:42:03.951]     if (FALSE) {
[18:42:03.951]     }
[18:42:03.951]     else {
[18:42:03.951]         if (TRUE) {
[18:42:03.951]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:03.951]                 open = "w")
[18:42:03.951]         }
[18:42:03.951]         else {
[18:42:03.951]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:03.951]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:03.951]         }
[18:42:03.951]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:03.951]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:03.951]             base::sink(type = "output", split = FALSE)
[18:42:03.951]             base::close(...future.stdout)
[18:42:03.951]         }, add = TRUE)
[18:42:03.951]     }
[18:42:03.951]     ...future.frame <- base::sys.nframe()
[18:42:03.951]     ...future.conditions <- base::list()
[18:42:03.951]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:03.951]     if (FALSE) {
[18:42:03.951]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:03.951]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:03.951]     }
[18:42:03.951]     ...future.result <- base::tryCatch({
[18:42:03.951]         base::withCallingHandlers({
[18:42:03.951]             ...future.value <- base::withVisible(base::local({
[18:42:03.951]                 ...future.makeSendCondition <- base::local({
[18:42:03.951]                   sendCondition <- NULL
[18:42:03.951]                   function(frame = 1L) {
[18:42:03.951]                     if (is.function(sendCondition)) 
[18:42:03.951]                       return(sendCondition)
[18:42:03.951]                     ns <- getNamespace("parallel")
[18:42:03.951]                     if (exists("sendData", mode = "function", 
[18:42:03.951]                       envir = ns)) {
[18:42:03.951]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:03.951]                         envir = ns)
[18:42:03.951]                       envir <- sys.frame(frame)
[18:42:03.951]                       master <- NULL
[18:42:03.951]                       while (!identical(envir, .GlobalEnv) && 
[18:42:03.951]                         !identical(envir, emptyenv())) {
[18:42:03.951]                         if (exists("master", mode = "list", envir = envir, 
[18:42:03.951]                           inherits = FALSE)) {
[18:42:03.951]                           master <- get("master", mode = "list", 
[18:42:03.951]                             envir = envir, inherits = FALSE)
[18:42:03.951]                           if (inherits(master, c("SOCKnode", 
[18:42:03.951]                             "SOCK0node"))) {
[18:42:03.951]                             sendCondition <<- function(cond) {
[18:42:03.951]                               data <- list(type = "VALUE", value = cond, 
[18:42:03.951]                                 success = TRUE)
[18:42:03.951]                               parallel_sendData(master, data)
[18:42:03.951]                             }
[18:42:03.951]                             return(sendCondition)
[18:42:03.951]                           }
[18:42:03.951]                         }
[18:42:03.951]                         frame <- frame + 1L
[18:42:03.951]                         envir <- sys.frame(frame)
[18:42:03.951]                       }
[18:42:03.951]                     }
[18:42:03.951]                     sendCondition <<- function(cond) NULL
[18:42:03.951]                   }
[18:42:03.951]                 })
[18:42:03.951]                 withCallingHandlers({
[18:42:03.951]                   {
[18:42:03.951]                     do.call(function(...) {
[18:42:03.951]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.951]                       if (!identical(...future.globals.maxSize.org, 
[18:42:03.951]                         ...future.globals.maxSize)) {
[18:42:03.951]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.951]                         on.exit(options(oopts), add = TRUE)
[18:42:03.951]                       }
[18:42:03.951]                       {
[18:42:03.951]                         lapply(seq_along(...future.elements_ii), 
[18:42:03.951]                           FUN = function(jj) {
[18:42:03.951]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.951]                             ...future.FUN(...future.X_jj, ...)
[18:42:03.951]                           })
[18:42:03.951]                       }
[18:42:03.951]                     }, args = future.call.arguments)
[18:42:03.951]                   }
[18:42:03.951]                 }, immediateCondition = function(cond) {
[18:42:03.951]                   sendCondition <- ...future.makeSendCondition()
[18:42:03.951]                   sendCondition(cond)
[18:42:03.951]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.951]                   {
[18:42:03.951]                     inherits <- base::inherits
[18:42:03.951]                     invokeRestart <- base::invokeRestart
[18:42:03.951]                     is.null <- base::is.null
[18:42:03.951]                     muffled <- FALSE
[18:42:03.951]                     if (inherits(cond, "message")) {
[18:42:03.951]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:03.951]                       if (muffled) 
[18:42:03.951]                         invokeRestart("muffleMessage")
[18:42:03.951]                     }
[18:42:03.951]                     else if (inherits(cond, "warning")) {
[18:42:03.951]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:03.951]                       if (muffled) 
[18:42:03.951]                         invokeRestart("muffleWarning")
[18:42:03.951]                     }
[18:42:03.951]                     else if (inherits(cond, "condition")) {
[18:42:03.951]                       if (!is.null(pattern)) {
[18:42:03.951]                         computeRestarts <- base::computeRestarts
[18:42:03.951]                         grepl <- base::grepl
[18:42:03.951]                         restarts <- computeRestarts(cond)
[18:42:03.951]                         for (restart in restarts) {
[18:42:03.951]                           name <- restart$name
[18:42:03.951]                           if (is.null(name)) 
[18:42:03.951]                             next
[18:42:03.951]                           if (!grepl(pattern, name)) 
[18:42:03.951]                             next
[18:42:03.951]                           invokeRestart(restart)
[18:42:03.951]                           muffled <- TRUE
[18:42:03.951]                           break
[18:42:03.951]                         }
[18:42:03.951]                       }
[18:42:03.951]                     }
[18:42:03.951]                     invisible(muffled)
[18:42:03.951]                   }
[18:42:03.951]                   muffleCondition(cond)
[18:42:03.951]                 })
[18:42:03.951]             }))
[18:42:03.951]             future::FutureResult(value = ...future.value$value, 
[18:42:03.951]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.951]                   ...future.rng), globalenv = if (FALSE) 
[18:42:03.951]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:03.951]                     ...future.globalenv.names))
[18:42:03.951]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:03.951]         }, condition = base::local({
[18:42:03.951]             c <- base::c
[18:42:03.951]             inherits <- base::inherits
[18:42:03.951]             invokeRestart <- base::invokeRestart
[18:42:03.951]             length <- base::length
[18:42:03.951]             list <- base::list
[18:42:03.951]             seq.int <- base::seq.int
[18:42:03.951]             signalCondition <- base::signalCondition
[18:42:03.951]             sys.calls <- base::sys.calls
[18:42:03.951]             `[[` <- base::`[[`
[18:42:03.951]             `+` <- base::`+`
[18:42:03.951]             `<<-` <- base::`<<-`
[18:42:03.951]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:03.951]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:03.951]                   3L)]
[18:42:03.951]             }
[18:42:03.951]             function(cond) {
[18:42:03.951]                 is_error <- inherits(cond, "error")
[18:42:03.951]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:03.951]                   NULL)
[18:42:03.951]                 if (is_error) {
[18:42:03.951]                   sessionInformation <- function() {
[18:42:03.951]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:03.951]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:03.951]                       search = base::search(), system = base::Sys.info())
[18:42:03.951]                   }
[18:42:03.951]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.951]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:03.951]                     cond$call), session = sessionInformation(), 
[18:42:03.951]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:03.951]                   signalCondition(cond)
[18:42:03.951]                 }
[18:42:03.951]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:03.951]                 "immediateCondition"))) {
[18:42:03.951]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:03.951]                   ...future.conditions[[length(...future.conditions) + 
[18:42:03.951]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:03.951]                   if (TRUE && !signal) {
[18:42:03.951]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.951]                     {
[18:42:03.951]                       inherits <- base::inherits
[18:42:03.951]                       invokeRestart <- base::invokeRestart
[18:42:03.951]                       is.null <- base::is.null
[18:42:03.951]                       muffled <- FALSE
[18:42:03.951]                       if (inherits(cond, "message")) {
[18:42:03.951]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.951]                         if (muffled) 
[18:42:03.951]                           invokeRestart("muffleMessage")
[18:42:03.951]                       }
[18:42:03.951]                       else if (inherits(cond, "warning")) {
[18:42:03.951]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.951]                         if (muffled) 
[18:42:03.951]                           invokeRestart("muffleWarning")
[18:42:03.951]                       }
[18:42:03.951]                       else if (inherits(cond, "condition")) {
[18:42:03.951]                         if (!is.null(pattern)) {
[18:42:03.951]                           computeRestarts <- base::computeRestarts
[18:42:03.951]                           grepl <- base::grepl
[18:42:03.951]                           restarts <- computeRestarts(cond)
[18:42:03.951]                           for (restart in restarts) {
[18:42:03.951]                             name <- restart$name
[18:42:03.951]                             if (is.null(name)) 
[18:42:03.951]                               next
[18:42:03.951]                             if (!grepl(pattern, name)) 
[18:42:03.951]                               next
[18:42:03.951]                             invokeRestart(restart)
[18:42:03.951]                             muffled <- TRUE
[18:42:03.951]                             break
[18:42:03.951]                           }
[18:42:03.951]                         }
[18:42:03.951]                       }
[18:42:03.951]                       invisible(muffled)
[18:42:03.951]                     }
[18:42:03.951]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.951]                   }
[18:42:03.951]                 }
[18:42:03.951]                 else {
[18:42:03.951]                   if (TRUE) {
[18:42:03.951]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:03.951]                     {
[18:42:03.951]                       inherits <- base::inherits
[18:42:03.951]                       invokeRestart <- base::invokeRestart
[18:42:03.951]                       is.null <- base::is.null
[18:42:03.951]                       muffled <- FALSE
[18:42:03.951]                       if (inherits(cond, "message")) {
[18:42:03.951]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:03.951]                         if (muffled) 
[18:42:03.951]                           invokeRestart("muffleMessage")
[18:42:03.951]                       }
[18:42:03.951]                       else if (inherits(cond, "warning")) {
[18:42:03.951]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:03.951]                         if (muffled) 
[18:42:03.951]                           invokeRestart("muffleWarning")
[18:42:03.951]                       }
[18:42:03.951]                       else if (inherits(cond, "condition")) {
[18:42:03.951]                         if (!is.null(pattern)) {
[18:42:03.951]                           computeRestarts <- base::computeRestarts
[18:42:03.951]                           grepl <- base::grepl
[18:42:03.951]                           restarts <- computeRestarts(cond)
[18:42:03.951]                           for (restart in restarts) {
[18:42:03.951]                             name <- restart$name
[18:42:03.951]                             if (is.null(name)) 
[18:42:03.951]                               next
[18:42:03.951]                             if (!grepl(pattern, name)) 
[18:42:03.951]                               next
[18:42:03.951]                             invokeRestart(restart)
[18:42:03.951]                             muffled <- TRUE
[18:42:03.951]                             break
[18:42:03.951]                           }
[18:42:03.951]                         }
[18:42:03.951]                       }
[18:42:03.951]                       invisible(muffled)
[18:42:03.951]                     }
[18:42:03.951]                     muffleCondition(cond, pattern = "^muffle")
[18:42:03.951]                   }
[18:42:03.951]                 }
[18:42:03.951]             }
[18:42:03.951]         }))
[18:42:03.951]     }, error = function(ex) {
[18:42:03.951]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:03.951]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:03.951]                 ...future.rng), started = ...future.startTime, 
[18:42:03.951]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:03.951]             version = "1.8"), class = "FutureResult")
[18:42:03.951]     }, finally = {
[18:42:03.951]         if (!identical(...future.workdir, getwd())) 
[18:42:03.951]             setwd(...future.workdir)
[18:42:03.951]         {
[18:42:03.951]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:03.951]                 ...future.oldOptions$nwarnings <- NULL
[18:42:03.951]             }
[18:42:03.951]             base::options(...future.oldOptions)
[18:42:03.951]             if (.Platform$OS.type == "windows") {
[18:42:03.951]                 old_names <- names(...future.oldEnvVars)
[18:42:03.951]                 envs <- base::Sys.getenv()
[18:42:03.951]                 names <- names(envs)
[18:42:03.951]                 common <- intersect(names, old_names)
[18:42:03.951]                 added <- setdiff(names, old_names)
[18:42:03.951]                 removed <- setdiff(old_names, names)
[18:42:03.951]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:03.951]                   envs[common]]
[18:42:03.951]                 NAMES <- toupper(changed)
[18:42:03.951]                 args <- list()
[18:42:03.951]                 for (kk in seq_along(NAMES)) {
[18:42:03.951]                   name <- changed[[kk]]
[18:42:03.951]                   NAME <- NAMES[[kk]]
[18:42:03.951]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.951]                     next
[18:42:03.951]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.951]                 }
[18:42:03.951]                 NAMES <- toupper(added)
[18:42:03.951]                 for (kk in seq_along(NAMES)) {
[18:42:03.951]                   name <- added[[kk]]
[18:42:03.951]                   NAME <- NAMES[[kk]]
[18:42:03.951]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.951]                     next
[18:42:03.951]                   args[[name]] <- ""
[18:42:03.951]                 }
[18:42:03.951]                 NAMES <- toupper(removed)
[18:42:03.951]                 for (kk in seq_along(NAMES)) {
[18:42:03.951]                   name <- removed[[kk]]
[18:42:03.951]                   NAME <- NAMES[[kk]]
[18:42:03.951]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:03.951]                     next
[18:42:03.951]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:03.951]                 }
[18:42:03.951]                 if (length(args) > 0) 
[18:42:03.951]                   base::do.call(base::Sys.setenv, args = args)
[18:42:03.951]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:03.951]             }
[18:42:03.951]             else {
[18:42:03.951]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:03.951]             }
[18:42:03.951]             {
[18:42:03.951]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:03.951]                   0L) {
[18:42:03.951]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:03.951]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:03.951]                   base::options(opts)
[18:42:03.951]                 }
[18:42:03.951]                 {
[18:42:03.951]                   {
[18:42:03.951]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:03.951]                     NULL
[18:42:03.951]                   }
[18:42:03.951]                   options(future.plan = NULL)
[18:42:03.951]                   if (is.na(NA_character_)) 
[18:42:03.951]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:03.951]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:03.951]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:03.951]                     .init = FALSE)
[18:42:03.951]                 }
[18:42:03.951]             }
[18:42:03.951]         }
[18:42:03.951]     })
[18:42:03.951]     if (TRUE) {
[18:42:03.951]         base::sink(type = "output", split = FALSE)
[18:42:03.951]         if (TRUE) {
[18:42:03.951]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:03.951]         }
[18:42:03.951]         else {
[18:42:03.951]             ...future.result["stdout"] <- base::list(NULL)
[18:42:03.951]         }
[18:42:03.951]         base::close(...future.stdout)
[18:42:03.951]         ...future.stdout <- NULL
[18:42:03.951]     }
[18:42:03.951]     ...future.result$conditions <- ...future.conditions
[18:42:03.951]     ...future.result$finished <- base::Sys.time()
[18:42:03.951]     ...future.result
[18:42:03.951] }
[18:42:03.956] Exporting 5 global objects (1.43 KiB) to cluster node #1 ...
[18:42:03.957] Exporting '...future.FUN' (680 bytes) to cluster node #1 ...
[18:42:03.957] Exporting '...future.FUN' (680 bytes) to cluster node #1 ... DONE
[18:42:03.958] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ...
[18:42:03.958] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ... DONE
[18:42:03.959] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ...
[18:42:03.959] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ... DONE
[18:42:03.960] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:03.960] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:03.961] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:03.961] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:03.961] Exporting 5 global objects (1.43 KiB) to cluster node #1 ... DONE
[18:42:03.962] MultisessionFuture started
[18:42:03.963] - Launch lazy future ... done
[18:42:03.963] run() for 'MultisessionFuture' ... done
[18:42:03.963] Created future:
[18:42:03.985] receiveMessageFromWorker() for ClusterFuture ...
[18:42:03.985] - Validating connection of MultisessionFuture
[18:42:03.986] - received message: FutureResult
[18:42:03.986] - Received FutureResult
[18:42:03.986] - Erased future from FutureRegistry
[18:42:03.986] result() for ClusterFuture ...
[18:42:03.986] - result already collected: FutureResult
[18:42:03.987] result() for ClusterFuture ... done
[18:42:03.987] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:03.964] MultisessionFuture:
[18:42:03.964] Label: 'future_sapply-1'
[18:42:03.964] Expression:
[18:42:03.964] {
[18:42:03.964]     do.call(function(...) {
[18:42:03.964]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.964]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.964]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.964]             on.exit(options(oopts), add = TRUE)
[18:42:03.964]         }
[18:42:03.964]         {
[18:42:03.964]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.964]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.964]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.964]             })
[18:42:03.964]         }
[18:42:03.964]     }, args = future.call.arguments)
[18:42:03.964] }
[18:42:03.964] Lazy evaluation: FALSE
[18:42:03.964] Asynchronous evaluation: TRUE
[18:42:03.964] Local evaluation: TRUE
[18:42:03.964] Environment: R_GlobalEnv
[18:42:03.964] Capture standard output: TRUE
[18:42:03.964] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:03.964] Globals: 5 objects totaling 1.01 KiB (function '...future.FUN' of 680 bytes, DotDotDotList 'future.call.arguments' of 183 bytes, list '...future.elements_ii' of 114 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:42:03.964] Packages: <none>
[18:42:03.964] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:03.964] Resolved: TRUE
[18:42:03.964] Value: <not collected>
[18:42:03.964] Conditions captured: <none>
[18:42:03.964] Early signaling: FALSE
[18:42:03.964] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:03.964] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:03.987] Chunk #1 of 2 ... DONE
[18:42:03.987] Chunk #2 of 2 ...
[18:42:03.988]  - Finding globals in 'X' for chunk #2 ...
[18:42:03.988] getGlobalsAndPackages() ...
[18:42:03.988] Searching for globals...
[18:42:03.988] 
[18:42:03.988] Searching for globals ... DONE
[18:42:03.989] - globals: [0] <none>
[18:42:03.989] getGlobalsAndPackages() ... DONE
[18:42:03.989]    + additional globals found: [n=0] 
[18:42:03.989]    + additional namespaces needed: [n=0] 
[18:42:03.989]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:03.989]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:03.990]  - seeds: <none>
[18:42:03.990]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.990] getGlobalsAndPackages() ...
[18:42:03.990] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.990] Resolving globals: FALSE
[18:42:03.990] Tweak future expression to call with '...' arguments ...
[18:42:03.991] {
[18:42:03.991]     do.call(function(...) {
[18:42:03.991]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:03.991]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:03.991]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:03.991]             on.exit(options(oopts), add = TRUE)
[18:42:03.991]         }
[18:42:03.991]         {
[18:42:03.991]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:03.991]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:03.991]                 ...future.FUN(...future.X_jj, ...)
[18:42:03.991]             })
[18:42:03.991]         }
[18:42:03.991]     }, args = future.call.arguments)
[18:42:03.991] }
[18:42:03.991] Tweak future expression to call with '...' arguments ... DONE
[18:42:03.992] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:03.992] 
[18:42:03.992] getGlobalsAndPackages() ... DONE
[18:42:03.992] run() for 'Future' ...
[18:42:03.992] - state: 'created'
[18:42:03.993] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.008] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.008] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.009]   - Field: 'node'
[18:42:04.009]   - Field: 'label'
[18:42:04.009]   - Field: 'local'
[18:42:04.009]   - Field: 'owner'
[18:42:04.009]   - Field: 'envir'
[18:42:04.010]   - Field: 'workers'
[18:42:04.010]   - Field: 'packages'
[18:42:04.010]   - Field: 'gc'
[18:42:04.010]   - Field: 'conditions'
[18:42:04.010]   - Field: 'persistent'
[18:42:04.010]   - Field: 'expr'
[18:42:04.011]   - Field: 'uuid'
[18:42:04.011]   - Field: 'seed'
[18:42:04.011]   - Field: 'version'
[18:42:04.011]   - Field: 'result'
[18:42:04.011]   - Field: 'asynchronous'
[18:42:04.011]   - Field: 'calls'
[18:42:04.012]   - Field: 'globals'
[18:42:04.012]   - Field: 'stdout'
[18:42:04.012]   - Field: 'earlySignal'
[18:42:04.012]   - Field: 'lazy'
[18:42:04.012]   - Field: 'state'
[18:42:04.012] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.013] - Launch lazy future ...
[18:42:04.013] Packages needed by the future expression (n = 0): <none>
[18:42:04.013] Packages needed by future strategies (n = 0): <none>
[18:42:04.014] {
[18:42:04.014]     {
[18:42:04.014]         {
[18:42:04.014]             ...future.startTime <- base::Sys.time()
[18:42:04.014]             {
[18:42:04.014]                 {
[18:42:04.014]                   {
[18:42:04.014]                     {
[18:42:04.014]                       base::local({
[18:42:04.014]                         has_future <- base::requireNamespace("future", 
[18:42:04.014]                           quietly = TRUE)
[18:42:04.014]                         if (has_future) {
[18:42:04.014]                           ns <- base::getNamespace("future")
[18:42:04.014]                           version <- ns[[".package"]][["version"]]
[18:42:04.014]                           if (is.null(version)) 
[18:42:04.014]                             version <- utils::packageVersion("future")
[18:42:04.014]                         }
[18:42:04.014]                         else {
[18:42:04.014]                           version <- NULL
[18:42:04.014]                         }
[18:42:04.014]                         if (!has_future || version < "1.8.0") {
[18:42:04.014]                           info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.014]                             "", base::R.version$version.string), 
[18:42:04.014]                             platform = base::sprintf("%s (%s-bit)", 
[18:42:04.014]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:42:04.014]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.014]                               "release", "version")], collapse = " "), 
[18:42:04.014]                             hostname = base::Sys.info()[["nodename"]])
[18:42:04.014]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.014]                             info)
[18:42:04.014]                           info <- base::paste(info, collapse = "; ")
[18:42:04.014]                           if (!has_future) {
[18:42:04.014]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.014]                               info)
[18:42:04.014]                           }
[18:42:04.014]                           else {
[18:42:04.014]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.014]                               info, version)
[18:42:04.014]                           }
[18:42:04.014]                           base::stop(msg)
[18:42:04.014]                         }
[18:42:04.014]                       })
[18:42:04.014]                     }
[18:42:04.014]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.014]                     base::options(mc.cores = 1L)
[18:42:04.014]                   }
[18:42:04.014]                   ...future.strategy.old <- future::plan("list")
[18:42:04.014]                   options(future.plan = NULL)
[18:42:04.014]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.014]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.014]                 }
[18:42:04.014]                 ...future.workdir <- getwd()
[18:42:04.014]             }
[18:42:04.014]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.014]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.014]         }
[18:42:04.014]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.014]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.014]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.014]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.014]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.014]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.014]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.014]             base::names(...future.oldOptions))
[18:42:04.014]     }
[18:42:04.014]     if (FALSE) {
[18:42:04.014]     }
[18:42:04.014]     else {
[18:42:04.014]         if (TRUE) {
[18:42:04.014]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.014]                 open = "w")
[18:42:04.014]         }
[18:42:04.014]         else {
[18:42:04.014]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.014]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.014]         }
[18:42:04.014]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.014]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.014]             base::sink(type = "output", split = FALSE)
[18:42:04.014]             base::close(...future.stdout)
[18:42:04.014]         }, add = TRUE)
[18:42:04.014]     }
[18:42:04.014]     ...future.frame <- base::sys.nframe()
[18:42:04.014]     ...future.conditions <- base::list()
[18:42:04.014]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.014]     if (FALSE) {
[18:42:04.014]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.014]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.014]     }
[18:42:04.014]     ...future.result <- base::tryCatch({
[18:42:04.014]         base::withCallingHandlers({
[18:42:04.014]             ...future.value <- base::withVisible(base::local({
[18:42:04.014]                 ...future.makeSendCondition <- base::local({
[18:42:04.014]                   sendCondition <- NULL
[18:42:04.014]                   function(frame = 1L) {
[18:42:04.014]                     if (is.function(sendCondition)) 
[18:42:04.014]                       return(sendCondition)
[18:42:04.014]                     ns <- getNamespace("parallel")
[18:42:04.014]                     if (exists("sendData", mode = "function", 
[18:42:04.014]                       envir = ns)) {
[18:42:04.014]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.014]                         envir = ns)
[18:42:04.014]                       envir <- sys.frame(frame)
[18:42:04.014]                       master <- NULL
[18:42:04.014]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.014]                         !identical(envir, emptyenv())) {
[18:42:04.014]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.014]                           inherits = FALSE)) {
[18:42:04.014]                           master <- get("master", mode = "list", 
[18:42:04.014]                             envir = envir, inherits = FALSE)
[18:42:04.014]                           if (inherits(master, c("SOCKnode", 
[18:42:04.014]                             "SOCK0node"))) {
[18:42:04.014]                             sendCondition <<- function(cond) {
[18:42:04.014]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.014]                                 success = TRUE)
[18:42:04.014]                               parallel_sendData(master, data)
[18:42:04.014]                             }
[18:42:04.014]                             return(sendCondition)
[18:42:04.014]                           }
[18:42:04.014]                         }
[18:42:04.014]                         frame <- frame + 1L
[18:42:04.014]                         envir <- sys.frame(frame)
[18:42:04.014]                       }
[18:42:04.014]                     }
[18:42:04.014]                     sendCondition <<- function(cond) NULL
[18:42:04.014]                   }
[18:42:04.014]                 })
[18:42:04.014]                 withCallingHandlers({
[18:42:04.014]                   {
[18:42:04.014]                     do.call(function(...) {
[18:42:04.014]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.014]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.014]                         ...future.globals.maxSize)) {
[18:42:04.014]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.014]                         on.exit(options(oopts), add = TRUE)
[18:42:04.014]                       }
[18:42:04.014]                       {
[18:42:04.014]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.014]                           FUN = function(jj) {
[18:42:04.014]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.014]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.014]                           })
[18:42:04.014]                       }
[18:42:04.014]                     }, args = future.call.arguments)
[18:42:04.014]                   }
[18:42:04.014]                 }, immediateCondition = function(cond) {
[18:42:04.014]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.014]                   sendCondition(cond)
[18:42:04.014]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.014]                   {
[18:42:04.014]                     inherits <- base::inherits
[18:42:04.014]                     invokeRestart <- base::invokeRestart
[18:42:04.014]                     is.null <- base::is.null
[18:42:04.014]                     muffled <- FALSE
[18:42:04.014]                     if (inherits(cond, "message")) {
[18:42:04.014]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.014]                       if (muffled) 
[18:42:04.014]                         invokeRestart("muffleMessage")
[18:42:04.014]                     }
[18:42:04.014]                     else if (inherits(cond, "warning")) {
[18:42:04.014]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.014]                       if (muffled) 
[18:42:04.014]                         invokeRestart("muffleWarning")
[18:42:04.014]                     }
[18:42:04.014]                     else if (inherits(cond, "condition")) {
[18:42:04.014]                       if (!is.null(pattern)) {
[18:42:04.014]                         computeRestarts <- base::computeRestarts
[18:42:04.014]                         grepl <- base::grepl
[18:42:04.014]                         restarts <- computeRestarts(cond)
[18:42:04.014]                         for (restart in restarts) {
[18:42:04.014]                           name <- restart$name
[18:42:04.014]                           if (is.null(name)) 
[18:42:04.014]                             next
[18:42:04.014]                           if (!grepl(pattern, name)) 
[18:42:04.014]                             next
[18:42:04.014]                           invokeRestart(restart)
[18:42:04.014]                           muffled <- TRUE
[18:42:04.014]                           break
[18:42:04.014]                         }
[18:42:04.014]                       }
[18:42:04.014]                     }
[18:42:04.014]                     invisible(muffled)
[18:42:04.014]                   }
[18:42:04.014]                   muffleCondition(cond)
[18:42:04.014]                 })
[18:42:04.014]             }))
[18:42:04.014]             future::FutureResult(value = ...future.value$value, 
[18:42:04.014]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.014]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.014]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.014]                     ...future.globalenv.names))
[18:42:04.014]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.014]         }, condition = base::local({
[18:42:04.014]             c <- base::c
[18:42:04.014]             inherits <- base::inherits
[18:42:04.014]             invokeRestart <- base::invokeRestart
[18:42:04.014]             length <- base::length
[18:42:04.014]             list <- base::list
[18:42:04.014]             seq.int <- base::seq.int
[18:42:04.014]             signalCondition <- base::signalCondition
[18:42:04.014]             sys.calls <- base::sys.calls
[18:42:04.014]             `[[` <- base::`[[`
[18:42:04.014]             `+` <- base::`+`
[18:42:04.014]             `<<-` <- base::`<<-`
[18:42:04.014]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.014]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.014]                   3L)]
[18:42:04.014]             }
[18:42:04.014]             function(cond) {
[18:42:04.014]                 is_error <- inherits(cond, "error")
[18:42:04.014]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.014]                   NULL)
[18:42:04.014]                 if (is_error) {
[18:42:04.014]                   sessionInformation <- function() {
[18:42:04.014]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.014]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.014]                       search = base::search(), system = base::Sys.info())
[18:42:04.014]                   }
[18:42:04.014]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.014]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.014]                     cond$call), session = sessionInformation(), 
[18:42:04.014]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.014]                   signalCondition(cond)
[18:42:04.014]                 }
[18:42:04.014]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.014]                 "immediateCondition"))) {
[18:42:04.014]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.014]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.014]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.014]                   if (TRUE && !signal) {
[18:42:04.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.014]                     {
[18:42:04.014]                       inherits <- base::inherits
[18:42:04.014]                       invokeRestart <- base::invokeRestart
[18:42:04.014]                       is.null <- base::is.null
[18:42:04.014]                       muffled <- FALSE
[18:42:04.014]                       if (inherits(cond, "message")) {
[18:42:04.014]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.014]                         if (muffled) 
[18:42:04.014]                           invokeRestart("muffleMessage")
[18:42:04.014]                       }
[18:42:04.014]                       else if (inherits(cond, "warning")) {
[18:42:04.014]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.014]                         if (muffled) 
[18:42:04.014]                           invokeRestart("muffleWarning")
[18:42:04.014]                       }
[18:42:04.014]                       else if (inherits(cond, "condition")) {
[18:42:04.014]                         if (!is.null(pattern)) {
[18:42:04.014]                           computeRestarts <- base::computeRestarts
[18:42:04.014]                           grepl <- base::grepl
[18:42:04.014]                           restarts <- computeRestarts(cond)
[18:42:04.014]                           for (restart in restarts) {
[18:42:04.014]                             name <- restart$name
[18:42:04.014]                             if (is.null(name)) 
[18:42:04.014]                               next
[18:42:04.014]                             if (!grepl(pattern, name)) 
[18:42:04.014]                               next
[18:42:04.014]                             invokeRestart(restart)
[18:42:04.014]                             muffled <- TRUE
[18:42:04.014]                             break
[18:42:04.014]                           }
[18:42:04.014]                         }
[18:42:04.014]                       }
[18:42:04.014]                       invisible(muffled)
[18:42:04.014]                     }
[18:42:04.014]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.014]                   }
[18:42:04.014]                 }
[18:42:04.014]                 else {
[18:42:04.014]                   if (TRUE) {
[18:42:04.014]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.014]                     {
[18:42:04.014]                       inherits <- base::inherits
[18:42:04.014]                       invokeRestart <- base::invokeRestart
[18:42:04.014]                       is.null <- base::is.null
[18:42:04.014]                       muffled <- FALSE
[18:42:04.014]                       if (inherits(cond, "message")) {
[18:42:04.014]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.014]                         if (muffled) 
[18:42:04.014]                           invokeRestart("muffleMessage")
[18:42:04.014]                       }
[18:42:04.014]                       else if (inherits(cond, "warning")) {
[18:42:04.014]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.014]                         if (muffled) 
[18:42:04.014]                           invokeRestart("muffleWarning")
[18:42:04.014]                       }
[18:42:04.014]                       else if (inherits(cond, "condition")) {
[18:42:04.014]                         if (!is.null(pattern)) {
[18:42:04.014]                           computeRestarts <- base::computeRestarts
[18:42:04.014]                           grepl <- base::grepl
[18:42:04.014]                           restarts <- computeRestarts(cond)
[18:42:04.014]                           for (restart in restarts) {
[18:42:04.014]                             name <- restart$name
[18:42:04.014]                             if (is.null(name)) 
[18:42:04.014]                               next
[18:42:04.014]                             if (!grepl(pattern, name)) 
[18:42:04.014]                               next
[18:42:04.014]                             invokeRestart(restart)
[18:42:04.014]                             muffled <- TRUE
[18:42:04.014]                             break
[18:42:04.014]                           }
[18:42:04.014]                         }
[18:42:04.014]                       }
[18:42:04.014]                       invisible(muffled)
[18:42:04.014]                     }
[18:42:04.014]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.014]                   }
[18:42:04.014]                 }
[18:42:04.014]             }
[18:42:04.014]         }))
[18:42:04.014]     }, error = function(ex) {
[18:42:04.014]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.014]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.014]                 ...future.rng), started = ...future.startTime, 
[18:42:04.014]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.014]             version = "1.8"), class = "FutureResult")
[18:42:04.014]     }, finally = {
[18:42:04.014]         if (!identical(...future.workdir, getwd())) 
[18:42:04.014]             setwd(...future.workdir)
[18:42:04.014]         {
[18:42:04.014]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.014]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.014]             }
[18:42:04.014]             base::options(...future.oldOptions)
[18:42:04.014]             if (.Platform$OS.type == "windows") {
[18:42:04.014]                 old_names <- names(...future.oldEnvVars)
[18:42:04.014]                 envs <- base::Sys.getenv()
[18:42:04.014]                 names <- names(envs)
[18:42:04.014]                 common <- intersect(names, old_names)
[18:42:04.014]                 added <- setdiff(names, old_names)
[18:42:04.014]                 removed <- setdiff(old_names, names)
[18:42:04.014]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.014]                   envs[common]]
[18:42:04.014]                 NAMES <- toupper(changed)
[18:42:04.014]                 args <- list()
[18:42:04.014]                 for (kk in seq_along(NAMES)) {
[18:42:04.014]                   name <- changed[[kk]]
[18:42:04.014]                   NAME <- NAMES[[kk]]
[18:42:04.014]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.014]                     next
[18:42:04.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.014]                 }
[18:42:04.014]                 NAMES <- toupper(added)
[18:42:04.014]                 for (kk in seq_along(NAMES)) {
[18:42:04.014]                   name <- added[[kk]]
[18:42:04.014]                   NAME <- NAMES[[kk]]
[18:42:04.014]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.014]                     next
[18:42:04.014]                   args[[name]] <- ""
[18:42:04.014]                 }
[18:42:04.014]                 NAMES <- toupper(removed)
[18:42:04.014]                 for (kk in seq_along(NAMES)) {
[18:42:04.014]                   name <- removed[[kk]]
[18:42:04.014]                   NAME <- NAMES[[kk]]
[18:42:04.014]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.014]                     next
[18:42:04.014]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.014]                 }
[18:42:04.014]                 if (length(args) > 0) 
[18:42:04.014]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.014]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.014]             }
[18:42:04.014]             else {
[18:42:04.014]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.014]             }
[18:42:04.014]             {
[18:42:04.014]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.014]                   0L) {
[18:42:04.014]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.014]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.014]                   base::options(opts)
[18:42:04.014]                 }
[18:42:04.014]                 {
[18:42:04.014]                   {
[18:42:04.014]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.014]                     NULL
[18:42:04.014]                   }
[18:42:04.014]                   options(future.plan = NULL)
[18:42:04.014]                   if (is.na(NA_character_)) 
[18:42:04.014]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.014]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.014]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.014]                     .init = FALSE)
[18:42:04.014]                 }
[18:42:04.014]             }
[18:42:04.014]         }
[18:42:04.014]     })
[18:42:04.014]     if (TRUE) {
[18:42:04.014]         base::sink(type = "output", split = FALSE)
[18:42:04.014]         if (TRUE) {
[18:42:04.014]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.014]         }
[18:42:04.014]         else {
[18:42:04.014]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.014]         }
[18:42:04.014]         base::close(...future.stdout)
[18:42:04.014]         ...future.stdout <- NULL
[18:42:04.014]     }
[18:42:04.014]     ...future.result$conditions <- ...future.conditions
[18:42:04.014]     ...future.result$finished <- base::Sys.time()
[18:42:04.014]     ...future.result
[18:42:04.014] }
[18:42:04.019] Exporting 5 global objects (1.43 KiB) to cluster node #1 ...
[18:42:04.019] Exporting '...future.FUN' (680 bytes) to cluster node #1 ...
[18:42:04.020] Exporting '...future.FUN' (680 bytes) to cluster node #1 ... DONE
[18:42:04.020] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ...
[18:42:04.021] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ... DONE
[18:42:04.021] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ...
[18:42:04.022] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ... DONE
[18:42:04.022] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.023] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.023] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.024] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.024] Exporting 5 global objects (1.43 KiB) to cluster node #1 ... DONE
[18:42:04.025] MultisessionFuture started
[18:42:04.025] - Launch lazy future ... done
[18:42:04.026] run() for 'MultisessionFuture' ... done
[18:42:04.026] Created future:
[18:42:04.043] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.043] - Validating connection of MultisessionFuture
[18:42:04.044] - received message: FutureResult
[18:42:04.044] - Received FutureResult
[18:42:04.044] - Erased future from FutureRegistry
[18:42:04.044] result() for ClusterFuture ...
[18:42:04.044] - result already collected: FutureResult
[18:42:04.045] result() for ClusterFuture ... done
[18:42:04.045] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.026] MultisessionFuture:
[18:42:04.026] Label: 'future_sapply-2'
[18:42:04.026] Expression:
[18:42:04.026] {
[18:42:04.026]     do.call(function(...) {
[18:42:04.026]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.026]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.026]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.026]             on.exit(options(oopts), add = TRUE)
[18:42:04.026]         }
[18:42:04.026]         {
[18:42:04.026]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.026]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.026]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.026]             })
[18:42:04.026]         }
[18:42:04.026]     }, args = future.call.arguments)
[18:42:04.026] }
[18:42:04.026] Lazy evaluation: FALSE
[18:42:04.026] Asynchronous evaluation: TRUE
[18:42:04.026] Local evaluation: TRUE
[18:42:04.026] Environment: R_GlobalEnv
[18:42:04.026] Capture standard output: TRUE
[18:42:04.026] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.026] Globals: 5 objects totaling 1.01 KiB (function '...future.FUN' of 680 bytes, DotDotDotList 'future.call.arguments' of 183 bytes, list '...future.elements_ii' of 114 bytes, NULL '...future.seeds_ii' of 27 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:42:04.026] Packages: <none>
[18:42:04.026] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.026] Resolved: TRUE
[18:42:04.026] Value: <not collected>
[18:42:04.026] Conditions captured: <none>
[18:42:04.026] Early signaling: FALSE
[18:42:04.026] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.026] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.045] Chunk #2 of 2 ... DONE
[18:42:04.045] Launching 2 futures (chunks) ... DONE
[18:42:04.045] Resolving 2 futures (chunks) ...
[18:42:04.046] resolve() on list ...
[18:42:04.046]  recursive: 0
[18:42:04.046]  length: 2
[18:42:04.046] 
[18:42:04.046] Future #1
[18:42:04.046] result() for ClusterFuture ...
[18:42:04.047] - result already collected: FutureResult
[18:42:04.047] result() for ClusterFuture ... done
[18:42:04.047] result() for ClusterFuture ...
[18:42:04.047] - result already collected: FutureResult
[18:42:04.047] result() for ClusterFuture ... done
[18:42:04.047] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:04.048] - nx: 2
[18:42:04.048] - relay: TRUE
[18:42:04.048] - stdout: TRUE
[18:42:04.048] - signal: TRUE
[18:42:04.048] - resignal: FALSE
[18:42:04.048] - force: TRUE
[18:42:04.048] - relayed: [n=2] FALSE, FALSE
[18:42:04.049] - queued futures: [n=2] FALSE, FALSE
[18:42:04.049]  - until=1
[18:42:04.049]  - relaying element #1
[18:42:04.049] result() for ClusterFuture ...
[18:42:04.049] - result already collected: FutureResult
[18:42:04.049] result() for ClusterFuture ... done
[18:42:04.050] result() for ClusterFuture ...
[18:42:04.050] - result already collected: FutureResult
[18:42:04.050] result() for ClusterFuture ... done
[18:42:04.050] result() for ClusterFuture ...
[18:42:04.050] - result already collected: FutureResult
[18:42:04.050] result() for ClusterFuture ... done
[18:42:04.051] result() for ClusterFuture ...
[18:42:04.051] - result already collected: FutureResult
[18:42:04.051] result() for ClusterFuture ... done
[18:42:04.051] - relayed: [n=2] TRUE, FALSE
[18:42:04.051] - queued futures: [n=2] TRUE, FALSE
[18:42:04.051] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:04.052]  length: 1 (resolved future 1)
[18:42:04.052] Future #2
[18:42:04.052] result() for ClusterFuture ...
[18:42:04.052] - result already collected: FutureResult
[18:42:04.052] result() for ClusterFuture ... done
[18:42:04.052] result() for ClusterFuture ...
[18:42:04.053] - result already collected: FutureResult
[18:42:04.053] result() for ClusterFuture ... done
[18:42:04.053] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:04.053] - nx: 2
[18:42:04.053] - relay: TRUE
[18:42:04.053] - stdout: TRUE
[18:42:04.054] - signal: TRUE
[18:42:04.054] - resignal: FALSE
[18:42:04.054] - force: TRUE
[18:42:04.054] - relayed: [n=2] TRUE, FALSE
[18:42:04.054] - queued futures: [n=2] TRUE, FALSE
[18:42:04.054]  - until=2
[18:42:04.055]  - relaying element #2
[18:42:04.055] result() for ClusterFuture ...
[18:42:04.055] - result already collected: FutureResult
[18:42:04.055] result() for ClusterFuture ... done
[18:42:04.055] result() for ClusterFuture ...
[18:42:04.055] - result already collected: FutureResult
[18:42:04.055] result() for ClusterFuture ... done
[18:42:04.056] result() for ClusterFuture ...
[18:42:04.056] - result already collected: FutureResult
[18:42:04.056] result() for ClusterFuture ... done
[18:42:04.056] result() for ClusterFuture ...
[18:42:04.056] - result already collected: FutureResult
[18:42:04.056] result() for ClusterFuture ... done
[18:42:04.057] - relayed: [n=2] TRUE, TRUE
[18:42:04.057] - queued futures: [n=2] TRUE, TRUE
[18:42:04.057] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:04.057]  length: 0 (resolved future 2)
[18:42:04.057] Relaying remaining futures
[18:42:04.057] signalConditionsASAP(NULL, pos=0) ...
[18:42:04.058] - nx: 2
[18:42:04.058] - relay: TRUE
[18:42:04.058] - stdout: TRUE
[18:42:04.058] - signal: TRUE
[18:42:04.058] - resignal: FALSE
[18:42:04.058] - force: TRUE
[18:42:04.059] - relayed: [n=2] TRUE, TRUE
[18:42:04.059] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:04.059] - relayed: [n=2] TRUE, TRUE
[18:42:04.059] - queued futures: [n=2] TRUE, TRUE
[18:42:04.059] signalConditionsASAP(NULL, pos=0) ... done
[18:42:04.059] resolve() on list ... DONE
[18:42:04.060] result() for ClusterFuture ...
[18:42:04.060] - result already collected: FutureResult
[18:42:04.060] result() for ClusterFuture ... done
[18:42:04.060] result() for ClusterFuture ...
[18:42:04.060] - result already collected: FutureResult
[18:42:04.060] result() for ClusterFuture ... done
[18:42:04.061] result() for ClusterFuture ...
[18:42:04.061] - result already collected: FutureResult
[18:42:04.061] result() for ClusterFuture ... done
[18:42:04.061] result() for ClusterFuture ...
[18:42:04.061] - result already collected: FutureResult
[18:42:04.061] result() for ClusterFuture ... done
[18:42:04.062]  - Number of value chunks collected: 2
[18:42:04.062] Resolving 2 futures (chunks) ... DONE
[18:42:04.062] Reducing values from 2 chunks ...
[18:42:04.062]  - Number of values collected after concatenation: 4
[18:42:04.062]  - Number of values expected: 4
[18:42:04.062] Reducing values from 2 chunks ... DONE
[18:42:04.063] future_lapply() ... DONE
[18:42:04.063] future_lapply() ...
[18:42:04.068] Number of chunks: 2
[18:42:04.068] getGlobalsAndPackagesXApply() ...
[18:42:04.069]  - future.globals: TRUE
[18:42:04.069] getGlobalsAndPackages() ...
[18:42:04.069] Searching for globals...
[18:42:04.076] - globals found: [18] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types', 'outer', 'rep'
[18:42:04.076] Searching for globals ... DONE
[18:42:04.076] Resolving globals: FALSE
[18:42:04.078] The total size of the 7 globals is 14.32 KiB (14666 bytes)
[18:42:04.078] The total size of the 7 globals exported for future expression ('FUN(y = c(2, 4, 6, 8, 10))') is 14.32 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (5.67 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:04.079] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.079] - packages: [1] 'future.apply'
[18:42:04.079] getGlobalsAndPackages() ... DONE
[18:42:04.079]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.080]  - needed namespaces: [n=1] 'future.apply'
[18:42:04.080] Finding globals ... DONE
[18:42:04.080]  - use_args: TRUE
[18:42:04.080]  - Getting '...' globals ...
[18:42:04.081] resolve() on list ...
[18:42:04.081]  recursive: 0
[18:42:04.081]  length: 1
[18:42:04.081]  elements: '...'
[18:42:04.081]  length: 0 (resolved future 1)
[18:42:04.082] resolve() on list ... DONE
[18:42:04.082]    - '...' content: [n=1] 'y'
[18:42:04.082] List of 1
[18:42:04.082]  $ ...:List of 1
[18:42:04.082]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:04.082]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.082]  - attr(*, "where")=List of 1
[18:42:04.082]   ..$ ...:<environment: 0x000002ea0667eb88> 
[18:42:04.082]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.082]  - attr(*, "resolved")= logi TRUE
[18:42:04.082]  - attr(*, "total_size")= num NA
[18:42:04.087]  - Getting '...' globals ... DONE
[18:42:04.087] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:04.088] List of 8
[18:42:04.088]  $ ...future.FUN:function (x, ...)  
[18:42:04.088]  $ x_FUN        :function (x, y)  
[18:42:04.088]  $ times        : int 15
[18:42:04.088]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:04.088]  $ stop_if_not  :function (...)  
[18:42:04.088]  $ dim          : int [1:2] 3 5
[18:42:04.088]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:04.088]  $ ...          :List of 1
[18:42:04.088]   ..$ y: num [1:5] 2 4 6 8 10
[18:42:04.088]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.088]  - attr(*, "where")=List of 8
[18:42:04.088]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:04.088]   ..$ ...          :<environment: 0x000002ea0667eb88> 
[18:42:04.088]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.088]  - attr(*, "resolved")= logi FALSE
[18:42:04.088]  - attr(*, "total_size")= int 26659
[18:42:04.096] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:04.096] getGlobalsAndPackagesXApply() ... DONE
[18:42:04.096] Number of futures (= number of chunks): 2
[18:42:04.096] Launching 2 futures (chunks) ...
[18:42:04.096] Chunk #1 of 2 ...
[18:42:04.097]  - Finding globals in 'X' for chunk #1 ...
[18:42:04.097] getGlobalsAndPackages() ...
[18:42:04.097] Searching for globals...
[18:42:04.097] 
[18:42:04.097] Searching for globals ... DONE
[18:42:04.098] - globals: [0] <none>
[18:42:04.098] getGlobalsAndPackages() ... DONE
[18:42:04.098]    + additional globals found: [n=0] 
[18:42:04.098]    + additional namespaces needed: [n=0] 
[18:42:04.098]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:04.098]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.099]  - seeds: <none>
[18:42:04.099]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.099] getGlobalsAndPackages() ...
[18:42:04.099] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.099] Resolving globals: FALSE
[18:42:04.100] Tweak future expression to call with '...' arguments ...
[18:42:04.100] {
[18:42:04.100]     do.call(function(...) {
[18:42:04.100]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.100]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.100]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.100]             on.exit(options(oopts), add = TRUE)
[18:42:04.100]         }
[18:42:04.100]         {
[18:42:04.100]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.100]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.100]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.100]             })
[18:42:04.100]         }
[18:42:04.100]     }, args = future.call.arguments)
[18:42:04.100] }
[18:42:04.100] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.101] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.101] - packages: [1] 'future.apply'
[18:42:04.101] getGlobalsAndPackages() ... DONE
[18:42:04.102] run() for 'Future' ...
[18:42:04.102] - state: 'created'
[18:42:04.102] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.117] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.117] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.118]   - Field: 'node'
[18:42:04.118]   - Field: 'label'
[18:42:04.118]   - Field: 'local'
[18:42:04.118]   - Field: 'owner'
[18:42:04.118]   - Field: 'envir'
[18:42:04.119]   - Field: 'workers'
[18:42:04.119]   - Field: 'packages'
[18:42:04.119]   - Field: 'gc'
[18:42:04.119]   - Field: 'conditions'
[18:42:04.119]   - Field: 'persistent'
[18:42:04.119]   - Field: 'expr'
[18:42:04.120]   - Field: 'uuid'
[18:42:04.120]   - Field: 'seed'
[18:42:04.120]   - Field: 'version'
[18:42:04.120]   - Field: 'result'
[18:42:04.120]   - Field: 'asynchronous'
[18:42:04.121]   - Field: 'calls'
[18:42:04.121]   - Field: 'globals'
[18:42:04.121]   - Field: 'stdout'
[18:42:04.121]   - Field: 'earlySignal'
[18:42:04.121]   - Field: 'lazy'
[18:42:04.121]   - Field: 'state'
[18:42:04.122] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.122] - Launch lazy future ...
[18:42:04.122] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.122] Packages needed by future strategies (n = 0): <none>
[18:42:04.123] {
[18:42:04.123]     {
[18:42:04.123]         {
[18:42:04.123]             ...future.startTime <- base::Sys.time()
[18:42:04.123]             {
[18:42:04.123]                 {
[18:42:04.123]                   {
[18:42:04.123]                     {
[18:42:04.123]                       {
[18:42:04.123]                         base::local({
[18:42:04.123]                           has_future <- base::requireNamespace("future", 
[18:42:04.123]                             quietly = TRUE)
[18:42:04.123]                           if (has_future) {
[18:42:04.123]                             ns <- base::getNamespace("future")
[18:42:04.123]                             version <- ns[[".package"]][["version"]]
[18:42:04.123]                             if (is.null(version)) 
[18:42:04.123]                               version <- utils::packageVersion("future")
[18:42:04.123]                           }
[18:42:04.123]                           else {
[18:42:04.123]                             version <- NULL
[18:42:04.123]                           }
[18:42:04.123]                           if (!has_future || version < "1.8.0") {
[18:42:04.123]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.123]                               "", base::R.version$version.string), 
[18:42:04.123]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.123]                                 base::R.version$platform, 8 * 
[18:42:04.123]                                   base::.Machine$sizeof.pointer), 
[18:42:04.123]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.123]                                 "release", "version")], collapse = " "), 
[18:42:04.123]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.123]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.123]                               info)
[18:42:04.123]                             info <- base::paste(info, collapse = "; ")
[18:42:04.123]                             if (!has_future) {
[18:42:04.123]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.123]                                 info)
[18:42:04.123]                             }
[18:42:04.123]                             else {
[18:42:04.123]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.123]                                 info, version)
[18:42:04.123]                             }
[18:42:04.123]                             base::stop(msg)
[18:42:04.123]                           }
[18:42:04.123]                         })
[18:42:04.123]                       }
[18:42:04.123]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.123]                       base::options(mc.cores = 1L)
[18:42:04.123]                     }
[18:42:04.123]                     base::local({
[18:42:04.123]                       for (pkg in "future.apply") {
[18:42:04.123]                         base::loadNamespace(pkg)
[18:42:04.123]                         base::library(pkg, character.only = TRUE)
[18:42:04.123]                       }
[18:42:04.123]                     })
[18:42:04.123]                   }
[18:42:04.123]                   ...future.strategy.old <- future::plan("list")
[18:42:04.123]                   options(future.plan = NULL)
[18:42:04.123]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.123]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.123]                 }
[18:42:04.123]                 ...future.workdir <- getwd()
[18:42:04.123]             }
[18:42:04.123]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.123]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.123]         }
[18:42:04.123]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.123]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.123]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.123]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.123]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.123]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.123]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.123]             base::names(...future.oldOptions))
[18:42:04.123]     }
[18:42:04.123]     if (FALSE) {
[18:42:04.123]     }
[18:42:04.123]     else {
[18:42:04.123]         if (TRUE) {
[18:42:04.123]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.123]                 open = "w")
[18:42:04.123]         }
[18:42:04.123]         else {
[18:42:04.123]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.123]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.123]         }
[18:42:04.123]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.123]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.123]             base::sink(type = "output", split = FALSE)
[18:42:04.123]             base::close(...future.stdout)
[18:42:04.123]         }, add = TRUE)
[18:42:04.123]     }
[18:42:04.123]     ...future.frame <- base::sys.nframe()
[18:42:04.123]     ...future.conditions <- base::list()
[18:42:04.123]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.123]     if (FALSE) {
[18:42:04.123]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.123]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.123]     }
[18:42:04.123]     ...future.result <- base::tryCatch({
[18:42:04.123]         base::withCallingHandlers({
[18:42:04.123]             ...future.value <- base::withVisible(base::local({
[18:42:04.123]                 ...future.makeSendCondition <- base::local({
[18:42:04.123]                   sendCondition <- NULL
[18:42:04.123]                   function(frame = 1L) {
[18:42:04.123]                     if (is.function(sendCondition)) 
[18:42:04.123]                       return(sendCondition)
[18:42:04.123]                     ns <- getNamespace("parallel")
[18:42:04.123]                     if (exists("sendData", mode = "function", 
[18:42:04.123]                       envir = ns)) {
[18:42:04.123]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.123]                         envir = ns)
[18:42:04.123]                       envir <- sys.frame(frame)
[18:42:04.123]                       master <- NULL
[18:42:04.123]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.123]                         !identical(envir, emptyenv())) {
[18:42:04.123]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.123]                           inherits = FALSE)) {
[18:42:04.123]                           master <- get("master", mode = "list", 
[18:42:04.123]                             envir = envir, inherits = FALSE)
[18:42:04.123]                           if (inherits(master, c("SOCKnode", 
[18:42:04.123]                             "SOCK0node"))) {
[18:42:04.123]                             sendCondition <<- function(cond) {
[18:42:04.123]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.123]                                 success = TRUE)
[18:42:04.123]                               parallel_sendData(master, data)
[18:42:04.123]                             }
[18:42:04.123]                             return(sendCondition)
[18:42:04.123]                           }
[18:42:04.123]                         }
[18:42:04.123]                         frame <- frame + 1L
[18:42:04.123]                         envir <- sys.frame(frame)
[18:42:04.123]                       }
[18:42:04.123]                     }
[18:42:04.123]                     sendCondition <<- function(cond) NULL
[18:42:04.123]                   }
[18:42:04.123]                 })
[18:42:04.123]                 withCallingHandlers({
[18:42:04.123]                   {
[18:42:04.123]                     do.call(function(...) {
[18:42:04.123]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.123]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.123]                         ...future.globals.maxSize)) {
[18:42:04.123]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.123]                         on.exit(options(oopts), add = TRUE)
[18:42:04.123]                       }
[18:42:04.123]                       {
[18:42:04.123]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.123]                           FUN = function(jj) {
[18:42:04.123]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.123]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.123]                           })
[18:42:04.123]                       }
[18:42:04.123]                     }, args = future.call.arguments)
[18:42:04.123]                   }
[18:42:04.123]                 }, immediateCondition = function(cond) {
[18:42:04.123]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.123]                   sendCondition(cond)
[18:42:04.123]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.123]                   {
[18:42:04.123]                     inherits <- base::inherits
[18:42:04.123]                     invokeRestart <- base::invokeRestart
[18:42:04.123]                     is.null <- base::is.null
[18:42:04.123]                     muffled <- FALSE
[18:42:04.123]                     if (inherits(cond, "message")) {
[18:42:04.123]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.123]                       if (muffled) 
[18:42:04.123]                         invokeRestart("muffleMessage")
[18:42:04.123]                     }
[18:42:04.123]                     else if (inherits(cond, "warning")) {
[18:42:04.123]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.123]                       if (muffled) 
[18:42:04.123]                         invokeRestart("muffleWarning")
[18:42:04.123]                     }
[18:42:04.123]                     else if (inherits(cond, "condition")) {
[18:42:04.123]                       if (!is.null(pattern)) {
[18:42:04.123]                         computeRestarts <- base::computeRestarts
[18:42:04.123]                         grepl <- base::grepl
[18:42:04.123]                         restarts <- computeRestarts(cond)
[18:42:04.123]                         for (restart in restarts) {
[18:42:04.123]                           name <- restart$name
[18:42:04.123]                           if (is.null(name)) 
[18:42:04.123]                             next
[18:42:04.123]                           if (!grepl(pattern, name)) 
[18:42:04.123]                             next
[18:42:04.123]                           invokeRestart(restart)
[18:42:04.123]                           muffled <- TRUE
[18:42:04.123]                           break
[18:42:04.123]                         }
[18:42:04.123]                       }
[18:42:04.123]                     }
[18:42:04.123]                     invisible(muffled)
[18:42:04.123]                   }
[18:42:04.123]                   muffleCondition(cond)
[18:42:04.123]                 })
[18:42:04.123]             }))
[18:42:04.123]             future::FutureResult(value = ...future.value$value, 
[18:42:04.123]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.123]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.123]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.123]                     ...future.globalenv.names))
[18:42:04.123]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.123]         }, condition = base::local({
[18:42:04.123]             c <- base::c
[18:42:04.123]             inherits <- base::inherits
[18:42:04.123]             invokeRestart <- base::invokeRestart
[18:42:04.123]             length <- base::length
[18:42:04.123]             list <- base::list
[18:42:04.123]             seq.int <- base::seq.int
[18:42:04.123]             signalCondition <- base::signalCondition
[18:42:04.123]             sys.calls <- base::sys.calls
[18:42:04.123]             `[[` <- base::`[[`
[18:42:04.123]             `+` <- base::`+`
[18:42:04.123]             `<<-` <- base::`<<-`
[18:42:04.123]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.123]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.123]                   3L)]
[18:42:04.123]             }
[18:42:04.123]             function(cond) {
[18:42:04.123]                 is_error <- inherits(cond, "error")
[18:42:04.123]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.123]                   NULL)
[18:42:04.123]                 if (is_error) {
[18:42:04.123]                   sessionInformation <- function() {
[18:42:04.123]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.123]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.123]                       search = base::search(), system = base::Sys.info())
[18:42:04.123]                   }
[18:42:04.123]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.123]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.123]                     cond$call), session = sessionInformation(), 
[18:42:04.123]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.123]                   signalCondition(cond)
[18:42:04.123]                 }
[18:42:04.123]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.123]                 "immediateCondition"))) {
[18:42:04.123]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.123]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.123]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.123]                   if (TRUE && !signal) {
[18:42:04.123]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.123]                     {
[18:42:04.123]                       inherits <- base::inherits
[18:42:04.123]                       invokeRestart <- base::invokeRestart
[18:42:04.123]                       is.null <- base::is.null
[18:42:04.123]                       muffled <- FALSE
[18:42:04.123]                       if (inherits(cond, "message")) {
[18:42:04.123]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.123]                         if (muffled) 
[18:42:04.123]                           invokeRestart("muffleMessage")
[18:42:04.123]                       }
[18:42:04.123]                       else if (inherits(cond, "warning")) {
[18:42:04.123]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.123]                         if (muffled) 
[18:42:04.123]                           invokeRestart("muffleWarning")
[18:42:04.123]                       }
[18:42:04.123]                       else if (inherits(cond, "condition")) {
[18:42:04.123]                         if (!is.null(pattern)) {
[18:42:04.123]                           computeRestarts <- base::computeRestarts
[18:42:04.123]                           grepl <- base::grepl
[18:42:04.123]                           restarts <- computeRestarts(cond)
[18:42:04.123]                           for (restart in restarts) {
[18:42:04.123]                             name <- restart$name
[18:42:04.123]                             if (is.null(name)) 
[18:42:04.123]                               next
[18:42:04.123]                             if (!grepl(pattern, name)) 
[18:42:04.123]                               next
[18:42:04.123]                             invokeRestart(restart)
[18:42:04.123]                             muffled <- TRUE
[18:42:04.123]                             break
[18:42:04.123]                           }
[18:42:04.123]                         }
[18:42:04.123]                       }
[18:42:04.123]                       invisible(muffled)
[18:42:04.123]                     }
[18:42:04.123]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.123]                   }
[18:42:04.123]                 }
[18:42:04.123]                 else {
[18:42:04.123]                   if (TRUE) {
[18:42:04.123]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.123]                     {
[18:42:04.123]                       inherits <- base::inherits
[18:42:04.123]                       invokeRestart <- base::invokeRestart
[18:42:04.123]                       is.null <- base::is.null
[18:42:04.123]                       muffled <- FALSE
[18:42:04.123]                       if (inherits(cond, "message")) {
[18:42:04.123]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.123]                         if (muffled) 
[18:42:04.123]                           invokeRestart("muffleMessage")
[18:42:04.123]                       }
[18:42:04.123]                       else if (inherits(cond, "warning")) {
[18:42:04.123]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.123]                         if (muffled) 
[18:42:04.123]                           invokeRestart("muffleWarning")
[18:42:04.123]                       }
[18:42:04.123]                       else if (inherits(cond, "condition")) {
[18:42:04.123]                         if (!is.null(pattern)) {
[18:42:04.123]                           computeRestarts <- base::computeRestarts
[18:42:04.123]                           grepl <- base::grepl
[18:42:04.123]                           restarts <- computeRestarts(cond)
[18:42:04.123]                           for (restart in restarts) {
[18:42:04.123]                             name <- restart$name
[18:42:04.123]                             if (is.null(name)) 
[18:42:04.123]                               next
[18:42:04.123]                             if (!grepl(pattern, name)) 
[18:42:04.123]                               next
[18:42:04.123]                             invokeRestart(restart)
[18:42:04.123]                             muffled <- TRUE
[18:42:04.123]                             break
[18:42:04.123]                           }
[18:42:04.123]                         }
[18:42:04.123]                       }
[18:42:04.123]                       invisible(muffled)
[18:42:04.123]                     }
[18:42:04.123]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.123]                   }
[18:42:04.123]                 }
[18:42:04.123]             }
[18:42:04.123]         }))
[18:42:04.123]     }, error = function(ex) {
[18:42:04.123]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.123]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.123]                 ...future.rng), started = ...future.startTime, 
[18:42:04.123]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.123]             version = "1.8"), class = "FutureResult")
[18:42:04.123]     }, finally = {
[18:42:04.123]         if (!identical(...future.workdir, getwd())) 
[18:42:04.123]             setwd(...future.workdir)
[18:42:04.123]         {
[18:42:04.123]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.123]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.123]             }
[18:42:04.123]             base::options(...future.oldOptions)
[18:42:04.123]             if (.Platform$OS.type == "windows") {
[18:42:04.123]                 old_names <- names(...future.oldEnvVars)
[18:42:04.123]                 envs <- base::Sys.getenv()
[18:42:04.123]                 names <- names(envs)
[18:42:04.123]                 common <- intersect(names, old_names)
[18:42:04.123]                 added <- setdiff(names, old_names)
[18:42:04.123]                 removed <- setdiff(old_names, names)
[18:42:04.123]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.123]                   envs[common]]
[18:42:04.123]                 NAMES <- toupper(changed)
[18:42:04.123]                 args <- list()
[18:42:04.123]                 for (kk in seq_along(NAMES)) {
[18:42:04.123]                   name <- changed[[kk]]
[18:42:04.123]                   NAME <- NAMES[[kk]]
[18:42:04.123]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.123]                     next
[18:42:04.123]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.123]                 }
[18:42:04.123]                 NAMES <- toupper(added)
[18:42:04.123]                 for (kk in seq_along(NAMES)) {
[18:42:04.123]                   name <- added[[kk]]
[18:42:04.123]                   NAME <- NAMES[[kk]]
[18:42:04.123]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.123]                     next
[18:42:04.123]                   args[[name]] <- ""
[18:42:04.123]                 }
[18:42:04.123]                 NAMES <- toupper(removed)
[18:42:04.123]                 for (kk in seq_along(NAMES)) {
[18:42:04.123]                   name <- removed[[kk]]
[18:42:04.123]                   NAME <- NAMES[[kk]]
[18:42:04.123]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.123]                     next
[18:42:04.123]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.123]                 }
[18:42:04.123]                 if (length(args) > 0) 
[18:42:04.123]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.123]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.123]             }
[18:42:04.123]             else {
[18:42:04.123]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.123]             }
[18:42:04.123]             {
[18:42:04.123]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.123]                   0L) {
[18:42:04.123]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.123]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.123]                   base::options(opts)
[18:42:04.123]                 }
[18:42:04.123]                 {
[18:42:04.123]                   {
[18:42:04.123]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.123]                     NULL
[18:42:04.123]                   }
[18:42:04.123]                   options(future.plan = NULL)
[18:42:04.123]                   if (is.na(NA_character_)) 
[18:42:04.123]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.123]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.123]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.123]                     .init = FALSE)
[18:42:04.123]                 }
[18:42:04.123]             }
[18:42:04.123]         }
[18:42:04.123]     })
[18:42:04.123]     if (TRUE) {
[18:42:04.123]         base::sink(type = "output", split = FALSE)
[18:42:04.123]         if (TRUE) {
[18:42:04.123]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.123]         }
[18:42:04.123]         else {
[18:42:04.123]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.123]         }
[18:42:04.123]         base::close(...future.stdout)
[18:42:04.123]         ...future.stdout <- NULL
[18:42:04.123]     }
[18:42:04.123]     ...future.result$conditions <- ...future.conditions
[18:42:04.123]     ...future.result$finished <- base::Sys.time()
[18:42:04.123]     ...future.result
[18:42:04.123] }
[18:42:04.129] Exporting 11 global objects (14.80 KiB) to cluster node #1 ...
[18:42:04.129] Exporting '...future.FUN' (5.67 KiB) to cluster node #1 ...
[18:42:04.130] Exporting '...future.FUN' (5.67 KiB) to cluster node #1 ... DONE
[18:42:04.130] Exporting 'x_FUN' (680 bytes) to cluster node #1 ...
[18:42:04.131] Exporting 'x_FUN' (680 bytes) to cluster node #1 ... DONE
[18:42:04.131] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.132] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.132] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.133] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.133] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.134] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.134] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:04.135] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:04.135] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:04.136] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:04.136] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ...
[18:42:04.136] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ... DONE
[18:42:04.137] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ...
[18:42:04.137] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ... DONE
[18:42:04.137] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.140] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.141] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.141] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.141] Exporting 11 global objects (14.80 KiB) to cluster node #1 ... DONE
[18:42:04.142] MultisessionFuture started
[18:42:04.143] - Launch lazy future ... done
[18:42:04.143] run() for 'MultisessionFuture' ... done
[18:42:04.144] Created future:
[18:42:04.163] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.163] - Validating connection of MultisessionFuture
[18:42:04.163] - received message: FutureResult
[18:42:04.164] - Received FutureResult
[18:42:04.164] - Erased future from FutureRegistry
[18:42:04.164] result() for ClusterFuture ...
[18:42:04.164] - result already collected: FutureResult
[18:42:04.164] result() for ClusterFuture ... done
[18:42:04.165] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.144] MultisessionFuture:
[18:42:04.144] Label: 'future_vapply-1'
[18:42:04.144] Expression:
[18:42:04.144] {
[18:42:04.144]     do.call(function(...) {
[18:42:04.144]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.144]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.144]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.144]             on.exit(options(oopts), add = TRUE)
[18:42:04.144]         }
[18:42:04.144]         {
[18:42:04.144]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.144]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.144]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.144]             })
[18:42:04.144]         }
[18:42:04.144]     }, args = future.call.arguments)
[18:42:04.144] }
[18:42:04.144] Lazy evaluation: FALSE
[18:42:04.144] Asynchronous evaluation: TRUE
[18:42:04.144] Local evaluation: TRUE
[18:42:04.144] Environment: R_GlobalEnv
[18:42:04.144] Capture standard output: TRUE
[18:42:04.144] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.144] Globals: 11 objects totaling 14.66 KiB (function '...future.FUN' of 5.67 KiB, function 'x_FUN' of 680 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.144] Packages: 1 packages ('future.apply')
[18:42:04.144] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.144] Resolved: TRUE
[18:42:04.144] Value: <not collected>
[18:42:04.144] Conditions captured: <none>
[18:42:04.144] Early signaling: FALSE
[18:42:04.144] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.144] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.165] Chunk #1 of 2 ... DONE
[18:42:04.165] Chunk #2 of 2 ...
[18:42:04.165]  - Finding globals in 'X' for chunk #2 ...
[18:42:04.165] getGlobalsAndPackages() ...
[18:42:04.166] Searching for globals...
[18:42:04.166] 
[18:42:04.166] Searching for globals ... DONE
[18:42:04.166] - globals: [0] <none>
[18:42:04.166] getGlobalsAndPackages() ... DONE
[18:42:04.169]    + additional globals found: [n=0] 
[18:42:04.170]    + additional namespaces needed: [n=0] 
[18:42:04.170]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:04.170]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.170]  - seeds: <none>
[18:42:04.170]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.171] getGlobalsAndPackages() ...
[18:42:04.171] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.171] Resolving globals: FALSE
[18:42:04.171] Tweak future expression to call with '...' arguments ...
[18:42:04.171] {
[18:42:04.171]     do.call(function(...) {
[18:42:04.171]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.171]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.171]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.171]             on.exit(options(oopts), add = TRUE)
[18:42:04.171]         }
[18:42:04.171]         {
[18:42:04.171]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.171]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.171]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.171]             })
[18:42:04.171]         }
[18:42:04.171]     }, args = future.call.arguments)
[18:42:04.171] }
[18:42:04.172] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.173] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.173] - packages: [1] 'future.apply'
[18:42:04.173] getGlobalsAndPackages() ... DONE
[18:42:04.173] run() for 'Future' ...
[18:42:04.174] - state: 'created'
[18:42:04.174] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.189] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.189] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.190]   - Field: 'node'
[18:42:04.190]   - Field: 'label'
[18:42:04.190]   - Field: 'local'
[18:42:04.190]   - Field: 'owner'
[18:42:04.190]   - Field: 'envir'
[18:42:04.191]   - Field: 'workers'
[18:42:04.191]   - Field: 'packages'
[18:42:04.191]   - Field: 'gc'
[18:42:04.191]   - Field: 'conditions'
[18:42:04.191]   - Field: 'persistent'
[18:42:04.191]   - Field: 'expr'
[18:42:04.192]   - Field: 'uuid'
[18:42:04.192]   - Field: 'seed'
[18:42:04.192]   - Field: 'version'
[18:42:04.192]   - Field: 'result'
[18:42:04.192]   - Field: 'asynchronous'
[18:42:04.192]   - Field: 'calls'
[18:42:04.193]   - Field: 'globals'
[18:42:04.193]   - Field: 'stdout'
[18:42:04.193]   - Field: 'earlySignal'
[18:42:04.193]   - Field: 'lazy'
[18:42:04.193]   - Field: 'state'
[18:42:04.194] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.194] - Launch lazy future ...
[18:42:04.194] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.194] Packages needed by future strategies (n = 0): <none>
[18:42:04.195] {
[18:42:04.195]     {
[18:42:04.195]         {
[18:42:04.195]             ...future.startTime <- base::Sys.time()
[18:42:04.195]             {
[18:42:04.195]                 {
[18:42:04.195]                   {
[18:42:04.195]                     {
[18:42:04.195]                       {
[18:42:04.195]                         base::local({
[18:42:04.195]                           has_future <- base::requireNamespace("future", 
[18:42:04.195]                             quietly = TRUE)
[18:42:04.195]                           if (has_future) {
[18:42:04.195]                             ns <- base::getNamespace("future")
[18:42:04.195]                             version <- ns[[".package"]][["version"]]
[18:42:04.195]                             if (is.null(version)) 
[18:42:04.195]                               version <- utils::packageVersion("future")
[18:42:04.195]                           }
[18:42:04.195]                           else {
[18:42:04.195]                             version <- NULL
[18:42:04.195]                           }
[18:42:04.195]                           if (!has_future || version < "1.8.0") {
[18:42:04.195]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.195]                               "", base::R.version$version.string), 
[18:42:04.195]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.195]                                 base::R.version$platform, 8 * 
[18:42:04.195]                                   base::.Machine$sizeof.pointer), 
[18:42:04.195]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.195]                                 "release", "version")], collapse = " "), 
[18:42:04.195]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.195]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.195]                               info)
[18:42:04.195]                             info <- base::paste(info, collapse = "; ")
[18:42:04.195]                             if (!has_future) {
[18:42:04.195]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.195]                                 info)
[18:42:04.195]                             }
[18:42:04.195]                             else {
[18:42:04.195]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.195]                                 info, version)
[18:42:04.195]                             }
[18:42:04.195]                             base::stop(msg)
[18:42:04.195]                           }
[18:42:04.195]                         })
[18:42:04.195]                       }
[18:42:04.195]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.195]                       base::options(mc.cores = 1L)
[18:42:04.195]                     }
[18:42:04.195]                     base::local({
[18:42:04.195]                       for (pkg in "future.apply") {
[18:42:04.195]                         base::loadNamespace(pkg)
[18:42:04.195]                         base::library(pkg, character.only = TRUE)
[18:42:04.195]                       }
[18:42:04.195]                     })
[18:42:04.195]                   }
[18:42:04.195]                   ...future.strategy.old <- future::plan("list")
[18:42:04.195]                   options(future.plan = NULL)
[18:42:04.195]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.195]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.195]                 }
[18:42:04.195]                 ...future.workdir <- getwd()
[18:42:04.195]             }
[18:42:04.195]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.195]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.195]         }
[18:42:04.195]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.195]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.195]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.195]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.195]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.195]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.195]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.195]             base::names(...future.oldOptions))
[18:42:04.195]     }
[18:42:04.195]     if (FALSE) {
[18:42:04.195]     }
[18:42:04.195]     else {
[18:42:04.195]         if (TRUE) {
[18:42:04.195]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.195]                 open = "w")
[18:42:04.195]         }
[18:42:04.195]         else {
[18:42:04.195]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.195]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.195]         }
[18:42:04.195]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.195]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.195]             base::sink(type = "output", split = FALSE)
[18:42:04.195]             base::close(...future.stdout)
[18:42:04.195]         }, add = TRUE)
[18:42:04.195]     }
[18:42:04.195]     ...future.frame <- base::sys.nframe()
[18:42:04.195]     ...future.conditions <- base::list()
[18:42:04.195]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.195]     if (FALSE) {
[18:42:04.195]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.195]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.195]     }
[18:42:04.195]     ...future.result <- base::tryCatch({
[18:42:04.195]         base::withCallingHandlers({
[18:42:04.195]             ...future.value <- base::withVisible(base::local({
[18:42:04.195]                 ...future.makeSendCondition <- base::local({
[18:42:04.195]                   sendCondition <- NULL
[18:42:04.195]                   function(frame = 1L) {
[18:42:04.195]                     if (is.function(sendCondition)) 
[18:42:04.195]                       return(sendCondition)
[18:42:04.195]                     ns <- getNamespace("parallel")
[18:42:04.195]                     if (exists("sendData", mode = "function", 
[18:42:04.195]                       envir = ns)) {
[18:42:04.195]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.195]                         envir = ns)
[18:42:04.195]                       envir <- sys.frame(frame)
[18:42:04.195]                       master <- NULL
[18:42:04.195]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.195]                         !identical(envir, emptyenv())) {
[18:42:04.195]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.195]                           inherits = FALSE)) {
[18:42:04.195]                           master <- get("master", mode = "list", 
[18:42:04.195]                             envir = envir, inherits = FALSE)
[18:42:04.195]                           if (inherits(master, c("SOCKnode", 
[18:42:04.195]                             "SOCK0node"))) {
[18:42:04.195]                             sendCondition <<- function(cond) {
[18:42:04.195]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.195]                                 success = TRUE)
[18:42:04.195]                               parallel_sendData(master, data)
[18:42:04.195]                             }
[18:42:04.195]                             return(sendCondition)
[18:42:04.195]                           }
[18:42:04.195]                         }
[18:42:04.195]                         frame <- frame + 1L
[18:42:04.195]                         envir <- sys.frame(frame)
[18:42:04.195]                       }
[18:42:04.195]                     }
[18:42:04.195]                     sendCondition <<- function(cond) NULL
[18:42:04.195]                   }
[18:42:04.195]                 })
[18:42:04.195]                 withCallingHandlers({
[18:42:04.195]                   {
[18:42:04.195]                     do.call(function(...) {
[18:42:04.195]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.195]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.195]                         ...future.globals.maxSize)) {
[18:42:04.195]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.195]                         on.exit(options(oopts), add = TRUE)
[18:42:04.195]                       }
[18:42:04.195]                       {
[18:42:04.195]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.195]                           FUN = function(jj) {
[18:42:04.195]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.195]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.195]                           })
[18:42:04.195]                       }
[18:42:04.195]                     }, args = future.call.arguments)
[18:42:04.195]                   }
[18:42:04.195]                 }, immediateCondition = function(cond) {
[18:42:04.195]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.195]                   sendCondition(cond)
[18:42:04.195]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.195]                   {
[18:42:04.195]                     inherits <- base::inherits
[18:42:04.195]                     invokeRestart <- base::invokeRestart
[18:42:04.195]                     is.null <- base::is.null
[18:42:04.195]                     muffled <- FALSE
[18:42:04.195]                     if (inherits(cond, "message")) {
[18:42:04.195]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.195]                       if (muffled) 
[18:42:04.195]                         invokeRestart("muffleMessage")
[18:42:04.195]                     }
[18:42:04.195]                     else if (inherits(cond, "warning")) {
[18:42:04.195]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.195]                       if (muffled) 
[18:42:04.195]                         invokeRestart("muffleWarning")
[18:42:04.195]                     }
[18:42:04.195]                     else if (inherits(cond, "condition")) {
[18:42:04.195]                       if (!is.null(pattern)) {
[18:42:04.195]                         computeRestarts <- base::computeRestarts
[18:42:04.195]                         grepl <- base::grepl
[18:42:04.195]                         restarts <- computeRestarts(cond)
[18:42:04.195]                         for (restart in restarts) {
[18:42:04.195]                           name <- restart$name
[18:42:04.195]                           if (is.null(name)) 
[18:42:04.195]                             next
[18:42:04.195]                           if (!grepl(pattern, name)) 
[18:42:04.195]                             next
[18:42:04.195]                           invokeRestart(restart)
[18:42:04.195]                           muffled <- TRUE
[18:42:04.195]                           break
[18:42:04.195]                         }
[18:42:04.195]                       }
[18:42:04.195]                     }
[18:42:04.195]                     invisible(muffled)
[18:42:04.195]                   }
[18:42:04.195]                   muffleCondition(cond)
[18:42:04.195]                 })
[18:42:04.195]             }))
[18:42:04.195]             future::FutureResult(value = ...future.value$value, 
[18:42:04.195]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.195]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.195]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.195]                     ...future.globalenv.names))
[18:42:04.195]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.195]         }, condition = base::local({
[18:42:04.195]             c <- base::c
[18:42:04.195]             inherits <- base::inherits
[18:42:04.195]             invokeRestart <- base::invokeRestart
[18:42:04.195]             length <- base::length
[18:42:04.195]             list <- base::list
[18:42:04.195]             seq.int <- base::seq.int
[18:42:04.195]             signalCondition <- base::signalCondition
[18:42:04.195]             sys.calls <- base::sys.calls
[18:42:04.195]             `[[` <- base::`[[`
[18:42:04.195]             `+` <- base::`+`
[18:42:04.195]             `<<-` <- base::`<<-`
[18:42:04.195]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.195]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.195]                   3L)]
[18:42:04.195]             }
[18:42:04.195]             function(cond) {
[18:42:04.195]                 is_error <- inherits(cond, "error")
[18:42:04.195]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.195]                   NULL)
[18:42:04.195]                 if (is_error) {
[18:42:04.195]                   sessionInformation <- function() {
[18:42:04.195]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.195]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.195]                       search = base::search(), system = base::Sys.info())
[18:42:04.195]                   }
[18:42:04.195]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.195]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.195]                     cond$call), session = sessionInformation(), 
[18:42:04.195]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.195]                   signalCondition(cond)
[18:42:04.195]                 }
[18:42:04.195]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.195]                 "immediateCondition"))) {
[18:42:04.195]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.195]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.195]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.195]                   if (TRUE && !signal) {
[18:42:04.195]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.195]                     {
[18:42:04.195]                       inherits <- base::inherits
[18:42:04.195]                       invokeRestart <- base::invokeRestart
[18:42:04.195]                       is.null <- base::is.null
[18:42:04.195]                       muffled <- FALSE
[18:42:04.195]                       if (inherits(cond, "message")) {
[18:42:04.195]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.195]                         if (muffled) 
[18:42:04.195]                           invokeRestart("muffleMessage")
[18:42:04.195]                       }
[18:42:04.195]                       else if (inherits(cond, "warning")) {
[18:42:04.195]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.195]                         if (muffled) 
[18:42:04.195]                           invokeRestart("muffleWarning")
[18:42:04.195]                       }
[18:42:04.195]                       else if (inherits(cond, "condition")) {
[18:42:04.195]                         if (!is.null(pattern)) {
[18:42:04.195]                           computeRestarts <- base::computeRestarts
[18:42:04.195]                           grepl <- base::grepl
[18:42:04.195]                           restarts <- computeRestarts(cond)
[18:42:04.195]                           for (restart in restarts) {
[18:42:04.195]                             name <- restart$name
[18:42:04.195]                             if (is.null(name)) 
[18:42:04.195]                               next
[18:42:04.195]                             if (!grepl(pattern, name)) 
[18:42:04.195]                               next
[18:42:04.195]                             invokeRestart(restart)
[18:42:04.195]                             muffled <- TRUE
[18:42:04.195]                             break
[18:42:04.195]                           }
[18:42:04.195]                         }
[18:42:04.195]                       }
[18:42:04.195]                       invisible(muffled)
[18:42:04.195]                     }
[18:42:04.195]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.195]                   }
[18:42:04.195]                 }
[18:42:04.195]                 else {
[18:42:04.195]                   if (TRUE) {
[18:42:04.195]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.195]                     {
[18:42:04.195]                       inherits <- base::inherits
[18:42:04.195]                       invokeRestart <- base::invokeRestart
[18:42:04.195]                       is.null <- base::is.null
[18:42:04.195]                       muffled <- FALSE
[18:42:04.195]                       if (inherits(cond, "message")) {
[18:42:04.195]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.195]                         if (muffled) 
[18:42:04.195]                           invokeRestart("muffleMessage")
[18:42:04.195]                       }
[18:42:04.195]                       else if (inherits(cond, "warning")) {
[18:42:04.195]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.195]                         if (muffled) 
[18:42:04.195]                           invokeRestart("muffleWarning")
[18:42:04.195]                       }
[18:42:04.195]                       else if (inherits(cond, "condition")) {
[18:42:04.195]                         if (!is.null(pattern)) {
[18:42:04.195]                           computeRestarts <- base::computeRestarts
[18:42:04.195]                           grepl <- base::grepl
[18:42:04.195]                           restarts <- computeRestarts(cond)
[18:42:04.195]                           for (restart in restarts) {
[18:42:04.195]                             name <- restart$name
[18:42:04.195]                             if (is.null(name)) 
[18:42:04.195]                               next
[18:42:04.195]                             if (!grepl(pattern, name)) 
[18:42:04.195]                               next
[18:42:04.195]                             invokeRestart(restart)
[18:42:04.195]                             muffled <- TRUE
[18:42:04.195]                             break
[18:42:04.195]                           }
[18:42:04.195]                         }
[18:42:04.195]                       }
[18:42:04.195]                       invisible(muffled)
[18:42:04.195]                     }
[18:42:04.195]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.195]                   }
[18:42:04.195]                 }
[18:42:04.195]             }
[18:42:04.195]         }))
[18:42:04.195]     }, error = function(ex) {
[18:42:04.195]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.195]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.195]                 ...future.rng), started = ...future.startTime, 
[18:42:04.195]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.195]             version = "1.8"), class = "FutureResult")
[18:42:04.195]     }, finally = {
[18:42:04.195]         if (!identical(...future.workdir, getwd())) 
[18:42:04.195]             setwd(...future.workdir)
[18:42:04.195]         {
[18:42:04.195]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.195]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.195]             }
[18:42:04.195]             base::options(...future.oldOptions)
[18:42:04.195]             if (.Platform$OS.type == "windows") {
[18:42:04.195]                 old_names <- names(...future.oldEnvVars)
[18:42:04.195]                 envs <- base::Sys.getenv()
[18:42:04.195]                 names <- names(envs)
[18:42:04.195]                 common <- intersect(names, old_names)
[18:42:04.195]                 added <- setdiff(names, old_names)
[18:42:04.195]                 removed <- setdiff(old_names, names)
[18:42:04.195]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.195]                   envs[common]]
[18:42:04.195]                 NAMES <- toupper(changed)
[18:42:04.195]                 args <- list()
[18:42:04.195]                 for (kk in seq_along(NAMES)) {
[18:42:04.195]                   name <- changed[[kk]]
[18:42:04.195]                   NAME <- NAMES[[kk]]
[18:42:04.195]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.195]                     next
[18:42:04.195]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.195]                 }
[18:42:04.195]                 NAMES <- toupper(added)
[18:42:04.195]                 for (kk in seq_along(NAMES)) {
[18:42:04.195]                   name <- added[[kk]]
[18:42:04.195]                   NAME <- NAMES[[kk]]
[18:42:04.195]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.195]                     next
[18:42:04.195]                   args[[name]] <- ""
[18:42:04.195]                 }
[18:42:04.195]                 NAMES <- toupper(removed)
[18:42:04.195]                 for (kk in seq_along(NAMES)) {
[18:42:04.195]                   name <- removed[[kk]]
[18:42:04.195]                   NAME <- NAMES[[kk]]
[18:42:04.195]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.195]                     next
[18:42:04.195]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.195]                 }
[18:42:04.195]                 if (length(args) > 0) 
[18:42:04.195]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.195]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.195]             }
[18:42:04.195]             else {
[18:42:04.195]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.195]             }
[18:42:04.195]             {
[18:42:04.195]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.195]                   0L) {
[18:42:04.195]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.195]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.195]                   base::options(opts)
[18:42:04.195]                 }
[18:42:04.195]                 {
[18:42:04.195]                   {
[18:42:04.195]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.195]                     NULL
[18:42:04.195]                   }
[18:42:04.195]                   options(future.plan = NULL)
[18:42:04.195]                   if (is.na(NA_character_)) 
[18:42:04.195]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.195]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.195]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.195]                     .init = FALSE)
[18:42:04.195]                 }
[18:42:04.195]             }
[18:42:04.195]         }
[18:42:04.195]     })
[18:42:04.195]     if (TRUE) {
[18:42:04.195]         base::sink(type = "output", split = FALSE)
[18:42:04.195]         if (TRUE) {
[18:42:04.195]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.195]         }
[18:42:04.195]         else {
[18:42:04.195]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.195]         }
[18:42:04.195]         base::close(...future.stdout)
[18:42:04.195]         ...future.stdout <- NULL
[18:42:04.195]     }
[18:42:04.195]     ...future.result$conditions <- ...future.conditions
[18:42:04.195]     ...future.result$finished <- base::Sys.time()
[18:42:04.195]     ...future.result
[18:42:04.195] }
[18:42:04.200] Exporting 11 global objects (14.80 KiB) to cluster node #1 ...
[18:42:04.201] Exporting '...future.FUN' (5.67 KiB) to cluster node #1 ...
[18:42:04.202] Exporting '...future.FUN' (5.67 KiB) to cluster node #1 ... DONE
[18:42:04.202] Exporting 'x_FUN' (680 bytes) to cluster node #1 ...
[18:42:04.203] Exporting 'x_FUN' (680 bytes) to cluster node #1 ... DONE
[18:42:04.203] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.203] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.204] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.204] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.205] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.206] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.206] Exporting 'dim' (39 bytes) to cluster node #1 ...
[18:42:04.206] Exporting 'dim' (39 bytes) to cluster node #1 ... DONE
[18:42:04.207] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:04.207] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:04.208] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ...
[18:42:04.208] Exporting 'future.call.arguments' (183 bytes) to cluster node #1 ... DONE
[18:42:04.208] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ...
[18:42:04.209] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ... DONE
[18:42:04.209] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.210] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.210] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.210] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.210] Exporting 11 global objects (14.80 KiB) to cluster node #1 ... DONE
[18:42:04.211] MultisessionFuture started
[18:42:04.211] - Launch lazy future ... done
[18:42:04.212] run() for 'MultisessionFuture' ... done
[18:42:04.212] Created future:
[18:42:04.234] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.234] - Validating connection of MultisessionFuture
[18:42:04.235] - received message: FutureResult
[18:42:04.235] - Received FutureResult
[18:42:04.235] - Erased future from FutureRegistry
[18:42:04.235] result() for ClusterFuture ...
[18:42:04.236] - result already collected: FutureResult
[18:42:04.236] result() for ClusterFuture ... done
[18:42:04.236] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.212] MultisessionFuture:
[18:42:04.212] Label: 'future_vapply-2'
[18:42:04.212] Expression:
[18:42:04.212] {
[18:42:04.212]     do.call(function(...) {
[18:42:04.212]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.212]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.212]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.212]             on.exit(options(oopts), add = TRUE)
[18:42:04.212]         }
[18:42:04.212]         {
[18:42:04.212]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.212]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.212]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.212]             })
[18:42:04.212]         }
[18:42:04.212]     }, args = future.call.arguments)
[18:42:04.212] }
[18:42:04.212] Lazy evaluation: FALSE
[18:42:04.212] Asynchronous evaluation: TRUE
[18:42:04.212] Local evaluation: TRUE
[18:42:04.212] Environment: R_GlobalEnv
[18:42:04.212] Capture standard output: TRUE
[18:42:04.212] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.212] Globals: 11 objects totaling 14.66 KiB (function '...future.FUN' of 5.67 KiB, function 'x_FUN' of 680 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.212] Packages: 1 packages ('future.apply')
[18:42:04.212] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.212] Resolved: TRUE
[18:42:04.212] Value: <not collected>
[18:42:04.212] Conditions captured: <none>
[18:42:04.212] Early signaling: FALSE
[18:42:04.212] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.212] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.236] Chunk #2 of 2 ... DONE
[18:42:04.236] Launching 2 futures (chunks) ... DONE
[18:42:04.237] Resolving 2 futures (chunks) ...
[18:42:04.237] resolve() on list ...
[18:42:04.237]  recursive: 0
[18:42:04.237]  length: 2
[18:42:04.237] 
[18:42:04.237] Future #1
[18:42:04.238] result() for ClusterFuture ...
[18:42:04.238] - result already collected: FutureResult
[18:42:04.238] result() for ClusterFuture ... done
[18:42:04.238] result() for ClusterFuture ...
[18:42:04.238] - result already collected: FutureResult
[18:42:04.238] result() for ClusterFuture ... done
[18:42:04.239] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:04.239] - nx: 2
[18:42:04.239] - relay: TRUE
[18:42:04.239] - stdout: TRUE
[18:42:04.239] - signal: TRUE
[18:42:04.239] - resignal: FALSE
[18:42:04.239] - force: TRUE
[18:42:04.240] - relayed: [n=2] FALSE, FALSE
[18:42:04.240] - queued futures: [n=2] FALSE, FALSE
[18:42:04.240]  - until=1
[18:42:04.240]  - relaying element #1
[18:42:04.240] result() for ClusterFuture ...
[18:42:04.240] - result already collected: FutureResult
[18:42:04.241] result() for ClusterFuture ... done
[18:42:04.241] result() for ClusterFuture ...
[18:42:04.241] - result already collected: FutureResult
[18:42:04.241] result() for ClusterFuture ... done
[18:42:04.241] result() for ClusterFuture ...
[18:42:04.241] - result already collected: FutureResult
[18:42:04.242] result() for ClusterFuture ... done
[18:42:04.242] result() for ClusterFuture ...
[18:42:04.242] - result already collected: FutureResult
[18:42:04.242] result() for ClusterFuture ... done
[18:42:04.242] - relayed: [n=2] TRUE, FALSE
[18:42:04.242] - queued futures: [n=2] TRUE, FALSE
[18:42:04.243] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:04.243]  length: 1 (resolved future 1)
[18:42:04.243] Future #2
[18:42:04.243] result() for ClusterFuture ...
[18:42:04.243] - result already collected: FutureResult
[18:42:04.243] result() for ClusterFuture ... done
[18:42:04.244] result() for ClusterFuture ...
[18:42:04.244] - result already collected: FutureResult
[18:42:04.244] result() for ClusterFuture ... done
[18:42:04.244] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:04.244] - nx: 2
[18:42:04.244] - relay: TRUE
[18:42:04.245] - stdout: TRUE
[18:42:04.245] - signal: TRUE
[18:42:04.245] - resignal: FALSE
[18:42:04.245] - force: TRUE
[18:42:04.245] - relayed: [n=2] TRUE, FALSE
[18:42:04.245] - queued futures: [n=2] TRUE, FALSE
[18:42:04.245]  - until=2
[18:42:04.246]  - relaying element #2
[18:42:04.246] result() for ClusterFuture ...
[18:42:04.246] - result already collected: FutureResult
[18:42:04.246] result() for ClusterFuture ... done
[18:42:04.246] result() for ClusterFuture ...
[18:42:04.246] - result already collected: FutureResult
[18:42:04.247] result() for ClusterFuture ... done
[18:42:04.247] result() for ClusterFuture ...
[18:42:04.247] - result already collected: FutureResult
[18:42:04.247] result() for ClusterFuture ... done
[18:42:04.247] result() for ClusterFuture ...
[18:42:04.247] - result already collected: FutureResult
[18:42:04.248] result() for ClusterFuture ... done
[18:42:04.248] - relayed: [n=2] TRUE, TRUE
[18:42:04.248] - queued futures: [n=2] TRUE, TRUE
[18:42:04.248] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:04.248]  length: 0 (resolved future 2)
[18:42:04.248] Relaying remaining futures
[18:42:04.249] signalConditionsASAP(NULL, pos=0) ...
[18:42:04.249] - nx: 2
[18:42:04.249] - relay: TRUE
[18:42:04.249] - stdout: TRUE
[18:42:04.249] - signal: TRUE
[18:42:04.249] - resignal: FALSE
[18:42:04.249] - force: TRUE
[18:42:04.250] - relayed: [n=2] TRUE, TRUE
[18:42:04.250] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:04.250] - relayed: [n=2] TRUE, TRUE
[18:42:04.250] - queued futures: [n=2] TRUE, TRUE
[18:42:04.250] signalConditionsASAP(NULL, pos=0) ... done
[18:42:04.250] resolve() on list ... DONE
[18:42:04.251] result() for ClusterFuture ...
[18:42:04.251] - result already collected: FutureResult
[18:42:04.251] result() for ClusterFuture ... done
[18:42:04.251] result() for ClusterFuture ...
[18:42:04.251] - result already collected: FutureResult
[18:42:04.251] result() for ClusterFuture ... done
[18:42:04.252] result() for ClusterFuture ...
[18:42:04.252] - result already collected: FutureResult
[18:42:04.252] result() for ClusterFuture ... done
[18:42:04.252] result() for ClusterFuture ...
[18:42:04.252] - result already collected: FutureResult
[18:42:04.252] result() for ClusterFuture ... done
[18:42:04.253]  - Number of value chunks collected: 2
[18:42:04.253] Resolving 2 futures (chunks) ... DONE
[18:42:04.253] Reducing values from 2 chunks ...
[18:42:04.253]  - Number of values collected after concatenation: 4
[18:42:04.253]  - Number of values expected: 4
[18:42:04.253] Reducing values from 2 chunks ... DONE
[18:42:04.253] future_lapply() ... DONE
 num [1:3, 1:5, 1:4] 100 100 100 200 200 200 300 300 300 400 ...
 - attr(*, "dimnames")=List of 3
  ..$ : NULL
  ..$ : NULL
  ..$ : chr [1:4] "A" "B" "C" "D"
[18:42:04.256] future_lapply() ...
[18:42:04.260] Number of chunks: 2
[18:42:04.261] getGlobalsAndPackagesXApply() ...
[18:42:04.261]  - future.globals: TRUE
[18:42:04.261] getGlobalsAndPackages() ...
[18:42:04.261] Searching for globals...
[18:42:04.265] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:04.265] Searching for globals ... DONE
[18:42:04.265] Resolving globals: FALSE
[18:42:04.267] The total size of the 7 globals is 14.73 KiB (15079 bytes)
[18:42:04.267] The total size of the 7 globals exported for future expression ('FUN()') is 14.73 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (6.74 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:04.267] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.268] - packages: [1] 'future.apply'
[18:42:04.268] getGlobalsAndPackages() ... DONE
[18:42:04.268]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.268]  - needed namespaces: [n=1] 'future.apply'
[18:42:04.268] Finding globals ... DONE
[18:42:04.268]  - use_args: TRUE
[18:42:04.269]  - Getting '...' globals ...
[18:42:04.269] resolve() on list ...
[18:42:04.269]  recursive: 0
[18:42:04.269]  length: 1
[18:42:04.269]  elements: '...'
[18:42:04.270]  length: 0 (resolved future 1)
[18:42:04.270] resolve() on list ... DONE
[18:42:04.270]    - '...' content: [n=0] 
[18:42:04.270] List of 1
[18:42:04.270]  $ ...: list()
[18:42:04.270]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.270]  - attr(*, "where")=List of 1
[18:42:04.270]   ..$ ...:<environment: 0x000002e9fef5bd50> 
[18:42:04.270]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.270]  - attr(*, "resolved")= logi TRUE
[18:42:04.270]  - attr(*, "total_size")= num NA
[18:42:04.273]  - Getting '...' globals ... DONE
[18:42:04.273] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:04.274] List of 8
[18:42:04.274]  $ ...future.FUN:function (x, ...)  
[18:42:04.274]  $ x_FUN        :function (x)  
[18:42:04.274]  $ times        : int 1
[18:42:04.274]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:04.274]  $ stop_if_not  :function (...)  
[18:42:04.274]  $ dim          : NULL
[18:42:04.274]  $ valid_types  : chr "logical"
[18:42:04.274]  $ ...          : list()
[18:42:04.274]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.274]  - attr(*, "where")=List of 8
[18:42:04.274]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:04.274]   ..$ ...          :<environment: 0x000002e9fef5bd50> 
[18:42:04.274]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.274]  - attr(*, "resolved")= logi FALSE
[18:42:04.274]  - attr(*, "total_size")= int 30734
[18:42:04.280] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:04.281] getGlobalsAndPackagesXApply() ... DONE
[18:42:04.281] Number of futures (= number of chunks): 2
[18:42:04.281] Launching 2 futures (chunks) ...
[18:42:04.281] Chunk #1 of 2 ...
[18:42:04.282]  - Finding globals in 'X' for chunk #1 ...
[18:42:04.282] getGlobalsAndPackages() ...
[18:42:04.282] Searching for globals...
[18:42:04.282] 
[18:42:04.282] Searching for globals ... DONE
[18:42:04.283] - globals: [0] <none>
[18:42:04.283] getGlobalsAndPackages() ... DONE
[18:42:04.283]    + additional globals found: [n=0] 
[18:42:04.283]    + additional namespaces needed: [n=0] 
[18:42:04.283]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:04.283]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.283]  - seeds: <none>
[18:42:04.284]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.284] getGlobalsAndPackages() ...
[18:42:04.284] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.284] Resolving globals: FALSE
[18:42:04.284] Tweak future expression to call with '...' arguments ...
[18:42:04.285] {
[18:42:04.285]     do.call(function(...) {
[18:42:04.285]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.285]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.285]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.285]             on.exit(options(oopts), add = TRUE)
[18:42:04.285]         }
[18:42:04.285]         {
[18:42:04.285]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.285]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.285]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.285]             })
[18:42:04.285]         }
[18:42:04.285]     }, args = future.call.arguments)
[18:42:04.285] }
[18:42:04.285] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.286] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.286] - packages: [1] 'future.apply'
[18:42:04.286] getGlobalsAndPackages() ... DONE
[18:42:04.286] run() for 'Future' ...
[18:42:04.287] - state: 'created'
[18:42:04.287] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.302] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.302] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.303]   - Field: 'node'
[18:42:04.303]   - Field: 'label'
[18:42:04.303]   - Field: 'local'
[18:42:04.303]   - Field: 'owner'
[18:42:04.303]   - Field: 'envir'
[18:42:04.304]   - Field: 'workers'
[18:42:04.304]   - Field: 'packages'
[18:42:04.304]   - Field: 'gc'
[18:42:04.304]   - Field: 'conditions'
[18:42:04.304]   - Field: 'persistent'
[18:42:04.304]   - Field: 'expr'
[18:42:04.305]   - Field: 'uuid'
[18:42:04.305]   - Field: 'seed'
[18:42:04.305]   - Field: 'version'
[18:42:04.305]   - Field: 'result'
[18:42:04.305]   - Field: 'asynchronous'
[18:42:04.305]   - Field: 'calls'
[18:42:04.306]   - Field: 'globals'
[18:42:04.306]   - Field: 'stdout'
[18:42:04.306]   - Field: 'earlySignal'
[18:42:04.306]   - Field: 'lazy'
[18:42:04.306]   - Field: 'state'
[18:42:04.307] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.307] - Launch lazy future ...
[18:42:04.307] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.307] Packages needed by future strategies (n = 0): <none>
[18:42:04.308] {
[18:42:04.308]     {
[18:42:04.308]         {
[18:42:04.308]             ...future.startTime <- base::Sys.time()
[18:42:04.308]             {
[18:42:04.308]                 {
[18:42:04.308]                   {
[18:42:04.308]                     {
[18:42:04.308]                       {
[18:42:04.308]                         base::local({
[18:42:04.308]                           has_future <- base::requireNamespace("future", 
[18:42:04.308]                             quietly = TRUE)
[18:42:04.308]                           if (has_future) {
[18:42:04.308]                             ns <- base::getNamespace("future")
[18:42:04.308]                             version <- ns[[".package"]][["version"]]
[18:42:04.308]                             if (is.null(version)) 
[18:42:04.308]                               version <- utils::packageVersion("future")
[18:42:04.308]                           }
[18:42:04.308]                           else {
[18:42:04.308]                             version <- NULL
[18:42:04.308]                           }
[18:42:04.308]                           if (!has_future || version < "1.8.0") {
[18:42:04.308]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.308]                               "", base::R.version$version.string), 
[18:42:04.308]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.308]                                 base::R.version$platform, 8 * 
[18:42:04.308]                                   base::.Machine$sizeof.pointer), 
[18:42:04.308]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.308]                                 "release", "version")], collapse = " "), 
[18:42:04.308]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.308]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.308]                               info)
[18:42:04.308]                             info <- base::paste(info, collapse = "; ")
[18:42:04.308]                             if (!has_future) {
[18:42:04.308]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.308]                                 info)
[18:42:04.308]                             }
[18:42:04.308]                             else {
[18:42:04.308]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.308]                                 info, version)
[18:42:04.308]                             }
[18:42:04.308]                             base::stop(msg)
[18:42:04.308]                           }
[18:42:04.308]                         })
[18:42:04.308]                       }
[18:42:04.308]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.308]                       base::options(mc.cores = 1L)
[18:42:04.308]                     }
[18:42:04.308]                     base::local({
[18:42:04.308]                       for (pkg in "future.apply") {
[18:42:04.308]                         base::loadNamespace(pkg)
[18:42:04.308]                         base::library(pkg, character.only = TRUE)
[18:42:04.308]                       }
[18:42:04.308]                     })
[18:42:04.308]                   }
[18:42:04.308]                   ...future.strategy.old <- future::plan("list")
[18:42:04.308]                   options(future.plan = NULL)
[18:42:04.308]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.308]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.308]                 }
[18:42:04.308]                 ...future.workdir <- getwd()
[18:42:04.308]             }
[18:42:04.308]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.308]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.308]         }
[18:42:04.308]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.308]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.308]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.308]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.308]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.308]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.308]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.308]             base::names(...future.oldOptions))
[18:42:04.308]     }
[18:42:04.308]     if (FALSE) {
[18:42:04.308]     }
[18:42:04.308]     else {
[18:42:04.308]         if (TRUE) {
[18:42:04.308]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.308]                 open = "w")
[18:42:04.308]         }
[18:42:04.308]         else {
[18:42:04.308]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.308]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.308]         }
[18:42:04.308]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.308]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.308]             base::sink(type = "output", split = FALSE)
[18:42:04.308]             base::close(...future.stdout)
[18:42:04.308]         }, add = TRUE)
[18:42:04.308]     }
[18:42:04.308]     ...future.frame <- base::sys.nframe()
[18:42:04.308]     ...future.conditions <- base::list()
[18:42:04.308]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.308]     if (FALSE) {
[18:42:04.308]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.308]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.308]     }
[18:42:04.308]     ...future.result <- base::tryCatch({
[18:42:04.308]         base::withCallingHandlers({
[18:42:04.308]             ...future.value <- base::withVisible(base::local({
[18:42:04.308]                 ...future.makeSendCondition <- base::local({
[18:42:04.308]                   sendCondition <- NULL
[18:42:04.308]                   function(frame = 1L) {
[18:42:04.308]                     if (is.function(sendCondition)) 
[18:42:04.308]                       return(sendCondition)
[18:42:04.308]                     ns <- getNamespace("parallel")
[18:42:04.308]                     if (exists("sendData", mode = "function", 
[18:42:04.308]                       envir = ns)) {
[18:42:04.308]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.308]                         envir = ns)
[18:42:04.308]                       envir <- sys.frame(frame)
[18:42:04.308]                       master <- NULL
[18:42:04.308]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.308]                         !identical(envir, emptyenv())) {
[18:42:04.308]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.308]                           inherits = FALSE)) {
[18:42:04.308]                           master <- get("master", mode = "list", 
[18:42:04.308]                             envir = envir, inherits = FALSE)
[18:42:04.308]                           if (inherits(master, c("SOCKnode", 
[18:42:04.308]                             "SOCK0node"))) {
[18:42:04.308]                             sendCondition <<- function(cond) {
[18:42:04.308]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.308]                                 success = TRUE)
[18:42:04.308]                               parallel_sendData(master, data)
[18:42:04.308]                             }
[18:42:04.308]                             return(sendCondition)
[18:42:04.308]                           }
[18:42:04.308]                         }
[18:42:04.308]                         frame <- frame + 1L
[18:42:04.308]                         envir <- sys.frame(frame)
[18:42:04.308]                       }
[18:42:04.308]                     }
[18:42:04.308]                     sendCondition <<- function(cond) NULL
[18:42:04.308]                   }
[18:42:04.308]                 })
[18:42:04.308]                 withCallingHandlers({
[18:42:04.308]                   {
[18:42:04.308]                     do.call(function(...) {
[18:42:04.308]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.308]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.308]                         ...future.globals.maxSize)) {
[18:42:04.308]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.308]                         on.exit(options(oopts), add = TRUE)
[18:42:04.308]                       }
[18:42:04.308]                       {
[18:42:04.308]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.308]                           FUN = function(jj) {
[18:42:04.308]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.308]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.308]                           })
[18:42:04.308]                       }
[18:42:04.308]                     }, args = future.call.arguments)
[18:42:04.308]                   }
[18:42:04.308]                 }, immediateCondition = function(cond) {
[18:42:04.308]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.308]                   sendCondition(cond)
[18:42:04.308]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.308]                   {
[18:42:04.308]                     inherits <- base::inherits
[18:42:04.308]                     invokeRestart <- base::invokeRestart
[18:42:04.308]                     is.null <- base::is.null
[18:42:04.308]                     muffled <- FALSE
[18:42:04.308]                     if (inherits(cond, "message")) {
[18:42:04.308]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.308]                       if (muffled) 
[18:42:04.308]                         invokeRestart("muffleMessage")
[18:42:04.308]                     }
[18:42:04.308]                     else if (inherits(cond, "warning")) {
[18:42:04.308]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.308]                       if (muffled) 
[18:42:04.308]                         invokeRestart("muffleWarning")
[18:42:04.308]                     }
[18:42:04.308]                     else if (inherits(cond, "condition")) {
[18:42:04.308]                       if (!is.null(pattern)) {
[18:42:04.308]                         computeRestarts <- base::computeRestarts
[18:42:04.308]                         grepl <- base::grepl
[18:42:04.308]                         restarts <- computeRestarts(cond)
[18:42:04.308]                         for (restart in restarts) {
[18:42:04.308]                           name <- restart$name
[18:42:04.308]                           if (is.null(name)) 
[18:42:04.308]                             next
[18:42:04.308]                           if (!grepl(pattern, name)) 
[18:42:04.308]                             next
[18:42:04.308]                           invokeRestart(restart)
[18:42:04.308]                           muffled <- TRUE
[18:42:04.308]                           break
[18:42:04.308]                         }
[18:42:04.308]                       }
[18:42:04.308]                     }
[18:42:04.308]                     invisible(muffled)
[18:42:04.308]                   }
[18:42:04.308]                   muffleCondition(cond)
[18:42:04.308]                 })
[18:42:04.308]             }))
[18:42:04.308]             future::FutureResult(value = ...future.value$value, 
[18:42:04.308]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.308]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.308]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.308]                     ...future.globalenv.names))
[18:42:04.308]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.308]         }, condition = base::local({
[18:42:04.308]             c <- base::c
[18:42:04.308]             inherits <- base::inherits
[18:42:04.308]             invokeRestart <- base::invokeRestart
[18:42:04.308]             length <- base::length
[18:42:04.308]             list <- base::list
[18:42:04.308]             seq.int <- base::seq.int
[18:42:04.308]             signalCondition <- base::signalCondition
[18:42:04.308]             sys.calls <- base::sys.calls
[18:42:04.308]             `[[` <- base::`[[`
[18:42:04.308]             `+` <- base::`+`
[18:42:04.308]             `<<-` <- base::`<<-`
[18:42:04.308]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.308]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.308]                   3L)]
[18:42:04.308]             }
[18:42:04.308]             function(cond) {
[18:42:04.308]                 is_error <- inherits(cond, "error")
[18:42:04.308]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.308]                   NULL)
[18:42:04.308]                 if (is_error) {
[18:42:04.308]                   sessionInformation <- function() {
[18:42:04.308]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.308]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.308]                       search = base::search(), system = base::Sys.info())
[18:42:04.308]                   }
[18:42:04.308]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.308]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.308]                     cond$call), session = sessionInformation(), 
[18:42:04.308]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.308]                   signalCondition(cond)
[18:42:04.308]                 }
[18:42:04.308]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.308]                 "immediateCondition"))) {
[18:42:04.308]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.308]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.308]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.308]                   if (TRUE && !signal) {
[18:42:04.308]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.308]                     {
[18:42:04.308]                       inherits <- base::inherits
[18:42:04.308]                       invokeRestart <- base::invokeRestart
[18:42:04.308]                       is.null <- base::is.null
[18:42:04.308]                       muffled <- FALSE
[18:42:04.308]                       if (inherits(cond, "message")) {
[18:42:04.308]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.308]                         if (muffled) 
[18:42:04.308]                           invokeRestart("muffleMessage")
[18:42:04.308]                       }
[18:42:04.308]                       else if (inherits(cond, "warning")) {
[18:42:04.308]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.308]                         if (muffled) 
[18:42:04.308]                           invokeRestart("muffleWarning")
[18:42:04.308]                       }
[18:42:04.308]                       else if (inherits(cond, "condition")) {
[18:42:04.308]                         if (!is.null(pattern)) {
[18:42:04.308]                           computeRestarts <- base::computeRestarts
[18:42:04.308]                           grepl <- base::grepl
[18:42:04.308]                           restarts <- computeRestarts(cond)
[18:42:04.308]                           for (restart in restarts) {
[18:42:04.308]                             name <- restart$name
[18:42:04.308]                             if (is.null(name)) 
[18:42:04.308]                               next
[18:42:04.308]                             if (!grepl(pattern, name)) 
[18:42:04.308]                               next
[18:42:04.308]                             invokeRestart(restart)
[18:42:04.308]                             muffled <- TRUE
[18:42:04.308]                             break
[18:42:04.308]                           }
[18:42:04.308]                         }
[18:42:04.308]                       }
[18:42:04.308]                       invisible(muffled)
[18:42:04.308]                     }
[18:42:04.308]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.308]                   }
[18:42:04.308]                 }
[18:42:04.308]                 else {
[18:42:04.308]                   if (TRUE) {
[18:42:04.308]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.308]                     {
[18:42:04.308]                       inherits <- base::inherits
[18:42:04.308]                       invokeRestart <- base::invokeRestart
[18:42:04.308]                       is.null <- base::is.null
[18:42:04.308]                       muffled <- FALSE
[18:42:04.308]                       if (inherits(cond, "message")) {
[18:42:04.308]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.308]                         if (muffled) 
[18:42:04.308]                           invokeRestart("muffleMessage")
[18:42:04.308]                       }
[18:42:04.308]                       else if (inherits(cond, "warning")) {
[18:42:04.308]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.308]                         if (muffled) 
[18:42:04.308]                           invokeRestart("muffleWarning")
[18:42:04.308]                       }
[18:42:04.308]                       else if (inherits(cond, "condition")) {
[18:42:04.308]                         if (!is.null(pattern)) {
[18:42:04.308]                           computeRestarts <- base::computeRestarts
[18:42:04.308]                           grepl <- base::grepl
[18:42:04.308]                           restarts <- computeRestarts(cond)
[18:42:04.308]                           for (restart in restarts) {
[18:42:04.308]                             name <- restart$name
[18:42:04.308]                             if (is.null(name)) 
[18:42:04.308]                               next
[18:42:04.308]                             if (!grepl(pattern, name)) 
[18:42:04.308]                               next
[18:42:04.308]                             invokeRestart(restart)
[18:42:04.308]                             muffled <- TRUE
[18:42:04.308]                             break
[18:42:04.308]                           }
[18:42:04.308]                         }
[18:42:04.308]                       }
[18:42:04.308]                       invisible(muffled)
[18:42:04.308]                     }
[18:42:04.308]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.308]                   }
[18:42:04.308]                 }
[18:42:04.308]             }
[18:42:04.308]         }))
[18:42:04.308]     }, error = function(ex) {
[18:42:04.308]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.308]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.308]                 ...future.rng), started = ...future.startTime, 
[18:42:04.308]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.308]             version = "1.8"), class = "FutureResult")
[18:42:04.308]     }, finally = {
[18:42:04.308]         if (!identical(...future.workdir, getwd())) 
[18:42:04.308]             setwd(...future.workdir)
[18:42:04.308]         {
[18:42:04.308]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.308]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.308]             }
[18:42:04.308]             base::options(...future.oldOptions)
[18:42:04.308]             if (.Platform$OS.type == "windows") {
[18:42:04.308]                 old_names <- names(...future.oldEnvVars)
[18:42:04.308]                 envs <- base::Sys.getenv()
[18:42:04.308]                 names <- names(envs)
[18:42:04.308]                 common <- intersect(names, old_names)
[18:42:04.308]                 added <- setdiff(names, old_names)
[18:42:04.308]                 removed <- setdiff(old_names, names)
[18:42:04.308]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.308]                   envs[common]]
[18:42:04.308]                 NAMES <- toupper(changed)
[18:42:04.308]                 args <- list()
[18:42:04.308]                 for (kk in seq_along(NAMES)) {
[18:42:04.308]                   name <- changed[[kk]]
[18:42:04.308]                   NAME <- NAMES[[kk]]
[18:42:04.308]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.308]                     next
[18:42:04.308]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.308]                 }
[18:42:04.308]                 NAMES <- toupper(added)
[18:42:04.308]                 for (kk in seq_along(NAMES)) {
[18:42:04.308]                   name <- added[[kk]]
[18:42:04.308]                   NAME <- NAMES[[kk]]
[18:42:04.308]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.308]                     next
[18:42:04.308]                   args[[name]] <- ""
[18:42:04.308]                 }
[18:42:04.308]                 NAMES <- toupper(removed)
[18:42:04.308]                 for (kk in seq_along(NAMES)) {
[18:42:04.308]                   name <- removed[[kk]]
[18:42:04.308]                   NAME <- NAMES[[kk]]
[18:42:04.308]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.308]                     next
[18:42:04.308]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.308]                 }
[18:42:04.308]                 if (length(args) > 0) 
[18:42:04.308]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.308]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.308]             }
[18:42:04.308]             else {
[18:42:04.308]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.308]             }
[18:42:04.308]             {
[18:42:04.308]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.308]                   0L) {
[18:42:04.308]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.308]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.308]                   base::options(opts)
[18:42:04.308]                 }
[18:42:04.308]                 {
[18:42:04.308]                   {
[18:42:04.308]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.308]                     NULL
[18:42:04.308]                   }
[18:42:04.308]                   options(future.plan = NULL)
[18:42:04.308]                   if (is.na(NA_character_)) 
[18:42:04.308]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.308]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.308]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.308]                     .init = FALSE)
[18:42:04.308]                 }
[18:42:04.308]             }
[18:42:04.308]         }
[18:42:04.308]     })
[18:42:04.308]     if (TRUE) {
[18:42:04.308]         base::sink(type = "output", split = FALSE)
[18:42:04.308]         if (TRUE) {
[18:42:04.308]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.308]         }
[18:42:04.308]         else {
[18:42:04.308]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.308]         }
[18:42:04.308]         base::close(...future.stdout)
[18:42:04.308]         ...future.stdout <- NULL
[18:42:04.308]     }
[18:42:04.308]     ...future.result$conditions <- ...future.conditions
[18:42:04.308]     ...future.result$finished <- base::Sys.time()
[18:42:04.308]     ...future.result
[18:42:04.308] }
[18:42:04.313] Exporting 11 global objects (16.77 KiB) to cluster node #1 ...
[18:42:04.314] Exporting '...future.FUN' (6.73 KiB) to cluster node #1 ...
[18:42:04.315] Exporting '...future.FUN' (6.73 KiB) to cluster node #1 ... DONE
[18:42:04.315] Exporting 'x_FUN' (41 bytes) to cluster node #1 ...
[18:42:04.316] Exporting 'x_FUN' (41 bytes) to cluster node #1 ... DONE
[18:42:04.316] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.316] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.317] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.318] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.318] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.319] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.319] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:04.319] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:04.319] Exporting 'valid_types' (46 bytes) to cluster node #1 ...
[18:42:04.320] Exporting 'valid_types' (46 bytes) to cluster node #1 ... DONE
[18:42:04.320] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:04.320] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:04.321] Exporting '...future.elements_ii' (1.67 KiB) to cluster node #1 ...
[18:42:04.321] Exporting '...future.elements_ii' (1.67 KiB) to cluster node #1 ... DONE
[18:42:04.321] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.322] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.322] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.322] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.323] Exporting 11 global objects (16.77 KiB) to cluster node #1 ... DONE
[18:42:04.323] MultisessionFuture started
[18:42:04.324] - Launch lazy future ... done
[18:42:04.324] run() for 'MultisessionFuture' ... done
[18:42:04.324] Created future:
[18:42:04.345] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.345] - Validating connection of MultisessionFuture
[18:42:04.346] - received message: FutureResult
[18:42:04.346] - Received FutureResult
[18:42:04.346] - Erased future from FutureRegistry
[18:42:04.346] result() for ClusterFuture ...
[18:42:04.346] - result already collected: FutureResult
[18:42:04.347] result() for ClusterFuture ... done
[18:42:04.347] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.324] MultisessionFuture:
[18:42:04.324] Label: 'future_vapply-1'
[18:42:04.324] Expression:
[18:42:04.324] {
[18:42:04.324]     do.call(function(...) {
[18:42:04.324]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.324]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.324]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.324]             on.exit(options(oopts), add = TRUE)
[18:42:04.324]         }
[18:42:04.324]         {
[18:42:04.324]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.324]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.324]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.324]             })
[18:42:04.324]         }
[18:42:04.324]     }, args = future.call.arguments)
[18:42:04.324] }
[18:42:04.324] Lazy evaluation: FALSE
[18:42:04.324] Asynchronous evaluation: TRUE
[18:42:04.324] Local evaluation: TRUE
[18:42:04.324] Environment: R_GlobalEnv
[18:42:04.324] Capture standard output: TRUE
[18:42:04.324] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.324] Globals: 11 objects totaling 16.54 KiB (function '...future.FUN' of 6.73 KiB, function 'x_FUN' of 41 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.324] Packages: 1 packages ('future.apply')
[18:42:04.324] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.324] Resolved: TRUE
[18:42:04.324] Value: <not collected>
[18:42:04.324] Conditions captured: <none>
[18:42:04.324] Early signaling: FALSE
[18:42:04.324] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.324] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.347] Chunk #1 of 2 ... DONE
[18:42:04.347] Chunk #2 of 2 ...
[18:42:04.348]  - Finding globals in 'X' for chunk #2 ...
[18:42:04.348] getGlobalsAndPackages() ...
[18:42:04.348] Searching for globals...
[18:42:04.348] 
[18:42:04.348] Searching for globals ... DONE
[18:42:04.349] - globals: [0] <none>
[18:42:04.349] getGlobalsAndPackages() ... DONE
[18:42:04.349]    + additional globals found: [n=0] 
[18:42:04.349]    + additional namespaces needed: [n=0] 
[18:42:04.349]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:04.349]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.349]  - seeds: <none>
[18:42:04.350]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.350] getGlobalsAndPackages() ...
[18:42:04.350] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.350] Resolving globals: FALSE
[18:42:04.350] Tweak future expression to call with '...' arguments ...
[18:42:04.351] {
[18:42:04.351]     do.call(function(...) {
[18:42:04.351]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.351]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.351]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.351]             on.exit(options(oopts), add = TRUE)
[18:42:04.351]         }
[18:42:04.351]         {
[18:42:04.351]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.351]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.351]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.351]             })
[18:42:04.351]         }
[18:42:04.351]     }, args = future.call.arguments)
[18:42:04.351] }
[18:42:04.351] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.352] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.352] - packages: [1] 'future.apply'
[18:42:04.352] getGlobalsAndPackages() ... DONE
[18:42:04.352] run() for 'Future' ...
[18:42:04.353] - state: 'created'
[18:42:04.353] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.369] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.369] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.369]   - Field: 'node'
[18:42:04.369]   - Field: 'label'
[18:42:04.369]   - Field: 'local'
[18:42:04.370]   - Field: 'owner'
[18:42:04.370]   - Field: 'envir'
[18:42:04.373]   - Field: 'workers'
[18:42:04.373]   - Field: 'packages'
[18:42:04.373]   - Field: 'gc'
[18:42:04.373]   - Field: 'conditions'
[18:42:04.374]   - Field: 'persistent'
[18:42:04.374]   - Field: 'expr'
[18:42:04.374]   - Field: 'uuid'
[18:42:04.374]   - Field: 'seed'
[18:42:04.374]   - Field: 'version'
[18:42:04.375]   - Field: 'result'
[18:42:04.375]   - Field: 'asynchronous'
[18:42:04.375]   - Field: 'calls'
[18:42:04.375]   - Field: 'globals'
[18:42:04.375]   - Field: 'stdout'
[18:42:04.376]   - Field: 'earlySignal'
[18:42:04.376]   - Field: 'lazy'
[18:42:04.376]   - Field: 'state'
[18:42:04.376] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.376] - Launch lazy future ...
[18:42:04.377] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.377] Packages needed by future strategies (n = 0): <none>
[18:42:04.377] {
[18:42:04.377]     {
[18:42:04.377]         {
[18:42:04.377]             ...future.startTime <- base::Sys.time()
[18:42:04.377]             {
[18:42:04.377]                 {
[18:42:04.377]                   {
[18:42:04.377]                     {
[18:42:04.377]                       {
[18:42:04.377]                         base::local({
[18:42:04.377]                           has_future <- base::requireNamespace("future", 
[18:42:04.377]                             quietly = TRUE)
[18:42:04.377]                           if (has_future) {
[18:42:04.377]                             ns <- base::getNamespace("future")
[18:42:04.377]                             version <- ns[[".package"]][["version"]]
[18:42:04.377]                             if (is.null(version)) 
[18:42:04.377]                               version <- utils::packageVersion("future")
[18:42:04.377]                           }
[18:42:04.377]                           else {
[18:42:04.377]                             version <- NULL
[18:42:04.377]                           }
[18:42:04.377]                           if (!has_future || version < "1.8.0") {
[18:42:04.377]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.377]                               "", base::R.version$version.string), 
[18:42:04.377]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.377]                                 base::R.version$platform, 8 * 
[18:42:04.377]                                   base::.Machine$sizeof.pointer), 
[18:42:04.377]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.377]                                 "release", "version")], collapse = " "), 
[18:42:04.377]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.377]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.377]                               info)
[18:42:04.377]                             info <- base::paste(info, collapse = "; ")
[18:42:04.377]                             if (!has_future) {
[18:42:04.377]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.377]                                 info)
[18:42:04.377]                             }
[18:42:04.377]                             else {
[18:42:04.377]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.377]                                 info, version)
[18:42:04.377]                             }
[18:42:04.377]                             base::stop(msg)
[18:42:04.377]                           }
[18:42:04.377]                         })
[18:42:04.377]                       }
[18:42:04.377]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.377]                       base::options(mc.cores = 1L)
[18:42:04.377]                     }
[18:42:04.377]                     base::local({
[18:42:04.377]                       for (pkg in "future.apply") {
[18:42:04.377]                         base::loadNamespace(pkg)
[18:42:04.377]                         base::library(pkg, character.only = TRUE)
[18:42:04.377]                       }
[18:42:04.377]                     })
[18:42:04.377]                   }
[18:42:04.377]                   ...future.strategy.old <- future::plan("list")
[18:42:04.377]                   options(future.plan = NULL)
[18:42:04.377]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.377]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.377]                 }
[18:42:04.377]                 ...future.workdir <- getwd()
[18:42:04.377]             }
[18:42:04.377]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.377]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.377]         }
[18:42:04.377]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.377]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.377]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.377]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.377]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.377]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.377]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.377]             base::names(...future.oldOptions))
[18:42:04.377]     }
[18:42:04.377]     if (FALSE) {
[18:42:04.377]     }
[18:42:04.377]     else {
[18:42:04.377]         if (TRUE) {
[18:42:04.377]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.377]                 open = "w")
[18:42:04.377]         }
[18:42:04.377]         else {
[18:42:04.377]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.377]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.377]         }
[18:42:04.377]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.377]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.377]             base::sink(type = "output", split = FALSE)
[18:42:04.377]             base::close(...future.stdout)
[18:42:04.377]         }, add = TRUE)
[18:42:04.377]     }
[18:42:04.377]     ...future.frame <- base::sys.nframe()
[18:42:04.377]     ...future.conditions <- base::list()
[18:42:04.377]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.377]     if (FALSE) {
[18:42:04.377]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.377]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.377]     }
[18:42:04.377]     ...future.result <- base::tryCatch({
[18:42:04.377]         base::withCallingHandlers({
[18:42:04.377]             ...future.value <- base::withVisible(base::local({
[18:42:04.377]                 ...future.makeSendCondition <- base::local({
[18:42:04.377]                   sendCondition <- NULL
[18:42:04.377]                   function(frame = 1L) {
[18:42:04.377]                     if (is.function(sendCondition)) 
[18:42:04.377]                       return(sendCondition)
[18:42:04.377]                     ns <- getNamespace("parallel")
[18:42:04.377]                     if (exists("sendData", mode = "function", 
[18:42:04.377]                       envir = ns)) {
[18:42:04.377]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.377]                         envir = ns)
[18:42:04.377]                       envir <- sys.frame(frame)
[18:42:04.377]                       master <- NULL
[18:42:04.377]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.377]                         !identical(envir, emptyenv())) {
[18:42:04.377]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.377]                           inherits = FALSE)) {
[18:42:04.377]                           master <- get("master", mode = "list", 
[18:42:04.377]                             envir = envir, inherits = FALSE)
[18:42:04.377]                           if (inherits(master, c("SOCKnode", 
[18:42:04.377]                             "SOCK0node"))) {
[18:42:04.377]                             sendCondition <<- function(cond) {
[18:42:04.377]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.377]                                 success = TRUE)
[18:42:04.377]                               parallel_sendData(master, data)
[18:42:04.377]                             }
[18:42:04.377]                             return(sendCondition)
[18:42:04.377]                           }
[18:42:04.377]                         }
[18:42:04.377]                         frame <- frame + 1L
[18:42:04.377]                         envir <- sys.frame(frame)
[18:42:04.377]                       }
[18:42:04.377]                     }
[18:42:04.377]                     sendCondition <<- function(cond) NULL
[18:42:04.377]                   }
[18:42:04.377]                 })
[18:42:04.377]                 withCallingHandlers({
[18:42:04.377]                   {
[18:42:04.377]                     do.call(function(...) {
[18:42:04.377]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.377]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.377]                         ...future.globals.maxSize)) {
[18:42:04.377]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.377]                         on.exit(options(oopts), add = TRUE)
[18:42:04.377]                       }
[18:42:04.377]                       {
[18:42:04.377]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.377]                           FUN = function(jj) {
[18:42:04.377]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.377]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.377]                           })
[18:42:04.377]                       }
[18:42:04.377]                     }, args = future.call.arguments)
[18:42:04.377]                   }
[18:42:04.377]                 }, immediateCondition = function(cond) {
[18:42:04.377]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.377]                   sendCondition(cond)
[18:42:04.377]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.377]                   {
[18:42:04.377]                     inherits <- base::inherits
[18:42:04.377]                     invokeRestart <- base::invokeRestart
[18:42:04.377]                     is.null <- base::is.null
[18:42:04.377]                     muffled <- FALSE
[18:42:04.377]                     if (inherits(cond, "message")) {
[18:42:04.377]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.377]                       if (muffled) 
[18:42:04.377]                         invokeRestart("muffleMessage")
[18:42:04.377]                     }
[18:42:04.377]                     else if (inherits(cond, "warning")) {
[18:42:04.377]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.377]                       if (muffled) 
[18:42:04.377]                         invokeRestart("muffleWarning")
[18:42:04.377]                     }
[18:42:04.377]                     else if (inherits(cond, "condition")) {
[18:42:04.377]                       if (!is.null(pattern)) {
[18:42:04.377]                         computeRestarts <- base::computeRestarts
[18:42:04.377]                         grepl <- base::grepl
[18:42:04.377]                         restarts <- computeRestarts(cond)
[18:42:04.377]                         for (restart in restarts) {
[18:42:04.377]                           name <- restart$name
[18:42:04.377]                           if (is.null(name)) 
[18:42:04.377]                             next
[18:42:04.377]                           if (!grepl(pattern, name)) 
[18:42:04.377]                             next
[18:42:04.377]                           invokeRestart(restart)
[18:42:04.377]                           muffled <- TRUE
[18:42:04.377]                           break
[18:42:04.377]                         }
[18:42:04.377]                       }
[18:42:04.377]                     }
[18:42:04.377]                     invisible(muffled)
[18:42:04.377]                   }
[18:42:04.377]                   muffleCondition(cond)
[18:42:04.377]                 })
[18:42:04.377]             }))
[18:42:04.377]             future::FutureResult(value = ...future.value$value, 
[18:42:04.377]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.377]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.377]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.377]                     ...future.globalenv.names))
[18:42:04.377]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.377]         }, condition = base::local({
[18:42:04.377]             c <- base::c
[18:42:04.377]             inherits <- base::inherits
[18:42:04.377]             invokeRestart <- base::invokeRestart
[18:42:04.377]             length <- base::length
[18:42:04.377]             list <- base::list
[18:42:04.377]             seq.int <- base::seq.int
[18:42:04.377]             signalCondition <- base::signalCondition
[18:42:04.377]             sys.calls <- base::sys.calls
[18:42:04.377]             `[[` <- base::`[[`
[18:42:04.377]             `+` <- base::`+`
[18:42:04.377]             `<<-` <- base::`<<-`
[18:42:04.377]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.377]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.377]                   3L)]
[18:42:04.377]             }
[18:42:04.377]             function(cond) {
[18:42:04.377]                 is_error <- inherits(cond, "error")
[18:42:04.377]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.377]                   NULL)
[18:42:04.377]                 if (is_error) {
[18:42:04.377]                   sessionInformation <- function() {
[18:42:04.377]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.377]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.377]                       search = base::search(), system = base::Sys.info())
[18:42:04.377]                   }
[18:42:04.377]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.377]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.377]                     cond$call), session = sessionInformation(), 
[18:42:04.377]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.377]                   signalCondition(cond)
[18:42:04.377]                 }
[18:42:04.377]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.377]                 "immediateCondition"))) {
[18:42:04.377]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.377]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.377]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.377]                   if (TRUE && !signal) {
[18:42:04.377]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.377]                     {
[18:42:04.377]                       inherits <- base::inherits
[18:42:04.377]                       invokeRestart <- base::invokeRestart
[18:42:04.377]                       is.null <- base::is.null
[18:42:04.377]                       muffled <- FALSE
[18:42:04.377]                       if (inherits(cond, "message")) {
[18:42:04.377]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.377]                         if (muffled) 
[18:42:04.377]                           invokeRestart("muffleMessage")
[18:42:04.377]                       }
[18:42:04.377]                       else if (inherits(cond, "warning")) {
[18:42:04.377]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.377]                         if (muffled) 
[18:42:04.377]                           invokeRestart("muffleWarning")
[18:42:04.377]                       }
[18:42:04.377]                       else if (inherits(cond, "condition")) {
[18:42:04.377]                         if (!is.null(pattern)) {
[18:42:04.377]                           computeRestarts <- base::computeRestarts
[18:42:04.377]                           grepl <- base::grepl
[18:42:04.377]                           restarts <- computeRestarts(cond)
[18:42:04.377]                           for (restart in restarts) {
[18:42:04.377]                             name <- restart$name
[18:42:04.377]                             if (is.null(name)) 
[18:42:04.377]                               next
[18:42:04.377]                             if (!grepl(pattern, name)) 
[18:42:04.377]                               next
[18:42:04.377]                             invokeRestart(restart)
[18:42:04.377]                             muffled <- TRUE
[18:42:04.377]                             break
[18:42:04.377]                           }
[18:42:04.377]                         }
[18:42:04.377]                       }
[18:42:04.377]                       invisible(muffled)
[18:42:04.377]                     }
[18:42:04.377]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.377]                   }
[18:42:04.377]                 }
[18:42:04.377]                 else {
[18:42:04.377]                   if (TRUE) {
[18:42:04.377]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.377]                     {
[18:42:04.377]                       inherits <- base::inherits
[18:42:04.377]                       invokeRestart <- base::invokeRestart
[18:42:04.377]                       is.null <- base::is.null
[18:42:04.377]                       muffled <- FALSE
[18:42:04.377]                       if (inherits(cond, "message")) {
[18:42:04.377]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.377]                         if (muffled) 
[18:42:04.377]                           invokeRestart("muffleMessage")
[18:42:04.377]                       }
[18:42:04.377]                       else if (inherits(cond, "warning")) {
[18:42:04.377]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.377]                         if (muffled) 
[18:42:04.377]                           invokeRestart("muffleWarning")
[18:42:04.377]                       }
[18:42:04.377]                       else if (inherits(cond, "condition")) {
[18:42:04.377]                         if (!is.null(pattern)) {
[18:42:04.377]                           computeRestarts <- base::computeRestarts
[18:42:04.377]                           grepl <- base::grepl
[18:42:04.377]                           restarts <- computeRestarts(cond)
[18:42:04.377]                           for (restart in restarts) {
[18:42:04.377]                             name <- restart$name
[18:42:04.377]                             if (is.null(name)) 
[18:42:04.377]                               next
[18:42:04.377]                             if (!grepl(pattern, name)) 
[18:42:04.377]                               next
[18:42:04.377]                             invokeRestart(restart)
[18:42:04.377]                             muffled <- TRUE
[18:42:04.377]                             break
[18:42:04.377]                           }
[18:42:04.377]                         }
[18:42:04.377]                       }
[18:42:04.377]                       invisible(muffled)
[18:42:04.377]                     }
[18:42:04.377]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.377]                   }
[18:42:04.377]                 }
[18:42:04.377]             }
[18:42:04.377]         }))
[18:42:04.377]     }, error = function(ex) {
[18:42:04.377]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.377]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.377]                 ...future.rng), started = ...future.startTime, 
[18:42:04.377]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.377]             version = "1.8"), class = "FutureResult")
[18:42:04.377]     }, finally = {
[18:42:04.377]         if (!identical(...future.workdir, getwd())) 
[18:42:04.377]             setwd(...future.workdir)
[18:42:04.377]         {
[18:42:04.377]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.377]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.377]             }
[18:42:04.377]             base::options(...future.oldOptions)
[18:42:04.377]             if (.Platform$OS.type == "windows") {
[18:42:04.377]                 old_names <- names(...future.oldEnvVars)
[18:42:04.377]                 envs <- base::Sys.getenv()
[18:42:04.377]                 names <- names(envs)
[18:42:04.377]                 common <- intersect(names, old_names)
[18:42:04.377]                 added <- setdiff(names, old_names)
[18:42:04.377]                 removed <- setdiff(old_names, names)
[18:42:04.377]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.377]                   envs[common]]
[18:42:04.377]                 NAMES <- toupper(changed)
[18:42:04.377]                 args <- list()
[18:42:04.377]                 for (kk in seq_along(NAMES)) {
[18:42:04.377]                   name <- changed[[kk]]
[18:42:04.377]                   NAME <- NAMES[[kk]]
[18:42:04.377]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.377]                     next
[18:42:04.377]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.377]                 }
[18:42:04.377]                 NAMES <- toupper(added)
[18:42:04.377]                 for (kk in seq_along(NAMES)) {
[18:42:04.377]                   name <- added[[kk]]
[18:42:04.377]                   NAME <- NAMES[[kk]]
[18:42:04.377]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.377]                     next
[18:42:04.377]                   args[[name]] <- ""
[18:42:04.377]                 }
[18:42:04.377]                 NAMES <- toupper(removed)
[18:42:04.377]                 for (kk in seq_along(NAMES)) {
[18:42:04.377]                   name <- removed[[kk]]
[18:42:04.377]                   NAME <- NAMES[[kk]]
[18:42:04.377]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.377]                     next
[18:42:04.377]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.377]                 }
[18:42:04.377]                 if (length(args) > 0) 
[18:42:04.377]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.377]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.377]             }
[18:42:04.377]             else {
[18:42:04.377]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.377]             }
[18:42:04.377]             {
[18:42:04.377]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.377]                   0L) {
[18:42:04.377]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.377]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.377]                   base::options(opts)
[18:42:04.377]                 }
[18:42:04.377]                 {
[18:42:04.377]                   {
[18:42:04.377]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.377]                     NULL
[18:42:04.377]                   }
[18:42:04.377]                   options(future.plan = NULL)
[18:42:04.377]                   if (is.na(NA_character_)) 
[18:42:04.377]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.377]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.377]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.377]                     .init = FALSE)
[18:42:04.377]                 }
[18:42:04.377]             }
[18:42:04.377]         }
[18:42:04.377]     })
[18:42:04.377]     if (TRUE) {
[18:42:04.377]         base::sink(type = "output", split = FALSE)
[18:42:04.377]         if (TRUE) {
[18:42:04.377]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.377]         }
[18:42:04.377]         else {
[18:42:04.377]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.377]         }
[18:42:04.377]         base::close(...future.stdout)
[18:42:04.377]         ...future.stdout <- NULL
[18:42:04.377]     }
[18:42:04.377]     ...future.result$conditions <- ...future.conditions
[18:42:04.377]     ...future.result$finished <- base::Sys.time()
[18:42:04.377]     ...future.result
[18:42:04.377] }
[18:42:04.384] Exporting 11 global objects (16.50 KiB) to cluster node #1 ...
[18:42:04.385] Exporting '...future.FUN' (6.73 KiB) to cluster node #1 ...
[18:42:04.386] Exporting '...future.FUN' (6.73 KiB) to cluster node #1 ... DONE
[18:42:04.387] Exporting 'x_FUN' (41 bytes) to cluster node #1 ...
[18:42:04.388] Exporting 'x_FUN' (41 bytes) to cluster node #1 ... DONE
[18:42:04.388] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.389] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.389] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.390] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.390] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.391] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.391] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:04.392] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:04.392] Exporting 'valid_types' (46 bytes) to cluster node #1 ...
[18:42:04.393] Exporting 'valid_types' (46 bytes) to cluster node #1 ... DONE
[18:42:04.393] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:04.394] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:04.394] Exporting '...future.elements_ii' (1.41 KiB) to cluster node #1 ...
[18:42:04.395] Exporting '...future.elements_ii' (1.41 KiB) to cluster node #1 ... DONE
[18:42:04.395] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.395] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.395] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.396] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.397] Exporting 11 global objects (16.50 KiB) to cluster node #1 ... DONE
[18:42:04.398] MultisessionFuture started
[18:42:04.398] - Launch lazy future ... done
[18:42:04.398] run() for 'MultisessionFuture' ... done
[18:42:04.399] Created future:
[18:42:04.417] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.417] - Validating connection of MultisessionFuture
[18:42:04.418] - received message: FutureResult
[18:42:04.418] - Received FutureResult
[18:42:04.418] - Erased future from FutureRegistry
[18:42:04.418] result() for ClusterFuture ...
[18:42:04.418] - result already collected: FutureResult
[18:42:04.419] result() for ClusterFuture ... done
[18:42:04.419] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.399] MultisessionFuture:
[18:42:04.399] Label: 'future_vapply-2'
[18:42:04.399] Expression:
[18:42:04.399] {
[18:42:04.399]     do.call(function(...) {
[18:42:04.399]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.399]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.399]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.399]             on.exit(options(oopts), add = TRUE)
[18:42:04.399]         }
[18:42:04.399]         {
[18:42:04.399]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.399]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.399]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.399]             })
[18:42:04.399]         }
[18:42:04.399]     }, args = future.call.arguments)
[18:42:04.399] }
[18:42:04.399] Lazy evaluation: FALSE
[18:42:04.399] Asynchronous evaluation: TRUE
[18:42:04.399] Local evaluation: TRUE
[18:42:04.399] Environment: R_GlobalEnv
[18:42:04.399] Capture standard output: TRUE
[18:42:04.399] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.399] Globals: 11 objects totaling 16.28 KiB (function '...future.FUN' of 6.73 KiB, function 'x_FUN' of 41 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.399] Packages: 1 packages ('future.apply')
[18:42:04.399] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.399] Resolved: TRUE
[18:42:04.399] Value: <not collected>
[18:42:04.399] Conditions captured: <none>
[18:42:04.399] Early signaling: FALSE
[18:42:04.399] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.399] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.419] Chunk #2 of 2 ... DONE
[18:42:04.419] Launching 2 futures (chunks) ... DONE
[18:42:04.420] Resolving 2 futures (chunks) ...
[18:42:04.420] resolve() on list ...
[18:42:04.420]  recursive: 0
[18:42:04.420]  length: 2
[18:42:04.420] 
[18:42:04.421] Future #1
[18:42:04.421] result() for ClusterFuture ...
[18:42:04.421] - result already collected: FutureResult
[18:42:04.421] result() for ClusterFuture ... done
[18:42:04.421] result() for ClusterFuture ...
[18:42:04.421] - result already collected: FutureResult
[18:42:04.421] result() for ClusterFuture ... done
[18:42:04.422] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:04.422] - nx: 2
[18:42:04.422] - relay: TRUE
[18:42:04.422] - stdout: TRUE
[18:42:04.422] - signal: TRUE
[18:42:04.422] - resignal: FALSE
[18:42:04.423] - force: TRUE
[18:42:04.423] - relayed: [n=2] FALSE, FALSE
[18:42:04.423] - queued futures: [n=2] FALSE, FALSE
[18:42:04.423]  - until=1
[18:42:04.423]  - relaying element #1
[18:42:04.423] result() for ClusterFuture ...
[18:42:04.424] - result already collected: FutureResult
[18:42:04.424] result() for ClusterFuture ... done
[18:42:04.424] result() for ClusterFuture ...
[18:42:04.424] - result already collected: FutureResult
[18:42:04.424] result() for ClusterFuture ... done
[18:42:04.424] result() for ClusterFuture ...
[18:42:04.425] - result already collected: FutureResult
[18:42:04.425] result() for ClusterFuture ... done
[18:42:04.425] result() for ClusterFuture ...
[18:42:04.425] - result already collected: FutureResult
[18:42:04.425] result() for ClusterFuture ... done
[18:42:04.425] - relayed: [n=2] TRUE, FALSE
[18:42:04.425] - queued futures: [n=2] TRUE, FALSE
[18:42:04.426] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:04.426]  length: 1 (resolved future 1)
[18:42:04.426] Future #2
[18:42:04.426] result() for ClusterFuture ...
[18:42:04.426] - result already collected: FutureResult
[18:42:04.426] result() for ClusterFuture ... done
[18:42:04.427] result() for ClusterFuture ...
[18:42:04.427] - result already collected: FutureResult
[18:42:04.427] result() for ClusterFuture ... done
[18:42:04.427] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:04.427] - nx: 2
[18:42:04.428] - relay: TRUE
[18:42:04.428] - stdout: TRUE
[18:42:04.428] - signal: TRUE
[18:42:04.428] - resignal: FALSE
[18:42:04.428] - force: TRUE
[18:42:04.428] - relayed: [n=2] TRUE, FALSE
[18:42:04.428] - queued futures: [n=2] TRUE, FALSE
[18:42:04.429]  - until=2
[18:42:04.429]  - relaying element #2
[18:42:04.429] result() for ClusterFuture ...
[18:42:04.429] - result already collected: FutureResult
[18:42:04.429] result() for ClusterFuture ... done
[18:42:04.429] result() for ClusterFuture ...
[18:42:04.430] - result already collected: FutureResult
[18:42:04.430] result() for ClusterFuture ... done
[18:42:04.430] result() for ClusterFuture ...
[18:42:04.430] - result already collected: FutureResult
[18:42:04.430] result() for ClusterFuture ... done
[18:42:04.430] result() for ClusterFuture ...
[18:42:04.430] - result already collected: FutureResult
[18:42:04.431] result() for ClusterFuture ... done
[18:42:04.431] - relayed: [n=2] TRUE, TRUE
[18:42:04.431] - queued futures: [n=2] TRUE, TRUE
[18:42:04.431] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:04.431]  length: 0 (resolved future 2)
[18:42:04.431] Relaying remaining futures
[18:42:04.432] signalConditionsASAP(NULL, pos=0) ...
[18:42:04.432] - nx: 2
[18:42:04.432] - relay: TRUE
[18:42:04.432] - stdout: TRUE
[18:42:04.432] - signal: TRUE
[18:42:04.432] - resignal: FALSE
[18:42:04.433] - force: TRUE
[18:42:04.433] - relayed: [n=2] TRUE, TRUE
[18:42:04.433] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:04.433] - relayed: [n=2] TRUE, TRUE
[18:42:04.433] - queued futures: [n=2] TRUE, TRUE
[18:42:04.433] signalConditionsASAP(NULL, pos=0) ... done
[18:42:04.434] resolve() on list ... DONE
[18:42:04.434] result() for ClusterFuture ...
[18:42:04.434] - result already collected: FutureResult
[18:42:04.434] result() for ClusterFuture ... done
[18:42:04.434] result() for ClusterFuture ...
[18:42:04.434] - result already collected: FutureResult
[18:42:04.434] result() for ClusterFuture ... done
[18:42:04.435] result() for ClusterFuture ...
[18:42:04.435] - result already collected: FutureResult
[18:42:04.435] result() for ClusterFuture ... done
[18:42:04.435] result() for ClusterFuture ...
[18:42:04.435] - result already collected: FutureResult
[18:42:04.435] result() for ClusterFuture ... done
[18:42:04.436]  - Number of value chunks collected: 2
[18:42:04.436] Resolving 2 futures (chunks) ... DONE
[18:42:04.436] Reducing values from 2 chunks ...
[18:42:04.436]  - Number of values collected after concatenation: 11
[18:42:04.436]  - Number of values expected: 11
[18:42:04.436] Reducing values from 2 chunks ... DONE
[18:42:04.437] future_lapply() ... DONE
 Named logi [1:11] TRUE TRUE TRUE TRUE TRUE TRUE ...
 - attr(*, "names")= chr [1:11] "mpg" "cyl" "disp" "hp" ...
- future_vapply(x, ...) where length(x) != length(as.list(x)) ...
[18:42:04.438] future_lapply() ...
[18:42:04.443] Number of chunks: 2
[18:42:04.443] getGlobalsAndPackagesXApply() ...
[18:42:04.443]  - future.globals: TRUE
[18:42:04.443] getGlobalsAndPackages() ...
[18:42:04.444] Searching for globals...
[18:42:04.448] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:04.448] Searching for globals ... DONE
[18:42:04.448] Resolving globals: FALSE
[18:42:04.449] The total size of the 7 globals is 11.92 KiB (12201 bytes)
[18:42:04.450] The total size of the 7 globals exported for future expression ('FUN()') is 11.92 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'stop_if_not' (4.51 KiB of class 'function'), 'FUN' (3.92 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:04.450] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.450] - packages: [1] 'future.apply'
[18:42:04.451] getGlobalsAndPackages() ... DONE
[18:42:04.451]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.451]  - needed namespaces: [n=1] 'future.apply'
[18:42:04.451] Finding globals ... DONE
[18:42:04.451]  - use_args: TRUE
[18:42:04.451]  - Getting '...' globals ...
[18:42:04.452] resolve() on list ...
[18:42:04.452]  recursive: 0
[18:42:04.452]  length: 1
[18:42:04.452]  elements: '...'
[18:42:04.453]  length: 0 (resolved future 1)
[18:42:04.453] resolve() on list ... DONE
[18:42:04.453]    - '...' content: [n=0] 
[18:42:04.453] List of 1
[18:42:04.453]  $ ...: list()
[18:42:04.453]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.453]  - attr(*, "where")=List of 1
[18:42:04.453]   ..$ ...:<environment: 0x000002ea01f34f80> 
[18:42:04.453]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.453]  - attr(*, "resolved")= logi TRUE
[18:42:04.453]  - attr(*, "total_size")= num NA
[18:42:04.456]  - Getting '...' globals ... DONE
[18:42:04.456] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:04.457] List of 8
[18:42:04.457]  $ ...future.FUN:function (x, ...)  
[18:42:04.457]  $ x_FUN        :function (x)  
[18:42:04.457]  $ times        : int 1
[18:42:04.457]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:04.457]  $ stop_if_not  :function (...)  
[18:42:04.457]  $ dim          : NULL
[18:42:04.457]  $ valid_types  : chr [1:2] "logical" "integer"
[18:42:04.457]  $ ...          : list()
[18:42:04.457]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.457]  - attr(*, "where")=List of 8
[18:42:04.457]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:04.457]   ..$ ...          :<environment: 0x000002ea01f34f80> 
[18:42:04.457]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.457]  - attr(*, "resolved")= logi FALSE
[18:42:04.457]  - attr(*, "total_size")= int 22016
[18:42:04.463] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:04.463] getGlobalsAndPackagesXApply() ... DONE
[18:42:04.464] Number of futures (= number of chunks): 2
[18:42:04.464] Launching 2 futures (chunks) ...
[18:42:04.464] Chunk #1 of 2 ...
[18:42:04.464]  - Finding globals in 'X' for chunk #1 ...
[18:42:04.464] getGlobalsAndPackages() ...
[18:42:04.465] Searching for globals...
[18:42:04.465] 
[18:42:04.465] Searching for globals ... DONE
[18:42:04.465] - globals: [0] <none>
[18:42:04.465] getGlobalsAndPackages() ... DONE
[18:42:04.466]    + additional globals found: [n=0] 
[18:42:04.466]    + additional namespaces needed: [n=0] 
[18:42:04.466]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:04.466]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.466]  - seeds: <none>
[18:42:04.466]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.467] getGlobalsAndPackages() ...
[18:42:04.467] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.467] Resolving globals: FALSE
[18:42:04.467] Tweak future expression to call with '...' arguments ...
[18:42:04.467] {
[18:42:04.467]     do.call(function(...) {
[18:42:04.467]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.467]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.467]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.467]             on.exit(options(oopts), add = TRUE)
[18:42:04.467]         }
[18:42:04.467]         {
[18:42:04.467]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.467]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.467]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.467]             })
[18:42:04.467]         }
[18:42:04.467]     }, args = future.call.arguments)
[18:42:04.467] }
[18:42:04.468] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.469] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.469] - packages: [1] 'future.apply'
[18:42:04.469] getGlobalsAndPackages() ... DONE
[18:42:04.469] run() for 'Future' ...
[18:42:04.470] - state: 'created'
[18:42:04.470] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.485] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.485] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.486]   - Field: 'node'
[18:42:04.486]   - Field: 'label'
[18:42:04.486]   - Field: 'local'
[18:42:04.486]   - Field: 'owner'
[18:42:04.486]   - Field: 'envir'
[18:42:04.486]   - Field: 'workers'
[18:42:04.487]   - Field: 'packages'
[18:42:04.487]   - Field: 'gc'
[18:42:04.487]   - Field: 'conditions'
[18:42:04.487]   - Field: 'persistent'
[18:42:04.487]   - Field: 'expr'
[18:42:04.488]   - Field: 'uuid'
[18:42:04.488]   - Field: 'seed'
[18:42:04.488]   - Field: 'version'
[18:42:04.488]   - Field: 'result'
[18:42:04.488]   - Field: 'asynchronous'
[18:42:04.488]   - Field: 'calls'
[18:42:04.489]   - Field: 'globals'
[18:42:04.489]   - Field: 'stdout'
[18:42:04.489]   - Field: 'earlySignal'
[18:42:04.489]   - Field: 'lazy'
[18:42:04.489]   - Field: 'state'
[18:42:04.489] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.490] - Launch lazy future ...
[18:42:04.490] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.490] Packages needed by future strategies (n = 0): <none>
[18:42:04.491] {
[18:42:04.491]     {
[18:42:04.491]         {
[18:42:04.491]             ...future.startTime <- base::Sys.time()
[18:42:04.491]             {
[18:42:04.491]                 {
[18:42:04.491]                   {
[18:42:04.491]                     {
[18:42:04.491]                       {
[18:42:04.491]                         base::local({
[18:42:04.491]                           has_future <- base::requireNamespace("future", 
[18:42:04.491]                             quietly = TRUE)
[18:42:04.491]                           if (has_future) {
[18:42:04.491]                             ns <- base::getNamespace("future")
[18:42:04.491]                             version <- ns[[".package"]][["version"]]
[18:42:04.491]                             if (is.null(version)) 
[18:42:04.491]                               version <- utils::packageVersion("future")
[18:42:04.491]                           }
[18:42:04.491]                           else {
[18:42:04.491]                             version <- NULL
[18:42:04.491]                           }
[18:42:04.491]                           if (!has_future || version < "1.8.0") {
[18:42:04.491]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.491]                               "", base::R.version$version.string), 
[18:42:04.491]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.491]                                 base::R.version$platform, 8 * 
[18:42:04.491]                                   base::.Machine$sizeof.pointer), 
[18:42:04.491]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.491]                                 "release", "version")], collapse = " "), 
[18:42:04.491]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.491]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.491]                               info)
[18:42:04.491]                             info <- base::paste(info, collapse = "; ")
[18:42:04.491]                             if (!has_future) {
[18:42:04.491]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.491]                                 info)
[18:42:04.491]                             }
[18:42:04.491]                             else {
[18:42:04.491]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.491]                                 info, version)
[18:42:04.491]                             }
[18:42:04.491]                             base::stop(msg)
[18:42:04.491]                           }
[18:42:04.491]                         })
[18:42:04.491]                       }
[18:42:04.491]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.491]                       base::options(mc.cores = 1L)
[18:42:04.491]                     }
[18:42:04.491]                     base::local({
[18:42:04.491]                       for (pkg in "future.apply") {
[18:42:04.491]                         base::loadNamespace(pkg)
[18:42:04.491]                         base::library(pkg, character.only = TRUE)
[18:42:04.491]                       }
[18:42:04.491]                     })
[18:42:04.491]                   }
[18:42:04.491]                   ...future.strategy.old <- future::plan("list")
[18:42:04.491]                   options(future.plan = NULL)
[18:42:04.491]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.491]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.491]                 }
[18:42:04.491]                 ...future.workdir <- getwd()
[18:42:04.491]             }
[18:42:04.491]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.491]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.491]         }
[18:42:04.491]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.491]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.491]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.491]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.491]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.491]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.491]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.491]             base::names(...future.oldOptions))
[18:42:04.491]     }
[18:42:04.491]     if (FALSE) {
[18:42:04.491]     }
[18:42:04.491]     else {
[18:42:04.491]         if (TRUE) {
[18:42:04.491]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.491]                 open = "w")
[18:42:04.491]         }
[18:42:04.491]         else {
[18:42:04.491]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.491]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.491]         }
[18:42:04.491]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.491]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.491]             base::sink(type = "output", split = FALSE)
[18:42:04.491]             base::close(...future.stdout)
[18:42:04.491]         }, add = TRUE)
[18:42:04.491]     }
[18:42:04.491]     ...future.frame <- base::sys.nframe()
[18:42:04.491]     ...future.conditions <- base::list()
[18:42:04.491]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.491]     if (FALSE) {
[18:42:04.491]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.491]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.491]     }
[18:42:04.491]     ...future.result <- base::tryCatch({
[18:42:04.491]         base::withCallingHandlers({
[18:42:04.491]             ...future.value <- base::withVisible(base::local({
[18:42:04.491]                 ...future.makeSendCondition <- base::local({
[18:42:04.491]                   sendCondition <- NULL
[18:42:04.491]                   function(frame = 1L) {
[18:42:04.491]                     if (is.function(sendCondition)) 
[18:42:04.491]                       return(sendCondition)
[18:42:04.491]                     ns <- getNamespace("parallel")
[18:42:04.491]                     if (exists("sendData", mode = "function", 
[18:42:04.491]                       envir = ns)) {
[18:42:04.491]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.491]                         envir = ns)
[18:42:04.491]                       envir <- sys.frame(frame)
[18:42:04.491]                       master <- NULL
[18:42:04.491]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.491]                         !identical(envir, emptyenv())) {
[18:42:04.491]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.491]                           inherits = FALSE)) {
[18:42:04.491]                           master <- get("master", mode = "list", 
[18:42:04.491]                             envir = envir, inherits = FALSE)
[18:42:04.491]                           if (inherits(master, c("SOCKnode", 
[18:42:04.491]                             "SOCK0node"))) {
[18:42:04.491]                             sendCondition <<- function(cond) {
[18:42:04.491]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.491]                                 success = TRUE)
[18:42:04.491]                               parallel_sendData(master, data)
[18:42:04.491]                             }
[18:42:04.491]                             return(sendCondition)
[18:42:04.491]                           }
[18:42:04.491]                         }
[18:42:04.491]                         frame <- frame + 1L
[18:42:04.491]                         envir <- sys.frame(frame)
[18:42:04.491]                       }
[18:42:04.491]                     }
[18:42:04.491]                     sendCondition <<- function(cond) NULL
[18:42:04.491]                   }
[18:42:04.491]                 })
[18:42:04.491]                 withCallingHandlers({
[18:42:04.491]                   {
[18:42:04.491]                     do.call(function(...) {
[18:42:04.491]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.491]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.491]                         ...future.globals.maxSize)) {
[18:42:04.491]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.491]                         on.exit(options(oopts), add = TRUE)
[18:42:04.491]                       }
[18:42:04.491]                       {
[18:42:04.491]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.491]                           FUN = function(jj) {
[18:42:04.491]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.491]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.491]                           })
[18:42:04.491]                       }
[18:42:04.491]                     }, args = future.call.arguments)
[18:42:04.491]                   }
[18:42:04.491]                 }, immediateCondition = function(cond) {
[18:42:04.491]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.491]                   sendCondition(cond)
[18:42:04.491]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.491]                   {
[18:42:04.491]                     inherits <- base::inherits
[18:42:04.491]                     invokeRestart <- base::invokeRestart
[18:42:04.491]                     is.null <- base::is.null
[18:42:04.491]                     muffled <- FALSE
[18:42:04.491]                     if (inherits(cond, "message")) {
[18:42:04.491]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.491]                       if (muffled) 
[18:42:04.491]                         invokeRestart("muffleMessage")
[18:42:04.491]                     }
[18:42:04.491]                     else if (inherits(cond, "warning")) {
[18:42:04.491]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.491]                       if (muffled) 
[18:42:04.491]                         invokeRestart("muffleWarning")
[18:42:04.491]                     }
[18:42:04.491]                     else if (inherits(cond, "condition")) {
[18:42:04.491]                       if (!is.null(pattern)) {
[18:42:04.491]                         computeRestarts <- base::computeRestarts
[18:42:04.491]                         grepl <- base::grepl
[18:42:04.491]                         restarts <- computeRestarts(cond)
[18:42:04.491]                         for (restart in restarts) {
[18:42:04.491]                           name <- restart$name
[18:42:04.491]                           if (is.null(name)) 
[18:42:04.491]                             next
[18:42:04.491]                           if (!grepl(pattern, name)) 
[18:42:04.491]                             next
[18:42:04.491]                           invokeRestart(restart)
[18:42:04.491]                           muffled <- TRUE
[18:42:04.491]                           break
[18:42:04.491]                         }
[18:42:04.491]                       }
[18:42:04.491]                     }
[18:42:04.491]                     invisible(muffled)
[18:42:04.491]                   }
[18:42:04.491]                   muffleCondition(cond)
[18:42:04.491]                 })
[18:42:04.491]             }))
[18:42:04.491]             future::FutureResult(value = ...future.value$value, 
[18:42:04.491]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.491]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.491]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.491]                     ...future.globalenv.names))
[18:42:04.491]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.491]         }, condition = base::local({
[18:42:04.491]             c <- base::c
[18:42:04.491]             inherits <- base::inherits
[18:42:04.491]             invokeRestart <- base::invokeRestart
[18:42:04.491]             length <- base::length
[18:42:04.491]             list <- base::list
[18:42:04.491]             seq.int <- base::seq.int
[18:42:04.491]             signalCondition <- base::signalCondition
[18:42:04.491]             sys.calls <- base::sys.calls
[18:42:04.491]             `[[` <- base::`[[`
[18:42:04.491]             `+` <- base::`+`
[18:42:04.491]             `<<-` <- base::`<<-`
[18:42:04.491]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.491]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.491]                   3L)]
[18:42:04.491]             }
[18:42:04.491]             function(cond) {
[18:42:04.491]                 is_error <- inherits(cond, "error")
[18:42:04.491]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.491]                   NULL)
[18:42:04.491]                 if (is_error) {
[18:42:04.491]                   sessionInformation <- function() {
[18:42:04.491]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.491]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.491]                       search = base::search(), system = base::Sys.info())
[18:42:04.491]                   }
[18:42:04.491]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.491]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.491]                     cond$call), session = sessionInformation(), 
[18:42:04.491]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.491]                   signalCondition(cond)
[18:42:04.491]                 }
[18:42:04.491]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.491]                 "immediateCondition"))) {
[18:42:04.491]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.491]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.491]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.491]                   if (TRUE && !signal) {
[18:42:04.491]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.491]                     {
[18:42:04.491]                       inherits <- base::inherits
[18:42:04.491]                       invokeRestart <- base::invokeRestart
[18:42:04.491]                       is.null <- base::is.null
[18:42:04.491]                       muffled <- FALSE
[18:42:04.491]                       if (inherits(cond, "message")) {
[18:42:04.491]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.491]                         if (muffled) 
[18:42:04.491]                           invokeRestart("muffleMessage")
[18:42:04.491]                       }
[18:42:04.491]                       else if (inherits(cond, "warning")) {
[18:42:04.491]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.491]                         if (muffled) 
[18:42:04.491]                           invokeRestart("muffleWarning")
[18:42:04.491]                       }
[18:42:04.491]                       else if (inherits(cond, "condition")) {
[18:42:04.491]                         if (!is.null(pattern)) {
[18:42:04.491]                           computeRestarts <- base::computeRestarts
[18:42:04.491]                           grepl <- base::grepl
[18:42:04.491]                           restarts <- computeRestarts(cond)
[18:42:04.491]                           for (restart in restarts) {
[18:42:04.491]                             name <- restart$name
[18:42:04.491]                             if (is.null(name)) 
[18:42:04.491]                               next
[18:42:04.491]                             if (!grepl(pattern, name)) 
[18:42:04.491]                               next
[18:42:04.491]                             invokeRestart(restart)
[18:42:04.491]                             muffled <- TRUE
[18:42:04.491]                             break
[18:42:04.491]                           }
[18:42:04.491]                         }
[18:42:04.491]                       }
[18:42:04.491]                       invisible(muffled)
[18:42:04.491]                     }
[18:42:04.491]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.491]                   }
[18:42:04.491]                 }
[18:42:04.491]                 else {
[18:42:04.491]                   if (TRUE) {
[18:42:04.491]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.491]                     {
[18:42:04.491]                       inherits <- base::inherits
[18:42:04.491]                       invokeRestart <- base::invokeRestart
[18:42:04.491]                       is.null <- base::is.null
[18:42:04.491]                       muffled <- FALSE
[18:42:04.491]                       if (inherits(cond, "message")) {
[18:42:04.491]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.491]                         if (muffled) 
[18:42:04.491]                           invokeRestart("muffleMessage")
[18:42:04.491]                       }
[18:42:04.491]                       else if (inherits(cond, "warning")) {
[18:42:04.491]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.491]                         if (muffled) 
[18:42:04.491]                           invokeRestart("muffleWarning")
[18:42:04.491]                       }
[18:42:04.491]                       else if (inherits(cond, "condition")) {
[18:42:04.491]                         if (!is.null(pattern)) {
[18:42:04.491]                           computeRestarts <- base::computeRestarts
[18:42:04.491]                           grepl <- base::grepl
[18:42:04.491]                           restarts <- computeRestarts(cond)
[18:42:04.491]                           for (restart in restarts) {
[18:42:04.491]                             name <- restart$name
[18:42:04.491]                             if (is.null(name)) 
[18:42:04.491]                               next
[18:42:04.491]                             if (!grepl(pattern, name)) 
[18:42:04.491]                               next
[18:42:04.491]                             invokeRestart(restart)
[18:42:04.491]                             muffled <- TRUE
[18:42:04.491]                             break
[18:42:04.491]                           }
[18:42:04.491]                         }
[18:42:04.491]                       }
[18:42:04.491]                       invisible(muffled)
[18:42:04.491]                     }
[18:42:04.491]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.491]                   }
[18:42:04.491]                 }
[18:42:04.491]             }
[18:42:04.491]         }))
[18:42:04.491]     }, error = function(ex) {
[18:42:04.491]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.491]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.491]                 ...future.rng), started = ...future.startTime, 
[18:42:04.491]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.491]             version = "1.8"), class = "FutureResult")
[18:42:04.491]     }, finally = {
[18:42:04.491]         if (!identical(...future.workdir, getwd())) 
[18:42:04.491]             setwd(...future.workdir)
[18:42:04.491]         {
[18:42:04.491]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.491]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.491]             }
[18:42:04.491]             base::options(...future.oldOptions)
[18:42:04.491]             if (.Platform$OS.type == "windows") {
[18:42:04.491]                 old_names <- names(...future.oldEnvVars)
[18:42:04.491]                 envs <- base::Sys.getenv()
[18:42:04.491]                 names <- names(envs)
[18:42:04.491]                 common <- intersect(names, old_names)
[18:42:04.491]                 added <- setdiff(names, old_names)
[18:42:04.491]                 removed <- setdiff(old_names, names)
[18:42:04.491]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.491]                   envs[common]]
[18:42:04.491]                 NAMES <- toupper(changed)
[18:42:04.491]                 args <- list()
[18:42:04.491]                 for (kk in seq_along(NAMES)) {
[18:42:04.491]                   name <- changed[[kk]]
[18:42:04.491]                   NAME <- NAMES[[kk]]
[18:42:04.491]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.491]                     next
[18:42:04.491]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.491]                 }
[18:42:04.491]                 NAMES <- toupper(added)
[18:42:04.491]                 for (kk in seq_along(NAMES)) {
[18:42:04.491]                   name <- added[[kk]]
[18:42:04.491]                   NAME <- NAMES[[kk]]
[18:42:04.491]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.491]                     next
[18:42:04.491]                   args[[name]] <- ""
[18:42:04.491]                 }
[18:42:04.491]                 NAMES <- toupper(removed)
[18:42:04.491]                 for (kk in seq_along(NAMES)) {
[18:42:04.491]                   name <- removed[[kk]]
[18:42:04.491]                   NAME <- NAMES[[kk]]
[18:42:04.491]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.491]                     next
[18:42:04.491]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.491]                 }
[18:42:04.491]                 if (length(args) > 0) 
[18:42:04.491]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.491]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.491]             }
[18:42:04.491]             else {
[18:42:04.491]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.491]             }
[18:42:04.491]             {
[18:42:04.491]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.491]                   0L) {
[18:42:04.491]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.491]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.491]                   base::options(opts)
[18:42:04.491]                 }
[18:42:04.491]                 {
[18:42:04.491]                   {
[18:42:04.491]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.491]                     NULL
[18:42:04.491]                   }
[18:42:04.491]                   options(future.plan = NULL)
[18:42:04.491]                   if (is.na(NA_character_)) 
[18:42:04.491]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.491]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.491]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.491]                     .init = FALSE)
[18:42:04.491]                 }
[18:42:04.491]             }
[18:42:04.491]         }
[18:42:04.491]     })
[18:42:04.491]     if (TRUE) {
[18:42:04.491]         base::sink(type = "output", split = FALSE)
[18:42:04.491]         if (TRUE) {
[18:42:04.491]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.491]         }
[18:42:04.491]         else {
[18:42:04.491]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.491]         }
[18:42:04.491]         base::close(...future.stdout)
[18:42:04.491]         ...future.stdout <- NULL
[18:42:04.491]     }
[18:42:04.491]     ...future.result$conditions <- ...future.conditions
[18:42:04.491]     ...future.result$finished <- base::Sys.time()
[18:42:04.491]     ...future.result
[18:42:04.491] }
[18:42:04.497] Exporting 11 global objects (12.36 KiB) to cluster node #1 ...
[18:42:04.497] Exporting '...future.FUN' (3.91 KiB) to cluster node #1 ...
[18:42:04.498] Exporting '...future.FUN' (3.91 KiB) to cluster node #1 ... DONE
[18:42:04.498] Exporting 'x_FUN' (37 bytes) to cluster node #1 ...
[18:42:04.499] Exporting 'x_FUN' (37 bytes) to cluster node #1 ... DONE
[18:42:04.499] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.500] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.500] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.501] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.501] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.502] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.502] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:04.503] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:04.503] Exporting 'valid_types' (61 bytes) to cluster node #1 ...
[18:42:04.504] Exporting 'valid_types' (61 bytes) to cluster node #1 ... DONE
[18:42:04.504] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:04.505] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:04.505] Exporting '...future.elements_ii' (89 bytes) to cluster node #1 ...
[18:42:04.506] Exporting '...future.elements_ii' (89 bytes) to cluster node #1 ... DONE
[18:42:04.506] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.506] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.507] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.507] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.507] Exporting 11 global objects (12.36 KiB) to cluster node #1 ... DONE
[18:42:04.508] MultisessionFuture started
[18:42:04.508] - Launch lazy future ... done
[18:42:04.509] run() for 'MultisessionFuture' ... done
[18:42:04.509] Created future:
[18:42:04.532] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.532] - Validating connection of MultisessionFuture
[18:42:04.532] - received message: FutureResult
[18:42:04.533] - Received FutureResult
[18:42:04.533] - Erased future from FutureRegistry
[18:42:04.533] result() for ClusterFuture ...
[18:42:04.533] - result already collected: FutureResult
[18:42:04.533] result() for ClusterFuture ... done
[18:42:04.534] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.509] MultisessionFuture:
[18:42:04.509] Label: 'future_vapply-1'
[18:42:04.509] Expression:
[18:42:04.509] {
[18:42:04.509]     do.call(function(...) {
[18:42:04.509]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.509]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.509]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.509]             on.exit(options(oopts), add = TRUE)
[18:42:04.509]         }
[18:42:04.509]         {
[18:42:04.509]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.509]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.509]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.509]             })
[18:42:04.509]         }
[18:42:04.509]     }, args = future.call.arguments)
[18:42:04.509] }
[18:42:04.509] Lazy evaluation: FALSE
[18:42:04.509] Asynchronous evaluation: TRUE
[18:42:04.509] Local evaluation: TRUE
[18:42:04.509] Environment: R_GlobalEnv
[18:42:04.509] Capture standard output: TRUE
[18:42:04.509] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.509] Globals: 11 objects totaling 12.15 KiB (function '...future.FUN' of 3.91 KiB, function 'x_FUN' of 37 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.509] Packages: 1 packages ('future.apply')
[18:42:04.509] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.509] Resolved: TRUE
[18:42:04.509] Value: <not collected>
[18:42:04.509] Conditions captured: <none>
[18:42:04.509] Early signaling: FALSE
[18:42:04.509] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.509] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.534] Chunk #1 of 2 ... DONE
[18:42:04.534] Chunk #2 of 2 ...
[18:42:04.534]  - Finding globals in 'X' for chunk #2 ...
[18:42:04.535] getGlobalsAndPackages() ...
[18:42:04.535] Searching for globals...
[18:42:04.535] 
[18:42:04.535] Searching for globals ... DONE
[18:42:04.535] - globals: [0] <none>
[18:42:04.536] getGlobalsAndPackages() ... DONE
[18:42:04.536]    + additional globals found: [n=0] 
[18:42:04.536]    + additional namespaces needed: [n=0] 
[18:42:04.536]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:04.536]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.536]  - seeds: <none>
[18:42:04.537]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.537] getGlobalsAndPackages() ...
[18:42:04.537] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.537] Resolving globals: FALSE
[18:42:04.537] Tweak future expression to call with '...' arguments ...
[18:42:04.537] {
[18:42:04.537]     do.call(function(...) {
[18:42:04.537]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.537]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.537]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.537]             on.exit(options(oopts), add = TRUE)
[18:42:04.537]         }
[18:42:04.537]         {
[18:42:04.537]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.537]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.537]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.537]             })
[18:42:04.537]         }
[18:42:04.537]     }, args = future.call.arguments)
[18:42:04.537] }
[18:42:04.538] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.539] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.539] - packages: [1] 'future.apply'
[18:42:04.539] getGlobalsAndPackages() ... DONE
[18:42:04.539] run() for 'Future' ...
[18:42:04.540] - state: 'created'
[18:42:04.540] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.555] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.556] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.556]   - Field: 'node'
[18:42:04.556]   - Field: 'label'
[18:42:04.556]   - Field: 'local'
[18:42:04.556]   - Field: 'owner'
[18:42:04.556]   - Field: 'envir'
[18:42:04.557]   - Field: 'workers'
[18:42:04.557]   - Field: 'packages'
[18:42:04.557]   - Field: 'gc'
[18:42:04.557]   - Field: 'conditions'
[18:42:04.557]   - Field: 'persistent'
[18:42:04.558]   - Field: 'expr'
[18:42:04.558]   - Field: 'uuid'
[18:42:04.558]   - Field: 'seed'
[18:42:04.558]   - Field: 'version'
[18:42:04.558]   - Field: 'result'
[18:42:04.558]   - Field: 'asynchronous'
[18:42:04.559]   - Field: 'calls'
[18:42:04.559]   - Field: 'globals'
[18:42:04.559]   - Field: 'stdout'
[18:42:04.559]   - Field: 'earlySignal'
[18:42:04.559]   - Field: 'lazy'
[18:42:04.559]   - Field: 'state'
[18:42:04.560] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.560] - Launch lazy future ...
[18:42:04.560] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.560] Packages needed by future strategies (n = 0): <none>
[18:42:04.561] {
[18:42:04.561]     {
[18:42:04.561]         {
[18:42:04.561]             ...future.startTime <- base::Sys.time()
[18:42:04.561]             {
[18:42:04.561]                 {
[18:42:04.561]                   {
[18:42:04.561]                     {
[18:42:04.561]                       {
[18:42:04.561]                         base::local({
[18:42:04.561]                           has_future <- base::requireNamespace("future", 
[18:42:04.561]                             quietly = TRUE)
[18:42:04.561]                           if (has_future) {
[18:42:04.561]                             ns <- base::getNamespace("future")
[18:42:04.561]                             version <- ns[[".package"]][["version"]]
[18:42:04.561]                             if (is.null(version)) 
[18:42:04.561]                               version <- utils::packageVersion("future")
[18:42:04.561]                           }
[18:42:04.561]                           else {
[18:42:04.561]                             version <- NULL
[18:42:04.561]                           }
[18:42:04.561]                           if (!has_future || version < "1.8.0") {
[18:42:04.561]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.561]                               "", base::R.version$version.string), 
[18:42:04.561]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.561]                                 base::R.version$platform, 8 * 
[18:42:04.561]                                   base::.Machine$sizeof.pointer), 
[18:42:04.561]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.561]                                 "release", "version")], collapse = " "), 
[18:42:04.561]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.561]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.561]                               info)
[18:42:04.561]                             info <- base::paste(info, collapse = "; ")
[18:42:04.561]                             if (!has_future) {
[18:42:04.561]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.561]                                 info)
[18:42:04.561]                             }
[18:42:04.561]                             else {
[18:42:04.561]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.561]                                 info, version)
[18:42:04.561]                             }
[18:42:04.561]                             base::stop(msg)
[18:42:04.561]                           }
[18:42:04.561]                         })
[18:42:04.561]                       }
[18:42:04.561]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.561]                       base::options(mc.cores = 1L)
[18:42:04.561]                     }
[18:42:04.561]                     base::local({
[18:42:04.561]                       for (pkg in "future.apply") {
[18:42:04.561]                         base::loadNamespace(pkg)
[18:42:04.561]                         base::library(pkg, character.only = TRUE)
[18:42:04.561]                       }
[18:42:04.561]                     })
[18:42:04.561]                   }
[18:42:04.561]                   ...future.strategy.old <- future::plan("list")
[18:42:04.561]                   options(future.plan = NULL)
[18:42:04.561]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.561]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.561]                 }
[18:42:04.561]                 ...future.workdir <- getwd()
[18:42:04.561]             }
[18:42:04.561]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.561]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.561]         }
[18:42:04.561]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.561]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.561]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.561]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.561]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.561]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.561]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.561]             base::names(...future.oldOptions))
[18:42:04.561]     }
[18:42:04.561]     if (FALSE) {
[18:42:04.561]     }
[18:42:04.561]     else {
[18:42:04.561]         if (TRUE) {
[18:42:04.561]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.561]                 open = "w")
[18:42:04.561]         }
[18:42:04.561]         else {
[18:42:04.561]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.561]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.561]         }
[18:42:04.561]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.561]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.561]             base::sink(type = "output", split = FALSE)
[18:42:04.561]             base::close(...future.stdout)
[18:42:04.561]         }, add = TRUE)
[18:42:04.561]     }
[18:42:04.561]     ...future.frame <- base::sys.nframe()
[18:42:04.561]     ...future.conditions <- base::list()
[18:42:04.561]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.561]     if (FALSE) {
[18:42:04.561]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.561]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.561]     }
[18:42:04.561]     ...future.result <- base::tryCatch({
[18:42:04.561]         base::withCallingHandlers({
[18:42:04.561]             ...future.value <- base::withVisible(base::local({
[18:42:04.561]                 ...future.makeSendCondition <- base::local({
[18:42:04.561]                   sendCondition <- NULL
[18:42:04.561]                   function(frame = 1L) {
[18:42:04.561]                     if (is.function(sendCondition)) 
[18:42:04.561]                       return(sendCondition)
[18:42:04.561]                     ns <- getNamespace("parallel")
[18:42:04.561]                     if (exists("sendData", mode = "function", 
[18:42:04.561]                       envir = ns)) {
[18:42:04.561]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.561]                         envir = ns)
[18:42:04.561]                       envir <- sys.frame(frame)
[18:42:04.561]                       master <- NULL
[18:42:04.561]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.561]                         !identical(envir, emptyenv())) {
[18:42:04.561]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.561]                           inherits = FALSE)) {
[18:42:04.561]                           master <- get("master", mode = "list", 
[18:42:04.561]                             envir = envir, inherits = FALSE)
[18:42:04.561]                           if (inherits(master, c("SOCKnode", 
[18:42:04.561]                             "SOCK0node"))) {
[18:42:04.561]                             sendCondition <<- function(cond) {
[18:42:04.561]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.561]                                 success = TRUE)
[18:42:04.561]                               parallel_sendData(master, data)
[18:42:04.561]                             }
[18:42:04.561]                             return(sendCondition)
[18:42:04.561]                           }
[18:42:04.561]                         }
[18:42:04.561]                         frame <- frame + 1L
[18:42:04.561]                         envir <- sys.frame(frame)
[18:42:04.561]                       }
[18:42:04.561]                     }
[18:42:04.561]                     sendCondition <<- function(cond) NULL
[18:42:04.561]                   }
[18:42:04.561]                 })
[18:42:04.561]                 withCallingHandlers({
[18:42:04.561]                   {
[18:42:04.561]                     do.call(function(...) {
[18:42:04.561]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.561]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.561]                         ...future.globals.maxSize)) {
[18:42:04.561]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.561]                         on.exit(options(oopts), add = TRUE)
[18:42:04.561]                       }
[18:42:04.561]                       {
[18:42:04.561]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.561]                           FUN = function(jj) {
[18:42:04.561]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.561]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.561]                           })
[18:42:04.561]                       }
[18:42:04.561]                     }, args = future.call.arguments)
[18:42:04.561]                   }
[18:42:04.561]                 }, immediateCondition = function(cond) {
[18:42:04.561]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.561]                   sendCondition(cond)
[18:42:04.561]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.561]                   {
[18:42:04.561]                     inherits <- base::inherits
[18:42:04.561]                     invokeRestart <- base::invokeRestart
[18:42:04.561]                     is.null <- base::is.null
[18:42:04.561]                     muffled <- FALSE
[18:42:04.561]                     if (inherits(cond, "message")) {
[18:42:04.561]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.561]                       if (muffled) 
[18:42:04.561]                         invokeRestart("muffleMessage")
[18:42:04.561]                     }
[18:42:04.561]                     else if (inherits(cond, "warning")) {
[18:42:04.561]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.561]                       if (muffled) 
[18:42:04.561]                         invokeRestart("muffleWarning")
[18:42:04.561]                     }
[18:42:04.561]                     else if (inherits(cond, "condition")) {
[18:42:04.561]                       if (!is.null(pattern)) {
[18:42:04.561]                         computeRestarts <- base::computeRestarts
[18:42:04.561]                         grepl <- base::grepl
[18:42:04.561]                         restarts <- computeRestarts(cond)
[18:42:04.561]                         for (restart in restarts) {
[18:42:04.561]                           name <- restart$name
[18:42:04.561]                           if (is.null(name)) 
[18:42:04.561]                             next
[18:42:04.561]                           if (!grepl(pattern, name)) 
[18:42:04.561]                             next
[18:42:04.561]                           invokeRestart(restart)
[18:42:04.561]                           muffled <- TRUE
[18:42:04.561]                           break
[18:42:04.561]                         }
[18:42:04.561]                       }
[18:42:04.561]                     }
[18:42:04.561]                     invisible(muffled)
[18:42:04.561]                   }
[18:42:04.561]                   muffleCondition(cond)
[18:42:04.561]                 })
[18:42:04.561]             }))
[18:42:04.561]             future::FutureResult(value = ...future.value$value, 
[18:42:04.561]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.561]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.561]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.561]                     ...future.globalenv.names))
[18:42:04.561]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.561]         }, condition = base::local({
[18:42:04.561]             c <- base::c
[18:42:04.561]             inherits <- base::inherits
[18:42:04.561]             invokeRestart <- base::invokeRestart
[18:42:04.561]             length <- base::length
[18:42:04.561]             list <- base::list
[18:42:04.561]             seq.int <- base::seq.int
[18:42:04.561]             signalCondition <- base::signalCondition
[18:42:04.561]             sys.calls <- base::sys.calls
[18:42:04.561]             `[[` <- base::`[[`
[18:42:04.561]             `+` <- base::`+`
[18:42:04.561]             `<<-` <- base::`<<-`
[18:42:04.561]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.561]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.561]                   3L)]
[18:42:04.561]             }
[18:42:04.561]             function(cond) {
[18:42:04.561]                 is_error <- inherits(cond, "error")
[18:42:04.561]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.561]                   NULL)
[18:42:04.561]                 if (is_error) {
[18:42:04.561]                   sessionInformation <- function() {
[18:42:04.561]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.561]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.561]                       search = base::search(), system = base::Sys.info())
[18:42:04.561]                   }
[18:42:04.561]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.561]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.561]                     cond$call), session = sessionInformation(), 
[18:42:04.561]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.561]                   signalCondition(cond)
[18:42:04.561]                 }
[18:42:04.561]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.561]                 "immediateCondition"))) {
[18:42:04.561]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.561]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.561]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.561]                   if (TRUE && !signal) {
[18:42:04.561]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.561]                     {
[18:42:04.561]                       inherits <- base::inherits
[18:42:04.561]                       invokeRestart <- base::invokeRestart
[18:42:04.561]                       is.null <- base::is.null
[18:42:04.561]                       muffled <- FALSE
[18:42:04.561]                       if (inherits(cond, "message")) {
[18:42:04.561]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.561]                         if (muffled) 
[18:42:04.561]                           invokeRestart("muffleMessage")
[18:42:04.561]                       }
[18:42:04.561]                       else if (inherits(cond, "warning")) {
[18:42:04.561]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.561]                         if (muffled) 
[18:42:04.561]                           invokeRestart("muffleWarning")
[18:42:04.561]                       }
[18:42:04.561]                       else if (inherits(cond, "condition")) {
[18:42:04.561]                         if (!is.null(pattern)) {
[18:42:04.561]                           computeRestarts <- base::computeRestarts
[18:42:04.561]                           grepl <- base::grepl
[18:42:04.561]                           restarts <- computeRestarts(cond)
[18:42:04.561]                           for (restart in restarts) {
[18:42:04.561]                             name <- restart$name
[18:42:04.561]                             if (is.null(name)) 
[18:42:04.561]                               next
[18:42:04.561]                             if (!grepl(pattern, name)) 
[18:42:04.561]                               next
[18:42:04.561]                             invokeRestart(restart)
[18:42:04.561]                             muffled <- TRUE
[18:42:04.561]                             break
[18:42:04.561]                           }
[18:42:04.561]                         }
[18:42:04.561]                       }
[18:42:04.561]                       invisible(muffled)
[18:42:04.561]                     }
[18:42:04.561]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.561]                   }
[18:42:04.561]                 }
[18:42:04.561]                 else {
[18:42:04.561]                   if (TRUE) {
[18:42:04.561]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.561]                     {
[18:42:04.561]                       inherits <- base::inherits
[18:42:04.561]                       invokeRestart <- base::invokeRestart
[18:42:04.561]                       is.null <- base::is.null
[18:42:04.561]                       muffled <- FALSE
[18:42:04.561]                       if (inherits(cond, "message")) {
[18:42:04.561]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.561]                         if (muffled) 
[18:42:04.561]                           invokeRestart("muffleMessage")
[18:42:04.561]                       }
[18:42:04.561]                       else if (inherits(cond, "warning")) {
[18:42:04.561]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.561]                         if (muffled) 
[18:42:04.561]                           invokeRestart("muffleWarning")
[18:42:04.561]                       }
[18:42:04.561]                       else if (inherits(cond, "condition")) {
[18:42:04.561]                         if (!is.null(pattern)) {
[18:42:04.561]                           computeRestarts <- base::computeRestarts
[18:42:04.561]                           grepl <- base::grepl
[18:42:04.561]                           restarts <- computeRestarts(cond)
[18:42:04.561]                           for (restart in restarts) {
[18:42:04.561]                             name <- restart$name
[18:42:04.561]                             if (is.null(name)) 
[18:42:04.561]                               next
[18:42:04.561]                             if (!grepl(pattern, name)) 
[18:42:04.561]                               next
[18:42:04.561]                             invokeRestart(restart)
[18:42:04.561]                             muffled <- TRUE
[18:42:04.561]                             break
[18:42:04.561]                           }
[18:42:04.561]                         }
[18:42:04.561]                       }
[18:42:04.561]                       invisible(muffled)
[18:42:04.561]                     }
[18:42:04.561]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.561]                   }
[18:42:04.561]                 }
[18:42:04.561]             }
[18:42:04.561]         }))
[18:42:04.561]     }, error = function(ex) {
[18:42:04.561]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.561]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.561]                 ...future.rng), started = ...future.startTime, 
[18:42:04.561]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.561]             version = "1.8"), class = "FutureResult")
[18:42:04.561]     }, finally = {
[18:42:04.561]         if (!identical(...future.workdir, getwd())) 
[18:42:04.561]             setwd(...future.workdir)
[18:42:04.561]         {
[18:42:04.561]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.561]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.561]             }
[18:42:04.561]             base::options(...future.oldOptions)
[18:42:04.561]             if (.Platform$OS.type == "windows") {
[18:42:04.561]                 old_names <- names(...future.oldEnvVars)
[18:42:04.561]                 envs <- base::Sys.getenv()
[18:42:04.561]                 names <- names(envs)
[18:42:04.561]                 common <- intersect(names, old_names)
[18:42:04.561]                 added <- setdiff(names, old_names)
[18:42:04.561]                 removed <- setdiff(old_names, names)
[18:42:04.561]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.561]                   envs[common]]
[18:42:04.561]                 NAMES <- toupper(changed)
[18:42:04.561]                 args <- list()
[18:42:04.561]                 for (kk in seq_along(NAMES)) {
[18:42:04.561]                   name <- changed[[kk]]
[18:42:04.561]                   NAME <- NAMES[[kk]]
[18:42:04.561]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.561]                     next
[18:42:04.561]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.561]                 }
[18:42:04.561]                 NAMES <- toupper(added)
[18:42:04.561]                 for (kk in seq_along(NAMES)) {
[18:42:04.561]                   name <- added[[kk]]
[18:42:04.561]                   NAME <- NAMES[[kk]]
[18:42:04.561]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.561]                     next
[18:42:04.561]                   args[[name]] <- ""
[18:42:04.561]                 }
[18:42:04.561]                 NAMES <- toupper(removed)
[18:42:04.561]                 for (kk in seq_along(NAMES)) {
[18:42:04.561]                   name <- removed[[kk]]
[18:42:04.561]                   NAME <- NAMES[[kk]]
[18:42:04.561]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.561]                     next
[18:42:04.561]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.561]                 }
[18:42:04.561]                 if (length(args) > 0) 
[18:42:04.561]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.561]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.561]             }
[18:42:04.561]             else {
[18:42:04.561]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.561]             }
[18:42:04.561]             {
[18:42:04.561]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.561]                   0L) {
[18:42:04.561]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.561]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.561]                   base::options(opts)
[18:42:04.561]                 }
[18:42:04.561]                 {
[18:42:04.561]                   {
[18:42:04.561]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.561]                     NULL
[18:42:04.561]                   }
[18:42:04.561]                   options(future.plan = NULL)
[18:42:04.561]                   if (is.na(NA_character_)) 
[18:42:04.561]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.561]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.561]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.561]                     .init = FALSE)
[18:42:04.561]                 }
[18:42:04.561]             }
[18:42:04.561]         }
[18:42:04.561]     })
[18:42:04.561]     if (TRUE) {
[18:42:04.561]         base::sink(type = "output", split = FALSE)
[18:42:04.561]         if (TRUE) {
[18:42:04.561]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.561]         }
[18:42:04.561]         else {
[18:42:04.561]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.561]         }
[18:42:04.561]         base::close(...future.stdout)
[18:42:04.561]         ...future.stdout <- NULL
[18:42:04.561]     }
[18:42:04.561]     ...future.result$conditions <- ...future.conditions
[18:42:04.561]     ...future.result$finished <- base::Sys.time()
[18:42:04.561]     ...future.result
[18:42:04.561] }
[18:42:04.567] Exporting 11 global objects (12.39 KiB) to cluster node #1 ...
[18:42:04.567] Exporting '...future.FUN' (3.91 KiB) to cluster node #1 ...
[18:42:04.568] Exporting '...future.FUN' (3.91 KiB) to cluster node #1 ... DONE
[18:42:04.568] Exporting 'x_FUN' (37 bytes) to cluster node #1 ...
[18:42:04.569] Exporting 'x_FUN' (37 bytes) to cluster node #1 ... DONE
[18:42:04.569] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.570] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.570] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.571] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.571] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.572] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.572] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:04.572] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:04.573] Exporting 'valid_types' (61 bytes) to cluster node #1 ...
[18:42:04.573] Exporting 'valid_types' (61 bytes) to cluster node #1 ... DONE
[18:42:04.574] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:04.574] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:04.574] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ...
[18:42:04.575] Exporting '...future.elements_ii' (114 bytes) to cluster node #1 ... DONE
[18:42:04.575] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.576] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.580] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.580] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.580] Exporting 11 global objects (12.39 KiB) to cluster node #1 ... DONE
[18:42:04.581] MultisessionFuture started
[18:42:04.582] - Launch lazy future ... done
[18:42:04.582] run() for 'MultisessionFuture' ... done
[18:42:04.582] Created future:
[18:42:04.603] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.604] - Validating connection of MultisessionFuture
[18:42:04.604] - received message: FutureResult
[18:42:04.604] - Received FutureResult
[18:42:04.605] - Erased future from FutureRegistry
[18:42:04.605] result() for ClusterFuture ...
[18:42:04.605] - result already collected: FutureResult
[18:42:04.605] result() for ClusterFuture ... done
[18:42:04.605] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.583] MultisessionFuture:
[18:42:04.583] Label: 'future_vapply-2'
[18:42:04.583] Expression:
[18:42:04.583] {
[18:42:04.583]     do.call(function(...) {
[18:42:04.583]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.583]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.583]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.583]             on.exit(options(oopts), add = TRUE)
[18:42:04.583]         }
[18:42:04.583]         {
[18:42:04.583]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.583]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.583]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.583]             })
[18:42:04.583]         }
[18:42:04.583]     }, args = future.call.arguments)
[18:42:04.583] }
[18:42:04.583] Lazy evaluation: FALSE
[18:42:04.583] Asynchronous evaluation: TRUE
[18:42:04.583] Local evaluation: TRUE
[18:42:04.583] Environment: R_GlobalEnv
[18:42:04.583] Capture standard output: TRUE
[18:42:04.583] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.583] Globals: 11 objects totaling 12.17 KiB (function '...future.FUN' of 3.91 KiB, function 'x_FUN' of 37 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.583] Packages: 1 packages ('future.apply')
[18:42:04.583] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.583] Resolved: TRUE
[18:42:04.583] Value: <not collected>
[18:42:04.583] Conditions captured: <none>
[18:42:04.583] Early signaling: FALSE
[18:42:04.583] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.583] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.606] Chunk #2 of 2 ... DONE
[18:42:04.606] Launching 2 futures (chunks) ... DONE
[18:42:04.606] Resolving 2 futures (chunks) ...
[18:42:04.606] resolve() on list ...
[18:42:04.607]  recursive: 0
[18:42:04.607]  length: 2
[18:42:04.607] 
[18:42:04.607] Future #1
[18:42:04.607] result() for ClusterFuture ...
[18:42:04.608] - result already collected: FutureResult
[18:42:04.608] result() for ClusterFuture ... done
[18:42:04.608] result() for ClusterFuture ...
[18:42:04.608] - result already collected: FutureResult
[18:42:04.608] result() for ClusterFuture ... done
[18:42:04.608] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:04.609] - nx: 2
[18:42:04.609] - relay: TRUE
[18:42:04.609] - stdout: TRUE
[18:42:04.609] - signal: TRUE
[18:42:04.609] - resignal: FALSE
[18:42:04.609] - force: TRUE
[18:42:04.610] - relayed: [n=2] FALSE, FALSE
[18:42:04.610] - queued futures: [n=2] FALSE, FALSE
[18:42:04.610]  - until=1
[18:42:04.610]  - relaying element #1
[18:42:04.610] result() for ClusterFuture ...
[18:42:04.610] - result already collected: FutureResult
[18:42:04.611] result() for ClusterFuture ... done
[18:42:04.611] result() for ClusterFuture ...
[18:42:04.611] - result already collected: FutureResult
[18:42:04.611] result() for ClusterFuture ... done
[18:42:04.611] result() for ClusterFuture ...
[18:42:04.611] - result already collected: FutureResult
[18:42:04.612] result() for ClusterFuture ... done
[18:42:04.612] result() for ClusterFuture ...
[18:42:04.612] - result already collected: FutureResult
[18:42:04.612] result() for ClusterFuture ... done
[18:42:04.612] - relayed: [n=2] TRUE, FALSE
[18:42:04.612] - queued futures: [n=2] TRUE, FALSE
[18:42:04.613] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:04.613]  length: 1 (resolved future 1)
[18:42:04.613] Future #2
[18:42:04.613] result() for ClusterFuture ...
[18:42:04.613] - result already collected: FutureResult
[18:42:04.614] result() for ClusterFuture ... done
[18:42:04.614] result() for ClusterFuture ...
[18:42:04.614] - result already collected: FutureResult
[18:42:04.614] result() for ClusterFuture ... done
[18:42:04.614] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:42:04.614] - nx: 2
[18:42:04.615] - relay: TRUE
[18:42:04.615] - stdout: TRUE
[18:42:04.615] - signal: TRUE
[18:42:04.615] - resignal: FALSE
[18:42:04.615] - force: TRUE
[18:42:04.615] - relayed: [n=2] TRUE, FALSE
[18:42:04.616] - queued futures: [n=2] TRUE, FALSE
[18:42:04.616]  - until=2
[18:42:04.616]  - relaying element #2
[18:42:04.616] result() for ClusterFuture ...
[18:42:04.616] - result already collected: FutureResult
[18:42:04.616] result() for ClusterFuture ... done
[18:42:04.617] result() for ClusterFuture ...
[18:42:04.617] - result already collected: FutureResult
[18:42:04.617] result() for ClusterFuture ... done
[18:42:04.617] result() for ClusterFuture ...
[18:42:04.617] - result already collected: FutureResult
[18:42:04.617] result() for ClusterFuture ... done
[18:42:04.618] result() for ClusterFuture ...
[18:42:04.618] - result already collected: FutureResult
[18:42:04.618] result() for ClusterFuture ... done
[18:42:04.618] - relayed: [n=2] TRUE, TRUE
[18:42:04.618] - queued futures: [n=2] TRUE, TRUE
[18:42:04.618] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:42:04.619]  length: 0 (resolved future 2)
[18:42:04.619] Relaying remaining futures
[18:42:04.619] signalConditionsASAP(NULL, pos=0) ...
[18:42:04.619] - nx: 2
[18:42:04.619] - relay: TRUE
[18:42:04.619] - stdout: TRUE
[18:42:04.619] - signal: TRUE
[18:42:04.620] - resignal: FALSE
[18:42:04.620] - force: TRUE
[18:42:04.620] - relayed: [n=2] TRUE, TRUE
[18:42:04.620] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:42:04.620] - relayed: [n=2] TRUE, TRUE
[18:42:04.620] - queued futures: [n=2] TRUE, TRUE
[18:42:04.621] signalConditionsASAP(NULL, pos=0) ... done
[18:42:04.621] resolve() on list ... DONE
[18:42:04.621] result() for ClusterFuture ...
[18:42:04.621] - result already collected: FutureResult
[18:42:04.621] result() for ClusterFuture ... done
[18:42:04.621] result() for ClusterFuture ...
[18:42:04.622] - result already collected: FutureResult
[18:42:04.622] result() for ClusterFuture ... done
[18:42:04.622] result() for ClusterFuture ...
[18:42:04.622] - result already collected: FutureResult
[18:42:04.622] result() for ClusterFuture ... done
[18:42:04.622] result() for ClusterFuture ...
[18:42:04.622] - result already collected: FutureResult
[18:42:04.623] result() for ClusterFuture ... done
[18:42:04.623]  - Number of value chunks collected: 2
[18:42:04.623] Resolving 2 futures (chunks) ... DONE
[18:42:04.623] Reducing values from 2 chunks ...
[18:42:04.623]  - Number of values collected after concatenation: 3
[18:42:04.623]  - Number of values expected: 3
[18:42:04.624] Reducing values from 2 chunks ... DONE
[18:42:04.624] future_lapply() ... DONE
- exceptions ...
[18:42:04.624] future_lapply() ...
[18:42:04.629] Number of chunks: 2
[18:42:04.629] getGlobalsAndPackagesXApply() ...
[18:42:04.629]  - future.globals: TRUE
[18:42:04.630] getGlobalsAndPackages() ...
[18:42:04.630] Searching for globals...
[18:42:04.634] - globals found: [16] 'FUN', '{', '<-', 'x_FUN', 'if', '!=', 'length', 'times', 'stopf', 'stop_if_not', 'all', '==', 'dim', '%in%', 'typeof', 'valid_types'
[18:42:04.634] Searching for globals ... DONE
[18:42:04.635] Resolving globals: FALSE
[18:42:04.636] The total size of the 7 globals is 12.81 KiB (13119 bytes)
[18:42:04.636] The total size of the 7 globals exported for future expression ('FUN()') is 12.81 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). The three largest globals are 'FUN' (4.65 KiB of class 'function'), 'stop_if_not' (4.51 KiB of class 'function') and 'stopf' (3.33 KiB of class 'function')
[18:42:04.636] - globals: [7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.637] - packages: [1] 'future.apply'
[18:42:04.637] getGlobalsAndPackages() ... DONE
[18:42:04.637]  - globals found/used: [n=7] 'FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types'
[18:42:04.637]  - needed namespaces: [n=1] 'future.apply'
[18:42:04.637] Finding globals ... DONE
[18:42:04.638]  - use_args: TRUE
[18:42:04.638]  - Getting '...' globals ...
[18:42:04.638] resolve() on list ...
[18:42:04.638]  recursive: 0
[18:42:04.639]  length: 1
[18:42:04.639]  elements: '...'
[18:42:04.639]  length: 0 (resolved future 1)
[18:42:04.639] resolve() on list ... DONE
[18:42:04.639]    - '...' content: [n=0] 
[18:42:04.639] List of 1
[18:42:04.639]  $ ...: list()
[18:42:04.639]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.639]  - attr(*, "where")=List of 1
[18:42:04.639]   ..$ ...:<environment: 0x000002ea02a4ebc0> 
[18:42:04.639]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.639]  - attr(*, "resolved")= logi TRUE
[18:42:04.639]  - attr(*, "total_size")= num NA
[18:42:04.643]  - Getting '...' globals ... DONE
[18:42:04.643] Globals to be used in all futures (chunks): [n=8] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...'
[18:42:04.643] List of 8
[18:42:04.643]  $ ...future.FUN:function (x, ...)  
[18:42:04.643]  $ x_FUN        :function (x)  
[18:42:04.643]  $ times        : int 2
[18:42:04.643]  $ stopf        :function (fmt, ..., call. = TRUE, domain = NULL)  
[18:42:04.643]  $ stop_if_not  :function (...)  
[18:42:04.643]  $ dim          : NULL
[18:42:04.643]  $ valid_types  : chr [1:3] "logical" "integer" "double"
[18:42:04.643]  $ ...          : list()
[18:42:04.643]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:42:04.643]  - attr(*, "where")=List of 8
[18:42:04.643]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ x_FUN        :<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ times        :<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ stopf        :<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ stop_if_not  :<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ dim          :<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ valid_types  :<environment: R_EmptyEnv> 
[18:42:04.643]   ..$ ...          :<environment: 0x000002ea02a4ebc0> 
[18:42:04.643]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:42:04.643]  - attr(*, "resolved")= logi FALSE
[18:42:04.643]  - attr(*, "total_size")= int 23676
[18:42:04.650] Packages to be attached in all futures: [n=1] 'future.apply'
[18:42:04.650] getGlobalsAndPackagesXApply() ... DONE
[18:42:04.650] Number of futures (= number of chunks): 2
[18:42:04.651] Launching 2 futures (chunks) ...
[18:42:04.651] Chunk #1 of 2 ...
[18:42:04.651]  - Finding globals in 'X' for chunk #1 ...
[18:42:04.651] getGlobalsAndPackages() ...
[18:42:04.651] Searching for globals...
[18:42:04.652] 
[18:42:04.652] Searching for globals ... DONE
[18:42:04.652] - globals: [0] <none>
[18:42:04.652] getGlobalsAndPackages() ... DONE
[18:42:04.652]    + additional globals found: [n=0] 
[18:42:04.652]    + additional namespaces needed: [n=0] 
[18:42:04.653]  - Finding globals in 'X' for chunk #1 ... DONE
[18:42:04.653]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.653]  - seeds: <none>
[18:42:04.653]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.653] getGlobalsAndPackages() ...
[18:42:04.653] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.654] Resolving globals: FALSE
[18:42:04.654] Tweak future expression to call with '...' arguments ...
[18:42:04.654] {
[18:42:04.654]     do.call(function(...) {
[18:42:04.654]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.654]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.654]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.654]             on.exit(options(oopts), add = TRUE)
[18:42:04.654]         }
[18:42:04.654]         {
[18:42:04.654]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.654]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.654]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.654]             })
[18:42:04.654]         }
[18:42:04.654]     }, args = future.call.arguments)
[18:42:04.654] }
[18:42:04.654] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.655] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.655] - packages: [1] 'future.apply'
[18:42:04.656] getGlobalsAndPackages() ... DONE
[18:42:04.656] run() for 'Future' ...
[18:42:04.656] - state: 'created'
[18:42:04.657] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.672] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.673] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.673]   - Field: 'node'
[18:42:04.673]   - Field: 'label'
[18:42:04.673]   - Field: 'local'
[18:42:04.673]   - Field: 'owner'
[18:42:04.674]   - Field: 'envir'
[18:42:04.674]   - Field: 'workers'
[18:42:04.674]   - Field: 'packages'
[18:42:04.674]   - Field: 'gc'
[18:42:04.674]   - Field: 'conditions'
[18:42:04.675]   - Field: 'persistent'
[18:42:04.675]   - Field: 'expr'
[18:42:04.675]   - Field: 'uuid'
[18:42:04.675]   - Field: 'seed'
[18:42:04.675]   - Field: 'version'
[18:42:04.675]   - Field: 'result'
[18:42:04.676]   - Field: 'asynchronous'
[18:42:04.676]   - Field: 'calls'
[18:42:04.676]   - Field: 'globals'
[18:42:04.676]   - Field: 'stdout'
[18:42:04.676]   - Field: 'earlySignal'
[18:42:04.677]   - Field: 'lazy'
[18:42:04.677]   - Field: 'state'
[18:42:04.677] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.677] - Launch lazy future ...
[18:42:04.678] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.678] Packages needed by future strategies (n = 0): <none>
[18:42:04.679] {
[18:42:04.679]     {
[18:42:04.679]         {
[18:42:04.679]             ...future.startTime <- base::Sys.time()
[18:42:04.679]             {
[18:42:04.679]                 {
[18:42:04.679]                   {
[18:42:04.679]                     {
[18:42:04.679]                       {
[18:42:04.679]                         base::local({
[18:42:04.679]                           has_future <- base::requireNamespace("future", 
[18:42:04.679]                             quietly = TRUE)
[18:42:04.679]                           if (has_future) {
[18:42:04.679]                             ns <- base::getNamespace("future")
[18:42:04.679]                             version <- ns[[".package"]][["version"]]
[18:42:04.679]                             if (is.null(version)) 
[18:42:04.679]                               version <- utils::packageVersion("future")
[18:42:04.679]                           }
[18:42:04.679]                           else {
[18:42:04.679]                             version <- NULL
[18:42:04.679]                           }
[18:42:04.679]                           if (!has_future || version < "1.8.0") {
[18:42:04.679]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.679]                               "", base::R.version$version.string), 
[18:42:04.679]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.679]                                 base::R.version$platform, 8 * 
[18:42:04.679]                                   base::.Machine$sizeof.pointer), 
[18:42:04.679]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.679]                                 "release", "version")], collapse = " "), 
[18:42:04.679]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.679]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.679]                               info)
[18:42:04.679]                             info <- base::paste(info, collapse = "; ")
[18:42:04.679]                             if (!has_future) {
[18:42:04.679]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.679]                                 info)
[18:42:04.679]                             }
[18:42:04.679]                             else {
[18:42:04.679]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.679]                                 info, version)
[18:42:04.679]                             }
[18:42:04.679]                             base::stop(msg)
[18:42:04.679]                           }
[18:42:04.679]                         })
[18:42:04.679]                       }
[18:42:04.679]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.679]                       base::options(mc.cores = 1L)
[18:42:04.679]                     }
[18:42:04.679]                     base::local({
[18:42:04.679]                       for (pkg in "future.apply") {
[18:42:04.679]                         base::loadNamespace(pkg)
[18:42:04.679]                         base::library(pkg, character.only = TRUE)
[18:42:04.679]                       }
[18:42:04.679]                     })
[18:42:04.679]                   }
[18:42:04.679]                   ...future.strategy.old <- future::plan("list")
[18:42:04.679]                   options(future.plan = NULL)
[18:42:04.679]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.679]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.679]                 }
[18:42:04.679]                 ...future.workdir <- getwd()
[18:42:04.679]             }
[18:42:04.679]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.679]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.679]         }
[18:42:04.679]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.679]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.679]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.679]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.679]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.679]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.679]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.679]             base::names(...future.oldOptions))
[18:42:04.679]     }
[18:42:04.679]     if (FALSE) {
[18:42:04.679]     }
[18:42:04.679]     else {
[18:42:04.679]         if (TRUE) {
[18:42:04.679]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.679]                 open = "w")
[18:42:04.679]         }
[18:42:04.679]         else {
[18:42:04.679]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.679]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.679]         }
[18:42:04.679]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.679]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.679]             base::sink(type = "output", split = FALSE)
[18:42:04.679]             base::close(...future.stdout)
[18:42:04.679]         }, add = TRUE)
[18:42:04.679]     }
[18:42:04.679]     ...future.frame <- base::sys.nframe()
[18:42:04.679]     ...future.conditions <- base::list()
[18:42:04.679]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.679]     if (FALSE) {
[18:42:04.679]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.679]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.679]     }
[18:42:04.679]     ...future.result <- base::tryCatch({
[18:42:04.679]         base::withCallingHandlers({
[18:42:04.679]             ...future.value <- base::withVisible(base::local({
[18:42:04.679]                 ...future.makeSendCondition <- base::local({
[18:42:04.679]                   sendCondition <- NULL
[18:42:04.679]                   function(frame = 1L) {
[18:42:04.679]                     if (is.function(sendCondition)) 
[18:42:04.679]                       return(sendCondition)
[18:42:04.679]                     ns <- getNamespace("parallel")
[18:42:04.679]                     if (exists("sendData", mode = "function", 
[18:42:04.679]                       envir = ns)) {
[18:42:04.679]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.679]                         envir = ns)
[18:42:04.679]                       envir <- sys.frame(frame)
[18:42:04.679]                       master <- NULL
[18:42:04.679]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.679]                         !identical(envir, emptyenv())) {
[18:42:04.679]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.679]                           inherits = FALSE)) {
[18:42:04.679]                           master <- get("master", mode = "list", 
[18:42:04.679]                             envir = envir, inherits = FALSE)
[18:42:04.679]                           if (inherits(master, c("SOCKnode", 
[18:42:04.679]                             "SOCK0node"))) {
[18:42:04.679]                             sendCondition <<- function(cond) {
[18:42:04.679]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.679]                                 success = TRUE)
[18:42:04.679]                               parallel_sendData(master, data)
[18:42:04.679]                             }
[18:42:04.679]                             return(sendCondition)
[18:42:04.679]                           }
[18:42:04.679]                         }
[18:42:04.679]                         frame <- frame + 1L
[18:42:04.679]                         envir <- sys.frame(frame)
[18:42:04.679]                       }
[18:42:04.679]                     }
[18:42:04.679]                     sendCondition <<- function(cond) NULL
[18:42:04.679]                   }
[18:42:04.679]                 })
[18:42:04.679]                 withCallingHandlers({
[18:42:04.679]                   {
[18:42:04.679]                     do.call(function(...) {
[18:42:04.679]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.679]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.679]                         ...future.globals.maxSize)) {
[18:42:04.679]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.679]                         on.exit(options(oopts), add = TRUE)
[18:42:04.679]                       }
[18:42:04.679]                       {
[18:42:04.679]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.679]                           FUN = function(jj) {
[18:42:04.679]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.679]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.679]                           })
[18:42:04.679]                       }
[18:42:04.679]                     }, args = future.call.arguments)
[18:42:04.679]                   }
[18:42:04.679]                 }, immediateCondition = function(cond) {
[18:42:04.679]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.679]                   sendCondition(cond)
[18:42:04.679]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.679]                   {
[18:42:04.679]                     inherits <- base::inherits
[18:42:04.679]                     invokeRestart <- base::invokeRestart
[18:42:04.679]                     is.null <- base::is.null
[18:42:04.679]                     muffled <- FALSE
[18:42:04.679]                     if (inherits(cond, "message")) {
[18:42:04.679]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.679]                       if (muffled) 
[18:42:04.679]                         invokeRestart("muffleMessage")
[18:42:04.679]                     }
[18:42:04.679]                     else if (inherits(cond, "warning")) {
[18:42:04.679]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.679]                       if (muffled) 
[18:42:04.679]                         invokeRestart("muffleWarning")
[18:42:04.679]                     }
[18:42:04.679]                     else if (inherits(cond, "condition")) {
[18:42:04.679]                       if (!is.null(pattern)) {
[18:42:04.679]                         computeRestarts <- base::computeRestarts
[18:42:04.679]                         grepl <- base::grepl
[18:42:04.679]                         restarts <- computeRestarts(cond)
[18:42:04.679]                         for (restart in restarts) {
[18:42:04.679]                           name <- restart$name
[18:42:04.679]                           if (is.null(name)) 
[18:42:04.679]                             next
[18:42:04.679]                           if (!grepl(pattern, name)) 
[18:42:04.679]                             next
[18:42:04.679]                           invokeRestart(restart)
[18:42:04.679]                           muffled <- TRUE
[18:42:04.679]                           break
[18:42:04.679]                         }
[18:42:04.679]                       }
[18:42:04.679]                     }
[18:42:04.679]                     invisible(muffled)
[18:42:04.679]                   }
[18:42:04.679]                   muffleCondition(cond)
[18:42:04.679]                 })
[18:42:04.679]             }))
[18:42:04.679]             future::FutureResult(value = ...future.value$value, 
[18:42:04.679]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.679]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.679]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.679]                     ...future.globalenv.names))
[18:42:04.679]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.679]         }, condition = base::local({
[18:42:04.679]             c <- base::c
[18:42:04.679]             inherits <- base::inherits
[18:42:04.679]             invokeRestart <- base::invokeRestart
[18:42:04.679]             length <- base::length
[18:42:04.679]             list <- base::list
[18:42:04.679]             seq.int <- base::seq.int
[18:42:04.679]             signalCondition <- base::signalCondition
[18:42:04.679]             sys.calls <- base::sys.calls
[18:42:04.679]             `[[` <- base::`[[`
[18:42:04.679]             `+` <- base::`+`
[18:42:04.679]             `<<-` <- base::`<<-`
[18:42:04.679]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.679]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.679]                   3L)]
[18:42:04.679]             }
[18:42:04.679]             function(cond) {
[18:42:04.679]                 is_error <- inherits(cond, "error")
[18:42:04.679]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.679]                   NULL)
[18:42:04.679]                 if (is_error) {
[18:42:04.679]                   sessionInformation <- function() {
[18:42:04.679]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.679]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.679]                       search = base::search(), system = base::Sys.info())
[18:42:04.679]                   }
[18:42:04.679]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.679]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.679]                     cond$call), session = sessionInformation(), 
[18:42:04.679]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.679]                   signalCondition(cond)
[18:42:04.679]                 }
[18:42:04.679]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.679]                 "immediateCondition"))) {
[18:42:04.679]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.679]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.679]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.679]                   if (TRUE && !signal) {
[18:42:04.679]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.679]                     {
[18:42:04.679]                       inherits <- base::inherits
[18:42:04.679]                       invokeRestart <- base::invokeRestart
[18:42:04.679]                       is.null <- base::is.null
[18:42:04.679]                       muffled <- FALSE
[18:42:04.679]                       if (inherits(cond, "message")) {
[18:42:04.679]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.679]                         if (muffled) 
[18:42:04.679]                           invokeRestart("muffleMessage")
[18:42:04.679]                       }
[18:42:04.679]                       else if (inherits(cond, "warning")) {
[18:42:04.679]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.679]                         if (muffled) 
[18:42:04.679]                           invokeRestart("muffleWarning")
[18:42:04.679]                       }
[18:42:04.679]                       else if (inherits(cond, "condition")) {
[18:42:04.679]                         if (!is.null(pattern)) {
[18:42:04.679]                           computeRestarts <- base::computeRestarts
[18:42:04.679]                           grepl <- base::grepl
[18:42:04.679]                           restarts <- computeRestarts(cond)
[18:42:04.679]                           for (restart in restarts) {
[18:42:04.679]                             name <- restart$name
[18:42:04.679]                             if (is.null(name)) 
[18:42:04.679]                               next
[18:42:04.679]                             if (!grepl(pattern, name)) 
[18:42:04.679]                               next
[18:42:04.679]                             invokeRestart(restart)
[18:42:04.679]                             muffled <- TRUE
[18:42:04.679]                             break
[18:42:04.679]                           }
[18:42:04.679]                         }
[18:42:04.679]                       }
[18:42:04.679]                       invisible(muffled)
[18:42:04.679]                     }
[18:42:04.679]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.679]                   }
[18:42:04.679]                 }
[18:42:04.679]                 else {
[18:42:04.679]                   if (TRUE) {
[18:42:04.679]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.679]                     {
[18:42:04.679]                       inherits <- base::inherits
[18:42:04.679]                       invokeRestart <- base::invokeRestart
[18:42:04.679]                       is.null <- base::is.null
[18:42:04.679]                       muffled <- FALSE
[18:42:04.679]                       if (inherits(cond, "message")) {
[18:42:04.679]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.679]                         if (muffled) 
[18:42:04.679]                           invokeRestart("muffleMessage")
[18:42:04.679]                       }
[18:42:04.679]                       else if (inherits(cond, "warning")) {
[18:42:04.679]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.679]                         if (muffled) 
[18:42:04.679]                           invokeRestart("muffleWarning")
[18:42:04.679]                       }
[18:42:04.679]                       else if (inherits(cond, "condition")) {
[18:42:04.679]                         if (!is.null(pattern)) {
[18:42:04.679]                           computeRestarts <- base::computeRestarts
[18:42:04.679]                           grepl <- base::grepl
[18:42:04.679]                           restarts <- computeRestarts(cond)
[18:42:04.679]                           for (restart in restarts) {
[18:42:04.679]                             name <- restart$name
[18:42:04.679]                             if (is.null(name)) 
[18:42:04.679]                               next
[18:42:04.679]                             if (!grepl(pattern, name)) 
[18:42:04.679]                               next
[18:42:04.679]                             invokeRestart(restart)
[18:42:04.679]                             muffled <- TRUE
[18:42:04.679]                             break
[18:42:04.679]                           }
[18:42:04.679]                         }
[18:42:04.679]                       }
[18:42:04.679]                       invisible(muffled)
[18:42:04.679]                     }
[18:42:04.679]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.679]                   }
[18:42:04.679]                 }
[18:42:04.679]             }
[18:42:04.679]         }))
[18:42:04.679]     }, error = function(ex) {
[18:42:04.679]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.679]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.679]                 ...future.rng), started = ...future.startTime, 
[18:42:04.679]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.679]             version = "1.8"), class = "FutureResult")
[18:42:04.679]     }, finally = {
[18:42:04.679]         if (!identical(...future.workdir, getwd())) 
[18:42:04.679]             setwd(...future.workdir)
[18:42:04.679]         {
[18:42:04.679]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.679]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.679]             }
[18:42:04.679]             base::options(...future.oldOptions)
[18:42:04.679]             if (.Platform$OS.type == "windows") {
[18:42:04.679]                 old_names <- names(...future.oldEnvVars)
[18:42:04.679]                 envs <- base::Sys.getenv()
[18:42:04.679]                 names <- names(envs)
[18:42:04.679]                 common <- intersect(names, old_names)
[18:42:04.679]                 added <- setdiff(names, old_names)
[18:42:04.679]                 removed <- setdiff(old_names, names)
[18:42:04.679]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.679]                   envs[common]]
[18:42:04.679]                 NAMES <- toupper(changed)
[18:42:04.679]                 args <- list()
[18:42:04.679]                 for (kk in seq_along(NAMES)) {
[18:42:04.679]                   name <- changed[[kk]]
[18:42:04.679]                   NAME <- NAMES[[kk]]
[18:42:04.679]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.679]                     next
[18:42:04.679]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.679]                 }
[18:42:04.679]                 NAMES <- toupper(added)
[18:42:04.679]                 for (kk in seq_along(NAMES)) {
[18:42:04.679]                   name <- added[[kk]]
[18:42:04.679]                   NAME <- NAMES[[kk]]
[18:42:04.679]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.679]                     next
[18:42:04.679]                   args[[name]] <- ""
[18:42:04.679]                 }
[18:42:04.679]                 NAMES <- toupper(removed)
[18:42:04.679]                 for (kk in seq_along(NAMES)) {
[18:42:04.679]                   name <- removed[[kk]]
[18:42:04.679]                   NAME <- NAMES[[kk]]
[18:42:04.679]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.679]                     next
[18:42:04.679]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.679]                 }
[18:42:04.679]                 if (length(args) > 0) 
[18:42:04.679]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.679]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.679]             }
[18:42:04.679]             else {
[18:42:04.679]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.679]             }
[18:42:04.679]             {
[18:42:04.679]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.679]                   0L) {
[18:42:04.679]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.679]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.679]                   base::options(opts)
[18:42:04.679]                 }
[18:42:04.679]                 {
[18:42:04.679]                   {
[18:42:04.679]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.679]                     NULL
[18:42:04.679]                   }
[18:42:04.679]                   options(future.plan = NULL)
[18:42:04.679]                   if (is.na(NA_character_)) 
[18:42:04.679]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.679]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.679]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.679]                     .init = FALSE)
[18:42:04.679]                 }
[18:42:04.679]             }
[18:42:04.679]         }
[18:42:04.679]     })
[18:42:04.679]     if (TRUE) {
[18:42:04.679]         base::sink(type = "output", split = FALSE)
[18:42:04.679]         if (TRUE) {
[18:42:04.679]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.679]         }
[18:42:04.679]         else {
[18:42:04.679]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.679]         }
[18:42:04.679]         base::close(...future.stdout)
[18:42:04.679]         ...future.stdout <- NULL
[18:42:04.679]     }
[18:42:04.679]     ...future.result$conditions <- ...future.conditions
[18:42:04.679]     ...future.result$finished <- base::Sys.time()
[18:42:04.679]     ...future.result
[18:42:04.679] }
[18:42:04.685] Exporting 11 global objects (13.22 KiB) to cluster node #1 ...
[18:42:04.685] Exporting '...future.FUN' (4.65 KiB) to cluster node #1 ...
[18:42:04.686] Exporting '...future.FUN' (4.65 KiB) to cluster node #1 ... DONE
[18:42:04.686] Exporting 'x_FUN' (185 bytes) to cluster node #1 ...
[18:42:04.687] Exporting 'x_FUN' (185 bytes) to cluster node #1 ... DONE
[18:42:04.687] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.688] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.688] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.688] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.689] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.689] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.690] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:04.690] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:04.691] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:04.691] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:04.692] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:04.692] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:04.692] Exporting '...future.elements_ii' (43 bytes) to cluster node #1 ...
[18:42:04.693] Exporting '...future.elements_ii' (43 bytes) to cluster node #1 ... DONE
[18:42:04.694] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.694] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.695] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.695] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.695] Exporting 11 global objects (13.22 KiB) to cluster node #1 ... DONE
[18:42:04.696] MultisessionFuture started
[18:42:04.696] - Launch lazy future ... done
[18:42:04.697] run() for 'MultisessionFuture' ... done
[18:42:04.697] Created future:
[18:42:04.719] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.719] - Validating connection of MultisessionFuture
[18:42:04.720] - received message: FutureResult
[18:42:04.720] - Received FutureResult
[18:42:04.720] - Erased future from FutureRegistry
[18:42:04.720] result() for ClusterFuture ...
[18:42:04.721] - result already collected: FutureResult
[18:42:04.721] result() for ClusterFuture ... done
[18:42:04.721] signalConditions() ...
[18:42:04.721]  - include = 'immediateCondition'
[18:42:04.721]  - exclude = 
[18:42:04.721]  - resignal = FALSE
[18:42:04.722]  - Number of conditions: 1
[18:42:04.722] signalConditions() ... done
[18:42:04.722] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.697] MultisessionFuture:
[18:42:04.697] Label: 'future_vapply-1'
[18:42:04.697] Expression:
[18:42:04.697] {
[18:42:04.697]     do.call(function(...) {
[18:42:04.697]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.697]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.697]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.697]             on.exit(options(oopts), add = TRUE)
[18:42:04.697]         }
[18:42:04.697]         {
[18:42:04.697]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.697]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.697]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.697]             })
[18:42:04.697]         }
[18:42:04.697]     }, args = future.call.arguments)
[18:42:04.697] }
[18:42:04.697] Lazy evaluation: FALSE
[18:42:04.697] Asynchronous evaluation: TRUE
[18:42:04.697] Local evaluation: TRUE
[18:42:04.697] Environment: R_GlobalEnv
[18:42:04.697] Capture standard output: TRUE
[18:42:04.697] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.697] Globals: 11 objects totaling 13.00 KiB (function '...future.FUN' of 4.65 KiB, function 'x_FUN' of 185 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.697] Packages: 1 packages ('future.apply')
[18:42:04.697] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.697] Resolved: TRUE
[18:42:04.697] Value: <not collected>
[18:42:04.697] Conditions captured: <none>
[18:42:04.697] Early signaling: FALSE
[18:42:04.697] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.697] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.722] Chunk #1 of 2 ... DONE
[18:42:04.722] Chunk #2 of 2 ...
[18:42:04.723]  - Finding globals in 'X' for chunk #2 ...
[18:42:04.723] getGlobalsAndPackages() ...
[18:42:04.723] Searching for globals...
[18:42:04.723] 
[18:42:04.724] Searching for globals ... DONE
[18:42:04.724] - globals: [0] <none>
[18:42:04.724] getGlobalsAndPackages() ... DONE
[18:42:04.724]    + additional globals found: [n=0] 
[18:42:04.724]    + additional namespaces needed: [n=0] 
[18:42:04.724]  - Finding globals in 'X' for chunk #2 ... DONE
[18:42:04.724]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:42:04.725]  - seeds: <none>
[18:42:04.725]  - All globals exported: [n=11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.725] getGlobalsAndPackages() ...
[18:42:04.725] - globals passed as-is: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.725] Resolving globals: FALSE
[18:42:04.726] Tweak future expression to call with '...' arguments ...
[18:42:04.726] {
[18:42:04.726]     do.call(function(...) {
[18:42:04.726]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.726]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.726]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.726]             on.exit(options(oopts), add = TRUE)
[18:42:04.726]         }
[18:42:04.726]         {
[18:42:04.726]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.726]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.726]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.726]             })
[18:42:04.726]         }
[18:42:04.726]     }, args = future.call.arguments)
[18:42:04.726] }
[18:42:04.726] Tweak future expression to call with '...' arguments ... DONE
[18:42:04.727] - globals: [11] '...future.FUN', 'x_FUN', 'times', 'stopf', 'stop_if_not', 'dim', 'valid_types', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:42:04.727] - packages: [1] 'future.apply'
[18:42:04.727] getGlobalsAndPackages() ... DONE
[18:42:04.728] run() for 'Future' ...
[18:42:04.728] - state: 'created'
[18:42:04.728] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:42:04.744] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.745] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:42:04.745]   - Field: 'node'
[18:42:04.746]   - Field: 'label'
[18:42:04.746]   - Field: 'local'
[18:42:04.746]   - Field: 'owner'
[18:42:04.746]   - Field: 'envir'
[18:42:04.747]   - Field: 'workers'
[18:42:04.747]   - Field: 'packages'
[18:42:04.747]   - Field: 'gc'
[18:42:04.748]   - Field: 'conditions'
[18:42:04.748]   - Field: 'persistent'
[18:42:04.748]   - Field: 'expr'
[18:42:04.749]   - Field: 'uuid'
[18:42:04.749]   - Field: 'seed'
[18:42:04.749]   - Field: 'version'
[18:42:04.749]   - Field: 'result'
[18:42:04.750]   - Field: 'asynchronous'
[18:42:04.750]   - Field: 'calls'
[18:42:04.750]   - Field: 'globals'
[18:42:04.751]   - Field: 'stdout'
[18:42:04.751]   - Field: 'earlySignal'
[18:42:04.751]   - Field: 'lazy'
[18:42:04.751]   - Field: 'state'
[18:42:04.752] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:42:04.752] - Launch lazy future ...
[18:42:04.753] Packages needed by the future expression (n = 1): 'future.apply'
[18:42:04.753] Packages needed by future strategies (n = 0): <none>
[18:42:04.754] {
[18:42:04.754]     {
[18:42:04.754]         {
[18:42:04.754]             ...future.startTime <- base::Sys.time()
[18:42:04.754]             {
[18:42:04.754]                 {
[18:42:04.754]                   {
[18:42:04.754]                     {
[18:42:04.754]                       {
[18:42:04.754]                         base::local({
[18:42:04.754]                           has_future <- base::requireNamespace("future", 
[18:42:04.754]                             quietly = TRUE)
[18:42:04.754]                           if (has_future) {
[18:42:04.754]                             ns <- base::getNamespace("future")
[18:42:04.754]                             version <- ns[[".package"]][["version"]]
[18:42:04.754]                             if (is.null(version)) 
[18:42:04.754]                               version <- utils::packageVersion("future")
[18:42:04.754]                           }
[18:42:04.754]                           else {
[18:42:04.754]                             version <- NULL
[18:42:04.754]                           }
[18:42:04.754]                           if (!has_future || version < "1.8.0") {
[18:42:04.754]                             info <- base::c(r_version = base::gsub("R version ", 
[18:42:04.754]                               "", base::R.version$version.string), 
[18:42:04.754]                               platform = base::sprintf("%s (%s-bit)", 
[18:42:04.754]                                 base::R.version$platform, 8 * 
[18:42:04.754]                                   base::.Machine$sizeof.pointer), 
[18:42:04.754]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[18:42:04.754]                                 "release", "version")], collapse = " "), 
[18:42:04.754]                               hostname = base::Sys.info()[["nodename"]])
[18:42:04.754]                             info <- base::sprintf("%s: %s", base::names(info), 
[18:42:04.754]                               info)
[18:42:04.754]                             info <- base::paste(info, collapse = "; ")
[18:42:04.754]                             if (!has_future) {
[18:42:04.754]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:42:04.754]                                 info)
[18:42:04.754]                             }
[18:42:04.754]                             else {
[18:42:04.754]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:42:04.754]                                 info, version)
[18:42:04.754]                             }
[18:42:04.754]                             base::stop(msg)
[18:42:04.754]                           }
[18:42:04.754]                         })
[18:42:04.754]                       }
[18:42:04.754]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[18:42:04.754]                       base::options(mc.cores = 1L)
[18:42:04.754]                     }
[18:42:04.754]                     base::local({
[18:42:04.754]                       for (pkg in "future.apply") {
[18:42:04.754]                         base::loadNamespace(pkg)
[18:42:04.754]                         base::library(pkg, character.only = TRUE)
[18:42:04.754]                       }
[18:42:04.754]                     })
[18:42:04.754]                   }
[18:42:04.754]                   ...future.strategy.old <- future::plan("list")
[18:42:04.754]                   options(future.plan = NULL)
[18:42:04.754]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.754]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:42:04.754]                 }
[18:42:04.754]                 ...future.workdir <- getwd()
[18:42:04.754]             }
[18:42:04.754]             ...future.oldOptions <- base::as.list(base::.Options)
[18:42:04.754]             ...future.oldEnvVars <- base::Sys.getenv()
[18:42:04.754]         }
[18:42:04.754]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:42:04.754]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:42:04.754]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:42:04.754]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:42:04.754]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:42:04.754]             future.stdout.windows.reencode = NULL, width = 80L)
[18:42:04.754]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:42:04.754]             base::names(...future.oldOptions))
[18:42:04.754]     }
[18:42:04.754]     if (FALSE) {
[18:42:04.754]     }
[18:42:04.754]     else {
[18:42:04.754]         if (TRUE) {
[18:42:04.754]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:42:04.754]                 open = "w")
[18:42:04.754]         }
[18:42:04.754]         else {
[18:42:04.754]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:42:04.754]                 windows = "NUL", "/dev/null"), open = "w")
[18:42:04.754]         }
[18:42:04.754]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:42:04.754]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:42:04.754]             base::sink(type = "output", split = FALSE)
[18:42:04.754]             base::close(...future.stdout)
[18:42:04.754]         }, add = TRUE)
[18:42:04.754]     }
[18:42:04.754]     ...future.frame <- base::sys.nframe()
[18:42:04.754]     ...future.conditions <- base::list()
[18:42:04.754]     ...future.rng <- base::globalenv()$.Random.seed
[18:42:04.754]     if (FALSE) {
[18:42:04.754]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:42:04.754]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:42:04.754]     }
[18:42:04.754]     ...future.result <- base::tryCatch({
[18:42:04.754]         base::withCallingHandlers({
[18:42:04.754]             ...future.value <- base::withVisible(base::local({
[18:42:04.754]                 ...future.makeSendCondition <- base::local({
[18:42:04.754]                   sendCondition <- NULL
[18:42:04.754]                   function(frame = 1L) {
[18:42:04.754]                     if (is.function(sendCondition)) 
[18:42:04.754]                       return(sendCondition)
[18:42:04.754]                     ns <- getNamespace("parallel")
[18:42:04.754]                     if (exists("sendData", mode = "function", 
[18:42:04.754]                       envir = ns)) {
[18:42:04.754]                       parallel_sendData <- get("sendData", mode = "function", 
[18:42:04.754]                         envir = ns)
[18:42:04.754]                       envir <- sys.frame(frame)
[18:42:04.754]                       master <- NULL
[18:42:04.754]                       while (!identical(envir, .GlobalEnv) && 
[18:42:04.754]                         !identical(envir, emptyenv())) {
[18:42:04.754]                         if (exists("master", mode = "list", envir = envir, 
[18:42:04.754]                           inherits = FALSE)) {
[18:42:04.754]                           master <- get("master", mode = "list", 
[18:42:04.754]                             envir = envir, inherits = FALSE)
[18:42:04.754]                           if (inherits(master, c("SOCKnode", 
[18:42:04.754]                             "SOCK0node"))) {
[18:42:04.754]                             sendCondition <<- function(cond) {
[18:42:04.754]                               data <- list(type = "VALUE", value = cond, 
[18:42:04.754]                                 success = TRUE)
[18:42:04.754]                               parallel_sendData(master, data)
[18:42:04.754]                             }
[18:42:04.754]                             return(sendCondition)
[18:42:04.754]                           }
[18:42:04.754]                         }
[18:42:04.754]                         frame <- frame + 1L
[18:42:04.754]                         envir <- sys.frame(frame)
[18:42:04.754]                       }
[18:42:04.754]                     }
[18:42:04.754]                     sendCondition <<- function(cond) NULL
[18:42:04.754]                   }
[18:42:04.754]                 })
[18:42:04.754]                 withCallingHandlers({
[18:42:04.754]                   {
[18:42:04.754]                     do.call(function(...) {
[18:42:04.754]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.754]                       if (!identical(...future.globals.maxSize.org, 
[18:42:04.754]                         ...future.globals.maxSize)) {
[18:42:04.754]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.754]                         on.exit(options(oopts), add = TRUE)
[18:42:04.754]                       }
[18:42:04.754]                       {
[18:42:04.754]                         lapply(seq_along(...future.elements_ii), 
[18:42:04.754]                           FUN = function(jj) {
[18:42:04.754]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.754]                             ...future.FUN(...future.X_jj, ...)
[18:42:04.754]                           })
[18:42:04.754]                       }
[18:42:04.754]                     }, args = future.call.arguments)
[18:42:04.754]                   }
[18:42:04.754]                 }, immediateCondition = function(cond) {
[18:42:04.754]                   sendCondition <- ...future.makeSendCondition()
[18:42:04.754]                   sendCondition(cond)
[18:42:04.754]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.754]                   {
[18:42:04.754]                     inherits <- base::inherits
[18:42:04.754]                     invokeRestart <- base::invokeRestart
[18:42:04.754]                     is.null <- base::is.null
[18:42:04.754]                     muffled <- FALSE
[18:42:04.754]                     if (inherits(cond, "message")) {
[18:42:04.754]                       muffled <- grepl(pattern, "muffleMessage")
[18:42:04.754]                       if (muffled) 
[18:42:04.754]                         invokeRestart("muffleMessage")
[18:42:04.754]                     }
[18:42:04.754]                     else if (inherits(cond, "warning")) {
[18:42:04.754]                       muffled <- grepl(pattern, "muffleWarning")
[18:42:04.754]                       if (muffled) 
[18:42:04.754]                         invokeRestart("muffleWarning")
[18:42:04.754]                     }
[18:42:04.754]                     else if (inherits(cond, "condition")) {
[18:42:04.754]                       if (!is.null(pattern)) {
[18:42:04.754]                         computeRestarts <- base::computeRestarts
[18:42:04.754]                         grepl <- base::grepl
[18:42:04.754]                         restarts <- computeRestarts(cond)
[18:42:04.754]                         for (restart in restarts) {
[18:42:04.754]                           name <- restart$name
[18:42:04.754]                           if (is.null(name)) 
[18:42:04.754]                             next
[18:42:04.754]                           if (!grepl(pattern, name)) 
[18:42:04.754]                             next
[18:42:04.754]                           invokeRestart(restart)
[18:42:04.754]                           muffled <- TRUE
[18:42:04.754]                           break
[18:42:04.754]                         }
[18:42:04.754]                       }
[18:42:04.754]                     }
[18:42:04.754]                     invisible(muffled)
[18:42:04.754]                   }
[18:42:04.754]                   muffleCondition(cond)
[18:42:04.754]                 })
[18:42:04.754]             }))
[18:42:04.754]             future::FutureResult(value = ...future.value$value, 
[18:42:04.754]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.754]                   ...future.rng), globalenv = if (FALSE) 
[18:42:04.754]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:42:04.754]                     ...future.globalenv.names))
[18:42:04.754]                 else NULL, started = ...future.startTime, version = "1.8")
[18:42:04.754]         }, condition = base::local({
[18:42:04.754]             c <- base::c
[18:42:04.754]             inherits <- base::inherits
[18:42:04.754]             invokeRestart <- base::invokeRestart
[18:42:04.754]             length <- base::length
[18:42:04.754]             list <- base::list
[18:42:04.754]             seq.int <- base::seq.int
[18:42:04.754]             signalCondition <- base::signalCondition
[18:42:04.754]             sys.calls <- base::sys.calls
[18:42:04.754]             `[[` <- base::`[[`
[18:42:04.754]             `+` <- base::`+`
[18:42:04.754]             `<<-` <- base::`<<-`
[18:42:04.754]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:42:04.754]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:42:04.754]                   3L)]
[18:42:04.754]             }
[18:42:04.754]             function(cond) {
[18:42:04.754]                 is_error <- inherits(cond, "error")
[18:42:04.754]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:42:04.754]                   NULL)
[18:42:04.754]                 if (is_error) {
[18:42:04.754]                   sessionInformation <- function() {
[18:42:04.754]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:42:04.754]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:42:04.754]                       search = base::search(), system = base::Sys.info())
[18:42:04.754]                   }
[18:42:04.754]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.754]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:42:04.754]                     cond$call), session = sessionInformation(), 
[18:42:04.754]                     timestamp = base::Sys.time(), signaled = 0L)
[18:42:04.754]                   signalCondition(cond)
[18:42:04.754]                 }
[18:42:04.754]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:42:04.754]                 "immediateCondition"))) {
[18:42:04.754]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:42:04.754]                   ...future.conditions[[length(...future.conditions) + 
[18:42:04.754]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:42:04.754]                   if (TRUE && !signal) {
[18:42:04.754]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.754]                     {
[18:42:04.754]                       inherits <- base::inherits
[18:42:04.754]                       invokeRestart <- base::invokeRestart
[18:42:04.754]                       is.null <- base::is.null
[18:42:04.754]                       muffled <- FALSE
[18:42:04.754]                       if (inherits(cond, "message")) {
[18:42:04.754]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.754]                         if (muffled) 
[18:42:04.754]                           invokeRestart("muffleMessage")
[18:42:04.754]                       }
[18:42:04.754]                       else if (inherits(cond, "warning")) {
[18:42:04.754]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.754]                         if (muffled) 
[18:42:04.754]                           invokeRestart("muffleWarning")
[18:42:04.754]                       }
[18:42:04.754]                       else if (inherits(cond, "condition")) {
[18:42:04.754]                         if (!is.null(pattern)) {
[18:42:04.754]                           computeRestarts <- base::computeRestarts
[18:42:04.754]                           grepl <- base::grepl
[18:42:04.754]                           restarts <- computeRestarts(cond)
[18:42:04.754]                           for (restart in restarts) {
[18:42:04.754]                             name <- restart$name
[18:42:04.754]                             if (is.null(name)) 
[18:42:04.754]                               next
[18:42:04.754]                             if (!grepl(pattern, name)) 
[18:42:04.754]                               next
[18:42:04.754]                             invokeRestart(restart)
[18:42:04.754]                             muffled <- TRUE
[18:42:04.754]                             break
[18:42:04.754]                           }
[18:42:04.754]                         }
[18:42:04.754]                       }
[18:42:04.754]                       invisible(muffled)
[18:42:04.754]                     }
[18:42:04.754]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.754]                   }
[18:42:04.754]                 }
[18:42:04.754]                 else {
[18:42:04.754]                   if (TRUE) {
[18:42:04.754]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:42:04.754]                     {
[18:42:04.754]                       inherits <- base::inherits
[18:42:04.754]                       invokeRestart <- base::invokeRestart
[18:42:04.754]                       is.null <- base::is.null
[18:42:04.754]                       muffled <- FALSE
[18:42:04.754]                       if (inherits(cond, "message")) {
[18:42:04.754]                         muffled <- grepl(pattern, "muffleMessage")
[18:42:04.754]                         if (muffled) 
[18:42:04.754]                           invokeRestart("muffleMessage")
[18:42:04.754]                       }
[18:42:04.754]                       else if (inherits(cond, "warning")) {
[18:42:04.754]                         muffled <- grepl(pattern, "muffleWarning")
[18:42:04.754]                         if (muffled) 
[18:42:04.754]                           invokeRestart("muffleWarning")
[18:42:04.754]                       }
[18:42:04.754]                       else if (inherits(cond, "condition")) {
[18:42:04.754]                         if (!is.null(pattern)) {
[18:42:04.754]                           computeRestarts <- base::computeRestarts
[18:42:04.754]                           grepl <- base::grepl
[18:42:04.754]                           restarts <- computeRestarts(cond)
[18:42:04.754]                           for (restart in restarts) {
[18:42:04.754]                             name <- restart$name
[18:42:04.754]                             if (is.null(name)) 
[18:42:04.754]                               next
[18:42:04.754]                             if (!grepl(pattern, name)) 
[18:42:04.754]                               next
[18:42:04.754]                             invokeRestart(restart)
[18:42:04.754]                             muffled <- TRUE
[18:42:04.754]                             break
[18:42:04.754]                           }
[18:42:04.754]                         }
[18:42:04.754]                       }
[18:42:04.754]                       invisible(muffled)
[18:42:04.754]                     }
[18:42:04.754]                     muffleCondition(cond, pattern = "^muffle")
[18:42:04.754]                   }
[18:42:04.754]                 }
[18:42:04.754]             }
[18:42:04.754]         }))
[18:42:04.754]     }, error = function(ex) {
[18:42:04.754]         base::structure(base::list(value = NULL, visible = NULL, 
[18:42:04.754]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:42:04.754]                 ...future.rng), started = ...future.startTime, 
[18:42:04.754]             finished = Sys.time(), session_uuid = NA_character_, 
[18:42:04.754]             version = "1.8"), class = "FutureResult")
[18:42:04.754]     }, finally = {
[18:42:04.754]         if (!identical(...future.workdir, getwd())) 
[18:42:04.754]             setwd(...future.workdir)
[18:42:04.754]         {
[18:42:04.754]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:42:04.754]                 ...future.oldOptions$nwarnings <- NULL
[18:42:04.754]             }
[18:42:04.754]             base::options(...future.oldOptions)
[18:42:04.754]             if (.Platform$OS.type == "windows") {
[18:42:04.754]                 old_names <- names(...future.oldEnvVars)
[18:42:04.754]                 envs <- base::Sys.getenv()
[18:42:04.754]                 names <- names(envs)
[18:42:04.754]                 common <- intersect(names, old_names)
[18:42:04.754]                 added <- setdiff(names, old_names)
[18:42:04.754]                 removed <- setdiff(old_names, names)
[18:42:04.754]                 changed <- common[...future.oldEnvVars[common] != 
[18:42:04.754]                   envs[common]]
[18:42:04.754]                 NAMES <- toupper(changed)
[18:42:04.754]                 args <- list()
[18:42:04.754]                 for (kk in seq_along(NAMES)) {
[18:42:04.754]                   name <- changed[[kk]]
[18:42:04.754]                   NAME <- NAMES[[kk]]
[18:42:04.754]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.754]                     next
[18:42:04.754]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.754]                 }
[18:42:04.754]                 NAMES <- toupper(added)
[18:42:04.754]                 for (kk in seq_along(NAMES)) {
[18:42:04.754]                   name <- added[[kk]]
[18:42:04.754]                   NAME <- NAMES[[kk]]
[18:42:04.754]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.754]                     next
[18:42:04.754]                   args[[name]] <- ""
[18:42:04.754]                 }
[18:42:04.754]                 NAMES <- toupper(removed)
[18:42:04.754]                 for (kk in seq_along(NAMES)) {
[18:42:04.754]                   name <- removed[[kk]]
[18:42:04.754]                   NAME <- NAMES[[kk]]
[18:42:04.754]                   if (name != NAME && is.element(NAME, old_names)) 
[18:42:04.754]                     next
[18:42:04.754]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:42:04.754]                 }
[18:42:04.754]                 if (length(args) > 0) 
[18:42:04.754]                   base::do.call(base::Sys.setenv, args = args)
[18:42:04.754]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:42:04.754]             }
[18:42:04.754]             else {
[18:42:04.754]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:42:04.754]             }
[18:42:04.754]             {
[18:42:04.754]                 if (base::length(...future.futureOptionsAdded) > 
[18:42:04.754]                   0L) {
[18:42:04.754]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:42:04.754]                   base::names(opts) <- ...future.futureOptionsAdded
[18:42:04.754]                   base::options(opts)
[18:42:04.754]                 }
[18:42:04.754]                 {
[18:42:04.754]                   {
[18:42:04.754]                     base::options(mc.cores = ...future.mc.cores.old)
[18:42:04.754]                     NULL
[18:42:04.754]                   }
[18:42:04.754]                   options(future.plan = NULL)
[18:42:04.754]                   if (is.na(NA_character_)) 
[18:42:04.754]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:42:04.754]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:42:04.754]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:42:04.754]                     .init = FALSE)
[18:42:04.754]                 }
[18:42:04.754]             }
[18:42:04.754]         }
[18:42:04.754]     })
[18:42:04.754]     if (TRUE) {
[18:42:04.754]         base::sink(type = "output", split = FALSE)
[18:42:04.754]         if (TRUE) {
[18:42:04.754]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:42:04.754]         }
[18:42:04.754]         else {
[18:42:04.754]             ...future.result["stdout"] <- base::list(NULL)
[18:42:04.754]         }
[18:42:04.754]         base::close(...future.stdout)
[18:42:04.754]         ...future.stdout <- NULL
[18:42:04.754]     }
[18:42:04.754]     ...future.result$conditions <- ...future.conditions
[18:42:04.754]     ...future.result$finished <- base::Sys.time()
[18:42:04.754]     ...future.result
[18:42:04.754] }
[18:42:04.763] Exporting 11 global objects (13.23 KiB) to cluster node #1 ...
[18:42:04.764] Exporting '...future.FUN' (4.65 KiB) to cluster node #1 ...
[18:42:04.765] Exporting '...future.FUN' (4.65 KiB) to cluster node #1 ... DONE
[18:42:04.765] Exporting 'x_FUN' (185 bytes) to cluster node #1 ...
[18:42:04.766] Exporting 'x_FUN' (185 bytes) to cluster node #1 ... DONE
[18:42:04.766] Exporting 'times' (35 bytes) to cluster node #1 ...
[18:42:04.767] Exporting 'times' (35 bytes) to cluster node #1 ... DONE
[18:42:04.767] Exporting 'stopf' (3.33 KiB) to cluster node #1 ...
[18:42:04.768] Exporting 'stopf' (3.33 KiB) to cluster node #1 ... DONE
[18:42:04.768] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ...
[18:42:04.769] Exporting 'stop_if_not' (4.51 KiB) to cluster node #1 ... DONE
[18:42:04.769] Exporting 'dim' (27 bytes) to cluster node #1 ...
[18:42:04.770] Exporting 'dim' (27 bytes) to cluster node #1 ... DONE
[18:42:04.770] Exporting 'valid_types' (75 bytes) to cluster node #1 ...
[18:42:04.771] Exporting 'valid_types' (75 bytes) to cluster node #1 ... DONE
[18:42:04.771] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:42:04.772] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:42:04.772] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:42:04.772] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:42:04.773] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ...
[18:42:04.773] Exporting '...future.seeds_ii' (27 bytes) to cluster node #1 ... DONE
[18:42:04.774] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:42:04.774] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:42:04.775] Exporting 11 global objects (13.23 KiB) to cluster node #1 ... DONE
[18:42:04.776] MultisessionFuture started
[18:42:04.776] - Launch lazy future ... done
[18:42:04.776] run() for 'MultisessionFuture' ... done
[18:42:04.776] Created future:
[18:42:04.805] receiveMessageFromWorker() for ClusterFuture ...
[18:42:04.805] - Validating connection of MultisessionFuture
[18:42:04.806] - received message: FutureResult
[18:42:04.807] - Received FutureResult
[18:42:04.807] - Erased future from FutureRegistry
[18:42:04.807] result() for ClusterFuture ...
[18:42:04.807] - result already collected: FutureResult
[18:42:04.808] result() for ClusterFuture ... done
[18:42:04.808] signalConditions() ...
[18:42:04.808]  - include = 'immediateCondition'
[18:42:04.808]  - exclude = 
[18:42:04.809]  - resignal = FALSE
[18:42:04.809]  - Number of conditions: 1
[18:42:04.809] signalConditions() ... done
[18:42:04.809] receiveMessageFromWorker() for ClusterFuture ... done
[18:42:04.777] MultisessionFuture:
[18:42:04.777] Label: 'future_vapply-2'
[18:42:04.777] Expression:
[18:42:04.777] {
[18:42:04.777]     do.call(function(...) {
[18:42:04.777]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:42:04.777]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:42:04.777]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:42:04.777]             on.exit(options(oopts), add = TRUE)
[18:42:04.777]         }
[18:42:04.777]         {
[18:42:04.777]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:42:04.777]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:42:04.777]                 ...future.FUN(...future.X_jj, ...)
[18:42:04.777]             })
[18:42:04.777]         }
[18:42:04.777]     }, args = future.call.arguments)
[18:42:04.777] }
[18:42:04.777] Lazy evaluation: FALSE
[18:42:04.777] Asynchronous evaluation: TRUE
[18:42:04.777] Local evaluation: TRUE
[18:42:04.777] Environment: R_GlobalEnv
[18:42:04.777] Capture standard output: TRUE
[18:42:04.777] Capture condition classes: 'condition' (excluding 'nothing')
[18:42:04.777] Globals: 11 objects totaling 13.01 KiB (function '...future.FUN' of 4.65 KiB, function 'x_FUN' of 185 bytes, integer 'times' of 35 bytes, function 'stopf' of 3.33 KiB, function 'stop_if_not' of 4.51 KiB, ...)
[18:42:04.777] Packages: 1 packages ('future.apply')
[18:42:04.777] L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[18:42:04.777] Resolved: TRUE
[18:42:04.777] Value: <not collected>
[18:42:04.777] Conditions captured: <none>
[18:42:04.777] Early signaling: FALSE
[18:42:04.777] Owner process: d232a90c-6743-6915-56fe-2b5bbb6b0309
[18:42:04.777] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:42:04.810] Chunk #2 of 2 ... DONE
[18:42:04.810] Launching 2 futures (chunks) ... DONE
[18:42:04.810] Resolving 2 futures (chunks) ...
[18:42:04.810] resolve() on list ...
[18:42:04.810]  recursive: 0
[18:42:04.811]  length: 2
[18:42:04.811] 
[18:42:04.811] Future #1
[18:42:04.811] result() for ClusterFuture ...
[18:42:04.811] - result already collected: FutureResult
[18:42:04.811] result() for ClusterFuture ... done
[18:42:04.812] result() for ClusterFuture ...
[18:42:04.812] - result already collected: FutureResult
[18:42:04.812] result() for ClusterFuture ... done
[18:42:04.812] signalConditions() ...
[18:42:04.812]  - include = 'immediateCondition'
[18:42:04.812]  - exclude = 
[18:42:04.816]  - resignal = FALSE
[18:42:04.816]  - Number of conditions: 1
[18:42:04.817] signalConditions() ... done
[18:42:04.817] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:42:04.817] - nx: 2
[18:42:04.817] - relay: TRUE
[18:42:04.817] - stdout: TRUE
[18:42:04.818] - signal: TRUE
[18:42:04.818] - resignal: FALSE
[18:42:04.818] - force: TRUE
[18:42:04.818] - relayed: [n=2] FALSE, FALSE
[18:42:04.819] - queued futures: [n=2] FALSE, FALSE
[18:42:04.819]  - until=1
[18:42:04.819]  - relaying element #1
[18:42:04.819] result() for ClusterFuture ...
[18:42:04.820] - result already collected: FutureResult
[18:42:04.820] result() for ClusterFuture ... done
[18:42:04.820] result() for ClusterFuture ...
[18:42:04.821] - result already collected: FutureResult
[18:42:04.821] result() for ClusterFuture ... done
[18:42:04.821] signalConditions() ...
[18:42:04.821]  - include = 'immediateCondition'
[18:42:04.822]  - exclude = 
[18:42:04.822]  - resignal = FALSE
[18:42:04.822]  - Number of conditions: 1
[18:42:04.823] signalConditions() ... done
[18:42:04.823] result() for ClusterFuture ...
[18:42:04.823] - result already collected: FutureResult
[18:42:04.824] result() for ClusterFuture ... done
[18:42:04.824] signalConditions() ...
[18:42:04.824]  - include = 'immediateCondition'
[18:42:04.824]  - exclude = 
[18:42:04.825]  - resignal = FALSE
[18:42:04.825]  - Number of conditions: 1
[18:42:04.825] signalConditions() ... done
[18:42:04.826] result() for ClusterFuture ...
[18:42:04.826] - result already collected: FutureResult
[18:42:04.826] result() for ClusterFuture ... done
[18:42:04.826] signalConditions() ...
[18:42:04.827]  - include = 'condition'
[18:42:04.827]  - exclude = 'immediateCondition'
[18:42:04.827]  - resignal = TRUE
[18:42:04.828]  - Number of conditions: 1
[18:42:04.828]  - Condition #1: 'simpleError', 'error', 'condition'
[18:42:04.828] signalConditions() ... done
[18:42:04.829] - relayed: [n=2] FALSE, FALSE
[18:42:04.829] - queued futures: [n=2] TRUE, FALSE
[18:42:04.829] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:42:04.830] plan(): Setting new future strategy stack:
[18:42:04.830] List of future strategies:
[18:42:04.830] 1. sequential:
[18:42:04.830]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:04.830]    - tweaked: FALSE
[18:42:04.830]    - call: plan(sequential)
[18:42:04.841] plan(): nbrOfWorkers() = 1
*** strategy = 'multisession' ... done
> 
> 
> message("*** future_vapply() ... DONE")
*** future_vapply() ... DONE
> 
> source("incl/end.R")
[18:42:04.842] plan(): Setting new future strategy stack:
[18:42:04.842] List of future strategies:
[18:42:04.842] 1. FutureStrategy:
[18:42:04.842]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:04.842]    - tweaked: FALSE
[18:42:04.842]    - call: future::plan(oplan)
[18:42:04.844] plan(): nbrOfWorkers() = 1
> 
> proc.time()
   user  system elapsed 
   4.62    0.25    6.26