R Under development (unstable) (2024-03-25 r86192 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")
[17:26:29.585] plan(): Setting new future strategy stack:
[17:26:29.587] List of future strategies:
[17:26:29.587] 1. sequential:
[17:26:29.587]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.587]    - tweaked: FALSE
[17:26:29.587]    - call: future::plan("sequential")
[17:26:29.602] plan(): nbrOfWorkers() = 1
> 
> message("*** Futures - labels ...")
*** Futures - labels ...
> 
> strategies <- supportedStrategies()
> 
> ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
> if (!fullTest && isWin32) strategies <- NULL
> 
> for (strategy in strategies) {
+   message(sprintf("- plan('%s') ...", strategy))
+   plan(strategy)
+ 
+   for (label in list(NULL, sprintf("strategy = %s", strategy))) {
+     fcn <- get(strategy, mode = "function")
+     stopifnot(inherits(fcn, strategy))
+     f <- fcn(42, label = label)
+     print(f)
+     stopifnot(identical(f$label, label))
+     v <- value(f)
+     stopifnot(v == 42)
+     
+     f <- future(42, label = label)
+     print(f)
+     stopifnot(identical(f$label, label))
+     v <- value(f)
+     stopifnot(v == 42)
+ 
+     v %<-% { 42 } %label% label
+     f <- futureOf(v)
+     print(f)
+     stopifnot(identical(f$label, label))
+     stopifnot(v == 42)
+ 
+   } ## for (label ...)
+ 
+   message(sprintf("- plan('%s') ... DONE", strategy))
+ } ## for (strategy ...)
- plan('sequential') ...
[17:26:29.626] plan(): Setting new future strategy stack:
[17:26:29.626] List of future strategies:
[17:26:29.626] 1. sequential:
[17:26:29.626]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.626]    - tweaked: FALSE
[17:26:29.626]    - call: plan(strategy)
[17:26:29.639] plan(): nbrOfWorkers() = 1
[17:26:29.640] getGlobalsAndPackages() ...
[17:26:29.640] Searching for globals...
[17:26:29.643] 
[17:26:29.643] Searching for globals ... DONE
[17:26:29.643] - globals: [0] <none>
[17:26:29.643] getGlobalsAndPackages() ... DONE
[17:26:29.644] Packages needed by the future expression (n = 0): <none>
[17:26:29.644] Packages needed by future strategies (n = 0): <none>
[17:26:29.645] {
[17:26:29.645]     {
[17:26:29.645]         {
[17:26:29.645]             ...future.startTime <- base::Sys.time()
[17:26:29.645]             {
[17:26:29.645]                 {
[17:26:29.645]                   {
[17:26:29.645]                     base::local({
[17:26:29.645]                       has_future <- base::requireNamespace("future", 
[17:26:29.645]                         quietly = TRUE)
[17:26:29.645]                       if (has_future) {
[17:26:29.645]                         ns <- base::getNamespace("future")
[17:26:29.645]                         version <- ns[[".package"]][["version"]]
[17:26:29.645]                         if (is.null(version)) 
[17:26:29.645]                           version <- utils::packageVersion("future")
[17:26:29.645]                       }
[17:26:29.645]                       else {
[17:26:29.645]                         version <- NULL
[17:26:29.645]                       }
[17:26:29.645]                       if (!has_future || version < "1.8.0") {
[17:26:29.645]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:29.645]                           "", base::R.version$version.string), 
[17:26:29.645]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:29.645]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:29.645]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:29.645]                             "release", "version")], collapse = " "), 
[17:26:29.645]                           hostname = base::Sys.info()[["nodename"]])
[17:26:29.645]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:29.645]                           info)
[17:26:29.645]                         info <- base::paste(info, collapse = "; ")
[17:26:29.645]                         if (!has_future) {
[17:26:29.645]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:29.645]                             info)
[17:26:29.645]                         }
[17:26:29.645]                         else {
[17:26:29.645]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:29.645]                             info, version)
[17:26:29.645]                         }
[17:26:29.645]                         base::stop(msg)
[17:26:29.645]                       }
[17:26:29.645]                     })
[17:26:29.645]                   }
[17:26:29.645]                   ...future.strategy.old <- future::plan("list")
[17:26:29.645]                   options(future.plan = NULL)
[17:26:29.645]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.645]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:29.645]                 }
[17:26:29.645]                 ...future.workdir <- getwd()
[17:26:29.645]             }
[17:26:29.645]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:29.645]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:29.645]         }
[17:26:29.645]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:29.645]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:29.645]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:29.645]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:29.645]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:29.645]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:29.645]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:29.645]             base::names(...future.oldOptions))
[17:26:29.645]     }
[17:26:29.645]     if (FALSE) {
[17:26:29.645]     }
[17:26:29.645]     else {
[17:26:29.645]         if (TRUE) {
[17:26:29.645]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:29.645]                 open = "w")
[17:26:29.645]         }
[17:26:29.645]         else {
[17:26:29.645]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:29.645]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:29.645]         }
[17:26:29.645]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:29.645]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:29.645]             base::sink(type = "output", split = FALSE)
[17:26:29.645]             base::close(...future.stdout)
[17:26:29.645]         }, add = TRUE)
[17:26:29.645]     }
[17:26:29.645]     ...future.frame <- base::sys.nframe()
[17:26:29.645]     ...future.conditions <- base::list()
[17:26:29.645]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:29.645]     if (FALSE) {
[17:26:29.645]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:29.645]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:29.645]     }
[17:26:29.645]     ...future.result <- base::tryCatch({
[17:26:29.645]         base::withCallingHandlers({
[17:26:29.645]             ...future.value <- base::withVisible(base::local(42))
[17:26:29.645]             future::FutureResult(value = ...future.value$value, 
[17:26:29.645]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.645]                   ...future.rng), globalenv = if (FALSE) 
[17:26:29.645]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:29.645]                     ...future.globalenv.names))
[17:26:29.645]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:29.645]         }, condition = base::local({
[17:26:29.645]             c <- base::c
[17:26:29.645]             inherits <- base::inherits
[17:26:29.645]             invokeRestart <- base::invokeRestart
[17:26:29.645]             length <- base::length
[17:26:29.645]             list <- base::list
[17:26:29.645]             seq.int <- base::seq.int
[17:26:29.645]             signalCondition <- base::signalCondition
[17:26:29.645]             sys.calls <- base::sys.calls
[17:26:29.645]             `[[` <- base::`[[`
[17:26:29.645]             `+` <- base::`+`
[17:26:29.645]             `<<-` <- base::`<<-`
[17:26:29.645]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:29.645]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:29.645]                   3L)]
[17:26:29.645]             }
[17:26:29.645]             function(cond) {
[17:26:29.645]                 is_error <- inherits(cond, "error")
[17:26:29.645]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:29.645]                   NULL)
[17:26:29.645]                 if (is_error) {
[17:26:29.645]                   sessionInformation <- function() {
[17:26:29.645]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:29.645]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:29.645]                       search = base::search(), system = base::Sys.info())
[17:26:29.645]                   }
[17:26:29.645]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.645]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:29.645]                     cond$call), session = sessionInformation(), 
[17:26:29.645]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:29.645]                   signalCondition(cond)
[17:26:29.645]                 }
[17:26:29.645]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:29.645]                 "immediateCondition"))) {
[17:26:29.645]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:29.645]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.645]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:29.645]                   if (TRUE && !signal) {
[17:26:29.645]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.645]                     {
[17:26:29.645]                       inherits <- base::inherits
[17:26:29.645]                       invokeRestart <- base::invokeRestart
[17:26:29.645]                       is.null <- base::is.null
[17:26:29.645]                       muffled <- FALSE
[17:26:29.645]                       if (inherits(cond, "message")) {
[17:26:29.645]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.645]                         if (muffled) 
[17:26:29.645]                           invokeRestart("muffleMessage")
[17:26:29.645]                       }
[17:26:29.645]                       else if (inherits(cond, "warning")) {
[17:26:29.645]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.645]                         if (muffled) 
[17:26:29.645]                           invokeRestart("muffleWarning")
[17:26:29.645]                       }
[17:26:29.645]                       else if (inherits(cond, "condition")) {
[17:26:29.645]                         if (!is.null(pattern)) {
[17:26:29.645]                           computeRestarts <- base::computeRestarts
[17:26:29.645]                           grepl <- base::grepl
[17:26:29.645]                           restarts <- computeRestarts(cond)
[17:26:29.645]                           for (restart in restarts) {
[17:26:29.645]                             name <- restart$name
[17:26:29.645]                             if (is.null(name)) 
[17:26:29.645]                               next
[17:26:29.645]                             if (!grepl(pattern, name)) 
[17:26:29.645]                               next
[17:26:29.645]                             invokeRestart(restart)
[17:26:29.645]                             muffled <- TRUE
[17:26:29.645]                             break
[17:26:29.645]                           }
[17:26:29.645]                         }
[17:26:29.645]                       }
[17:26:29.645]                       invisible(muffled)
[17:26:29.645]                     }
[17:26:29.645]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.645]                   }
[17:26:29.645]                 }
[17:26:29.645]                 else {
[17:26:29.645]                   if (TRUE) {
[17:26:29.645]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.645]                     {
[17:26:29.645]                       inherits <- base::inherits
[17:26:29.645]                       invokeRestart <- base::invokeRestart
[17:26:29.645]                       is.null <- base::is.null
[17:26:29.645]                       muffled <- FALSE
[17:26:29.645]                       if (inherits(cond, "message")) {
[17:26:29.645]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.645]                         if (muffled) 
[17:26:29.645]                           invokeRestart("muffleMessage")
[17:26:29.645]                       }
[17:26:29.645]                       else if (inherits(cond, "warning")) {
[17:26:29.645]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.645]                         if (muffled) 
[17:26:29.645]                           invokeRestart("muffleWarning")
[17:26:29.645]                       }
[17:26:29.645]                       else if (inherits(cond, "condition")) {
[17:26:29.645]                         if (!is.null(pattern)) {
[17:26:29.645]                           computeRestarts <- base::computeRestarts
[17:26:29.645]                           grepl <- base::grepl
[17:26:29.645]                           restarts <- computeRestarts(cond)
[17:26:29.645]                           for (restart in restarts) {
[17:26:29.645]                             name <- restart$name
[17:26:29.645]                             if (is.null(name)) 
[17:26:29.645]                               next
[17:26:29.645]                             if (!grepl(pattern, name)) 
[17:26:29.645]                               next
[17:26:29.645]                             invokeRestart(restart)
[17:26:29.645]                             muffled <- TRUE
[17:26:29.645]                             break
[17:26:29.645]                           }
[17:26:29.645]                         }
[17:26:29.645]                       }
[17:26:29.645]                       invisible(muffled)
[17:26:29.645]                     }
[17:26:29.645]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.645]                   }
[17:26:29.645]                 }
[17:26:29.645]             }
[17:26:29.645]         }))
[17:26:29.645]     }, error = function(ex) {
[17:26:29.645]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:29.645]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.645]                 ...future.rng), started = ...future.startTime, 
[17:26:29.645]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:29.645]             version = "1.8"), class = "FutureResult")
[17:26:29.645]     }, finally = {
[17:26:29.645]         if (!identical(...future.workdir, getwd())) 
[17:26:29.645]             setwd(...future.workdir)
[17:26:29.645]         {
[17:26:29.645]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:29.645]                 ...future.oldOptions$nwarnings <- NULL
[17:26:29.645]             }
[17:26:29.645]             base::options(...future.oldOptions)
[17:26:29.645]             if (.Platform$OS.type == "windows") {
[17:26:29.645]                 old_names <- names(...future.oldEnvVars)
[17:26:29.645]                 envs <- base::Sys.getenv()
[17:26:29.645]                 names <- names(envs)
[17:26:29.645]                 common <- intersect(names, old_names)
[17:26:29.645]                 added <- setdiff(names, old_names)
[17:26:29.645]                 removed <- setdiff(old_names, names)
[17:26:29.645]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:29.645]                   envs[common]]
[17:26:29.645]                 NAMES <- toupper(changed)
[17:26:29.645]                 args <- list()
[17:26:29.645]                 for (kk in seq_along(NAMES)) {
[17:26:29.645]                   name <- changed[[kk]]
[17:26:29.645]                   NAME <- NAMES[[kk]]
[17:26:29.645]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.645]                     next
[17:26:29.645]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.645]                 }
[17:26:29.645]                 NAMES <- toupper(added)
[17:26:29.645]                 for (kk in seq_along(NAMES)) {
[17:26:29.645]                   name <- added[[kk]]
[17:26:29.645]                   NAME <- NAMES[[kk]]
[17:26:29.645]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.645]                     next
[17:26:29.645]                   args[[name]] <- ""
[17:26:29.645]                 }
[17:26:29.645]                 NAMES <- toupper(removed)
[17:26:29.645]                 for (kk in seq_along(NAMES)) {
[17:26:29.645]                   name <- removed[[kk]]
[17:26:29.645]                   NAME <- NAMES[[kk]]
[17:26:29.645]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.645]                     next
[17:26:29.645]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.645]                 }
[17:26:29.645]                 if (length(args) > 0) 
[17:26:29.645]                   base::do.call(base::Sys.setenv, args = args)
[17:26:29.645]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:29.645]             }
[17:26:29.645]             else {
[17:26:29.645]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:29.645]             }
[17:26:29.645]             {
[17:26:29.645]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:29.645]                   0L) {
[17:26:29.645]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:29.645]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:29.645]                   base::options(opts)
[17:26:29.645]                 }
[17:26:29.645]                 {
[17:26:29.645]                   {
[17:26:29.645]                     NULL
[17:26:29.645]                     RNGkind("Mersenne-Twister")
[17:26:29.645]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:29.645]                       inherits = FALSE)
[17:26:29.645]                   }
[17:26:29.645]                   options(future.plan = NULL)
[17:26:29.645]                   if (is.na(NA_character_)) 
[17:26:29.645]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.645]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:29.645]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:29.645]                     .init = FALSE)
[17:26:29.645]                 }
[17:26:29.645]             }
[17:26:29.645]         }
[17:26:29.645]     })
[17:26:29.645]     if (TRUE) {
[17:26:29.645]         base::sink(type = "output", split = FALSE)
[17:26:29.645]         if (TRUE) {
[17:26:29.645]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:29.645]         }
[17:26:29.645]         else {
[17:26:29.645]             ...future.result["stdout"] <- base::list(NULL)
[17:26:29.645]         }
[17:26:29.645]         base::close(...future.stdout)
[17:26:29.645]         ...future.stdout <- NULL
[17:26:29.645]     }
[17:26:29.645]     ...future.result$conditions <- ...future.conditions
[17:26:29.645]     ...future.result$finished <- base::Sys.time()
[17:26:29.645]     ...future.result
[17:26:29.645] }
[17:26:29.650] plan(): Setting new future strategy stack:
[17:26:29.650] List of future strategies:
[17:26:29.650] 1. sequential:
[17:26:29.650]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.650]    - tweaked: FALSE
[17:26:29.650]    - call: NULL
[17:26:29.650] plan(): nbrOfWorkers() = 1
[17:26:29.652] plan(): Setting new future strategy stack:
[17:26:29.653] List of future strategies:
[17:26:29.653] 1. sequential:
[17:26:29.653]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.653]    - tweaked: FALSE
[17:26:29.653]    - call: plan(strategy)
[17:26:29.653] plan(): nbrOfWorkers() = 1
[17:26:29.654] SequentialFuture started (and completed)
SequentialFuture:
Label: '<none>'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: FALSE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Resolved: TRUE
Value: 56 bytes of class 'numeric'
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.655] getGlobalsAndPackages() ...
[17:26:29.656] Searching for globals...
[17:26:29.656] 
[17:26:29.656] Searching for globals ... DONE
[17:26:29.656] - globals: [0] <none>
[17:26:29.657] getGlobalsAndPackages() ... DONE
[17:26:29.657] run() for 'Future' ...
[17:26:29.657] - state: 'created'
[17:26:29.657] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:29.658] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.658] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:29.658]   - Field: 'label'
[17:26:29.658]   - Field: 'local'
[17:26:29.659]   - Field: 'owner'
[17:26:29.659]   - Field: 'envir'
[17:26:29.659]   - Field: 'packages'
[17:26:29.659]   - Field: 'gc'
[17:26:29.661]   - Field: 'conditions'
[17:26:29.661]   - Field: 'expr'
[17:26:29.661]   - Field: 'uuid'
[17:26:29.661]   - Field: 'seed'
[17:26:29.661]   - Field: 'version'
[17:26:29.662]   - Field: 'result'
[17:26:29.662]   - Field: 'asynchronous'
[17:26:29.662]   - Field: 'calls'
[17:26:29.662]   - Field: 'globals'
[17:26:29.662]   - Field: 'stdout'
[17:26:29.662]   - Field: 'earlySignal'
[17:26:29.663]   - Field: 'lazy'
[17:26:29.663]   - Field: 'state'
[17:26:29.663] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:29.663] - Launch lazy future ...
[17:26:29.663] Packages needed by the future expression (n = 0): <none>
[17:26:29.664] Packages needed by future strategies (n = 0): <none>
[17:26:29.664] {
[17:26:29.664]     {
[17:26:29.664]         {
[17:26:29.664]             ...future.startTime <- base::Sys.time()
[17:26:29.664]             {
[17:26:29.664]                 {
[17:26:29.664]                   {
[17:26:29.664]                     base::local({
[17:26:29.664]                       has_future <- base::requireNamespace("future", 
[17:26:29.664]                         quietly = TRUE)
[17:26:29.664]                       if (has_future) {
[17:26:29.664]                         ns <- base::getNamespace("future")
[17:26:29.664]                         version <- ns[[".package"]][["version"]]
[17:26:29.664]                         if (is.null(version)) 
[17:26:29.664]                           version <- utils::packageVersion("future")
[17:26:29.664]                       }
[17:26:29.664]                       else {
[17:26:29.664]                         version <- NULL
[17:26:29.664]                       }
[17:26:29.664]                       if (!has_future || version < "1.8.0") {
[17:26:29.664]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:29.664]                           "", base::R.version$version.string), 
[17:26:29.664]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:29.664]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:29.664]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:29.664]                             "release", "version")], collapse = " "), 
[17:26:29.664]                           hostname = base::Sys.info()[["nodename"]])
[17:26:29.664]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:29.664]                           info)
[17:26:29.664]                         info <- base::paste(info, collapse = "; ")
[17:26:29.664]                         if (!has_future) {
[17:26:29.664]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:29.664]                             info)
[17:26:29.664]                         }
[17:26:29.664]                         else {
[17:26:29.664]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:29.664]                             info, version)
[17:26:29.664]                         }
[17:26:29.664]                         base::stop(msg)
[17:26:29.664]                       }
[17:26:29.664]                     })
[17:26:29.664]                   }
[17:26:29.664]                   ...future.strategy.old <- future::plan("list")
[17:26:29.664]                   options(future.plan = NULL)
[17:26:29.664]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.664]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:29.664]                 }
[17:26:29.664]                 ...future.workdir <- getwd()
[17:26:29.664]             }
[17:26:29.664]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:29.664]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:29.664]         }
[17:26:29.664]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:29.664]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:29.664]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:29.664]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:29.664]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:29.664]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:29.664]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:29.664]             base::names(...future.oldOptions))
[17:26:29.664]     }
[17:26:29.664]     if (FALSE) {
[17:26:29.664]     }
[17:26:29.664]     else {
[17:26:29.664]         if (TRUE) {
[17:26:29.664]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:29.664]                 open = "w")
[17:26:29.664]         }
[17:26:29.664]         else {
[17:26:29.664]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:29.664]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:29.664]         }
[17:26:29.664]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:29.664]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:29.664]             base::sink(type = "output", split = FALSE)
[17:26:29.664]             base::close(...future.stdout)
[17:26:29.664]         }, add = TRUE)
[17:26:29.664]     }
[17:26:29.664]     ...future.frame <- base::sys.nframe()
[17:26:29.664]     ...future.conditions <- base::list()
[17:26:29.664]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:29.664]     if (FALSE) {
[17:26:29.664]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:29.664]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:29.664]     }
[17:26:29.664]     ...future.result <- base::tryCatch({
[17:26:29.664]         base::withCallingHandlers({
[17:26:29.664]             ...future.value <- base::withVisible(base::local(42))
[17:26:29.664]             future::FutureResult(value = ...future.value$value, 
[17:26:29.664]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.664]                   ...future.rng), globalenv = if (FALSE) 
[17:26:29.664]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:29.664]                     ...future.globalenv.names))
[17:26:29.664]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:29.664]         }, condition = base::local({
[17:26:29.664]             c <- base::c
[17:26:29.664]             inherits <- base::inherits
[17:26:29.664]             invokeRestart <- base::invokeRestart
[17:26:29.664]             length <- base::length
[17:26:29.664]             list <- base::list
[17:26:29.664]             seq.int <- base::seq.int
[17:26:29.664]             signalCondition <- base::signalCondition
[17:26:29.664]             sys.calls <- base::sys.calls
[17:26:29.664]             `[[` <- base::`[[`
[17:26:29.664]             `+` <- base::`+`
[17:26:29.664]             `<<-` <- base::`<<-`
[17:26:29.664]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:29.664]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:29.664]                   3L)]
[17:26:29.664]             }
[17:26:29.664]             function(cond) {
[17:26:29.664]                 is_error <- inherits(cond, "error")
[17:26:29.664]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:29.664]                   NULL)
[17:26:29.664]                 if (is_error) {
[17:26:29.664]                   sessionInformation <- function() {
[17:26:29.664]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:29.664]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:29.664]                       search = base::search(), system = base::Sys.info())
[17:26:29.664]                   }
[17:26:29.664]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.664]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:29.664]                     cond$call), session = sessionInformation(), 
[17:26:29.664]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:29.664]                   signalCondition(cond)
[17:26:29.664]                 }
[17:26:29.664]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:29.664]                 "immediateCondition"))) {
[17:26:29.664]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:29.664]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.664]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:29.664]                   if (TRUE && !signal) {
[17:26:29.664]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.664]                     {
[17:26:29.664]                       inherits <- base::inherits
[17:26:29.664]                       invokeRestart <- base::invokeRestart
[17:26:29.664]                       is.null <- base::is.null
[17:26:29.664]                       muffled <- FALSE
[17:26:29.664]                       if (inherits(cond, "message")) {
[17:26:29.664]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.664]                         if (muffled) 
[17:26:29.664]                           invokeRestart("muffleMessage")
[17:26:29.664]                       }
[17:26:29.664]                       else if (inherits(cond, "warning")) {
[17:26:29.664]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.664]                         if (muffled) 
[17:26:29.664]                           invokeRestart("muffleWarning")
[17:26:29.664]                       }
[17:26:29.664]                       else if (inherits(cond, "condition")) {
[17:26:29.664]                         if (!is.null(pattern)) {
[17:26:29.664]                           computeRestarts <- base::computeRestarts
[17:26:29.664]                           grepl <- base::grepl
[17:26:29.664]                           restarts <- computeRestarts(cond)
[17:26:29.664]                           for (restart in restarts) {
[17:26:29.664]                             name <- restart$name
[17:26:29.664]                             if (is.null(name)) 
[17:26:29.664]                               next
[17:26:29.664]                             if (!grepl(pattern, name)) 
[17:26:29.664]                               next
[17:26:29.664]                             invokeRestart(restart)
[17:26:29.664]                             muffled <- TRUE
[17:26:29.664]                             break
[17:26:29.664]                           }
[17:26:29.664]                         }
[17:26:29.664]                       }
[17:26:29.664]                       invisible(muffled)
[17:26:29.664]                     }
[17:26:29.664]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.664]                   }
[17:26:29.664]                 }
[17:26:29.664]                 else {
[17:26:29.664]                   if (TRUE) {
[17:26:29.664]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.664]                     {
[17:26:29.664]                       inherits <- base::inherits
[17:26:29.664]                       invokeRestart <- base::invokeRestart
[17:26:29.664]                       is.null <- base::is.null
[17:26:29.664]                       muffled <- FALSE
[17:26:29.664]                       if (inherits(cond, "message")) {
[17:26:29.664]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.664]                         if (muffled) 
[17:26:29.664]                           invokeRestart("muffleMessage")
[17:26:29.664]                       }
[17:26:29.664]                       else if (inherits(cond, "warning")) {
[17:26:29.664]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.664]                         if (muffled) 
[17:26:29.664]                           invokeRestart("muffleWarning")
[17:26:29.664]                       }
[17:26:29.664]                       else if (inherits(cond, "condition")) {
[17:26:29.664]                         if (!is.null(pattern)) {
[17:26:29.664]                           computeRestarts <- base::computeRestarts
[17:26:29.664]                           grepl <- base::grepl
[17:26:29.664]                           restarts <- computeRestarts(cond)
[17:26:29.664]                           for (restart in restarts) {
[17:26:29.664]                             name <- restart$name
[17:26:29.664]                             if (is.null(name)) 
[17:26:29.664]                               next
[17:26:29.664]                             if (!grepl(pattern, name)) 
[17:26:29.664]                               next
[17:26:29.664]                             invokeRestart(restart)
[17:26:29.664]                             muffled <- TRUE
[17:26:29.664]                             break
[17:26:29.664]                           }
[17:26:29.664]                         }
[17:26:29.664]                       }
[17:26:29.664]                       invisible(muffled)
[17:26:29.664]                     }
[17:26:29.664]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.664]                   }
[17:26:29.664]                 }
[17:26:29.664]             }
[17:26:29.664]         }))
[17:26:29.664]     }, error = function(ex) {
[17:26:29.664]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:29.664]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.664]                 ...future.rng), started = ...future.startTime, 
[17:26:29.664]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:29.664]             version = "1.8"), class = "FutureResult")
[17:26:29.664]     }, finally = {
[17:26:29.664]         if (!identical(...future.workdir, getwd())) 
[17:26:29.664]             setwd(...future.workdir)
[17:26:29.664]         {
[17:26:29.664]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:29.664]                 ...future.oldOptions$nwarnings <- NULL
[17:26:29.664]             }
[17:26:29.664]             base::options(...future.oldOptions)
[17:26:29.664]             if (.Platform$OS.type == "windows") {
[17:26:29.664]                 old_names <- names(...future.oldEnvVars)
[17:26:29.664]                 envs <- base::Sys.getenv()
[17:26:29.664]                 names <- names(envs)
[17:26:29.664]                 common <- intersect(names, old_names)
[17:26:29.664]                 added <- setdiff(names, old_names)
[17:26:29.664]                 removed <- setdiff(old_names, names)
[17:26:29.664]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:29.664]                   envs[common]]
[17:26:29.664]                 NAMES <- toupper(changed)
[17:26:29.664]                 args <- list()
[17:26:29.664]                 for (kk in seq_along(NAMES)) {
[17:26:29.664]                   name <- changed[[kk]]
[17:26:29.664]                   NAME <- NAMES[[kk]]
[17:26:29.664]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.664]                     next
[17:26:29.664]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.664]                 }
[17:26:29.664]                 NAMES <- toupper(added)
[17:26:29.664]                 for (kk in seq_along(NAMES)) {
[17:26:29.664]                   name <- added[[kk]]
[17:26:29.664]                   NAME <- NAMES[[kk]]
[17:26:29.664]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.664]                     next
[17:26:29.664]                   args[[name]] <- ""
[17:26:29.664]                 }
[17:26:29.664]                 NAMES <- toupper(removed)
[17:26:29.664]                 for (kk in seq_along(NAMES)) {
[17:26:29.664]                   name <- removed[[kk]]
[17:26:29.664]                   NAME <- NAMES[[kk]]
[17:26:29.664]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.664]                     next
[17:26:29.664]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.664]                 }
[17:26:29.664]                 if (length(args) > 0) 
[17:26:29.664]                   base::do.call(base::Sys.setenv, args = args)
[17:26:29.664]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:29.664]             }
[17:26:29.664]             else {
[17:26:29.664]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:29.664]             }
[17:26:29.664]             {
[17:26:29.664]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:29.664]                   0L) {
[17:26:29.664]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:29.664]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:29.664]                   base::options(opts)
[17:26:29.664]                 }
[17:26:29.664]                 {
[17:26:29.664]                   {
[17:26:29.664]                     NULL
[17:26:29.664]                     RNGkind("Mersenne-Twister")
[17:26:29.664]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:29.664]                       inherits = FALSE)
[17:26:29.664]                   }
[17:26:29.664]                   options(future.plan = NULL)
[17:26:29.664]                   if (is.na(NA_character_)) 
[17:26:29.664]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.664]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:29.664]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:29.664]                     .init = FALSE)
[17:26:29.664]                 }
[17:26:29.664]             }
[17:26:29.664]         }
[17:26:29.664]     })
[17:26:29.664]     if (TRUE) {
[17:26:29.664]         base::sink(type = "output", split = FALSE)
[17:26:29.664]         if (TRUE) {
[17:26:29.664]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:29.664]         }
[17:26:29.664]         else {
[17:26:29.664]             ...future.result["stdout"] <- base::list(NULL)
[17:26:29.664]         }
[17:26:29.664]         base::close(...future.stdout)
[17:26:29.664]         ...future.stdout <- NULL
[17:26:29.664]     }
[17:26:29.664]     ...future.result$conditions <- ...future.conditions
[17:26:29.664]     ...future.result$finished <- base::Sys.time()
[17:26:29.664]     ...future.result
[17:26:29.664] }
[17:26:29.668] plan(): Setting new future strategy stack:
[17:26:29.668] List of future strategies:
[17:26:29.668] 1. sequential:
[17:26:29.668]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.668]    - tweaked: FALSE
[17:26:29.668]    - call: NULL
[17:26:29.669] plan(): nbrOfWorkers() = 1
[17:26:29.670] plan(): Setting new future strategy stack:
[17:26:29.670] List of future strategies:
[17:26:29.670] 1. sequential:
[17:26:29.670]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.670]    - tweaked: FALSE
[17:26:29.670]    - call: plan(strategy)
[17:26:29.671] plan(): nbrOfWorkers() = 1
[17:26:29.671] SequentialFuture started (and completed)
[17:26:29.671] - Launch lazy future ... done
[17:26:29.671] run() for 'SequentialFuture' ... done
SequentialFuture:
Label: '<none>'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: FALSE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Resolved: TRUE
Value: 56 bytes of class 'numeric'
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.673] getGlobalsAndPackages() ...
[17:26:29.673] Searching for globals...
[17:26:29.675] - globals found: [1] '{'
[17:26:29.675] Searching for globals ... DONE
[17:26:29.675] Resolving globals: FALSE
[17:26:29.676] 
[17:26:29.676] 
[17:26:29.676] getGlobalsAndPackages() ... DONE
[17:26:29.676] run() for 'Future' ...
[17:26:29.676] - state: 'created'
[17:26:29.677] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:29.677] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.677] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:29.677]   - Field: 'label'
[17:26:29.678]   - Field: 'local'
[17:26:29.678]   - Field: 'owner'
[17:26:29.678]   - Field: 'envir'
[17:26:29.678]   - Field: 'packages'
[17:26:29.678]   - Field: 'gc'
[17:26:29.678]   - Field: 'conditions'
[17:26:29.679]   - Field: 'expr'
[17:26:29.679]   - Field: 'uuid'
[17:26:29.679]   - Field: 'seed'
[17:26:29.679]   - Field: 'version'
[17:26:29.679]   - Field: 'result'
[17:26:29.679]   - Field: 'asynchronous'
[17:26:29.680]   - Field: 'calls'
[17:26:29.680]   - Field: 'globals'
[17:26:29.680]   - Field: 'stdout'
[17:26:29.680]   - Field: 'earlySignal'
[17:26:29.680]   - Field: 'lazy'
[17:26:29.680]   - Field: 'state'
[17:26:29.681] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:29.681] - Launch lazy future ...
[17:26:29.681] Packages needed by the future expression (n = 0): <none>
[17:26:29.681] Packages needed by future strategies (n = 0): <none>
[17:26:29.682] {
[17:26:29.682]     {
[17:26:29.682]         {
[17:26:29.682]             ...future.startTime <- base::Sys.time()
[17:26:29.682]             {
[17:26:29.682]                 {
[17:26:29.682]                   {
[17:26:29.682]                     base::local({
[17:26:29.682]                       has_future <- base::requireNamespace("future", 
[17:26:29.682]                         quietly = TRUE)
[17:26:29.682]                       if (has_future) {
[17:26:29.682]                         ns <- base::getNamespace("future")
[17:26:29.682]                         version <- ns[[".package"]][["version"]]
[17:26:29.682]                         if (is.null(version)) 
[17:26:29.682]                           version <- utils::packageVersion("future")
[17:26:29.682]                       }
[17:26:29.682]                       else {
[17:26:29.682]                         version <- NULL
[17:26:29.682]                       }
[17:26:29.682]                       if (!has_future || version < "1.8.0") {
[17:26:29.682]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:29.682]                           "", base::R.version$version.string), 
[17:26:29.682]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:29.682]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:29.682]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:29.682]                             "release", "version")], collapse = " "), 
[17:26:29.682]                           hostname = base::Sys.info()[["nodename"]])
[17:26:29.682]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:29.682]                           info)
[17:26:29.682]                         info <- base::paste(info, collapse = "; ")
[17:26:29.682]                         if (!has_future) {
[17:26:29.682]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:29.682]                             info)
[17:26:29.682]                         }
[17:26:29.682]                         else {
[17:26:29.682]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:29.682]                             info, version)
[17:26:29.682]                         }
[17:26:29.682]                         base::stop(msg)
[17:26:29.682]                       }
[17:26:29.682]                     })
[17:26:29.682]                   }
[17:26:29.682]                   ...future.strategy.old <- future::plan("list")
[17:26:29.682]                   options(future.plan = NULL)
[17:26:29.682]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.682]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:29.682]                 }
[17:26:29.682]                 ...future.workdir <- getwd()
[17:26:29.682]             }
[17:26:29.682]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:29.682]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:29.682]         }
[17:26:29.682]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:29.682]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:29.682]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:29.682]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:29.682]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:29.682]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:29.682]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:29.682]             base::names(...future.oldOptions))
[17:26:29.682]     }
[17:26:29.682]     if (FALSE) {
[17:26:29.682]     }
[17:26:29.682]     else {
[17:26:29.682]         if (TRUE) {
[17:26:29.682]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:29.682]                 open = "w")
[17:26:29.682]         }
[17:26:29.682]         else {
[17:26:29.682]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:29.682]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:29.682]         }
[17:26:29.682]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:29.682]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:29.682]             base::sink(type = "output", split = FALSE)
[17:26:29.682]             base::close(...future.stdout)
[17:26:29.682]         }, add = TRUE)
[17:26:29.682]     }
[17:26:29.682]     ...future.frame <- base::sys.nframe()
[17:26:29.682]     ...future.conditions <- base::list()
[17:26:29.682]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:29.682]     if (FALSE) {
[17:26:29.682]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:29.682]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:29.682]     }
[17:26:29.682]     ...future.result <- base::tryCatch({
[17:26:29.682]         base::withCallingHandlers({
[17:26:29.682]             ...future.value <- base::withVisible(base::local({
[17:26:29.682]                 42
[17:26:29.682]             }))
[17:26:29.682]             future::FutureResult(value = ...future.value$value, 
[17:26:29.682]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.682]                   ...future.rng), globalenv = if (FALSE) 
[17:26:29.682]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:29.682]                     ...future.globalenv.names))
[17:26:29.682]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:29.682]         }, condition = base::local({
[17:26:29.682]             c <- base::c
[17:26:29.682]             inherits <- base::inherits
[17:26:29.682]             invokeRestart <- base::invokeRestart
[17:26:29.682]             length <- base::length
[17:26:29.682]             list <- base::list
[17:26:29.682]             seq.int <- base::seq.int
[17:26:29.682]             signalCondition <- base::signalCondition
[17:26:29.682]             sys.calls <- base::sys.calls
[17:26:29.682]             `[[` <- base::`[[`
[17:26:29.682]             `+` <- base::`+`
[17:26:29.682]             `<<-` <- base::`<<-`
[17:26:29.682]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:29.682]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:29.682]                   3L)]
[17:26:29.682]             }
[17:26:29.682]             function(cond) {
[17:26:29.682]                 is_error <- inherits(cond, "error")
[17:26:29.682]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:29.682]                   NULL)
[17:26:29.682]                 if (is_error) {
[17:26:29.682]                   sessionInformation <- function() {
[17:26:29.682]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:29.682]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:29.682]                       search = base::search(), system = base::Sys.info())
[17:26:29.682]                   }
[17:26:29.682]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.682]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:29.682]                     cond$call), session = sessionInformation(), 
[17:26:29.682]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:29.682]                   signalCondition(cond)
[17:26:29.682]                 }
[17:26:29.682]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:29.682]                 "immediateCondition"))) {
[17:26:29.682]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:29.682]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.682]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:29.682]                   if (TRUE && !signal) {
[17:26:29.682]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.682]                     {
[17:26:29.682]                       inherits <- base::inherits
[17:26:29.682]                       invokeRestart <- base::invokeRestart
[17:26:29.682]                       is.null <- base::is.null
[17:26:29.682]                       muffled <- FALSE
[17:26:29.682]                       if (inherits(cond, "message")) {
[17:26:29.682]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.682]                         if (muffled) 
[17:26:29.682]                           invokeRestart("muffleMessage")
[17:26:29.682]                       }
[17:26:29.682]                       else if (inherits(cond, "warning")) {
[17:26:29.682]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.682]                         if (muffled) 
[17:26:29.682]                           invokeRestart("muffleWarning")
[17:26:29.682]                       }
[17:26:29.682]                       else if (inherits(cond, "condition")) {
[17:26:29.682]                         if (!is.null(pattern)) {
[17:26:29.682]                           computeRestarts <- base::computeRestarts
[17:26:29.682]                           grepl <- base::grepl
[17:26:29.682]                           restarts <- computeRestarts(cond)
[17:26:29.682]                           for (restart in restarts) {
[17:26:29.682]                             name <- restart$name
[17:26:29.682]                             if (is.null(name)) 
[17:26:29.682]                               next
[17:26:29.682]                             if (!grepl(pattern, name)) 
[17:26:29.682]                               next
[17:26:29.682]                             invokeRestart(restart)
[17:26:29.682]                             muffled <- TRUE
[17:26:29.682]                             break
[17:26:29.682]                           }
[17:26:29.682]                         }
[17:26:29.682]                       }
[17:26:29.682]                       invisible(muffled)
[17:26:29.682]                     }
[17:26:29.682]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.682]                   }
[17:26:29.682]                 }
[17:26:29.682]                 else {
[17:26:29.682]                   if (TRUE) {
[17:26:29.682]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.682]                     {
[17:26:29.682]                       inherits <- base::inherits
[17:26:29.682]                       invokeRestart <- base::invokeRestart
[17:26:29.682]                       is.null <- base::is.null
[17:26:29.682]                       muffled <- FALSE
[17:26:29.682]                       if (inherits(cond, "message")) {
[17:26:29.682]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.682]                         if (muffled) 
[17:26:29.682]                           invokeRestart("muffleMessage")
[17:26:29.682]                       }
[17:26:29.682]                       else if (inherits(cond, "warning")) {
[17:26:29.682]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.682]                         if (muffled) 
[17:26:29.682]                           invokeRestart("muffleWarning")
[17:26:29.682]                       }
[17:26:29.682]                       else if (inherits(cond, "condition")) {
[17:26:29.682]                         if (!is.null(pattern)) {
[17:26:29.682]                           computeRestarts <- base::computeRestarts
[17:26:29.682]                           grepl <- base::grepl
[17:26:29.682]                           restarts <- computeRestarts(cond)
[17:26:29.682]                           for (restart in restarts) {
[17:26:29.682]                             name <- restart$name
[17:26:29.682]                             if (is.null(name)) 
[17:26:29.682]                               next
[17:26:29.682]                             if (!grepl(pattern, name)) 
[17:26:29.682]                               next
[17:26:29.682]                             invokeRestart(restart)
[17:26:29.682]                             muffled <- TRUE
[17:26:29.682]                             break
[17:26:29.682]                           }
[17:26:29.682]                         }
[17:26:29.682]                       }
[17:26:29.682]                       invisible(muffled)
[17:26:29.682]                     }
[17:26:29.682]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.682]                   }
[17:26:29.682]                 }
[17:26:29.682]             }
[17:26:29.682]         }))
[17:26:29.682]     }, error = function(ex) {
[17:26:29.682]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:29.682]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.682]                 ...future.rng), started = ...future.startTime, 
[17:26:29.682]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:29.682]             version = "1.8"), class = "FutureResult")
[17:26:29.682]     }, finally = {
[17:26:29.682]         if (!identical(...future.workdir, getwd())) 
[17:26:29.682]             setwd(...future.workdir)
[17:26:29.682]         {
[17:26:29.682]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:29.682]                 ...future.oldOptions$nwarnings <- NULL
[17:26:29.682]             }
[17:26:29.682]             base::options(...future.oldOptions)
[17:26:29.682]             if (.Platform$OS.type == "windows") {
[17:26:29.682]                 old_names <- names(...future.oldEnvVars)
[17:26:29.682]                 envs <- base::Sys.getenv()
[17:26:29.682]                 names <- names(envs)
[17:26:29.682]                 common <- intersect(names, old_names)
[17:26:29.682]                 added <- setdiff(names, old_names)
[17:26:29.682]                 removed <- setdiff(old_names, names)
[17:26:29.682]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:29.682]                   envs[common]]
[17:26:29.682]                 NAMES <- toupper(changed)
[17:26:29.682]                 args <- list()
[17:26:29.682]                 for (kk in seq_along(NAMES)) {
[17:26:29.682]                   name <- changed[[kk]]
[17:26:29.682]                   NAME <- NAMES[[kk]]
[17:26:29.682]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.682]                     next
[17:26:29.682]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.682]                 }
[17:26:29.682]                 NAMES <- toupper(added)
[17:26:29.682]                 for (kk in seq_along(NAMES)) {
[17:26:29.682]                   name <- added[[kk]]
[17:26:29.682]                   NAME <- NAMES[[kk]]
[17:26:29.682]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.682]                     next
[17:26:29.682]                   args[[name]] <- ""
[17:26:29.682]                 }
[17:26:29.682]                 NAMES <- toupper(removed)
[17:26:29.682]                 for (kk in seq_along(NAMES)) {
[17:26:29.682]                   name <- removed[[kk]]
[17:26:29.682]                   NAME <- NAMES[[kk]]
[17:26:29.682]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.682]                     next
[17:26:29.682]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.682]                 }
[17:26:29.682]                 if (length(args) > 0) 
[17:26:29.682]                   base::do.call(base::Sys.setenv, args = args)
[17:26:29.682]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:29.682]             }
[17:26:29.682]             else {
[17:26:29.682]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:29.682]             }
[17:26:29.682]             {
[17:26:29.682]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:29.682]                   0L) {
[17:26:29.682]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:29.682]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:29.682]                   base::options(opts)
[17:26:29.682]                 }
[17:26:29.682]                 {
[17:26:29.682]                   {
[17:26:29.682]                     NULL
[17:26:29.682]                     RNGkind("Mersenne-Twister")
[17:26:29.682]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:29.682]                       inherits = FALSE)
[17:26:29.682]                   }
[17:26:29.682]                   options(future.plan = NULL)
[17:26:29.682]                   if (is.na(NA_character_)) 
[17:26:29.682]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.682]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:29.682]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:29.682]                     .init = FALSE)
[17:26:29.682]                 }
[17:26:29.682]             }
[17:26:29.682]         }
[17:26:29.682]     })
[17:26:29.682]     if (TRUE) {
[17:26:29.682]         base::sink(type = "output", split = FALSE)
[17:26:29.682]         if (TRUE) {
[17:26:29.682]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:29.682]         }
[17:26:29.682]         else {
[17:26:29.682]             ...future.result["stdout"] <- base::list(NULL)
[17:26:29.682]         }
[17:26:29.682]         base::close(...future.stdout)
[17:26:29.682]         ...future.stdout <- NULL
[17:26:29.682]     }
[17:26:29.682]     ...future.result$conditions <- ...future.conditions
[17:26:29.682]     ...future.result$finished <- base::Sys.time()
[17:26:29.682]     ...future.result
[17:26:29.682] }
[17:26:29.686] plan(): Setting new future strategy stack:
[17:26:29.686] List of future strategies:
[17:26:29.686] 1. sequential:
[17:26:29.686]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.686]    - tweaked: FALSE
[17:26:29.686]    - call: NULL
[17:26:29.687] plan(): nbrOfWorkers() = 1
[17:26:29.688] plan(): Setting new future strategy stack:
[17:26:29.688] List of future strategies:
[17:26:29.688] 1. sequential:
[17:26:29.688]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.688]    - tweaked: FALSE
[17:26:29.688]    - call: plan(strategy)
[17:26:29.689] plan(): nbrOfWorkers() = 1
[17:26:29.689] SequentialFuture started (and completed)
[17:26:29.689] - Launch lazy future ... done
[17:26:29.689] run() for 'SequentialFuture' ... done
SequentialFuture:
Label: '<none>'
Expression:
{
    42
}
Lazy evaluation: FALSE
Asynchronous evaluation: FALSE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Resolved: TRUE
Value: 56 bytes of class 'numeric'
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.690] getGlobalsAndPackages() ...
[17:26:29.690] Searching for globals...
[17:26:29.691] 
[17:26:29.691] Searching for globals ... DONE
[17:26:29.691] - globals: [0] <none>
[17:26:29.691] getGlobalsAndPackages() ... DONE
[17:26:29.692] Packages needed by the future expression (n = 0): <none>
[17:26:29.692] Packages needed by future strategies (n = 0): <none>
[17:26:29.692] {
[17:26:29.692]     {
[17:26:29.692]         {
[17:26:29.692]             ...future.startTime <- base::Sys.time()
[17:26:29.692]             {
[17:26:29.692]                 {
[17:26:29.692]                   {
[17:26:29.692]                     base::local({
[17:26:29.692]                       has_future <- base::requireNamespace("future", 
[17:26:29.692]                         quietly = TRUE)
[17:26:29.692]                       if (has_future) {
[17:26:29.692]                         ns <- base::getNamespace("future")
[17:26:29.692]                         version <- ns[[".package"]][["version"]]
[17:26:29.692]                         if (is.null(version)) 
[17:26:29.692]                           version <- utils::packageVersion("future")
[17:26:29.692]                       }
[17:26:29.692]                       else {
[17:26:29.692]                         version <- NULL
[17:26:29.692]                       }
[17:26:29.692]                       if (!has_future || version < "1.8.0") {
[17:26:29.692]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:29.692]                           "", base::R.version$version.string), 
[17:26:29.692]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:29.692]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:29.692]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:29.692]                             "release", "version")], collapse = " "), 
[17:26:29.692]                           hostname = base::Sys.info()[["nodename"]])
[17:26:29.692]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:29.692]                           info)
[17:26:29.692]                         info <- base::paste(info, collapse = "; ")
[17:26:29.692]                         if (!has_future) {
[17:26:29.692]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:29.692]                             info)
[17:26:29.692]                         }
[17:26:29.692]                         else {
[17:26:29.692]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:29.692]                             info, version)
[17:26:29.692]                         }
[17:26:29.692]                         base::stop(msg)
[17:26:29.692]                       }
[17:26:29.692]                     })
[17:26:29.692]                   }
[17:26:29.692]                   ...future.strategy.old <- future::plan("list")
[17:26:29.692]                   options(future.plan = NULL)
[17:26:29.692]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.692]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:29.692]                 }
[17:26:29.692]                 ...future.workdir <- getwd()
[17:26:29.692]             }
[17:26:29.692]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:29.692]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:29.692]         }
[17:26:29.692]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:29.692]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:29.692]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:29.692]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:29.692]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:29.692]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:29.692]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:29.692]             base::names(...future.oldOptions))
[17:26:29.692]     }
[17:26:29.692]     if (FALSE) {
[17:26:29.692]     }
[17:26:29.692]     else {
[17:26:29.692]         if (TRUE) {
[17:26:29.692]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:29.692]                 open = "w")
[17:26:29.692]         }
[17:26:29.692]         else {
[17:26:29.692]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:29.692]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:29.692]         }
[17:26:29.692]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:29.692]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:29.692]             base::sink(type = "output", split = FALSE)
[17:26:29.692]             base::close(...future.stdout)
[17:26:29.692]         }, add = TRUE)
[17:26:29.692]     }
[17:26:29.692]     ...future.frame <- base::sys.nframe()
[17:26:29.692]     ...future.conditions <- base::list()
[17:26:29.692]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:29.692]     if (FALSE) {
[17:26:29.692]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:29.692]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:29.692]     }
[17:26:29.692]     ...future.result <- base::tryCatch({
[17:26:29.692]         base::withCallingHandlers({
[17:26:29.692]             ...future.value <- base::withVisible(base::local(42))
[17:26:29.692]             future::FutureResult(value = ...future.value$value, 
[17:26:29.692]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.692]                   ...future.rng), globalenv = if (FALSE) 
[17:26:29.692]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:29.692]                     ...future.globalenv.names))
[17:26:29.692]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:29.692]         }, condition = base::local({
[17:26:29.692]             c <- base::c
[17:26:29.692]             inherits <- base::inherits
[17:26:29.692]             invokeRestart <- base::invokeRestart
[17:26:29.692]             length <- base::length
[17:26:29.692]             list <- base::list
[17:26:29.692]             seq.int <- base::seq.int
[17:26:29.692]             signalCondition <- base::signalCondition
[17:26:29.692]             sys.calls <- base::sys.calls
[17:26:29.692]             `[[` <- base::`[[`
[17:26:29.692]             `+` <- base::`+`
[17:26:29.692]             `<<-` <- base::`<<-`
[17:26:29.692]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:29.692]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:29.692]                   3L)]
[17:26:29.692]             }
[17:26:29.692]             function(cond) {
[17:26:29.692]                 is_error <- inherits(cond, "error")
[17:26:29.692]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:29.692]                   NULL)
[17:26:29.692]                 if (is_error) {
[17:26:29.692]                   sessionInformation <- function() {
[17:26:29.692]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:29.692]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:29.692]                       search = base::search(), system = base::Sys.info())
[17:26:29.692]                   }
[17:26:29.692]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.692]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:29.692]                     cond$call), session = sessionInformation(), 
[17:26:29.692]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:29.692]                   signalCondition(cond)
[17:26:29.692]                 }
[17:26:29.692]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:29.692]                 "immediateCondition"))) {
[17:26:29.692]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:29.692]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.692]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:29.692]                   if (TRUE && !signal) {
[17:26:29.692]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.692]                     {
[17:26:29.692]                       inherits <- base::inherits
[17:26:29.692]                       invokeRestart <- base::invokeRestart
[17:26:29.692]                       is.null <- base::is.null
[17:26:29.692]                       muffled <- FALSE
[17:26:29.692]                       if (inherits(cond, "message")) {
[17:26:29.692]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.692]                         if (muffled) 
[17:26:29.692]                           invokeRestart("muffleMessage")
[17:26:29.692]                       }
[17:26:29.692]                       else if (inherits(cond, "warning")) {
[17:26:29.692]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.692]                         if (muffled) 
[17:26:29.692]                           invokeRestart("muffleWarning")
[17:26:29.692]                       }
[17:26:29.692]                       else if (inherits(cond, "condition")) {
[17:26:29.692]                         if (!is.null(pattern)) {
[17:26:29.692]                           computeRestarts <- base::computeRestarts
[17:26:29.692]                           grepl <- base::grepl
[17:26:29.692]                           restarts <- computeRestarts(cond)
[17:26:29.692]                           for (restart in restarts) {
[17:26:29.692]                             name <- restart$name
[17:26:29.692]                             if (is.null(name)) 
[17:26:29.692]                               next
[17:26:29.692]                             if (!grepl(pattern, name)) 
[17:26:29.692]                               next
[17:26:29.692]                             invokeRestart(restart)
[17:26:29.692]                             muffled <- TRUE
[17:26:29.692]                             break
[17:26:29.692]                           }
[17:26:29.692]                         }
[17:26:29.692]                       }
[17:26:29.692]                       invisible(muffled)
[17:26:29.692]                     }
[17:26:29.692]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.692]                   }
[17:26:29.692]                 }
[17:26:29.692]                 else {
[17:26:29.692]                   if (TRUE) {
[17:26:29.692]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.692]                     {
[17:26:29.692]                       inherits <- base::inherits
[17:26:29.692]                       invokeRestart <- base::invokeRestart
[17:26:29.692]                       is.null <- base::is.null
[17:26:29.692]                       muffled <- FALSE
[17:26:29.692]                       if (inherits(cond, "message")) {
[17:26:29.692]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.692]                         if (muffled) 
[17:26:29.692]                           invokeRestart("muffleMessage")
[17:26:29.692]                       }
[17:26:29.692]                       else if (inherits(cond, "warning")) {
[17:26:29.692]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.692]                         if (muffled) 
[17:26:29.692]                           invokeRestart("muffleWarning")
[17:26:29.692]                       }
[17:26:29.692]                       else if (inherits(cond, "condition")) {
[17:26:29.692]                         if (!is.null(pattern)) {
[17:26:29.692]                           computeRestarts <- base::computeRestarts
[17:26:29.692]                           grepl <- base::grepl
[17:26:29.692]                           restarts <- computeRestarts(cond)
[17:26:29.692]                           for (restart in restarts) {
[17:26:29.692]                             name <- restart$name
[17:26:29.692]                             if (is.null(name)) 
[17:26:29.692]                               next
[17:26:29.692]                             if (!grepl(pattern, name)) 
[17:26:29.692]                               next
[17:26:29.692]                             invokeRestart(restart)
[17:26:29.692]                             muffled <- TRUE
[17:26:29.692]                             break
[17:26:29.692]                           }
[17:26:29.692]                         }
[17:26:29.692]                       }
[17:26:29.692]                       invisible(muffled)
[17:26:29.692]                     }
[17:26:29.692]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.692]                   }
[17:26:29.692]                 }
[17:26:29.692]             }
[17:26:29.692]         }))
[17:26:29.692]     }, error = function(ex) {
[17:26:29.692]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:29.692]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.692]                 ...future.rng), started = ...future.startTime, 
[17:26:29.692]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:29.692]             version = "1.8"), class = "FutureResult")
[17:26:29.692]     }, finally = {
[17:26:29.692]         if (!identical(...future.workdir, getwd())) 
[17:26:29.692]             setwd(...future.workdir)
[17:26:29.692]         {
[17:26:29.692]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:29.692]                 ...future.oldOptions$nwarnings <- NULL
[17:26:29.692]             }
[17:26:29.692]             base::options(...future.oldOptions)
[17:26:29.692]             if (.Platform$OS.type == "windows") {
[17:26:29.692]                 old_names <- names(...future.oldEnvVars)
[17:26:29.692]                 envs <- base::Sys.getenv()
[17:26:29.692]                 names <- names(envs)
[17:26:29.692]                 common <- intersect(names, old_names)
[17:26:29.692]                 added <- setdiff(names, old_names)
[17:26:29.692]                 removed <- setdiff(old_names, names)
[17:26:29.692]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:29.692]                   envs[common]]
[17:26:29.692]                 NAMES <- toupper(changed)
[17:26:29.692]                 args <- list()
[17:26:29.692]                 for (kk in seq_along(NAMES)) {
[17:26:29.692]                   name <- changed[[kk]]
[17:26:29.692]                   NAME <- NAMES[[kk]]
[17:26:29.692]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.692]                     next
[17:26:29.692]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.692]                 }
[17:26:29.692]                 NAMES <- toupper(added)
[17:26:29.692]                 for (kk in seq_along(NAMES)) {
[17:26:29.692]                   name <- added[[kk]]
[17:26:29.692]                   NAME <- NAMES[[kk]]
[17:26:29.692]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.692]                     next
[17:26:29.692]                   args[[name]] <- ""
[17:26:29.692]                 }
[17:26:29.692]                 NAMES <- toupper(removed)
[17:26:29.692]                 for (kk in seq_along(NAMES)) {
[17:26:29.692]                   name <- removed[[kk]]
[17:26:29.692]                   NAME <- NAMES[[kk]]
[17:26:29.692]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.692]                     next
[17:26:29.692]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.692]                 }
[17:26:29.692]                 if (length(args) > 0) 
[17:26:29.692]                   base::do.call(base::Sys.setenv, args = args)
[17:26:29.692]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:29.692]             }
[17:26:29.692]             else {
[17:26:29.692]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:29.692]             }
[17:26:29.692]             {
[17:26:29.692]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:29.692]                   0L) {
[17:26:29.692]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:29.692]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:29.692]                   base::options(opts)
[17:26:29.692]                 }
[17:26:29.692]                 {
[17:26:29.692]                   {
[17:26:29.692]                     NULL
[17:26:29.692]                     RNGkind("Mersenne-Twister")
[17:26:29.692]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:29.692]                       inherits = FALSE)
[17:26:29.692]                   }
[17:26:29.692]                   options(future.plan = NULL)
[17:26:29.692]                   if (is.na(NA_character_)) 
[17:26:29.692]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.692]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:29.692]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:29.692]                     .init = FALSE)
[17:26:29.692]                 }
[17:26:29.692]             }
[17:26:29.692]         }
[17:26:29.692]     })
[17:26:29.692]     if (TRUE) {
[17:26:29.692]         base::sink(type = "output", split = FALSE)
[17:26:29.692]         if (TRUE) {
[17:26:29.692]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:29.692]         }
[17:26:29.692]         else {
[17:26:29.692]             ...future.result["stdout"] <- base::list(NULL)
[17:26:29.692]         }
[17:26:29.692]         base::close(...future.stdout)
[17:26:29.692]         ...future.stdout <- NULL
[17:26:29.692]     }
[17:26:29.692]     ...future.result$conditions <- ...future.conditions
[17:26:29.692]     ...future.result$finished <- base::Sys.time()
[17:26:29.692]     ...future.result
[17:26:29.692] }
[17:26:29.696] plan(): Setting new future strategy stack:
[17:26:29.697] List of future strategies:
[17:26:29.697] 1. sequential:
[17:26:29.697]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.697]    - tweaked: FALSE
[17:26:29.697]    - call: NULL
[17:26:29.697] plan(): nbrOfWorkers() = 1
[17:26:29.698] plan(): Setting new future strategy stack:
[17:26:29.699] List of future strategies:
[17:26:29.699] 1. sequential:
[17:26:29.699]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.699]    - tweaked: FALSE
[17:26:29.699]    - call: plan(strategy)
[17:26:29.699] plan(): nbrOfWorkers() = 1
[17:26:29.699] SequentialFuture started (and completed)
SequentialFuture:
Label: 'strategy = sequential'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: FALSE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Resolved: TRUE
Value: 56 bytes of class 'numeric'
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.700] getGlobalsAndPackages() ...
[17:26:29.700] Searching for globals...
[17:26:29.701] 
[17:26:29.701] Searching for globals ... DONE
[17:26:29.701] - globals: [0] <none>
[17:26:29.701] getGlobalsAndPackages() ... DONE
[17:26:29.701] run() for 'Future' ...
[17:26:29.702] - state: 'created'
[17:26:29.702] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:29.702] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.702] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:29.703]   - Field: 'label'
[17:26:29.703]   - Field: 'local'
[17:26:29.703]   - Field: 'owner'
[17:26:29.703]   - Field: 'envir'
[17:26:29.703]   - Field: 'packages'
[17:26:29.704]   - Field: 'gc'
[17:26:29.704]   - Field: 'conditions'
[17:26:29.704]   - Field: 'expr'
[17:26:29.704]   - Field: 'uuid'
[17:26:29.704]   - Field: 'seed'
[17:26:29.704]   - Field: 'version'
[17:26:29.705]   - Field: 'result'
[17:26:29.705]   - Field: 'asynchronous'
[17:26:29.705]   - Field: 'calls'
[17:26:29.705]   - Field: 'globals'
[17:26:29.705]   - Field: 'stdout'
[17:26:29.705]   - Field: 'earlySignal'
[17:26:29.706]   - Field: 'lazy'
[17:26:29.706]   - Field: 'state'
[17:26:29.706] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:29.706] - Launch lazy future ...
[17:26:29.706] Packages needed by the future expression (n = 0): <none>
[17:26:29.707] Packages needed by future strategies (n = 0): <none>
[17:26:29.707] {
[17:26:29.707]     {
[17:26:29.707]         {
[17:26:29.707]             ...future.startTime <- base::Sys.time()
[17:26:29.707]             {
[17:26:29.707]                 {
[17:26:29.707]                   {
[17:26:29.707]                     base::local({
[17:26:29.707]                       has_future <- base::requireNamespace("future", 
[17:26:29.707]                         quietly = TRUE)
[17:26:29.707]                       if (has_future) {
[17:26:29.707]                         ns <- base::getNamespace("future")
[17:26:29.707]                         version <- ns[[".package"]][["version"]]
[17:26:29.707]                         if (is.null(version)) 
[17:26:29.707]                           version <- utils::packageVersion("future")
[17:26:29.707]                       }
[17:26:29.707]                       else {
[17:26:29.707]                         version <- NULL
[17:26:29.707]                       }
[17:26:29.707]                       if (!has_future || version < "1.8.0") {
[17:26:29.707]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:29.707]                           "", base::R.version$version.string), 
[17:26:29.707]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:29.707]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:29.707]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:29.707]                             "release", "version")], collapse = " "), 
[17:26:29.707]                           hostname = base::Sys.info()[["nodename"]])
[17:26:29.707]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:29.707]                           info)
[17:26:29.707]                         info <- base::paste(info, collapse = "; ")
[17:26:29.707]                         if (!has_future) {
[17:26:29.707]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:29.707]                             info)
[17:26:29.707]                         }
[17:26:29.707]                         else {
[17:26:29.707]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:29.707]                             info, version)
[17:26:29.707]                         }
[17:26:29.707]                         base::stop(msg)
[17:26:29.707]                       }
[17:26:29.707]                     })
[17:26:29.707]                   }
[17:26:29.707]                   ...future.strategy.old <- future::plan("list")
[17:26:29.707]                   options(future.plan = NULL)
[17:26:29.707]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.707]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:29.707]                 }
[17:26:29.707]                 ...future.workdir <- getwd()
[17:26:29.707]             }
[17:26:29.707]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:29.707]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:29.707]         }
[17:26:29.707]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:29.707]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:29.707]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:29.707]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:29.707]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:29.707]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:29.707]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:29.707]             base::names(...future.oldOptions))
[17:26:29.707]     }
[17:26:29.707]     if (FALSE) {
[17:26:29.707]     }
[17:26:29.707]     else {
[17:26:29.707]         if (TRUE) {
[17:26:29.707]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:29.707]                 open = "w")
[17:26:29.707]         }
[17:26:29.707]         else {
[17:26:29.707]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:29.707]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:29.707]         }
[17:26:29.707]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:29.707]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:29.707]             base::sink(type = "output", split = FALSE)
[17:26:29.707]             base::close(...future.stdout)
[17:26:29.707]         }, add = TRUE)
[17:26:29.707]     }
[17:26:29.707]     ...future.frame <- base::sys.nframe()
[17:26:29.707]     ...future.conditions <- base::list()
[17:26:29.707]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:29.707]     if (FALSE) {
[17:26:29.707]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:29.707]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:29.707]     }
[17:26:29.707]     ...future.result <- base::tryCatch({
[17:26:29.707]         base::withCallingHandlers({
[17:26:29.707]             ...future.value <- base::withVisible(base::local(42))
[17:26:29.707]             future::FutureResult(value = ...future.value$value, 
[17:26:29.707]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.707]                   ...future.rng), globalenv = if (FALSE) 
[17:26:29.707]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:29.707]                     ...future.globalenv.names))
[17:26:29.707]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:29.707]         }, condition = base::local({
[17:26:29.707]             c <- base::c
[17:26:29.707]             inherits <- base::inherits
[17:26:29.707]             invokeRestart <- base::invokeRestart
[17:26:29.707]             length <- base::length
[17:26:29.707]             list <- base::list
[17:26:29.707]             seq.int <- base::seq.int
[17:26:29.707]             signalCondition <- base::signalCondition
[17:26:29.707]             sys.calls <- base::sys.calls
[17:26:29.707]             `[[` <- base::`[[`
[17:26:29.707]             `+` <- base::`+`
[17:26:29.707]             `<<-` <- base::`<<-`
[17:26:29.707]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:29.707]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:29.707]                   3L)]
[17:26:29.707]             }
[17:26:29.707]             function(cond) {
[17:26:29.707]                 is_error <- inherits(cond, "error")
[17:26:29.707]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:29.707]                   NULL)
[17:26:29.707]                 if (is_error) {
[17:26:29.707]                   sessionInformation <- function() {
[17:26:29.707]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:29.707]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:29.707]                       search = base::search(), system = base::Sys.info())
[17:26:29.707]                   }
[17:26:29.707]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.707]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:29.707]                     cond$call), session = sessionInformation(), 
[17:26:29.707]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:29.707]                   signalCondition(cond)
[17:26:29.707]                 }
[17:26:29.707]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:29.707]                 "immediateCondition"))) {
[17:26:29.707]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:29.707]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.707]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:29.707]                   if (TRUE && !signal) {
[17:26:29.707]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.707]                     {
[17:26:29.707]                       inherits <- base::inherits
[17:26:29.707]                       invokeRestart <- base::invokeRestart
[17:26:29.707]                       is.null <- base::is.null
[17:26:29.707]                       muffled <- FALSE
[17:26:29.707]                       if (inherits(cond, "message")) {
[17:26:29.707]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.707]                         if (muffled) 
[17:26:29.707]                           invokeRestart("muffleMessage")
[17:26:29.707]                       }
[17:26:29.707]                       else if (inherits(cond, "warning")) {
[17:26:29.707]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.707]                         if (muffled) 
[17:26:29.707]                           invokeRestart("muffleWarning")
[17:26:29.707]                       }
[17:26:29.707]                       else if (inherits(cond, "condition")) {
[17:26:29.707]                         if (!is.null(pattern)) {
[17:26:29.707]                           computeRestarts <- base::computeRestarts
[17:26:29.707]                           grepl <- base::grepl
[17:26:29.707]                           restarts <- computeRestarts(cond)
[17:26:29.707]                           for (restart in restarts) {
[17:26:29.707]                             name <- restart$name
[17:26:29.707]                             if (is.null(name)) 
[17:26:29.707]                               next
[17:26:29.707]                             if (!grepl(pattern, name)) 
[17:26:29.707]                               next
[17:26:29.707]                             invokeRestart(restart)
[17:26:29.707]                             muffled <- TRUE
[17:26:29.707]                             break
[17:26:29.707]                           }
[17:26:29.707]                         }
[17:26:29.707]                       }
[17:26:29.707]                       invisible(muffled)
[17:26:29.707]                     }
[17:26:29.707]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.707]                   }
[17:26:29.707]                 }
[17:26:29.707]                 else {
[17:26:29.707]                   if (TRUE) {
[17:26:29.707]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.707]                     {
[17:26:29.707]                       inherits <- base::inherits
[17:26:29.707]                       invokeRestart <- base::invokeRestart
[17:26:29.707]                       is.null <- base::is.null
[17:26:29.707]                       muffled <- FALSE
[17:26:29.707]                       if (inherits(cond, "message")) {
[17:26:29.707]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.707]                         if (muffled) 
[17:26:29.707]                           invokeRestart("muffleMessage")
[17:26:29.707]                       }
[17:26:29.707]                       else if (inherits(cond, "warning")) {
[17:26:29.707]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.707]                         if (muffled) 
[17:26:29.707]                           invokeRestart("muffleWarning")
[17:26:29.707]                       }
[17:26:29.707]                       else if (inherits(cond, "condition")) {
[17:26:29.707]                         if (!is.null(pattern)) {
[17:26:29.707]                           computeRestarts <- base::computeRestarts
[17:26:29.707]                           grepl <- base::grepl
[17:26:29.707]                           restarts <- computeRestarts(cond)
[17:26:29.707]                           for (restart in restarts) {
[17:26:29.707]                             name <- restart$name
[17:26:29.707]                             if (is.null(name)) 
[17:26:29.707]                               next
[17:26:29.707]                             if (!grepl(pattern, name)) 
[17:26:29.707]                               next
[17:26:29.707]                             invokeRestart(restart)
[17:26:29.707]                             muffled <- TRUE
[17:26:29.707]                             break
[17:26:29.707]                           }
[17:26:29.707]                         }
[17:26:29.707]                       }
[17:26:29.707]                       invisible(muffled)
[17:26:29.707]                     }
[17:26:29.707]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.707]                   }
[17:26:29.707]                 }
[17:26:29.707]             }
[17:26:29.707]         }))
[17:26:29.707]     }, error = function(ex) {
[17:26:29.707]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:29.707]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.707]                 ...future.rng), started = ...future.startTime, 
[17:26:29.707]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:29.707]             version = "1.8"), class = "FutureResult")
[17:26:29.707]     }, finally = {
[17:26:29.707]         if (!identical(...future.workdir, getwd())) 
[17:26:29.707]             setwd(...future.workdir)
[17:26:29.707]         {
[17:26:29.707]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:29.707]                 ...future.oldOptions$nwarnings <- NULL
[17:26:29.707]             }
[17:26:29.707]             base::options(...future.oldOptions)
[17:26:29.707]             if (.Platform$OS.type == "windows") {
[17:26:29.707]                 old_names <- names(...future.oldEnvVars)
[17:26:29.707]                 envs <- base::Sys.getenv()
[17:26:29.707]                 names <- names(envs)
[17:26:29.707]                 common <- intersect(names, old_names)
[17:26:29.707]                 added <- setdiff(names, old_names)
[17:26:29.707]                 removed <- setdiff(old_names, names)
[17:26:29.707]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:29.707]                   envs[common]]
[17:26:29.707]                 NAMES <- toupper(changed)
[17:26:29.707]                 args <- list()
[17:26:29.707]                 for (kk in seq_along(NAMES)) {
[17:26:29.707]                   name <- changed[[kk]]
[17:26:29.707]                   NAME <- NAMES[[kk]]
[17:26:29.707]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.707]                     next
[17:26:29.707]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.707]                 }
[17:26:29.707]                 NAMES <- toupper(added)
[17:26:29.707]                 for (kk in seq_along(NAMES)) {
[17:26:29.707]                   name <- added[[kk]]
[17:26:29.707]                   NAME <- NAMES[[kk]]
[17:26:29.707]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.707]                     next
[17:26:29.707]                   args[[name]] <- ""
[17:26:29.707]                 }
[17:26:29.707]                 NAMES <- toupper(removed)
[17:26:29.707]                 for (kk in seq_along(NAMES)) {
[17:26:29.707]                   name <- removed[[kk]]
[17:26:29.707]                   NAME <- NAMES[[kk]]
[17:26:29.707]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.707]                     next
[17:26:29.707]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.707]                 }
[17:26:29.707]                 if (length(args) > 0) 
[17:26:29.707]                   base::do.call(base::Sys.setenv, args = args)
[17:26:29.707]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:29.707]             }
[17:26:29.707]             else {
[17:26:29.707]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:29.707]             }
[17:26:29.707]             {
[17:26:29.707]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:29.707]                   0L) {
[17:26:29.707]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:29.707]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:29.707]                   base::options(opts)
[17:26:29.707]                 }
[17:26:29.707]                 {
[17:26:29.707]                   {
[17:26:29.707]                     NULL
[17:26:29.707]                     RNGkind("Mersenne-Twister")
[17:26:29.707]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:29.707]                       inherits = FALSE)
[17:26:29.707]                   }
[17:26:29.707]                   options(future.plan = NULL)
[17:26:29.707]                   if (is.na(NA_character_)) 
[17:26:29.707]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.707]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:29.707]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:29.707]                     .init = FALSE)
[17:26:29.707]                 }
[17:26:29.707]             }
[17:26:29.707]         }
[17:26:29.707]     })
[17:26:29.707]     if (TRUE) {
[17:26:29.707]         base::sink(type = "output", split = FALSE)
[17:26:29.707]         if (TRUE) {
[17:26:29.707]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:29.707]         }
[17:26:29.707]         else {
[17:26:29.707]             ...future.result["stdout"] <- base::list(NULL)
[17:26:29.707]         }
[17:26:29.707]         base::close(...future.stdout)
[17:26:29.707]         ...future.stdout <- NULL
[17:26:29.707]     }
[17:26:29.707]     ...future.result$conditions <- ...future.conditions
[17:26:29.707]     ...future.result$finished <- base::Sys.time()
[17:26:29.707]     ...future.result
[17:26:29.707] }
[17:26:29.711] plan(): Setting new future strategy stack:
[17:26:29.711] List of future strategies:
[17:26:29.711] 1. sequential:
[17:26:29.711]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.711]    - tweaked: FALSE
[17:26:29.711]    - call: NULL
[17:26:29.713] plan(): nbrOfWorkers() = 1
[17:26:29.714] plan(): Setting new future strategy stack:
[17:26:29.714] List of future strategies:
[17:26:29.714] 1. sequential:
[17:26:29.714]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.714]    - tweaked: FALSE
[17:26:29.714]    - call: plan(strategy)
[17:26:29.715] plan(): nbrOfWorkers() = 1
[17:26:29.715] SequentialFuture started (and completed)
[17:26:29.715] - Launch lazy future ... done
[17:26:29.716] run() for 'SequentialFuture' ... done
SequentialFuture:
Label: 'strategy = sequential'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: FALSE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Resolved: TRUE
Value: 56 bytes of class 'numeric'
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.717] getGlobalsAndPackages() ...
[17:26:29.717] Searching for globals...
[17:26:29.717] - globals found: [1] '{'
[17:26:29.718] Searching for globals ... DONE
[17:26:29.718] Resolving globals: FALSE
[17:26:29.718] 
[17:26:29.718] 
[17:26:29.718] getGlobalsAndPackages() ... DONE
[17:26:29.719] run() for 'Future' ...
[17:26:29.719] - state: 'created'
[17:26:29.719] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:29.720] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:29.720] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:29.720]   - Field: 'label'
[17:26:29.720]   - Field: 'local'
[17:26:29.720]   - Field: 'owner'
[17:26:29.720]   - Field: 'envir'
[17:26:29.721]   - Field: 'packages'
[17:26:29.721]   - Field: 'gc'
[17:26:29.721]   - Field: 'conditions'
[17:26:29.721]   - Field: 'expr'
[17:26:29.721]   - Field: 'uuid'
[17:26:29.721]   - Field: 'seed'
[17:26:29.722]   - Field: 'version'
[17:26:29.722]   - Field: 'result'
[17:26:29.722]   - Field: 'asynchronous'
[17:26:29.722]   - Field: 'calls'
[17:26:29.722]   - Field: 'globals'
[17:26:29.723]   - Field: 'stdout'
[17:26:29.723]   - Field: 'earlySignal'
[17:26:29.723]   - Field: 'lazy'
[17:26:29.723]   - Field: 'state'
[17:26:29.723] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:29.723] - Launch lazy future ...
[17:26:29.724] Packages needed by the future expression (n = 0): <none>
[17:26:29.724] Packages needed by future strategies (n = 0): <none>
[17:26:29.724] {
[17:26:29.724]     {
[17:26:29.724]         {
[17:26:29.724]             ...future.startTime <- base::Sys.time()
[17:26:29.724]             {
[17:26:29.724]                 {
[17:26:29.724]                   {
[17:26:29.724]                     base::local({
[17:26:29.724]                       has_future <- base::requireNamespace("future", 
[17:26:29.724]                         quietly = TRUE)
[17:26:29.724]                       if (has_future) {
[17:26:29.724]                         ns <- base::getNamespace("future")
[17:26:29.724]                         version <- ns[[".package"]][["version"]]
[17:26:29.724]                         if (is.null(version)) 
[17:26:29.724]                           version <- utils::packageVersion("future")
[17:26:29.724]                       }
[17:26:29.724]                       else {
[17:26:29.724]                         version <- NULL
[17:26:29.724]                       }
[17:26:29.724]                       if (!has_future || version < "1.8.0") {
[17:26:29.724]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:29.724]                           "", base::R.version$version.string), 
[17:26:29.724]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:29.724]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:29.724]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:29.724]                             "release", "version")], collapse = " "), 
[17:26:29.724]                           hostname = base::Sys.info()[["nodename"]])
[17:26:29.724]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:29.724]                           info)
[17:26:29.724]                         info <- base::paste(info, collapse = "; ")
[17:26:29.724]                         if (!has_future) {
[17:26:29.724]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:29.724]                             info)
[17:26:29.724]                         }
[17:26:29.724]                         else {
[17:26:29.724]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:29.724]                             info, version)
[17:26:29.724]                         }
[17:26:29.724]                         base::stop(msg)
[17:26:29.724]                       }
[17:26:29.724]                     })
[17:26:29.724]                   }
[17:26:29.724]                   ...future.strategy.old <- future::plan("list")
[17:26:29.724]                   options(future.plan = NULL)
[17:26:29.724]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.724]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:29.724]                 }
[17:26:29.724]                 ...future.workdir <- getwd()
[17:26:29.724]             }
[17:26:29.724]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:29.724]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:29.724]         }
[17:26:29.724]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:29.724]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:29.724]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:29.724]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:29.724]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:29.724]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:29.724]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:29.724]             base::names(...future.oldOptions))
[17:26:29.724]     }
[17:26:29.724]     if (FALSE) {
[17:26:29.724]     }
[17:26:29.724]     else {
[17:26:29.724]         if (TRUE) {
[17:26:29.724]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:29.724]                 open = "w")
[17:26:29.724]         }
[17:26:29.724]         else {
[17:26:29.724]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:29.724]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:29.724]         }
[17:26:29.724]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:29.724]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:29.724]             base::sink(type = "output", split = FALSE)
[17:26:29.724]             base::close(...future.stdout)
[17:26:29.724]         }, add = TRUE)
[17:26:29.724]     }
[17:26:29.724]     ...future.frame <- base::sys.nframe()
[17:26:29.724]     ...future.conditions <- base::list()
[17:26:29.724]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:29.724]     if (FALSE) {
[17:26:29.724]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:29.724]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:29.724]     }
[17:26:29.724]     ...future.result <- base::tryCatch({
[17:26:29.724]         base::withCallingHandlers({
[17:26:29.724]             ...future.value <- base::withVisible(base::local({
[17:26:29.724]                 42
[17:26:29.724]             }))
[17:26:29.724]             future::FutureResult(value = ...future.value$value, 
[17:26:29.724]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.724]                   ...future.rng), globalenv = if (FALSE) 
[17:26:29.724]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:29.724]                     ...future.globalenv.names))
[17:26:29.724]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:29.724]         }, condition = base::local({
[17:26:29.724]             c <- base::c
[17:26:29.724]             inherits <- base::inherits
[17:26:29.724]             invokeRestart <- base::invokeRestart
[17:26:29.724]             length <- base::length
[17:26:29.724]             list <- base::list
[17:26:29.724]             seq.int <- base::seq.int
[17:26:29.724]             signalCondition <- base::signalCondition
[17:26:29.724]             sys.calls <- base::sys.calls
[17:26:29.724]             `[[` <- base::`[[`
[17:26:29.724]             `+` <- base::`+`
[17:26:29.724]             `<<-` <- base::`<<-`
[17:26:29.724]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:29.724]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:29.724]                   3L)]
[17:26:29.724]             }
[17:26:29.724]             function(cond) {
[17:26:29.724]                 is_error <- inherits(cond, "error")
[17:26:29.724]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:29.724]                   NULL)
[17:26:29.724]                 if (is_error) {
[17:26:29.724]                   sessionInformation <- function() {
[17:26:29.724]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:29.724]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:29.724]                       search = base::search(), system = base::Sys.info())
[17:26:29.724]                   }
[17:26:29.724]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.724]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:29.724]                     cond$call), session = sessionInformation(), 
[17:26:29.724]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:29.724]                   signalCondition(cond)
[17:26:29.724]                 }
[17:26:29.724]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:29.724]                 "immediateCondition"))) {
[17:26:29.724]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:29.724]                   ...future.conditions[[length(...future.conditions) + 
[17:26:29.724]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:29.724]                   if (TRUE && !signal) {
[17:26:29.724]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.724]                     {
[17:26:29.724]                       inherits <- base::inherits
[17:26:29.724]                       invokeRestart <- base::invokeRestart
[17:26:29.724]                       is.null <- base::is.null
[17:26:29.724]                       muffled <- FALSE
[17:26:29.724]                       if (inherits(cond, "message")) {
[17:26:29.724]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.724]                         if (muffled) 
[17:26:29.724]                           invokeRestart("muffleMessage")
[17:26:29.724]                       }
[17:26:29.724]                       else if (inherits(cond, "warning")) {
[17:26:29.724]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.724]                         if (muffled) 
[17:26:29.724]                           invokeRestart("muffleWarning")
[17:26:29.724]                       }
[17:26:29.724]                       else if (inherits(cond, "condition")) {
[17:26:29.724]                         if (!is.null(pattern)) {
[17:26:29.724]                           computeRestarts <- base::computeRestarts
[17:26:29.724]                           grepl <- base::grepl
[17:26:29.724]                           restarts <- computeRestarts(cond)
[17:26:29.724]                           for (restart in restarts) {
[17:26:29.724]                             name <- restart$name
[17:26:29.724]                             if (is.null(name)) 
[17:26:29.724]                               next
[17:26:29.724]                             if (!grepl(pattern, name)) 
[17:26:29.724]                               next
[17:26:29.724]                             invokeRestart(restart)
[17:26:29.724]                             muffled <- TRUE
[17:26:29.724]                             break
[17:26:29.724]                           }
[17:26:29.724]                         }
[17:26:29.724]                       }
[17:26:29.724]                       invisible(muffled)
[17:26:29.724]                     }
[17:26:29.724]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.724]                   }
[17:26:29.724]                 }
[17:26:29.724]                 else {
[17:26:29.724]                   if (TRUE) {
[17:26:29.724]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:29.724]                     {
[17:26:29.724]                       inherits <- base::inherits
[17:26:29.724]                       invokeRestart <- base::invokeRestart
[17:26:29.724]                       is.null <- base::is.null
[17:26:29.724]                       muffled <- FALSE
[17:26:29.724]                       if (inherits(cond, "message")) {
[17:26:29.724]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:29.724]                         if (muffled) 
[17:26:29.724]                           invokeRestart("muffleMessage")
[17:26:29.724]                       }
[17:26:29.724]                       else if (inherits(cond, "warning")) {
[17:26:29.724]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:29.724]                         if (muffled) 
[17:26:29.724]                           invokeRestart("muffleWarning")
[17:26:29.724]                       }
[17:26:29.724]                       else if (inherits(cond, "condition")) {
[17:26:29.724]                         if (!is.null(pattern)) {
[17:26:29.724]                           computeRestarts <- base::computeRestarts
[17:26:29.724]                           grepl <- base::grepl
[17:26:29.724]                           restarts <- computeRestarts(cond)
[17:26:29.724]                           for (restart in restarts) {
[17:26:29.724]                             name <- restart$name
[17:26:29.724]                             if (is.null(name)) 
[17:26:29.724]                               next
[17:26:29.724]                             if (!grepl(pattern, name)) 
[17:26:29.724]                               next
[17:26:29.724]                             invokeRestart(restart)
[17:26:29.724]                             muffled <- TRUE
[17:26:29.724]                             break
[17:26:29.724]                           }
[17:26:29.724]                         }
[17:26:29.724]                       }
[17:26:29.724]                       invisible(muffled)
[17:26:29.724]                     }
[17:26:29.724]                     muffleCondition(cond, pattern = "^muffle")
[17:26:29.724]                   }
[17:26:29.724]                 }
[17:26:29.724]             }
[17:26:29.724]         }))
[17:26:29.724]     }, error = function(ex) {
[17:26:29.724]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:29.724]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:29.724]                 ...future.rng), started = ...future.startTime, 
[17:26:29.724]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:29.724]             version = "1.8"), class = "FutureResult")
[17:26:29.724]     }, finally = {
[17:26:29.724]         if (!identical(...future.workdir, getwd())) 
[17:26:29.724]             setwd(...future.workdir)
[17:26:29.724]         {
[17:26:29.724]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:29.724]                 ...future.oldOptions$nwarnings <- NULL
[17:26:29.724]             }
[17:26:29.724]             base::options(...future.oldOptions)
[17:26:29.724]             if (.Platform$OS.type == "windows") {
[17:26:29.724]                 old_names <- names(...future.oldEnvVars)
[17:26:29.724]                 envs <- base::Sys.getenv()
[17:26:29.724]                 names <- names(envs)
[17:26:29.724]                 common <- intersect(names, old_names)
[17:26:29.724]                 added <- setdiff(names, old_names)
[17:26:29.724]                 removed <- setdiff(old_names, names)
[17:26:29.724]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:29.724]                   envs[common]]
[17:26:29.724]                 NAMES <- toupper(changed)
[17:26:29.724]                 args <- list()
[17:26:29.724]                 for (kk in seq_along(NAMES)) {
[17:26:29.724]                   name <- changed[[kk]]
[17:26:29.724]                   NAME <- NAMES[[kk]]
[17:26:29.724]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.724]                     next
[17:26:29.724]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.724]                 }
[17:26:29.724]                 NAMES <- toupper(added)
[17:26:29.724]                 for (kk in seq_along(NAMES)) {
[17:26:29.724]                   name <- added[[kk]]
[17:26:29.724]                   NAME <- NAMES[[kk]]
[17:26:29.724]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.724]                     next
[17:26:29.724]                   args[[name]] <- ""
[17:26:29.724]                 }
[17:26:29.724]                 NAMES <- toupper(removed)
[17:26:29.724]                 for (kk in seq_along(NAMES)) {
[17:26:29.724]                   name <- removed[[kk]]
[17:26:29.724]                   NAME <- NAMES[[kk]]
[17:26:29.724]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:29.724]                     next
[17:26:29.724]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:29.724]                 }
[17:26:29.724]                 if (length(args) > 0) 
[17:26:29.724]                   base::do.call(base::Sys.setenv, args = args)
[17:26:29.724]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:29.724]             }
[17:26:29.724]             else {
[17:26:29.724]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:29.724]             }
[17:26:29.724]             {
[17:26:29.724]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:29.724]                   0L) {
[17:26:29.724]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:29.724]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:29.724]                   base::options(opts)
[17:26:29.724]                 }
[17:26:29.724]                 {
[17:26:29.724]                   {
[17:26:29.724]                     NULL
[17:26:29.724]                     RNGkind("Mersenne-Twister")
[17:26:29.724]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:29.724]                       inherits = FALSE)
[17:26:29.724]                   }
[17:26:29.724]                   options(future.plan = NULL)
[17:26:29.724]                   if (is.na(NA_character_)) 
[17:26:29.724]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:29.724]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:29.724]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:29.724]                     .init = FALSE)
[17:26:29.724]                 }
[17:26:29.724]             }
[17:26:29.724]         }
[17:26:29.724]     })
[17:26:29.724]     if (TRUE) {
[17:26:29.724]         base::sink(type = "output", split = FALSE)
[17:26:29.724]         if (TRUE) {
[17:26:29.724]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:29.724]         }
[17:26:29.724]         else {
[17:26:29.724]             ...future.result["stdout"] <- base::list(NULL)
[17:26:29.724]         }
[17:26:29.724]         base::close(...future.stdout)
[17:26:29.724]         ...future.stdout <- NULL
[17:26:29.724]     }
[17:26:29.724]     ...future.result$conditions <- ...future.conditions
[17:26:29.724]     ...future.result$finished <- base::Sys.time()
[17:26:29.724]     ...future.result
[17:26:29.724] }
[17:26:29.728] plan(): Setting new future strategy stack:
[17:26:29.728] List of future strategies:
[17:26:29.728] 1. sequential:
[17:26:29.728]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.728]    - tweaked: FALSE
[17:26:29.728]    - call: NULL
[17:26:29.729] plan(): nbrOfWorkers() = 1
[17:26:29.730] plan(): Setting new future strategy stack:
[17:26:29.730] List of future strategies:
[17:26:29.730] 1. sequential:
[17:26:29.730]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:29.730]    - tweaked: FALSE
[17:26:29.730]    - call: plan(strategy)
[17:26:29.731] plan(): nbrOfWorkers() = 1
[17:26:29.731] SequentialFuture started (and completed)
[17:26:29.731] - Launch lazy future ... done
[17:26:29.731] run() for 'SequentialFuture' ... done
SequentialFuture:
Label: 'strategy = sequential'
Expression:
{
    42
}
Lazy evaluation: FALSE
Asynchronous evaluation: FALSE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
Resolved: TRUE
Value: 56 bytes of class 'numeric'
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
- plan('sequential') ... DONE
- plan('multisession') ...
[17:26:29.733] plan(): Setting new future strategy stack:
[17:26:29.733] List of future strategies:
[17:26:29.733] 1. multisession:
[17:26:29.733]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[17:26:29.733]    - tweaked: FALSE
[17:26:29.733]    - call: plan(strategy)
[17:26:29.733] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[17:26:29.734] multisession:
[17:26:29.734] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[17:26:29.734] - tweaked: FALSE
[17:26:29.734] - call: plan(strategy)
[17:26:29.738] getGlobalsAndPackages() ...
[17:26:29.738] Not searching for globals
[17:26:29.738] - globals: [0] <none>
[17:26:29.738] getGlobalsAndPackages() ... DONE
[17:26:29.739] [local output] makeClusterPSOCK() ...
[17:26:29.769] [local output] Workers: [n = 2] 'localhost', 'localhost'
[17:26:29.776] [local output] Base port: 24707
[17:26:29.776] [local output] Getting setup options for 2 cluster nodes ...
[17:26:29.776] [local output]  - Node 1 of 2 ...
[17:26:29.777] [local output] localMachine=TRUE => revtunnel=FALSE

[17:26:29.778] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpWoPsK3/worker.rank=1.parallelly.parent=85448.14dc81ad5ca2.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpWoPsK3/worker.rank=1.parallelly.parent=85448.14dc81ad5ca2.pid\")"'
[17:26:30.219] - Possible to infer worker's PID: TRUE
[17:26:30.220] [local output] Rscript port: 24707

[17:26:30.220] [local output]  - Node 2 of 2 ...
[17:26:30.221] [local output] localMachine=TRUE => revtunnel=FALSE

[17:26:30.222] [local output] Rscript port: 24707

[17:26:30.222] [local output] Getting setup options for 2 cluster nodes ... done
[17:26:30.223] [local output]  - Parallel setup requested for some PSOCK nodes
[17:26:30.223] [local output] Setting up PSOCK nodes in parallel
[17:26:30.224] List of 36
[17:26:30.224]  $ worker          : chr "localhost"
[17:26:30.224]   ..- attr(*, "localhost")= logi TRUE
[17:26:30.224]  $ master          : chr "localhost"
[17:26:30.224]  $ port            : int 24707
[17:26:30.224]  $ connectTimeout  : num 120
[17:26:30.224]  $ timeout         : num 120
[17:26:30.224]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[17:26:30.224]  $ homogeneous     : logi TRUE
[17:26:30.224]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future,labels.R:85448:CRANWIN3:C"| __truncated__
[17:26:30.224]  $ rscript_envs    : NULL
[17:26:30.224]  $ rscript_libs    : chr [1:2] "D:/temp/RtmpAVtqMV/RLIBS_30708245f64e7" "D:/RCompile/recent/R/library"
[17:26:30.224]  $ rscript_startup : NULL
[17:26:30.224]  $ rscript_sh      : chr "cmd"
[17:26:30.224]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[17:26:30.224]  $ methods         : logi TRUE
[17:26:30.224]  $ socketOptions   : chr "no-delay"
[17:26:30.224]  $ useXDR          : logi FALSE
[17:26:30.224]  $ outfile         : chr "/dev/null"
[17:26:30.224]  $ renice          : int NA
[17:26:30.224]  $ rshcmd          : NULL
[17:26:30.224]  $ user            : chr(0) 
[17:26:30.224]  $ revtunnel       : logi FALSE
[17:26:30.224]  $ rshlogfile      : NULL
[17:26:30.224]  $ rshopts         : chr(0) 
[17:26:30.224]  $ rank            : int 1
[17:26:30.224]  $ manual          : logi FALSE
[17:26:30.224]  $ dryrun          : logi FALSE
[17:26:30.224]  $ quiet           : logi FALSE
[17:26:30.224]  $ setup_strategy  : chr "parallel"
[17:26:30.224]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[17:26:30.224]  $ pidfile         : chr "D:/temp/RtmpWoPsK3/worker.rank=1.parallelly.parent=85448.14dc81ad5ca2.pid"
[17:26:30.224]  $ rshcmd_label    : NULL
[17:26:30.224]  $ rsh_call        : NULL
[17:26:30.224]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[17:26:30.224]  $ localMachine    : logi TRUE
[17:26:30.224]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[17:26:30.224]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[17:26:30.224]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[17:26:30.224]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[17:26:30.224]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[17:26:30.224]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
[17:26:30.224]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[17:26:30.224]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[17:26:30.224]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[17:26:30.224]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[17:26:30.224]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[17:26:30.224]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[17:26:30.224]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[17:26:30.224]  $ arguments       :List of 28
[17:26:30.224]   ..$ worker          : chr "localhost"
[17:26:30.224]   ..$ master          : NULL
[17:26:30.224]   ..$ port            : int 24707
[17:26:30.224]   ..$ connectTimeout  : num 120
[17:26:30.224]   ..$ timeout         : num 120
[17:26:30.224]   ..$ rscript         : NULL
[17:26:30.224]   ..$ homogeneous     : NULL
[17:26:30.224]   ..$ rscript_args    : NULL
[17:26:30.224]   ..$ rscript_envs    : NULL
[17:26:30.224]   ..$ rscript_libs    : chr [1:2] "D:/temp/RtmpAVtqMV/RLIBS_30708245f64e7" "D:/RCompile/recent/R/library"
[17:26:30.224]   ..$ rscript_startup : NULL
[17:26:30.224]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
[17:26:30.224]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[17:26:30.224]   ..$ methods         : logi TRUE
[17:26:30.224]   ..$ socketOptions   : chr "no-delay"
[17:26:30.224]   ..$ useXDR          : logi FALSE
[17:26:30.224]   ..$ outfile         : chr "/dev/null"
[17:26:30.224]   ..$ renice          : int NA
[17:26:30.224]   ..$ rshcmd          : NULL
[17:26:30.224]   ..$ user            : NULL
[17:26:30.224]   ..$ revtunnel       : logi NA
[17:26:30.224]   ..$ rshlogfile      : NULL
[17:26:30.224]   ..$ rshopts         : NULL
[17:26:30.224]   ..$ rank            : int 1
[17:26:30.224]   ..$ manual          : logi FALSE
[17:26:30.224]   ..$ dryrun          : logi FALSE
[17:26:30.224]   ..$ quiet           : logi FALSE
[17:26:30.224]   ..$ setup_strategy  : chr "parallel"
[17:26:30.224]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[17:26:30.248] [local output] System call to launch all workers:
[17:26:30.248] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future,labels.R:85448:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpWoPsK3/worker.rank=1.parallelly.parent=85448.14dc81ad5ca2.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/RtmpAVtqMV/RLIBS_30708245f64e7\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=24707 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[17:26:30.248] [local output] Starting PSOCK main server
[17:26:30.254] [local output] Workers launched
[17:26:30.254] [local output] Waiting for workers to connect back
[17:26:30.255]  - [local output] 0 workers out of 2 ready
[17:26:30.419]  - [local output] 0 workers out of 2 ready
[17:26:30.420]  - [local output] 1 workers out of 2 ready
[17:26:30.420]  - [local output] 2 workers out of 2 ready
[17:26:30.420] [local output] Launching of workers completed
[17:26:30.421] [local output] Collecting session information from workers
[17:26:30.422] [local output]  - Worker #1 of 2
[17:26:30.422] [local output]  - Worker #2 of 2
[17:26:30.423] [local output] makeClusterPSOCK() ... done
[17:26:30.435] Packages needed by the future expression (n = 0): <none>
[17:26:30.436] Packages needed by future strategies (n = 0): <none>
[17:26:30.436] {
[17:26:30.436]     {
[17:26:30.436]         {
[17:26:30.436]             ...future.startTime <- base::Sys.time()
[17:26:30.436]             {
[17:26:30.436]                 {
[17:26:30.436]                   {
[17:26:30.436]                     {
[17:26:30.436]                       base::local({
[17:26:30.436]                         has_future <- base::requireNamespace("future", 
[17:26:30.436]                           quietly = TRUE)
[17:26:30.436]                         if (has_future) {
[17:26:30.436]                           ns <- base::getNamespace("future")
[17:26:30.436]                           version <- ns[[".package"]][["version"]]
[17:26:30.436]                           if (is.null(version)) 
[17:26:30.436]                             version <- utils::packageVersion("future")
[17:26:30.436]                         }
[17:26:30.436]                         else {
[17:26:30.436]                           version <- NULL
[17:26:30.436]                         }
[17:26:30.436]                         if (!has_future || version < "1.8.0") {
[17:26:30.436]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.436]                             "", base::R.version$version.string), 
[17:26:30.436]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.436]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.436]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.436]                               "release", "version")], collapse = " "), 
[17:26:30.436]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.436]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.436]                             info)
[17:26:30.436]                           info <- base::paste(info, collapse = "; ")
[17:26:30.436]                           if (!has_future) {
[17:26:30.436]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.436]                               info)
[17:26:30.436]                           }
[17:26:30.436]                           else {
[17:26:30.436]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.436]                               info, version)
[17:26:30.436]                           }
[17:26:30.436]                           base::stop(msg)
[17:26:30.436]                         }
[17:26:30.436]                       })
[17:26:30.436]                     }
[17:26:30.436]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.436]                     base::options(mc.cores = 1L)
[17:26:30.436]                   }
[17:26:30.436]                   ...future.strategy.old <- future::plan("list")
[17:26:30.436]                   options(future.plan = NULL)
[17:26:30.436]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.436]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.436]                 }
[17:26:30.436]                 ...future.workdir <- getwd()
[17:26:30.436]             }
[17:26:30.436]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.436]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.436]         }
[17:26:30.436]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.436]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.436]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.436]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.436]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.436]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.436]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.436]             base::names(...future.oldOptions))
[17:26:30.436]     }
[17:26:30.436]     if (FALSE) {
[17:26:30.436]     }
[17:26:30.436]     else {
[17:26:30.436]         if (TRUE) {
[17:26:30.436]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.436]                 open = "w")
[17:26:30.436]         }
[17:26:30.436]         else {
[17:26:30.436]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.436]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.436]         }
[17:26:30.436]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.436]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.436]             base::sink(type = "output", split = FALSE)
[17:26:30.436]             base::close(...future.stdout)
[17:26:30.436]         }, add = TRUE)
[17:26:30.436]     }
[17:26:30.436]     ...future.frame <- base::sys.nframe()
[17:26:30.436]     ...future.conditions <- base::list()
[17:26:30.436]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.436]     if (FALSE) {
[17:26:30.436]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.436]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.436]     }
[17:26:30.436]     ...future.result <- base::tryCatch({
[17:26:30.436]         base::withCallingHandlers({
[17:26:30.436]             ...future.value <- base::withVisible(base::local({
[17:26:30.436]                 ...future.makeSendCondition <- base::local({
[17:26:30.436]                   sendCondition <- NULL
[17:26:30.436]                   function(frame = 1L) {
[17:26:30.436]                     if (is.function(sendCondition)) 
[17:26:30.436]                       return(sendCondition)
[17:26:30.436]                     ns <- getNamespace("parallel")
[17:26:30.436]                     if (exists("sendData", mode = "function", 
[17:26:30.436]                       envir = ns)) {
[17:26:30.436]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.436]                         envir = ns)
[17:26:30.436]                       envir <- sys.frame(frame)
[17:26:30.436]                       master <- NULL
[17:26:30.436]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.436]                         !identical(envir, emptyenv())) {
[17:26:30.436]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.436]                           inherits = FALSE)) {
[17:26:30.436]                           master <- get("master", mode = "list", 
[17:26:30.436]                             envir = envir, inherits = FALSE)
[17:26:30.436]                           if (inherits(master, c("SOCKnode", 
[17:26:30.436]                             "SOCK0node"))) {
[17:26:30.436]                             sendCondition <<- function(cond) {
[17:26:30.436]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.436]                                 success = TRUE)
[17:26:30.436]                               parallel_sendData(master, data)
[17:26:30.436]                             }
[17:26:30.436]                             return(sendCondition)
[17:26:30.436]                           }
[17:26:30.436]                         }
[17:26:30.436]                         frame <- frame + 1L
[17:26:30.436]                         envir <- sys.frame(frame)
[17:26:30.436]                       }
[17:26:30.436]                     }
[17:26:30.436]                     sendCondition <<- function(cond) NULL
[17:26:30.436]                   }
[17:26:30.436]                 })
[17:26:30.436]                 withCallingHandlers({
[17:26:30.436]                   NA
[17:26:30.436]                 }, immediateCondition = function(cond) {
[17:26:30.436]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.436]                   sendCondition(cond)
[17:26:30.436]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.436]                   {
[17:26:30.436]                     inherits <- base::inherits
[17:26:30.436]                     invokeRestart <- base::invokeRestart
[17:26:30.436]                     is.null <- base::is.null
[17:26:30.436]                     muffled <- FALSE
[17:26:30.436]                     if (inherits(cond, "message")) {
[17:26:30.436]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.436]                       if (muffled) 
[17:26:30.436]                         invokeRestart("muffleMessage")
[17:26:30.436]                     }
[17:26:30.436]                     else if (inherits(cond, "warning")) {
[17:26:30.436]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.436]                       if (muffled) 
[17:26:30.436]                         invokeRestart("muffleWarning")
[17:26:30.436]                     }
[17:26:30.436]                     else if (inherits(cond, "condition")) {
[17:26:30.436]                       if (!is.null(pattern)) {
[17:26:30.436]                         computeRestarts <- base::computeRestarts
[17:26:30.436]                         grepl <- base::grepl
[17:26:30.436]                         restarts <- computeRestarts(cond)
[17:26:30.436]                         for (restart in restarts) {
[17:26:30.436]                           name <- restart$name
[17:26:30.436]                           if (is.null(name)) 
[17:26:30.436]                             next
[17:26:30.436]                           if (!grepl(pattern, name)) 
[17:26:30.436]                             next
[17:26:30.436]                           invokeRestart(restart)
[17:26:30.436]                           muffled <- TRUE
[17:26:30.436]                           break
[17:26:30.436]                         }
[17:26:30.436]                       }
[17:26:30.436]                     }
[17:26:30.436]                     invisible(muffled)
[17:26:30.436]                   }
[17:26:30.436]                   muffleCondition(cond)
[17:26:30.436]                 })
[17:26:30.436]             }))
[17:26:30.436]             future::FutureResult(value = ...future.value$value, 
[17:26:30.436]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.436]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.436]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.436]                     ...future.globalenv.names))
[17:26:30.436]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.436]         }, condition = base::local({
[17:26:30.436]             c <- base::c
[17:26:30.436]             inherits <- base::inherits
[17:26:30.436]             invokeRestart <- base::invokeRestart
[17:26:30.436]             length <- base::length
[17:26:30.436]             list <- base::list
[17:26:30.436]             seq.int <- base::seq.int
[17:26:30.436]             signalCondition <- base::signalCondition
[17:26:30.436]             sys.calls <- base::sys.calls
[17:26:30.436]             `[[` <- base::`[[`
[17:26:30.436]             `+` <- base::`+`
[17:26:30.436]             `<<-` <- base::`<<-`
[17:26:30.436]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.436]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.436]                   3L)]
[17:26:30.436]             }
[17:26:30.436]             function(cond) {
[17:26:30.436]                 is_error <- inherits(cond, "error")
[17:26:30.436]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.436]                   NULL)
[17:26:30.436]                 if (is_error) {
[17:26:30.436]                   sessionInformation <- function() {
[17:26:30.436]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.436]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.436]                       search = base::search(), system = base::Sys.info())
[17:26:30.436]                   }
[17:26:30.436]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.436]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.436]                     cond$call), session = sessionInformation(), 
[17:26:30.436]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.436]                   signalCondition(cond)
[17:26:30.436]                 }
[17:26:30.436]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.436]                 "immediateCondition"))) {
[17:26:30.436]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.436]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.436]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.436]                   if (TRUE && !signal) {
[17:26:30.436]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.436]                     {
[17:26:30.436]                       inherits <- base::inherits
[17:26:30.436]                       invokeRestart <- base::invokeRestart
[17:26:30.436]                       is.null <- base::is.null
[17:26:30.436]                       muffled <- FALSE
[17:26:30.436]                       if (inherits(cond, "message")) {
[17:26:30.436]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.436]                         if (muffled) 
[17:26:30.436]                           invokeRestart("muffleMessage")
[17:26:30.436]                       }
[17:26:30.436]                       else if (inherits(cond, "warning")) {
[17:26:30.436]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.436]                         if (muffled) 
[17:26:30.436]                           invokeRestart("muffleWarning")
[17:26:30.436]                       }
[17:26:30.436]                       else if (inherits(cond, "condition")) {
[17:26:30.436]                         if (!is.null(pattern)) {
[17:26:30.436]                           computeRestarts <- base::computeRestarts
[17:26:30.436]                           grepl <- base::grepl
[17:26:30.436]                           restarts <- computeRestarts(cond)
[17:26:30.436]                           for (restart in restarts) {
[17:26:30.436]                             name <- restart$name
[17:26:30.436]                             if (is.null(name)) 
[17:26:30.436]                               next
[17:26:30.436]                             if (!grepl(pattern, name)) 
[17:26:30.436]                               next
[17:26:30.436]                             invokeRestart(restart)
[17:26:30.436]                             muffled <- TRUE
[17:26:30.436]                             break
[17:26:30.436]                           }
[17:26:30.436]                         }
[17:26:30.436]                       }
[17:26:30.436]                       invisible(muffled)
[17:26:30.436]                     }
[17:26:30.436]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.436]                   }
[17:26:30.436]                 }
[17:26:30.436]                 else {
[17:26:30.436]                   if (TRUE) {
[17:26:30.436]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.436]                     {
[17:26:30.436]                       inherits <- base::inherits
[17:26:30.436]                       invokeRestart <- base::invokeRestart
[17:26:30.436]                       is.null <- base::is.null
[17:26:30.436]                       muffled <- FALSE
[17:26:30.436]                       if (inherits(cond, "message")) {
[17:26:30.436]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.436]                         if (muffled) 
[17:26:30.436]                           invokeRestart("muffleMessage")
[17:26:30.436]                       }
[17:26:30.436]                       else if (inherits(cond, "warning")) {
[17:26:30.436]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.436]                         if (muffled) 
[17:26:30.436]                           invokeRestart("muffleWarning")
[17:26:30.436]                       }
[17:26:30.436]                       else if (inherits(cond, "condition")) {
[17:26:30.436]                         if (!is.null(pattern)) {
[17:26:30.436]                           computeRestarts <- base::computeRestarts
[17:26:30.436]                           grepl <- base::grepl
[17:26:30.436]                           restarts <- computeRestarts(cond)
[17:26:30.436]                           for (restart in restarts) {
[17:26:30.436]                             name <- restart$name
[17:26:30.436]                             if (is.null(name)) 
[17:26:30.436]                               next
[17:26:30.436]                             if (!grepl(pattern, name)) 
[17:26:30.436]                               next
[17:26:30.436]                             invokeRestart(restart)
[17:26:30.436]                             muffled <- TRUE
[17:26:30.436]                             break
[17:26:30.436]                           }
[17:26:30.436]                         }
[17:26:30.436]                       }
[17:26:30.436]                       invisible(muffled)
[17:26:30.436]                     }
[17:26:30.436]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.436]                   }
[17:26:30.436]                 }
[17:26:30.436]             }
[17:26:30.436]         }))
[17:26:30.436]     }, error = function(ex) {
[17:26:30.436]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.436]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.436]                 ...future.rng), started = ...future.startTime, 
[17:26:30.436]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.436]             version = "1.8"), class = "FutureResult")
[17:26:30.436]     }, finally = {
[17:26:30.436]         if (!identical(...future.workdir, getwd())) 
[17:26:30.436]             setwd(...future.workdir)
[17:26:30.436]         {
[17:26:30.436]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.436]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.436]             }
[17:26:30.436]             base::options(...future.oldOptions)
[17:26:30.436]             if (.Platform$OS.type == "windows") {
[17:26:30.436]                 old_names <- names(...future.oldEnvVars)
[17:26:30.436]                 envs <- base::Sys.getenv()
[17:26:30.436]                 names <- names(envs)
[17:26:30.436]                 common <- intersect(names, old_names)
[17:26:30.436]                 added <- setdiff(names, old_names)
[17:26:30.436]                 removed <- setdiff(old_names, names)
[17:26:30.436]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.436]                   envs[common]]
[17:26:30.436]                 NAMES <- toupper(changed)
[17:26:30.436]                 args <- list()
[17:26:30.436]                 for (kk in seq_along(NAMES)) {
[17:26:30.436]                   name <- changed[[kk]]
[17:26:30.436]                   NAME <- NAMES[[kk]]
[17:26:30.436]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.436]                     next
[17:26:30.436]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.436]                 }
[17:26:30.436]                 NAMES <- toupper(added)
[17:26:30.436]                 for (kk in seq_along(NAMES)) {
[17:26:30.436]                   name <- added[[kk]]
[17:26:30.436]                   NAME <- NAMES[[kk]]
[17:26:30.436]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.436]                     next
[17:26:30.436]                   args[[name]] <- ""
[17:26:30.436]                 }
[17:26:30.436]                 NAMES <- toupper(removed)
[17:26:30.436]                 for (kk in seq_along(NAMES)) {
[17:26:30.436]                   name <- removed[[kk]]
[17:26:30.436]                   NAME <- NAMES[[kk]]
[17:26:30.436]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.436]                     next
[17:26:30.436]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.436]                 }
[17:26:30.436]                 if (length(args) > 0) 
[17:26:30.436]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.436]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.436]             }
[17:26:30.436]             else {
[17:26:30.436]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.436]             }
[17:26:30.436]             {
[17:26:30.436]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.436]                   0L) {
[17:26:30.436]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.436]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.436]                   base::options(opts)
[17:26:30.436]                 }
[17:26:30.436]                 {
[17:26:30.436]                   {
[17:26:30.436]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.436]                     NULL
[17:26:30.436]                   }
[17:26:30.436]                   options(future.plan = NULL)
[17:26:30.436]                   if (is.na(NA_character_)) 
[17:26:30.436]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.436]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.436]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.436]                     .init = FALSE)
[17:26:30.436]                 }
[17:26:30.436]             }
[17:26:30.436]         }
[17:26:30.436]     })
[17:26:30.436]     if (TRUE) {
[17:26:30.436]         base::sink(type = "output", split = FALSE)
[17:26:30.436]         if (TRUE) {
[17:26:30.436]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.436]         }
[17:26:30.436]         else {
[17:26:30.436]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.436]         }
[17:26:30.436]         base::close(...future.stdout)
[17:26:30.436]         ...future.stdout <- NULL
[17:26:30.436]     }
[17:26:30.436]     ...future.result$conditions <- ...future.conditions
[17:26:30.436]     ...future.result$finished <- base::Sys.time()
[17:26:30.436]     ...future.result
[17:26:30.436] }
[17:26:30.520] MultisessionFuture started
[17:26:30.521] result() for ClusterFuture ...
[17:26:30.521] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.522] - Validating connection of MultisessionFuture
[17:26:30.573] - received message: FutureResult
[17:26:30.573] - Received FutureResult
[17:26:30.577] - Erased future from FutureRegistry
[17:26:30.578] result() for ClusterFuture ...
[17:26:30.578] - result already collected: FutureResult
[17:26:30.578] result() for ClusterFuture ... done
[17:26:30.578] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:30.578] result() for ClusterFuture ... done
[17:26:30.579] result() for ClusterFuture ...
[17:26:30.579] - result already collected: FutureResult
[17:26:30.579] result() for ClusterFuture ... done
[17:26:30.579] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[17:26:30.582] plan(): nbrOfWorkers() = 2
[17:26:30.585] getGlobalsAndPackages() ...
[17:26:30.585] 
[17:26:30.585] - globals: [0] <none>
[17:26:30.585] getGlobalsAndPackages() ... DONE
[17:26:30.598] Packages needed by the future expression (n = 0): <none>
[17:26:30.598] Packages needed by future strategies (n = 0): <none>
[17:26:30.599] {
[17:26:30.599]     {
[17:26:30.599]         {
[17:26:30.599]             ...future.startTime <- base::Sys.time()
[17:26:30.599]             {
[17:26:30.599]                 {
[17:26:30.599]                   {
[17:26:30.599]                     {
[17:26:30.599]                       base::local({
[17:26:30.599]                         has_future <- base::requireNamespace("future", 
[17:26:30.599]                           quietly = TRUE)
[17:26:30.599]                         if (has_future) {
[17:26:30.599]                           ns <- base::getNamespace("future")
[17:26:30.599]                           version <- ns[[".package"]][["version"]]
[17:26:30.599]                           if (is.null(version)) 
[17:26:30.599]                             version <- utils::packageVersion("future")
[17:26:30.599]                         }
[17:26:30.599]                         else {
[17:26:30.599]                           version <- NULL
[17:26:30.599]                         }
[17:26:30.599]                         if (!has_future || version < "1.8.0") {
[17:26:30.599]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.599]                             "", base::R.version$version.string), 
[17:26:30.599]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.599]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.599]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.599]                               "release", "version")], collapse = " "), 
[17:26:30.599]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.599]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.599]                             info)
[17:26:30.599]                           info <- base::paste(info, collapse = "; ")
[17:26:30.599]                           if (!has_future) {
[17:26:30.599]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.599]                               info)
[17:26:30.599]                           }
[17:26:30.599]                           else {
[17:26:30.599]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.599]                               info, version)
[17:26:30.599]                           }
[17:26:30.599]                           base::stop(msg)
[17:26:30.599]                         }
[17:26:30.599]                       })
[17:26:30.599]                     }
[17:26:30.599]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.599]                     base::options(mc.cores = 1L)
[17:26:30.599]                   }
[17:26:30.599]                   ...future.strategy.old <- future::plan("list")
[17:26:30.599]                   options(future.plan = NULL)
[17:26:30.599]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.599]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.599]                 }
[17:26:30.599]                 ...future.workdir <- getwd()
[17:26:30.599]             }
[17:26:30.599]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.599]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.599]         }
[17:26:30.599]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.599]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.599]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.599]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.599]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.599]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.599]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.599]             base::names(...future.oldOptions))
[17:26:30.599]     }
[17:26:30.599]     if (FALSE) {
[17:26:30.599]     }
[17:26:30.599]     else {
[17:26:30.599]         if (TRUE) {
[17:26:30.599]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.599]                 open = "w")
[17:26:30.599]         }
[17:26:30.599]         else {
[17:26:30.599]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.599]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.599]         }
[17:26:30.599]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.599]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.599]             base::sink(type = "output", split = FALSE)
[17:26:30.599]             base::close(...future.stdout)
[17:26:30.599]         }, add = TRUE)
[17:26:30.599]     }
[17:26:30.599]     ...future.frame <- base::sys.nframe()
[17:26:30.599]     ...future.conditions <- base::list()
[17:26:30.599]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.599]     if (FALSE) {
[17:26:30.599]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.599]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.599]     }
[17:26:30.599]     ...future.result <- base::tryCatch({
[17:26:30.599]         base::withCallingHandlers({
[17:26:30.599]             ...future.value <- base::withVisible(base::local({
[17:26:30.599]                 ...future.makeSendCondition <- base::local({
[17:26:30.599]                   sendCondition <- NULL
[17:26:30.599]                   function(frame = 1L) {
[17:26:30.599]                     if (is.function(sendCondition)) 
[17:26:30.599]                       return(sendCondition)
[17:26:30.599]                     ns <- getNamespace("parallel")
[17:26:30.599]                     if (exists("sendData", mode = "function", 
[17:26:30.599]                       envir = ns)) {
[17:26:30.599]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.599]                         envir = ns)
[17:26:30.599]                       envir <- sys.frame(frame)
[17:26:30.599]                       master <- NULL
[17:26:30.599]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.599]                         !identical(envir, emptyenv())) {
[17:26:30.599]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.599]                           inherits = FALSE)) {
[17:26:30.599]                           master <- get("master", mode = "list", 
[17:26:30.599]                             envir = envir, inherits = FALSE)
[17:26:30.599]                           if (inherits(master, c("SOCKnode", 
[17:26:30.599]                             "SOCK0node"))) {
[17:26:30.599]                             sendCondition <<- function(cond) {
[17:26:30.599]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.599]                                 success = TRUE)
[17:26:30.599]                               parallel_sendData(master, data)
[17:26:30.599]                             }
[17:26:30.599]                             return(sendCondition)
[17:26:30.599]                           }
[17:26:30.599]                         }
[17:26:30.599]                         frame <- frame + 1L
[17:26:30.599]                         envir <- sys.frame(frame)
[17:26:30.599]                       }
[17:26:30.599]                     }
[17:26:30.599]                     sendCondition <<- function(cond) NULL
[17:26:30.599]                   }
[17:26:30.599]                 })
[17:26:30.599]                 withCallingHandlers({
[17:26:30.599]                   42
[17:26:30.599]                 }, immediateCondition = function(cond) {
[17:26:30.599]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.599]                   sendCondition(cond)
[17:26:30.599]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.599]                   {
[17:26:30.599]                     inherits <- base::inherits
[17:26:30.599]                     invokeRestart <- base::invokeRestart
[17:26:30.599]                     is.null <- base::is.null
[17:26:30.599]                     muffled <- FALSE
[17:26:30.599]                     if (inherits(cond, "message")) {
[17:26:30.599]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.599]                       if (muffled) 
[17:26:30.599]                         invokeRestart("muffleMessage")
[17:26:30.599]                     }
[17:26:30.599]                     else if (inherits(cond, "warning")) {
[17:26:30.599]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.599]                       if (muffled) 
[17:26:30.599]                         invokeRestart("muffleWarning")
[17:26:30.599]                     }
[17:26:30.599]                     else if (inherits(cond, "condition")) {
[17:26:30.599]                       if (!is.null(pattern)) {
[17:26:30.599]                         computeRestarts <- base::computeRestarts
[17:26:30.599]                         grepl <- base::grepl
[17:26:30.599]                         restarts <- computeRestarts(cond)
[17:26:30.599]                         for (restart in restarts) {
[17:26:30.599]                           name <- restart$name
[17:26:30.599]                           if (is.null(name)) 
[17:26:30.599]                             next
[17:26:30.599]                           if (!grepl(pattern, name)) 
[17:26:30.599]                             next
[17:26:30.599]                           invokeRestart(restart)
[17:26:30.599]                           muffled <- TRUE
[17:26:30.599]                           break
[17:26:30.599]                         }
[17:26:30.599]                       }
[17:26:30.599]                     }
[17:26:30.599]                     invisible(muffled)
[17:26:30.599]                   }
[17:26:30.599]                   muffleCondition(cond)
[17:26:30.599]                 })
[17:26:30.599]             }))
[17:26:30.599]             future::FutureResult(value = ...future.value$value, 
[17:26:30.599]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.599]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.599]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.599]                     ...future.globalenv.names))
[17:26:30.599]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.599]         }, condition = base::local({
[17:26:30.599]             c <- base::c
[17:26:30.599]             inherits <- base::inherits
[17:26:30.599]             invokeRestart <- base::invokeRestart
[17:26:30.599]             length <- base::length
[17:26:30.599]             list <- base::list
[17:26:30.599]             seq.int <- base::seq.int
[17:26:30.599]             signalCondition <- base::signalCondition
[17:26:30.599]             sys.calls <- base::sys.calls
[17:26:30.599]             `[[` <- base::`[[`
[17:26:30.599]             `+` <- base::`+`
[17:26:30.599]             `<<-` <- base::`<<-`
[17:26:30.599]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.599]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.599]                   3L)]
[17:26:30.599]             }
[17:26:30.599]             function(cond) {
[17:26:30.599]                 is_error <- inherits(cond, "error")
[17:26:30.599]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.599]                   NULL)
[17:26:30.599]                 if (is_error) {
[17:26:30.599]                   sessionInformation <- function() {
[17:26:30.599]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.599]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.599]                       search = base::search(), system = base::Sys.info())
[17:26:30.599]                   }
[17:26:30.599]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.599]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.599]                     cond$call), session = sessionInformation(), 
[17:26:30.599]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.599]                   signalCondition(cond)
[17:26:30.599]                 }
[17:26:30.599]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.599]                 "immediateCondition"))) {
[17:26:30.599]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.599]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.599]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.599]                   if (TRUE && !signal) {
[17:26:30.599]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.599]                     {
[17:26:30.599]                       inherits <- base::inherits
[17:26:30.599]                       invokeRestart <- base::invokeRestart
[17:26:30.599]                       is.null <- base::is.null
[17:26:30.599]                       muffled <- FALSE
[17:26:30.599]                       if (inherits(cond, "message")) {
[17:26:30.599]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.599]                         if (muffled) 
[17:26:30.599]                           invokeRestart("muffleMessage")
[17:26:30.599]                       }
[17:26:30.599]                       else if (inherits(cond, "warning")) {
[17:26:30.599]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.599]                         if (muffled) 
[17:26:30.599]                           invokeRestart("muffleWarning")
[17:26:30.599]                       }
[17:26:30.599]                       else if (inherits(cond, "condition")) {
[17:26:30.599]                         if (!is.null(pattern)) {
[17:26:30.599]                           computeRestarts <- base::computeRestarts
[17:26:30.599]                           grepl <- base::grepl
[17:26:30.599]                           restarts <- computeRestarts(cond)
[17:26:30.599]                           for (restart in restarts) {
[17:26:30.599]                             name <- restart$name
[17:26:30.599]                             if (is.null(name)) 
[17:26:30.599]                               next
[17:26:30.599]                             if (!grepl(pattern, name)) 
[17:26:30.599]                               next
[17:26:30.599]                             invokeRestart(restart)
[17:26:30.599]                             muffled <- TRUE
[17:26:30.599]                             break
[17:26:30.599]                           }
[17:26:30.599]                         }
[17:26:30.599]                       }
[17:26:30.599]                       invisible(muffled)
[17:26:30.599]                     }
[17:26:30.599]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.599]                   }
[17:26:30.599]                 }
[17:26:30.599]                 else {
[17:26:30.599]                   if (TRUE) {
[17:26:30.599]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.599]                     {
[17:26:30.599]                       inherits <- base::inherits
[17:26:30.599]                       invokeRestart <- base::invokeRestart
[17:26:30.599]                       is.null <- base::is.null
[17:26:30.599]                       muffled <- FALSE
[17:26:30.599]                       if (inherits(cond, "message")) {
[17:26:30.599]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.599]                         if (muffled) 
[17:26:30.599]                           invokeRestart("muffleMessage")
[17:26:30.599]                       }
[17:26:30.599]                       else if (inherits(cond, "warning")) {
[17:26:30.599]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.599]                         if (muffled) 
[17:26:30.599]                           invokeRestart("muffleWarning")
[17:26:30.599]                       }
[17:26:30.599]                       else if (inherits(cond, "condition")) {
[17:26:30.599]                         if (!is.null(pattern)) {
[17:26:30.599]                           computeRestarts <- base::computeRestarts
[17:26:30.599]                           grepl <- base::grepl
[17:26:30.599]                           restarts <- computeRestarts(cond)
[17:26:30.599]                           for (restart in restarts) {
[17:26:30.599]                             name <- restart$name
[17:26:30.599]                             if (is.null(name)) 
[17:26:30.599]                               next
[17:26:30.599]                             if (!grepl(pattern, name)) 
[17:26:30.599]                               next
[17:26:30.599]                             invokeRestart(restart)
[17:26:30.599]                             muffled <- TRUE
[17:26:30.599]                             break
[17:26:30.599]                           }
[17:26:30.599]                         }
[17:26:30.599]                       }
[17:26:30.599]                       invisible(muffled)
[17:26:30.599]                     }
[17:26:30.599]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.599]                   }
[17:26:30.599]                 }
[17:26:30.599]             }
[17:26:30.599]         }))
[17:26:30.599]     }, error = function(ex) {
[17:26:30.599]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.599]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.599]                 ...future.rng), started = ...future.startTime, 
[17:26:30.599]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.599]             version = "1.8"), class = "FutureResult")
[17:26:30.599]     }, finally = {
[17:26:30.599]         if (!identical(...future.workdir, getwd())) 
[17:26:30.599]             setwd(...future.workdir)
[17:26:30.599]         {
[17:26:30.599]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.599]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.599]             }
[17:26:30.599]             base::options(...future.oldOptions)
[17:26:30.599]             if (.Platform$OS.type == "windows") {
[17:26:30.599]                 old_names <- names(...future.oldEnvVars)
[17:26:30.599]                 envs <- base::Sys.getenv()
[17:26:30.599]                 names <- names(envs)
[17:26:30.599]                 common <- intersect(names, old_names)
[17:26:30.599]                 added <- setdiff(names, old_names)
[17:26:30.599]                 removed <- setdiff(old_names, names)
[17:26:30.599]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.599]                   envs[common]]
[17:26:30.599]                 NAMES <- toupper(changed)
[17:26:30.599]                 args <- list()
[17:26:30.599]                 for (kk in seq_along(NAMES)) {
[17:26:30.599]                   name <- changed[[kk]]
[17:26:30.599]                   NAME <- NAMES[[kk]]
[17:26:30.599]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.599]                     next
[17:26:30.599]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.599]                 }
[17:26:30.599]                 NAMES <- toupper(added)
[17:26:30.599]                 for (kk in seq_along(NAMES)) {
[17:26:30.599]                   name <- added[[kk]]
[17:26:30.599]                   NAME <- NAMES[[kk]]
[17:26:30.599]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.599]                     next
[17:26:30.599]                   args[[name]] <- ""
[17:26:30.599]                 }
[17:26:30.599]                 NAMES <- toupper(removed)
[17:26:30.599]                 for (kk in seq_along(NAMES)) {
[17:26:30.599]                   name <- removed[[kk]]
[17:26:30.599]                   NAME <- NAMES[[kk]]
[17:26:30.599]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.599]                     next
[17:26:30.599]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.599]                 }
[17:26:30.599]                 if (length(args) > 0) 
[17:26:30.599]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.599]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.599]             }
[17:26:30.599]             else {
[17:26:30.599]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.599]             }
[17:26:30.599]             {
[17:26:30.599]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.599]                   0L) {
[17:26:30.599]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.599]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.599]                   base::options(opts)
[17:26:30.599]                 }
[17:26:30.599]                 {
[17:26:30.599]                   {
[17:26:30.599]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.599]                     NULL
[17:26:30.599]                   }
[17:26:30.599]                   options(future.plan = NULL)
[17:26:30.599]                   if (is.na(NA_character_)) 
[17:26:30.599]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.599]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.599]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.599]                     .init = FALSE)
[17:26:30.599]                 }
[17:26:30.599]             }
[17:26:30.599]         }
[17:26:30.599]     })
[17:26:30.599]     if (TRUE) {
[17:26:30.599]         base::sink(type = "output", split = FALSE)
[17:26:30.599]         if (TRUE) {
[17:26:30.599]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.599]         }
[17:26:30.599]         else {
[17:26:30.599]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.599]         }
[17:26:30.599]         base::close(...future.stdout)
[17:26:30.599]         ...future.stdout <- NULL
[17:26:30.599]     }
[17:26:30.599]     ...future.result$conditions <- ...future.conditions
[17:26:30.599]     ...future.result$finished <- base::Sys.time()
[17:26:30.599]     ...future.result
[17:26:30.599] }
[17:26:30.604] MultisessionFuture started
MultisessionFuture:
Label: '<none>'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: TRUE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[17:26:30.619] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.620] - Validating connection of MultisessionFuture
[17:26:30.620] - received message: FutureResult
[17:26:30.620] - Received FutureResult
[17:26:30.620] - Erased future from FutureRegistry
[17:26:30.620] result() for ClusterFuture ...
[17:26:30.621] - result already collected: FutureResult
[17:26:30.621] result() for ClusterFuture ... done
[17:26:30.621] receiveMessageFromWorker() for ClusterFuture ... done
Resolved: TRUE
Value: <not collected>
Conditions captured: <none>
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.621] result() for ClusterFuture ...
[17:26:30.622] - result already collected: FutureResult
[17:26:30.622] result() for ClusterFuture ... done
[17:26:30.622] result() for ClusterFuture ...
[17:26:30.622] - result already collected: FutureResult
[17:26:30.622] result() for ClusterFuture ... done
[17:26:30.623] getGlobalsAndPackages() ...
[17:26:30.623] Searching for globals...
[17:26:30.623] 
[17:26:30.623] Searching for globals ... DONE
[17:26:30.624] - globals: [0] <none>
[17:26:30.624] getGlobalsAndPackages() ... DONE
[17:26:30.624] run() for 'Future' ...
[17:26:30.624] - state: 'created'
[17:26:30.625] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:30.639] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.639] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:30.639]   - Field: 'node'
[17:26:30.640]   - Field: 'label'
[17:26:30.640]   - Field: 'local'
[17:26:30.640]   - Field: 'owner'
[17:26:30.640]   - Field: 'envir'
[17:26:30.640]   - Field: 'workers'
[17:26:30.641]   - Field: 'packages'
[17:26:30.641]   - Field: 'gc'
[17:26:30.641]   - Field: 'conditions'
[17:26:30.641]   - Field: 'persistent'
[17:26:30.642]   - Field: 'expr'
[17:26:30.642]   - Field: 'uuid'
[17:26:30.642]   - Field: 'seed'
[17:26:30.642]   - Field: 'version'
[17:26:30.642]   - Field: 'result'
[17:26:30.643]   - Field: 'asynchronous'
[17:26:30.643]   - Field: 'calls'
[17:26:30.643]   - Field: 'globals'
[17:26:30.643]   - Field: 'stdout'
[17:26:30.643]   - Field: 'earlySignal'
[17:26:30.644]   - Field: 'lazy'
[17:26:30.644]   - Field: 'state'
[17:26:30.644] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:30.644] - Launch lazy future ...
[17:26:30.645] Packages needed by the future expression (n = 0): <none>
[17:26:30.645] Packages needed by future strategies (n = 0): <none>
[17:26:30.645] {
[17:26:30.645]     {
[17:26:30.645]         {
[17:26:30.645]             ...future.startTime <- base::Sys.time()
[17:26:30.645]             {
[17:26:30.645]                 {
[17:26:30.645]                   {
[17:26:30.645]                     {
[17:26:30.645]                       base::local({
[17:26:30.645]                         has_future <- base::requireNamespace("future", 
[17:26:30.645]                           quietly = TRUE)
[17:26:30.645]                         if (has_future) {
[17:26:30.645]                           ns <- base::getNamespace("future")
[17:26:30.645]                           version <- ns[[".package"]][["version"]]
[17:26:30.645]                           if (is.null(version)) 
[17:26:30.645]                             version <- utils::packageVersion("future")
[17:26:30.645]                         }
[17:26:30.645]                         else {
[17:26:30.645]                           version <- NULL
[17:26:30.645]                         }
[17:26:30.645]                         if (!has_future || version < "1.8.0") {
[17:26:30.645]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.645]                             "", base::R.version$version.string), 
[17:26:30.645]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.645]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.645]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.645]                               "release", "version")], collapse = " "), 
[17:26:30.645]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.645]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.645]                             info)
[17:26:30.645]                           info <- base::paste(info, collapse = "; ")
[17:26:30.645]                           if (!has_future) {
[17:26:30.645]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.645]                               info)
[17:26:30.645]                           }
[17:26:30.645]                           else {
[17:26:30.645]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.645]                               info, version)
[17:26:30.645]                           }
[17:26:30.645]                           base::stop(msg)
[17:26:30.645]                         }
[17:26:30.645]                       })
[17:26:30.645]                     }
[17:26:30.645]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.645]                     base::options(mc.cores = 1L)
[17:26:30.645]                   }
[17:26:30.645]                   ...future.strategy.old <- future::plan("list")
[17:26:30.645]                   options(future.plan = NULL)
[17:26:30.645]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.645]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.645]                 }
[17:26:30.645]                 ...future.workdir <- getwd()
[17:26:30.645]             }
[17:26:30.645]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.645]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.645]         }
[17:26:30.645]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.645]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.645]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.645]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.645]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.645]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.645]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.645]             base::names(...future.oldOptions))
[17:26:30.645]     }
[17:26:30.645]     if (FALSE) {
[17:26:30.645]     }
[17:26:30.645]     else {
[17:26:30.645]         if (TRUE) {
[17:26:30.645]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.645]                 open = "w")
[17:26:30.645]         }
[17:26:30.645]         else {
[17:26:30.645]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.645]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.645]         }
[17:26:30.645]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.645]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.645]             base::sink(type = "output", split = FALSE)
[17:26:30.645]             base::close(...future.stdout)
[17:26:30.645]         }, add = TRUE)
[17:26:30.645]     }
[17:26:30.645]     ...future.frame <- base::sys.nframe()
[17:26:30.645]     ...future.conditions <- base::list()
[17:26:30.645]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.645]     if (FALSE) {
[17:26:30.645]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.645]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.645]     }
[17:26:30.645]     ...future.result <- base::tryCatch({
[17:26:30.645]         base::withCallingHandlers({
[17:26:30.645]             ...future.value <- base::withVisible(base::local({
[17:26:30.645]                 ...future.makeSendCondition <- base::local({
[17:26:30.645]                   sendCondition <- NULL
[17:26:30.645]                   function(frame = 1L) {
[17:26:30.645]                     if (is.function(sendCondition)) 
[17:26:30.645]                       return(sendCondition)
[17:26:30.645]                     ns <- getNamespace("parallel")
[17:26:30.645]                     if (exists("sendData", mode = "function", 
[17:26:30.645]                       envir = ns)) {
[17:26:30.645]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.645]                         envir = ns)
[17:26:30.645]                       envir <- sys.frame(frame)
[17:26:30.645]                       master <- NULL
[17:26:30.645]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.645]                         !identical(envir, emptyenv())) {
[17:26:30.645]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.645]                           inherits = FALSE)) {
[17:26:30.645]                           master <- get("master", mode = "list", 
[17:26:30.645]                             envir = envir, inherits = FALSE)
[17:26:30.645]                           if (inherits(master, c("SOCKnode", 
[17:26:30.645]                             "SOCK0node"))) {
[17:26:30.645]                             sendCondition <<- function(cond) {
[17:26:30.645]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.645]                                 success = TRUE)
[17:26:30.645]                               parallel_sendData(master, data)
[17:26:30.645]                             }
[17:26:30.645]                             return(sendCondition)
[17:26:30.645]                           }
[17:26:30.645]                         }
[17:26:30.645]                         frame <- frame + 1L
[17:26:30.645]                         envir <- sys.frame(frame)
[17:26:30.645]                       }
[17:26:30.645]                     }
[17:26:30.645]                     sendCondition <<- function(cond) NULL
[17:26:30.645]                   }
[17:26:30.645]                 })
[17:26:30.645]                 withCallingHandlers({
[17:26:30.645]                   42
[17:26:30.645]                 }, immediateCondition = function(cond) {
[17:26:30.645]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.645]                   sendCondition(cond)
[17:26:30.645]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.645]                   {
[17:26:30.645]                     inherits <- base::inherits
[17:26:30.645]                     invokeRestart <- base::invokeRestart
[17:26:30.645]                     is.null <- base::is.null
[17:26:30.645]                     muffled <- FALSE
[17:26:30.645]                     if (inherits(cond, "message")) {
[17:26:30.645]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.645]                       if (muffled) 
[17:26:30.645]                         invokeRestart("muffleMessage")
[17:26:30.645]                     }
[17:26:30.645]                     else if (inherits(cond, "warning")) {
[17:26:30.645]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.645]                       if (muffled) 
[17:26:30.645]                         invokeRestart("muffleWarning")
[17:26:30.645]                     }
[17:26:30.645]                     else if (inherits(cond, "condition")) {
[17:26:30.645]                       if (!is.null(pattern)) {
[17:26:30.645]                         computeRestarts <- base::computeRestarts
[17:26:30.645]                         grepl <- base::grepl
[17:26:30.645]                         restarts <- computeRestarts(cond)
[17:26:30.645]                         for (restart in restarts) {
[17:26:30.645]                           name <- restart$name
[17:26:30.645]                           if (is.null(name)) 
[17:26:30.645]                             next
[17:26:30.645]                           if (!grepl(pattern, name)) 
[17:26:30.645]                             next
[17:26:30.645]                           invokeRestart(restart)
[17:26:30.645]                           muffled <- TRUE
[17:26:30.645]                           break
[17:26:30.645]                         }
[17:26:30.645]                       }
[17:26:30.645]                     }
[17:26:30.645]                     invisible(muffled)
[17:26:30.645]                   }
[17:26:30.645]                   muffleCondition(cond)
[17:26:30.645]                 })
[17:26:30.645]             }))
[17:26:30.645]             future::FutureResult(value = ...future.value$value, 
[17:26:30.645]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.645]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.645]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.645]                     ...future.globalenv.names))
[17:26:30.645]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.645]         }, condition = base::local({
[17:26:30.645]             c <- base::c
[17:26:30.645]             inherits <- base::inherits
[17:26:30.645]             invokeRestart <- base::invokeRestart
[17:26:30.645]             length <- base::length
[17:26:30.645]             list <- base::list
[17:26:30.645]             seq.int <- base::seq.int
[17:26:30.645]             signalCondition <- base::signalCondition
[17:26:30.645]             sys.calls <- base::sys.calls
[17:26:30.645]             `[[` <- base::`[[`
[17:26:30.645]             `+` <- base::`+`
[17:26:30.645]             `<<-` <- base::`<<-`
[17:26:30.645]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.645]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.645]                   3L)]
[17:26:30.645]             }
[17:26:30.645]             function(cond) {
[17:26:30.645]                 is_error <- inherits(cond, "error")
[17:26:30.645]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.645]                   NULL)
[17:26:30.645]                 if (is_error) {
[17:26:30.645]                   sessionInformation <- function() {
[17:26:30.645]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.645]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.645]                       search = base::search(), system = base::Sys.info())
[17:26:30.645]                   }
[17:26:30.645]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.645]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.645]                     cond$call), session = sessionInformation(), 
[17:26:30.645]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.645]                   signalCondition(cond)
[17:26:30.645]                 }
[17:26:30.645]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.645]                 "immediateCondition"))) {
[17:26:30.645]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.645]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.645]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.645]                   if (TRUE && !signal) {
[17:26:30.645]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.645]                     {
[17:26:30.645]                       inherits <- base::inherits
[17:26:30.645]                       invokeRestart <- base::invokeRestart
[17:26:30.645]                       is.null <- base::is.null
[17:26:30.645]                       muffled <- FALSE
[17:26:30.645]                       if (inherits(cond, "message")) {
[17:26:30.645]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.645]                         if (muffled) 
[17:26:30.645]                           invokeRestart("muffleMessage")
[17:26:30.645]                       }
[17:26:30.645]                       else if (inherits(cond, "warning")) {
[17:26:30.645]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.645]                         if (muffled) 
[17:26:30.645]                           invokeRestart("muffleWarning")
[17:26:30.645]                       }
[17:26:30.645]                       else if (inherits(cond, "condition")) {
[17:26:30.645]                         if (!is.null(pattern)) {
[17:26:30.645]                           computeRestarts <- base::computeRestarts
[17:26:30.645]                           grepl <- base::grepl
[17:26:30.645]                           restarts <- computeRestarts(cond)
[17:26:30.645]                           for (restart in restarts) {
[17:26:30.645]                             name <- restart$name
[17:26:30.645]                             if (is.null(name)) 
[17:26:30.645]                               next
[17:26:30.645]                             if (!grepl(pattern, name)) 
[17:26:30.645]                               next
[17:26:30.645]                             invokeRestart(restart)
[17:26:30.645]                             muffled <- TRUE
[17:26:30.645]                             break
[17:26:30.645]                           }
[17:26:30.645]                         }
[17:26:30.645]                       }
[17:26:30.645]                       invisible(muffled)
[17:26:30.645]                     }
[17:26:30.645]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.645]                   }
[17:26:30.645]                 }
[17:26:30.645]                 else {
[17:26:30.645]                   if (TRUE) {
[17:26:30.645]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.645]                     {
[17:26:30.645]                       inherits <- base::inherits
[17:26:30.645]                       invokeRestart <- base::invokeRestart
[17:26:30.645]                       is.null <- base::is.null
[17:26:30.645]                       muffled <- FALSE
[17:26:30.645]                       if (inherits(cond, "message")) {
[17:26:30.645]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.645]                         if (muffled) 
[17:26:30.645]                           invokeRestart("muffleMessage")
[17:26:30.645]                       }
[17:26:30.645]                       else if (inherits(cond, "warning")) {
[17:26:30.645]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.645]                         if (muffled) 
[17:26:30.645]                           invokeRestart("muffleWarning")
[17:26:30.645]                       }
[17:26:30.645]                       else if (inherits(cond, "condition")) {
[17:26:30.645]                         if (!is.null(pattern)) {
[17:26:30.645]                           computeRestarts <- base::computeRestarts
[17:26:30.645]                           grepl <- base::grepl
[17:26:30.645]                           restarts <- computeRestarts(cond)
[17:26:30.645]                           for (restart in restarts) {
[17:26:30.645]                             name <- restart$name
[17:26:30.645]                             if (is.null(name)) 
[17:26:30.645]                               next
[17:26:30.645]                             if (!grepl(pattern, name)) 
[17:26:30.645]                               next
[17:26:30.645]                             invokeRestart(restart)
[17:26:30.645]                             muffled <- TRUE
[17:26:30.645]                             break
[17:26:30.645]                           }
[17:26:30.645]                         }
[17:26:30.645]                       }
[17:26:30.645]                       invisible(muffled)
[17:26:30.645]                     }
[17:26:30.645]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.645]                   }
[17:26:30.645]                 }
[17:26:30.645]             }
[17:26:30.645]         }))
[17:26:30.645]     }, error = function(ex) {
[17:26:30.645]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.645]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.645]                 ...future.rng), started = ...future.startTime, 
[17:26:30.645]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.645]             version = "1.8"), class = "FutureResult")
[17:26:30.645]     }, finally = {
[17:26:30.645]         if (!identical(...future.workdir, getwd())) 
[17:26:30.645]             setwd(...future.workdir)
[17:26:30.645]         {
[17:26:30.645]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.645]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.645]             }
[17:26:30.645]             base::options(...future.oldOptions)
[17:26:30.645]             if (.Platform$OS.type == "windows") {
[17:26:30.645]                 old_names <- names(...future.oldEnvVars)
[17:26:30.645]                 envs <- base::Sys.getenv()
[17:26:30.645]                 names <- names(envs)
[17:26:30.645]                 common <- intersect(names, old_names)
[17:26:30.645]                 added <- setdiff(names, old_names)
[17:26:30.645]                 removed <- setdiff(old_names, names)
[17:26:30.645]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.645]                   envs[common]]
[17:26:30.645]                 NAMES <- toupper(changed)
[17:26:30.645]                 args <- list()
[17:26:30.645]                 for (kk in seq_along(NAMES)) {
[17:26:30.645]                   name <- changed[[kk]]
[17:26:30.645]                   NAME <- NAMES[[kk]]
[17:26:30.645]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.645]                     next
[17:26:30.645]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.645]                 }
[17:26:30.645]                 NAMES <- toupper(added)
[17:26:30.645]                 for (kk in seq_along(NAMES)) {
[17:26:30.645]                   name <- added[[kk]]
[17:26:30.645]                   NAME <- NAMES[[kk]]
[17:26:30.645]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.645]                     next
[17:26:30.645]                   args[[name]] <- ""
[17:26:30.645]                 }
[17:26:30.645]                 NAMES <- toupper(removed)
[17:26:30.645]                 for (kk in seq_along(NAMES)) {
[17:26:30.645]                   name <- removed[[kk]]
[17:26:30.645]                   NAME <- NAMES[[kk]]
[17:26:30.645]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.645]                     next
[17:26:30.645]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.645]                 }
[17:26:30.645]                 if (length(args) > 0) 
[17:26:30.645]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.645]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.645]             }
[17:26:30.645]             else {
[17:26:30.645]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.645]             }
[17:26:30.645]             {
[17:26:30.645]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.645]                   0L) {
[17:26:30.645]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.645]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.645]                   base::options(opts)
[17:26:30.645]                 }
[17:26:30.645]                 {
[17:26:30.645]                   {
[17:26:30.645]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.645]                     NULL
[17:26:30.645]                   }
[17:26:30.645]                   options(future.plan = NULL)
[17:26:30.645]                   if (is.na(NA_character_)) 
[17:26:30.645]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.645]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.645]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.645]                     .init = FALSE)
[17:26:30.645]                 }
[17:26:30.645]             }
[17:26:30.645]         }
[17:26:30.645]     })
[17:26:30.645]     if (TRUE) {
[17:26:30.645]         base::sink(type = "output", split = FALSE)
[17:26:30.645]         if (TRUE) {
[17:26:30.645]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.645]         }
[17:26:30.645]         else {
[17:26:30.645]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.645]         }
[17:26:30.645]         base::close(...future.stdout)
[17:26:30.645]         ...future.stdout <- NULL
[17:26:30.645]     }
[17:26:30.645]     ...future.result$conditions <- ...future.conditions
[17:26:30.645]     ...future.result$finished <- base::Sys.time()
[17:26:30.645]     ...future.result
[17:26:30.645] }
[17:26:30.651] MultisessionFuture started
[17:26:30.651] - Launch lazy future ... done
[17:26:30.652] run() for 'MultisessionFuture' ... done
MultisessionFuture:
Label: '<none>'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: TRUE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[17:26:30.665] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.665] - Validating connection of MultisessionFuture
[17:26:30.665] - received message: FutureResult
[17:26:30.666] - Received FutureResult
[17:26:30.666] - Erased future from FutureRegistry
[17:26:30.666] result() for ClusterFuture ...
[17:26:30.666] - result already collected: FutureResult
[17:26:30.666] result() for ClusterFuture ... done
[17:26:30.667] receiveMessageFromWorker() for ClusterFuture ... done
Resolved: TRUE
Value: <not collected>
Conditions captured: <none>
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.667] result() for ClusterFuture ...
[17:26:30.667] - result already collected: FutureResult
[17:26:30.667] result() for ClusterFuture ... done
[17:26:30.668] result() for ClusterFuture ...
[17:26:30.668] - result already collected: FutureResult
[17:26:30.668] result() for ClusterFuture ... done
[17:26:30.668] getGlobalsAndPackages() ...
[17:26:30.669] Searching for globals...
[17:26:30.670] - globals found: [1] '{'
[17:26:30.670] Searching for globals ... DONE
[17:26:30.670] Resolving globals: FALSE
[17:26:30.670] 
[17:26:30.671] 
[17:26:30.671] getGlobalsAndPackages() ... DONE
[17:26:30.671] run() for 'Future' ...
[17:26:30.671] - state: 'created'
[17:26:30.672] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:30.686] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.687] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:30.687]   - Field: 'node'
[17:26:30.687]   - Field: 'label'
[17:26:30.687]   - Field: 'local'
[17:26:30.687]   - Field: 'owner'
[17:26:30.688]   - Field: 'envir'
[17:26:30.688]   - Field: 'workers'
[17:26:30.688]   - Field: 'packages'
[17:26:30.688]   - Field: 'gc'
[17:26:30.688]   - Field: 'conditions'
[17:26:30.689]   - Field: 'persistent'
[17:26:30.689]   - Field: 'expr'
[17:26:30.689]   - Field: 'uuid'
[17:26:30.689]   - Field: 'seed'
[17:26:30.689]   - Field: 'version'
[17:26:30.690]   - Field: 'result'
[17:26:30.690]   - Field: 'asynchronous'
[17:26:30.690]   - Field: 'calls'
[17:26:30.690]   - Field: 'globals'
[17:26:30.690]   - Field: 'stdout'
[17:26:30.691]   - Field: 'earlySignal'
[17:26:30.691]   - Field: 'lazy'
[17:26:30.691]   - Field: 'state'
[17:26:30.691] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:30.691] - Launch lazy future ...
[17:26:30.692] Packages needed by the future expression (n = 0): <none>
[17:26:30.692] Packages needed by future strategies (n = 0): <none>
[17:26:30.693] {
[17:26:30.693]     {
[17:26:30.693]         {
[17:26:30.693]             ...future.startTime <- base::Sys.time()
[17:26:30.693]             {
[17:26:30.693]                 {
[17:26:30.693]                   {
[17:26:30.693]                     {
[17:26:30.693]                       base::local({
[17:26:30.693]                         has_future <- base::requireNamespace("future", 
[17:26:30.693]                           quietly = TRUE)
[17:26:30.693]                         if (has_future) {
[17:26:30.693]                           ns <- base::getNamespace("future")
[17:26:30.693]                           version <- ns[[".package"]][["version"]]
[17:26:30.693]                           if (is.null(version)) 
[17:26:30.693]                             version <- utils::packageVersion("future")
[17:26:30.693]                         }
[17:26:30.693]                         else {
[17:26:30.693]                           version <- NULL
[17:26:30.693]                         }
[17:26:30.693]                         if (!has_future || version < "1.8.0") {
[17:26:30.693]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.693]                             "", base::R.version$version.string), 
[17:26:30.693]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.693]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.693]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.693]                               "release", "version")], collapse = " "), 
[17:26:30.693]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.693]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.693]                             info)
[17:26:30.693]                           info <- base::paste(info, collapse = "; ")
[17:26:30.693]                           if (!has_future) {
[17:26:30.693]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.693]                               info)
[17:26:30.693]                           }
[17:26:30.693]                           else {
[17:26:30.693]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.693]                               info, version)
[17:26:30.693]                           }
[17:26:30.693]                           base::stop(msg)
[17:26:30.693]                         }
[17:26:30.693]                       })
[17:26:30.693]                     }
[17:26:30.693]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.693]                     base::options(mc.cores = 1L)
[17:26:30.693]                   }
[17:26:30.693]                   ...future.strategy.old <- future::plan("list")
[17:26:30.693]                   options(future.plan = NULL)
[17:26:30.693]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.693]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.693]                 }
[17:26:30.693]                 ...future.workdir <- getwd()
[17:26:30.693]             }
[17:26:30.693]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.693]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.693]         }
[17:26:30.693]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.693]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.693]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.693]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.693]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.693]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.693]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.693]             base::names(...future.oldOptions))
[17:26:30.693]     }
[17:26:30.693]     if (FALSE) {
[17:26:30.693]     }
[17:26:30.693]     else {
[17:26:30.693]         if (TRUE) {
[17:26:30.693]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.693]                 open = "w")
[17:26:30.693]         }
[17:26:30.693]         else {
[17:26:30.693]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.693]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.693]         }
[17:26:30.693]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.693]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.693]             base::sink(type = "output", split = FALSE)
[17:26:30.693]             base::close(...future.stdout)
[17:26:30.693]         }, add = TRUE)
[17:26:30.693]     }
[17:26:30.693]     ...future.frame <- base::sys.nframe()
[17:26:30.693]     ...future.conditions <- base::list()
[17:26:30.693]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.693]     if (FALSE) {
[17:26:30.693]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.693]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.693]     }
[17:26:30.693]     ...future.result <- base::tryCatch({
[17:26:30.693]         base::withCallingHandlers({
[17:26:30.693]             ...future.value <- base::withVisible(base::local({
[17:26:30.693]                 ...future.makeSendCondition <- base::local({
[17:26:30.693]                   sendCondition <- NULL
[17:26:30.693]                   function(frame = 1L) {
[17:26:30.693]                     if (is.function(sendCondition)) 
[17:26:30.693]                       return(sendCondition)
[17:26:30.693]                     ns <- getNamespace("parallel")
[17:26:30.693]                     if (exists("sendData", mode = "function", 
[17:26:30.693]                       envir = ns)) {
[17:26:30.693]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.693]                         envir = ns)
[17:26:30.693]                       envir <- sys.frame(frame)
[17:26:30.693]                       master <- NULL
[17:26:30.693]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.693]                         !identical(envir, emptyenv())) {
[17:26:30.693]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.693]                           inherits = FALSE)) {
[17:26:30.693]                           master <- get("master", mode = "list", 
[17:26:30.693]                             envir = envir, inherits = FALSE)
[17:26:30.693]                           if (inherits(master, c("SOCKnode", 
[17:26:30.693]                             "SOCK0node"))) {
[17:26:30.693]                             sendCondition <<- function(cond) {
[17:26:30.693]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.693]                                 success = TRUE)
[17:26:30.693]                               parallel_sendData(master, data)
[17:26:30.693]                             }
[17:26:30.693]                             return(sendCondition)
[17:26:30.693]                           }
[17:26:30.693]                         }
[17:26:30.693]                         frame <- frame + 1L
[17:26:30.693]                         envir <- sys.frame(frame)
[17:26:30.693]                       }
[17:26:30.693]                     }
[17:26:30.693]                     sendCondition <<- function(cond) NULL
[17:26:30.693]                   }
[17:26:30.693]                 })
[17:26:30.693]                 withCallingHandlers({
[17:26:30.693]                   {
[17:26:30.693]                     42
[17:26:30.693]                   }
[17:26:30.693]                 }, immediateCondition = function(cond) {
[17:26:30.693]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.693]                   sendCondition(cond)
[17:26:30.693]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.693]                   {
[17:26:30.693]                     inherits <- base::inherits
[17:26:30.693]                     invokeRestart <- base::invokeRestart
[17:26:30.693]                     is.null <- base::is.null
[17:26:30.693]                     muffled <- FALSE
[17:26:30.693]                     if (inherits(cond, "message")) {
[17:26:30.693]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.693]                       if (muffled) 
[17:26:30.693]                         invokeRestart("muffleMessage")
[17:26:30.693]                     }
[17:26:30.693]                     else if (inherits(cond, "warning")) {
[17:26:30.693]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.693]                       if (muffled) 
[17:26:30.693]                         invokeRestart("muffleWarning")
[17:26:30.693]                     }
[17:26:30.693]                     else if (inherits(cond, "condition")) {
[17:26:30.693]                       if (!is.null(pattern)) {
[17:26:30.693]                         computeRestarts <- base::computeRestarts
[17:26:30.693]                         grepl <- base::grepl
[17:26:30.693]                         restarts <- computeRestarts(cond)
[17:26:30.693]                         for (restart in restarts) {
[17:26:30.693]                           name <- restart$name
[17:26:30.693]                           if (is.null(name)) 
[17:26:30.693]                             next
[17:26:30.693]                           if (!grepl(pattern, name)) 
[17:26:30.693]                             next
[17:26:30.693]                           invokeRestart(restart)
[17:26:30.693]                           muffled <- TRUE
[17:26:30.693]                           break
[17:26:30.693]                         }
[17:26:30.693]                       }
[17:26:30.693]                     }
[17:26:30.693]                     invisible(muffled)
[17:26:30.693]                   }
[17:26:30.693]                   muffleCondition(cond)
[17:26:30.693]                 })
[17:26:30.693]             }))
[17:26:30.693]             future::FutureResult(value = ...future.value$value, 
[17:26:30.693]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.693]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.693]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.693]                     ...future.globalenv.names))
[17:26:30.693]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.693]         }, condition = base::local({
[17:26:30.693]             c <- base::c
[17:26:30.693]             inherits <- base::inherits
[17:26:30.693]             invokeRestart <- base::invokeRestart
[17:26:30.693]             length <- base::length
[17:26:30.693]             list <- base::list
[17:26:30.693]             seq.int <- base::seq.int
[17:26:30.693]             signalCondition <- base::signalCondition
[17:26:30.693]             sys.calls <- base::sys.calls
[17:26:30.693]             `[[` <- base::`[[`
[17:26:30.693]             `+` <- base::`+`
[17:26:30.693]             `<<-` <- base::`<<-`
[17:26:30.693]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.693]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.693]                   3L)]
[17:26:30.693]             }
[17:26:30.693]             function(cond) {
[17:26:30.693]                 is_error <- inherits(cond, "error")
[17:26:30.693]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.693]                   NULL)
[17:26:30.693]                 if (is_error) {
[17:26:30.693]                   sessionInformation <- function() {
[17:26:30.693]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.693]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.693]                       search = base::search(), system = base::Sys.info())
[17:26:30.693]                   }
[17:26:30.693]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.693]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.693]                     cond$call), session = sessionInformation(), 
[17:26:30.693]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.693]                   signalCondition(cond)
[17:26:30.693]                 }
[17:26:30.693]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.693]                 "immediateCondition"))) {
[17:26:30.693]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.693]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.693]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.693]                   if (TRUE && !signal) {
[17:26:30.693]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.693]                     {
[17:26:30.693]                       inherits <- base::inherits
[17:26:30.693]                       invokeRestart <- base::invokeRestart
[17:26:30.693]                       is.null <- base::is.null
[17:26:30.693]                       muffled <- FALSE
[17:26:30.693]                       if (inherits(cond, "message")) {
[17:26:30.693]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.693]                         if (muffled) 
[17:26:30.693]                           invokeRestart("muffleMessage")
[17:26:30.693]                       }
[17:26:30.693]                       else if (inherits(cond, "warning")) {
[17:26:30.693]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.693]                         if (muffled) 
[17:26:30.693]                           invokeRestart("muffleWarning")
[17:26:30.693]                       }
[17:26:30.693]                       else if (inherits(cond, "condition")) {
[17:26:30.693]                         if (!is.null(pattern)) {
[17:26:30.693]                           computeRestarts <- base::computeRestarts
[17:26:30.693]                           grepl <- base::grepl
[17:26:30.693]                           restarts <- computeRestarts(cond)
[17:26:30.693]                           for (restart in restarts) {
[17:26:30.693]                             name <- restart$name
[17:26:30.693]                             if (is.null(name)) 
[17:26:30.693]                               next
[17:26:30.693]                             if (!grepl(pattern, name)) 
[17:26:30.693]                               next
[17:26:30.693]                             invokeRestart(restart)
[17:26:30.693]                             muffled <- TRUE
[17:26:30.693]                             break
[17:26:30.693]                           }
[17:26:30.693]                         }
[17:26:30.693]                       }
[17:26:30.693]                       invisible(muffled)
[17:26:30.693]                     }
[17:26:30.693]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.693]                   }
[17:26:30.693]                 }
[17:26:30.693]                 else {
[17:26:30.693]                   if (TRUE) {
[17:26:30.693]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.693]                     {
[17:26:30.693]                       inherits <- base::inherits
[17:26:30.693]                       invokeRestart <- base::invokeRestart
[17:26:30.693]                       is.null <- base::is.null
[17:26:30.693]                       muffled <- FALSE
[17:26:30.693]                       if (inherits(cond, "message")) {
[17:26:30.693]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.693]                         if (muffled) 
[17:26:30.693]                           invokeRestart("muffleMessage")
[17:26:30.693]                       }
[17:26:30.693]                       else if (inherits(cond, "warning")) {
[17:26:30.693]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.693]                         if (muffled) 
[17:26:30.693]                           invokeRestart("muffleWarning")
[17:26:30.693]                       }
[17:26:30.693]                       else if (inherits(cond, "condition")) {
[17:26:30.693]                         if (!is.null(pattern)) {
[17:26:30.693]                           computeRestarts <- base::computeRestarts
[17:26:30.693]                           grepl <- base::grepl
[17:26:30.693]                           restarts <- computeRestarts(cond)
[17:26:30.693]                           for (restart in restarts) {
[17:26:30.693]                             name <- restart$name
[17:26:30.693]                             if (is.null(name)) 
[17:26:30.693]                               next
[17:26:30.693]                             if (!grepl(pattern, name)) 
[17:26:30.693]                               next
[17:26:30.693]                             invokeRestart(restart)
[17:26:30.693]                             muffled <- TRUE
[17:26:30.693]                             break
[17:26:30.693]                           }
[17:26:30.693]                         }
[17:26:30.693]                       }
[17:26:30.693]                       invisible(muffled)
[17:26:30.693]                     }
[17:26:30.693]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.693]                   }
[17:26:30.693]                 }
[17:26:30.693]             }
[17:26:30.693]         }))
[17:26:30.693]     }, error = function(ex) {
[17:26:30.693]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.693]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.693]                 ...future.rng), started = ...future.startTime, 
[17:26:30.693]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.693]             version = "1.8"), class = "FutureResult")
[17:26:30.693]     }, finally = {
[17:26:30.693]         if (!identical(...future.workdir, getwd())) 
[17:26:30.693]             setwd(...future.workdir)
[17:26:30.693]         {
[17:26:30.693]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.693]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.693]             }
[17:26:30.693]             base::options(...future.oldOptions)
[17:26:30.693]             if (.Platform$OS.type == "windows") {
[17:26:30.693]                 old_names <- names(...future.oldEnvVars)
[17:26:30.693]                 envs <- base::Sys.getenv()
[17:26:30.693]                 names <- names(envs)
[17:26:30.693]                 common <- intersect(names, old_names)
[17:26:30.693]                 added <- setdiff(names, old_names)
[17:26:30.693]                 removed <- setdiff(old_names, names)
[17:26:30.693]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.693]                   envs[common]]
[17:26:30.693]                 NAMES <- toupper(changed)
[17:26:30.693]                 args <- list()
[17:26:30.693]                 for (kk in seq_along(NAMES)) {
[17:26:30.693]                   name <- changed[[kk]]
[17:26:30.693]                   NAME <- NAMES[[kk]]
[17:26:30.693]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.693]                     next
[17:26:30.693]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.693]                 }
[17:26:30.693]                 NAMES <- toupper(added)
[17:26:30.693]                 for (kk in seq_along(NAMES)) {
[17:26:30.693]                   name <- added[[kk]]
[17:26:30.693]                   NAME <- NAMES[[kk]]
[17:26:30.693]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.693]                     next
[17:26:30.693]                   args[[name]] <- ""
[17:26:30.693]                 }
[17:26:30.693]                 NAMES <- toupper(removed)
[17:26:30.693]                 for (kk in seq_along(NAMES)) {
[17:26:30.693]                   name <- removed[[kk]]
[17:26:30.693]                   NAME <- NAMES[[kk]]
[17:26:30.693]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.693]                     next
[17:26:30.693]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.693]                 }
[17:26:30.693]                 if (length(args) > 0) 
[17:26:30.693]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.693]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.693]             }
[17:26:30.693]             else {
[17:26:30.693]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.693]             }
[17:26:30.693]             {
[17:26:30.693]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.693]                   0L) {
[17:26:30.693]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.693]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.693]                   base::options(opts)
[17:26:30.693]                 }
[17:26:30.693]                 {
[17:26:30.693]                   {
[17:26:30.693]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.693]                     NULL
[17:26:30.693]                   }
[17:26:30.693]                   options(future.plan = NULL)
[17:26:30.693]                   if (is.na(NA_character_)) 
[17:26:30.693]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.693]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.693]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.693]                     .init = FALSE)
[17:26:30.693]                 }
[17:26:30.693]             }
[17:26:30.693]         }
[17:26:30.693]     })
[17:26:30.693]     if (TRUE) {
[17:26:30.693]         base::sink(type = "output", split = FALSE)
[17:26:30.693]         if (TRUE) {
[17:26:30.693]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.693]         }
[17:26:30.693]         else {
[17:26:30.693]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.693]         }
[17:26:30.693]         base::close(...future.stdout)
[17:26:30.693]         ...future.stdout <- NULL
[17:26:30.693]     }
[17:26:30.693]     ...future.result$conditions <- ...future.conditions
[17:26:30.693]     ...future.result$finished <- base::Sys.time()
[17:26:30.693]     ...future.result
[17:26:30.693] }
[17:26:30.698] MultisessionFuture started
[17:26:30.699] - Launch lazy future ... done
[17:26:30.699] run() for 'MultisessionFuture' ... done
MultisessionFuture:
Label: '<none>'
Expression:
{
    42
}
Lazy evaluation: FALSE
Asynchronous evaluation: TRUE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[17:26:30.714] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.714] - Validating connection of MultisessionFuture
[17:26:30.714] - received message: FutureResult
[17:26:30.714] - Received FutureResult
[17:26:30.715] - Erased future from FutureRegistry
[17:26:30.715] result() for ClusterFuture ...
[17:26:30.715] - result already collected: FutureResult
[17:26:30.715] result() for ClusterFuture ... done
[17:26:30.715] receiveMessageFromWorker() for ClusterFuture ... done
Resolved: TRUE
Value: <not collected>
Conditions captured: <none>
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.716] result() for ClusterFuture ...
[17:26:30.716] - result already collected: FutureResult
[17:26:30.716] result() for ClusterFuture ... done
[17:26:30.716] result() for ClusterFuture ...
[17:26:30.717] - result already collected: FutureResult
[17:26:30.717] result() for ClusterFuture ... done
[17:26:30.719] getGlobalsAndPackages() ...
[17:26:30.720] 
[17:26:30.720] - globals: [0] <none>
[17:26:30.720] getGlobalsAndPackages() ... DONE
[17:26:30.735] Packages needed by the future expression (n = 0): <none>
[17:26:30.736] Packages needed by future strategies (n = 0): <none>
[17:26:30.736] {
[17:26:30.736]     {
[17:26:30.736]         {
[17:26:30.736]             ...future.startTime <- base::Sys.time()
[17:26:30.736]             {
[17:26:30.736]                 {
[17:26:30.736]                   {
[17:26:30.736]                     {
[17:26:30.736]                       base::local({
[17:26:30.736]                         has_future <- base::requireNamespace("future", 
[17:26:30.736]                           quietly = TRUE)
[17:26:30.736]                         if (has_future) {
[17:26:30.736]                           ns <- base::getNamespace("future")
[17:26:30.736]                           version <- ns[[".package"]][["version"]]
[17:26:30.736]                           if (is.null(version)) 
[17:26:30.736]                             version <- utils::packageVersion("future")
[17:26:30.736]                         }
[17:26:30.736]                         else {
[17:26:30.736]                           version <- NULL
[17:26:30.736]                         }
[17:26:30.736]                         if (!has_future || version < "1.8.0") {
[17:26:30.736]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.736]                             "", base::R.version$version.string), 
[17:26:30.736]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.736]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.736]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.736]                               "release", "version")], collapse = " "), 
[17:26:30.736]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.736]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.736]                             info)
[17:26:30.736]                           info <- base::paste(info, collapse = "; ")
[17:26:30.736]                           if (!has_future) {
[17:26:30.736]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.736]                               info)
[17:26:30.736]                           }
[17:26:30.736]                           else {
[17:26:30.736]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.736]                               info, version)
[17:26:30.736]                           }
[17:26:30.736]                           base::stop(msg)
[17:26:30.736]                         }
[17:26:30.736]                       })
[17:26:30.736]                     }
[17:26:30.736]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.736]                     base::options(mc.cores = 1L)
[17:26:30.736]                   }
[17:26:30.736]                   ...future.strategy.old <- future::plan("list")
[17:26:30.736]                   options(future.plan = NULL)
[17:26:30.736]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.736]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.736]                 }
[17:26:30.736]                 ...future.workdir <- getwd()
[17:26:30.736]             }
[17:26:30.736]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.736]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.736]         }
[17:26:30.736]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.736]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.736]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.736]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.736]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.736]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.736]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.736]             base::names(...future.oldOptions))
[17:26:30.736]     }
[17:26:30.736]     if (FALSE) {
[17:26:30.736]     }
[17:26:30.736]     else {
[17:26:30.736]         if (TRUE) {
[17:26:30.736]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.736]                 open = "w")
[17:26:30.736]         }
[17:26:30.736]         else {
[17:26:30.736]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.736]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.736]         }
[17:26:30.736]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.736]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.736]             base::sink(type = "output", split = FALSE)
[17:26:30.736]             base::close(...future.stdout)
[17:26:30.736]         }, add = TRUE)
[17:26:30.736]     }
[17:26:30.736]     ...future.frame <- base::sys.nframe()
[17:26:30.736]     ...future.conditions <- base::list()
[17:26:30.736]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.736]     if (FALSE) {
[17:26:30.736]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.736]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.736]     }
[17:26:30.736]     ...future.result <- base::tryCatch({
[17:26:30.736]         base::withCallingHandlers({
[17:26:30.736]             ...future.value <- base::withVisible(base::local({
[17:26:30.736]                 ...future.makeSendCondition <- base::local({
[17:26:30.736]                   sendCondition <- NULL
[17:26:30.736]                   function(frame = 1L) {
[17:26:30.736]                     if (is.function(sendCondition)) 
[17:26:30.736]                       return(sendCondition)
[17:26:30.736]                     ns <- getNamespace("parallel")
[17:26:30.736]                     if (exists("sendData", mode = "function", 
[17:26:30.736]                       envir = ns)) {
[17:26:30.736]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.736]                         envir = ns)
[17:26:30.736]                       envir <- sys.frame(frame)
[17:26:30.736]                       master <- NULL
[17:26:30.736]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.736]                         !identical(envir, emptyenv())) {
[17:26:30.736]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.736]                           inherits = FALSE)) {
[17:26:30.736]                           master <- get("master", mode = "list", 
[17:26:30.736]                             envir = envir, inherits = FALSE)
[17:26:30.736]                           if (inherits(master, c("SOCKnode", 
[17:26:30.736]                             "SOCK0node"))) {
[17:26:30.736]                             sendCondition <<- function(cond) {
[17:26:30.736]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.736]                                 success = TRUE)
[17:26:30.736]                               parallel_sendData(master, data)
[17:26:30.736]                             }
[17:26:30.736]                             return(sendCondition)
[17:26:30.736]                           }
[17:26:30.736]                         }
[17:26:30.736]                         frame <- frame + 1L
[17:26:30.736]                         envir <- sys.frame(frame)
[17:26:30.736]                       }
[17:26:30.736]                     }
[17:26:30.736]                     sendCondition <<- function(cond) NULL
[17:26:30.736]                   }
[17:26:30.736]                 })
[17:26:30.736]                 withCallingHandlers({
[17:26:30.736]                   42
[17:26:30.736]                 }, immediateCondition = function(cond) {
[17:26:30.736]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.736]                   sendCondition(cond)
[17:26:30.736]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.736]                   {
[17:26:30.736]                     inherits <- base::inherits
[17:26:30.736]                     invokeRestart <- base::invokeRestart
[17:26:30.736]                     is.null <- base::is.null
[17:26:30.736]                     muffled <- FALSE
[17:26:30.736]                     if (inherits(cond, "message")) {
[17:26:30.736]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.736]                       if (muffled) 
[17:26:30.736]                         invokeRestart("muffleMessage")
[17:26:30.736]                     }
[17:26:30.736]                     else if (inherits(cond, "warning")) {
[17:26:30.736]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.736]                       if (muffled) 
[17:26:30.736]                         invokeRestart("muffleWarning")
[17:26:30.736]                     }
[17:26:30.736]                     else if (inherits(cond, "condition")) {
[17:26:30.736]                       if (!is.null(pattern)) {
[17:26:30.736]                         computeRestarts <- base::computeRestarts
[17:26:30.736]                         grepl <- base::grepl
[17:26:30.736]                         restarts <- computeRestarts(cond)
[17:26:30.736]                         for (restart in restarts) {
[17:26:30.736]                           name <- restart$name
[17:26:30.736]                           if (is.null(name)) 
[17:26:30.736]                             next
[17:26:30.736]                           if (!grepl(pattern, name)) 
[17:26:30.736]                             next
[17:26:30.736]                           invokeRestart(restart)
[17:26:30.736]                           muffled <- TRUE
[17:26:30.736]                           break
[17:26:30.736]                         }
[17:26:30.736]                       }
[17:26:30.736]                     }
[17:26:30.736]                     invisible(muffled)
[17:26:30.736]                   }
[17:26:30.736]                   muffleCondition(cond)
[17:26:30.736]                 })
[17:26:30.736]             }))
[17:26:30.736]             future::FutureResult(value = ...future.value$value, 
[17:26:30.736]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.736]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.736]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.736]                     ...future.globalenv.names))
[17:26:30.736]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.736]         }, condition = base::local({
[17:26:30.736]             c <- base::c
[17:26:30.736]             inherits <- base::inherits
[17:26:30.736]             invokeRestart <- base::invokeRestart
[17:26:30.736]             length <- base::length
[17:26:30.736]             list <- base::list
[17:26:30.736]             seq.int <- base::seq.int
[17:26:30.736]             signalCondition <- base::signalCondition
[17:26:30.736]             sys.calls <- base::sys.calls
[17:26:30.736]             `[[` <- base::`[[`
[17:26:30.736]             `+` <- base::`+`
[17:26:30.736]             `<<-` <- base::`<<-`
[17:26:30.736]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.736]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.736]                   3L)]
[17:26:30.736]             }
[17:26:30.736]             function(cond) {
[17:26:30.736]                 is_error <- inherits(cond, "error")
[17:26:30.736]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.736]                   NULL)
[17:26:30.736]                 if (is_error) {
[17:26:30.736]                   sessionInformation <- function() {
[17:26:30.736]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.736]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.736]                       search = base::search(), system = base::Sys.info())
[17:26:30.736]                   }
[17:26:30.736]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.736]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.736]                     cond$call), session = sessionInformation(), 
[17:26:30.736]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.736]                   signalCondition(cond)
[17:26:30.736]                 }
[17:26:30.736]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.736]                 "immediateCondition"))) {
[17:26:30.736]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.736]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.736]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.736]                   if (TRUE && !signal) {
[17:26:30.736]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.736]                     {
[17:26:30.736]                       inherits <- base::inherits
[17:26:30.736]                       invokeRestart <- base::invokeRestart
[17:26:30.736]                       is.null <- base::is.null
[17:26:30.736]                       muffled <- FALSE
[17:26:30.736]                       if (inherits(cond, "message")) {
[17:26:30.736]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.736]                         if (muffled) 
[17:26:30.736]                           invokeRestart("muffleMessage")
[17:26:30.736]                       }
[17:26:30.736]                       else if (inherits(cond, "warning")) {
[17:26:30.736]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.736]                         if (muffled) 
[17:26:30.736]                           invokeRestart("muffleWarning")
[17:26:30.736]                       }
[17:26:30.736]                       else if (inherits(cond, "condition")) {
[17:26:30.736]                         if (!is.null(pattern)) {
[17:26:30.736]                           computeRestarts <- base::computeRestarts
[17:26:30.736]                           grepl <- base::grepl
[17:26:30.736]                           restarts <- computeRestarts(cond)
[17:26:30.736]                           for (restart in restarts) {
[17:26:30.736]                             name <- restart$name
[17:26:30.736]                             if (is.null(name)) 
[17:26:30.736]                               next
[17:26:30.736]                             if (!grepl(pattern, name)) 
[17:26:30.736]                               next
[17:26:30.736]                             invokeRestart(restart)
[17:26:30.736]                             muffled <- TRUE
[17:26:30.736]                             break
[17:26:30.736]                           }
[17:26:30.736]                         }
[17:26:30.736]                       }
[17:26:30.736]                       invisible(muffled)
[17:26:30.736]                     }
[17:26:30.736]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.736]                   }
[17:26:30.736]                 }
[17:26:30.736]                 else {
[17:26:30.736]                   if (TRUE) {
[17:26:30.736]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.736]                     {
[17:26:30.736]                       inherits <- base::inherits
[17:26:30.736]                       invokeRestart <- base::invokeRestart
[17:26:30.736]                       is.null <- base::is.null
[17:26:30.736]                       muffled <- FALSE
[17:26:30.736]                       if (inherits(cond, "message")) {
[17:26:30.736]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.736]                         if (muffled) 
[17:26:30.736]                           invokeRestart("muffleMessage")
[17:26:30.736]                       }
[17:26:30.736]                       else if (inherits(cond, "warning")) {
[17:26:30.736]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.736]                         if (muffled) 
[17:26:30.736]                           invokeRestart("muffleWarning")
[17:26:30.736]                       }
[17:26:30.736]                       else if (inherits(cond, "condition")) {
[17:26:30.736]                         if (!is.null(pattern)) {
[17:26:30.736]                           computeRestarts <- base::computeRestarts
[17:26:30.736]                           grepl <- base::grepl
[17:26:30.736]                           restarts <- computeRestarts(cond)
[17:26:30.736]                           for (restart in restarts) {
[17:26:30.736]                             name <- restart$name
[17:26:30.736]                             if (is.null(name)) 
[17:26:30.736]                               next
[17:26:30.736]                             if (!grepl(pattern, name)) 
[17:26:30.736]                               next
[17:26:30.736]                             invokeRestart(restart)
[17:26:30.736]                             muffled <- TRUE
[17:26:30.736]                             break
[17:26:30.736]                           }
[17:26:30.736]                         }
[17:26:30.736]                       }
[17:26:30.736]                       invisible(muffled)
[17:26:30.736]                     }
[17:26:30.736]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.736]                   }
[17:26:30.736]                 }
[17:26:30.736]             }
[17:26:30.736]         }))
[17:26:30.736]     }, error = function(ex) {
[17:26:30.736]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.736]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.736]                 ...future.rng), started = ...future.startTime, 
[17:26:30.736]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.736]             version = "1.8"), class = "FutureResult")
[17:26:30.736]     }, finally = {
[17:26:30.736]         if (!identical(...future.workdir, getwd())) 
[17:26:30.736]             setwd(...future.workdir)
[17:26:30.736]         {
[17:26:30.736]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.736]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.736]             }
[17:26:30.736]             base::options(...future.oldOptions)
[17:26:30.736]             if (.Platform$OS.type == "windows") {
[17:26:30.736]                 old_names <- names(...future.oldEnvVars)
[17:26:30.736]                 envs <- base::Sys.getenv()
[17:26:30.736]                 names <- names(envs)
[17:26:30.736]                 common <- intersect(names, old_names)
[17:26:30.736]                 added <- setdiff(names, old_names)
[17:26:30.736]                 removed <- setdiff(old_names, names)
[17:26:30.736]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.736]                   envs[common]]
[17:26:30.736]                 NAMES <- toupper(changed)
[17:26:30.736]                 args <- list()
[17:26:30.736]                 for (kk in seq_along(NAMES)) {
[17:26:30.736]                   name <- changed[[kk]]
[17:26:30.736]                   NAME <- NAMES[[kk]]
[17:26:30.736]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.736]                     next
[17:26:30.736]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.736]                 }
[17:26:30.736]                 NAMES <- toupper(added)
[17:26:30.736]                 for (kk in seq_along(NAMES)) {
[17:26:30.736]                   name <- added[[kk]]
[17:26:30.736]                   NAME <- NAMES[[kk]]
[17:26:30.736]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.736]                     next
[17:26:30.736]                   args[[name]] <- ""
[17:26:30.736]                 }
[17:26:30.736]                 NAMES <- toupper(removed)
[17:26:30.736]                 for (kk in seq_along(NAMES)) {
[17:26:30.736]                   name <- removed[[kk]]
[17:26:30.736]                   NAME <- NAMES[[kk]]
[17:26:30.736]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.736]                     next
[17:26:30.736]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.736]                 }
[17:26:30.736]                 if (length(args) > 0) 
[17:26:30.736]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.736]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.736]             }
[17:26:30.736]             else {
[17:26:30.736]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.736]             }
[17:26:30.736]             {
[17:26:30.736]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.736]                   0L) {
[17:26:30.736]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.736]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.736]                   base::options(opts)
[17:26:30.736]                 }
[17:26:30.736]                 {
[17:26:30.736]                   {
[17:26:30.736]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.736]                     NULL
[17:26:30.736]                   }
[17:26:30.736]                   options(future.plan = NULL)
[17:26:30.736]                   if (is.na(NA_character_)) 
[17:26:30.736]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.736]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.736]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.736]                     .init = FALSE)
[17:26:30.736]                 }
[17:26:30.736]             }
[17:26:30.736]         }
[17:26:30.736]     })
[17:26:30.736]     if (TRUE) {
[17:26:30.736]         base::sink(type = "output", split = FALSE)
[17:26:30.736]         if (TRUE) {
[17:26:30.736]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.736]         }
[17:26:30.736]         else {
[17:26:30.736]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.736]         }
[17:26:30.736]         base::close(...future.stdout)
[17:26:30.736]         ...future.stdout <- NULL
[17:26:30.736]     }
[17:26:30.736]     ...future.result$conditions <- ...future.conditions
[17:26:30.736]     ...future.result$finished <- base::Sys.time()
[17:26:30.736]     ...future.result
[17:26:30.736] }
[17:26:30.742] MultisessionFuture started
MultisessionFuture:
Label: 'strategy = multisession'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: TRUE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[17:26:30.756] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.757] - Validating connection of MultisessionFuture
[17:26:30.757] - received message: FutureResult
[17:26:30.757] - Received FutureResult
[17:26:30.757] - Erased future from FutureRegistry
[17:26:30.757] result() for ClusterFuture ...
[17:26:30.758] - result already collected: FutureResult
[17:26:30.758] result() for ClusterFuture ... done
[17:26:30.758] receiveMessageFromWorker() for ClusterFuture ... done
Resolved: TRUE
Value: <not collected>
Conditions captured: <none>
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.758] result() for ClusterFuture ...
[17:26:30.758] - result already collected: FutureResult
[17:26:30.759] result() for ClusterFuture ... done
[17:26:30.759] result() for ClusterFuture ...
[17:26:30.759] - result already collected: FutureResult
[17:26:30.759] result() for ClusterFuture ... done
[17:26:30.759] getGlobalsAndPackages() ...
[17:26:30.759] Searching for globals...
[17:26:30.760] 
[17:26:30.760] Searching for globals ... DONE
[17:26:30.760] - globals: [0] <none>
[17:26:30.760] getGlobalsAndPackages() ... DONE
[17:26:30.761] run() for 'Future' ...
[17:26:30.761] - state: 'created'
[17:26:30.761] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:30.775] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.775] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:30.775]   - Field: 'node'
[17:26:30.776]   - Field: 'label'
[17:26:30.776]   - Field: 'local'
[17:26:30.776]   - Field: 'owner'
[17:26:30.776]   - Field: 'envir'
[17:26:30.776]   - Field: 'workers'
[17:26:30.776]   - Field: 'packages'
[17:26:30.777]   - Field: 'gc'
[17:26:30.777]   - Field: 'conditions'
[17:26:30.777]   - Field: 'persistent'
[17:26:30.777]   - Field: 'expr'
[17:26:30.777]   - Field: 'uuid'
[17:26:30.778]   - Field: 'seed'
[17:26:30.778]   - Field: 'version'
[17:26:30.778]   - Field: 'result'
[17:26:30.778]   - Field: 'asynchronous'
[17:26:30.778]   - Field: 'calls'
[17:26:30.778]   - Field: 'globals'
[17:26:30.779]   - Field: 'stdout'
[17:26:30.779]   - Field: 'earlySignal'
[17:26:30.779]   - Field: 'lazy'
[17:26:30.779]   - Field: 'state'
[17:26:30.779] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:30.780] - Launch lazy future ...
[17:26:30.780] Packages needed by the future expression (n = 0): <none>
[17:26:30.780] Packages needed by future strategies (n = 0): <none>
[17:26:30.781] {
[17:26:30.781]     {
[17:26:30.781]         {
[17:26:30.781]             ...future.startTime <- base::Sys.time()
[17:26:30.781]             {
[17:26:30.781]                 {
[17:26:30.781]                   {
[17:26:30.781]                     {
[17:26:30.781]                       base::local({
[17:26:30.781]                         has_future <- base::requireNamespace("future", 
[17:26:30.781]                           quietly = TRUE)
[17:26:30.781]                         if (has_future) {
[17:26:30.781]                           ns <- base::getNamespace("future")
[17:26:30.781]                           version <- ns[[".package"]][["version"]]
[17:26:30.781]                           if (is.null(version)) 
[17:26:30.781]                             version <- utils::packageVersion("future")
[17:26:30.781]                         }
[17:26:30.781]                         else {
[17:26:30.781]                           version <- NULL
[17:26:30.781]                         }
[17:26:30.781]                         if (!has_future || version < "1.8.0") {
[17:26:30.781]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.781]                             "", base::R.version$version.string), 
[17:26:30.781]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.781]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.781]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.781]                               "release", "version")], collapse = " "), 
[17:26:30.781]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.781]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.781]                             info)
[17:26:30.781]                           info <- base::paste(info, collapse = "; ")
[17:26:30.781]                           if (!has_future) {
[17:26:30.781]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.781]                               info)
[17:26:30.781]                           }
[17:26:30.781]                           else {
[17:26:30.781]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.781]                               info, version)
[17:26:30.781]                           }
[17:26:30.781]                           base::stop(msg)
[17:26:30.781]                         }
[17:26:30.781]                       })
[17:26:30.781]                     }
[17:26:30.781]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.781]                     base::options(mc.cores = 1L)
[17:26:30.781]                   }
[17:26:30.781]                   ...future.strategy.old <- future::plan("list")
[17:26:30.781]                   options(future.plan = NULL)
[17:26:30.781]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.781]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.781]                 }
[17:26:30.781]                 ...future.workdir <- getwd()
[17:26:30.781]             }
[17:26:30.781]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.781]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.781]         }
[17:26:30.781]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.781]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.781]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.781]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.781]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.781]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.781]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.781]             base::names(...future.oldOptions))
[17:26:30.781]     }
[17:26:30.781]     if (FALSE) {
[17:26:30.781]     }
[17:26:30.781]     else {
[17:26:30.781]         if (TRUE) {
[17:26:30.781]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.781]                 open = "w")
[17:26:30.781]         }
[17:26:30.781]         else {
[17:26:30.781]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.781]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.781]         }
[17:26:30.781]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.781]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.781]             base::sink(type = "output", split = FALSE)
[17:26:30.781]             base::close(...future.stdout)
[17:26:30.781]         }, add = TRUE)
[17:26:30.781]     }
[17:26:30.781]     ...future.frame <- base::sys.nframe()
[17:26:30.781]     ...future.conditions <- base::list()
[17:26:30.781]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.781]     if (FALSE) {
[17:26:30.781]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.781]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.781]     }
[17:26:30.781]     ...future.result <- base::tryCatch({
[17:26:30.781]         base::withCallingHandlers({
[17:26:30.781]             ...future.value <- base::withVisible(base::local({
[17:26:30.781]                 ...future.makeSendCondition <- base::local({
[17:26:30.781]                   sendCondition <- NULL
[17:26:30.781]                   function(frame = 1L) {
[17:26:30.781]                     if (is.function(sendCondition)) 
[17:26:30.781]                       return(sendCondition)
[17:26:30.781]                     ns <- getNamespace("parallel")
[17:26:30.781]                     if (exists("sendData", mode = "function", 
[17:26:30.781]                       envir = ns)) {
[17:26:30.781]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.781]                         envir = ns)
[17:26:30.781]                       envir <- sys.frame(frame)
[17:26:30.781]                       master <- NULL
[17:26:30.781]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.781]                         !identical(envir, emptyenv())) {
[17:26:30.781]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.781]                           inherits = FALSE)) {
[17:26:30.781]                           master <- get("master", mode = "list", 
[17:26:30.781]                             envir = envir, inherits = FALSE)
[17:26:30.781]                           if (inherits(master, c("SOCKnode", 
[17:26:30.781]                             "SOCK0node"))) {
[17:26:30.781]                             sendCondition <<- function(cond) {
[17:26:30.781]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.781]                                 success = TRUE)
[17:26:30.781]                               parallel_sendData(master, data)
[17:26:30.781]                             }
[17:26:30.781]                             return(sendCondition)
[17:26:30.781]                           }
[17:26:30.781]                         }
[17:26:30.781]                         frame <- frame + 1L
[17:26:30.781]                         envir <- sys.frame(frame)
[17:26:30.781]                       }
[17:26:30.781]                     }
[17:26:30.781]                     sendCondition <<- function(cond) NULL
[17:26:30.781]                   }
[17:26:30.781]                 })
[17:26:30.781]                 withCallingHandlers({
[17:26:30.781]                   42
[17:26:30.781]                 }, immediateCondition = function(cond) {
[17:26:30.781]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.781]                   sendCondition(cond)
[17:26:30.781]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.781]                   {
[17:26:30.781]                     inherits <- base::inherits
[17:26:30.781]                     invokeRestart <- base::invokeRestart
[17:26:30.781]                     is.null <- base::is.null
[17:26:30.781]                     muffled <- FALSE
[17:26:30.781]                     if (inherits(cond, "message")) {
[17:26:30.781]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.781]                       if (muffled) 
[17:26:30.781]                         invokeRestart("muffleMessage")
[17:26:30.781]                     }
[17:26:30.781]                     else if (inherits(cond, "warning")) {
[17:26:30.781]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.781]                       if (muffled) 
[17:26:30.781]                         invokeRestart("muffleWarning")
[17:26:30.781]                     }
[17:26:30.781]                     else if (inherits(cond, "condition")) {
[17:26:30.781]                       if (!is.null(pattern)) {
[17:26:30.781]                         computeRestarts <- base::computeRestarts
[17:26:30.781]                         grepl <- base::grepl
[17:26:30.781]                         restarts <- computeRestarts(cond)
[17:26:30.781]                         for (restart in restarts) {
[17:26:30.781]                           name <- restart$name
[17:26:30.781]                           if (is.null(name)) 
[17:26:30.781]                             next
[17:26:30.781]                           if (!grepl(pattern, name)) 
[17:26:30.781]                             next
[17:26:30.781]                           invokeRestart(restart)
[17:26:30.781]                           muffled <- TRUE
[17:26:30.781]                           break
[17:26:30.781]                         }
[17:26:30.781]                       }
[17:26:30.781]                     }
[17:26:30.781]                     invisible(muffled)
[17:26:30.781]                   }
[17:26:30.781]                   muffleCondition(cond)
[17:26:30.781]                 })
[17:26:30.781]             }))
[17:26:30.781]             future::FutureResult(value = ...future.value$value, 
[17:26:30.781]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.781]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.781]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.781]                     ...future.globalenv.names))
[17:26:30.781]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.781]         }, condition = base::local({
[17:26:30.781]             c <- base::c
[17:26:30.781]             inherits <- base::inherits
[17:26:30.781]             invokeRestart <- base::invokeRestart
[17:26:30.781]             length <- base::length
[17:26:30.781]             list <- base::list
[17:26:30.781]             seq.int <- base::seq.int
[17:26:30.781]             signalCondition <- base::signalCondition
[17:26:30.781]             sys.calls <- base::sys.calls
[17:26:30.781]             `[[` <- base::`[[`
[17:26:30.781]             `+` <- base::`+`
[17:26:30.781]             `<<-` <- base::`<<-`
[17:26:30.781]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.781]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.781]                   3L)]
[17:26:30.781]             }
[17:26:30.781]             function(cond) {
[17:26:30.781]                 is_error <- inherits(cond, "error")
[17:26:30.781]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.781]                   NULL)
[17:26:30.781]                 if (is_error) {
[17:26:30.781]                   sessionInformation <- function() {
[17:26:30.781]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.781]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.781]                       search = base::search(), system = base::Sys.info())
[17:26:30.781]                   }
[17:26:30.781]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.781]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.781]                     cond$call), session = sessionInformation(), 
[17:26:30.781]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.781]                   signalCondition(cond)
[17:26:30.781]                 }
[17:26:30.781]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.781]                 "immediateCondition"))) {
[17:26:30.781]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.781]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.781]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.781]                   if (TRUE && !signal) {
[17:26:30.781]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.781]                     {
[17:26:30.781]                       inherits <- base::inherits
[17:26:30.781]                       invokeRestart <- base::invokeRestart
[17:26:30.781]                       is.null <- base::is.null
[17:26:30.781]                       muffled <- FALSE
[17:26:30.781]                       if (inherits(cond, "message")) {
[17:26:30.781]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.781]                         if (muffled) 
[17:26:30.781]                           invokeRestart("muffleMessage")
[17:26:30.781]                       }
[17:26:30.781]                       else if (inherits(cond, "warning")) {
[17:26:30.781]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.781]                         if (muffled) 
[17:26:30.781]                           invokeRestart("muffleWarning")
[17:26:30.781]                       }
[17:26:30.781]                       else if (inherits(cond, "condition")) {
[17:26:30.781]                         if (!is.null(pattern)) {
[17:26:30.781]                           computeRestarts <- base::computeRestarts
[17:26:30.781]                           grepl <- base::grepl
[17:26:30.781]                           restarts <- computeRestarts(cond)
[17:26:30.781]                           for (restart in restarts) {
[17:26:30.781]                             name <- restart$name
[17:26:30.781]                             if (is.null(name)) 
[17:26:30.781]                               next
[17:26:30.781]                             if (!grepl(pattern, name)) 
[17:26:30.781]                               next
[17:26:30.781]                             invokeRestart(restart)
[17:26:30.781]                             muffled <- TRUE
[17:26:30.781]                             break
[17:26:30.781]                           }
[17:26:30.781]                         }
[17:26:30.781]                       }
[17:26:30.781]                       invisible(muffled)
[17:26:30.781]                     }
[17:26:30.781]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.781]                   }
[17:26:30.781]                 }
[17:26:30.781]                 else {
[17:26:30.781]                   if (TRUE) {
[17:26:30.781]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.781]                     {
[17:26:30.781]                       inherits <- base::inherits
[17:26:30.781]                       invokeRestart <- base::invokeRestart
[17:26:30.781]                       is.null <- base::is.null
[17:26:30.781]                       muffled <- FALSE
[17:26:30.781]                       if (inherits(cond, "message")) {
[17:26:30.781]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.781]                         if (muffled) 
[17:26:30.781]                           invokeRestart("muffleMessage")
[17:26:30.781]                       }
[17:26:30.781]                       else if (inherits(cond, "warning")) {
[17:26:30.781]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.781]                         if (muffled) 
[17:26:30.781]                           invokeRestart("muffleWarning")
[17:26:30.781]                       }
[17:26:30.781]                       else if (inherits(cond, "condition")) {
[17:26:30.781]                         if (!is.null(pattern)) {
[17:26:30.781]                           computeRestarts <- base::computeRestarts
[17:26:30.781]                           grepl <- base::grepl
[17:26:30.781]                           restarts <- computeRestarts(cond)
[17:26:30.781]                           for (restart in restarts) {
[17:26:30.781]                             name <- restart$name
[17:26:30.781]                             if (is.null(name)) 
[17:26:30.781]                               next
[17:26:30.781]                             if (!grepl(pattern, name)) 
[17:26:30.781]                               next
[17:26:30.781]                             invokeRestart(restart)
[17:26:30.781]                             muffled <- TRUE
[17:26:30.781]                             break
[17:26:30.781]                           }
[17:26:30.781]                         }
[17:26:30.781]                       }
[17:26:30.781]                       invisible(muffled)
[17:26:30.781]                     }
[17:26:30.781]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.781]                   }
[17:26:30.781]                 }
[17:26:30.781]             }
[17:26:30.781]         }))
[17:26:30.781]     }, error = function(ex) {
[17:26:30.781]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.781]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.781]                 ...future.rng), started = ...future.startTime, 
[17:26:30.781]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.781]             version = "1.8"), class = "FutureResult")
[17:26:30.781]     }, finally = {
[17:26:30.781]         if (!identical(...future.workdir, getwd())) 
[17:26:30.781]             setwd(...future.workdir)
[17:26:30.781]         {
[17:26:30.781]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.781]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.781]             }
[17:26:30.781]             base::options(...future.oldOptions)
[17:26:30.781]             if (.Platform$OS.type == "windows") {
[17:26:30.781]                 old_names <- names(...future.oldEnvVars)
[17:26:30.781]                 envs <- base::Sys.getenv()
[17:26:30.781]                 names <- names(envs)
[17:26:30.781]                 common <- intersect(names, old_names)
[17:26:30.781]                 added <- setdiff(names, old_names)
[17:26:30.781]                 removed <- setdiff(old_names, names)
[17:26:30.781]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.781]                   envs[common]]
[17:26:30.781]                 NAMES <- toupper(changed)
[17:26:30.781]                 args <- list()
[17:26:30.781]                 for (kk in seq_along(NAMES)) {
[17:26:30.781]                   name <- changed[[kk]]
[17:26:30.781]                   NAME <- NAMES[[kk]]
[17:26:30.781]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.781]                     next
[17:26:30.781]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.781]                 }
[17:26:30.781]                 NAMES <- toupper(added)
[17:26:30.781]                 for (kk in seq_along(NAMES)) {
[17:26:30.781]                   name <- added[[kk]]
[17:26:30.781]                   NAME <- NAMES[[kk]]
[17:26:30.781]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.781]                     next
[17:26:30.781]                   args[[name]] <- ""
[17:26:30.781]                 }
[17:26:30.781]                 NAMES <- toupper(removed)
[17:26:30.781]                 for (kk in seq_along(NAMES)) {
[17:26:30.781]                   name <- removed[[kk]]
[17:26:30.781]                   NAME <- NAMES[[kk]]
[17:26:30.781]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.781]                     next
[17:26:30.781]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.781]                 }
[17:26:30.781]                 if (length(args) > 0) 
[17:26:30.781]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.781]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.781]             }
[17:26:30.781]             else {
[17:26:30.781]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.781]             }
[17:26:30.781]             {
[17:26:30.781]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.781]                   0L) {
[17:26:30.781]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.781]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.781]                   base::options(opts)
[17:26:30.781]                 }
[17:26:30.781]                 {
[17:26:30.781]                   {
[17:26:30.781]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.781]                     NULL
[17:26:30.781]                   }
[17:26:30.781]                   options(future.plan = NULL)
[17:26:30.781]                   if (is.na(NA_character_)) 
[17:26:30.781]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.781]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.781]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.781]                     .init = FALSE)
[17:26:30.781]                 }
[17:26:30.781]             }
[17:26:30.781]         }
[17:26:30.781]     })
[17:26:30.781]     if (TRUE) {
[17:26:30.781]         base::sink(type = "output", split = FALSE)
[17:26:30.781]         if (TRUE) {
[17:26:30.781]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.781]         }
[17:26:30.781]         else {
[17:26:30.781]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.781]         }
[17:26:30.781]         base::close(...future.stdout)
[17:26:30.781]         ...future.stdout <- NULL
[17:26:30.781]     }
[17:26:30.781]     ...future.result$conditions <- ...future.conditions
[17:26:30.781]     ...future.result$finished <- base::Sys.time()
[17:26:30.781]     ...future.result
[17:26:30.781] }
[17:26:30.786] MultisessionFuture started
[17:26:30.786] - Launch lazy future ... done
[17:26:30.787] run() for 'MultisessionFuture' ... done
MultisessionFuture:
Label: 'strategy = multisession'
Expression:
[1] 42
Lazy evaluation: FALSE
Asynchronous evaluation: TRUE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[17:26:30.800] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.800] - Validating connection of MultisessionFuture
[17:26:30.800] - received message: FutureResult
[17:26:30.801] - Received FutureResult
[17:26:30.801] - Erased future from FutureRegistry
[17:26:30.801] result() for ClusterFuture ...
[17:26:30.801] - result already collected: FutureResult
[17:26:30.801] result() for ClusterFuture ... done
[17:26:30.801] receiveMessageFromWorker() for ClusterFuture ... done
Resolved: TRUE
Value: <not collected>
Conditions captured: <none>
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.802] result() for ClusterFuture ...
[17:26:30.802] - result already collected: FutureResult
[17:26:30.802] result() for ClusterFuture ... done
[17:26:30.802] result() for ClusterFuture ...
[17:26:30.802] - result already collected: FutureResult
[17:26:30.802] result() for ClusterFuture ... done
[17:26:30.803] getGlobalsAndPackages() ...
[17:26:30.803] Searching for globals...
[17:26:30.804] - globals found: [1] '{'
[17:26:30.804] Searching for globals ... DONE
[17:26:30.804] Resolving globals: FALSE
[17:26:30.805] 
[17:26:30.805] 
[17:26:30.805] getGlobalsAndPackages() ... DONE
[17:26:30.805] run() for 'Future' ...
[17:26:30.805] - state: 'created'
[17:26:30.806] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:30.819] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.820] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:30.820]   - Field: 'node'
[17:26:30.820]   - Field: 'label'
[17:26:30.820]   - Field: 'local'
[17:26:30.820]   - Field: 'owner'
[17:26:30.820]   - Field: 'envir'
[17:26:30.821]   - Field: 'workers'
[17:26:30.821]   - Field: 'packages'
[17:26:30.821]   - Field: 'gc'
[17:26:30.821]   - Field: 'conditions'
[17:26:30.821]   - Field: 'persistent'
[17:26:30.822]   - Field: 'expr'
[17:26:30.822]   - Field: 'uuid'
[17:26:30.822]   - Field: 'seed'
[17:26:30.822]   - Field: 'version'
[17:26:30.822]   - Field: 'result'
[17:26:30.822]   - Field: 'asynchronous'
[17:26:30.823]   - Field: 'calls'
[17:26:30.823]   - Field: 'globals'
[17:26:30.823]   - Field: 'stdout'
[17:26:30.823]   - Field: 'earlySignal'
[17:26:30.823]   - Field: 'lazy'
[17:26:30.824]   - Field: 'state'
[17:26:30.824] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:30.824] - Launch lazy future ...
[17:26:30.824] Packages needed by the future expression (n = 0): <none>
[17:26:30.824] Packages needed by future strategies (n = 0): <none>
[17:26:30.825] {
[17:26:30.825]     {
[17:26:30.825]         {
[17:26:30.825]             ...future.startTime <- base::Sys.time()
[17:26:30.825]             {
[17:26:30.825]                 {
[17:26:30.825]                   {
[17:26:30.825]                     {
[17:26:30.825]                       base::local({
[17:26:30.825]                         has_future <- base::requireNamespace("future", 
[17:26:30.825]                           quietly = TRUE)
[17:26:30.825]                         if (has_future) {
[17:26:30.825]                           ns <- base::getNamespace("future")
[17:26:30.825]                           version <- ns[[".package"]][["version"]]
[17:26:30.825]                           if (is.null(version)) 
[17:26:30.825]                             version <- utils::packageVersion("future")
[17:26:30.825]                         }
[17:26:30.825]                         else {
[17:26:30.825]                           version <- NULL
[17:26:30.825]                         }
[17:26:30.825]                         if (!has_future || version < "1.8.0") {
[17:26:30.825]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:30.825]                             "", base::R.version$version.string), 
[17:26:30.825]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:30.825]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:30.825]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:30.825]                               "release", "version")], collapse = " "), 
[17:26:30.825]                             hostname = base::Sys.info()[["nodename"]])
[17:26:30.825]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:30.825]                             info)
[17:26:30.825]                           info <- base::paste(info, collapse = "; ")
[17:26:30.825]                           if (!has_future) {
[17:26:30.825]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:30.825]                               info)
[17:26:30.825]                           }
[17:26:30.825]                           else {
[17:26:30.825]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:30.825]                               info, version)
[17:26:30.825]                           }
[17:26:30.825]                           base::stop(msg)
[17:26:30.825]                         }
[17:26:30.825]                       })
[17:26:30.825]                     }
[17:26:30.825]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:30.825]                     base::options(mc.cores = 1L)
[17:26:30.825]                   }
[17:26:30.825]                   ...future.strategy.old <- future::plan("list")
[17:26:30.825]                   options(future.plan = NULL)
[17:26:30.825]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.825]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:30.825]                 }
[17:26:30.825]                 ...future.workdir <- getwd()
[17:26:30.825]             }
[17:26:30.825]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:30.825]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:30.825]         }
[17:26:30.825]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:30.825]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:30.825]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:30.825]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:30.825]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:30.825]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:30.825]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:30.825]             base::names(...future.oldOptions))
[17:26:30.825]     }
[17:26:30.825]     if (FALSE) {
[17:26:30.825]     }
[17:26:30.825]     else {
[17:26:30.825]         if (TRUE) {
[17:26:30.825]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:30.825]                 open = "w")
[17:26:30.825]         }
[17:26:30.825]         else {
[17:26:30.825]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:30.825]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:30.825]         }
[17:26:30.825]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:30.825]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:30.825]             base::sink(type = "output", split = FALSE)
[17:26:30.825]             base::close(...future.stdout)
[17:26:30.825]         }, add = TRUE)
[17:26:30.825]     }
[17:26:30.825]     ...future.frame <- base::sys.nframe()
[17:26:30.825]     ...future.conditions <- base::list()
[17:26:30.825]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:30.825]     if (FALSE) {
[17:26:30.825]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:30.825]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:30.825]     }
[17:26:30.825]     ...future.result <- base::tryCatch({
[17:26:30.825]         base::withCallingHandlers({
[17:26:30.825]             ...future.value <- base::withVisible(base::local({
[17:26:30.825]                 ...future.makeSendCondition <- base::local({
[17:26:30.825]                   sendCondition <- NULL
[17:26:30.825]                   function(frame = 1L) {
[17:26:30.825]                     if (is.function(sendCondition)) 
[17:26:30.825]                       return(sendCondition)
[17:26:30.825]                     ns <- getNamespace("parallel")
[17:26:30.825]                     if (exists("sendData", mode = "function", 
[17:26:30.825]                       envir = ns)) {
[17:26:30.825]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:30.825]                         envir = ns)
[17:26:30.825]                       envir <- sys.frame(frame)
[17:26:30.825]                       master <- NULL
[17:26:30.825]                       while (!identical(envir, .GlobalEnv) && 
[17:26:30.825]                         !identical(envir, emptyenv())) {
[17:26:30.825]                         if (exists("master", mode = "list", envir = envir, 
[17:26:30.825]                           inherits = FALSE)) {
[17:26:30.825]                           master <- get("master", mode = "list", 
[17:26:30.825]                             envir = envir, inherits = FALSE)
[17:26:30.825]                           if (inherits(master, c("SOCKnode", 
[17:26:30.825]                             "SOCK0node"))) {
[17:26:30.825]                             sendCondition <<- function(cond) {
[17:26:30.825]                               data <- list(type = "VALUE", value = cond, 
[17:26:30.825]                                 success = TRUE)
[17:26:30.825]                               parallel_sendData(master, data)
[17:26:30.825]                             }
[17:26:30.825]                             return(sendCondition)
[17:26:30.825]                           }
[17:26:30.825]                         }
[17:26:30.825]                         frame <- frame + 1L
[17:26:30.825]                         envir <- sys.frame(frame)
[17:26:30.825]                       }
[17:26:30.825]                     }
[17:26:30.825]                     sendCondition <<- function(cond) NULL
[17:26:30.825]                   }
[17:26:30.825]                 })
[17:26:30.825]                 withCallingHandlers({
[17:26:30.825]                   {
[17:26:30.825]                     42
[17:26:30.825]                   }
[17:26:30.825]                 }, immediateCondition = function(cond) {
[17:26:30.825]                   sendCondition <- ...future.makeSendCondition()
[17:26:30.825]                   sendCondition(cond)
[17:26:30.825]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.825]                   {
[17:26:30.825]                     inherits <- base::inherits
[17:26:30.825]                     invokeRestart <- base::invokeRestart
[17:26:30.825]                     is.null <- base::is.null
[17:26:30.825]                     muffled <- FALSE
[17:26:30.825]                     if (inherits(cond, "message")) {
[17:26:30.825]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:30.825]                       if (muffled) 
[17:26:30.825]                         invokeRestart("muffleMessage")
[17:26:30.825]                     }
[17:26:30.825]                     else if (inherits(cond, "warning")) {
[17:26:30.825]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:30.825]                       if (muffled) 
[17:26:30.825]                         invokeRestart("muffleWarning")
[17:26:30.825]                     }
[17:26:30.825]                     else if (inherits(cond, "condition")) {
[17:26:30.825]                       if (!is.null(pattern)) {
[17:26:30.825]                         computeRestarts <- base::computeRestarts
[17:26:30.825]                         grepl <- base::grepl
[17:26:30.825]                         restarts <- computeRestarts(cond)
[17:26:30.825]                         for (restart in restarts) {
[17:26:30.825]                           name <- restart$name
[17:26:30.825]                           if (is.null(name)) 
[17:26:30.825]                             next
[17:26:30.825]                           if (!grepl(pattern, name)) 
[17:26:30.825]                             next
[17:26:30.825]                           invokeRestart(restart)
[17:26:30.825]                           muffled <- TRUE
[17:26:30.825]                           break
[17:26:30.825]                         }
[17:26:30.825]                       }
[17:26:30.825]                     }
[17:26:30.825]                     invisible(muffled)
[17:26:30.825]                   }
[17:26:30.825]                   muffleCondition(cond)
[17:26:30.825]                 })
[17:26:30.825]             }))
[17:26:30.825]             future::FutureResult(value = ...future.value$value, 
[17:26:30.825]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.825]                   ...future.rng), globalenv = if (FALSE) 
[17:26:30.825]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:30.825]                     ...future.globalenv.names))
[17:26:30.825]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:30.825]         }, condition = base::local({
[17:26:30.825]             c <- base::c
[17:26:30.825]             inherits <- base::inherits
[17:26:30.825]             invokeRestart <- base::invokeRestart
[17:26:30.825]             length <- base::length
[17:26:30.825]             list <- base::list
[17:26:30.825]             seq.int <- base::seq.int
[17:26:30.825]             signalCondition <- base::signalCondition
[17:26:30.825]             sys.calls <- base::sys.calls
[17:26:30.825]             `[[` <- base::`[[`
[17:26:30.825]             `+` <- base::`+`
[17:26:30.825]             `<<-` <- base::`<<-`
[17:26:30.825]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:30.825]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:30.825]                   3L)]
[17:26:30.825]             }
[17:26:30.825]             function(cond) {
[17:26:30.825]                 is_error <- inherits(cond, "error")
[17:26:30.825]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:30.825]                   NULL)
[17:26:30.825]                 if (is_error) {
[17:26:30.825]                   sessionInformation <- function() {
[17:26:30.825]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:30.825]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:30.825]                       search = base::search(), system = base::Sys.info())
[17:26:30.825]                   }
[17:26:30.825]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.825]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:30.825]                     cond$call), session = sessionInformation(), 
[17:26:30.825]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:30.825]                   signalCondition(cond)
[17:26:30.825]                 }
[17:26:30.825]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:30.825]                 "immediateCondition"))) {
[17:26:30.825]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:30.825]                   ...future.conditions[[length(...future.conditions) + 
[17:26:30.825]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:30.825]                   if (TRUE && !signal) {
[17:26:30.825]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.825]                     {
[17:26:30.825]                       inherits <- base::inherits
[17:26:30.825]                       invokeRestart <- base::invokeRestart
[17:26:30.825]                       is.null <- base::is.null
[17:26:30.825]                       muffled <- FALSE
[17:26:30.825]                       if (inherits(cond, "message")) {
[17:26:30.825]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.825]                         if (muffled) 
[17:26:30.825]                           invokeRestart("muffleMessage")
[17:26:30.825]                       }
[17:26:30.825]                       else if (inherits(cond, "warning")) {
[17:26:30.825]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.825]                         if (muffled) 
[17:26:30.825]                           invokeRestart("muffleWarning")
[17:26:30.825]                       }
[17:26:30.825]                       else if (inherits(cond, "condition")) {
[17:26:30.825]                         if (!is.null(pattern)) {
[17:26:30.825]                           computeRestarts <- base::computeRestarts
[17:26:30.825]                           grepl <- base::grepl
[17:26:30.825]                           restarts <- computeRestarts(cond)
[17:26:30.825]                           for (restart in restarts) {
[17:26:30.825]                             name <- restart$name
[17:26:30.825]                             if (is.null(name)) 
[17:26:30.825]                               next
[17:26:30.825]                             if (!grepl(pattern, name)) 
[17:26:30.825]                               next
[17:26:30.825]                             invokeRestart(restart)
[17:26:30.825]                             muffled <- TRUE
[17:26:30.825]                             break
[17:26:30.825]                           }
[17:26:30.825]                         }
[17:26:30.825]                       }
[17:26:30.825]                       invisible(muffled)
[17:26:30.825]                     }
[17:26:30.825]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.825]                   }
[17:26:30.825]                 }
[17:26:30.825]                 else {
[17:26:30.825]                   if (TRUE) {
[17:26:30.825]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:30.825]                     {
[17:26:30.825]                       inherits <- base::inherits
[17:26:30.825]                       invokeRestart <- base::invokeRestart
[17:26:30.825]                       is.null <- base::is.null
[17:26:30.825]                       muffled <- FALSE
[17:26:30.825]                       if (inherits(cond, "message")) {
[17:26:30.825]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:30.825]                         if (muffled) 
[17:26:30.825]                           invokeRestart("muffleMessage")
[17:26:30.825]                       }
[17:26:30.825]                       else if (inherits(cond, "warning")) {
[17:26:30.825]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:30.825]                         if (muffled) 
[17:26:30.825]                           invokeRestart("muffleWarning")
[17:26:30.825]                       }
[17:26:30.825]                       else if (inherits(cond, "condition")) {
[17:26:30.825]                         if (!is.null(pattern)) {
[17:26:30.825]                           computeRestarts <- base::computeRestarts
[17:26:30.825]                           grepl <- base::grepl
[17:26:30.825]                           restarts <- computeRestarts(cond)
[17:26:30.825]                           for (restart in restarts) {
[17:26:30.825]                             name <- restart$name
[17:26:30.825]                             if (is.null(name)) 
[17:26:30.825]                               next
[17:26:30.825]                             if (!grepl(pattern, name)) 
[17:26:30.825]                               next
[17:26:30.825]                             invokeRestart(restart)
[17:26:30.825]                             muffled <- TRUE
[17:26:30.825]                             break
[17:26:30.825]                           }
[17:26:30.825]                         }
[17:26:30.825]                       }
[17:26:30.825]                       invisible(muffled)
[17:26:30.825]                     }
[17:26:30.825]                     muffleCondition(cond, pattern = "^muffle")
[17:26:30.825]                   }
[17:26:30.825]                 }
[17:26:30.825]             }
[17:26:30.825]         }))
[17:26:30.825]     }, error = function(ex) {
[17:26:30.825]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:30.825]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:30.825]                 ...future.rng), started = ...future.startTime, 
[17:26:30.825]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:30.825]             version = "1.8"), class = "FutureResult")
[17:26:30.825]     }, finally = {
[17:26:30.825]         if (!identical(...future.workdir, getwd())) 
[17:26:30.825]             setwd(...future.workdir)
[17:26:30.825]         {
[17:26:30.825]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:30.825]                 ...future.oldOptions$nwarnings <- NULL
[17:26:30.825]             }
[17:26:30.825]             base::options(...future.oldOptions)
[17:26:30.825]             if (.Platform$OS.type == "windows") {
[17:26:30.825]                 old_names <- names(...future.oldEnvVars)
[17:26:30.825]                 envs <- base::Sys.getenv()
[17:26:30.825]                 names <- names(envs)
[17:26:30.825]                 common <- intersect(names, old_names)
[17:26:30.825]                 added <- setdiff(names, old_names)
[17:26:30.825]                 removed <- setdiff(old_names, names)
[17:26:30.825]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:30.825]                   envs[common]]
[17:26:30.825]                 NAMES <- toupper(changed)
[17:26:30.825]                 args <- list()
[17:26:30.825]                 for (kk in seq_along(NAMES)) {
[17:26:30.825]                   name <- changed[[kk]]
[17:26:30.825]                   NAME <- NAMES[[kk]]
[17:26:30.825]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.825]                     next
[17:26:30.825]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.825]                 }
[17:26:30.825]                 NAMES <- toupper(added)
[17:26:30.825]                 for (kk in seq_along(NAMES)) {
[17:26:30.825]                   name <- added[[kk]]
[17:26:30.825]                   NAME <- NAMES[[kk]]
[17:26:30.825]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.825]                     next
[17:26:30.825]                   args[[name]] <- ""
[17:26:30.825]                 }
[17:26:30.825]                 NAMES <- toupper(removed)
[17:26:30.825]                 for (kk in seq_along(NAMES)) {
[17:26:30.825]                   name <- removed[[kk]]
[17:26:30.825]                   NAME <- NAMES[[kk]]
[17:26:30.825]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:30.825]                     next
[17:26:30.825]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:30.825]                 }
[17:26:30.825]                 if (length(args) > 0) 
[17:26:30.825]                   base::do.call(base::Sys.setenv, args = args)
[17:26:30.825]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:30.825]             }
[17:26:30.825]             else {
[17:26:30.825]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:30.825]             }
[17:26:30.825]             {
[17:26:30.825]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:30.825]                   0L) {
[17:26:30.825]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:30.825]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:30.825]                   base::options(opts)
[17:26:30.825]                 }
[17:26:30.825]                 {
[17:26:30.825]                   {
[17:26:30.825]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:30.825]                     NULL
[17:26:30.825]                   }
[17:26:30.825]                   options(future.plan = NULL)
[17:26:30.825]                   if (is.na(NA_character_)) 
[17:26:30.825]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:30.825]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:30.825]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:30.825]                     .init = FALSE)
[17:26:30.825]                 }
[17:26:30.825]             }
[17:26:30.825]         }
[17:26:30.825]     })
[17:26:30.825]     if (TRUE) {
[17:26:30.825]         base::sink(type = "output", split = FALSE)
[17:26:30.825]         if (TRUE) {
[17:26:30.825]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:30.825]         }
[17:26:30.825]         else {
[17:26:30.825]             ...future.result["stdout"] <- base::list(NULL)
[17:26:30.825]         }
[17:26:30.825]         base::close(...future.stdout)
[17:26:30.825]         ...future.stdout <- NULL
[17:26:30.825]     }
[17:26:30.825]     ...future.result$conditions <- ...future.conditions
[17:26:30.825]     ...future.result$finished <- base::Sys.time()
[17:26:30.825]     ...future.result
[17:26:30.825] }
[17:26:30.830] MultisessionFuture started
[17:26:30.831] - Launch lazy future ... done
[17:26:30.831] run() for 'MultisessionFuture' ... done
MultisessionFuture:
Label: 'strategy = multisession'
Expression:
{
    42
}
Lazy evaluation: FALSE
Asynchronous evaluation: TRUE
Local evaluation: TRUE
Environment: R_GlobalEnv
Capture standard output: TRUE
Capture condition classes: 'condition' (excluding 'nothing')
Globals: <none>
Packages: <none>
L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
[17:26:30.845] receiveMessageFromWorker() for ClusterFuture ...
[17:26:30.845] - Validating connection of MultisessionFuture
[17:26:30.846] - received message: FutureResult
[17:26:30.846] - Received FutureResult
[17:26:30.846] - Erased future from FutureRegistry
[17:26:30.846] result() for ClusterFuture ...
[17:26:30.846] - result already collected: FutureResult
[17:26:30.847] result() for ClusterFuture ... done
[17:26:30.847] receiveMessageFromWorker() for ClusterFuture ... done
Resolved: TRUE
Value: <not collected>
Conditions captured: <none>
Early signaling: FALSE
Owner process: e4a3bf1c-8193-4047-6381-7f72506743d1
Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:30.847] result() for ClusterFuture ...
[17:26:30.847] - result already collected: FutureResult
[17:26:30.847] result() for ClusterFuture ... done
[17:26:30.848] result() for ClusterFuture ...
[17:26:30.848] - result already collected: FutureResult
[17:26:30.848] result() for ClusterFuture ... done
- plan('multisession') ... DONE
> 
> message("*** Futures - labels ... DONE")
*** Futures - labels ... DONE
> 
> source("incl/end.R")
[17:26:30.849] plan(): Setting new future strategy stack:
[17:26:30.849] List of future strategies:
[17:26:30.849] 1. FutureStrategy:
[17:26:30.849]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:30.849]    - tweaked: FALSE
[17:26:30.849]    - call: future::plan(oplan)
[17:26:30.850] plan(): nbrOfWorkers() = 1
Failed to undo environment variables:
 - Expected environment variables: [n=204] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS43_HOME', 'RTOOLS44_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CRAN_WEB', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS44_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_CHECK_AUTOCONF_', '_R_CHECK_BOGUS_RETURN_', '_R_CHECK_BROWSER_NONINTERACTIVE_', '_R_CHECK_BUILD_VIGNETTES_SEPARATELY_', '_R_CHECK_CODETOOLS_PROFILE_', '_R_CHECK_CODE_ASSIGN_TO_GLOBALENV_', '_R_CHECK_CODE_ATTACH_', '_R_CHECK_CODE_CLASS_IS_STRING_', '_R_CHECK_CODE_DATA_INTO_GLOBALENV_', '_R_CHECK_CODE_USAGE_VIA_NAMESPACES_', '_R_CHECK_CODE_USAGE_WITHOUT_LOADING_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_CODOC_VARIABLES_IN_USAGES_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_COMPILATION_FLAGS_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_CRAN_INCOMING_', '_R_CHECK_CRAN_INCOMING_CHECK_FILE_URIS_', '_R_CHECK_CRAN_INCOMING_CHECK_URLS_IN_PARALLEL_', '_R_CHECK_CRAN_INCOMING_NOTE_GNU_MAKE_', '_R_CHECK_CRAN_INCOMING_REMOTE_', '_R_CHECK_CRAN_INCOMING_USE_ASPELL_', '_R_CHECK_DATALIST_', '_R_CHECK_DEPRECATED_DEFUNCT_', '_R_CHECK_DOC_SIZES2_', '_R_CHECK_DOT_FIRSTLIB_', '_R_CHECK_DOT_INTERNAL_', '_R_CHECK_EXAMPLE_TIMING_THRESHOLD_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FF_CALLS_', '_R_CHECK_FF_DUP_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_LEEWAY_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LENGTH_1_CONDITION_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NATIVE_ROUTINE_REGISTRATION_', '_R_CHECK_NEWS_IN_PLAIN_TEXT_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_ORPHANED_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PKG_SIZES_', '_R_CHECK_PKG_SIZES_THRESHOLD_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RD_EXAMPLES_T_AND_F_', '_R_CHECK_RD_LINE_WIDTHS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_NOTE_LOST_BRACES_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_REPLACING_IMPORTS_', '_R_CHECK_R_DEPENDS_', '_R_CHECK_S3_METHODS_SHOW_POSSIBLE_ISSUES_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SERIALIZATION_', '_R_CHECK_SHLIB_OPENMP_FLAGS_', '_R_CHECK_SRC_MINUS_W_IMPLICIT_', '_R_CHECK_SUBDIRS_NOCASE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_SYSTEM_CLOCK_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TEST_TIMING_', '_R_CHECK_TIMINGS_', '_R_CHECK_TOPLEVEL_FILES_', '_R_CHECK_UNDOC_USE_ALL_NAMES_', '_R_CHECK_UNSAFE_CALLS_', '_R_CHECK_URLS_SHOW_301_STATUS_', '_R_CHECK_VC_DIRS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TIMING_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_CLASS_MATRIX_ARRAY_', '_R_DEPRECATED_IS_R_', '_R_S3_METHOD_LOOKUP_BASEENV_AFTER_GLOBALENV_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_SPECIAL__', 'maj.version', 'nextArg--timingsnextArg--install'
 - Environment variables still there: [n=0] 
 - Environment variables missing: [n=1] 'MAKEFLAGS'
Differences environment variable by environment variable:
List of 3
 $ name    : chr "MAKEFLAGS"
 $ expected: 'Dlist' chr ""
 $ actual  : 'Dlist' chr NA
> 
> proc.time()
   user  system elapsed 
   0.67    0.04    1.53