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:51.013] plan(): Setting new future strategy stack:
[17:26:51.015] List of future strategies:
[17:26:51.015] 1. sequential:
[17:26:51.015]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.015]    - tweaked: FALSE
[17:26:51.015]    - call: future::plan("sequential")
[17:26:51.030] plan(): nbrOfWorkers() = 1
> 
> library("datasets") ## cars data set
> library("stats")    ## lm(), poly(), xtabs()
> 
> message("*** Globals - formulas ...")
*** Globals - formulas ...
> 
> ## (i) lm(<formula>):
> ## From example("lm", package = "stats")
> ctl <- c(4.17, 5.58, 5.18, 6.11, 4.50, 4.61, 5.17, 4.53, 5.33, 5.14)
> trt <- c(4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69)
> group <- gl(2, 10, 20, labels = c("Ctl", "Trt"))
> weight <- c(ctl, trt)
> ctl <- trt <- NULL
> ## Truth:
> fit_i <- lm(weight ~ group - 1)
> print(fit_i)

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

> 
> ## (ii) xtabs(~ x):
> x <- c(1, 1, 2, 2, 2)
> ## Truth:
> tbl_ii <- xtabs(~ x)
> print(tbl_ii)
x
1 2 
2 3 
> 
> ## (iii) lm(<formula>, data = cars):
> exprs <- list(
+   # "remove-intercept-term" form of no-intercept
+   a = substitute({ lm(dist ~ . -1, data = cars) }),
+   # "make-intercept-zero" form of no-intercept
+   b = substitute({ lm(dist ~ . +0, data = cars) }),
+   # doesn't do what we want here
+   c = substitute({ lm(dist ~ speed + speed ^ 2, data = cars) }),
+   # gets us a quadratic term
+   d = substitute({ lm(dist ~ speed + I(speed ^ 2), data = cars) }),
+   # avoid potential multicollinearity
+   e = substitute({ lm(dist ~ poly(speed, 2), data = cars) })
+ )
> 
> ## (iv) Globals - map(x, ~ expr):
> ## A fake purrr::map() function with limited functionality
> map <- function(.x, .f, ...) {
+   if (inherits(.f, "formula")) {
+     expr <- .f[[-1]]
+     .f <- eval(bquote(function(...) {
+       .(expr)
+     }))
+   }
+   eval(lapply(.x, FUN = .f, ...))
+ }
> 
> inner_function <- function(x) { x + 1 }
> 
> outer_function <- function(x) {
+   map(1:2, ~ inner_function(.x))
+ }
> 
> y_iv <- outer_function(1L)
> str(y_iv)
List of 2
 $ : num [1:2] 2 3
 $ : num [1:2] 2 3
> 
> 
> for (cores in 1:availCores) {
+   ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
+   if (!fullTest && isWin32) next
+   
+   message(sprintf("Testing with %d cores ...", cores))
+   options(mc.cores = cores)
+ 
+   message("availableCores(): ", availableCores())
+ 
+   for (strategy in supportedStrategies(cores)) {
+     message(sprintf("- plan('%s') ...", strategy))
+     plan(strategy)
+ 
+     message("- lm(<formula>) ...")
+     
+     ## Explicit future
+     f <- future({ lm(weight ~ group - 1) })
+     fit <- value(f)
+     print(fit)
+     stopifnot(all.equal(fit, fit_i))
+ 
+     ## Explicit future (lazy)
+     f <- future({ lm(weight ~ group - 1) }, lazy = TRUE)
+     fit <- value(f)
+     print(fit)
+     stopifnot(all.equal(fit, fit_i))
+ 
+     ## Future assignment
+     fit %<-% { lm(weight ~ group - 1) }
+     print(fit)
+     stopifnot(all.equal(fit, fit_i))
+ 
+     ## Future assignment (non-lazy)
+     fit %<-% { lm(weight ~ group - 1) } %lazy% FALSE
+     print(fit)
+     stopifnot(all.equal(fit, fit_i))
+ 
+     ## Future assignment (lazy)
+     fit %<-% { lm(weight ~ group - 1) } %lazy% TRUE
+     print(fit)
+     stopifnot(all.equal(fit, fit_i))
+ 
+     message("- Globals - one-side formulas, e.g. xtabs(~ x) ...")
+     ## Explicit future
+     f <- future({ xtabs(~ x) })
+     tbl <- value(f)
+     print(tbl)
+     stopifnot(all.equal(tbl, tbl_ii))
+ 
+     ## Future assignment
+     tbl %<-% { xtabs(~ x) }
+     print(tbl)
+     stopifnot(all.equal(tbl, tbl_ii))
+ 
+     message("- Globals - lm(<formula>, data = cars) ...")
+     for (kk in seq_along(exprs)) {
+       expr <- exprs[[kk]]
+       name <- names(exprs)[kk]
+       message(sprintf("- Globals - lm(<formula #%d (%s)>, data = cars) ...",
+                       kk, sQuote(name)))
+     
+       fit_iii <- eval(expr)
+       print(fit_iii)
+     
+       f <- future(expr, substitute = FALSE)
+       fit <- value(f)
+       print(fit)
+     
+       stopifnot(all.equal(fit, fit_iii))
+     } ## for (kk ...)
+ 
+     message("- Globals - map(x, ~ expr) ...")
+     f <- future({ outer_function(1L) })
+     y <- value(f)
+     str(y)
+     stopifnot(all.equal(y, y_iv))
+ 
+     y %<-% { outer_function(1L) }
+     str(y)
+     stopifnot(all.equal(y, y_iv))
+   } ## for (strategy ...)
+   message(sprintf("Testing with %d cores ... DONE", cores))
+ } ## for (cores ...)
Testing with 1 cores ...
availableCores(): 1
- plan('sequential') ...
[17:26:51.094] plan(): Setting new future strategy stack:
[17:26:51.094] List of future strategies:
[17:26:51.094] 1. sequential:
[17:26:51.094]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.094]    - tweaked: FALSE
[17:26:51.094]    - call: plan(strategy)
[17:26:51.108] plan(): nbrOfWorkers() = 1
- lm(<formula>) ...
[17:26:51.109] getGlobalsAndPackages() ...
[17:26:51.109] Searching for globals...
[17:26:51.116] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:51.116] Searching for globals ... DONE
[17:26:51.117] Resolving globals: FALSE
[17:26:51.118] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:51.118] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:51.119] - globals: [2] 'weight', 'group'
[17:26:51.119] - packages: [1] 'stats'
[17:26:51.119] getGlobalsAndPackages() ... DONE
[17:26:51.120] run() for 'Future' ...
[17:26:51.120] - state: 'created'
[17:26:51.120] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.121] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.121] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.121]   - Field: 'label'
[17:26:51.121]   - Field: 'local'
[17:26:51.122]   - Field: 'owner'
[17:26:51.122]   - Field: 'envir'
[17:26:51.122]   - Field: 'packages'
[17:26:51.122]   - Field: 'gc'
[17:26:51.122]   - Field: 'conditions'
[17:26:51.122]   - Field: 'expr'
[17:26:51.123]   - Field: 'uuid'
[17:26:51.123]   - Field: 'seed'
[17:26:51.123]   - Field: 'version'
[17:26:51.123]   - Field: 'result'
[17:26:51.123]   - Field: 'asynchronous'
[17:26:51.123]   - Field: 'calls'
[17:26:51.124]   - Field: 'globals'
[17:26:51.124]   - Field: 'stdout'
[17:26:51.124]   - Field: 'earlySignal'
[17:26:51.124]   - Field: 'lazy'
[17:26:51.124]   - Field: 'state'
[17:26:51.124] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.125] - Launch lazy future ...
[17:26:51.125] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.126] Packages needed by future strategies (n = 0): <none>
[17:26:51.127] {
[17:26:51.127]     {
[17:26:51.127]         {
[17:26:51.127]             ...future.startTime <- base::Sys.time()
[17:26:51.127]             {
[17:26:51.127]                 {
[17:26:51.127]                   {
[17:26:51.127]                     {
[17:26:51.127]                       base::local({
[17:26:51.127]                         has_future <- base::requireNamespace("future", 
[17:26:51.127]                           quietly = TRUE)
[17:26:51.127]                         if (has_future) {
[17:26:51.127]                           ns <- base::getNamespace("future")
[17:26:51.127]                           version <- ns[[".package"]][["version"]]
[17:26:51.127]                           if (is.null(version)) 
[17:26:51.127]                             version <- utils::packageVersion("future")
[17:26:51.127]                         }
[17:26:51.127]                         else {
[17:26:51.127]                           version <- NULL
[17:26:51.127]                         }
[17:26:51.127]                         if (!has_future || version < "1.8.0") {
[17:26:51.127]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.127]                             "", base::R.version$version.string), 
[17:26:51.127]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.127]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.127]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.127]                               "release", "version")], collapse = " "), 
[17:26:51.127]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.127]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.127]                             info)
[17:26:51.127]                           info <- base::paste(info, collapse = "; ")
[17:26:51.127]                           if (!has_future) {
[17:26:51.127]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.127]                               info)
[17:26:51.127]                           }
[17:26:51.127]                           else {
[17:26:51.127]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.127]                               info, version)
[17:26:51.127]                           }
[17:26:51.127]                           base::stop(msg)
[17:26:51.127]                         }
[17:26:51.127]                       })
[17:26:51.127]                     }
[17:26:51.127]                     base::local({
[17:26:51.127]                       for (pkg in "stats") {
[17:26:51.127]                         base::loadNamespace(pkg)
[17:26:51.127]                         base::library(pkg, character.only = TRUE)
[17:26:51.127]                       }
[17:26:51.127]                     })
[17:26:51.127]                   }
[17:26:51.127]                   ...future.strategy.old <- future::plan("list")
[17:26:51.127]                   options(future.plan = NULL)
[17:26:51.127]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.127]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.127]                 }
[17:26:51.127]                 ...future.workdir <- getwd()
[17:26:51.127]             }
[17:26:51.127]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.127]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.127]         }
[17:26:51.127]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.127]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.127]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.127]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.127]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.127]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.127]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.127]             base::names(...future.oldOptions))
[17:26:51.127]     }
[17:26:51.127]     if (FALSE) {
[17:26:51.127]     }
[17:26:51.127]     else {
[17:26:51.127]         if (TRUE) {
[17:26:51.127]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.127]                 open = "w")
[17:26:51.127]         }
[17:26:51.127]         else {
[17:26:51.127]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.127]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.127]         }
[17:26:51.127]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.127]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.127]             base::sink(type = "output", split = FALSE)
[17:26:51.127]             base::close(...future.stdout)
[17:26:51.127]         }, add = TRUE)
[17:26:51.127]     }
[17:26:51.127]     ...future.frame <- base::sys.nframe()
[17:26:51.127]     ...future.conditions <- base::list()
[17:26:51.127]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.127]     if (FALSE) {
[17:26:51.127]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.127]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.127]     }
[17:26:51.127]     ...future.result <- base::tryCatch({
[17:26:51.127]         base::withCallingHandlers({
[17:26:51.127]             ...future.value <- base::withVisible(base::local({
[17:26:51.127]                 lm(weight ~ group - 1)
[17:26:51.127]             }))
[17:26:51.127]             future::FutureResult(value = ...future.value$value, 
[17:26:51.127]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.127]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.127]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.127]                     ...future.globalenv.names))
[17:26:51.127]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.127]         }, condition = base::local({
[17:26:51.127]             c <- base::c
[17:26:51.127]             inherits <- base::inherits
[17:26:51.127]             invokeRestart <- base::invokeRestart
[17:26:51.127]             length <- base::length
[17:26:51.127]             list <- base::list
[17:26:51.127]             seq.int <- base::seq.int
[17:26:51.127]             signalCondition <- base::signalCondition
[17:26:51.127]             sys.calls <- base::sys.calls
[17:26:51.127]             `[[` <- base::`[[`
[17:26:51.127]             `+` <- base::`+`
[17:26:51.127]             `<<-` <- base::`<<-`
[17:26:51.127]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.127]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.127]                   3L)]
[17:26:51.127]             }
[17:26:51.127]             function(cond) {
[17:26:51.127]                 is_error <- inherits(cond, "error")
[17:26:51.127]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.127]                   NULL)
[17:26:51.127]                 if (is_error) {
[17:26:51.127]                   sessionInformation <- function() {
[17:26:51.127]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.127]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.127]                       search = base::search(), system = base::Sys.info())
[17:26:51.127]                   }
[17:26:51.127]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.127]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.127]                     cond$call), session = sessionInformation(), 
[17:26:51.127]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.127]                   signalCondition(cond)
[17:26:51.127]                 }
[17:26:51.127]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.127]                 "immediateCondition"))) {
[17:26:51.127]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.127]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.127]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.127]                   if (TRUE && !signal) {
[17:26:51.127]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.127]                     {
[17:26:51.127]                       inherits <- base::inherits
[17:26:51.127]                       invokeRestart <- base::invokeRestart
[17:26:51.127]                       is.null <- base::is.null
[17:26:51.127]                       muffled <- FALSE
[17:26:51.127]                       if (inherits(cond, "message")) {
[17:26:51.127]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.127]                         if (muffled) 
[17:26:51.127]                           invokeRestart("muffleMessage")
[17:26:51.127]                       }
[17:26:51.127]                       else if (inherits(cond, "warning")) {
[17:26:51.127]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.127]                         if (muffled) 
[17:26:51.127]                           invokeRestart("muffleWarning")
[17:26:51.127]                       }
[17:26:51.127]                       else if (inherits(cond, "condition")) {
[17:26:51.127]                         if (!is.null(pattern)) {
[17:26:51.127]                           computeRestarts <- base::computeRestarts
[17:26:51.127]                           grepl <- base::grepl
[17:26:51.127]                           restarts <- computeRestarts(cond)
[17:26:51.127]                           for (restart in restarts) {
[17:26:51.127]                             name <- restart$name
[17:26:51.127]                             if (is.null(name)) 
[17:26:51.127]                               next
[17:26:51.127]                             if (!grepl(pattern, name)) 
[17:26:51.127]                               next
[17:26:51.127]                             invokeRestart(restart)
[17:26:51.127]                             muffled <- TRUE
[17:26:51.127]                             break
[17:26:51.127]                           }
[17:26:51.127]                         }
[17:26:51.127]                       }
[17:26:51.127]                       invisible(muffled)
[17:26:51.127]                     }
[17:26:51.127]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.127]                   }
[17:26:51.127]                 }
[17:26:51.127]                 else {
[17:26:51.127]                   if (TRUE) {
[17:26:51.127]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.127]                     {
[17:26:51.127]                       inherits <- base::inherits
[17:26:51.127]                       invokeRestart <- base::invokeRestart
[17:26:51.127]                       is.null <- base::is.null
[17:26:51.127]                       muffled <- FALSE
[17:26:51.127]                       if (inherits(cond, "message")) {
[17:26:51.127]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.127]                         if (muffled) 
[17:26:51.127]                           invokeRestart("muffleMessage")
[17:26:51.127]                       }
[17:26:51.127]                       else if (inherits(cond, "warning")) {
[17:26:51.127]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.127]                         if (muffled) 
[17:26:51.127]                           invokeRestart("muffleWarning")
[17:26:51.127]                       }
[17:26:51.127]                       else if (inherits(cond, "condition")) {
[17:26:51.127]                         if (!is.null(pattern)) {
[17:26:51.127]                           computeRestarts <- base::computeRestarts
[17:26:51.127]                           grepl <- base::grepl
[17:26:51.127]                           restarts <- computeRestarts(cond)
[17:26:51.127]                           for (restart in restarts) {
[17:26:51.127]                             name <- restart$name
[17:26:51.127]                             if (is.null(name)) 
[17:26:51.127]                               next
[17:26:51.127]                             if (!grepl(pattern, name)) 
[17:26:51.127]                               next
[17:26:51.127]                             invokeRestart(restart)
[17:26:51.127]                             muffled <- TRUE
[17:26:51.127]                             break
[17:26:51.127]                           }
[17:26:51.127]                         }
[17:26:51.127]                       }
[17:26:51.127]                       invisible(muffled)
[17:26:51.127]                     }
[17:26:51.127]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.127]                   }
[17:26:51.127]                 }
[17:26:51.127]             }
[17:26:51.127]         }))
[17:26:51.127]     }, error = function(ex) {
[17:26:51.127]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.127]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.127]                 ...future.rng), started = ...future.startTime, 
[17:26:51.127]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.127]             version = "1.8"), class = "FutureResult")
[17:26:51.127]     }, finally = {
[17:26:51.127]         if (!identical(...future.workdir, getwd())) 
[17:26:51.127]             setwd(...future.workdir)
[17:26:51.127]         {
[17:26:51.127]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.127]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.127]             }
[17:26:51.127]             base::options(...future.oldOptions)
[17:26:51.127]             if (.Platform$OS.type == "windows") {
[17:26:51.127]                 old_names <- names(...future.oldEnvVars)
[17:26:51.127]                 envs <- base::Sys.getenv()
[17:26:51.127]                 names <- names(envs)
[17:26:51.127]                 common <- intersect(names, old_names)
[17:26:51.127]                 added <- setdiff(names, old_names)
[17:26:51.127]                 removed <- setdiff(old_names, names)
[17:26:51.127]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.127]                   envs[common]]
[17:26:51.127]                 NAMES <- toupper(changed)
[17:26:51.127]                 args <- list()
[17:26:51.127]                 for (kk in seq_along(NAMES)) {
[17:26:51.127]                   name <- changed[[kk]]
[17:26:51.127]                   NAME <- NAMES[[kk]]
[17:26:51.127]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.127]                     next
[17:26:51.127]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.127]                 }
[17:26:51.127]                 NAMES <- toupper(added)
[17:26:51.127]                 for (kk in seq_along(NAMES)) {
[17:26:51.127]                   name <- added[[kk]]
[17:26:51.127]                   NAME <- NAMES[[kk]]
[17:26:51.127]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.127]                     next
[17:26:51.127]                   args[[name]] <- ""
[17:26:51.127]                 }
[17:26:51.127]                 NAMES <- toupper(removed)
[17:26:51.127]                 for (kk in seq_along(NAMES)) {
[17:26:51.127]                   name <- removed[[kk]]
[17:26:51.127]                   NAME <- NAMES[[kk]]
[17:26:51.127]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.127]                     next
[17:26:51.127]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.127]                 }
[17:26:51.127]                 if (length(args) > 0) 
[17:26:51.127]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.127]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.127]             }
[17:26:51.127]             else {
[17:26:51.127]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.127]             }
[17:26:51.127]             {
[17:26:51.127]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.127]                   0L) {
[17:26:51.127]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.127]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.127]                   base::options(opts)
[17:26:51.127]                 }
[17:26:51.127]                 {
[17:26:51.127]                   {
[17:26:51.127]                     NULL
[17:26:51.127]                     RNGkind("Mersenne-Twister")
[17:26:51.127]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.127]                       inherits = FALSE)
[17:26:51.127]                   }
[17:26:51.127]                   options(future.plan = NULL)
[17:26:51.127]                   if (is.na(NA_character_)) 
[17:26:51.127]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.127]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.127]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.127]                     .init = FALSE)
[17:26:51.127]                 }
[17:26:51.127]             }
[17:26:51.127]         }
[17:26:51.127]     })
[17:26:51.127]     if (TRUE) {
[17:26:51.127]         base::sink(type = "output", split = FALSE)
[17:26:51.127]         if (TRUE) {
[17:26:51.127]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.127]         }
[17:26:51.127]         else {
[17:26:51.127]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.127]         }
[17:26:51.127]         base::close(...future.stdout)
[17:26:51.127]         ...future.stdout <- NULL
[17:26:51.127]     }
[17:26:51.127]     ...future.result$conditions <- ...future.conditions
[17:26:51.127]     ...future.result$finished <- base::Sys.time()
[17:26:51.127]     ...future.result
[17:26:51.127] }
[17:26:51.131] assign_globals() ...
[17:26:51.131] List of 2
[17:26:51.131]  $ weight: num [1:20] 4.17 5.58 5.18 6.11 4.5 4.61 5.17 4.53 5.33 5.14 ...
[17:26:51.131]  $ group : Factor w/ 2 levels "Ctl","Trt": 1 1 1 1 1 1 1 1 1 1 ...
[17:26:51.131]  - attr(*, "where")=List of 2
[17:26:51.131]   ..$ weight:<environment: R_EmptyEnv> 
[17:26:51.131]   ..$ group :<environment: R_EmptyEnv> 
[17:26:51.131]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.131]  - attr(*, "resolved")= logi FALSE
[17:26:51.131]  - attr(*, "total_size")= num 896
[17:26:51.131]  - attr(*, "already-done")= logi TRUE
[17:26:51.135] - copied 'weight' to environment
[17:26:51.135] - copied 'group' to environment
[17:26:51.135] assign_globals() ... done
[17:26:51.136] plan(): Setting new future strategy stack:
[17:26:51.136] List of future strategies:
[17:26:51.136] 1. sequential:
[17:26:51.136]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.136]    - tweaked: FALSE
[17:26:51.136]    - call: NULL
[17:26:51.137] plan(): nbrOfWorkers() = 1
[17:26:51.139] plan(): Setting new future strategy stack:
[17:26:51.140] List of future strategies:
[17:26:51.140] 1. sequential:
[17:26:51.140]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.140]    - tweaked: FALSE
[17:26:51.140]    - call: plan(strategy)
[17:26:51.140] plan(): nbrOfWorkers() = 1
[17:26:51.140] SequentialFuture started (and completed)
[17:26:51.141] - Launch lazy future ... done
[17:26:51.141] run() for 'SequentialFuture' ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:51.146] getGlobalsAndPackages() ...
[17:26:51.146] Searching for globals...
[17:26:51.148] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:51.148] Searching for globals ... DONE
[17:26:51.148] Resolving globals: FALSE
[17:26:51.149] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:51.149] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:51.149] - globals: [2] 'weight', 'group'
[17:26:51.150] - packages: [1] 'stats'
[17:26:51.150] getGlobalsAndPackages() ... DONE
[17:26:51.150] run() for 'Future' ...
[17:26:51.150] - state: 'created'
[17:26:51.151] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.151] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.151] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.151]   - Field: 'label'
[17:26:51.152]   - Field: 'local'
[17:26:51.152]   - Field: 'owner'
[17:26:51.152]   - Field: 'envir'
[17:26:51.152]   - Field: 'packages'
[17:26:51.152]   - Field: 'gc'
[17:26:51.152]   - Field: 'conditions'
[17:26:51.153]   - Field: 'expr'
[17:26:51.153]   - Field: 'uuid'
[17:26:51.153]   - Field: 'seed'
[17:26:51.153]   - Field: 'version'
[17:26:51.153]   - Field: 'result'
[17:26:51.153]   - Field: 'asynchronous'
[17:26:51.154]   - Field: 'calls'
[17:26:51.154]   - Field: 'globals'
[17:26:51.154]   - Field: 'stdout'
[17:26:51.154]   - Field: 'earlySignal'
[17:26:51.154]   - Field: 'lazy'
[17:26:51.154]   - Field: 'state'
[17:26:51.155] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.155] - Launch lazy future ...
[17:26:51.155] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.155] Packages needed by future strategies (n = 0): <none>
[17:26:51.156] {
[17:26:51.156]     {
[17:26:51.156]         {
[17:26:51.156]             ...future.startTime <- base::Sys.time()
[17:26:51.156]             {
[17:26:51.156]                 {
[17:26:51.156]                   {
[17:26:51.156]                     {
[17:26:51.156]                       base::local({
[17:26:51.156]                         has_future <- base::requireNamespace("future", 
[17:26:51.156]                           quietly = TRUE)
[17:26:51.156]                         if (has_future) {
[17:26:51.156]                           ns <- base::getNamespace("future")
[17:26:51.156]                           version <- ns[[".package"]][["version"]]
[17:26:51.156]                           if (is.null(version)) 
[17:26:51.156]                             version <- utils::packageVersion("future")
[17:26:51.156]                         }
[17:26:51.156]                         else {
[17:26:51.156]                           version <- NULL
[17:26:51.156]                         }
[17:26:51.156]                         if (!has_future || version < "1.8.0") {
[17:26:51.156]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.156]                             "", base::R.version$version.string), 
[17:26:51.156]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.156]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.156]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.156]                               "release", "version")], collapse = " "), 
[17:26:51.156]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.156]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.156]                             info)
[17:26:51.156]                           info <- base::paste(info, collapse = "; ")
[17:26:51.156]                           if (!has_future) {
[17:26:51.156]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.156]                               info)
[17:26:51.156]                           }
[17:26:51.156]                           else {
[17:26:51.156]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.156]                               info, version)
[17:26:51.156]                           }
[17:26:51.156]                           base::stop(msg)
[17:26:51.156]                         }
[17:26:51.156]                       })
[17:26:51.156]                     }
[17:26:51.156]                     base::local({
[17:26:51.156]                       for (pkg in "stats") {
[17:26:51.156]                         base::loadNamespace(pkg)
[17:26:51.156]                         base::library(pkg, character.only = TRUE)
[17:26:51.156]                       }
[17:26:51.156]                     })
[17:26:51.156]                   }
[17:26:51.156]                   ...future.strategy.old <- future::plan("list")
[17:26:51.156]                   options(future.plan = NULL)
[17:26:51.156]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.156]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.156]                 }
[17:26:51.156]                 ...future.workdir <- getwd()
[17:26:51.156]             }
[17:26:51.156]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.156]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.156]         }
[17:26:51.156]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.156]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.156]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.156]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.156]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.156]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.156]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.156]             base::names(...future.oldOptions))
[17:26:51.156]     }
[17:26:51.156]     if (FALSE) {
[17:26:51.156]     }
[17:26:51.156]     else {
[17:26:51.156]         if (TRUE) {
[17:26:51.156]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.156]                 open = "w")
[17:26:51.156]         }
[17:26:51.156]         else {
[17:26:51.156]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.156]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.156]         }
[17:26:51.156]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.156]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.156]             base::sink(type = "output", split = FALSE)
[17:26:51.156]             base::close(...future.stdout)
[17:26:51.156]         }, add = TRUE)
[17:26:51.156]     }
[17:26:51.156]     ...future.frame <- base::sys.nframe()
[17:26:51.156]     ...future.conditions <- base::list()
[17:26:51.156]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.156]     if (FALSE) {
[17:26:51.156]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.156]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.156]     }
[17:26:51.156]     ...future.result <- base::tryCatch({
[17:26:51.156]         base::withCallingHandlers({
[17:26:51.156]             ...future.value <- base::withVisible(base::local({
[17:26:51.156]                 lm(weight ~ group - 1)
[17:26:51.156]             }))
[17:26:51.156]             future::FutureResult(value = ...future.value$value, 
[17:26:51.156]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.156]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.156]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.156]                     ...future.globalenv.names))
[17:26:51.156]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.156]         }, condition = base::local({
[17:26:51.156]             c <- base::c
[17:26:51.156]             inherits <- base::inherits
[17:26:51.156]             invokeRestart <- base::invokeRestart
[17:26:51.156]             length <- base::length
[17:26:51.156]             list <- base::list
[17:26:51.156]             seq.int <- base::seq.int
[17:26:51.156]             signalCondition <- base::signalCondition
[17:26:51.156]             sys.calls <- base::sys.calls
[17:26:51.156]             `[[` <- base::`[[`
[17:26:51.156]             `+` <- base::`+`
[17:26:51.156]             `<<-` <- base::`<<-`
[17:26:51.156]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.156]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.156]                   3L)]
[17:26:51.156]             }
[17:26:51.156]             function(cond) {
[17:26:51.156]                 is_error <- inherits(cond, "error")
[17:26:51.156]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.156]                   NULL)
[17:26:51.156]                 if (is_error) {
[17:26:51.156]                   sessionInformation <- function() {
[17:26:51.156]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.156]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.156]                       search = base::search(), system = base::Sys.info())
[17:26:51.156]                   }
[17:26:51.156]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.156]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.156]                     cond$call), session = sessionInformation(), 
[17:26:51.156]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.156]                   signalCondition(cond)
[17:26:51.156]                 }
[17:26:51.156]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.156]                 "immediateCondition"))) {
[17:26:51.156]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.156]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.156]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.156]                   if (TRUE && !signal) {
[17:26:51.156]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.156]                     {
[17:26:51.156]                       inherits <- base::inherits
[17:26:51.156]                       invokeRestart <- base::invokeRestart
[17:26:51.156]                       is.null <- base::is.null
[17:26:51.156]                       muffled <- FALSE
[17:26:51.156]                       if (inherits(cond, "message")) {
[17:26:51.156]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.156]                         if (muffled) 
[17:26:51.156]                           invokeRestart("muffleMessage")
[17:26:51.156]                       }
[17:26:51.156]                       else if (inherits(cond, "warning")) {
[17:26:51.156]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.156]                         if (muffled) 
[17:26:51.156]                           invokeRestart("muffleWarning")
[17:26:51.156]                       }
[17:26:51.156]                       else if (inherits(cond, "condition")) {
[17:26:51.156]                         if (!is.null(pattern)) {
[17:26:51.156]                           computeRestarts <- base::computeRestarts
[17:26:51.156]                           grepl <- base::grepl
[17:26:51.156]                           restarts <- computeRestarts(cond)
[17:26:51.156]                           for (restart in restarts) {
[17:26:51.156]                             name <- restart$name
[17:26:51.156]                             if (is.null(name)) 
[17:26:51.156]                               next
[17:26:51.156]                             if (!grepl(pattern, name)) 
[17:26:51.156]                               next
[17:26:51.156]                             invokeRestart(restart)
[17:26:51.156]                             muffled <- TRUE
[17:26:51.156]                             break
[17:26:51.156]                           }
[17:26:51.156]                         }
[17:26:51.156]                       }
[17:26:51.156]                       invisible(muffled)
[17:26:51.156]                     }
[17:26:51.156]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.156]                   }
[17:26:51.156]                 }
[17:26:51.156]                 else {
[17:26:51.156]                   if (TRUE) {
[17:26:51.156]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.156]                     {
[17:26:51.156]                       inherits <- base::inherits
[17:26:51.156]                       invokeRestart <- base::invokeRestart
[17:26:51.156]                       is.null <- base::is.null
[17:26:51.156]                       muffled <- FALSE
[17:26:51.156]                       if (inherits(cond, "message")) {
[17:26:51.156]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.156]                         if (muffled) 
[17:26:51.156]                           invokeRestart("muffleMessage")
[17:26:51.156]                       }
[17:26:51.156]                       else if (inherits(cond, "warning")) {
[17:26:51.156]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.156]                         if (muffled) 
[17:26:51.156]                           invokeRestart("muffleWarning")
[17:26:51.156]                       }
[17:26:51.156]                       else if (inherits(cond, "condition")) {
[17:26:51.156]                         if (!is.null(pattern)) {
[17:26:51.156]                           computeRestarts <- base::computeRestarts
[17:26:51.156]                           grepl <- base::grepl
[17:26:51.156]                           restarts <- computeRestarts(cond)
[17:26:51.156]                           for (restart in restarts) {
[17:26:51.156]                             name <- restart$name
[17:26:51.156]                             if (is.null(name)) 
[17:26:51.156]                               next
[17:26:51.156]                             if (!grepl(pattern, name)) 
[17:26:51.156]                               next
[17:26:51.156]                             invokeRestart(restart)
[17:26:51.156]                             muffled <- TRUE
[17:26:51.156]                             break
[17:26:51.156]                           }
[17:26:51.156]                         }
[17:26:51.156]                       }
[17:26:51.156]                       invisible(muffled)
[17:26:51.156]                     }
[17:26:51.156]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.156]                   }
[17:26:51.156]                 }
[17:26:51.156]             }
[17:26:51.156]         }))
[17:26:51.156]     }, error = function(ex) {
[17:26:51.156]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.156]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.156]                 ...future.rng), started = ...future.startTime, 
[17:26:51.156]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.156]             version = "1.8"), class = "FutureResult")
[17:26:51.156]     }, finally = {
[17:26:51.156]         if (!identical(...future.workdir, getwd())) 
[17:26:51.156]             setwd(...future.workdir)
[17:26:51.156]         {
[17:26:51.156]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.156]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.156]             }
[17:26:51.156]             base::options(...future.oldOptions)
[17:26:51.156]             if (.Platform$OS.type == "windows") {
[17:26:51.156]                 old_names <- names(...future.oldEnvVars)
[17:26:51.156]                 envs <- base::Sys.getenv()
[17:26:51.156]                 names <- names(envs)
[17:26:51.156]                 common <- intersect(names, old_names)
[17:26:51.156]                 added <- setdiff(names, old_names)
[17:26:51.156]                 removed <- setdiff(old_names, names)
[17:26:51.156]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.156]                   envs[common]]
[17:26:51.156]                 NAMES <- toupper(changed)
[17:26:51.156]                 args <- list()
[17:26:51.156]                 for (kk in seq_along(NAMES)) {
[17:26:51.156]                   name <- changed[[kk]]
[17:26:51.156]                   NAME <- NAMES[[kk]]
[17:26:51.156]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.156]                     next
[17:26:51.156]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.156]                 }
[17:26:51.156]                 NAMES <- toupper(added)
[17:26:51.156]                 for (kk in seq_along(NAMES)) {
[17:26:51.156]                   name <- added[[kk]]
[17:26:51.156]                   NAME <- NAMES[[kk]]
[17:26:51.156]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.156]                     next
[17:26:51.156]                   args[[name]] <- ""
[17:26:51.156]                 }
[17:26:51.156]                 NAMES <- toupper(removed)
[17:26:51.156]                 for (kk in seq_along(NAMES)) {
[17:26:51.156]                   name <- removed[[kk]]
[17:26:51.156]                   NAME <- NAMES[[kk]]
[17:26:51.156]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.156]                     next
[17:26:51.156]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.156]                 }
[17:26:51.156]                 if (length(args) > 0) 
[17:26:51.156]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.156]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.156]             }
[17:26:51.156]             else {
[17:26:51.156]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.156]             }
[17:26:51.156]             {
[17:26:51.156]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.156]                   0L) {
[17:26:51.156]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.156]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.156]                   base::options(opts)
[17:26:51.156]                 }
[17:26:51.156]                 {
[17:26:51.156]                   {
[17:26:51.156]                     NULL
[17:26:51.156]                     RNGkind("Mersenne-Twister")
[17:26:51.156]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.156]                       inherits = FALSE)
[17:26:51.156]                   }
[17:26:51.156]                   options(future.plan = NULL)
[17:26:51.156]                   if (is.na(NA_character_)) 
[17:26:51.156]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.156]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.156]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.156]                     .init = FALSE)
[17:26:51.156]                 }
[17:26:51.156]             }
[17:26:51.156]         }
[17:26:51.156]     })
[17:26:51.156]     if (TRUE) {
[17:26:51.156]         base::sink(type = "output", split = FALSE)
[17:26:51.156]         if (TRUE) {
[17:26:51.156]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.156]         }
[17:26:51.156]         else {
[17:26:51.156]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.156]         }
[17:26:51.156]         base::close(...future.stdout)
[17:26:51.156]         ...future.stdout <- NULL
[17:26:51.156]     }
[17:26:51.156]     ...future.result$conditions <- ...future.conditions
[17:26:51.156]     ...future.result$finished <- base::Sys.time()
[17:26:51.156]     ...future.result
[17:26:51.156] }
[17:26:51.160] assign_globals() ...
[17:26:51.160] List of 2
[17:26:51.160]  $ weight: num [1:20] 4.17 5.58 5.18 6.11 4.5 4.61 5.17 4.53 5.33 5.14 ...
[17:26:51.160]  $ group : Factor w/ 2 levels "Ctl","Trt": 1 1 1 1 1 1 1 1 1 1 ...
[17:26:51.160]  - attr(*, "where")=List of 2
[17:26:51.160]   ..$ weight:<environment: R_EmptyEnv> 
[17:26:51.160]   ..$ group :<environment: R_EmptyEnv> 
[17:26:51.160]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.160]  - attr(*, "resolved")= logi FALSE
[17:26:51.160]  - attr(*, "total_size")= num 896
[17:26:51.160]  - attr(*, "already-done")= logi TRUE
[17:26:51.164] - copied 'weight' to environment
[17:26:51.164] - copied 'group' to environment
[17:26:51.164] assign_globals() ... done
[17:26:51.165] plan(): Setting new future strategy stack:
[17:26:51.165] List of future strategies:
[17:26:51.165] 1. sequential:
[17:26:51.165]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.165]    - tweaked: FALSE
[17:26:51.165]    - call: NULL
[17:26:51.165] plan(): nbrOfWorkers() = 1
[17:26:51.167] plan(): Setting new future strategy stack:
[17:26:51.168] List of future strategies:
[17:26:51.168] 1. sequential:
[17:26:51.168]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.168]    - tweaked: FALSE
[17:26:51.168]    - call: plan(strategy)
[17:26:51.168] plan(): nbrOfWorkers() = 1
[17:26:51.168] SequentialFuture started (and completed)
[17:26:51.169] - Launch lazy future ... done
[17:26:51.169] run() for 'SequentialFuture' ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:51.172] getGlobalsAndPackages() ...
[17:26:51.172] Searching for globals...
[17:26:51.174] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:51.175] Searching for globals ... DONE
[17:26:51.175] Resolving globals: FALSE
[17:26:51.175] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:51.176] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:51.176] - globals: [2] 'weight', 'group'
[17:26:51.176] - packages: [1] 'stats'
[17:26:51.176] getGlobalsAndPackages() ... DONE
[17:26:51.177] run() for 'Future' ...
[17:26:51.177] - state: 'created'
[17:26:51.177] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.178] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.178] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.178]   - Field: 'label'
[17:26:51.178]   - Field: 'local'
[17:26:51.178]   - Field: 'owner'
[17:26:51.178]   - Field: 'envir'
[17:26:51.179]   - Field: 'packages'
[17:26:51.179]   - Field: 'gc'
[17:26:51.179]   - Field: 'conditions'
[17:26:51.179]   - Field: 'expr'
[17:26:51.179]   - Field: 'uuid'
[17:26:51.180]   - Field: 'seed'
[17:26:51.180]   - Field: 'version'
[17:26:51.180]   - Field: 'result'
[17:26:51.180]   - Field: 'asynchronous'
[17:26:51.180]   - Field: 'calls'
[17:26:51.180]   - Field: 'globals'
[17:26:51.181]   - Field: 'stdout'
[17:26:51.181]   - Field: 'earlySignal'
[17:26:51.181]   - Field: 'lazy'
[17:26:51.181]   - Field: 'state'
[17:26:51.181] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.181] - Launch lazy future ...
[17:26:51.182] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.182] Packages needed by future strategies (n = 0): <none>
[17:26:51.182] {
[17:26:51.182]     {
[17:26:51.182]         {
[17:26:51.182]             ...future.startTime <- base::Sys.time()
[17:26:51.182]             {
[17:26:51.182]                 {
[17:26:51.182]                   {
[17:26:51.182]                     {
[17:26:51.182]                       base::local({
[17:26:51.182]                         has_future <- base::requireNamespace("future", 
[17:26:51.182]                           quietly = TRUE)
[17:26:51.182]                         if (has_future) {
[17:26:51.182]                           ns <- base::getNamespace("future")
[17:26:51.182]                           version <- ns[[".package"]][["version"]]
[17:26:51.182]                           if (is.null(version)) 
[17:26:51.182]                             version <- utils::packageVersion("future")
[17:26:51.182]                         }
[17:26:51.182]                         else {
[17:26:51.182]                           version <- NULL
[17:26:51.182]                         }
[17:26:51.182]                         if (!has_future || version < "1.8.0") {
[17:26:51.182]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.182]                             "", base::R.version$version.string), 
[17:26:51.182]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.182]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.182]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.182]                               "release", "version")], collapse = " "), 
[17:26:51.182]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.182]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.182]                             info)
[17:26:51.182]                           info <- base::paste(info, collapse = "; ")
[17:26:51.182]                           if (!has_future) {
[17:26:51.182]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.182]                               info)
[17:26:51.182]                           }
[17:26:51.182]                           else {
[17:26:51.182]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.182]                               info, version)
[17:26:51.182]                           }
[17:26:51.182]                           base::stop(msg)
[17:26:51.182]                         }
[17:26:51.182]                       })
[17:26:51.182]                     }
[17:26:51.182]                     base::local({
[17:26:51.182]                       for (pkg in "stats") {
[17:26:51.182]                         base::loadNamespace(pkg)
[17:26:51.182]                         base::library(pkg, character.only = TRUE)
[17:26:51.182]                       }
[17:26:51.182]                     })
[17:26:51.182]                   }
[17:26:51.182]                   ...future.strategy.old <- future::plan("list")
[17:26:51.182]                   options(future.plan = NULL)
[17:26:51.182]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.182]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.182]                 }
[17:26:51.182]                 ...future.workdir <- getwd()
[17:26:51.182]             }
[17:26:51.182]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.182]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.182]         }
[17:26:51.182]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.182]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.182]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.182]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.182]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.182]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.182]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.182]             base::names(...future.oldOptions))
[17:26:51.182]     }
[17:26:51.182]     if (FALSE) {
[17:26:51.182]     }
[17:26:51.182]     else {
[17:26:51.182]         if (TRUE) {
[17:26:51.182]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.182]                 open = "w")
[17:26:51.182]         }
[17:26:51.182]         else {
[17:26:51.182]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.182]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.182]         }
[17:26:51.182]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.182]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.182]             base::sink(type = "output", split = FALSE)
[17:26:51.182]             base::close(...future.stdout)
[17:26:51.182]         }, add = TRUE)
[17:26:51.182]     }
[17:26:51.182]     ...future.frame <- base::sys.nframe()
[17:26:51.182]     ...future.conditions <- base::list()
[17:26:51.182]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.182]     if (FALSE) {
[17:26:51.182]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.182]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.182]     }
[17:26:51.182]     ...future.result <- base::tryCatch({
[17:26:51.182]         base::withCallingHandlers({
[17:26:51.182]             ...future.value <- base::withVisible(base::local({
[17:26:51.182]                 lm(weight ~ group - 1)
[17:26:51.182]             }))
[17:26:51.182]             future::FutureResult(value = ...future.value$value, 
[17:26:51.182]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.182]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.182]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.182]                     ...future.globalenv.names))
[17:26:51.182]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.182]         }, condition = base::local({
[17:26:51.182]             c <- base::c
[17:26:51.182]             inherits <- base::inherits
[17:26:51.182]             invokeRestart <- base::invokeRestart
[17:26:51.182]             length <- base::length
[17:26:51.182]             list <- base::list
[17:26:51.182]             seq.int <- base::seq.int
[17:26:51.182]             signalCondition <- base::signalCondition
[17:26:51.182]             sys.calls <- base::sys.calls
[17:26:51.182]             `[[` <- base::`[[`
[17:26:51.182]             `+` <- base::`+`
[17:26:51.182]             `<<-` <- base::`<<-`
[17:26:51.182]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.182]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.182]                   3L)]
[17:26:51.182]             }
[17:26:51.182]             function(cond) {
[17:26:51.182]                 is_error <- inherits(cond, "error")
[17:26:51.182]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.182]                   NULL)
[17:26:51.182]                 if (is_error) {
[17:26:51.182]                   sessionInformation <- function() {
[17:26:51.182]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.182]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.182]                       search = base::search(), system = base::Sys.info())
[17:26:51.182]                   }
[17:26:51.182]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.182]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.182]                     cond$call), session = sessionInformation(), 
[17:26:51.182]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.182]                   signalCondition(cond)
[17:26:51.182]                 }
[17:26:51.182]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.182]                 "immediateCondition"))) {
[17:26:51.182]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.182]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.182]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.182]                   if (TRUE && !signal) {
[17:26:51.182]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.182]                     {
[17:26:51.182]                       inherits <- base::inherits
[17:26:51.182]                       invokeRestart <- base::invokeRestart
[17:26:51.182]                       is.null <- base::is.null
[17:26:51.182]                       muffled <- FALSE
[17:26:51.182]                       if (inherits(cond, "message")) {
[17:26:51.182]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.182]                         if (muffled) 
[17:26:51.182]                           invokeRestart("muffleMessage")
[17:26:51.182]                       }
[17:26:51.182]                       else if (inherits(cond, "warning")) {
[17:26:51.182]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.182]                         if (muffled) 
[17:26:51.182]                           invokeRestart("muffleWarning")
[17:26:51.182]                       }
[17:26:51.182]                       else if (inherits(cond, "condition")) {
[17:26:51.182]                         if (!is.null(pattern)) {
[17:26:51.182]                           computeRestarts <- base::computeRestarts
[17:26:51.182]                           grepl <- base::grepl
[17:26:51.182]                           restarts <- computeRestarts(cond)
[17:26:51.182]                           for (restart in restarts) {
[17:26:51.182]                             name <- restart$name
[17:26:51.182]                             if (is.null(name)) 
[17:26:51.182]                               next
[17:26:51.182]                             if (!grepl(pattern, name)) 
[17:26:51.182]                               next
[17:26:51.182]                             invokeRestart(restart)
[17:26:51.182]                             muffled <- TRUE
[17:26:51.182]                             break
[17:26:51.182]                           }
[17:26:51.182]                         }
[17:26:51.182]                       }
[17:26:51.182]                       invisible(muffled)
[17:26:51.182]                     }
[17:26:51.182]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.182]                   }
[17:26:51.182]                 }
[17:26:51.182]                 else {
[17:26:51.182]                   if (TRUE) {
[17:26:51.182]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.182]                     {
[17:26:51.182]                       inherits <- base::inherits
[17:26:51.182]                       invokeRestart <- base::invokeRestart
[17:26:51.182]                       is.null <- base::is.null
[17:26:51.182]                       muffled <- FALSE
[17:26:51.182]                       if (inherits(cond, "message")) {
[17:26:51.182]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.182]                         if (muffled) 
[17:26:51.182]                           invokeRestart("muffleMessage")
[17:26:51.182]                       }
[17:26:51.182]                       else if (inherits(cond, "warning")) {
[17:26:51.182]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.182]                         if (muffled) 
[17:26:51.182]                           invokeRestart("muffleWarning")
[17:26:51.182]                       }
[17:26:51.182]                       else if (inherits(cond, "condition")) {
[17:26:51.182]                         if (!is.null(pattern)) {
[17:26:51.182]                           computeRestarts <- base::computeRestarts
[17:26:51.182]                           grepl <- base::grepl
[17:26:51.182]                           restarts <- computeRestarts(cond)
[17:26:51.182]                           for (restart in restarts) {
[17:26:51.182]                             name <- restart$name
[17:26:51.182]                             if (is.null(name)) 
[17:26:51.182]                               next
[17:26:51.182]                             if (!grepl(pattern, name)) 
[17:26:51.182]                               next
[17:26:51.182]                             invokeRestart(restart)
[17:26:51.182]                             muffled <- TRUE
[17:26:51.182]                             break
[17:26:51.182]                           }
[17:26:51.182]                         }
[17:26:51.182]                       }
[17:26:51.182]                       invisible(muffled)
[17:26:51.182]                     }
[17:26:51.182]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.182]                   }
[17:26:51.182]                 }
[17:26:51.182]             }
[17:26:51.182]         }))
[17:26:51.182]     }, error = function(ex) {
[17:26:51.182]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.182]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.182]                 ...future.rng), started = ...future.startTime, 
[17:26:51.182]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.182]             version = "1.8"), class = "FutureResult")
[17:26:51.182]     }, finally = {
[17:26:51.182]         if (!identical(...future.workdir, getwd())) 
[17:26:51.182]             setwd(...future.workdir)
[17:26:51.182]         {
[17:26:51.182]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.182]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.182]             }
[17:26:51.182]             base::options(...future.oldOptions)
[17:26:51.182]             if (.Platform$OS.type == "windows") {
[17:26:51.182]                 old_names <- names(...future.oldEnvVars)
[17:26:51.182]                 envs <- base::Sys.getenv()
[17:26:51.182]                 names <- names(envs)
[17:26:51.182]                 common <- intersect(names, old_names)
[17:26:51.182]                 added <- setdiff(names, old_names)
[17:26:51.182]                 removed <- setdiff(old_names, names)
[17:26:51.182]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.182]                   envs[common]]
[17:26:51.182]                 NAMES <- toupper(changed)
[17:26:51.182]                 args <- list()
[17:26:51.182]                 for (kk in seq_along(NAMES)) {
[17:26:51.182]                   name <- changed[[kk]]
[17:26:51.182]                   NAME <- NAMES[[kk]]
[17:26:51.182]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.182]                     next
[17:26:51.182]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.182]                 }
[17:26:51.182]                 NAMES <- toupper(added)
[17:26:51.182]                 for (kk in seq_along(NAMES)) {
[17:26:51.182]                   name <- added[[kk]]
[17:26:51.182]                   NAME <- NAMES[[kk]]
[17:26:51.182]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.182]                     next
[17:26:51.182]                   args[[name]] <- ""
[17:26:51.182]                 }
[17:26:51.182]                 NAMES <- toupper(removed)
[17:26:51.182]                 for (kk in seq_along(NAMES)) {
[17:26:51.182]                   name <- removed[[kk]]
[17:26:51.182]                   NAME <- NAMES[[kk]]
[17:26:51.182]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.182]                     next
[17:26:51.182]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.182]                 }
[17:26:51.182]                 if (length(args) > 0) 
[17:26:51.182]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.182]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.182]             }
[17:26:51.182]             else {
[17:26:51.182]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.182]             }
[17:26:51.182]             {
[17:26:51.182]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.182]                   0L) {
[17:26:51.182]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.182]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.182]                   base::options(opts)
[17:26:51.182]                 }
[17:26:51.182]                 {
[17:26:51.182]                   {
[17:26:51.182]                     NULL
[17:26:51.182]                     RNGkind("Mersenne-Twister")
[17:26:51.182]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.182]                       inherits = FALSE)
[17:26:51.182]                   }
[17:26:51.182]                   options(future.plan = NULL)
[17:26:51.182]                   if (is.na(NA_character_)) 
[17:26:51.182]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.182]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.182]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.182]                     .init = FALSE)
[17:26:51.182]                 }
[17:26:51.182]             }
[17:26:51.182]         }
[17:26:51.182]     })
[17:26:51.182]     if (TRUE) {
[17:26:51.182]         base::sink(type = "output", split = FALSE)
[17:26:51.182]         if (TRUE) {
[17:26:51.182]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.182]         }
[17:26:51.182]         else {
[17:26:51.182]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.182]         }
[17:26:51.182]         base::close(...future.stdout)
[17:26:51.182]         ...future.stdout <- NULL
[17:26:51.182]     }
[17:26:51.182]     ...future.result$conditions <- ...future.conditions
[17:26:51.182]     ...future.result$finished <- base::Sys.time()
[17:26:51.182]     ...future.result
[17:26:51.182] }
[17:26:51.186] assign_globals() ...
[17:26:51.186] List of 2
[17:26:51.186]  $ weight: num [1:20] 4.17 5.58 5.18 6.11 4.5 4.61 5.17 4.53 5.33 5.14 ...
[17:26:51.186]  $ group : Factor w/ 2 levels "Ctl","Trt": 1 1 1 1 1 1 1 1 1 1 ...
[17:26:51.186]  - attr(*, "where")=List of 2
[17:26:51.186]   ..$ weight:<environment: R_EmptyEnv> 
[17:26:51.186]   ..$ group :<environment: R_EmptyEnv> 
[17:26:51.186]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.186]  - attr(*, "resolved")= logi FALSE
[17:26:51.186]  - attr(*, "total_size")= num 896
[17:26:51.186]  - attr(*, "already-done")= logi TRUE
[17:26:51.190] - copied 'weight' to environment
[17:26:51.190] - copied 'group' to environment
[17:26:51.191] assign_globals() ... done
[17:26:51.191] plan(): Setting new future strategy stack:
[17:26:51.191] List of future strategies:
[17:26:51.191] 1. sequential:
[17:26:51.191]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.191]    - tweaked: FALSE
[17:26:51.191]    - call: NULL
[17:26:51.192] plan(): nbrOfWorkers() = 1
[17:26:51.194] plan(): Setting new future strategy stack:
[17:26:51.194] List of future strategies:
[17:26:51.194] 1. sequential:
[17:26:51.194]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.194]    - tweaked: FALSE
[17:26:51.194]    - call: plan(strategy)
[17:26:51.195] plan(): nbrOfWorkers() = 1
[17:26:51.195] SequentialFuture started (and completed)
[17:26:51.195] - Launch lazy future ... done
[17:26:51.195] run() for 'SequentialFuture' ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:51.197] getGlobalsAndPackages() ...
[17:26:51.197] Searching for globals...
[17:26:51.199] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:51.199] Searching for globals ... DONE
[17:26:51.200] Resolving globals: FALSE
[17:26:51.201] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:51.201] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:51.202] - globals: [2] 'weight', 'group'
[17:26:51.202] - packages: [1] 'stats'
[17:26:51.202] getGlobalsAndPackages() ... DONE
[17:26:51.202] run() for 'Future' ...
[17:26:51.203] - state: 'created'
[17:26:51.203] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.203] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.203] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.203]   - Field: 'label'
[17:26:51.204]   - Field: 'local'
[17:26:51.204]   - Field: 'owner'
[17:26:51.204]   - Field: 'envir'
[17:26:51.204]   - Field: 'packages'
[17:26:51.204]   - Field: 'gc'
[17:26:51.204]   - Field: 'conditions'
[17:26:51.205]   - Field: 'expr'
[17:26:51.205]   - Field: 'uuid'
[17:26:51.205]   - Field: 'seed'
[17:26:51.205]   - Field: 'version'
[17:26:51.205]   - Field: 'result'
[17:26:51.206]   - Field: 'asynchronous'
[17:26:51.206]   - Field: 'calls'
[17:26:51.206]   - Field: 'globals'
[17:26:51.206]   - Field: 'stdout'
[17:26:51.206]   - Field: 'earlySignal'
[17:26:51.206]   - Field: 'lazy'
[17:26:51.207]   - Field: 'state'
[17:26:51.207] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.207] - Launch lazy future ...
[17:26:51.207] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.207] Packages needed by future strategies (n = 0): <none>
[17:26:51.208] {
[17:26:51.208]     {
[17:26:51.208]         {
[17:26:51.208]             ...future.startTime <- base::Sys.time()
[17:26:51.208]             {
[17:26:51.208]                 {
[17:26:51.208]                   {
[17:26:51.208]                     {
[17:26:51.208]                       base::local({
[17:26:51.208]                         has_future <- base::requireNamespace("future", 
[17:26:51.208]                           quietly = TRUE)
[17:26:51.208]                         if (has_future) {
[17:26:51.208]                           ns <- base::getNamespace("future")
[17:26:51.208]                           version <- ns[[".package"]][["version"]]
[17:26:51.208]                           if (is.null(version)) 
[17:26:51.208]                             version <- utils::packageVersion("future")
[17:26:51.208]                         }
[17:26:51.208]                         else {
[17:26:51.208]                           version <- NULL
[17:26:51.208]                         }
[17:26:51.208]                         if (!has_future || version < "1.8.0") {
[17:26:51.208]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.208]                             "", base::R.version$version.string), 
[17:26:51.208]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.208]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.208]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.208]                               "release", "version")], collapse = " "), 
[17:26:51.208]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.208]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.208]                             info)
[17:26:51.208]                           info <- base::paste(info, collapse = "; ")
[17:26:51.208]                           if (!has_future) {
[17:26:51.208]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.208]                               info)
[17:26:51.208]                           }
[17:26:51.208]                           else {
[17:26:51.208]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.208]                               info, version)
[17:26:51.208]                           }
[17:26:51.208]                           base::stop(msg)
[17:26:51.208]                         }
[17:26:51.208]                       })
[17:26:51.208]                     }
[17:26:51.208]                     base::local({
[17:26:51.208]                       for (pkg in "stats") {
[17:26:51.208]                         base::loadNamespace(pkg)
[17:26:51.208]                         base::library(pkg, character.only = TRUE)
[17:26:51.208]                       }
[17:26:51.208]                     })
[17:26:51.208]                   }
[17:26:51.208]                   ...future.strategy.old <- future::plan("list")
[17:26:51.208]                   options(future.plan = NULL)
[17:26:51.208]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.208]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.208]                 }
[17:26:51.208]                 ...future.workdir <- getwd()
[17:26:51.208]             }
[17:26:51.208]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.208]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.208]         }
[17:26:51.208]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.208]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.208]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.208]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.208]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.208]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.208]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.208]             base::names(...future.oldOptions))
[17:26:51.208]     }
[17:26:51.208]     if (FALSE) {
[17:26:51.208]     }
[17:26:51.208]     else {
[17:26:51.208]         if (TRUE) {
[17:26:51.208]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.208]                 open = "w")
[17:26:51.208]         }
[17:26:51.208]         else {
[17:26:51.208]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.208]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.208]         }
[17:26:51.208]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.208]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.208]             base::sink(type = "output", split = FALSE)
[17:26:51.208]             base::close(...future.stdout)
[17:26:51.208]         }, add = TRUE)
[17:26:51.208]     }
[17:26:51.208]     ...future.frame <- base::sys.nframe()
[17:26:51.208]     ...future.conditions <- base::list()
[17:26:51.208]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.208]     if (FALSE) {
[17:26:51.208]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.208]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.208]     }
[17:26:51.208]     ...future.result <- base::tryCatch({
[17:26:51.208]         base::withCallingHandlers({
[17:26:51.208]             ...future.value <- base::withVisible(base::local({
[17:26:51.208]                 lm(weight ~ group - 1)
[17:26:51.208]             }))
[17:26:51.208]             future::FutureResult(value = ...future.value$value, 
[17:26:51.208]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.208]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.208]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.208]                     ...future.globalenv.names))
[17:26:51.208]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.208]         }, condition = base::local({
[17:26:51.208]             c <- base::c
[17:26:51.208]             inherits <- base::inherits
[17:26:51.208]             invokeRestart <- base::invokeRestart
[17:26:51.208]             length <- base::length
[17:26:51.208]             list <- base::list
[17:26:51.208]             seq.int <- base::seq.int
[17:26:51.208]             signalCondition <- base::signalCondition
[17:26:51.208]             sys.calls <- base::sys.calls
[17:26:51.208]             `[[` <- base::`[[`
[17:26:51.208]             `+` <- base::`+`
[17:26:51.208]             `<<-` <- base::`<<-`
[17:26:51.208]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.208]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.208]                   3L)]
[17:26:51.208]             }
[17:26:51.208]             function(cond) {
[17:26:51.208]                 is_error <- inherits(cond, "error")
[17:26:51.208]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.208]                   NULL)
[17:26:51.208]                 if (is_error) {
[17:26:51.208]                   sessionInformation <- function() {
[17:26:51.208]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.208]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.208]                       search = base::search(), system = base::Sys.info())
[17:26:51.208]                   }
[17:26:51.208]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.208]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.208]                     cond$call), session = sessionInformation(), 
[17:26:51.208]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.208]                   signalCondition(cond)
[17:26:51.208]                 }
[17:26:51.208]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.208]                 "immediateCondition"))) {
[17:26:51.208]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.208]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.208]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.208]                   if (TRUE && !signal) {
[17:26:51.208]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.208]                     {
[17:26:51.208]                       inherits <- base::inherits
[17:26:51.208]                       invokeRestart <- base::invokeRestart
[17:26:51.208]                       is.null <- base::is.null
[17:26:51.208]                       muffled <- FALSE
[17:26:51.208]                       if (inherits(cond, "message")) {
[17:26:51.208]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.208]                         if (muffled) 
[17:26:51.208]                           invokeRestart("muffleMessage")
[17:26:51.208]                       }
[17:26:51.208]                       else if (inherits(cond, "warning")) {
[17:26:51.208]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.208]                         if (muffled) 
[17:26:51.208]                           invokeRestart("muffleWarning")
[17:26:51.208]                       }
[17:26:51.208]                       else if (inherits(cond, "condition")) {
[17:26:51.208]                         if (!is.null(pattern)) {
[17:26:51.208]                           computeRestarts <- base::computeRestarts
[17:26:51.208]                           grepl <- base::grepl
[17:26:51.208]                           restarts <- computeRestarts(cond)
[17:26:51.208]                           for (restart in restarts) {
[17:26:51.208]                             name <- restart$name
[17:26:51.208]                             if (is.null(name)) 
[17:26:51.208]                               next
[17:26:51.208]                             if (!grepl(pattern, name)) 
[17:26:51.208]                               next
[17:26:51.208]                             invokeRestart(restart)
[17:26:51.208]                             muffled <- TRUE
[17:26:51.208]                             break
[17:26:51.208]                           }
[17:26:51.208]                         }
[17:26:51.208]                       }
[17:26:51.208]                       invisible(muffled)
[17:26:51.208]                     }
[17:26:51.208]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.208]                   }
[17:26:51.208]                 }
[17:26:51.208]                 else {
[17:26:51.208]                   if (TRUE) {
[17:26:51.208]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.208]                     {
[17:26:51.208]                       inherits <- base::inherits
[17:26:51.208]                       invokeRestart <- base::invokeRestart
[17:26:51.208]                       is.null <- base::is.null
[17:26:51.208]                       muffled <- FALSE
[17:26:51.208]                       if (inherits(cond, "message")) {
[17:26:51.208]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.208]                         if (muffled) 
[17:26:51.208]                           invokeRestart("muffleMessage")
[17:26:51.208]                       }
[17:26:51.208]                       else if (inherits(cond, "warning")) {
[17:26:51.208]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.208]                         if (muffled) 
[17:26:51.208]                           invokeRestart("muffleWarning")
[17:26:51.208]                       }
[17:26:51.208]                       else if (inherits(cond, "condition")) {
[17:26:51.208]                         if (!is.null(pattern)) {
[17:26:51.208]                           computeRestarts <- base::computeRestarts
[17:26:51.208]                           grepl <- base::grepl
[17:26:51.208]                           restarts <- computeRestarts(cond)
[17:26:51.208]                           for (restart in restarts) {
[17:26:51.208]                             name <- restart$name
[17:26:51.208]                             if (is.null(name)) 
[17:26:51.208]                               next
[17:26:51.208]                             if (!grepl(pattern, name)) 
[17:26:51.208]                               next
[17:26:51.208]                             invokeRestart(restart)
[17:26:51.208]                             muffled <- TRUE
[17:26:51.208]                             break
[17:26:51.208]                           }
[17:26:51.208]                         }
[17:26:51.208]                       }
[17:26:51.208]                       invisible(muffled)
[17:26:51.208]                     }
[17:26:51.208]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.208]                   }
[17:26:51.208]                 }
[17:26:51.208]             }
[17:26:51.208]         }))
[17:26:51.208]     }, error = function(ex) {
[17:26:51.208]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.208]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.208]                 ...future.rng), started = ...future.startTime, 
[17:26:51.208]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.208]             version = "1.8"), class = "FutureResult")
[17:26:51.208]     }, finally = {
[17:26:51.208]         if (!identical(...future.workdir, getwd())) 
[17:26:51.208]             setwd(...future.workdir)
[17:26:51.208]         {
[17:26:51.208]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.208]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.208]             }
[17:26:51.208]             base::options(...future.oldOptions)
[17:26:51.208]             if (.Platform$OS.type == "windows") {
[17:26:51.208]                 old_names <- names(...future.oldEnvVars)
[17:26:51.208]                 envs <- base::Sys.getenv()
[17:26:51.208]                 names <- names(envs)
[17:26:51.208]                 common <- intersect(names, old_names)
[17:26:51.208]                 added <- setdiff(names, old_names)
[17:26:51.208]                 removed <- setdiff(old_names, names)
[17:26:51.208]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.208]                   envs[common]]
[17:26:51.208]                 NAMES <- toupper(changed)
[17:26:51.208]                 args <- list()
[17:26:51.208]                 for (kk in seq_along(NAMES)) {
[17:26:51.208]                   name <- changed[[kk]]
[17:26:51.208]                   NAME <- NAMES[[kk]]
[17:26:51.208]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.208]                     next
[17:26:51.208]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.208]                 }
[17:26:51.208]                 NAMES <- toupper(added)
[17:26:51.208]                 for (kk in seq_along(NAMES)) {
[17:26:51.208]                   name <- added[[kk]]
[17:26:51.208]                   NAME <- NAMES[[kk]]
[17:26:51.208]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.208]                     next
[17:26:51.208]                   args[[name]] <- ""
[17:26:51.208]                 }
[17:26:51.208]                 NAMES <- toupper(removed)
[17:26:51.208]                 for (kk in seq_along(NAMES)) {
[17:26:51.208]                   name <- removed[[kk]]
[17:26:51.208]                   NAME <- NAMES[[kk]]
[17:26:51.208]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.208]                     next
[17:26:51.208]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.208]                 }
[17:26:51.208]                 if (length(args) > 0) 
[17:26:51.208]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.208]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.208]             }
[17:26:51.208]             else {
[17:26:51.208]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.208]             }
[17:26:51.208]             {
[17:26:51.208]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.208]                   0L) {
[17:26:51.208]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.208]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.208]                   base::options(opts)
[17:26:51.208]                 }
[17:26:51.208]                 {
[17:26:51.208]                   {
[17:26:51.208]                     NULL
[17:26:51.208]                     RNGkind("Mersenne-Twister")
[17:26:51.208]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.208]                       inherits = FALSE)
[17:26:51.208]                   }
[17:26:51.208]                   options(future.plan = NULL)
[17:26:51.208]                   if (is.na(NA_character_)) 
[17:26:51.208]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.208]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.208]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.208]                     .init = FALSE)
[17:26:51.208]                 }
[17:26:51.208]             }
[17:26:51.208]         }
[17:26:51.208]     })
[17:26:51.208]     if (TRUE) {
[17:26:51.208]         base::sink(type = "output", split = FALSE)
[17:26:51.208]         if (TRUE) {
[17:26:51.208]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.208]         }
[17:26:51.208]         else {
[17:26:51.208]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.208]         }
[17:26:51.208]         base::close(...future.stdout)
[17:26:51.208]         ...future.stdout <- NULL
[17:26:51.208]     }
[17:26:51.208]     ...future.result$conditions <- ...future.conditions
[17:26:51.208]     ...future.result$finished <- base::Sys.time()
[17:26:51.208]     ...future.result
[17:26:51.208] }
[17:26:51.212] assign_globals() ...
[17:26:51.212] List of 2
[17:26:51.212]  $ weight: num [1:20] 4.17 5.58 5.18 6.11 4.5 4.61 5.17 4.53 5.33 5.14 ...
[17:26:51.212]  $ group : Factor w/ 2 levels "Ctl","Trt": 1 1 1 1 1 1 1 1 1 1 ...
[17:26:51.212]  - attr(*, "where")=List of 2
[17:26:51.212]   ..$ weight:<environment: R_EmptyEnv> 
[17:26:51.212]   ..$ group :<environment: R_EmptyEnv> 
[17:26:51.212]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.212]  - attr(*, "resolved")= logi FALSE
[17:26:51.212]  - attr(*, "total_size")= num 896
[17:26:51.212]  - attr(*, "already-done")= logi TRUE
[17:26:51.215] - copied 'weight' to environment
[17:26:51.215] - copied 'group' to environment
[17:26:51.216] assign_globals() ... done
[17:26:51.216] plan(): Setting new future strategy stack:
[17:26:51.216] List of future strategies:
[17:26:51.216] 1. sequential:
[17:26:51.216]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.216]    - tweaked: FALSE
[17:26:51.216]    - call: NULL
[17:26:51.217] plan(): nbrOfWorkers() = 1
[17:26:51.219] plan(): Setting new future strategy stack:
[17:26:51.219] List of future strategies:
[17:26:51.219] 1. sequential:
[17:26:51.219]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.219]    - tweaked: FALSE
[17:26:51.219]    - call: plan(strategy)
[17:26:51.220] plan(): nbrOfWorkers() = 1
[17:26:51.220] SequentialFuture started (and completed)
[17:26:51.220] - Launch lazy future ... done
[17:26:51.220] run() for 'SequentialFuture' ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:51.223] getGlobalsAndPackages() ...
[17:26:51.224] Searching for globals...
[17:26:51.226] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:51.226] Searching for globals ... DONE
[17:26:51.227] Resolving globals: FALSE
[17:26:51.227] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:51.228] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:51.228] - globals: [2] 'weight', 'group'
[17:26:51.228] - packages: [1] 'stats'
[17:26:51.229] getGlobalsAndPackages() ... DONE
[17:26:51.229] run() for 'Future' ...
[17:26:51.229] - state: 'created'
[17:26:51.231] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.231] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.231] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.231]   - Field: 'label'
[17:26:51.232]   - Field: 'local'
[17:26:51.232]   - Field: 'owner'
[17:26:51.232]   - Field: 'envir'
[17:26:51.232]   - Field: 'packages'
[17:26:51.232]   - Field: 'gc'
[17:26:51.233]   - Field: 'conditions'
[17:26:51.233]   - Field: 'expr'
[17:26:51.233]   - Field: 'uuid'
[17:26:51.233]   - Field: 'seed'
[17:26:51.233]   - Field: 'version'
[17:26:51.234]   - Field: 'result'
[17:26:51.234]   - Field: 'asynchronous'
[17:26:51.234]   - Field: 'calls'
[17:26:51.234]   - Field: 'globals'
[17:26:51.234]   - Field: 'stdout'
[17:26:51.234]   - Field: 'earlySignal'
[17:26:51.235]   - Field: 'lazy'
[17:26:51.235]   - Field: 'state'
[17:26:51.235] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.235] - Launch lazy future ...
[17:26:51.235] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.236] Packages needed by future strategies (n = 0): <none>
[17:26:51.236] {
[17:26:51.236]     {
[17:26:51.236]         {
[17:26:51.236]             ...future.startTime <- base::Sys.time()
[17:26:51.236]             {
[17:26:51.236]                 {
[17:26:51.236]                   {
[17:26:51.236]                     {
[17:26:51.236]                       base::local({
[17:26:51.236]                         has_future <- base::requireNamespace("future", 
[17:26:51.236]                           quietly = TRUE)
[17:26:51.236]                         if (has_future) {
[17:26:51.236]                           ns <- base::getNamespace("future")
[17:26:51.236]                           version <- ns[[".package"]][["version"]]
[17:26:51.236]                           if (is.null(version)) 
[17:26:51.236]                             version <- utils::packageVersion("future")
[17:26:51.236]                         }
[17:26:51.236]                         else {
[17:26:51.236]                           version <- NULL
[17:26:51.236]                         }
[17:26:51.236]                         if (!has_future || version < "1.8.0") {
[17:26:51.236]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.236]                             "", base::R.version$version.string), 
[17:26:51.236]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.236]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.236]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.236]                               "release", "version")], collapse = " "), 
[17:26:51.236]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.236]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.236]                             info)
[17:26:51.236]                           info <- base::paste(info, collapse = "; ")
[17:26:51.236]                           if (!has_future) {
[17:26:51.236]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.236]                               info)
[17:26:51.236]                           }
[17:26:51.236]                           else {
[17:26:51.236]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.236]                               info, version)
[17:26:51.236]                           }
[17:26:51.236]                           base::stop(msg)
[17:26:51.236]                         }
[17:26:51.236]                       })
[17:26:51.236]                     }
[17:26:51.236]                     base::local({
[17:26:51.236]                       for (pkg in "stats") {
[17:26:51.236]                         base::loadNamespace(pkg)
[17:26:51.236]                         base::library(pkg, character.only = TRUE)
[17:26:51.236]                       }
[17:26:51.236]                     })
[17:26:51.236]                   }
[17:26:51.236]                   ...future.strategy.old <- future::plan("list")
[17:26:51.236]                   options(future.plan = NULL)
[17:26:51.236]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.236]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.236]                 }
[17:26:51.236]                 ...future.workdir <- getwd()
[17:26:51.236]             }
[17:26:51.236]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.236]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.236]         }
[17:26:51.236]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.236]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.236]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.236]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.236]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.236]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.236]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.236]             base::names(...future.oldOptions))
[17:26:51.236]     }
[17:26:51.236]     if (FALSE) {
[17:26:51.236]     }
[17:26:51.236]     else {
[17:26:51.236]         if (TRUE) {
[17:26:51.236]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.236]                 open = "w")
[17:26:51.236]         }
[17:26:51.236]         else {
[17:26:51.236]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.236]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.236]         }
[17:26:51.236]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.236]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.236]             base::sink(type = "output", split = FALSE)
[17:26:51.236]             base::close(...future.stdout)
[17:26:51.236]         }, add = TRUE)
[17:26:51.236]     }
[17:26:51.236]     ...future.frame <- base::sys.nframe()
[17:26:51.236]     ...future.conditions <- base::list()
[17:26:51.236]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.236]     if (FALSE) {
[17:26:51.236]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.236]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.236]     }
[17:26:51.236]     ...future.result <- base::tryCatch({
[17:26:51.236]         base::withCallingHandlers({
[17:26:51.236]             ...future.value <- base::withVisible(base::local({
[17:26:51.236]                 lm(weight ~ group - 1)
[17:26:51.236]             }))
[17:26:51.236]             future::FutureResult(value = ...future.value$value, 
[17:26:51.236]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.236]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.236]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.236]                     ...future.globalenv.names))
[17:26:51.236]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.236]         }, condition = base::local({
[17:26:51.236]             c <- base::c
[17:26:51.236]             inherits <- base::inherits
[17:26:51.236]             invokeRestart <- base::invokeRestart
[17:26:51.236]             length <- base::length
[17:26:51.236]             list <- base::list
[17:26:51.236]             seq.int <- base::seq.int
[17:26:51.236]             signalCondition <- base::signalCondition
[17:26:51.236]             sys.calls <- base::sys.calls
[17:26:51.236]             `[[` <- base::`[[`
[17:26:51.236]             `+` <- base::`+`
[17:26:51.236]             `<<-` <- base::`<<-`
[17:26:51.236]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.236]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.236]                   3L)]
[17:26:51.236]             }
[17:26:51.236]             function(cond) {
[17:26:51.236]                 is_error <- inherits(cond, "error")
[17:26:51.236]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.236]                   NULL)
[17:26:51.236]                 if (is_error) {
[17:26:51.236]                   sessionInformation <- function() {
[17:26:51.236]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.236]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.236]                       search = base::search(), system = base::Sys.info())
[17:26:51.236]                   }
[17:26:51.236]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.236]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.236]                     cond$call), session = sessionInformation(), 
[17:26:51.236]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.236]                   signalCondition(cond)
[17:26:51.236]                 }
[17:26:51.236]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.236]                 "immediateCondition"))) {
[17:26:51.236]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.236]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.236]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.236]                   if (TRUE && !signal) {
[17:26:51.236]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.236]                     {
[17:26:51.236]                       inherits <- base::inherits
[17:26:51.236]                       invokeRestart <- base::invokeRestart
[17:26:51.236]                       is.null <- base::is.null
[17:26:51.236]                       muffled <- FALSE
[17:26:51.236]                       if (inherits(cond, "message")) {
[17:26:51.236]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.236]                         if (muffled) 
[17:26:51.236]                           invokeRestart("muffleMessage")
[17:26:51.236]                       }
[17:26:51.236]                       else if (inherits(cond, "warning")) {
[17:26:51.236]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.236]                         if (muffled) 
[17:26:51.236]                           invokeRestart("muffleWarning")
[17:26:51.236]                       }
[17:26:51.236]                       else if (inherits(cond, "condition")) {
[17:26:51.236]                         if (!is.null(pattern)) {
[17:26:51.236]                           computeRestarts <- base::computeRestarts
[17:26:51.236]                           grepl <- base::grepl
[17:26:51.236]                           restarts <- computeRestarts(cond)
[17:26:51.236]                           for (restart in restarts) {
[17:26:51.236]                             name <- restart$name
[17:26:51.236]                             if (is.null(name)) 
[17:26:51.236]                               next
[17:26:51.236]                             if (!grepl(pattern, name)) 
[17:26:51.236]                               next
[17:26:51.236]                             invokeRestart(restart)
[17:26:51.236]                             muffled <- TRUE
[17:26:51.236]                             break
[17:26:51.236]                           }
[17:26:51.236]                         }
[17:26:51.236]                       }
[17:26:51.236]                       invisible(muffled)
[17:26:51.236]                     }
[17:26:51.236]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.236]                   }
[17:26:51.236]                 }
[17:26:51.236]                 else {
[17:26:51.236]                   if (TRUE) {
[17:26:51.236]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.236]                     {
[17:26:51.236]                       inherits <- base::inherits
[17:26:51.236]                       invokeRestart <- base::invokeRestart
[17:26:51.236]                       is.null <- base::is.null
[17:26:51.236]                       muffled <- FALSE
[17:26:51.236]                       if (inherits(cond, "message")) {
[17:26:51.236]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.236]                         if (muffled) 
[17:26:51.236]                           invokeRestart("muffleMessage")
[17:26:51.236]                       }
[17:26:51.236]                       else if (inherits(cond, "warning")) {
[17:26:51.236]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.236]                         if (muffled) 
[17:26:51.236]                           invokeRestart("muffleWarning")
[17:26:51.236]                       }
[17:26:51.236]                       else if (inherits(cond, "condition")) {
[17:26:51.236]                         if (!is.null(pattern)) {
[17:26:51.236]                           computeRestarts <- base::computeRestarts
[17:26:51.236]                           grepl <- base::grepl
[17:26:51.236]                           restarts <- computeRestarts(cond)
[17:26:51.236]                           for (restart in restarts) {
[17:26:51.236]                             name <- restart$name
[17:26:51.236]                             if (is.null(name)) 
[17:26:51.236]                               next
[17:26:51.236]                             if (!grepl(pattern, name)) 
[17:26:51.236]                               next
[17:26:51.236]                             invokeRestart(restart)
[17:26:51.236]                             muffled <- TRUE
[17:26:51.236]                             break
[17:26:51.236]                           }
[17:26:51.236]                         }
[17:26:51.236]                       }
[17:26:51.236]                       invisible(muffled)
[17:26:51.236]                     }
[17:26:51.236]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.236]                   }
[17:26:51.236]                 }
[17:26:51.236]             }
[17:26:51.236]         }))
[17:26:51.236]     }, error = function(ex) {
[17:26:51.236]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.236]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.236]                 ...future.rng), started = ...future.startTime, 
[17:26:51.236]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.236]             version = "1.8"), class = "FutureResult")
[17:26:51.236]     }, finally = {
[17:26:51.236]         if (!identical(...future.workdir, getwd())) 
[17:26:51.236]             setwd(...future.workdir)
[17:26:51.236]         {
[17:26:51.236]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.236]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.236]             }
[17:26:51.236]             base::options(...future.oldOptions)
[17:26:51.236]             if (.Platform$OS.type == "windows") {
[17:26:51.236]                 old_names <- names(...future.oldEnvVars)
[17:26:51.236]                 envs <- base::Sys.getenv()
[17:26:51.236]                 names <- names(envs)
[17:26:51.236]                 common <- intersect(names, old_names)
[17:26:51.236]                 added <- setdiff(names, old_names)
[17:26:51.236]                 removed <- setdiff(old_names, names)
[17:26:51.236]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.236]                   envs[common]]
[17:26:51.236]                 NAMES <- toupper(changed)
[17:26:51.236]                 args <- list()
[17:26:51.236]                 for (kk in seq_along(NAMES)) {
[17:26:51.236]                   name <- changed[[kk]]
[17:26:51.236]                   NAME <- NAMES[[kk]]
[17:26:51.236]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.236]                     next
[17:26:51.236]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.236]                 }
[17:26:51.236]                 NAMES <- toupper(added)
[17:26:51.236]                 for (kk in seq_along(NAMES)) {
[17:26:51.236]                   name <- added[[kk]]
[17:26:51.236]                   NAME <- NAMES[[kk]]
[17:26:51.236]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.236]                     next
[17:26:51.236]                   args[[name]] <- ""
[17:26:51.236]                 }
[17:26:51.236]                 NAMES <- toupper(removed)
[17:26:51.236]                 for (kk in seq_along(NAMES)) {
[17:26:51.236]                   name <- removed[[kk]]
[17:26:51.236]                   NAME <- NAMES[[kk]]
[17:26:51.236]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.236]                     next
[17:26:51.236]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.236]                 }
[17:26:51.236]                 if (length(args) > 0) 
[17:26:51.236]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.236]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.236]             }
[17:26:51.236]             else {
[17:26:51.236]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.236]             }
[17:26:51.236]             {
[17:26:51.236]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.236]                   0L) {
[17:26:51.236]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.236]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.236]                   base::options(opts)
[17:26:51.236]                 }
[17:26:51.236]                 {
[17:26:51.236]                   {
[17:26:51.236]                     NULL
[17:26:51.236]                     RNGkind("Mersenne-Twister")
[17:26:51.236]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.236]                       inherits = FALSE)
[17:26:51.236]                   }
[17:26:51.236]                   options(future.plan = NULL)
[17:26:51.236]                   if (is.na(NA_character_)) 
[17:26:51.236]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.236]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.236]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.236]                     .init = FALSE)
[17:26:51.236]                 }
[17:26:51.236]             }
[17:26:51.236]         }
[17:26:51.236]     })
[17:26:51.236]     if (TRUE) {
[17:26:51.236]         base::sink(type = "output", split = FALSE)
[17:26:51.236]         if (TRUE) {
[17:26:51.236]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.236]         }
[17:26:51.236]         else {
[17:26:51.236]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.236]         }
[17:26:51.236]         base::close(...future.stdout)
[17:26:51.236]         ...future.stdout <- NULL
[17:26:51.236]     }
[17:26:51.236]     ...future.result$conditions <- ...future.conditions
[17:26:51.236]     ...future.result$finished <- base::Sys.time()
[17:26:51.236]     ...future.result
[17:26:51.236] }
[17:26:51.240] assign_globals() ...
[17:26:51.240] List of 2
[17:26:51.240]  $ weight: num [1:20] 4.17 5.58 5.18 6.11 4.5 4.61 5.17 4.53 5.33 5.14 ...
[17:26:51.240]  $ group : Factor w/ 2 levels "Ctl","Trt": 1 1 1 1 1 1 1 1 1 1 ...
[17:26:51.240]  - attr(*, "where")=List of 2
[17:26:51.240]   ..$ weight:<environment: R_EmptyEnv> 
[17:26:51.240]   ..$ group :<environment: R_EmptyEnv> 
[17:26:51.240]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.240]  - attr(*, "resolved")= logi FALSE
[17:26:51.240]  - attr(*, "total_size")= num 896
[17:26:51.240]  - attr(*, "already-done")= logi TRUE
[17:26:51.244] - copied 'weight' to environment
[17:26:51.245] - copied 'group' to environment
[17:26:51.245] assign_globals() ... done
[17:26:51.245] plan(): Setting new future strategy stack:
[17:26:51.246] List of future strategies:
[17:26:51.246] 1. sequential:
[17:26:51.246]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.246]    - tweaked: FALSE
[17:26:51.246]    - call: NULL
[17:26:51.246] plan(): nbrOfWorkers() = 1
[17:26:51.248] plan(): Setting new future strategy stack:
[17:26:51.248] List of future strategies:
[17:26:51.248] 1. sequential:
[17:26:51.248]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.248]    - tweaked: FALSE
[17:26:51.248]    - call: plan(strategy)
[17:26:51.249] plan(): nbrOfWorkers() = 1
[17:26:51.249] SequentialFuture started (and completed)
[17:26:51.249] - Launch lazy future ... done
[17:26:51.250] run() for 'SequentialFuture' ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

- Globals - one-side formulas, e.g. xtabs(~ x) ...
[17:26:51.252] getGlobalsAndPackages() ...
[17:26:51.252] Searching for globals...
[17:26:51.253] - globals found: [4] '{', 'xtabs', 'x', '~'
[17:26:51.253] Searching for globals ... DONE
[17:26:51.254] Resolving globals: FALSE
[17:26:51.254] The total size of the 1 globals is 96 bytes (96 bytes)
[17:26:51.255] The total size of the 1 globals exported for future expression ('{; xtabs(~x); }') is 96 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'x' (96 bytes of class 'numeric')
[17:26:51.255] - globals: [1] 'x'
[17:26:51.255] - packages: [1] 'stats'
[17:26:51.255] getGlobalsAndPackages() ... DONE
[17:26:51.255] run() for 'Future' ...
[17:26:51.256] - state: 'created'
[17:26:51.256] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.256] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.256] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.257]   - Field: 'label'
[17:26:51.257]   - Field: 'local'
[17:26:51.257]   - Field: 'owner'
[17:26:51.257]   - Field: 'envir'
[17:26:51.257]   - Field: 'packages'
[17:26:51.257]   - Field: 'gc'
[17:26:51.258]   - Field: 'conditions'
[17:26:51.258]   - Field: 'expr'
[17:26:51.258]   - Field: 'uuid'
[17:26:51.258]   - Field: 'seed'
[17:26:51.258]   - Field: 'version'
[17:26:51.259]   - Field: 'result'
[17:26:51.259]   - Field: 'asynchronous'
[17:26:51.259]   - Field: 'calls'
[17:26:51.259]   - Field: 'globals'
[17:26:51.259]   - Field: 'stdout'
[17:26:51.260]   - Field: 'earlySignal'
[17:26:51.260]   - Field: 'lazy'
[17:26:51.261]   - Field: 'state'
[17:26:51.261] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.261] - Launch lazy future ...
[17:26:51.261] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.261] Packages needed by future strategies (n = 0): <none>
[17:26:51.262] {
[17:26:51.262]     {
[17:26:51.262]         {
[17:26:51.262]             ...future.startTime <- base::Sys.time()
[17:26:51.262]             {
[17:26:51.262]                 {
[17:26:51.262]                   {
[17:26:51.262]                     {
[17:26:51.262]                       base::local({
[17:26:51.262]                         has_future <- base::requireNamespace("future", 
[17:26:51.262]                           quietly = TRUE)
[17:26:51.262]                         if (has_future) {
[17:26:51.262]                           ns <- base::getNamespace("future")
[17:26:51.262]                           version <- ns[[".package"]][["version"]]
[17:26:51.262]                           if (is.null(version)) 
[17:26:51.262]                             version <- utils::packageVersion("future")
[17:26:51.262]                         }
[17:26:51.262]                         else {
[17:26:51.262]                           version <- NULL
[17:26:51.262]                         }
[17:26:51.262]                         if (!has_future || version < "1.8.0") {
[17:26:51.262]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.262]                             "", base::R.version$version.string), 
[17:26:51.262]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.262]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.262]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.262]                               "release", "version")], collapse = " "), 
[17:26:51.262]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.262]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.262]                             info)
[17:26:51.262]                           info <- base::paste(info, collapse = "; ")
[17:26:51.262]                           if (!has_future) {
[17:26:51.262]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.262]                               info)
[17:26:51.262]                           }
[17:26:51.262]                           else {
[17:26:51.262]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.262]                               info, version)
[17:26:51.262]                           }
[17:26:51.262]                           base::stop(msg)
[17:26:51.262]                         }
[17:26:51.262]                       })
[17:26:51.262]                     }
[17:26:51.262]                     base::local({
[17:26:51.262]                       for (pkg in "stats") {
[17:26:51.262]                         base::loadNamespace(pkg)
[17:26:51.262]                         base::library(pkg, character.only = TRUE)
[17:26:51.262]                       }
[17:26:51.262]                     })
[17:26:51.262]                   }
[17:26:51.262]                   ...future.strategy.old <- future::plan("list")
[17:26:51.262]                   options(future.plan = NULL)
[17:26:51.262]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.262]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.262]                 }
[17:26:51.262]                 ...future.workdir <- getwd()
[17:26:51.262]             }
[17:26:51.262]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.262]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.262]         }
[17:26:51.262]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.262]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.262]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.262]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.262]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.262]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.262]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.262]             base::names(...future.oldOptions))
[17:26:51.262]     }
[17:26:51.262]     if (FALSE) {
[17:26:51.262]     }
[17:26:51.262]     else {
[17:26:51.262]         if (TRUE) {
[17:26:51.262]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.262]                 open = "w")
[17:26:51.262]         }
[17:26:51.262]         else {
[17:26:51.262]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.262]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.262]         }
[17:26:51.262]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.262]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.262]             base::sink(type = "output", split = FALSE)
[17:26:51.262]             base::close(...future.stdout)
[17:26:51.262]         }, add = TRUE)
[17:26:51.262]     }
[17:26:51.262]     ...future.frame <- base::sys.nframe()
[17:26:51.262]     ...future.conditions <- base::list()
[17:26:51.262]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.262]     if (FALSE) {
[17:26:51.262]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.262]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.262]     }
[17:26:51.262]     ...future.result <- base::tryCatch({
[17:26:51.262]         base::withCallingHandlers({
[17:26:51.262]             ...future.value <- base::withVisible(base::local({
[17:26:51.262]                 xtabs(~x)
[17:26:51.262]             }))
[17:26:51.262]             future::FutureResult(value = ...future.value$value, 
[17:26:51.262]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.262]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.262]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.262]                     ...future.globalenv.names))
[17:26:51.262]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.262]         }, condition = base::local({
[17:26:51.262]             c <- base::c
[17:26:51.262]             inherits <- base::inherits
[17:26:51.262]             invokeRestart <- base::invokeRestart
[17:26:51.262]             length <- base::length
[17:26:51.262]             list <- base::list
[17:26:51.262]             seq.int <- base::seq.int
[17:26:51.262]             signalCondition <- base::signalCondition
[17:26:51.262]             sys.calls <- base::sys.calls
[17:26:51.262]             `[[` <- base::`[[`
[17:26:51.262]             `+` <- base::`+`
[17:26:51.262]             `<<-` <- base::`<<-`
[17:26:51.262]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.262]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.262]                   3L)]
[17:26:51.262]             }
[17:26:51.262]             function(cond) {
[17:26:51.262]                 is_error <- inherits(cond, "error")
[17:26:51.262]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.262]                   NULL)
[17:26:51.262]                 if (is_error) {
[17:26:51.262]                   sessionInformation <- function() {
[17:26:51.262]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.262]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.262]                       search = base::search(), system = base::Sys.info())
[17:26:51.262]                   }
[17:26:51.262]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.262]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.262]                     cond$call), session = sessionInformation(), 
[17:26:51.262]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.262]                   signalCondition(cond)
[17:26:51.262]                 }
[17:26:51.262]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.262]                 "immediateCondition"))) {
[17:26:51.262]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.262]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.262]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.262]                   if (TRUE && !signal) {
[17:26:51.262]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.262]                     {
[17:26:51.262]                       inherits <- base::inherits
[17:26:51.262]                       invokeRestart <- base::invokeRestart
[17:26:51.262]                       is.null <- base::is.null
[17:26:51.262]                       muffled <- FALSE
[17:26:51.262]                       if (inherits(cond, "message")) {
[17:26:51.262]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.262]                         if (muffled) 
[17:26:51.262]                           invokeRestart("muffleMessage")
[17:26:51.262]                       }
[17:26:51.262]                       else if (inherits(cond, "warning")) {
[17:26:51.262]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.262]                         if (muffled) 
[17:26:51.262]                           invokeRestart("muffleWarning")
[17:26:51.262]                       }
[17:26:51.262]                       else if (inherits(cond, "condition")) {
[17:26:51.262]                         if (!is.null(pattern)) {
[17:26:51.262]                           computeRestarts <- base::computeRestarts
[17:26:51.262]                           grepl <- base::grepl
[17:26:51.262]                           restarts <- computeRestarts(cond)
[17:26:51.262]                           for (restart in restarts) {
[17:26:51.262]                             name <- restart$name
[17:26:51.262]                             if (is.null(name)) 
[17:26:51.262]                               next
[17:26:51.262]                             if (!grepl(pattern, name)) 
[17:26:51.262]                               next
[17:26:51.262]                             invokeRestart(restart)
[17:26:51.262]                             muffled <- TRUE
[17:26:51.262]                             break
[17:26:51.262]                           }
[17:26:51.262]                         }
[17:26:51.262]                       }
[17:26:51.262]                       invisible(muffled)
[17:26:51.262]                     }
[17:26:51.262]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.262]                   }
[17:26:51.262]                 }
[17:26:51.262]                 else {
[17:26:51.262]                   if (TRUE) {
[17:26:51.262]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.262]                     {
[17:26:51.262]                       inherits <- base::inherits
[17:26:51.262]                       invokeRestart <- base::invokeRestart
[17:26:51.262]                       is.null <- base::is.null
[17:26:51.262]                       muffled <- FALSE
[17:26:51.262]                       if (inherits(cond, "message")) {
[17:26:51.262]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.262]                         if (muffled) 
[17:26:51.262]                           invokeRestart("muffleMessage")
[17:26:51.262]                       }
[17:26:51.262]                       else if (inherits(cond, "warning")) {
[17:26:51.262]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.262]                         if (muffled) 
[17:26:51.262]                           invokeRestart("muffleWarning")
[17:26:51.262]                       }
[17:26:51.262]                       else if (inherits(cond, "condition")) {
[17:26:51.262]                         if (!is.null(pattern)) {
[17:26:51.262]                           computeRestarts <- base::computeRestarts
[17:26:51.262]                           grepl <- base::grepl
[17:26:51.262]                           restarts <- computeRestarts(cond)
[17:26:51.262]                           for (restart in restarts) {
[17:26:51.262]                             name <- restart$name
[17:26:51.262]                             if (is.null(name)) 
[17:26:51.262]                               next
[17:26:51.262]                             if (!grepl(pattern, name)) 
[17:26:51.262]                               next
[17:26:51.262]                             invokeRestart(restart)
[17:26:51.262]                             muffled <- TRUE
[17:26:51.262]                             break
[17:26:51.262]                           }
[17:26:51.262]                         }
[17:26:51.262]                       }
[17:26:51.262]                       invisible(muffled)
[17:26:51.262]                     }
[17:26:51.262]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.262]                   }
[17:26:51.262]                 }
[17:26:51.262]             }
[17:26:51.262]         }))
[17:26:51.262]     }, error = function(ex) {
[17:26:51.262]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.262]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.262]                 ...future.rng), started = ...future.startTime, 
[17:26:51.262]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.262]             version = "1.8"), class = "FutureResult")
[17:26:51.262]     }, finally = {
[17:26:51.262]         if (!identical(...future.workdir, getwd())) 
[17:26:51.262]             setwd(...future.workdir)
[17:26:51.262]         {
[17:26:51.262]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.262]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.262]             }
[17:26:51.262]             base::options(...future.oldOptions)
[17:26:51.262]             if (.Platform$OS.type == "windows") {
[17:26:51.262]                 old_names <- names(...future.oldEnvVars)
[17:26:51.262]                 envs <- base::Sys.getenv()
[17:26:51.262]                 names <- names(envs)
[17:26:51.262]                 common <- intersect(names, old_names)
[17:26:51.262]                 added <- setdiff(names, old_names)
[17:26:51.262]                 removed <- setdiff(old_names, names)
[17:26:51.262]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.262]                   envs[common]]
[17:26:51.262]                 NAMES <- toupper(changed)
[17:26:51.262]                 args <- list()
[17:26:51.262]                 for (kk in seq_along(NAMES)) {
[17:26:51.262]                   name <- changed[[kk]]
[17:26:51.262]                   NAME <- NAMES[[kk]]
[17:26:51.262]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.262]                     next
[17:26:51.262]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.262]                 }
[17:26:51.262]                 NAMES <- toupper(added)
[17:26:51.262]                 for (kk in seq_along(NAMES)) {
[17:26:51.262]                   name <- added[[kk]]
[17:26:51.262]                   NAME <- NAMES[[kk]]
[17:26:51.262]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.262]                     next
[17:26:51.262]                   args[[name]] <- ""
[17:26:51.262]                 }
[17:26:51.262]                 NAMES <- toupper(removed)
[17:26:51.262]                 for (kk in seq_along(NAMES)) {
[17:26:51.262]                   name <- removed[[kk]]
[17:26:51.262]                   NAME <- NAMES[[kk]]
[17:26:51.262]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.262]                     next
[17:26:51.262]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.262]                 }
[17:26:51.262]                 if (length(args) > 0) 
[17:26:51.262]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.262]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.262]             }
[17:26:51.262]             else {
[17:26:51.262]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.262]             }
[17:26:51.262]             {
[17:26:51.262]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.262]                   0L) {
[17:26:51.262]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.262]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.262]                   base::options(opts)
[17:26:51.262]                 }
[17:26:51.262]                 {
[17:26:51.262]                   {
[17:26:51.262]                     NULL
[17:26:51.262]                     RNGkind("Mersenne-Twister")
[17:26:51.262]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.262]                       inherits = FALSE)
[17:26:51.262]                   }
[17:26:51.262]                   options(future.plan = NULL)
[17:26:51.262]                   if (is.na(NA_character_)) 
[17:26:51.262]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.262]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.262]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.262]                     .init = FALSE)
[17:26:51.262]                 }
[17:26:51.262]             }
[17:26:51.262]         }
[17:26:51.262]     })
[17:26:51.262]     if (TRUE) {
[17:26:51.262]         base::sink(type = "output", split = FALSE)
[17:26:51.262]         if (TRUE) {
[17:26:51.262]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.262]         }
[17:26:51.262]         else {
[17:26:51.262]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.262]         }
[17:26:51.262]         base::close(...future.stdout)
[17:26:51.262]         ...future.stdout <- NULL
[17:26:51.262]     }
[17:26:51.262]     ...future.result$conditions <- ...future.conditions
[17:26:51.262]     ...future.result$finished <- base::Sys.time()
[17:26:51.262]     ...future.result
[17:26:51.262] }
[17:26:51.266] assign_globals() ...
[17:26:51.266] List of 1
[17:26:51.266]  $ x: num [1:5] 1 1 2 2 2
[17:26:51.266]  - attr(*, "where")=List of 1
[17:26:51.266]   ..$ x:<environment: R_EmptyEnv> 
[17:26:51.266]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.266]  - attr(*, "resolved")= logi FALSE
[17:26:51.266]  - attr(*, "total_size")= num 96
[17:26:51.266]  - attr(*, "already-done")= logi TRUE
[17:26:51.269] - copied 'x' to environment
[17:26:51.269] assign_globals() ... done
[17:26:51.270] plan(): Setting new future strategy stack:
[17:26:51.270] List of future strategies:
[17:26:51.270] 1. sequential:
[17:26:51.270]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.270]    - tweaked: FALSE
[17:26:51.270]    - call: NULL
[17:26:51.270] plan(): nbrOfWorkers() = 1
[17:26:51.272] plan(): Setting new future strategy stack:
[17:26:51.272] List of future strategies:
[17:26:51.272] 1. sequential:
[17:26:51.272]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.272]    - tweaked: FALSE
[17:26:51.272]    - call: plan(strategy)
[17:26:51.273] plan(): nbrOfWorkers() = 1
[17:26:51.273] SequentialFuture started (and completed)
[17:26:51.273] - Launch lazy future ... done
[17:26:51.273] run() for 'SequentialFuture' ... done
x
1 2 
2 3 
[17:26:51.274] getGlobalsAndPackages() ...
[17:26:51.274] Searching for globals...
[17:26:51.276] - globals found: [4] '{', 'xtabs', 'x', '~'
[17:26:51.276] Searching for globals ... DONE
[17:26:51.276] Resolving globals: FALSE
[17:26:51.277] The total size of the 1 globals is 96 bytes (96 bytes)
[17:26:51.277] The total size of the 1 globals exported for future expression ('{; xtabs(~x); }') is 96 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'x' (96 bytes of class 'numeric')
[17:26:51.277] - globals: [1] 'x'
[17:26:51.277] - packages: [1] 'stats'
[17:26:51.278] getGlobalsAndPackages() ... DONE
[17:26:51.278] run() for 'Future' ...
[17:26:51.278] - state: 'created'
[17:26:51.278] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.279] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.279] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.279]   - Field: 'label'
[17:26:51.279]   - Field: 'local'
[17:26:51.279]   - Field: 'owner'
[17:26:51.280]   - Field: 'envir'
[17:26:51.280]   - Field: 'packages'
[17:26:51.280]   - Field: 'gc'
[17:26:51.280]   - Field: 'conditions'
[17:26:51.280]   - Field: 'expr'
[17:26:51.281]   - Field: 'uuid'
[17:26:51.281]   - Field: 'seed'
[17:26:51.281]   - Field: 'version'
[17:26:51.281]   - Field: 'result'
[17:26:51.281]   - Field: 'asynchronous'
[17:26:51.281]   - Field: 'calls'
[17:26:51.282]   - Field: 'globals'
[17:26:51.282]   - Field: 'stdout'
[17:26:51.282]   - Field: 'earlySignal'
[17:26:51.282]   - Field: 'lazy'
[17:26:51.282]   - Field: 'state'
[17:26:51.282] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.283] - Launch lazy future ...
[17:26:51.283] Packages needed by the future expression (n = 1): 'stats'
[17:26:51.283] Packages needed by future strategies (n = 0): <none>
[17:26:51.284] {
[17:26:51.284]     {
[17:26:51.284]         {
[17:26:51.284]             ...future.startTime <- base::Sys.time()
[17:26:51.284]             {
[17:26:51.284]                 {
[17:26:51.284]                   {
[17:26:51.284]                     {
[17:26:51.284]                       base::local({
[17:26:51.284]                         has_future <- base::requireNamespace("future", 
[17:26:51.284]                           quietly = TRUE)
[17:26:51.284]                         if (has_future) {
[17:26:51.284]                           ns <- base::getNamespace("future")
[17:26:51.284]                           version <- ns[[".package"]][["version"]]
[17:26:51.284]                           if (is.null(version)) 
[17:26:51.284]                             version <- utils::packageVersion("future")
[17:26:51.284]                         }
[17:26:51.284]                         else {
[17:26:51.284]                           version <- NULL
[17:26:51.284]                         }
[17:26:51.284]                         if (!has_future || version < "1.8.0") {
[17:26:51.284]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.284]                             "", base::R.version$version.string), 
[17:26:51.284]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.284]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.284]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.284]                               "release", "version")], collapse = " "), 
[17:26:51.284]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.284]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.284]                             info)
[17:26:51.284]                           info <- base::paste(info, collapse = "; ")
[17:26:51.284]                           if (!has_future) {
[17:26:51.284]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.284]                               info)
[17:26:51.284]                           }
[17:26:51.284]                           else {
[17:26:51.284]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.284]                               info, version)
[17:26:51.284]                           }
[17:26:51.284]                           base::stop(msg)
[17:26:51.284]                         }
[17:26:51.284]                       })
[17:26:51.284]                     }
[17:26:51.284]                     base::local({
[17:26:51.284]                       for (pkg in "stats") {
[17:26:51.284]                         base::loadNamespace(pkg)
[17:26:51.284]                         base::library(pkg, character.only = TRUE)
[17:26:51.284]                       }
[17:26:51.284]                     })
[17:26:51.284]                   }
[17:26:51.284]                   ...future.strategy.old <- future::plan("list")
[17:26:51.284]                   options(future.plan = NULL)
[17:26:51.284]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.284]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.284]                 }
[17:26:51.284]                 ...future.workdir <- getwd()
[17:26:51.284]             }
[17:26:51.284]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.284]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.284]         }
[17:26:51.284]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.284]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.284]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.284]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.284]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.284]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.284]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.284]             base::names(...future.oldOptions))
[17:26:51.284]     }
[17:26:51.284]     if (FALSE) {
[17:26:51.284]     }
[17:26:51.284]     else {
[17:26:51.284]         if (TRUE) {
[17:26:51.284]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.284]                 open = "w")
[17:26:51.284]         }
[17:26:51.284]         else {
[17:26:51.284]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.284]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.284]         }
[17:26:51.284]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.284]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.284]             base::sink(type = "output", split = FALSE)
[17:26:51.284]             base::close(...future.stdout)
[17:26:51.284]         }, add = TRUE)
[17:26:51.284]     }
[17:26:51.284]     ...future.frame <- base::sys.nframe()
[17:26:51.284]     ...future.conditions <- base::list()
[17:26:51.284]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.284]     if (FALSE) {
[17:26:51.284]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.284]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.284]     }
[17:26:51.284]     ...future.result <- base::tryCatch({
[17:26:51.284]         base::withCallingHandlers({
[17:26:51.284]             ...future.value <- base::withVisible(base::local({
[17:26:51.284]                 xtabs(~x)
[17:26:51.284]             }))
[17:26:51.284]             future::FutureResult(value = ...future.value$value, 
[17:26:51.284]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.284]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.284]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.284]                     ...future.globalenv.names))
[17:26:51.284]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.284]         }, condition = base::local({
[17:26:51.284]             c <- base::c
[17:26:51.284]             inherits <- base::inherits
[17:26:51.284]             invokeRestart <- base::invokeRestart
[17:26:51.284]             length <- base::length
[17:26:51.284]             list <- base::list
[17:26:51.284]             seq.int <- base::seq.int
[17:26:51.284]             signalCondition <- base::signalCondition
[17:26:51.284]             sys.calls <- base::sys.calls
[17:26:51.284]             `[[` <- base::`[[`
[17:26:51.284]             `+` <- base::`+`
[17:26:51.284]             `<<-` <- base::`<<-`
[17:26:51.284]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.284]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.284]                   3L)]
[17:26:51.284]             }
[17:26:51.284]             function(cond) {
[17:26:51.284]                 is_error <- inherits(cond, "error")
[17:26:51.284]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.284]                   NULL)
[17:26:51.284]                 if (is_error) {
[17:26:51.284]                   sessionInformation <- function() {
[17:26:51.284]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.284]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.284]                       search = base::search(), system = base::Sys.info())
[17:26:51.284]                   }
[17:26:51.284]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.284]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.284]                     cond$call), session = sessionInformation(), 
[17:26:51.284]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.284]                   signalCondition(cond)
[17:26:51.284]                 }
[17:26:51.284]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.284]                 "immediateCondition"))) {
[17:26:51.284]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.284]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.284]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.284]                   if (TRUE && !signal) {
[17:26:51.284]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.284]                     {
[17:26:51.284]                       inherits <- base::inherits
[17:26:51.284]                       invokeRestart <- base::invokeRestart
[17:26:51.284]                       is.null <- base::is.null
[17:26:51.284]                       muffled <- FALSE
[17:26:51.284]                       if (inherits(cond, "message")) {
[17:26:51.284]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.284]                         if (muffled) 
[17:26:51.284]                           invokeRestart("muffleMessage")
[17:26:51.284]                       }
[17:26:51.284]                       else if (inherits(cond, "warning")) {
[17:26:51.284]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.284]                         if (muffled) 
[17:26:51.284]                           invokeRestart("muffleWarning")
[17:26:51.284]                       }
[17:26:51.284]                       else if (inherits(cond, "condition")) {
[17:26:51.284]                         if (!is.null(pattern)) {
[17:26:51.284]                           computeRestarts <- base::computeRestarts
[17:26:51.284]                           grepl <- base::grepl
[17:26:51.284]                           restarts <- computeRestarts(cond)
[17:26:51.284]                           for (restart in restarts) {
[17:26:51.284]                             name <- restart$name
[17:26:51.284]                             if (is.null(name)) 
[17:26:51.284]                               next
[17:26:51.284]                             if (!grepl(pattern, name)) 
[17:26:51.284]                               next
[17:26:51.284]                             invokeRestart(restart)
[17:26:51.284]                             muffled <- TRUE
[17:26:51.284]                             break
[17:26:51.284]                           }
[17:26:51.284]                         }
[17:26:51.284]                       }
[17:26:51.284]                       invisible(muffled)
[17:26:51.284]                     }
[17:26:51.284]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.284]                   }
[17:26:51.284]                 }
[17:26:51.284]                 else {
[17:26:51.284]                   if (TRUE) {
[17:26:51.284]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.284]                     {
[17:26:51.284]                       inherits <- base::inherits
[17:26:51.284]                       invokeRestart <- base::invokeRestart
[17:26:51.284]                       is.null <- base::is.null
[17:26:51.284]                       muffled <- FALSE
[17:26:51.284]                       if (inherits(cond, "message")) {
[17:26:51.284]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.284]                         if (muffled) 
[17:26:51.284]                           invokeRestart("muffleMessage")
[17:26:51.284]                       }
[17:26:51.284]                       else if (inherits(cond, "warning")) {
[17:26:51.284]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.284]                         if (muffled) 
[17:26:51.284]                           invokeRestart("muffleWarning")
[17:26:51.284]                       }
[17:26:51.284]                       else if (inherits(cond, "condition")) {
[17:26:51.284]                         if (!is.null(pattern)) {
[17:26:51.284]                           computeRestarts <- base::computeRestarts
[17:26:51.284]                           grepl <- base::grepl
[17:26:51.284]                           restarts <- computeRestarts(cond)
[17:26:51.284]                           for (restart in restarts) {
[17:26:51.284]                             name <- restart$name
[17:26:51.284]                             if (is.null(name)) 
[17:26:51.284]                               next
[17:26:51.284]                             if (!grepl(pattern, name)) 
[17:26:51.284]                               next
[17:26:51.284]                             invokeRestart(restart)
[17:26:51.284]                             muffled <- TRUE
[17:26:51.284]                             break
[17:26:51.284]                           }
[17:26:51.284]                         }
[17:26:51.284]                       }
[17:26:51.284]                       invisible(muffled)
[17:26:51.284]                     }
[17:26:51.284]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.284]                   }
[17:26:51.284]                 }
[17:26:51.284]             }
[17:26:51.284]         }))
[17:26:51.284]     }, error = function(ex) {
[17:26:51.284]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.284]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.284]                 ...future.rng), started = ...future.startTime, 
[17:26:51.284]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.284]             version = "1.8"), class = "FutureResult")
[17:26:51.284]     }, finally = {
[17:26:51.284]         if (!identical(...future.workdir, getwd())) 
[17:26:51.284]             setwd(...future.workdir)
[17:26:51.284]         {
[17:26:51.284]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.284]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.284]             }
[17:26:51.284]             base::options(...future.oldOptions)
[17:26:51.284]             if (.Platform$OS.type == "windows") {
[17:26:51.284]                 old_names <- names(...future.oldEnvVars)
[17:26:51.284]                 envs <- base::Sys.getenv()
[17:26:51.284]                 names <- names(envs)
[17:26:51.284]                 common <- intersect(names, old_names)
[17:26:51.284]                 added <- setdiff(names, old_names)
[17:26:51.284]                 removed <- setdiff(old_names, names)
[17:26:51.284]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.284]                   envs[common]]
[17:26:51.284]                 NAMES <- toupper(changed)
[17:26:51.284]                 args <- list()
[17:26:51.284]                 for (kk in seq_along(NAMES)) {
[17:26:51.284]                   name <- changed[[kk]]
[17:26:51.284]                   NAME <- NAMES[[kk]]
[17:26:51.284]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.284]                     next
[17:26:51.284]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.284]                 }
[17:26:51.284]                 NAMES <- toupper(added)
[17:26:51.284]                 for (kk in seq_along(NAMES)) {
[17:26:51.284]                   name <- added[[kk]]
[17:26:51.284]                   NAME <- NAMES[[kk]]
[17:26:51.284]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.284]                     next
[17:26:51.284]                   args[[name]] <- ""
[17:26:51.284]                 }
[17:26:51.284]                 NAMES <- toupper(removed)
[17:26:51.284]                 for (kk in seq_along(NAMES)) {
[17:26:51.284]                   name <- removed[[kk]]
[17:26:51.284]                   NAME <- NAMES[[kk]]
[17:26:51.284]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.284]                     next
[17:26:51.284]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.284]                 }
[17:26:51.284]                 if (length(args) > 0) 
[17:26:51.284]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.284]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.284]             }
[17:26:51.284]             else {
[17:26:51.284]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.284]             }
[17:26:51.284]             {
[17:26:51.284]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.284]                   0L) {
[17:26:51.284]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.284]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.284]                   base::options(opts)
[17:26:51.284]                 }
[17:26:51.284]                 {
[17:26:51.284]                   {
[17:26:51.284]                     NULL
[17:26:51.284]                     RNGkind("Mersenne-Twister")
[17:26:51.284]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.284]                       inherits = FALSE)
[17:26:51.284]                   }
[17:26:51.284]                   options(future.plan = NULL)
[17:26:51.284]                   if (is.na(NA_character_)) 
[17:26:51.284]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.284]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.284]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.284]                     .init = FALSE)
[17:26:51.284]                 }
[17:26:51.284]             }
[17:26:51.284]         }
[17:26:51.284]     })
[17:26:51.284]     if (TRUE) {
[17:26:51.284]         base::sink(type = "output", split = FALSE)
[17:26:51.284]         if (TRUE) {
[17:26:51.284]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.284]         }
[17:26:51.284]         else {
[17:26:51.284]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.284]         }
[17:26:51.284]         base::close(...future.stdout)
[17:26:51.284]         ...future.stdout <- NULL
[17:26:51.284]     }
[17:26:51.284]     ...future.result$conditions <- ...future.conditions
[17:26:51.284]     ...future.result$finished <- base::Sys.time()
[17:26:51.284]     ...future.result
[17:26:51.284] }
[17:26:51.287] assign_globals() ...
[17:26:51.288] List of 1
[17:26:51.288]  $ x: num [1:5] 1 1 2 2 2
[17:26:51.288]  - attr(*, "where")=List of 1
[17:26:51.288]   ..$ x:<environment: R_EmptyEnv> 
[17:26:51.288]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.288]  - attr(*, "resolved")= logi FALSE
[17:26:51.288]  - attr(*, "total_size")= num 96
[17:26:51.288]  - attr(*, "already-done")= logi TRUE
[17:26:51.290] - copied 'x' to environment
[17:26:51.291] assign_globals() ... done
[17:26:51.292] plan(): Setting new future strategy stack:
[17:26:51.292] List of future strategies:
[17:26:51.292] 1. sequential:
[17:26:51.292]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.292]    - tweaked: FALSE
[17:26:51.292]    - call: NULL
[17:26:51.293] plan(): nbrOfWorkers() = 1
[17:26:51.294] plan(): Setting new future strategy stack:
[17:26:51.295] List of future strategies:
[17:26:51.295] 1. sequential:
[17:26:51.295]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.295]    - tweaked: FALSE
[17:26:51.295]    - call: plan(strategy)
[17:26:51.295] plan(): nbrOfWorkers() = 1
[17:26:51.295] SequentialFuture started (and completed)
[17:26:51.296] - Launch lazy future ... done
[17:26:51.296] run() for 'SequentialFuture' ... done
x
1 2 
2 3 
- Globals - lm(<formula>, data = cars) ...
- Globals - lm(<formula #1 ('a')>, data = cars) ...

Call:
lm(formula = dist ~ . - 1, data = cars)

Coefficients:
speed  
2.909  

[17:26:51.298] getGlobalsAndPackages() ...
[17:26:51.298] Searching for globals...
[17:26:51.300] - globals found: [7] '{', 'lm', 'dist', '-', '.', '~', 'cars'
[17:26:51.300] Searching for globals ... DONE
[17:26:51.301] Resolving globals: FALSE
[17:26:51.301] 
[17:26:51.301] - packages: [2] 'stats', 'datasets'
[17:26:51.302] getGlobalsAndPackages() ... DONE
[17:26:51.302] run() for 'Future' ...
[17:26:51.302] - state: 'created'
[17:26:51.302] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.303] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.303] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.303]   - Field: 'label'
[17:26:51.303]   - Field: 'local'
[17:26:51.303]   - Field: 'owner'
[17:26:51.304]   - Field: 'envir'
[17:26:51.304]   - Field: 'packages'
[17:26:51.304]   - Field: 'gc'
[17:26:51.304]   - Field: 'conditions'
[17:26:51.304]   - Field: 'expr'
[17:26:51.304]   - Field: 'uuid'
[17:26:51.305]   - Field: 'seed'
[17:26:51.305]   - Field: 'version'
[17:26:51.305]   - Field: 'result'
[17:26:51.305]   - Field: 'asynchronous'
[17:26:51.305]   - Field: 'calls'
[17:26:51.305]   - Field: 'globals'
[17:26:51.306]   - Field: 'stdout'
[17:26:51.306]   - Field: 'earlySignal'
[17:26:51.306]   - Field: 'lazy'
[17:26:51.306]   - Field: 'state'
[17:26:51.306] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.306] - Launch lazy future ...
[17:26:51.307] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:51.307] Packages needed by future strategies (n = 0): <none>
[17:26:51.308] {
[17:26:51.308]     {
[17:26:51.308]         {
[17:26:51.308]             ...future.startTime <- base::Sys.time()
[17:26:51.308]             {
[17:26:51.308]                 {
[17:26:51.308]                   {
[17:26:51.308]                     {
[17:26:51.308]                       base::local({
[17:26:51.308]                         has_future <- base::requireNamespace("future", 
[17:26:51.308]                           quietly = TRUE)
[17:26:51.308]                         if (has_future) {
[17:26:51.308]                           ns <- base::getNamespace("future")
[17:26:51.308]                           version <- ns[[".package"]][["version"]]
[17:26:51.308]                           if (is.null(version)) 
[17:26:51.308]                             version <- utils::packageVersion("future")
[17:26:51.308]                         }
[17:26:51.308]                         else {
[17:26:51.308]                           version <- NULL
[17:26:51.308]                         }
[17:26:51.308]                         if (!has_future || version < "1.8.0") {
[17:26:51.308]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.308]                             "", base::R.version$version.string), 
[17:26:51.308]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.308]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.308]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.308]                               "release", "version")], collapse = " "), 
[17:26:51.308]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.308]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.308]                             info)
[17:26:51.308]                           info <- base::paste(info, collapse = "; ")
[17:26:51.308]                           if (!has_future) {
[17:26:51.308]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.308]                               info)
[17:26:51.308]                           }
[17:26:51.308]                           else {
[17:26:51.308]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.308]                               info, version)
[17:26:51.308]                           }
[17:26:51.308]                           base::stop(msg)
[17:26:51.308]                         }
[17:26:51.308]                       })
[17:26:51.308]                     }
[17:26:51.308]                     base::local({
[17:26:51.308]                       for (pkg in c("stats", "datasets")) {
[17:26:51.308]                         base::loadNamespace(pkg)
[17:26:51.308]                         base::library(pkg, character.only = TRUE)
[17:26:51.308]                       }
[17:26:51.308]                     })
[17:26:51.308]                   }
[17:26:51.308]                   ...future.strategy.old <- future::plan("list")
[17:26:51.308]                   options(future.plan = NULL)
[17:26:51.308]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.308]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.308]                 }
[17:26:51.308]                 ...future.workdir <- getwd()
[17:26:51.308]             }
[17:26:51.308]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.308]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.308]         }
[17:26:51.308]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.308]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.308]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.308]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.308]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.308]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.308]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.308]             base::names(...future.oldOptions))
[17:26:51.308]     }
[17:26:51.308]     if (FALSE) {
[17:26:51.308]     }
[17:26:51.308]     else {
[17:26:51.308]         if (TRUE) {
[17:26:51.308]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.308]                 open = "w")
[17:26:51.308]         }
[17:26:51.308]         else {
[17:26:51.308]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.308]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.308]         }
[17:26:51.308]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.308]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.308]             base::sink(type = "output", split = FALSE)
[17:26:51.308]             base::close(...future.stdout)
[17:26:51.308]         }, add = TRUE)
[17:26:51.308]     }
[17:26:51.308]     ...future.frame <- base::sys.nframe()
[17:26:51.308]     ...future.conditions <- base::list()
[17:26:51.308]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.308]     if (FALSE) {
[17:26:51.308]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.308]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.308]     }
[17:26:51.308]     ...future.result <- base::tryCatch({
[17:26:51.308]         base::withCallingHandlers({
[17:26:51.308]             ...future.value <- base::withVisible(base::local({
[17:26:51.308]                 lm(dist ~ . - 1, data = cars)
[17:26:51.308]             }))
[17:26:51.308]             future::FutureResult(value = ...future.value$value, 
[17:26:51.308]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.308]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.308]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.308]                     ...future.globalenv.names))
[17:26:51.308]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.308]         }, condition = base::local({
[17:26:51.308]             c <- base::c
[17:26:51.308]             inherits <- base::inherits
[17:26:51.308]             invokeRestart <- base::invokeRestart
[17:26:51.308]             length <- base::length
[17:26:51.308]             list <- base::list
[17:26:51.308]             seq.int <- base::seq.int
[17:26:51.308]             signalCondition <- base::signalCondition
[17:26:51.308]             sys.calls <- base::sys.calls
[17:26:51.308]             `[[` <- base::`[[`
[17:26:51.308]             `+` <- base::`+`
[17:26:51.308]             `<<-` <- base::`<<-`
[17:26:51.308]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.308]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.308]                   3L)]
[17:26:51.308]             }
[17:26:51.308]             function(cond) {
[17:26:51.308]                 is_error <- inherits(cond, "error")
[17:26:51.308]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.308]                   NULL)
[17:26:51.308]                 if (is_error) {
[17:26:51.308]                   sessionInformation <- function() {
[17:26:51.308]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.308]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.308]                       search = base::search(), system = base::Sys.info())
[17:26:51.308]                   }
[17:26:51.308]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.308]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.308]                     cond$call), session = sessionInformation(), 
[17:26:51.308]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.308]                   signalCondition(cond)
[17:26:51.308]                 }
[17:26:51.308]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.308]                 "immediateCondition"))) {
[17:26:51.308]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.308]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.308]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.308]                   if (TRUE && !signal) {
[17:26:51.308]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.308]                     {
[17:26:51.308]                       inherits <- base::inherits
[17:26:51.308]                       invokeRestart <- base::invokeRestart
[17:26:51.308]                       is.null <- base::is.null
[17:26:51.308]                       muffled <- FALSE
[17:26:51.308]                       if (inherits(cond, "message")) {
[17:26:51.308]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.308]                         if (muffled) 
[17:26:51.308]                           invokeRestart("muffleMessage")
[17:26:51.308]                       }
[17:26:51.308]                       else if (inherits(cond, "warning")) {
[17:26:51.308]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.308]                         if (muffled) 
[17:26:51.308]                           invokeRestart("muffleWarning")
[17:26:51.308]                       }
[17:26:51.308]                       else if (inherits(cond, "condition")) {
[17:26:51.308]                         if (!is.null(pattern)) {
[17:26:51.308]                           computeRestarts <- base::computeRestarts
[17:26:51.308]                           grepl <- base::grepl
[17:26:51.308]                           restarts <- computeRestarts(cond)
[17:26:51.308]                           for (restart in restarts) {
[17:26:51.308]                             name <- restart$name
[17:26:51.308]                             if (is.null(name)) 
[17:26:51.308]                               next
[17:26:51.308]                             if (!grepl(pattern, name)) 
[17:26:51.308]                               next
[17:26:51.308]                             invokeRestart(restart)
[17:26:51.308]                             muffled <- TRUE
[17:26:51.308]                             break
[17:26:51.308]                           }
[17:26:51.308]                         }
[17:26:51.308]                       }
[17:26:51.308]                       invisible(muffled)
[17:26:51.308]                     }
[17:26:51.308]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.308]                   }
[17:26:51.308]                 }
[17:26:51.308]                 else {
[17:26:51.308]                   if (TRUE) {
[17:26:51.308]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.308]                     {
[17:26:51.308]                       inherits <- base::inherits
[17:26:51.308]                       invokeRestart <- base::invokeRestart
[17:26:51.308]                       is.null <- base::is.null
[17:26:51.308]                       muffled <- FALSE
[17:26:51.308]                       if (inherits(cond, "message")) {
[17:26:51.308]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.308]                         if (muffled) 
[17:26:51.308]                           invokeRestart("muffleMessage")
[17:26:51.308]                       }
[17:26:51.308]                       else if (inherits(cond, "warning")) {
[17:26:51.308]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.308]                         if (muffled) 
[17:26:51.308]                           invokeRestart("muffleWarning")
[17:26:51.308]                       }
[17:26:51.308]                       else if (inherits(cond, "condition")) {
[17:26:51.308]                         if (!is.null(pattern)) {
[17:26:51.308]                           computeRestarts <- base::computeRestarts
[17:26:51.308]                           grepl <- base::grepl
[17:26:51.308]                           restarts <- computeRestarts(cond)
[17:26:51.308]                           for (restart in restarts) {
[17:26:51.308]                             name <- restart$name
[17:26:51.308]                             if (is.null(name)) 
[17:26:51.308]                               next
[17:26:51.308]                             if (!grepl(pattern, name)) 
[17:26:51.308]                               next
[17:26:51.308]                             invokeRestart(restart)
[17:26:51.308]                             muffled <- TRUE
[17:26:51.308]                             break
[17:26:51.308]                           }
[17:26:51.308]                         }
[17:26:51.308]                       }
[17:26:51.308]                       invisible(muffled)
[17:26:51.308]                     }
[17:26:51.308]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.308]                   }
[17:26:51.308]                 }
[17:26:51.308]             }
[17:26:51.308]         }))
[17:26:51.308]     }, error = function(ex) {
[17:26:51.308]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.308]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.308]                 ...future.rng), started = ...future.startTime, 
[17:26:51.308]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.308]             version = "1.8"), class = "FutureResult")
[17:26:51.308]     }, finally = {
[17:26:51.308]         if (!identical(...future.workdir, getwd())) 
[17:26:51.308]             setwd(...future.workdir)
[17:26:51.308]         {
[17:26:51.308]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.308]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.308]             }
[17:26:51.308]             base::options(...future.oldOptions)
[17:26:51.308]             if (.Platform$OS.type == "windows") {
[17:26:51.308]                 old_names <- names(...future.oldEnvVars)
[17:26:51.308]                 envs <- base::Sys.getenv()
[17:26:51.308]                 names <- names(envs)
[17:26:51.308]                 common <- intersect(names, old_names)
[17:26:51.308]                 added <- setdiff(names, old_names)
[17:26:51.308]                 removed <- setdiff(old_names, names)
[17:26:51.308]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.308]                   envs[common]]
[17:26:51.308]                 NAMES <- toupper(changed)
[17:26:51.308]                 args <- list()
[17:26:51.308]                 for (kk in seq_along(NAMES)) {
[17:26:51.308]                   name <- changed[[kk]]
[17:26:51.308]                   NAME <- NAMES[[kk]]
[17:26:51.308]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.308]                     next
[17:26:51.308]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.308]                 }
[17:26:51.308]                 NAMES <- toupper(added)
[17:26:51.308]                 for (kk in seq_along(NAMES)) {
[17:26:51.308]                   name <- added[[kk]]
[17:26:51.308]                   NAME <- NAMES[[kk]]
[17:26:51.308]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.308]                     next
[17:26:51.308]                   args[[name]] <- ""
[17:26:51.308]                 }
[17:26:51.308]                 NAMES <- toupper(removed)
[17:26:51.308]                 for (kk in seq_along(NAMES)) {
[17:26:51.308]                   name <- removed[[kk]]
[17:26:51.308]                   NAME <- NAMES[[kk]]
[17:26:51.308]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.308]                     next
[17:26:51.308]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.308]                 }
[17:26:51.308]                 if (length(args) > 0) 
[17:26:51.308]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.308]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.308]             }
[17:26:51.308]             else {
[17:26:51.308]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.308]             }
[17:26:51.308]             {
[17:26:51.308]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.308]                   0L) {
[17:26:51.308]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.308]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.308]                   base::options(opts)
[17:26:51.308]                 }
[17:26:51.308]                 {
[17:26:51.308]                   {
[17:26:51.308]                     NULL
[17:26:51.308]                     RNGkind("Mersenne-Twister")
[17:26:51.308]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.308]                       inherits = FALSE)
[17:26:51.308]                   }
[17:26:51.308]                   options(future.plan = NULL)
[17:26:51.308]                   if (is.na(NA_character_)) 
[17:26:51.308]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.308]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.308]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.308]                     .init = FALSE)
[17:26:51.308]                 }
[17:26:51.308]             }
[17:26:51.308]         }
[17:26:51.308]     })
[17:26:51.308]     if (TRUE) {
[17:26:51.308]         base::sink(type = "output", split = FALSE)
[17:26:51.308]         if (TRUE) {
[17:26:51.308]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.308]         }
[17:26:51.308]         else {
[17:26:51.308]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.308]         }
[17:26:51.308]         base::close(...future.stdout)
[17:26:51.308]         ...future.stdout <- NULL
[17:26:51.308]     }
[17:26:51.308]     ...future.result$conditions <- ...future.conditions
[17:26:51.308]     ...future.result$finished <- base::Sys.time()
[17:26:51.308]     ...future.result
[17:26:51.308] }
[17:26:51.312] plan(): Setting new future strategy stack:
[17:26:51.312] List of future strategies:
[17:26:51.312] 1. sequential:
[17:26:51.312]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.312]    - tweaked: FALSE
[17:26:51.312]    - call: NULL
[17:26:51.313] plan(): nbrOfWorkers() = 1
[17:26:51.314] plan(): Setting new future strategy stack:
[17:26:51.315] List of future strategies:
[17:26:51.315] 1. sequential:
[17:26:51.315]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.315]    - tweaked: FALSE
[17:26:51.315]    - call: plan(strategy)
[17:26:51.315] plan(): nbrOfWorkers() = 1
[17:26:51.315] SequentialFuture started (and completed)
[17:26:51.316] - Launch lazy future ... done
[17:26:51.316] run() for 'SequentialFuture' ... done

Call:
lm(formula = dist ~ . - 1, data = cars)

Coefficients:
speed  
2.909  

- Globals - lm(<formula #2 ('b')>, data = cars) ...

Call:
lm(formula = dist ~ . + 0, data = cars)

Coefficients:
speed  
2.909  

[17:26:51.319] getGlobalsAndPackages() ...
[17:26:51.319] Searching for globals...
[17:26:51.321] - globals found: [7] '{', 'lm', 'dist', '+', '.', '~', 'cars'
[17:26:51.322] Searching for globals ... DONE
[17:26:51.322] Resolving globals: FALSE
[17:26:51.322] 
[17:26:51.323] - packages: [2] 'stats', 'datasets'
[17:26:51.323] getGlobalsAndPackages() ... DONE
[17:26:51.323] run() for 'Future' ...
[17:26:51.323] - state: 'created'
[17:26:51.323] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.324] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.324] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.324]   - Field: 'label'
[17:26:51.324]   - Field: 'local'
[17:26:51.325]   - Field: 'owner'
[17:26:51.325]   - Field: 'envir'
[17:26:51.325]   - Field: 'packages'
[17:26:51.325]   - Field: 'gc'
[17:26:51.325]   - Field: 'conditions'
[17:26:51.325]   - Field: 'expr'
[17:26:51.326]   - Field: 'uuid'
[17:26:51.326]   - Field: 'seed'
[17:26:51.326]   - Field: 'version'
[17:26:51.326]   - Field: 'result'
[17:26:51.326]   - Field: 'asynchronous'
[17:26:51.326]   - Field: 'calls'
[17:26:51.327]   - Field: 'globals'
[17:26:51.327]   - Field: 'stdout'
[17:26:51.327]   - Field: 'earlySignal'
[17:26:51.327]   - Field: 'lazy'
[17:26:51.327]   - Field: 'state'
[17:26:51.327] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.328] - Launch lazy future ...
[17:26:51.328] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:51.328] Packages needed by future strategies (n = 0): <none>
[17:26:51.329] {
[17:26:51.329]     {
[17:26:51.329]         {
[17:26:51.329]             ...future.startTime <- base::Sys.time()
[17:26:51.329]             {
[17:26:51.329]                 {
[17:26:51.329]                   {
[17:26:51.329]                     {
[17:26:51.329]                       base::local({
[17:26:51.329]                         has_future <- base::requireNamespace("future", 
[17:26:51.329]                           quietly = TRUE)
[17:26:51.329]                         if (has_future) {
[17:26:51.329]                           ns <- base::getNamespace("future")
[17:26:51.329]                           version <- ns[[".package"]][["version"]]
[17:26:51.329]                           if (is.null(version)) 
[17:26:51.329]                             version <- utils::packageVersion("future")
[17:26:51.329]                         }
[17:26:51.329]                         else {
[17:26:51.329]                           version <- NULL
[17:26:51.329]                         }
[17:26:51.329]                         if (!has_future || version < "1.8.0") {
[17:26:51.329]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.329]                             "", base::R.version$version.string), 
[17:26:51.329]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.329]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.329]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.329]                               "release", "version")], collapse = " "), 
[17:26:51.329]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.329]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.329]                             info)
[17:26:51.329]                           info <- base::paste(info, collapse = "; ")
[17:26:51.329]                           if (!has_future) {
[17:26:51.329]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.329]                               info)
[17:26:51.329]                           }
[17:26:51.329]                           else {
[17:26:51.329]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.329]                               info, version)
[17:26:51.329]                           }
[17:26:51.329]                           base::stop(msg)
[17:26:51.329]                         }
[17:26:51.329]                       })
[17:26:51.329]                     }
[17:26:51.329]                     base::local({
[17:26:51.329]                       for (pkg in c("stats", "datasets")) {
[17:26:51.329]                         base::loadNamespace(pkg)
[17:26:51.329]                         base::library(pkg, character.only = TRUE)
[17:26:51.329]                       }
[17:26:51.329]                     })
[17:26:51.329]                   }
[17:26:51.329]                   ...future.strategy.old <- future::plan("list")
[17:26:51.329]                   options(future.plan = NULL)
[17:26:51.329]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.329]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.329]                 }
[17:26:51.329]                 ...future.workdir <- getwd()
[17:26:51.329]             }
[17:26:51.329]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.329]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.329]         }
[17:26:51.329]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.329]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.329]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.329]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.329]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.329]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.329]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.329]             base::names(...future.oldOptions))
[17:26:51.329]     }
[17:26:51.329]     if (FALSE) {
[17:26:51.329]     }
[17:26:51.329]     else {
[17:26:51.329]         if (TRUE) {
[17:26:51.329]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.329]                 open = "w")
[17:26:51.329]         }
[17:26:51.329]         else {
[17:26:51.329]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.329]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.329]         }
[17:26:51.329]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.329]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.329]             base::sink(type = "output", split = FALSE)
[17:26:51.329]             base::close(...future.stdout)
[17:26:51.329]         }, add = TRUE)
[17:26:51.329]     }
[17:26:51.329]     ...future.frame <- base::sys.nframe()
[17:26:51.329]     ...future.conditions <- base::list()
[17:26:51.329]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.329]     if (FALSE) {
[17:26:51.329]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.329]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.329]     }
[17:26:51.329]     ...future.result <- base::tryCatch({
[17:26:51.329]         base::withCallingHandlers({
[17:26:51.329]             ...future.value <- base::withVisible(base::local({
[17:26:51.329]                 lm(dist ~ . + 0, data = cars)
[17:26:51.329]             }))
[17:26:51.329]             future::FutureResult(value = ...future.value$value, 
[17:26:51.329]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.329]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.329]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.329]                     ...future.globalenv.names))
[17:26:51.329]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.329]         }, condition = base::local({
[17:26:51.329]             c <- base::c
[17:26:51.329]             inherits <- base::inherits
[17:26:51.329]             invokeRestart <- base::invokeRestart
[17:26:51.329]             length <- base::length
[17:26:51.329]             list <- base::list
[17:26:51.329]             seq.int <- base::seq.int
[17:26:51.329]             signalCondition <- base::signalCondition
[17:26:51.329]             sys.calls <- base::sys.calls
[17:26:51.329]             `[[` <- base::`[[`
[17:26:51.329]             `+` <- base::`+`
[17:26:51.329]             `<<-` <- base::`<<-`
[17:26:51.329]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.329]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.329]                   3L)]
[17:26:51.329]             }
[17:26:51.329]             function(cond) {
[17:26:51.329]                 is_error <- inherits(cond, "error")
[17:26:51.329]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.329]                   NULL)
[17:26:51.329]                 if (is_error) {
[17:26:51.329]                   sessionInformation <- function() {
[17:26:51.329]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.329]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.329]                       search = base::search(), system = base::Sys.info())
[17:26:51.329]                   }
[17:26:51.329]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.329]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.329]                     cond$call), session = sessionInformation(), 
[17:26:51.329]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.329]                   signalCondition(cond)
[17:26:51.329]                 }
[17:26:51.329]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.329]                 "immediateCondition"))) {
[17:26:51.329]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.329]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.329]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.329]                   if (TRUE && !signal) {
[17:26:51.329]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.329]                     {
[17:26:51.329]                       inherits <- base::inherits
[17:26:51.329]                       invokeRestart <- base::invokeRestart
[17:26:51.329]                       is.null <- base::is.null
[17:26:51.329]                       muffled <- FALSE
[17:26:51.329]                       if (inherits(cond, "message")) {
[17:26:51.329]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.329]                         if (muffled) 
[17:26:51.329]                           invokeRestart("muffleMessage")
[17:26:51.329]                       }
[17:26:51.329]                       else if (inherits(cond, "warning")) {
[17:26:51.329]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.329]                         if (muffled) 
[17:26:51.329]                           invokeRestart("muffleWarning")
[17:26:51.329]                       }
[17:26:51.329]                       else if (inherits(cond, "condition")) {
[17:26:51.329]                         if (!is.null(pattern)) {
[17:26:51.329]                           computeRestarts <- base::computeRestarts
[17:26:51.329]                           grepl <- base::grepl
[17:26:51.329]                           restarts <- computeRestarts(cond)
[17:26:51.329]                           for (restart in restarts) {
[17:26:51.329]                             name <- restart$name
[17:26:51.329]                             if (is.null(name)) 
[17:26:51.329]                               next
[17:26:51.329]                             if (!grepl(pattern, name)) 
[17:26:51.329]                               next
[17:26:51.329]                             invokeRestart(restart)
[17:26:51.329]                             muffled <- TRUE
[17:26:51.329]                             break
[17:26:51.329]                           }
[17:26:51.329]                         }
[17:26:51.329]                       }
[17:26:51.329]                       invisible(muffled)
[17:26:51.329]                     }
[17:26:51.329]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.329]                   }
[17:26:51.329]                 }
[17:26:51.329]                 else {
[17:26:51.329]                   if (TRUE) {
[17:26:51.329]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.329]                     {
[17:26:51.329]                       inherits <- base::inherits
[17:26:51.329]                       invokeRestart <- base::invokeRestart
[17:26:51.329]                       is.null <- base::is.null
[17:26:51.329]                       muffled <- FALSE
[17:26:51.329]                       if (inherits(cond, "message")) {
[17:26:51.329]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.329]                         if (muffled) 
[17:26:51.329]                           invokeRestart("muffleMessage")
[17:26:51.329]                       }
[17:26:51.329]                       else if (inherits(cond, "warning")) {
[17:26:51.329]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.329]                         if (muffled) 
[17:26:51.329]                           invokeRestart("muffleWarning")
[17:26:51.329]                       }
[17:26:51.329]                       else if (inherits(cond, "condition")) {
[17:26:51.329]                         if (!is.null(pattern)) {
[17:26:51.329]                           computeRestarts <- base::computeRestarts
[17:26:51.329]                           grepl <- base::grepl
[17:26:51.329]                           restarts <- computeRestarts(cond)
[17:26:51.329]                           for (restart in restarts) {
[17:26:51.329]                             name <- restart$name
[17:26:51.329]                             if (is.null(name)) 
[17:26:51.329]                               next
[17:26:51.329]                             if (!grepl(pattern, name)) 
[17:26:51.329]                               next
[17:26:51.329]                             invokeRestart(restart)
[17:26:51.329]                             muffled <- TRUE
[17:26:51.329]                             break
[17:26:51.329]                           }
[17:26:51.329]                         }
[17:26:51.329]                       }
[17:26:51.329]                       invisible(muffled)
[17:26:51.329]                     }
[17:26:51.329]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.329]                   }
[17:26:51.329]                 }
[17:26:51.329]             }
[17:26:51.329]         }))
[17:26:51.329]     }, error = function(ex) {
[17:26:51.329]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.329]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.329]                 ...future.rng), started = ...future.startTime, 
[17:26:51.329]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.329]             version = "1.8"), class = "FutureResult")
[17:26:51.329]     }, finally = {
[17:26:51.329]         if (!identical(...future.workdir, getwd())) 
[17:26:51.329]             setwd(...future.workdir)
[17:26:51.329]         {
[17:26:51.329]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.329]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.329]             }
[17:26:51.329]             base::options(...future.oldOptions)
[17:26:51.329]             if (.Platform$OS.type == "windows") {
[17:26:51.329]                 old_names <- names(...future.oldEnvVars)
[17:26:51.329]                 envs <- base::Sys.getenv()
[17:26:51.329]                 names <- names(envs)
[17:26:51.329]                 common <- intersect(names, old_names)
[17:26:51.329]                 added <- setdiff(names, old_names)
[17:26:51.329]                 removed <- setdiff(old_names, names)
[17:26:51.329]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.329]                   envs[common]]
[17:26:51.329]                 NAMES <- toupper(changed)
[17:26:51.329]                 args <- list()
[17:26:51.329]                 for (kk in seq_along(NAMES)) {
[17:26:51.329]                   name <- changed[[kk]]
[17:26:51.329]                   NAME <- NAMES[[kk]]
[17:26:51.329]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.329]                     next
[17:26:51.329]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.329]                 }
[17:26:51.329]                 NAMES <- toupper(added)
[17:26:51.329]                 for (kk in seq_along(NAMES)) {
[17:26:51.329]                   name <- added[[kk]]
[17:26:51.329]                   NAME <- NAMES[[kk]]
[17:26:51.329]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.329]                     next
[17:26:51.329]                   args[[name]] <- ""
[17:26:51.329]                 }
[17:26:51.329]                 NAMES <- toupper(removed)
[17:26:51.329]                 for (kk in seq_along(NAMES)) {
[17:26:51.329]                   name <- removed[[kk]]
[17:26:51.329]                   NAME <- NAMES[[kk]]
[17:26:51.329]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.329]                     next
[17:26:51.329]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.329]                 }
[17:26:51.329]                 if (length(args) > 0) 
[17:26:51.329]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.329]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.329]             }
[17:26:51.329]             else {
[17:26:51.329]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.329]             }
[17:26:51.329]             {
[17:26:51.329]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.329]                   0L) {
[17:26:51.329]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.329]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.329]                   base::options(opts)
[17:26:51.329]                 }
[17:26:51.329]                 {
[17:26:51.329]                   {
[17:26:51.329]                     NULL
[17:26:51.329]                     RNGkind("Mersenne-Twister")
[17:26:51.329]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.329]                       inherits = FALSE)
[17:26:51.329]                   }
[17:26:51.329]                   options(future.plan = NULL)
[17:26:51.329]                   if (is.na(NA_character_)) 
[17:26:51.329]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.329]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.329]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.329]                     .init = FALSE)
[17:26:51.329]                 }
[17:26:51.329]             }
[17:26:51.329]         }
[17:26:51.329]     })
[17:26:51.329]     if (TRUE) {
[17:26:51.329]         base::sink(type = "output", split = FALSE)
[17:26:51.329]         if (TRUE) {
[17:26:51.329]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.329]         }
[17:26:51.329]         else {
[17:26:51.329]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.329]         }
[17:26:51.329]         base::close(...future.stdout)
[17:26:51.329]         ...future.stdout <- NULL
[17:26:51.329]     }
[17:26:51.329]     ...future.result$conditions <- ...future.conditions
[17:26:51.329]     ...future.result$finished <- base::Sys.time()
[17:26:51.329]     ...future.result
[17:26:51.329] }
[17:26:51.333] plan(): Setting new future strategy stack:
[17:26:51.333] List of future strategies:
[17:26:51.333] 1. sequential:
[17:26:51.333]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.333]    - tweaked: FALSE
[17:26:51.333]    - call: NULL
[17:26:51.334] plan(): nbrOfWorkers() = 1
[17:26:51.336] plan(): Setting new future strategy stack:
[17:26:51.336] List of future strategies:
[17:26:51.336] 1. sequential:
[17:26:51.336]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.336]    - tweaked: FALSE
[17:26:51.336]    - call: plan(strategy)
[17:26:51.336] plan(): nbrOfWorkers() = 1
[17:26:51.337] SequentialFuture started (and completed)
[17:26:51.337] - Launch lazy future ... done
[17:26:51.337] run() for 'SequentialFuture' ... done

Call:
lm(formula = dist ~ . + 0, data = cars)

Coefficients:
speed  
2.909  

- Globals - lm(<formula #3 ('c')>, data = cars) ...

Call:
lm(formula = dist ~ speed + speed^2, data = cars)

Coefficients:
(Intercept)        speed  
    -17.579        3.932  

[17:26:51.340] getGlobalsAndPackages() ...
[17:26:51.340] Searching for globals...
[17:26:51.342] - globals found: [8] '{', 'lm', 'dist', '+', 'speed', '^', '~', 'cars'
[17:26:51.342] Searching for globals ... DONE
[17:26:51.342] Resolving globals: FALSE
[17:26:51.343] 
[17:26:51.343] - packages: [2] 'stats', 'datasets'
[17:26:51.343] getGlobalsAndPackages() ... DONE
[17:26:51.344] run() for 'Future' ...
[17:26:51.344] - state: 'created'
[17:26:51.344] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.344] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.345] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.345]   - Field: 'label'
[17:26:51.345]   - Field: 'local'
[17:26:51.345]   - Field: 'owner'
[17:26:51.345]   - Field: 'envir'
[17:26:51.346]   - Field: 'packages'
[17:26:51.346]   - Field: 'gc'
[17:26:51.346]   - Field: 'conditions'
[17:26:51.346]   - Field: 'expr'
[17:26:51.346]   - Field: 'uuid'
[17:26:51.347]   - Field: 'seed'
[17:26:51.347]   - Field: 'version'
[17:26:51.348]   - Field: 'result'
[17:26:51.348]   - Field: 'asynchronous'
[17:26:51.348]   - Field: 'calls'
[17:26:51.348]   - Field: 'globals'
[17:26:51.348]   - Field: 'stdout'
[17:26:51.349]   - Field: 'earlySignal'
[17:26:51.349]   - Field: 'lazy'
[17:26:51.349]   - Field: 'state'
[17:26:51.349] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.349] - Launch lazy future ...
[17:26:51.349] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:51.350] Packages needed by future strategies (n = 0): <none>
[17:26:51.350] {
[17:26:51.350]     {
[17:26:51.350]         {
[17:26:51.350]             ...future.startTime <- base::Sys.time()
[17:26:51.350]             {
[17:26:51.350]                 {
[17:26:51.350]                   {
[17:26:51.350]                     {
[17:26:51.350]                       base::local({
[17:26:51.350]                         has_future <- base::requireNamespace("future", 
[17:26:51.350]                           quietly = TRUE)
[17:26:51.350]                         if (has_future) {
[17:26:51.350]                           ns <- base::getNamespace("future")
[17:26:51.350]                           version <- ns[[".package"]][["version"]]
[17:26:51.350]                           if (is.null(version)) 
[17:26:51.350]                             version <- utils::packageVersion("future")
[17:26:51.350]                         }
[17:26:51.350]                         else {
[17:26:51.350]                           version <- NULL
[17:26:51.350]                         }
[17:26:51.350]                         if (!has_future || version < "1.8.0") {
[17:26:51.350]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.350]                             "", base::R.version$version.string), 
[17:26:51.350]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.350]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.350]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.350]                               "release", "version")], collapse = " "), 
[17:26:51.350]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.350]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.350]                             info)
[17:26:51.350]                           info <- base::paste(info, collapse = "; ")
[17:26:51.350]                           if (!has_future) {
[17:26:51.350]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.350]                               info)
[17:26:51.350]                           }
[17:26:51.350]                           else {
[17:26:51.350]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.350]                               info, version)
[17:26:51.350]                           }
[17:26:51.350]                           base::stop(msg)
[17:26:51.350]                         }
[17:26:51.350]                       })
[17:26:51.350]                     }
[17:26:51.350]                     base::local({
[17:26:51.350]                       for (pkg in c("stats", "datasets")) {
[17:26:51.350]                         base::loadNamespace(pkg)
[17:26:51.350]                         base::library(pkg, character.only = TRUE)
[17:26:51.350]                       }
[17:26:51.350]                     })
[17:26:51.350]                   }
[17:26:51.350]                   ...future.strategy.old <- future::plan("list")
[17:26:51.350]                   options(future.plan = NULL)
[17:26:51.350]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.350]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.350]                 }
[17:26:51.350]                 ...future.workdir <- getwd()
[17:26:51.350]             }
[17:26:51.350]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.350]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.350]         }
[17:26:51.350]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.350]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.350]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.350]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.350]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.350]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.350]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.350]             base::names(...future.oldOptions))
[17:26:51.350]     }
[17:26:51.350]     if (FALSE) {
[17:26:51.350]     }
[17:26:51.350]     else {
[17:26:51.350]         if (TRUE) {
[17:26:51.350]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.350]                 open = "w")
[17:26:51.350]         }
[17:26:51.350]         else {
[17:26:51.350]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.350]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.350]         }
[17:26:51.350]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.350]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.350]             base::sink(type = "output", split = FALSE)
[17:26:51.350]             base::close(...future.stdout)
[17:26:51.350]         }, add = TRUE)
[17:26:51.350]     }
[17:26:51.350]     ...future.frame <- base::sys.nframe()
[17:26:51.350]     ...future.conditions <- base::list()
[17:26:51.350]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.350]     if (FALSE) {
[17:26:51.350]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.350]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.350]     }
[17:26:51.350]     ...future.result <- base::tryCatch({
[17:26:51.350]         base::withCallingHandlers({
[17:26:51.350]             ...future.value <- base::withVisible(base::local({
[17:26:51.350]                 lm(dist ~ speed + speed^2, data = cars)
[17:26:51.350]             }))
[17:26:51.350]             future::FutureResult(value = ...future.value$value, 
[17:26:51.350]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.350]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.350]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.350]                     ...future.globalenv.names))
[17:26:51.350]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.350]         }, condition = base::local({
[17:26:51.350]             c <- base::c
[17:26:51.350]             inherits <- base::inherits
[17:26:51.350]             invokeRestart <- base::invokeRestart
[17:26:51.350]             length <- base::length
[17:26:51.350]             list <- base::list
[17:26:51.350]             seq.int <- base::seq.int
[17:26:51.350]             signalCondition <- base::signalCondition
[17:26:51.350]             sys.calls <- base::sys.calls
[17:26:51.350]             `[[` <- base::`[[`
[17:26:51.350]             `+` <- base::`+`
[17:26:51.350]             `<<-` <- base::`<<-`
[17:26:51.350]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.350]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.350]                   3L)]
[17:26:51.350]             }
[17:26:51.350]             function(cond) {
[17:26:51.350]                 is_error <- inherits(cond, "error")
[17:26:51.350]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.350]                   NULL)
[17:26:51.350]                 if (is_error) {
[17:26:51.350]                   sessionInformation <- function() {
[17:26:51.350]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.350]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.350]                       search = base::search(), system = base::Sys.info())
[17:26:51.350]                   }
[17:26:51.350]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.350]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.350]                     cond$call), session = sessionInformation(), 
[17:26:51.350]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.350]                   signalCondition(cond)
[17:26:51.350]                 }
[17:26:51.350]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.350]                 "immediateCondition"))) {
[17:26:51.350]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.350]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.350]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.350]                   if (TRUE && !signal) {
[17:26:51.350]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.350]                     {
[17:26:51.350]                       inherits <- base::inherits
[17:26:51.350]                       invokeRestart <- base::invokeRestart
[17:26:51.350]                       is.null <- base::is.null
[17:26:51.350]                       muffled <- FALSE
[17:26:51.350]                       if (inherits(cond, "message")) {
[17:26:51.350]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.350]                         if (muffled) 
[17:26:51.350]                           invokeRestart("muffleMessage")
[17:26:51.350]                       }
[17:26:51.350]                       else if (inherits(cond, "warning")) {
[17:26:51.350]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.350]                         if (muffled) 
[17:26:51.350]                           invokeRestart("muffleWarning")
[17:26:51.350]                       }
[17:26:51.350]                       else if (inherits(cond, "condition")) {
[17:26:51.350]                         if (!is.null(pattern)) {
[17:26:51.350]                           computeRestarts <- base::computeRestarts
[17:26:51.350]                           grepl <- base::grepl
[17:26:51.350]                           restarts <- computeRestarts(cond)
[17:26:51.350]                           for (restart in restarts) {
[17:26:51.350]                             name <- restart$name
[17:26:51.350]                             if (is.null(name)) 
[17:26:51.350]                               next
[17:26:51.350]                             if (!grepl(pattern, name)) 
[17:26:51.350]                               next
[17:26:51.350]                             invokeRestart(restart)
[17:26:51.350]                             muffled <- TRUE
[17:26:51.350]                             break
[17:26:51.350]                           }
[17:26:51.350]                         }
[17:26:51.350]                       }
[17:26:51.350]                       invisible(muffled)
[17:26:51.350]                     }
[17:26:51.350]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.350]                   }
[17:26:51.350]                 }
[17:26:51.350]                 else {
[17:26:51.350]                   if (TRUE) {
[17:26:51.350]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.350]                     {
[17:26:51.350]                       inherits <- base::inherits
[17:26:51.350]                       invokeRestart <- base::invokeRestart
[17:26:51.350]                       is.null <- base::is.null
[17:26:51.350]                       muffled <- FALSE
[17:26:51.350]                       if (inherits(cond, "message")) {
[17:26:51.350]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.350]                         if (muffled) 
[17:26:51.350]                           invokeRestart("muffleMessage")
[17:26:51.350]                       }
[17:26:51.350]                       else if (inherits(cond, "warning")) {
[17:26:51.350]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.350]                         if (muffled) 
[17:26:51.350]                           invokeRestart("muffleWarning")
[17:26:51.350]                       }
[17:26:51.350]                       else if (inherits(cond, "condition")) {
[17:26:51.350]                         if (!is.null(pattern)) {
[17:26:51.350]                           computeRestarts <- base::computeRestarts
[17:26:51.350]                           grepl <- base::grepl
[17:26:51.350]                           restarts <- computeRestarts(cond)
[17:26:51.350]                           for (restart in restarts) {
[17:26:51.350]                             name <- restart$name
[17:26:51.350]                             if (is.null(name)) 
[17:26:51.350]                               next
[17:26:51.350]                             if (!grepl(pattern, name)) 
[17:26:51.350]                               next
[17:26:51.350]                             invokeRestart(restart)
[17:26:51.350]                             muffled <- TRUE
[17:26:51.350]                             break
[17:26:51.350]                           }
[17:26:51.350]                         }
[17:26:51.350]                       }
[17:26:51.350]                       invisible(muffled)
[17:26:51.350]                     }
[17:26:51.350]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.350]                   }
[17:26:51.350]                 }
[17:26:51.350]             }
[17:26:51.350]         }))
[17:26:51.350]     }, error = function(ex) {
[17:26:51.350]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.350]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.350]                 ...future.rng), started = ...future.startTime, 
[17:26:51.350]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.350]             version = "1.8"), class = "FutureResult")
[17:26:51.350]     }, finally = {
[17:26:51.350]         if (!identical(...future.workdir, getwd())) 
[17:26:51.350]             setwd(...future.workdir)
[17:26:51.350]         {
[17:26:51.350]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.350]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.350]             }
[17:26:51.350]             base::options(...future.oldOptions)
[17:26:51.350]             if (.Platform$OS.type == "windows") {
[17:26:51.350]                 old_names <- names(...future.oldEnvVars)
[17:26:51.350]                 envs <- base::Sys.getenv()
[17:26:51.350]                 names <- names(envs)
[17:26:51.350]                 common <- intersect(names, old_names)
[17:26:51.350]                 added <- setdiff(names, old_names)
[17:26:51.350]                 removed <- setdiff(old_names, names)
[17:26:51.350]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.350]                   envs[common]]
[17:26:51.350]                 NAMES <- toupper(changed)
[17:26:51.350]                 args <- list()
[17:26:51.350]                 for (kk in seq_along(NAMES)) {
[17:26:51.350]                   name <- changed[[kk]]
[17:26:51.350]                   NAME <- NAMES[[kk]]
[17:26:51.350]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.350]                     next
[17:26:51.350]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.350]                 }
[17:26:51.350]                 NAMES <- toupper(added)
[17:26:51.350]                 for (kk in seq_along(NAMES)) {
[17:26:51.350]                   name <- added[[kk]]
[17:26:51.350]                   NAME <- NAMES[[kk]]
[17:26:51.350]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.350]                     next
[17:26:51.350]                   args[[name]] <- ""
[17:26:51.350]                 }
[17:26:51.350]                 NAMES <- toupper(removed)
[17:26:51.350]                 for (kk in seq_along(NAMES)) {
[17:26:51.350]                   name <- removed[[kk]]
[17:26:51.350]                   NAME <- NAMES[[kk]]
[17:26:51.350]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.350]                     next
[17:26:51.350]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.350]                 }
[17:26:51.350]                 if (length(args) > 0) 
[17:26:51.350]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.350]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.350]             }
[17:26:51.350]             else {
[17:26:51.350]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.350]             }
[17:26:51.350]             {
[17:26:51.350]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.350]                   0L) {
[17:26:51.350]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.350]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.350]                   base::options(opts)
[17:26:51.350]                 }
[17:26:51.350]                 {
[17:26:51.350]                   {
[17:26:51.350]                     NULL
[17:26:51.350]                     RNGkind("Mersenne-Twister")
[17:26:51.350]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.350]                       inherits = FALSE)
[17:26:51.350]                   }
[17:26:51.350]                   options(future.plan = NULL)
[17:26:51.350]                   if (is.na(NA_character_)) 
[17:26:51.350]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.350]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.350]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.350]                     .init = FALSE)
[17:26:51.350]                 }
[17:26:51.350]             }
[17:26:51.350]         }
[17:26:51.350]     })
[17:26:51.350]     if (TRUE) {
[17:26:51.350]         base::sink(type = "output", split = FALSE)
[17:26:51.350]         if (TRUE) {
[17:26:51.350]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.350]         }
[17:26:51.350]         else {
[17:26:51.350]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.350]         }
[17:26:51.350]         base::close(...future.stdout)
[17:26:51.350]         ...future.stdout <- NULL
[17:26:51.350]     }
[17:26:51.350]     ...future.result$conditions <- ...future.conditions
[17:26:51.350]     ...future.result$finished <- base::Sys.time()
[17:26:51.350]     ...future.result
[17:26:51.350] }
[17:26:51.355] plan(): Setting new future strategy stack:
[17:26:51.355] List of future strategies:
[17:26:51.355] 1. sequential:
[17:26:51.355]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.355]    - tweaked: FALSE
[17:26:51.355]    - call: NULL
[17:26:51.355] plan(): nbrOfWorkers() = 1
[17:26:51.357] plan(): Setting new future strategy stack:
[17:26:51.357] List of future strategies:
[17:26:51.357] 1. sequential:
[17:26:51.357]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.357]    - tweaked: FALSE
[17:26:51.357]    - call: plan(strategy)
[17:26:51.358] plan(): nbrOfWorkers() = 1
[17:26:51.358] SequentialFuture started (and completed)
[17:26:51.358] - Launch lazy future ... done
[17:26:51.358] run() for 'SequentialFuture' ... done

Call:
lm(formula = dist ~ speed + speed^2, data = cars)

Coefficients:
(Intercept)        speed  
    -17.579        3.932  

- Globals - lm(<formula #4 ('d')>, data = cars) ...

Call:
lm(formula = dist ~ speed + I(speed^2), data = cars)

Coefficients:
(Intercept)        speed   I(speed^2)  
    2.47014      0.91329      0.09996  

[17:26:51.361] getGlobalsAndPackages() ...
[17:26:51.362] Searching for globals...
[17:26:51.364] - globals found: [9] '{', 'lm', 'dist', '+', 'speed', 'I', '^', '~', 'cars'
[17:26:51.364] Searching for globals ... DONE
[17:26:51.364] Resolving globals: FALSE
[17:26:51.365] 
[17:26:51.365] - packages: [2] 'stats', 'datasets'
[17:26:51.365] getGlobalsAndPackages() ... DONE
[17:26:51.366] run() for 'Future' ...
[17:26:51.366] - state: 'created'
[17:26:51.366] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.366] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.367] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.367]   - Field: 'label'
[17:26:51.367]   - Field: 'local'
[17:26:51.367]   - Field: 'owner'
[17:26:51.367]   - Field: 'envir'
[17:26:51.367]   - Field: 'packages'
[17:26:51.368]   - Field: 'gc'
[17:26:51.368]   - Field: 'conditions'
[17:26:51.368]   - Field: 'expr'
[17:26:51.368]   - Field: 'uuid'
[17:26:51.368]   - Field: 'seed'
[17:26:51.368]   - Field: 'version'
[17:26:51.369]   - Field: 'result'
[17:26:51.369]   - Field: 'asynchronous'
[17:26:51.369]   - Field: 'calls'
[17:26:51.369]   - Field: 'globals'
[17:26:51.369]   - Field: 'stdout'
[17:26:51.369]   - Field: 'earlySignal'
[17:26:51.370]   - Field: 'lazy'
[17:26:51.370]   - Field: 'state'
[17:26:51.370] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.370] - Launch lazy future ...
[17:26:51.370] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:51.371] Packages needed by future strategies (n = 0): <none>
[17:26:51.371] {
[17:26:51.371]     {
[17:26:51.371]         {
[17:26:51.371]             ...future.startTime <- base::Sys.time()
[17:26:51.371]             {
[17:26:51.371]                 {
[17:26:51.371]                   {
[17:26:51.371]                     {
[17:26:51.371]                       base::local({
[17:26:51.371]                         has_future <- base::requireNamespace("future", 
[17:26:51.371]                           quietly = TRUE)
[17:26:51.371]                         if (has_future) {
[17:26:51.371]                           ns <- base::getNamespace("future")
[17:26:51.371]                           version <- ns[[".package"]][["version"]]
[17:26:51.371]                           if (is.null(version)) 
[17:26:51.371]                             version <- utils::packageVersion("future")
[17:26:51.371]                         }
[17:26:51.371]                         else {
[17:26:51.371]                           version <- NULL
[17:26:51.371]                         }
[17:26:51.371]                         if (!has_future || version < "1.8.0") {
[17:26:51.371]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.371]                             "", base::R.version$version.string), 
[17:26:51.371]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.371]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.371]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.371]                               "release", "version")], collapse = " "), 
[17:26:51.371]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.371]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.371]                             info)
[17:26:51.371]                           info <- base::paste(info, collapse = "; ")
[17:26:51.371]                           if (!has_future) {
[17:26:51.371]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.371]                               info)
[17:26:51.371]                           }
[17:26:51.371]                           else {
[17:26:51.371]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.371]                               info, version)
[17:26:51.371]                           }
[17:26:51.371]                           base::stop(msg)
[17:26:51.371]                         }
[17:26:51.371]                       })
[17:26:51.371]                     }
[17:26:51.371]                     base::local({
[17:26:51.371]                       for (pkg in c("stats", "datasets")) {
[17:26:51.371]                         base::loadNamespace(pkg)
[17:26:51.371]                         base::library(pkg, character.only = TRUE)
[17:26:51.371]                       }
[17:26:51.371]                     })
[17:26:51.371]                   }
[17:26:51.371]                   ...future.strategy.old <- future::plan("list")
[17:26:51.371]                   options(future.plan = NULL)
[17:26:51.371]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.371]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.371]                 }
[17:26:51.371]                 ...future.workdir <- getwd()
[17:26:51.371]             }
[17:26:51.371]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.371]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.371]         }
[17:26:51.371]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.371]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.371]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.371]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.371]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.371]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.371]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.371]             base::names(...future.oldOptions))
[17:26:51.371]     }
[17:26:51.371]     if (FALSE) {
[17:26:51.371]     }
[17:26:51.371]     else {
[17:26:51.371]         if (TRUE) {
[17:26:51.371]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.371]                 open = "w")
[17:26:51.371]         }
[17:26:51.371]         else {
[17:26:51.371]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.371]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.371]         }
[17:26:51.371]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.371]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.371]             base::sink(type = "output", split = FALSE)
[17:26:51.371]             base::close(...future.stdout)
[17:26:51.371]         }, add = TRUE)
[17:26:51.371]     }
[17:26:51.371]     ...future.frame <- base::sys.nframe()
[17:26:51.371]     ...future.conditions <- base::list()
[17:26:51.371]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.371]     if (FALSE) {
[17:26:51.371]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.371]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.371]     }
[17:26:51.371]     ...future.result <- base::tryCatch({
[17:26:51.371]         base::withCallingHandlers({
[17:26:51.371]             ...future.value <- base::withVisible(base::local({
[17:26:51.371]                 lm(dist ~ speed + I(speed^2), data = cars)
[17:26:51.371]             }))
[17:26:51.371]             future::FutureResult(value = ...future.value$value, 
[17:26:51.371]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.371]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.371]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.371]                     ...future.globalenv.names))
[17:26:51.371]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.371]         }, condition = base::local({
[17:26:51.371]             c <- base::c
[17:26:51.371]             inherits <- base::inherits
[17:26:51.371]             invokeRestart <- base::invokeRestart
[17:26:51.371]             length <- base::length
[17:26:51.371]             list <- base::list
[17:26:51.371]             seq.int <- base::seq.int
[17:26:51.371]             signalCondition <- base::signalCondition
[17:26:51.371]             sys.calls <- base::sys.calls
[17:26:51.371]             `[[` <- base::`[[`
[17:26:51.371]             `+` <- base::`+`
[17:26:51.371]             `<<-` <- base::`<<-`
[17:26:51.371]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.371]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.371]                   3L)]
[17:26:51.371]             }
[17:26:51.371]             function(cond) {
[17:26:51.371]                 is_error <- inherits(cond, "error")
[17:26:51.371]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.371]                   NULL)
[17:26:51.371]                 if (is_error) {
[17:26:51.371]                   sessionInformation <- function() {
[17:26:51.371]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.371]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.371]                       search = base::search(), system = base::Sys.info())
[17:26:51.371]                   }
[17:26:51.371]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.371]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.371]                     cond$call), session = sessionInformation(), 
[17:26:51.371]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.371]                   signalCondition(cond)
[17:26:51.371]                 }
[17:26:51.371]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.371]                 "immediateCondition"))) {
[17:26:51.371]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.371]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.371]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.371]                   if (TRUE && !signal) {
[17:26:51.371]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.371]                     {
[17:26:51.371]                       inherits <- base::inherits
[17:26:51.371]                       invokeRestart <- base::invokeRestart
[17:26:51.371]                       is.null <- base::is.null
[17:26:51.371]                       muffled <- FALSE
[17:26:51.371]                       if (inherits(cond, "message")) {
[17:26:51.371]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.371]                         if (muffled) 
[17:26:51.371]                           invokeRestart("muffleMessage")
[17:26:51.371]                       }
[17:26:51.371]                       else if (inherits(cond, "warning")) {
[17:26:51.371]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.371]                         if (muffled) 
[17:26:51.371]                           invokeRestart("muffleWarning")
[17:26:51.371]                       }
[17:26:51.371]                       else if (inherits(cond, "condition")) {
[17:26:51.371]                         if (!is.null(pattern)) {
[17:26:51.371]                           computeRestarts <- base::computeRestarts
[17:26:51.371]                           grepl <- base::grepl
[17:26:51.371]                           restarts <- computeRestarts(cond)
[17:26:51.371]                           for (restart in restarts) {
[17:26:51.371]                             name <- restart$name
[17:26:51.371]                             if (is.null(name)) 
[17:26:51.371]                               next
[17:26:51.371]                             if (!grepl(pattern, name)) 
[17:26:51.371]                               next
[17:26:51.371]                             invokeRestart(restart)
[17:26:51.371]                             muffled <- TRUE
[17:26:51.371]                             break
[17:26:51.371]                           }
[17:26:51.371]                         }
[17:26:51.371]                       }
[17:26:51.371]                       invisible(muffled)
[17:26:51.371]                     }
[17:26:51.371]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.371]                   }
[17:26:51.371]                 }
[17:26:51.371]                 else {
[17:26:51.371]                   if (TRUE) {
[17:26:51.371]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.371]                     {
[17:26:51.371]                       inherits <- base::inherits
[17:26:51.371]                       invokeRestart <- base::invokeRestart
[17:26:51.371]                       is.null <- base::is.null
[17:26:51.371]                       muffled <- FALSE
[17:26:51.371]                       if (inherits(cond, "message")) {
[17:26:51.371]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.371]                         if (muffled) 
[17:26:51.371]                           invokeRestart("muffleMessage")
[17:26:51.371]                       }
[17:26:51.371]                       else if (inherits(cond, "warning")) {
[17:26:51.371]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.371]                         if (muffled) 
[17:26:51.371]                           invokeRestart("muffleWarning")
[17:26:51.371]                       }
[17:26:51.371]                       else if (inherits(cond, "condition")) {
[17:26:51.371]                         if (!is.null(pattern)) {
[17:26:51.371]                           computeRestarts <- base::computeRestarts
[17:26:51.371]                           grepl <- base::grepl
[17:26:51.371]                           restarts <- computeRestarts(cond)
[17:26:51.371]                           for (restart in restarts) {
[17:26:51.371]                             name <- restart$name
[17:26:51.371]                             if (is.null(name)) 
[17:26:51.371]                               next
[17:26:51.371]                             if (!grepl(pattern, name)) 
[17:26:51.371]                               next
[17:26:51.371]                             invokeRestart(restart)
[17:26:51.371]                             muffled <- TRUE
[17:26:51.371]                             break
[17:26:51.371]                           }
[17:26:51.371]                         }
[17:26:51.371]                       }
[17:26:51.371]                       invisible(muffled)
[17:26:51.371]                     }
[17:26:51.371]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.371]                   }
[17:26:51.371]                 }
[17:26:51.371]             }
[17:26:51.371]         }))
[17:26:51.371]     }, error = function(ex) {
[17:26:51.371]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.371]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.371]                 ...future.rng), started = ...future.startTime, 
[17:26:51.371]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.371]             version = "1.8"), class = "FutureResult")
[17:26:51.371]     }, finally = {
[17:26:51.371]         if (!identical(...future.workdir, getwd())) 
[17:26:51.371]             setwd(...future.workdir)
[17:26:51.371]         {
[17:26:51.371]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.371]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.371]             }
[17:26:51.371]             base::options(...future.oldOptions)
[17:26:51.371]             if (.Platform$OS.type == "windows") {
[17:26:51.371]                 old_names <- names(...future.oldEnvVars)
[17:26:51.371]                 envs <- base::Sys.getenv()
[17:26:51.371]                 names <- names(envs)
[17:26:51.371]                 common <- intersect(names, old_names)
[17:26:51.371]                 added <- setdiff(names, old_names)
[17:26:51.371]                 removed <- setdiff(old_names, names)
[17:26:51.371]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.371]                   envs[common]]
[17:26:51.371]                 NAMES <- toupper(changed)
[17:26:51.371]                 args <- list()
[17:26:51.371]                 for (kk in seq_along(NAMES)) {
[17:26:51.371]                   name <- changed[[kk]]
[17:26:51.371]                   NAME <- NAMES[[kk]]
[17:26:51.371]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.371]                     next
[17:26:51.371]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.371]                 }
[17:26:51.371]                 NAMES <- toupper(added)
[17:26:51.371]                 for (kk in seq_along(NAMES)) {
[17:26:51.371]                   name <- added[[kk]]
[17:26:51.371]                   NAME <- NAMES[[kk]]
[17:26:51.371]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.371]                     next
[17:26:51.371]                   args[[name]] <- ""
[17:26:51.371]                 }
[17:26:51.371]                 NAMES <- toupper(removed)
[17:26:51.371]                 for (kk in seq_along(NAMES)) {
[17:26:51.371]                   name <- removed[[kk]]
[17:26:51.371]                   NAME <- NAMES[[kk]]
[17:26:51.371]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.371]                     next
[17:26:51.371]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.371]                 }
[17:26:51.371]                 if (length(args) > 0) 
[17:26:51.371]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.371]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.371]             }
[17:26:51.371]             else {
[17:26:51.371]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.371]             }
[17:26:51.371]             {
[17:26:51.371]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.371]                   0L) {
[17:26:51.371]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.371]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.371]                   base::options(opts)
[17:26:51.371]                 }
[17:26:51.371]                 {
[17:26:51.371]                   {
[17:26:51.371]                     NULL
[17:26:51.371]                     RNGkind("Mersenne-Twister")
[17:26:51.371]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.371]                       inherits = FALSE)
[17:26:51.371]                   }
[17:26:51.371]                   options(future.plan = NULL)
[17:26:51.371]                   if (is.na(NA_character_)) 
[17:26:51.371]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.371]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.371]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.371]                     .init = FALSE)
[17:26:51.371]                 }
[17:26:51.371]             }
[17:26:51.371]         }
[17:26:51.371]     })
[17:26:51.371]     if (TRUE) {
[17:26:51.371]         base::sink(type = "output", split = FALSE)
[17:26:51.371]         if (TRUE) {
[17:26:51.371]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.371]         }
[17:26:51.371]         else {
[17:26:51.371]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.371]         }
[17:26:51.371]         base::close(...future.stdout)
[17:26:51.371]         ...future.stdout <- NULL
[17:26:51.371]     }
[17:26:51.371]     ...future.result$conditions <- ...future.conditions
[17:26:51.371]     ...future.result$finished <- base::Sys.time()
[17:26:51.371]     ...future.result
[17:26:51.371] }
[17:26:51.376] plan(): Setting new future strategy stack:
[17:26:51.376] List of future strategies:
[17:26:51.376] 1. sequential:
[17:26:51.376]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.376]    - tweaked: FALSE
[17:26:51.376]    - call: NULL
[17:26:51.376] plan(): nbrOfWorkers() = 1
[17:26:51.379] plan(): Setting new future strategy stack:
[17:26:51.379] List of future strategies:
[17:26:51.379] 1. sequential:
[17:26:51.379]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.379]    - tweaked: FALSE
[17:26:51.379]    - call: plan(strategy)
[17:26:51.380] plan(): nbrOfWorkers() = 1
[17:26:51.380] SequentialFuture started (and completed)
[17:26:51.380] - Launch lazy future ... done
[17:26:51.381] run() for 'SequentialFuture' ... done

Call:
lm(formula = dist ~ speed + I(speed^2), data = cars)

Coefficients:
(Intercept)        speed   I(speed^2)  
    2.47014      0.91329      0.09996  

- Globals - lm(<formula #5 ('e')>, data = cars) ...

Call:
lm(formula = dist ~ poly(speed, 2), data = cars)

Coefficients:
    (Intercept)  poly(speed, 2)1  poly(speed, 2)2  
          42.98           145.55            23.00  

[17:26:51.384] getGlobalsAndPackages() ...
[17:26:51.385] Searching for globals...
[17:26:51.386] - globals found: [7] '{', 'lm', 'dist', 'poly', 'speed', '~', 'cars'
[17:26:51.387] Searching for globals ... DONE
[17:26:51.387] Resolving globals: FALSE
[17:26:51.387] 
[17:26:51.388] - packages: [2] 'stats', 'datasets'
[17:26:51.388] getGlobalsAndPackages() ... DONE
[17:26:51.388] run() for 'Future' ...
[17:26:51.388] - state: 'created'
[17:26:51.388] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.389] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.389] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.389]   - Field: 'label'
[17:26:51.389]   - Field: 'local'
[17:26:51.390]   - Field: 'owner'
[17:26:51.390]   - Field: 'envir'
[17:26:51.390]   - Field: 'packages'
[17:26:51.390]   - Field: 'gc'
[17:26:51.390]   - Field: 'conditions'
[17:26:51.390]   - Field: 'expr'
[17:26:51.391]   - Field: 'uuid'
[17:26:51.391]   - Field: 'seed'
[17:26:51.391]   - Field: 'version'
[17:26:51.391]   - Field: 'result'
[17:26:51.391]   - Field: 'asynchronous'
[17:26:51.391]   - Field: 'calls'
[17:26:51.392]   - Field: 'globals'
[17:26:51.392]   - Field: 'stdout'
[17:26:51.392]   - Field: 'earlySignal'
[17:26:51.392]   - Field: 'lazy'
[17:26:51.392]   - Field: 'state'
[17:26:51.392] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.393] - Launch lazy future ...
[17:26:51.393] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:51.393] Packages needed by future strategies (n = 0): <none>
[17:26:51.394] {
[17:26:51.394]     {
[17:26:51.394]         {
[17:26:51.394]             ...future.startTime <- base::Sys.time()
[17:26:51.394]             {
[17:26:51.394]                 {
[17:26:51.394]                   {
[17:26:51.394]                     {
[17:26:51.394]                       base::local({
[17:26:51.394]                         has_future <- base::requireNamespace("future", 
[17:26:51.394]                           quietly = TRUE)
[17:26:51.394]                         if (has_future) {
[17:26:51.394]                           ns <- base::getNamespace("future")
[17:26:51.394]                           version <- ns[[".package"]][["version"]]
[17:26:51.394]                           if (is.null(version)) 
[17:26:51.394]                             version <- utils::packageVersion("future")
[17:26:51.394]                         }
[17:26:51.394]                         else {
[17:26:51.394]                           version <- NULL
[17:26:51.394]                         }
[17:26:51.394]                         if (!has_future || version < "1.8.0") {
[17:26:51.394]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.394]                             "", base::R.version$version.string), 
[17:26:51.394]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:51.394]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.394]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.394]                               "release", "version")], collapse = " "), 
[17:26:51.394]                             hostname = base::Sys.info()[["nodename"]])
[17:26:51.394]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.394]                             info)
[17:26:51.394]                           info <- base::paste(info, collapse = "; ")
[17:26:51.394]                           if (!has_future) {
[17:26:51.394]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.394]                               info)
[17:26:51.394]                           }
[17:26:51.394]                           else {
[17:26:51.394]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.394]                               info, version)
[17:26:51.394]                           }
[17:26:51.394]                           base::stop(msg)
[17:26:51.394]                         }
[17:26:51.394]                       })
[17:26:51.394]                     }
[17:26:51.394]                     base::local({
[17:26:51.394]                       for (pkg in c("stats", "datasets")) {
[17:26:51.394]                         base::loadNamespace(pkg)
[17:26:51.394]                         base::library(pkg, character.only = TRUE)
[17:26:51.394]                       }
[17:26:51.394]                     })
[17:26:51.394]                   }
[17:26:51.394]                   ...future.strategy.old <- future::plan("list")
[17:26:51.394]                   options(future.plan = NULL)
[17:26:51.394]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.394]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.394]                 }
[17:26:51.394]                 ...future.workdir <- getwd()
[17:26:51.394]             }
[17:26:51.394]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.394]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.394]         }
[17:26:51.394]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.394]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.394]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.394]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.394]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.394]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.394]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.394]             base::names(...future.oldOptions))
[17:26:51.394]     }
[17:26:51.394]     if (FALSE) {
[17:26:51.394]     }
[17:26:51.394]     else {
[17:26:51.394]         if (TRUE) {
[17:26:51.394]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.394]                 open = "w")
[17:26:51.394]         }
[17:26:51.394]         else {
[17:26:51.394]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.394]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.394]         }
[17:26:51.394]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.394]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.394]             base::sink(type = "output", split = FALSE)
[17:26:51.394]             base::close(...future.stdout)
[17:26:51.394]         }, add = TRUE)
[17:26:51.394]     }
[17:26:51.394]     ...future.frame <- base::sys.nframe()
[17:26:51.394]     ...future.conditions <- base::list()
[17:26:51.394]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.394]     if (FALSE) {
[17:26:51.394]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.394]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.394]     }
[17:26:51.394]     ...future.result <- base::tryCatch({
[17:26:51.394]         base::withCallingHandlers({
[17:26:51.394]             ...future.value <- base::withVisible(base::local({
[17:26:51.394]                 lm(dist ~ poly(speed, 2), data = cars)
[17:26:51.394]             }))
[17:26:51.394]             future::FutureResult(value = ...future.value$value, 
[17:26:51.394]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.394]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.394]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.394]                     ...future.globalenv.names))
[17:26:51.394]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.394]         }, condition = base::local({
[17:26:51.394]             c <- base::c
[17:26:51.394]             inherits <- base::inherits
[17:26:51.394]             invokeRestart <- base::invokeRestart
[17:26:51.394]             length <- base::length
[17:26:51.394]             list <- base::list
[17:26:51.394]             seq.int <- base::seq.int
[17:26:51.394]             signalCondition <- base::signalCondition
[17:26:51.394]             sys.calls <- base::sys.calls
[17:26:51.394]             `[[` <- base::`[[`
[17:26:51.394]             `+` <- base::`+`
[17:26:51.394]             `<<-` <- base::`<<-`
[17:26:51.394]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.394]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.394]                   3L)]
[17:26:51.394]             }
[17:26:51.394]             function(cond) {
[17:26:51.394]                 is_error <- inherits(cond, "error")
[17:26:51.394]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.394]                   NULL)
[17:26:51.394]                 if (is_error) {
[17:26:51.394]                   sessionInformation <- function() {
[17:26:51.394]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.394]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.394]                       search = base::search(), system = base::Sys.info())
[17:26:51.394]                   }
[17:26:51.394]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.394]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.394]                     cond$call), session = sessionInformation(), 
[17:26:51.394]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.394]                   signalCondition(cond)
[17:26:51.394]                 }
[17:26:51.394]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.394]                 "immediateCondition"))) {
[17:26:51.394]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.394]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.394]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.394]                   if (TRUE && !signal) {
[17:26:51.394]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.394]                     {
[17:26:51.394]                       inherits <- base::inherits
[17:26:51.394]                       invokeRestart <- base::invokeRestart
[17:26:51.394]                       is.null <- base::is.null
[17:26:51.394]                       muffled <- FALSE
[17:26:51.394]                       if (inherits(cond, "message")) {
[17:26:51.394]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.394]                         if (muffled) 
[17:26:51.394]                           invokeRestart("muffleMessage")
[17:26:51.394]                       }
[17:26:51.394]                       else if (inherits(cond, "warning")) {
[17:26:51.394]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.394]                         if (muffled) 
[17:26:51.394]                           invokeRestart("muffleWarning")
[17:26:51.394]                       }
[17:26:51.394]                       else if (inherits(cond, "condition")) {
[17:26:51.394]                         if (!is.null(pattern)) {
[17:26:51.394]                           computeRestarts <- base::computeRestarts
[17:26:51.394]                           grepl <- base::grepl
[17:26:51.394]                           restarts <- computeRestarts(cond)
[17:26:51.394]                           for (restart in restarts) {
[17:26:51.394]                             name <- restart$name
[17:26:51.394]                             if (is.null(name)) 
[17:26:51.394]                               next
[17:26:51.394]                             if (!grepl(pattern, name)) 
[17:26:51.394]                               next
[17:26:51.394]                             invokeRestart(restart)
[17:26:51.394]                             muffled <- TRUE
[17:26:51.394]                             break
[17:26:51.394]                           }
[17:26:51.394]                         }
[17:26:51.394]                       }
[17:26:51.394]                       invisible(muffled)
[17:26:51.394]                     }
[17:26:51.394]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.394]                   }
[17:26:51.394]                 }
[17:26:51.394]                 else {
[17:26:51.394]                   if (TRUE) {
[17:26:51.394]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.394]                     {
[17:26:51.394]                       inherits <- base::inherits
[17:26:51.394]                       invokeRestart <- base::invokeRestart
[17:26:51.394]                       is.null <- base::is.null
[17:26:51.394]                       muffled <- FALSE
[17:26:51.394]                       if (inherits(cond, "message")) {
[17:26:51.394]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.394]                         if (muffled) 
[17:26:51.394]                           invokeRestart("muffleMessage")
[17:26:51.394]                       }
[17:26:51.394]                       else if (inherits(cond, "warning")) {
[17:26:51.394]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.394]                         if (muffled) 
[17:26:51.394]                           invokeRestart("muffleWarning")
[17:26:51.394]                       }
[17:26:51.394]                       else if (inherits(cond, "condition")) {
[17:26:51.394]                         if (!is.null(pattern)) {
[17:26:51.394]                           computeRestarts <- base::computeRestarts
[17:26:51.394]                           grepl <- base::grepl
[17:26:51.394]                           restarts <- computeRestarts(cond)
[17:26:51.394]                           for (restart in restarts) {
[17:26:51.394]                             name <- restart$name
[17:26:51.394]                             if (is.null(name)) 
[17:26:51.394]                               next
[17:26:51.394]                             if (!grepl(pattern, name)) 
[17:26:51.394]                               next
[17:26:51.394]                             invokeRestart(restart)
[17:26:51.394]                             muffled <- TRUE
[17:26:51.394]                             break
[17:26:51.394]                           }
[17:26:51.394]                         }
[17:26:51.394]                       }
[17:26:51.394]                       invisible(muffled)
[17:26:51.394]                     }
[17:26:51.394]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.394]                   }
[17:26:51.394]                 }
[17:26:51.394]             }
[17:26:51.394]         }))
[17:26:51.394]     }, error = function(ex) {
[17:26:51.394]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.394]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.394]                 ...future.rng), started = ...future.startTime, 
[17:26:51.394]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.394]             version = "1.8"), class = "FutureResult")
[17:26:51.394]     }, finally = {
[17:26:51.394]         if (!identical(...future.workdir, getwd())) 
[17:26:51.394]             setwd(...future.workdir)
[17:26:51.394]         {
[17:26:51.394]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.394]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.394]             }
[17:26:51.394]             base::options(...future.oldOptions)
[17:26:51.394]             if (.Platform$OS.type == "windows") {
[17:26:51.394]                 old_names <- names(...future.oldEnvVars)
[17:26:51.394]                 envs <- base::Sys.getenv()
[17:26:51.394]                 names <- names(envs)
[17:26:51.394]                 common <- intersect(names, old_names)
[17:26:51.394]                 added <- setdiff(names, old_names)
[17:26:51.394]                 removed <- setdiff(old_names, names)
[17:26:51.394]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.394]                   envs[common]]
[17:26:51.394]                 NAMES <- toupper(changed)
[17:26:51.394]                 args <- list()
[17:26:51.394]                 for (kk in seq_along(NAMES)) {
[17:26:51.394]                   name <- changed[[kk]]
[17:26:51.394]                   NAME <- NAMES[[kk]]
[17:26:51.394]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.394]                     next
[17:26:51.394]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.394]                 }
[17:26:51.394]                 NAMES <- toupper(added)
[17:26:51.394]                 for (kk in seq_along(NAMES)) {
[17:26:51.394]                   name <- added[[kk]]
[17:26:51.394]                   NAME <- NAMES[[kk]]
[17:26:51.394]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.394]                     next
[17:26:51.394]                   args[[name]] <- ""
[17:26:51.394]                 }
[17:26:51.394]                 NAMES <- toupper(removed)
[17:26:51.394]                 for (kk in seq_along(NAMES)) {
[17:26:51.394]                   name <- removed[[kk]]
[17:26:51.394]                   NAME <- NAMES[[kk]]
[17:26:51.394]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.394]                     next
[17:26:51.394]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.394]                 }
[17:26:51.394]                 if (length(args) > 0) 
[17:26:51.394]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.394]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.394]             }
[17:26:51.394]             else {
[17:26:51.394]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.394]             }
[17:26:51.394]             {
[17:26:51.394]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.394]                   0L) {
[17:26:51.394]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.394]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.394]                   base::options(opts)
[17:26:51.394]                 }
[17:26:51.394]                 {
[17:26:51.394]                   {
[17:26:51.394]                     NULL
[17:26:51.394]                     RNGkind("Mersenne-Twister")
[17:26:51.394]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.394]                       inherits = FALSE)
[17:26:51.394]                   }
[17:26:51.394]                   options(future.plan = NULL)
[17:26:51.394]                   if (is.na(NA_character_)) 
[17:26:51.394]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.394]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.394]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.394]                     .init = FALSE)
[17:26:51.394]                 }
[17:26:51.394]             }
[17:26:51.394]         }
[17:26:51.394]     })
[17:26:51.394]     if (TRUE) {
[17:26:51.394]         base::sink(type = "output", split = FALSE)
[17:26:51.394]         if (TRUE) {
[17:26:51.394]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.394]         }
[17:26:51.394]         else {
[17:26:51.394]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.394]         }
[17:26:51.394]         base::close(...future.stdout)
[17:26:51.394]         ...future.stdout <- NULL
[17:26:51.394]     }
[17:26:51.394]     ...future.result$conditions <- ...future.conditions
[17:26:51.394]     ...future.result$finished <- base::Sys.time()
[17:26:51.394]     ...future.result
[17:26:51.394] }
[17:26:51.398] plan(): Setting new future strategy stack:
[17:26:51.398] List of future strategies:
[17:26:51.398] 1. sequential:
[17:26:51.398]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.398]    - tweaked: FALSE
[17:26:51.398]    - call: NULL
[17:26:51.399] plan(): nbrOfWorkers() = 1
[17:26:51.401] plan(): Setting new future strategy stack:
[17:26:51.401] List of future strategies:
[17:26:51.401] 1. sequential:
[17:26:51.401]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.401]    - tweaked: FALSE
[17:26:51.401]    - call: plan(strategy)
[17:26:51.402] plan(): nbrOfWorkers() = 1
[17:26:51.402] SequentialFuture started (and completed)
[17:26:51.402] - Launch lazy future ... done
[17:26:51.402] run() for 'SequentialFuture' ... done

Call:
lm(formula = dist ~ poly(speed, 2), data = cars)

Coefficients:
    (Intercept)  poly(speed, 2)1  poly(speed, 2)2  
          42.98           145.55            23.00  

- Globals - map(x, ~ expr) ...
[17:26:51.405] getGlobalsAndPackages() ...
[17:26:51.406] Searching for globals...
[17:26:51.411] - globals found: [16] '{', 'outer_function', 'map', ':', '~', 'inner_function', '.x', 'if', 'inherits', '<-', '[[', '-', 'eval', 'bquote', 'lapply', '+'
[17:26:51.412] Searching for globals ... DONE
[17:26:51.412] Resolving globals: FALSE
[17:26:51.413] The total size of the 3 globals is 7.52 KiB (7704 bytes)
[17:26:51.413] The total size of the 3 globals exported for future expression ('{; outer_function(1L); }') is 7.52 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'map' (4.43 KiB of class 'function'), 'inner_function' (1.78 KiB of class 'function') and 'outer_function' (1.31 KiB of class 'function')
[17:26:51.413] - globals: [3] 'outer_function', 'map', 'inner_function'
[17:26:51.413] 
[17:26:51.414] getGlobalsAndPackages() ... DONE
[17:26:51.414] run() for 'Future' ...
[17:26:51.414] - state: 'created'
[17:26:51.414] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.415] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.415] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.415]   - Field: 'label'
[17:26:51.415]   - Field: 'local'
[17:26:51.415]   - Field: 'owner'
[17:26:51.416]   - Field: 'envir'
[17:26:51.416]   - Field: 'packages'
[17:26:51.416]   - Field: 'gc'
[17:26:51.416]   - Field: 'conditions'
[17:26:51.416]   - Field: 'expr'
[17:26:51.416]   - Field: 'uuid'
[17:26:51.417]   - Field: 'seed'
[17:26:51.417]   - Field: 'version'
[17:26:51.417]   - Field: 'result'
[17:26:51.417]   - Field: 'asynchronous'
[17:26:51.417]   - Field: 'calls'
[17:26:51.417]   - Field: 'globals'
[17:26:51.418]   - Field: 'stdout'
[17:26:51.418]   - Field: 'earlySignal'
[17:26:51.418]   - Field: 'lazy'
[17:26:51.418]   - Field: 'state'
[17:26:51.418] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.418] - Launch lazy future ...
[17:26:51.419] Packages needed by the future expression (n = 0): <none>
[17:26:51.419] Packages needed by future strategies (n = 0): <none>
[17:26:51.419] {
[17:26:51.419]     {
[17:26:51.419]         {
[17:26:51.419]             ...future.startTime <- base::Sys.time()
[17:26:51.419]             {
[17:26:51.419]                 {
[17:26:51.419]                   {
[17:26:51.419]                     base::local({
[17:26:51.419]                       has_future <- base::requireNamespace("future", 
[17:26:51.419]                         quietly = TRUE)
[17:26:51.419]                       if (has_future) {
[17:26:51.419]                         ns <- base::getNamespace("future")
[17:26:51.419]                         version <- ns[[".package"]][["version"]]
[17:26:51.419]                         if (is.null(version)) 
[17:26:51.419]                           version <- utils::packageVersion("future")
[17:26:51.419]                       }
[17:26:51.419]                       else {
[17:26:51.419]                         version <- NULL
[17:26:51.419]                       }
[17:26:51.419]                       if (!has_future || version < "1.8.0") {
[17:26:51.419]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.419]                           "", base::R.version$version.string), 
[17:26:51.419]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:51.419]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.419]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.419]                             "release", "version")], collapse = " "), 
[17:26:51.419]                           hostname = base::Sys.info()[["nodename"]])
[17:26:51.419]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.419]                           info)
[17:26:51.419]                         info <- base::paste(info, collapse = "; ")
[17:26:51.419]                         if (!has_future) {
[17:26:51.419]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.419]                             info)
[17:26:51.419]                         }
[17:26:51.419]                         else {
[17:26:51.419]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.419]                             info, version)
[17:26:51.419]                         }
[17:26:51.419]                         base::stop(msg)
[17:26:51.419]                       }
[17:26:51.419]                     })
[17:26:51.419]                   }
[17:26:51.419]                   ...future.strategy.old <- future::plan("list")
[17:26:51.419]                   options(future.plan = NULL)
[17:26:51.419]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.419]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.419]                 }
[17:26:51.419]                 ...future.workdir <- getwd()
[17:26:51.419]             }
[17:26:51.419]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.419]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.419]         }
[17:26:51.419]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.419]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.419]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.419]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.419]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.419]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.419]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.419]             base::names(...future.oldOptions))
[17:26:51.419]     }
[17:26:51.419]     if (FALSE) {
[17:26:51.419]     }
[17:26:51.419]     else {
[17:26:51.419]         if (TRUE) {
[17:26:51.419]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.419]                 open = "w")
[17:26:51.419]         }
[17:26:51.419]         else {
[17:26:51.419]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.419]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.419]         }
[17:26:51.419]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.419]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.419]             base::sink(type = "output", split = FALSE)
[17:26:51.419]             base::close(...future.stdout)
[17:26:51.419]         }, add = TRUE)
[17:26:51.419]     }
[17:26:51.419]     ...future.frame <- base::sys.nframe()
[17:26:51.419]     ...future.conditions <- base::list()
[17:26:51.419]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.419]     if (FALSE) {
[17:26:51.419]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.419]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.419]     }
[17:26:51.419]     ...future.result <- base::tryCatch({
[17:26:51.419]         base::withCallingHandlers({
[17:26:51.419]             ...future.value <- base::withVisible(base::local({
[17:26:51.419]                 outer_function(1L)
[17:26:51.419]             }))
[17:26:51.419]             future::FutureResult(value = ...future.value$value, 
[17:26:51.419]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.419]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.419]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.419]                     ...future.globalenv.names))
[17:26:51.419]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.419]         }, condition = base::local({
[17:26:51.419]             c <- base::c
[17:26:51.419]             inherits <- base::inherits
[17:26:51.419]             invokeRestart <- base::invokeRestart
[17:26:51.419]             length <- base::length
[17:26:51.419]             list <- base::list
[17:26:51.419]             seq.int <- base::seq.int
[17:26:51.419]             signalCondition <- base::signalCondition
[17:26:51.419]             sys.calls <- base::sys.calls
[17:26:51.419]             `[[` <- base::`[[`
[17:26:51.419]             `+` <- base::`+`
[17:26:51.419]             `<<-` <- base::`<<-`
[17:26:51.419]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.419]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.419]                   3L)]
[17:26:51.419]             }
[17:26:51.419]             function(cond) {
[17:26:51.419]                 is_error <- inherits(cond, "error")
[17:26:51.419]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.419]                   NULL)
[17:26:51.419]                 if (is_error) {
[17:26:51.419]                   sessionInformation <- function() {
[17:26:51.419]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.419]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.419]                       search = base::search(), system = base::Sys.info())
[17:26:51.419]                   }
[17:26:51.419]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.419]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.419]                     cond$call), session = sessionInformation(), 
[17:26:51.419]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.419]                   signalCondition(cond)
[17:26:51.419]                 }
[17:26:51.419]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.419]                 "immediateCondition"))) {
[17:26:51.419]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.419]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.419]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.419]                   if (TRUE && !signal) {
[17:26:51.419]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.419]                     {
[17:26:51.419]                       inherits <- base::inherits
[17:26:51.419]                       invokeRestart <- base::invokeRestart
[17:26:51.419]                       is.null <- base::is.null
[17:26:51.419]                       muffled <- FALSE
[17:26:51.419]                       if (inherits(cond, "message")) {
[17:26:51.419]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.419]                         if (muffled) 
[17:26:51.419]                           invokeRestart("muffleMessage")
[17:26:51.419]                       }
[17:26:51.419]                       else if (inherits(cond, "warning")) {
[17:26:51.419]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.419]                         if (muffled) 
[17:26:51.419]                           invokeRestart("muffleWarning")
[17:26:51.419]                       }
[17:26:51.419]                       else if (inherits(cond, "condition")) {
[17:26:51.419]                         if (!is.null(pattern)) {
[17:26:51.419]                           computeRestarts <- base::computeRestarts
[17:26:51.419]                           grepl <- base::grepl
[17:26:51.419]                           restarts <- computeRestarts(cond)
[17:26:51.419]                           for (restart in restarts) {
[17:26:51.419]                             name <- restart$name
[17:26:51.419]                             if (is.null(name)) 
[17:26:51.419]                               next
[17:26:51.419]                             if (!grepl(pattern, name)) 
[17:26:51.419]                               next
[17:26:51.419]                             invokeRestart(restart)
[17:26:51.419]                             muffled <- TRUE
[17:26:51.419]                             break
[17:26:51.419]                           }
[17:26:51.419]                         }
[17:26:51.419]                       }
[17:26:51.419]                       invisible(muffled)
[17:26:51.419]                     }
[17:26:51.419]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.419]                   }
[17:26:51.419]                 }
[17:26:51.419]                 else {
[17:26:51.419]                   if (TRUE) {
[17:26:51.419]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.419]                     {
[17:26:51.419]                       inherits <- base::inherits
[17:26:51.419]                       invokeRestart <- base::invokeRestart
[17:26:51.419]                       is.null <- base::is.null
[17:26:51.419]                       muffled <- FALSE
[17:26:51.419]                       if (inherits(cond, "message")) {
[17:26:51.419]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.419]                         if (muffled) 
[17:26:51.419]                           invokeRestart("muffleMessage")
[17:26:51.419]                       }
[17:26:51.419]                       else if (inherits(cond, "warning")) {
[17:26:51.419]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.419]                         if (muffled) 
[17:26:51.419]                           invokeRestart("muffleWarning")
[17:26:51.419]                       }
[17:26:51.419]                       else if (inherits(cond, "condition")) {
[17:26:51.419]                         if (!is.null(pattern)) {
[17:26:51.419]                           computeRestarts <- base::computeRestarts
[17:26:51.419]                           grepl <- base::grepl
[17:26:51.419]                           restarts <- computeRestarts(cond)
[17:26:51.419]                           for (restart in restarts) {
[17:26:51.419]                             name <- restart$name
[17:26:51.419]                             if (is.null(name)) 
[17:26:51.419]                               next
[17:26:51.419]                             if (!grepl(pattern, name)) 
[17:26:51.419]                               next
[17:26:51.419]                             invokeRestart(restart)
[17:26:51.419]                             muffled <- TRUE
[17:26:51.419]                             break
[17:26:51.419]                           }
[17:26:51.419]                         }
[17:26:51.419]                       }
[17:26:51.419]                       invisible(muffled)
[17:26:51.419]                     }
[17:26:51.419]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.419]                   }
[17:26:51.419]                 }
[17:26:51.419]             }
[17:26:51.419]         }))
[17:26:51.419]     }, error = function(ex) {
[17:26:51.419]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.419]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.419]                 ...future.rng), started = ...future.startTime, 
[17:26:51.419]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.419]             version = "1.8"), class = "FutureResult")
[17:26:51.419]     }, finally = {
[17:26:51.419]         if (!identical(...future.workdir, getwd())) 
[17:26:51.419]             setwd(...future.workdir)
[17:26:51.419]         {
[17:26:51.419]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.419]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.419]             }
[17:26:51.419]             base::options(...future.oldOptions)
[17:26:51.419]             if (.Platform$OS.type == "windows") {
[17:26:51.419]                 old_names <- names(...future.oldEnvVars)
[17:26:51.419]                 envs <- base::Sys.getenv()
[17:26:51.419]                 names <- names(envs)
[17:26:51.419]                 common <- intersect(names, old_names)
[17:26:51.419]                 added <- setdiff(names, old_names)
[17:26:51.419]                 removed <- setdiff(old_names, names)
[17:26:51.419]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.419]                   envs[common]]
[17:26:51.419]                 NAMES <- toupper(changed)
[17:26:51.419]                 args <- list()
[17:26:51.419]                 for (kk in seq_along(NAMES)) {
[17:26:51.419]                   name <- changed[[kk]]
[17:26:51.419]                   NAME <- NAMES[[kk]]
[17:26:51.419]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.419]                     next
[17:26:51.419]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.419]                 }
[17:26:51.419]                 NAMES <- toupper(added)
[17:26:51.419]                 for (kk in seq_along(NAMES)) {
[17:26:51.419]                   name <- added[[kk]]
[17:26:51.419]                   NAME <- NAMES[[kk]]
[17:26:51.419]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.419]                     next
[17:26:51.419]                   args[[name]] <- ""
[17:26:51.419]                 }
[17:26:51.419]                 NAMES <- toupper(removed)
[17:26:51.419]                 for (kk in seq_along(NAMES)) {
[17:26:51.419]                   name <- removed[[kk]]
[17:26:51.419]                   NAME <- NAMES[[kk]]
[17:26:51.419]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.419]                     next
[17:26:51.419]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.419]                 }
[17:26:51.419]                 if (length(args) > 0) 
[17:26:51.419]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.419]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.419]             }
[17:26:51.419]             else {
[17:26:51.419]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.419]             }
[17:26:51.419]             {
[17:26:51.419]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.419]                   0L) {
[17:26:51.419]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.419]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.419]                   base::options(opts)
[17:26:51.419]                 }
[17:26:51.419]                 {
[17:26:51.419]                   {
[17:26:51.419]                     NULL
[17:26:51.419]                     RNGkind("Mersenne-Twister")
[17:26:51.419]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.419]                       inherits = FALSE)
[17:26:51.419]                   }
[17:26:51.419]                   options(future.plan = NULL)
[17:26:51.419]                   if (is.na(NA_character_)) 
[17:26:51.419]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.419]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.419]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.419]                     .init = FALSE)
[17:26:51.419]                 }
[17:26:51.419]             }
[17:26:51.419]         }
[17:26:51.419]     })
[17:26:51.419]     if (TRUE) {
[17:26:51.419]         base::sink(type = "output", split = FALSE)
[17:26:51.419]         if (TRUE) {
[17:26:51.419]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.419]         }
[17:26:51.419]         else {
[17:26:51.419]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.419]         }
[17:26:51.419]         base::close(...future.stdout)
[17:26:51.419]         ...future.stdout <- NULL
[17:26:51.419]     }
[17:26:51.419]     ...future.result$conditions <- ...future.conditions
[17:26:51.419]     ...future.result$finished <- base::Sys.time()
[17:26:51.419]     ...future.result
[17:26:51.419] }
[17:26:51.423] assign_globals() ...
[17:26:51.423] List of 3
[17:26:51.423]  $ outer_function:function (x)  
[17:26:51.423]  $ map           :function (.x, .f, ...)  
[17:26:51.423]  $ inner_function:function (x)  
[17:26:51.423]  - attr(*, "where")=List of 3
[17:26:51.423]   ..$ outer_function:<environment: R_EmptyEnv> 
[17:26:51.423]   ..$ map           :<environment: R_EmptyEnv> 
[17:26:51.423]   ..$ inner_function:<environment: R_EmptyEnv> 
[17:26:51.423]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.423]  - attr(*, "resolved")= logi FALSE
[17:26:51.423]  - attr(*, "total_size")= num 7704
[17:26:51.423]  - attr(*, "already-done")= logi TRUE
[17:26:51.427] - reassign environment for 'outer_function'
[17:26:51.428] - copied 'outer_function' to environment
[17:26:51.428] - reassign environment for 'map'
[17:26:51.428] - copied 'map' to environment
[17:26:51.429] - reassign environment for 'inner_function'
[17:26:51.429] - copied 'inner_function' to environment
[17:26:51.429] assign_globals() ... done
[17:26:51.429] plan(): Setting new future strategy stack:
[17:26:51.429] List of future strategies:
[17:26:51.429] 1. sequential:
[17:26:51.429]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.429]    - tweaked: FALSE
[17:26:51.429]    - call: NULL
[17:26:51.430] plan(): nbrOfWorkers() = 1
[17:26:51.436] plan(): Setting new future strategy stack:
[17:26:51.436] List of future strategies:
[17:26:51.436] 1. sequential:
[17:26:51.436]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.436]    - tweaked: FALSE
[17:26:51.436]    - call: plan(strategy)
[17:26:51.437] plan(): nbrOfWorkers() = 1
[17:26:51.437] SequentialFuture started (and completed)
[17:26:51.437] - Launch lazy future ... done
[17:26:51.437] run() for 'SequentialFuture' ... done
List of 2
 $ : num [1:2] 2 3
 $ : num [1:2] 2 3
[17:26:51.439] getGlobalsAndPackages() ...
[17:26:51.439] Searching for globals...
[17:26:51.444] - globals found: [16] '{', 'outer_function', 'map', ':', '~', 'inner_function', '.x', 'if', 'inherits', '<-', '[[', '-', 'eval', 'bquote', 'lapply', '+'
[17:26:51.444] Searching for globals ... DONE
[17:26:51.444] Resolving globals: FALSE
[17:26:51.468] The total size of the 3 globals is 7.52 KiB (7704 bytes)
[17:26:51.469] The total size of the 3 globals exported for future expression ('{; outer_function(1L); }') is 7.52 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'map' (4.43 KiB of class 'function'), 'inner_function' (1.78 KiB of class 'function') and 'outer_function' (1.31 KiB of class 'function')
[17:26:51.469] - globals: [3] 'outer_function', 'map', 'inner_function'
[17:26:51.469] 
[17:26:51.469] getGlobalsAndPackages() ... DONE
[17:26:51.469] run() for 'Future' ...
[17:26:51.470] - state: 'created'
[17:26:51.470] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[17:26:51.470] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[17:26:51.470] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[17:26:51.471]   - Field: 'label'
[17:26:51.471]   - Field: 'local'
[17:26:51.471]   - Field: 'owner'
[17:26:51.471]   - Field: 'envir'
[17:26:51.471]   - Field: 'packages'
[17:26:51.472]   - Field: 'gc'
[17:26:51.472]   - Field: 'conditions'
[17:26:51.472]   - Field: 'expr'
[17:26:51.472]   - Field: 'uuid'
[17:26:51.472]   - Field: 'seed'
[17:26:51.472]   - Field: 'version'
[17:26:51.473]   - Field: 'result'
[17:26:51.473]   - Field: 'asynchronous'
[17:26:51.473]   - Field: 'calls'
[17:26:51.473]   - Field: 'globals'
[17:26:51.473]   - Field: 'stdout'
[17:26:51.474]   - Field: 'earlySignal'
[17:26:51.474]   - Field: 'lazy'
[17:26:51.474]   - Field: 'state'
[17:26:51.474] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[17:26:51.474] - Launch lazy future ...
[17:26:51.474] Packages needed by the future expression (n = 0): <none>
[17:26:51.475] Packages needed by future strategies (n = 0): <none>
[17:26:51.475] {
[17:26:51.475]     {
[17:26:51.475]         {
[17:26:51.475]             ...future.startTime <- base::Sys.time()
[17:26:51.475]             {
[17:26:51.475]                 {
[17:26:51.475]                   {
[17:26:51.475]                     base::local({
[17:26:51.475]                       has_future <- base::requireNamespace("future", 
[17:26:51.475]                         quietly = TRUE)
[17:26:51.475]                       if (has_future) {
[17:26:51.475]                         ns <- base::getNamespace("future")
[17:26:51.475]                         version <- ns[[".package"]][["version"]]
[17:26:51.475]                         if (is.null(version)) 
[17:26:51.475]                           version <- utils::packageVersion("future")
[17:26:51.475]                       }
[17:26:51.475]                       else {
[17:26:51.475]                         version <- NULL
[17:26:51.475]                       }
[17:26:51.475]                       if (!has_future || version < "1.8.0") {
[17:26:51.475]                         info <- base::c(r_version = base::gsub("R version ", 
[17:26:51.475]                           "", base::R.version$version.string), 
[17:26:51.475]                           platform = base::sprintf("%s (%s-bit)", 
[17:26:51.475]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:51.475]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:51.475]                             "release", "version")], collapse = " "), 
[17:26:51.475]                           hostname = base::Sys.info()[["nodename"]])
[17:26:51.475]                         info <- base::sprintf("%s: %s", base::names(info), 
[17:26:51.475]                           info)
[17:26:51.475]                         info <- base::paste(info, collapse = "; ")
[17:26:51.475]                         if (!has_future) {
[17:26:51.475]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:51.475]                             info)
[17:26:51.475]                         }
[17:26:51.475]                         else {
[17:26:51.475]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:51.475]                             info, version)
[17:26:51.475]                         }
[17:26:51.475]                         base::stop(msg)
[17:26:51.475]                       }
[17:26:51.475]                     })
[17:26:51.475]                   }
[17:26:51.475]                   ...future.strategy.old <- future::plan("list")
[17:26:51.475]                   options(future.plan = NULL)
[17:26:51.475]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.475]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:51.475]                 }
[17:26:51.475]                 ...future.workdir <- getwd()
[17:26:51.475]             }
[17:26:51.475]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:51.475]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:51.475]         }
[17:26:51.475]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:51.475]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:51.475]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:51.475]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:51.475]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:51.475]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:51.475]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:51.475]             base::names(...future.oldOptions))
[17:26:51.475]     }
[17:26:51.475]     if (FALSE) {
[17:26:51.475]     }
[17:26:51.475]     else {
[17:26:51.475]         if (TRUE) {
[17:26:51.475]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:51.475]                 open = "w")
[17:26:51.475]         }
[17:26:51.475]         else {
[17:26:51.475]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:51.475]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:51.475]         }
[17:26:51.475]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:51.475]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:51.475]             base::sink(type = "output", split = FALSE)
[17:26:51.475]             base::close(...future.stdout)
[17:26:51.475]         }, add = TRUE)
[17:26:51.475]     }
[17:26:51.475]     ...future.frame <- base::sys.nframe()
[17:26:51.475]     ...future.conditions <- base::list()
[17:26:51.475]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:51.475]     if (FALSE) {
[17:26:51.475]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:51.475]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:51.475]     }
[17:26:51.475]     ...future.result <- base::tryCatch({
[17:26:51.475]         base::withCallingHandlers({
[17:26:51.475]             ...future.value <- base::withVisible(base::local({
[17:26:51.475]                 outer_function(1L)
[17:26:51.475]             }))
[17:26:51.475]             future::FutureResult(value = ...future.value$value, 
[17:26:51.475]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.475]                   ...future.rng), globalenv = if (FALSE) 
[17:26:51.475]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:51.475]                     ...future.globalenv.names))
[17:26:51.475]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:51.475]         }, condition = base::local({
[17:26:51.475]             c <- base::c
[17:26:51.475]             inherits <- base::inherits
[17:26:51.475]             invokeRestart <- base::invokeRestart
[17:26:51.475]             length <- base::length
[17:26:51.475]             list <- base::list
[17:26:51.475]             seq.int <- base::seq.int
[17:26:51.475]             signalCondition <- base::signalCondition
[17:26:51.475]             sys.calls <- base::sys.calls
[17:26:51.475]             `[[` <- base::`[[`
[17:26:51.475]             `+` <- base::`+`
[17:26:51.475]             `<<-` <- base::`<<-`
[17:26:51.475]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:51.475]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:51.475]                   3L)]
[17:26:51.475]             }
[17:26:51.475]             function(cond) {
[17:26:51.475]                 is_error <- inherits(cond, "error")
[17:26:51.475]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:51.475]                   NULL)
[17:26:51.475]                 if (is_error) {
[17:26:51.475]                   sessionInformation <- function() {
[17:26:51.475]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:51.475]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:51.475]                       search = base::search(), system = base::Sys.info())
[17:26:51.475]                   }
[17:26:51.475]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.475]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:51.475]                     cond$call), session = sessionInformation(), 
[17:26:51.475]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:51.475]                   signalCondition(cond)
[17:26:51.475]                 }
[17:26:51.475]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:51.475]                 "immediateCondition"))) {
[17:26:51.475]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:51.475]                   ...future.conditions[[length(...future.conditions) + 
[17:26:51.475]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:51.475]                   if (TRUE && !signal) {
[17:26:51.475]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.475]                     {
[17:26:51.475]                       inherits <- base::inherits
[17:26:51.475]                       invokeRestart <- base::invokeRestart
[17:26:51.475]                       is.null <- base::is.null
[17:26:51.475]                       muffled <- FALSE
[17:26:51.475]                       if (inherits(cond, "message")) {
[17:26:51.475]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.475]                         if (muffled) 
[17:26:51.475]                           invokeRestart("muffleMessage")
[17:26:51.475]                       }
[17:26:51.475]                       else if (inherits(cond, "warning")) {
[17:26:51.475]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.475]                         if (muffled) 
[17:26:51.475]                           invokeRestart("muffleWarning")
[17:26:51.475]                       }
[17:26:51.475]                       else if (inherits(cond, "condition")) {
[17:26:51.475]                         if (!is.null(pattern)) {
[17:26:51.475]                           computeRestarts <- base::computeRestarts
[17:26:51.475]                           grepl <- base::grepl
[17:26:51.475]                           restarts <- computeRestarts(cond)
[17:26:51.475]                           for (restart in restarts) {
[17:26:51.475]                             name <- restart$name
[17:26:51.475]                             if (is.null(name)) 
[17:26:51.475]                               next
[17:26:51.475]                             if (!grepl(pattern, name)) 
[17:26:51.475]                               next
[17:26:51.475]                             invokeRestart(restart)
[17:26:51.475]                             muffled <- TRUE
[17:26:51.475]                             break
[17:26:51.475]                           }
[17:26:51.475]                         }
[17:26:51.475]                       }
[17:26:51.475]                       invisible(muffled)
[17:26:51.475]                     }
[17:26:51.475]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.475]                   }
[17:26:51.475]                 }
[17:26:51.475]                 else {
[17:26:51.475]                   if (TRUE) {
[17:26:51.475]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:51.475]                     {
[17:26:51.475]                       inherits <- base::inherits
[17:26:51.475]                       invokeRestart <- base::invokeRestart
[17:26:51.475]                       is.null <- base::is.null
[17:26:51.475]                       muffled <- FALSE
[17:26:51.475]                       if (inherits(cond, "message")) {
[17:26:51.475]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:51.475]                         if (muffled) 
[17:26:51.475]                           invokeRestart("muffleMessage")
[17:26:51.475]                       }
[17:26:51.475]                       else if (inherits(cond, "warning")) {
[17:26:51.475]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:51.475]                         if (muffled) 
[17:26:51.475]                           invokeRestart("muffleWarning")
[17:26:51.475]                       }
[17:26:51.475]                       else if (inherits(cond, "condition")) {
[17:26:51.475]                         if (!is.null(pattern)) {
[17:26:51.475]                           computeRestarts <- base::computeRestarts
[17:26:51.475]                           grepl <- base::grepl
[17:26:51.475]                           restarts <- computeRestarts(cond)
[17:26:51.475]                           for (restart in restarts) {
[17:26:51.475]                             name <- restart$name
[17:26:51.475]                             if (is.null(name)) 
[17:26:51.475]                               next
[17:26:51.475]                             if (!grepl(pattern, name)) 
[17:26:51.475]                               next
[17:26:51.475]                             invokeRestart(restart)
[17:26:51.475]                             muffled <- TRUE
[17:26:51.475]                             break
[17:26:51.475]                           }
[17:26:51.475]                         }
[17:26:51.475]                       }
[17:26:51.475]                       invisible(muffled)
[17:26:51.475]                     }
[17:26:51.475]                     muffleCondition(cond, pattern = "^muffle")
[17:26:51.475]                   }
[17:26:51.475]                 }
[17:26:51.475]             }
[17:26:51.475]         }))
[17:26:51.475]     }, error = function(ex) {
[17:26:51.475]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:51.475]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:51.475]                 ...future.rng), started = ...future.startTime, 
[17:26:51.475]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:51.475]             version = "1.8"), class = "FutureResult")
[17:26:51.475]     }, finally = {
[17:26:51.475]         if (!identical(...future.workdir, getwd())) 
[17:26:51.475]             setwd(...future.workdir)
[17:26:51.475]         {
[17:26:51.475]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:51.475]                 ...future.oldOptions$nwarnings <- NULL
[17:26:51.475]             }
[17:26:51.475]             base::options(...future.oldOptions)
[17:26:51.475]             if (.Platform$OS.type == "windows") {
[17:26:51.475]                 old_names <- names(...future.oldEnvVars)
[17:26:51.475]                 envs <- base::Sys.getenv()
[17:26:51.475]                 names <- names(envs)
[17:26:51.475]                 common <- intersect(names, old_names)
[17:26:51.475]                 added <- setdiff(names, old_names)
[17:26:51.475]                 removed <- setdiff(old_names, names)
[17:26:51.475]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:51.475]                   envs[common]]
[17:26:51.475]                 NAMES <- toupper(changed)
[17:26:51.475]                 args <- list()
[17:26:51.475]                 for (kk in seq_along(NAMES)) {
[17:26:51.475]                   name <- changed[[kk]]
[17:26:51.475]                   NAME <- NAMES[[kk]]
[17:26:51.475]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.475]                     next
[17:26:51.475]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.475]                 }
[17:26:51.475]                 NAMES <- toupper(added)
[17:26:51.475]                 for (kk in seq_along(NAMES)) {
[17:26:51.475]                   name <- added[[kk]]
[17:26:51.475]                   NAME <- NAMES[[kk]]
[17:26:51.475]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.475]                     next
[17:26:51.475]                   args[[name]] <- ""
[17:26:51.475]                 }
[17:26:51.475]                 NAMES <- toupper(removed)
[17:26:51.475]                 for (kk in seq_along(NAMES)) {
[17:26:51.475]                   name <- removed[[kk]]
[17:26:51.475]                   NAME <- NAMES[[kk]]
[17:26:51.475]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:51.475]                     next
[17:26:51.475]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:51.475]                 }
[17:26:51.475]                 if (length(args) > 0) 
[17:26:51.475]                   base::do.call(base::Sys.setenv, args = args)
[17:26:51.475]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:51.475]             }
[17:26:51.475]             else {
[17:26:51.475]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:51.475]             }
[17:26:51.475]             {
[17:26:51.475]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:51.475]                   0L) {
[17:26:51.475]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:51.475]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:51.475]                   base::options(opts)
[17:26:51.475]                 }
[17:26:51.475]                 {
[17:26:51.475]                   {
[17:26:51.475]                     NULL
[17:26:51.475]                     RNGkind("Mersenne-Twister")
[17:26:51.475]                     base::rm(list = ".Random.seed", envir = base::globalenv(), 
[17:26:51.475]                       inherits = FALSE)
[17:26:51.475]                   }
[17:26:51.475]                   options(future.plan = NULL)
[17:26:51.475]                   if (is.na(NA_character_)) 
[17:26:51.475]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:51.475]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:51.475]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:51.475]                     .init = FALSE)
[17:26:51.475]                 }
[17:26:51.475]             }
[17:26:51.475]         }
[17:26:51.475]     })
[17:26:51.475]     if (TRUE) {
[17:26:51.475]         base::sink(type = "output", split = FALSE)
[17:26:51.475]         if (TRUE) {
[17:26:51.475]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:51.475]         }
[17:26:51.475]         else {
[17:26:51.475]             ...future.result["stdout"] <- base::list(NULL)
[17:26:51.475]         }
[17:26:51.475]         base::close(...future.stdout)
[17:26:51.475]         ...future.stdout <- NULL
[17:26:51.475]     }
[17:26:51.475]     ...future.result$conditions <- ...future.conditions
[17:26:51.475]     ...future.result$finished <- base::Sys.time()
[17:26:51.475]     ...future.result
[17:26:51.475] }
[17:26:51.479] assign_globals() ...
[17:26:51.479] List of 3
[17:26:51.479]  $ outer_function:function (x)  
[17:26:51.479]  $ map           :function (.x, .f, ...)  
[17:26:51.479]  $ inner_function:function (x)  
[17:26:51.479]  - attr(*, "where")=List of 3
[17:26:51.479]   ..$ outer_function:<environment: R_EmptyEnv> 
[17:26:51.479]   ..$ map           :<environment: R_EmptyEnv> 
[17:26:51.479]   ..$ inner_function:<environment: R_EmptyEnv> 
[17:26:51.479]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[17:26:51.479]  - attr(*, "resolved")= logi FALSE
[17:26:51.479]  - attr(*, "total_size")= num 7704
[17:26:51.479]  - attr(*, "already-done")= logi TRUE
[17:26:51.483] - reassign environment for 'outer_function'
[17:26:51.483] - copied 'outer_function' to environment
[17:26:51.483] - reassign environment for 'map'
[17:26:51.483] - copied 'map' to environment
[17:26:51.484] - reassign environment for 'inner_function'
[17:26:51.484] - copied 'inner_function' to environment
[17:26:51.484] assign_globals() ... done
[17:26:51.484] plan(): Setting new future strategy stack:
[17:26:51.485] List of future strategies:
[17:26:51.485] 1. sequential:
[17:26:51.485]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.485]    - tweaked: FALSE
[17:26:51.485]    - call: NULL
[17:26:51.485] plan(): nbrOfWorkers() = 1
[17:26:51.486] plan(): Setting new future strategy stack:
[17:26:51.487] List of future strategies:
[17:26:51.487] 1. sequential:
[17:26:51.487]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:51.487]    - tweaked: FALSE
[17:26:51.487]    - call: plan(strategy)
[17:26:51.487] plan(): nbrOfWorkers() = 1
[17:26:51.488] SequentialFuture started (and completed)
[17:26:51.488] - Launch lazy future ... done
[17:26:51.488] run() for 'SequentialFuture' ... done
List of 2
 $ : num [1:2] 2 3
 $ : num [1:2] 2 3
Testing with 1 cores ... DONE
Testing with 2 cores ...
availableCores(): 2
- plan('multisession') ...
[17:26:51.498] plan(): Setting new future strategy stack:
[17:26:51.498] List of future strategies:
[17:26:51.498] 1. multisession:
[17:26:51.498]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[17:26:51.498]    - tweaked: FALSE
[17:26:51.498]    - call: plan(strategy)
[17:26:51.498] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[17:26:51.499] multisession:
[17:26:51.499] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[17:26:51.499] - tweaked: FALSE
[17:26:51.499] - call: plan(strategy)
[17:26:51.503] getGlobalsAndPackages() ...
[17:26:51.503] Not searching for globals
[17:26:51.503] - globals: [0] <none>
[17:26:51.503] getGlobalsAndPackages() ... DONE
[17:26:51.504] [local output] makeClusterPSOCK() ...
[17:26:51.532] [local output] Workers: [n = 2] 'localhost', 'localhost'
[17:26:51.539] [local output] Base port: 36267
[17:26:51.539] [local output] Getting setup options for 2 cluster nodes ...
[17:26:51.540] [local output]  - Node 1 of 2 ...
[17:26:51.540] [local output] localMachine=TRUE => revtunnel=FALSE

[17:26:51.541] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpaYHxBh/worker.rank=1.parallelly.parent=197496.303784c9a4186.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpaYHxBh/worker.rank=1.parallelly.parent=197496.303784c9a4186.pid\")"'
[17:26:51.988] - Possible to infer worker's PID: TRUE
[17:26:51.989] [local output] Rscript port: 36267

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

[17:26:51.991] [local output] Rscript port: 36267

[17:26:51.991] [local output] Getting setup options for 2 cluster nodes ... done
[17:26:51.991] [local output]  - Parallel setup requested for some PSOCK nodes
[17:26:51.992] [local output] Setting up PSOCK nodes in parallel
[17:26:51.992] List of 36
[17:26:51.992]  $ worker          : chr "localhost"
[17:26:51.992]   ..- attr(*, "localhost")= logi TRUE
[17:26:51.992]  $ master          : chr "localhost"
[17:26:51.992]  $ port            : int 36267
[17:26:51.992]  $ connectTimeout  : num 120
[17:26:51.992]  $ timeout         : num 120
[17:26:51.992]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[17:26:51.992]  $ homogeneous     : logi TRUE
[17:26:51.992]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=globals,formulas.R:197496:CRANWI"| __truncated__
[17:26:51.992]  $ rscript_envs    : NULL
[17:26:51.992]  $ rscript_libs    : chr [1:2] "D:/temp/RtmpAVtqMV/RLIBS_30708245f64e7" "D:/RCompile/recent/R/library"
[17:26:51.992]  $ rscript_startup : NULL
[17:26:51.992]  $ rscript_sh      : chr "cmd"
[17:26:51.992]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[17:26:51.992]  $ methods         : logi TRUE
[17:26:51.992]  $ socketOptions   : chr "no-delay"
[17:26:51.992]  $ useXDR          : logi FALSE
[17:26:51.992]  $ outfile         : chr "/dev/null"
[17:26:51.992]  $ renice          : int NA
[17:26:51.992]  $ rshcmd          : NULL
[17:26:51.992]  $ user            : chr(0) 
[17:26:51.992]  $ revtunnel       : logi FALSE
[17:26:51.992]  $ rshlogfile      : NULL
[17:26:51.992]  $ rshopts         : chr(0) 
[17:26:51.992]  $ rank            : int 1
[17:26:51.992]  $ manual          : logi FALSE
[17:26:51.992]  $ dryrun          : logi FALSE
[17:26:51.992]  $ quiet           : logi FALSE
[17:26:51.992]  $ setup_strategy  : chr "parallel"
[17:26:51.992]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[17:26:51.992]  $ pidfile         : chr "D:/temp/RtmpaYHxBh/worker.rank=1.parallelly.parent=197496.303784c9a4186.pid"
[17:26:51.992]  $ rshcmd_label    : NULL
[17:26:51.992]  $ rsh_call        : NULL
[17:26:51.992]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[17:26:51.992]  $ localMachine    : logi TRUE
[17:26:51.992]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[17:26:51.992]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[17:26:51.992]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[17:26:51.992]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[17:26:51.992]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[17:26:51.992]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
[17:26:51.992]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[17:26:51.992]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[17:26:51.992]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[17:26:51.992]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[17:26:51.992]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[17:26:51.992]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[17:26:51.992]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[17:26:51.992]  $ arguments       :List of 28
[17:26:51.992]   ..$ worker          : chr "localhost"
[17:26:51.992]   ..$ master          : NULL
[17:26:51.992]   ..$ port            : int 36267
[17:26:51.992]   ..$ connectTimeout  : num 120
[17:26:51.992]   ..$ timeout         : num 120
[17:26:51.992]   ..$ rscript         : NULL
[17:26:51.992]   ..$ homogeneous     : NULL
[17:26:51.992]   ..$ rscript_args    : NULL
[17:26:51.992]   ..$ rscript_envs    : NULL
[17:26:51.992]   ..$ rscript_libs    : chr [1:2] "D:/temp/RtmpAVtqMV/RLIBS_30708245f64e7" "D:/RCompile/recent/R/library"
[17:26:51.992]   ..$ rscript_startup : NULL
[17:26:51.992]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
[17:26:51.992]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[17:26:51.992]   ..$ methods         : logi TRUE
[17:26:51.992]   ..$ socketOptions   : chr "no-delay"
[17:26:51.992]   ..$ useXDR          : logi FALSE
[17:26:51.992]   ..$ outfile         : chr "/dev/null"
[17:26:51.992]   ..$ renice          : int NA
[17:26:51.992]   ..$ rshcmd          : NULL
[17:26:51.992]   ..$ user            : NULL
[17:26:51.992]   ..$ revtunnel       : logi NA
[17:26:51.992]   ..$ rshlogfile      : NULL
[17:26:51.992]   ..$ rshopts         : NULL
[17:26:51.992]   ..$ rank            : int 1
[17:26:51.992]   ..$ manual          : logi FALSE
[17:26:51.992]   ..$ dryrun          : logi FALSE
[17:26:51.992]   ..$ quiet           : logi FALSE
[17:26:51.992]   ..$ setup_strategy  : chr "parallel"
[17:26:51.992]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[17:26:52.014] [local output] System call to launch all workers:
[17:26:52.014] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=globals,formulas.R:197496:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpaYHxBh/worker.rank=1.parallelly.parent=197496.303784c9a4186.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=36267 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[17:26:52.014] [local output] Starting PSOCK main server
[17:26:52.020] [local output] Workers launched
[17:26:52.020] [local output] Waiting for workers to connect back
[17:26:52.021]  - [local output] 0 workers out of 2 ready
[17:26:52.182]  - [local output] 0 workers out of 2 ready
[17:26:52.183]  - [local output] 1 workers out of 2 ready
[17:26:52.183]  - [local output] 2 workers out of 2 ready
[17:26:52.183] [local output] Launching of workers completed
[17:26:52.183] [local output] Collecting session information from workers
[17:26:52.184] [local output]  - Worker #1 of 2
[17:26:52.185] [local output]  - Worker #2 of 2
[17:26:52.185] [local output] makeClusterPSOCK() ... done
[17:26:52.197] Packages needed by the future expression (n = 0): <none>
[17:26:52.198] Packages needed by future strategies (n = 0): <none>
[17:26:52.198] {
[17:26:52.198]     {
[17:26:52.198]         {
[17:26:52.198]             ...future.startTime <- base::Sys.time()
[17:26:52.198]             {
[17:26:52.198]                 {
[17:26:52.198]                   {
[17:26:52.198]                     {
[17:26:52.198]                       base::local({
[17:26:52.198]                         has_future <- base::requireNamespace("future", 
[17:26:52.198]                           quietly = TRUE)
[17:26:52.198]                         if (has_future) {
[17:26:52.198]                           ns <- base::getNamespace("future")
[17:26:52.198]                           version <- ns[[".package"]][["version"]]
[17:26:52.198]                           if (is.null(version)) 
[17:26:52.198]                             version <- utils::packageVersion("future")
[17:26:52.198]                         }
[17:26:52.198]                         else {
[17:26:52.198]                           version <- NULL
[17:26:52.198]                         }
[17:26:52.198]                         if (!has_future || version < "1.8.0") {
[17:26:52.198]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.198]                             "", base::R.version$version.string), 
[17:26:52.198]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:52.198]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:52.198]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.198]                               "release", "version")], collapse = " "), 
[17:26:52.198]                             hostname = base::Sys.info()[["nodename"]])
[17:26:52.198]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.198]                             info)
[17:26:52.198]                           info <- base::paste(info, collapse = "; ")
[17:26:52.198]                           if (!has_future) {
[17:26:52.198]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.198]                               info)
[17:26:52.198]                           }
[17:26:52.198]                           else {
[17:26:52.198]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.198]                               info, version)
[17:26:52.198]                           }
[17:26:52.198]                           base::stop(msg)
[17:26:52.198]                         }
[17:26:52.198]                       })
[17:26:52.198]                     }
[17:26:52.198]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.198]                     base::options(mc.cores = 1L)
[17:26:52.198]                   }
[17:26:52.198]                   ...future.strategy.old <- future::plan("list")
[17:26:52.198]                   options(future.plan = NULL)
[17:26:52.198]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.198]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.198]                 }
[17:26:52.198]                 ...future.workdir <- getwd()
[17:26:52.198]             }
[17:26:52.198]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.198]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.198]         }
[17:26:52.198]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.198]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.198]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.198]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.198]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.198]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.198]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.198]             base::names(...future.oldOptions))
[17:26:52.198]     }
[17:26:52.198]     if (FALSE) {
[17:26:52.198]     }
[17:26:52.198]     else {
[17:26:52.198]         if (TRUE) {
[17:26:52.198]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.198]                 open = "w")
[17:26:52.198]         }
[17:26:52.198]         else {
[17:26:52.198]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.198]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.198]         }
[17:26:52.198]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.198]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.198]             base::sink(type = "output", split = FALSE)
[17:26:52.198]             base::close(...future.stdout)
[17:26:52.198]         }, add = TRUE)
[17:26:52.198]     }
[17:26:52.198]     ...future.frame <- base::sys.nframe()
[17:26:52.198]     ...future.conditions <- base::list()
[17:26:52.198]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.198]     if (FALSE) {
[17:26:52.198]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.198]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.198]     }
[17:26:52.198]     ...future.result <- base::tryCatch({
[17:26:52.198]         base::withCallingHandlers({
[17:26:52.198]             ...future.value <- base::withVisible(base::local({
[17:26:52.198]                 ...future.makeSendCondition <- base::local({
[17:26:52.198]                   sendCondition <- NULL
[17:26:52.198]                   function(frame = 1L) {
[17:26:52.198]                     if (is.function(sendCondition)) 
[17:26:52.198]                       return(sendCondition)
[17:26:52.198]                     ns <- getNamespace("parallel")
[17:26:52.198]                     if (exists("sendData", mode = "function", 
[17:26:52.198]                       envir = ns)) {
[17:26:52.198]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.198]                         envir = ns)
[17:26:52.198]                       envir <- sys.frame(frame)
[17:26:52.198]                       master <- NULL
[17:26:52.198]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.198]                         !identical(envir, emptyenv())) {
[17:26:52.198]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.198]                           inherits = FALSE)) {
[17:26:52.198]                           master <- get("master", mode = "list", 
[17:26:52.198]                             envir = envir, inherits = FALSE)
[17:26:52.198]                           if (inherits(master, c("SOCKnode", 
[17:26:52.198]                             "SOCK0node"))) {
[17:26:52.198]                             sendCondition <<- function(cond) {
[17:26:52.198]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.198]                                 success = TRUE)
[17:26:52.198]                               parallel_sendData(master, data)
[17:26:52.198]                             }
[17:26:52.198]                             return(sendCondition)
[17:26:52.198]                           }
[17:26:52.198]                         }
[17:26:52.198]                         frame <- frame + 1L
[17:26:52.198]                         envir <- sys.frame(frame)
[17:26:52.198]                       }
[17:26:52.198]                     }
[17:26:52.198]                     sendCondition <<- function(cond) NULL
[17:26:52.198]                   }
[17:26:52.198]                 })
[17:26:52.198]                 withCallingHandlers({
[17:26:52.198]                   NA
[17:26:52.198]                 }, immediateCondition = function(cond) {
[17:26:52.198]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.198]                   sendCondition(cond)
[17:26:52.198]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.198]                   {
[17:26:52.198]                     inherits <- base::inherits
[17:26:52.198]                     invokeRestart <- base::invokeRestart
[17:26:52.198]                     is.null <- base::is.null
[17:26:52.198]                     muffled <- FALSE
[17:26:52.198]                     if (inherits(cond, "message")) {
[17:26:52.198]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.198]                       if (muffled) 
[17:26:52.198]                         invokeRestart("muffleMessage")
[17:26:52.198]                     }
[17:26:52.198]                     else if (inherits(cond, "warning")) {
[17:26:52.198]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.198]                       if (muffled) 
[17:26:52.198]                         invokeRestart("muffleWarning")
[17:26:52.198]                     }
[17:26:52.198]                     else if (inherits(cond, "condition")) {
[17:26:52.198]                       if (!is.null(pattern)) {
[17:26:52.198]                         computeRestarts <- base::computeRestarts
[17:26:52.198]                         grepl <- base::grepl
[17:26:52.198]                         restarts <- computeRestarts(cond)
[17:26:52.198]                         for (restart in restarts) {
[17:26:52.198]                           name <- restart$name
[17:26:52.198]                           if (is.null(name)) 
[17:26:52.198]                             next
[17:26:52.198]                           if (!grepl(pattern, name)) 
[17:26:52.198]                             next
[17:26:52.198]                           invokeRestart(restart)
[17:26:52.198]                           muffled <- TRUE
[17:26:52.198]                           break
[17:26:52.198]                         }
[17:26:52.198]                       }
[17:26:52.198]                     }
[17:26:52.198]                     invisible(muffled)
[17:26:52.198]                   }
[17:26:52.198]                   muffleCondition(cond)
[17:26:52.198]                 })
[17:26:52.198]             }))
[17:26:52.198]             future::FutureResult(value = ...future.value$value, 
[17:26:52.198]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.198]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.198]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.198]                     ...future.globalenv.names))
[17:26:52.198]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.198]         }, condition = base::local({
[17:26:52.198]             c <- base::c
[17:26:52.198]             inherits <- base::inherits
[17:26:52.198]             invokeRestart <- base::invokeRestart
[17:26:52.198]             length <- base::length
[17:26:52.198]             list <- base::list
[17:26:52.198]             seq.int <- base::seq.int
[17:26:52.198]             signalCondition <- base::signalCondition
[17:26:52.198]             sys.calls <- base::sys.calls
[17:26:52.198]             `[[` <- base::`[[`
[17:26:52.198]             `+` <- base::`+`
[17:26:52.198]             `<<-` <- base::`<<-`
[17:26:52.198]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.198]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.198]                   3L)]
[17:26:52.198]             }
[17:26:52.198]             function(cond) {
[17:26:52.198]                 is_error <- inherits(cond, "error")
[17:26:52.198]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.198]                   NULL)
[17:26:52.198]                 if (is_error) {
[17:26:52.198]                   sessionInformation <- function() {
[17:26:52.198]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.198]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.198]                       search = base::search(), system = base::Sys.info())
[17:26:52.198]                   }
[17:26:52.198]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.198]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.198]                     cond$call), session = sessionInformation(), 
[17:26:52.198]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.198]                   signalCondition(cond)
[17:26:52.198]                 }
[17:26:52.198]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.198]                 "immediateCondition"))) {
[17:26:52.198]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.198]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.198]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.198]                   if (TRUE && !signal) {
[17:26:52.198]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.198]                     {
[17:26:52.198]                       inherits <- base::inherits
[17:26:52.198]                       invokeRestart <- base::invokeRestart
[17:26:52.198]                       is.null <- base::is.null
[17:26:52.198]                       muffled <- FALSE
[17:26:52.198]                       if (inherits(cond, "message")) {
[17:26:52.198]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.198]                         if (muffled) 
[17:26:52.198]                           invokeRestart("muffleMessage")
[17:26:52.198]                       }
[17:26:52.198]                       else if (inherits(cond, "warning")) {
[17:26:52.198]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.198]                         if (muffled) 
[17:26:52.198]                           invokeRestart("muffleWarning")
[17:26:52.198]                       }
[17:26:52.198]                       else if (inherits(cond, "condition")) {
[17:26:52.198]                         if (!is.null(pattern)) {
[17:26:52.198]                           computeRestarts <- base::computeRestarts
[17:26:52.198]                           grepl <- base::grepl
[17:26:52.198]                           restarts <- computeRestarts(cond)
[17:26:52.198]                           for (restart in restarts) {
[17:26:52.198]                             name <- restart$name
[17:26:52.198]                             if (is.null(name)) 
[17:26:52.198]                               next
[17:26:52.198]                             if (!grepl(pattern, name)) 
[17:26:52.198]                               next
[17:26:52.198]                             invokeRestart(restart)
[17:26:52.198]                             muffled <- TRUE
[17:26:52.198]                             break
[17:26:52.198]                           }
[17:26:52.198]                         }
[17:26:52.198]                       }
[17:26:52.198]                       invisible(muffled)
[17:26:52.198]                     }
[17:26:52.198]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.198]                   }
[17:26:52.198]                 }
[17:26:52.198]                 else {
[17:26:52.198]                   if (TRUE) {
[17:26:52.198]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.198]                     {
[17:26:52.198]                       inherits <- base::inherits
[17:26:52.198]                       invokeRestart <- base::invokeRestart
[17:26:52.198]                       is.null <- base::is.null
[17:26:52.198]                       muffled <- FALSE
[17:26:52.198]                       if (inherits(cond, "message")) {
[17:26:52.198]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.198]                         if (muffled) 
[17:26:52.198]                           invokeRestart("muffleMessage")
[17:26:52.198]                       }
[17:26:52.198]                       else if (inherits(cond, "warning")) {
[17:26:52.198]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.198]                         if (muffled) 
[17:26:52.198]                           invokeRestart("muffleWarning")
[17:26:52.198]                       }
[17:26:52.198]                       else if (inherits(cond, "condition")) {
[17:26:52.198]                         if (!is.null(pattern)) {
[17:26:52.198]                           computeRestarts <- base::computeRestarts
[17:26:52.198]                           grepl <- base::grepl
[17:26:52.198]                           restarts <- computeRestarts(cond)
[17:26:52.198]                           for (restart in restarts) {
[17:26:52.198]                             name <- restart$name
[17:26:52.198]                             if (is.null(name)) 
[17:26:52.198]                               next
[17:26:52.198]                             if (!grepl(pattern, name)) 
[17:26:52.198]                               next
[17:26:52.198]                             invokeRestart(restart)
[17:26:52.198]                             muffled <- TRUE
[17:26:52.198]                             break
[17:26:52.198]                           }
[17:26:52.198]                         }
[17:26:52.198]                       }
[17:26:52.198]                       invisible(muffled)
[17:26:52.198]                     }
[17:26:52.198]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.198]                   }
[17:26:52.198]                 }
[17:26:52.198]             }
[17:26:52.198]         }))
[17:26:52.198]     }, error = function(ex) {
[17:26:52.198]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.198]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.198]                 ...future.rng), started = ...future.startTime, 
[17:26:52.198]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.198]             version = "1.8"), class = "FutureResult")
[17:26:52.198]     }, finally = {
[17:26:52.198]         if (!identical(...future.workdir, getwd())) 
[17:26:52.198]             setwd(...future.workdir)
[17:26:52.198]         {
[17:26:52.198]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.198]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.198]             }
[17:26:52.198]             base::options(...future.oldOptions)
[17:26:52.198]             if (.Platform$OS.type == "windows") {
[17:26:52.198]                 old_names <- names(...future.oldEnvVars)
[17:26:52.198]                 envs <- base::Sys.getenv()
[17:26:52.198]                 names <- names(envs)
[17:26:52.198]                 common <- intersect(names, old_names)
[17:26:52.198]                 added <- setdiff(names, old_names)
[17:26:52.198]                 removed <- setdiff(old_names, names)
[17:26:52.198]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.198]                   envs[common]]
[17:26:52.198]                 NAMES <- toupper(changed)
[17:26:52.198]                 args <- list()
[17:26:52.198]                 for (kk in seq_along(NAMES)) {
[17:26:52.198]                   name <- changed[[kk]]
[17:26:52.198]                   NAME <- NAMES[[kk]]
[17:26:52.198]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.198]                     next
[17:26:52.198]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.198]                 }
[17:26:52.198]                 NAMES <- toupper(added)
[17:26:52.198]                 for (kk in seq_along(NAMES)) {
[17:26:52.198]                   name <- added[[kk]]
[17:26:52.198]                   NAME <- NAMES[[kk]]
[17:26:52.198]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.198]                     next
[17:26:52.198]                   args[[name]] <- ""
[17:26:52.198]                 }
[17:26:52.198]                 NAMES <- toupper(removed)
[17:26:52.198]                 for (kk in seq_along(NAMES)) {
[17:26:52.198]                   name <- removed[[kk]]
[17:26:52.198]                   NAME <- NAMES[[kk]]
[17:26:52.198]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.198]                     next
[17:26:52.198]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.198]                 }
[17:26:52.198]                 if (length(args) > 0) 
[17:26:52.198]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.198]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.198]             }
[17:26:52.198]             else {
[17:26:52.198]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.198]             }
[17:26:52.198]             {
[17:26:52.198]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.198]                   0L) {
[17:26:52.198]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.198]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.198]                   base::options(opts)
[17:26:52.198]                 }
[17:26:52.198]                 {
[17:26:52.198]                   {
[17:26:52.198]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.198]                     NULL
[17:26:52.198]                   }
[17:26:52.198]                   options(future.plan = NULL)
[17:26:52.198]                   if (is.na(NA_character_)) 
[17:26:52.198]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.198]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.198]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.198]                     .init = FALSE)
[17:26:52.198]                 }
[17:26:52.198]             }
[17:26:52.198]         }
[17:26:52.198]     })
[17:26:52.198]     if (TRUE) {
[17:26:52.198]         base::sink(type = "output", split = FALSE)
[17:26:52.198]         if (TRUE) {
[17:26:52.198]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.198]         }
[17:26:52.198]         else {
[17:26:52.198]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.198]         }
[17:26:52.198]         base::close(...future.stdout)
[17:26:52.198]         ...future.stdout <- NULL
[17:26:52.198]     }
[17:26:52.198]     ...future.result$conditions <- ...future.conditions
[17:26:52.198]     ...future.result$finished <- base::Sys.time()
[17:26:52.198]     ...future.result
[17:26:52.198] }
[17:26:52.281] MultisessionFuture started
[17:26:52.281] result() for ClusterFuture ...
[17:26:52.282] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.282] - Validating connection of MultisessionFuture
[17:26:52.332] - received message: FutureResult
[17:26:52.332] - Received FutureResult
[17:26:52.335] - Erased future from FutureRegistry
[17:26:52.335] result() for ClusterFuture ...
[17:26:52.336] - result already collected: FutureResult
[17:26:52.336] result() for ClusterFuture ... done
[17:26:52.336] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.336] result() for ClusterFuture ... done
[17:26:52.336] result() for ClusterFuture ...
[17:26:52.336] - result already collected: FutureResult
[17:26:52.337] result() for ClusterFuture ... done
[17:26:52.337] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[17:26:52.340] plan(): nbrOfWorkers() = 2
- lm(<formula>) ...
[17:26:52.340] getGlobalsAndPackages() ...
[17:26:52.340] Searching for globals...
[17:26:52.342] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:52.343] Searching for globals ... DONE
[17:26:52.343] Resolving globals: FALSE
[17:26:52.344] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:52.344] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:52.345] - globals: [2] 'weight', 'group'
[17:26:52.345] - packages: [1] 'stats'
[17:26:52.345] getGlobalsAndPackages() ... DONE
[17:26:52.345] run() for 'Future' ...
[17:26:52.346] - state: 'created'
[17:26:52.346] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.360] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.360] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.360]   - Field: 'node'
[17:26:52.360]   - Field: 'label'
[17:26:52.361]   - Field: 'local'
[17:26:52.361]   - Field: 'owner'
[17:26:52.361]   - Field: 'envir'
[17:26:52.361]   - Field: 'workers'
[17:26:52.361]   - Field: 'packages'
[17:26:52.362]   - Field: 'gc'
[17:26:52.362]   - Field: 'conditions'
[17:26:52.362]   - Field: 'persistent'
[17:26:52.362]   - Field: 'expr'
[17:26:52.362]   - Field: 'uuid'
[17:26:52.363]   - Field: 'seed'
[17:26:52.363]   - Field: 'version'
[17:26:52.363]   - Field: 'result'
[17:26:52.363]   - Field: 'asynchronous'
[17:26:52.363]   - Field: 'calls'
[17:26:52.364]   - Field: 'globals'
[17:26:52.364]   - Field: 'stdout'
[17:26:52.364]   - Field: 'earlySignal'
[17:26:52.364]   - Field: 'lazy'
[17:26:52.364]   - Field: 'state'
[17:26:52.365] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.365] - Launch lazy future ...
[17:26:52.365] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.365] Packages needed by future strategies (n = 0): <none>
[17:26:52.366] {
[17:26:52.366]     {
[17:26:52.366]         {
[17:26:52.366]             ...future.startTime <- base::Sys.time()
[17:26:52.366]             {
[17:26:52.366]                 {
[17:26:52.366]                   {
[17:26:52.366]                     {
[17:26:52.366]                       {
[17:26:52.366]                         base::local({
[17:26:52.366]                           has_future <- base::requireNamespace("future", 
[17:26:52.366]                             quietly = TRUE)
[17:26:52.366]                           if (has_future) {
[17:26:52.366]                             ns <- base::getNamespace("future")
[17:26:52.366]                             version <- ns[[".package"]][["version"]]
[17:26:52.366]                             if (is.null(version)) 
[17:26:52.366]                               version <- utils::packageVersion("future")
[17:26:52.366]                           }
[17:26:52.366]                           else {
[17:26:52.366]                             version <- NULL
[17:26:52.366]                           }
[17:26:52.366]                           if (!has_future || version < "1.8.0") {
[17:26:52.366]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.366]                               "", base::R.version$version.string), 
[17:26:52.366]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.366]                                 base::R.version$platform, 8 * 
[17:26:52.366]                                   base::.Machine$sizeof.pointer), 
[17:26:52.366]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.366]                                 "release", "version")], collapse = " "), 
[17:26:52.366]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.366]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.366]                               info)
[17:26:52.366]                             info <- base::paste(info, collapse = "; ")
[17:26:52.366]                             if (!has_future) {
[17:26:52.366]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.366]                                 info)
[17:26:52.366]                             }
[17:26:52.366]                             else {
[17:26:52.366]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.366]                                 info, version)
[17:26:52.366]                             }
[17:26:52.366]                             base::stop(msg)
[17:26:52.366]                           }
[17:26:52.366]                         })
[17:26:52.366]                       }
[17:26:52.366]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.366]                       base::options(mc.cores = 1L)
[17:26:52.366]                     }
[17:26:52.366]                     base::local({
[17:26:52.366]                       for (pkg in "stats") {
[17:26:52.366]                         base::loadNamespace(pkg)
[17:26:52.366]                         base::library(pkg, character.only = TRUE)
[17:26:52.366]                       }
[17:26:52.366]                     })
[17:26:52.366]                   }
[17:26:52.366]                   ...future.strategy.old <- future::plan("list")
[17:26:52.366]                   options(future.plan = NULL)
[17:26:52.366]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.366]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.366]                 }
[17:26:52.366]                 ...future.workdir <- getwd()
[17:26:52.366]             }
[17:26:52.366]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.366]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.366]         }
[17:26:52.366]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.366]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.366]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.366]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.366]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.366]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.366]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.366]             base::names(...future.oldOptions))
[17:26:52.366]     }
[17:26:52.366]     if (FALSE) {
[17:26:52.366]     }
[17:26:52.366]     else {
[17:26:52.366]         if (TRUE) {
[17:26:52.366]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.366]                 open = "w")
[17:26:52.366]         }
[17:26:52.366]         else {
[17:26:52.366]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.366]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.366]         }
[17:26:52.366]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.366]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.366]             base::sink(type = "output", split = FALSE)
[17:26:52.366]             base::close(...future.stdout)
[17:26:52.366]         }, add = TRUE)
[17:26:52.366]     }
[17:26:52.366]     ...future.frame <- base::sys.nframe()
[17:26:52.366]     ...future.conditions <- base::list()
[17:26:52.366]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.366]     if (FALSE) {
[17:26:52.366]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.366]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.366]     }
[17:26:52.366]     ...future.result <- base::tryCatch({
[17:26:52.366]         base::withCallingHandlers({
[17:26:52.366]             ...future.value <- base::withVisible(base::local({
[17:26:52.366]                 ...future.makeSendCondition <- base::local({
[17:26:52.366]                   sendCondition <- NULL
[17:26:52.366]                   function(frame = 1L) {
[17:26:52.366]                     if (is.function(sendCondition)) 
[17:26:52.366]                       return(sendCondition)
[17:26:52.366]                     ns <- getNamespace("parallel")
[17:26:52.366]                     if (exists("sendData", mode = "function", 
[17:26:52.366]                       envir = ns)) {
[17:26:52.366]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.366]                         envir = ns)
[17:26:52.366]                       envir <- sys.frame(frame)
[17:26:52.366]                       master <- NULL
[17:26:52.366]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.366]                         !identical(envir, emptyenv())) {
[17:26:52.366]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.366]                           inherits = FALSE)) {
[17:26:52.366]                           master <- get("master", mode = "list", 
[17:26:52.366]                             envir = envir, inherits = FALSE)
[17:26:52.366]                           if (inherits(master, c("SOCKnode", 
[17:26:52.366]                             "SOCK0node"))) {
[17:26:52.366]                             sendCondition <<- function(cond) {
[17:26:52.366]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.366]                                 success = TRUE)
[17:26:52.366]                               parallel_sendData(master, data)
[17:26:52.366]                             }
[17:26:52.366]                             return(sendCondition)
[17:26:52.366]                           }
[17:26:52.366]                         }
[17:26:52.366]                         frame <- frame + 1L
[17:26:52.366]                         envir <- sys.frame(frame)
[17:26:52.366]                       }
[17:26:52.366]                     }
[17:26:52.366]                     sendCondition <<- function(cond) NULL
[17:26:52.366]                   }
[17:26:52.366]                 })
[17:26:52.366]                 withCallingHandlers({
[17:26:52.366]                   {
[17:26:52.366]                     lm(weight ~ group - 1)
[17:26:52.366]                   }
[17:26:52.366]                 }, immediateCondition = function(cond) {
[17:26:52.366]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.366]                   sendCondition(cond)
[17:26:52.366]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.366]                   {
[17:26:52.366]                     inherits <- base::inherits
[17:26:52.366]                     invokeRestart <- base::invokeRestart
[17:26:52.366]                     is.null <- base::is.null
[17:26:52.366]                     muffled <- FALSE
[17:26:52.366]                     if (inherits(cond, "message")) {
[17:26:52.366]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.366]                       if (muffled) 
[17:26:52.366]                         invokeRestart("muffleMessage")
[17:26:52.366]                     }
[17:26:52.366]                     else if (inherits(cond, "warning")) {
[17:26:52.366]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.366]                       if (muffled) 
[17:26:52.366]                         invokeRestart("muffleWarning")
[17:26:52.366]                     }
[17:26:52.366]                     else if (inherits(cond, "condition")) {
[17:26:52.366]                       if (!is.null(pattern)) {
[17:26:52.366]                         computeRestarts <- base::computeRestarts
[17:26:52.366]                         grepl <- base::grepl
[17:26:52.366]                         restarts <- computeRestarts(cond)
[17:26:52.366]                         for (restart in restarts) {
[17:26:52.366]                           name <- restart$name
[17:26:52.366]                           if (is.null(name)) 
[17:26:52.366]                             next
[17:26:52.366]                           if (!grepl(pattern, name)) 
[17:26:52.366]                             next
[17:26:52.366]                           invokeRestart(restart)
[17:26:52.366]                           muffled <- TRUE
[17:26:52.366]                           break
[17:26:52.366]                         }
[17:26:52.366]                       }
[17:26:52.366]                     }
[17:26:52.366]                     invisible(muffled)
[17:26:52.366]                   }
[17:26:52.366]                   muffleCondition(cond)
[17:26:52.366]                 })
[17:26:52.366]             }))
[17:26:52.366]             future::FutureResult(value = ...future.value$value, 
[17:26:52.366]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.366]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.366]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.366]                     ...future.globalenv.names))
[17:26:52.366]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.366]         }, condition = base::local({
[17:26:52.366]             c <- base::c
[17:26:52.366]             inherits <- base::inherits
[17:26:52.366]             invokeRestart <- base::invokeRestart
[17:26:52.366]             length <- base::length
[17:26:52.366]             list <- base::list
[17:26:52.366]             seq.int <- base::seq.int
[17:26:52.366]             signalCondition <- base::signalCondition
[17:26:52.366]             sys.calls <- base::sys.calls
[17:26:52.366]             `[[` <- base::`[[`
[17:26:52.366]             `+` <- base::`+`
[17:26:52.366]             `<<-` <- base::`<<-`
[17:26:52.366]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.366]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.366]                   3L)]
[17:26:52.366]             }
[17:26:52.366]             function(cond) {
[17:26:52.366]                 is_error <- inherits(cond, "error")
[17:26:52.366]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.366]                   NULL)
[17:26:52.366]                 if (is_error) {
[17:26:52.366]                   sessionInformation <- function() {
[17:26:52.366]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.366]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.366]                       search = base::search(), system = base::Sys.info())
[17:26:52.366]                   }
[17:26:52.366]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.366]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.366]                     cond$call), session = sessionInformation(), 
[17:26:52.366]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.366]                   signalCondition(cond)
[17:26:52.366]                 }
[17:26:52.366]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.366]                 "immediateCondition"))) {
[17:26:52.366]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.366]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.366]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.366]                   if (TRUE && !signal) {
[17:26:52.366]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.366]                     {
[17:26:52.366]                       inherits <- base::inherits
[17:26:52.366]                       invokeRestart <- base::invokeRestart
[17:26:52.366]                       is.null <- base::is.null
[17:26:52.366]                       muffled <- FALSE
[17:26:52.366]                       if (inherits(cond, "message")) {
[17:26:52.366]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.366]                         if (muffled) 
[17:26:52.366]                           invokeRestart("muffleMessage")
[17:26:52.366]                       }
[17:26:52.366]                       else if (inherits(cond, "warning")) {
[17:26:52.366]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.366]                         if (muffled) 
[17:26:52.366]                           invokeRestart("muffleWarning")
[17:26:52.366]                       }
[17:26:52.366]                       else if (inherits(cond, "condition")) {
[17:26:52.366]                         if (!is.null(pattern)) {
[17:26:52.366]                           computeRestarts <- base::computeRestarts
[17:26:52.366]                           grepl <- base::grepl
[17:26:52.366]                           restarts <- computeRestarts(cond)
[17:26:52.366]                           for (restart in restarts) {
[17:26:52.366]                             name <- restart$name
[17:26:52.366]                             if (is.null(name)) 
[17:26:52.366]                               next
[17:26:52.366]                             if (!grepl(pattern, name)) 
[17:26:52.366]                               next
[17:26:52.366]                             invokeRestart(restart)
[17:26:52.366]                             muffled <- TRUE
[17:26:52.366]                             break
[17:26:52.366]                           }
[17:26:52.366]                         }
[17:26:52.366]                       }
[17:26:52.366]                       invisible(muffled)
[17:26:52.366]                     }
[17:26:52.366]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.366]                   }
[17:26:52.366]                 }
[17:26:52.366]                 else {
[17:26:52.366]                   if (TRUE) {
[17:26:52.366]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.366]                     {
[17:26:52.366]                       inherits <- base::inherits
[17:26:52.366]                       invokeRestart <- base::invokeRestart
[17:26:52.366]                       is.null <- base::is.null
[17:26:52.366]                       muffled <- FALSE
[17:26:52.366]                       if (inherits(cond, "message")) {
[17:26:52.366]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.366]                         if (muffled) 
[17:26:52.366]                           invokeRestart("muffleMessage")
[17:26:52.366]                       }
[17:26:52.366]                       else if (inherits(cond, "warning")) {
[17:26:52.366]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.366]                         if (muffled) 
[17:26:52.366]                           invokeRestart("muffleWarning")
[17:26:52.366]                       }
[17:26:52.366]                       else if (inherits(cond, "condition")) {
[17:26:52.366]                         if (!is.null(pattern)) {
[17:26:52.366]                           computeRestarts <- base::computeRestarts
[17:26:52.366]                           grepl <- base::grepl
[17:26:52.366]                           restarts <- computeRestarts(cond)
[17:26:52.366]                           for (restart in restarts) {
[17:26:52.366]                             name <- restart$name
[17:26:52.366]                             if (is.null(name)) 
[17:26:52.366]                               next
[17:26:52.366]                             if (!grepl(pattern, name)) 
[17:26:52.366]                               next
[17:26:52.366]                             invokeRestart(restart)
[17:26:52.366]                             muffled <- TRUE
[17:26:52.366]                             break
[17:26:52.366]                           }
[17:26:52.366]                         }
[17:26:52.366]                       }
[17:26:52.366]                       invisible(muffled)
[17:26:52.366]                     }
[17:26:52.366]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.366]                   }
[17:26:52.366]                 }
[17:26:52.366]             }
[17:26:52.366]         }))
[17:26:52.366]     }, error = function(ex) {
[17:26:52.366]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.366]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.366]                 ...future.rng), started = ...future.startTime, 
[17:26:52.366]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.366]             version = "1.8"), class = "FutureResult")
[17:26:52.366]     }, finally = {
[17:26:52.366]         if (!identical(...future.workdir, getwd())) 
[17:26:52.366]             setwd(...future.workdir)
[17:26:52.366]         {
[17:26:52.366]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.366]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.366]             }
[17:26:52.366]             base::options(...future.oldOptions)
[17:26:52.366]             if (.Platform$OS.type == "windows") {
[17:26:52.366]                 old_names <- names(...future.oldEnvVars)
[17:26:52.366]                 envs <- base::Sys.getenv()
[17:26:52.366]                 names <- names(envs)
[17:26:52.366]                 common <- intersect(names, old_names)
[17:26:52.366]                 added <- setdiff(names, old_names)
[17:26:52.366]                 removed <- setdiff(old_names, names)
[17:26:52.366]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.366]                   envs[common]]
[17:26:52.366]                 NAMES <- toupper(changed)
[17:26:52.366]                 args <- list()
[17:26:52.366]                 for (kk in seq_along(NAMES)) {
[17:26:52.366]                   name <- changed[[kk]]
[17:26:52.366]                   NAME <- NAMES[[kk]]
[17:26:52.366]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.366]                     next
[17:26:52.366]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.366]                 }
[17:26:52.366]                 NAMES <- toupper(added)
[17:26:52.366]                 for (kk in seq_along(NAMES)) {
[17:26:52.366]                   name <- added[[kk]]
[17:26:52.366]                   NAME <- NAMES[[kk]]
[17:26:52.366]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.366]                     next
[17:26:52.366]                   args[[name]] <- ""
[17:26:52.366]                 }
[17:26:52.366]                 NAMES <- toupper(removed)
[17:26:52.366]                 for (kk in seq_along(NAMES)) {
[17:26:52.366]                   name <- removed[[kk]]
[17:26:52.366]                   NAME <- NAMES[[kk]]
[17:26:52.366]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.366]                     next
[17:26:52.366]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.366]                 }
[17:26:52.366]                 if (length(args) > 0) 
[17:26:52.366]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.366]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.366]             }
[17:26:52.366]             else {
[17:26:52.366]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.366]             }
[17:26:52.366]             {
[17:26:52.366]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.366]                   0L) {
[17:26:52.366]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.366]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.366]                   base::options(opts)
[17:26:52.366]                 }
[17:26:52.366]                 {
[17:26:52.366]                   {
[17:26:52.366]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.366]                     NULL
[17:26:52.366]                   }
[17:26:52.366]                   options(future.plan = NULL)
[17:26:52.366]                   if (is.na(NA_character_)) 
[17:26:52.366]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.366]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.366]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.366]                     .init = FALSE)
[17:26:52.366]                 }
[17:26:52.366]             }
[17:26:52.366]         }
[17:26:52.366]     })
[17:26:52.366]     if (TRUE) {
[17:26:52.366]         base::sink(type = "output", split = FALSE)
[17:26:52.366]         if (TRUE) {
[17:26:52.366]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.366]         }
[17:26:52.366]         else {
[17:26:52.366]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.366]         }
[17:26:52.366]         base::close(...future.stdout)
[17:26:52.366]         ...future.stdout <- NULL
[17:26:52.366]     }
[17:26:52.366]     ...future.result$conditions <- ...future.conditions
[17:26:52.366]     ...future.result$finished <- base::Sys.time()
[17:26:52.366]     ...future.result
[17:26:52.366] }
[17:26:52.371] Exporting 2 global objects (896 bytes) to cluster node #1 ...
[17:26:52.372] Exporting 'weight' (208 bytes) to cluster node #1 ...
[17:26:52.372] Exporting 'weight' (208 bytes) to cluster node #1 ... DONE
[17:26:52.372] Exporting 'group' (688 bytes) to cluster node #1 ...
[17:26:52.373] Exporting 'group' (688 bytes) to cluster node #1 ... DONE
[17:26:52.373] Exporting 2 global objects (896 bytes) to cluster node #1 ... DONE
[17:26:52.374] MultisessionFuture started
[17:26:52.374] - Launch lazy future ... done
[17:26:52.374] run() for 'MultisessionFuture' ... done
[17:26:52.375] result() for ClusterFuture ...
[17:26:52.375] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.375] - Validating connection of MultisessionFuture
[17:26:52.392] - received message: FutureResult
[17:26:52.392] - Received FutureResult
[17:26:52.393] - Erased future from FutureRegistry
[17:26:52.393] result() for ClusterFuture ...
[17:26:52.393] - result already collected: FutureResult
[17:26:52.393] result() for ClusterFuture ... done
[17:26:52.393] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.394] result() for ClusterFuture ... done
[17:26:52.394] result() for ClusterFuture ...
[17:26:52.394] - result already collected: FutureResult
[17:26:52.394] result() for ClusterFuture ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:52.397] getGlobalsAndPackages() ...
[17:26:52.397] Searching for globals...
[17:26:52.399] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:52.399] Searching for globals ... DONE
[17:26:52.399] Resolving globals: FALSE
[17:26:52.400] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:52.401] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:52.401] - globals: [2] 'weight', 'group'
[17:26:52.401] - packages: [1] 'stats'
[17:26:52.401] getGlobalsAndPackages() ... DONE
[17:26:52.402] run() for 'Future' ...
[17:26:52.402] - state: 'created'
[17:26:52.402] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.416] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.416] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.417]   - Field: 'node'
[17:26:52.417]   - Field: 'label'
[17:26:52.417]   - Field: 'local'
[17:26:52.417]   - Field: 'owner'
[17:26:52.417]   - Field: 'envir'
[17:26:52.418]   - Field: 'workers'
[17:26:52.418]   - Field: 'packages'
[17:26:52.418]   - Field: 'gc'
[17:26:52.418]   - Field: 'conditions'
[17:26:52.418]   - Field: 'persistent'
[17:26:52.419]   - Field: 'expr'
[17:26:52.419]   - Field: 'uuid'
[17:26:52.419]   - Field: 'seed'
[17:26:52.419]   - Field: 'version'
[17:26:52.419]   - Field: 'result'
[17:26:52.420]   - Field: 'asynchronous'
[17:26:52.420]   - Field: 'calls'
[17:26:52.420]   - Field: 'globals'
[17:26:52.420]   - Field: 'stdout'
[17:26:52.420]   - Field: 'earlySignal'
[17:26:52.421]   - Field: 'lazy'
[17:26:52.421]   - Field: 'state'
[17:26:52.421] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.421] - Launch lazy future ...
[17:26:52.422] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.422] Packages needed by future strategies (n = 0): <none>
[17:26:52.423] {
[17:26:52.423]     {
[17:26:52.423]         {
[17:26:52.423]             ...future.startTime <- base::Sys.time()
[17:26:52.423]             {
[17:26:52.423]                 {
[17:26:52.423]                   {
[17:26:52.423]                     {
[17:26:52.423]                       {
[17:26:52.423]                         base::local({
[17:26:52.423]                           has_future <- base::requireNamespace("future", 
[17:26:52.423]                             quietly = TRUE)
[17:26:52.423]                           if (has_future) {
[17:26:52.423]                             ns <- base::getNamespace("future")
[17:26:52.423]                             version <- ns[[".package"]][["version"]]
[17:26:52.423]                             if (is.null(version)) 
[17:26:52.423]                               version <- utils::packageVersion("future")
[17:26:52.423]                           }
[17:26:52.423]                           else {
[17:26:52.423]                             version <- NULL
[17:26:52.423]                           }
[17:26:52.423]                           if (!has_future || version < "1.8.0") {
[17:26:52.423]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.423]                               "", base::R.version$version.string), 
[17:26:52.423]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.423]                                 base::R.version$platform, 8 * 
[17:26:52.423]                                   base::.Machine$sizeof.pointer), 
[17:26:52.423]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.423]                                 "release", "version")], collapse = " "), 
[17:26:52.423]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.423]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.423]                               info)
[17:26:52.423]                             info <- base::paste(info, collapse = "; ")
[17:26:52.423]                             if (!has_future) {
[17:26:52.423]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.423]                                 info)
[17:26:52.423]                             }
[17:26:52.423]                             else {
[17:26:52.423]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.423]                                 info, version)
[17:26:52.423]                             }
[17:26:52.423]                             base::stop(msg)
[17:26:52.423]                           }
[17:26:52.423]                         })
[17:26:52.423]                       }
[17:26:52.423]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.423]                       base::options(mc.cores = 1L)
[17:26:52.423]                     }
[17:26:52.423]                     base::local({
[17:26:52.423]                       for (pkg in "stats") {
[17:26:52.423]                         base::loadNamespace(pkg)
[17:26:52.423]                         base::library(pkg, character.only = TRUE)
[17:26:52.423]                       }
[17:26:52.423]                     })
[17:26:52.423]                   }
[17:26:52.423]                   ...future.strategy.old <- future::plan("list")
[17:26:52.423]                   options(future.plan = NULL)
[17:26:52.423]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.423]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.423]                 }
[17:26:52.423]                 ...future.workdir <- getwd()
[17:26:52.423]             }
[17:26:52.423]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.423]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.423]         }
[17:26:52.423]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.423]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.423]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.423]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.423]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.423]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.423]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.423]             base::names(...future.oldOptions))
[17:26:52.423]     }
[17:26:52.423]     if (FALSE) {
[17:26:52.423]     }
[17:26:52.423]     else {
[17:26:52.423]         if (TRUE) {
[17:26:52.423]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.423]                 open = "w")
[17:26:52.423]         }
[17:26:52.423]         else {
[17:26:52.423]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.423]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.423]         }
[17:26:52.423]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.423]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.423]             base::sink(type = "output", split = FALSE)
[17:26:52.423]             base::close(...future.stdout)
[17:26:52.423]         }, add = TRUE)
[17:26:52.423]     }
[17:26:52.423]     ...future.frame <- base::sys.nframe()
[17:26:52.423]     ...future.conditions <- base::list()
[17:26:52.423]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.423]     if (FALSE) {
[17:26:52.423]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.423]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.423]     }
[17:26:52.423]     ...future.result <- base::tryCatch({
[17:26:52.423]         base::withCallingHandlers({
[17:26:52.423]             ...future.value <- base::withVisible(base::local({
[17:26:52.423]                 ...future.makeSendCondition <- base::local({
[17:26:52.423]                   sendCondition <- NULL
[17:26:52.423]                   function(frame = 1L) {
[17:26:52.423]                     if (is.function(sendCondition)) 
[17:26:52.423]                       return(sendCondition)
[17:26:52.423]                     ns <- getNamespace("parallel")
[17:26:52.423]                     if (exists("sendData", mode = "function", 
[17:26:52.423]                       envir = ns)) {
[17:26:52.423]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.423]                         envir = ns)
[17:26:52.423]                       envir <- sys.frame(frame)
[17:26:52.423]                       master <- NULL
[17:26:52.423]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.423]                         !identical(envir, emptyenv())) {
[17:26:52.423]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.423]                           inherits = FALSE)) {
[17:26:52.423]                           master <- get("master", mode = "list", 
[17:26:52.423]                             envir = envir, inherits = FALSE)
[17:26:52.423]                           if (inherits(master, c("SOCKnode", 
[17:26:52.423]                             "SOCK0node"))) {
[17:26:52.423]                             sendCondition <<- function(cond) {
[17:26:52.423]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.423]                                 success = TRUE)
[17:26:52.423]                               parallel_sendData(master, data)
[17:26:52.423]                             }
[17:26:52.423]                             return(sendCondition)
[17:26:52.423]                           }
[17:26:52.423]                         }
[17:26:52.423]                         frame <- frame + 1L
[17:26:52.423]                         envir <- sys.frame(frame)
[17:26:52.423]                       }
[17:26:52.423]                     }
[17:26:52.423]                     sendCondition <<- function(cond) NULL
[17:26:52.423]                   }
[17:26:52.423]                 })
[17:26:52.423]                 withCallingHandlers({
[17:26:52.423]                   {
[17:26:52.423]                     lm(weight ~ group - 1)
[17:26:52.423]                   }
[17:26:52.423]                 }, immediateCondition = function(cond) {
[17:26:52.423]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.423]                   sendCondition(cond)
[17:26:52.423]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.423]                   {
[17:26:52.423]                     inherits <- base::inherits
[17:26:52.423]                     invokeRestart <- base::invokeRestart
[17:26:52.423]                     is.null <- base::is.null
[17:26:52.423]                     muffled <- FALSE
[17:26:52.423]                     if (inherits(cond, "message")) {
[17:26:52.423]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.423]                       if (muffled) 
[17:26:52.423]                         invokeRestart("muffleMessage")
[17:26:52.423]                     }
[17:26:52.423]                     else if (inherits(cond, "warning")) {
[17:26:52.423]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.423]                       if (muffled) 
[17:26:52.423]                         invokeRestart("muffleWarning")
[17:26:52.423]                     }
[17:26:52.423]                     else if (inherits(cond, "condition")) {
[17:26:52.423]                       if (!is.null(pattern)) {
[17:26:52.423]                         computeRestarts <- base::computeRestarts
[17:26:52.423]                         grepl <- base::grepl
[17:26:52.423]                         restarts <- computeRestarts(cond)
[17:26:52.423]                         for (restart in restarts) {
[17:26:52.423]                           name <- restart$name
[17:26:52.423]                           if (is.null(name)) 
[17:26:52.423]                             next
[17:26:52.423]                           if (!grepl(pattern, name)) 
[17:26:52.423]                             next
[17:26:52.423]                           invokeRestart(restart)
[17:26:52.423]                           muffled <- TRUE
[17:26:52.423]                           break
[17:26:52.423]                         }
[17:26:52.423]                       }
[17:26:52.423]                     }
[17:26:52.423]                     invisible(muffled)
[17:26:52.423]                   }
[17:26:52.423]                   muffleCondition(cond)
[17:26:52.423]                 })
[17:26:52.423]             }))
[17:26:52.423]             future::FutureResult(value = ...future.value$value, 
[17:26:52.423]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.423]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.423]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.423]                     ...future.globalenv.names))
[17:26:52.423]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.423]         }, condition = base::local({
[17:26:52.423]             c <- base::c
[17:26:52.423]             inherits <- base::inherits
[17:26:52.423]             invokeRestart <- base::invokeRestart
[17:26:52.423]             length <- base::length
[17:26:52.423]             list <- base::list
[17:26:52.423]             seq.int <- base::seq.int
[17:26:52.423]             signalCondition <- base::signalCondition
[17:26:52.423]             sys.calls <- base::sys.calls
[17:26:52.423]             `[[` <- base::`[[`
[17:26:52.423]             `+` <- base::`+`
[17:26:52.423]             `<<-` <- base::`<<-`
[17:26:52.423]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.423]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.423]                   3L)]
[17:26:52.423]             }
[17:26:52.423]             function(cond) {
[17:26:52.423]                 is_error <- inherits(cond, "error")
[17:26:52.423]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.423]                   NULL)
[17:26:52.423]                 if (is_error) {
[17:26:52.423]                   sessionInformation <- function() {
[17:26:52.423]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.423]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.423]                       search = base::search(), system = base::Sys.info())
[17:26:52.423]                   }
[17:26:52.423]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.423]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.423]                     cond$call), session = sessionInformation(), 
[17:26:52.423]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.423]                   signalCondition(cond)
[17:26:52.423]                 }
[17:26:52.423]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.423]                 "immediateCondition"))) {
[17:26:52.423]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.423]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.423]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.423]                   if (TRUE && !signal) {
[17:26:52.423]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.423]                     {
[17:26:52.423]                       inherits <- base::inherits
[17:26:52.423]                       invokeRestart <- base::invokeRestart
[17:26:52.423]                       is.null <- base::is.null
[17:26:52.423]                       muffled <- FALSE
[17:26:52.423]                       if (inherits(cond, "message")) {
[17:26:52.423]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.423]                         if (muffled) 
[17:26:52.423]                           invokeRestart("muffleMessage")
[17:26:52.423]                       }
[17:26:52.423]                       else if (inherits(cond, "warning")) {
[17:26:52.423]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.423]                         if (muffled) 
[17:26:52.423]                           invokeRestart("muffleWarning")
[17:26:52.423]                       }
[17:26:52.423]                       else if (inherits(cond, "condition")) {
[17:26:52.423]                         if (!is.null(pattern)) {
[17:26:52.423]                           computeRestarts <- base::computeRestarts
[17:26:52.423]                           grepl <- base::grepl
[17:26:52.423]                           restarts <- computeRestarts(cond)
[17:26:52.423]                           for (restart in restarts) {
[17:26:52.423]                             name <- restart$name
[17:26:52.423]                             if (is.null(name)) 
[17:26:52.423]                               next
[17:26:52.423]                             if (!grepl(pattern, name)) 
[17:26:52.423]                               next
[17:26:52.423]                             invokeRestart(restart)
[17:26:52.423]                             muffled <- TRUE
[17:26:52.423]                             break
[17:26:52.423]                           }
[17:26:52.423]                         }
[17:26:52.423]                       }
[17:26:52.423]                       invisible(muffled)
[17:26:52.423]                     }
[17:26:52.423]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.423]                   }
[17:26:52.423]                 }
[17:26:52.423]                 else {
[17:26:52.423]                   if (TRUE) {
[17:26:52.423]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.423]                     {
[17:26:52.423]                       inherits <- base::inherits
[17:26:52.423]                       invokeRestart <- base::invokeRestart
[17:26:52.423]                       is.null <- base::is.null
[17:26:52.423]                       muffled <- FALSE
[17:26:52.423]                       if (inherits(cond, "message")) {
[17:26:52.423]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.423]                         if (muffled) 
[17:26:52.423]                           invokeRestart("muffleMessage")
[17:26:52.423]                       }
[17:26:52.423]                       else if (inherits(cond, "warning")) {
[17:26:52.423]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.423]                         if (muffled) 
[17:26:52.423]                           invokeRestart("muffleWarning")
[17:26:52.423]                       }
[17:26:52.423]                       else if (inherits(cond, "condition")) {
[17:26:52.423]                         if (!is.null(pattern)) {
[17:26:52.423]                           computeRestarts <- base::computeRestarts
[17:26:52.423]                           grepl <- base::grepl
[17:26:52.423]                           restarts <- computeRestarts(cond)
[17:26:52.423]                           for (restart in restarts) {
[17:26:52.423]                             name <- restart$name
[17:26:52.423]                             if (is.null(name)) 
[17:26:52.423]                               next
[17:26:52.423]                             if (!grepl(pattern, name)) 
[17:26:52.423]                               next
[17:26:52.423]                             invokeRestart(restart)
[17:26:52.423]                             muffled <- TRUE
[17:26:52.423]                             break
[17:26:52.423]                           }
[17:26:52.423]                         }
[17:26:52.423]                       }
[17:26:52.423]                       invisible(muffled)
[17:26:52.423]                     }
[17:26:52.423]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.423]                   }
[17:26:52.423]                 }
[17:26:52.423]             }
[17:26:52.423]         }))
[17:26:52.423]     }, error = function(ex) {
[17:26:52.423]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.423]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.423]                 ...future.rng), started = ...future.startTime, 
[17:26:52.423]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.423]             version = "1.8"), class = "FutureResult")
[17:26:52.423]     }, finally = {
[17:26:52.423]         if (!identical(...future.workdir, getwd())) 
[17:26:52.423]             setwd(...future.workdir)
[17:26:52.423]         {
[17:26:52.423]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.423]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.423]             }
[17:26:52.423]             base::options(...future.oldOptions)
[17:26:52.423]             if (.Platform$OS.type == "windows") {
[17:26:52.423]                 old_names <- names(...future.oldEnvVars)
[17:26:52.423]                 envs <- base::Sys.getenv()
[17:26:52.423]                 names <- names(envs)
[17:26:52.423]                 common <- intersect(names, old_names)
[17:26:52.423]                 added <- setdiff(names, old_names)
[17:26:52.423]                 removed <- setdiff(old_names, names)
[17:26:52.423]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.423]                   envs[common]]
[17:26:52.423]                 NAMES <- toupper(changed)
[17:26:52.423]                 args <- list()
[17:26:52.423]                 for (kk in seq_along(NAMES)) {
[17:26:52.423]                   name <- changed[[kk]]
[17:26:52.423]                   NAME <- NAMES[[kk]]
[17:26:52.423]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.423]                     next
[17:26:52.423]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.423]                 }
[17:26:52.423]                 NAMES <- toupper(added)
[17:26:52.423]                 for (kk in seq_along(NAMES)) {
[17:26:52.423]                   name <- added[[kk]]
[17:26:52.423]                   NAME <- NAMES[[kk]]
[17:26:52.423]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.423]                     next
[17:26:52.423]                   args[[name]] <- ""
[17:26:52.423]                 }
[17:26:52.423]                 NAMES <- toupper(removed)
[17:26:52.423]                 for (kk in seq_along(NAMES)) {
[17:26:52.423]                   name <- removed[[kk]]
[17:26:52.423]                   NAME <- NAMES[[kk]]
[17:26:52.423]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.423]                     next
[17:26:52.423]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.423]                 }
[17:26:52.423]                 if (length(args) > 0) 
[17:26:52.423]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.423]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.423]             }
[17:26:52.423]             else {
[17:26:52.423]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.423]             }
[17:26:52.423]             {
[17:26:52.423]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.423]                   0L) {
[17:26:52.423]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.423]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.423]                   base::options(opts)
[17:26:52.423]                 }
[17:26:52.423]                 {
[17:26:52.423]                   {
[17:26:52.423]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.423]                     NULL
[17:26:52.423]                   }
[17:26:52.423]                   options(future.plan = NULL)
[17:26:52.423]                   if (is.na(NA_character_)) 
[17:26:52.423]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.423]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.423]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.423]                     .init = FALSE)
[17:26:52.423]                 }
[17:26:52.423]             }
[17:26:52.423]         }
[17:26:52.423]     })
[17:26:52.423]     if (TRUE) {
[17:26:52.423]         base::sink(type = "output", split = FALSE)
[17:26:52.423]         if (TRUE) {
[17:26:52.423]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.423]         }
[17:26:52.423]         else {
[17:26:52.423]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.423]         }
[17:26:52.423]         base::close(...future.stdout)
[17:26:52.423]         ...future.stdout <- NULL
[17:26:52.423]     }
[17:26:52.423]     ...future.result$conditions <- ...future.conditions
[17:26:52.423]     ...future.result$finished <- base::Sys.time()
[17:26:52.423]     ...future.result
[17:26:52.423] }
[17:26:52.428] Exporting 2 global objects (896 bytes) to cluster node #1 ...
[17:26:52.428] Exporting 'weight' (208 bytes) to cluster node #1 ...
[17:26:52.429] Exporting 'weight' (208 bytes) to cluster node #1 ... DONE
[17:26:52.429] Exporting 'group' (688 bytes) to cluster node #1 ...
[17:26:52.430] Exporting 'group' (688 bytes) to cluster node #1 ... DONE
[17:26:52.430] Exporting 2 global objects (896 bytes) to cluster node #1 ... DONE
[17:26:52.431] MultisessionFuture started
[17:26:52.431] - Launch lazy future ... done
[17:26:52.431] run() for 'MultisessionFuture' ... done
[17:26:52.431] result() for ClusterFuture ...
[17:26:52.431] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.432] - Validating connection of MultisessionFuture
[17:26:52.446] - received message: FutureResult
[17:26:52.446] - Received FutureResult
[17:26:52.447] - Erased future from FutureRegistry
[17:26:52.447] result() for ClusterFuture ...
[17:26:52.447] - result already collected: FutureResult
[17:26:52.447] result() for ClusterFuture ... done
[17:26:52.447] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.448] result() for ClusterFuture ... done
[17:26:52.448] result() for ClusterFuture ...
[17:26:52.448] - result already collected: FutureResult
[17:26:52.448] result() for ClusterFuture ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:52.451] getGlobalsAndPackages() ...
[17:26:52.451] Searching for globals...
[17:26:52.453] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:52.453] Searching for globals ... DONE
[17:26:52.453] Resolving globals: FALSE
[17:26:52.454] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:52.455] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:52.455] - globals: [2] 'weight', 'group'
[17:26:52.455] - packages: [1] 'stats'
[17:26:52.455] getGlobalsAndPackages() ... DONE
[17:26:52.456] run() for 'Future' ...
[17:26:52.456] - state: 'created'
[17:26:52.456] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.470] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.470] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.470]   - Field: 'node'
[17:26:52.471]   - Field: 'label'
[17:26:52.471]   - Field: 'local'
[17:26:52.471]   - Field: 'owner'
[17:26:52.471]   - Field: 'envir'
[17:26:52.471]   - Field: 'workers'
[17:26:52.472]   - Field: 'packages'
[17:26:52.472]   - Field: 'gc'
[17:26:52.472]   - Field: 'conditions'
[17:26:52.472]   - Field: 'persistent'
[17:26:52.472]   - Field: 'expr'
[17:26:52.473]   - Field: 'uuid'
[17:26:52.473]   - Field: 'seed'
[17:26:52.473]   - Field: 'version'
[17:26:52.473]   - Field: 'result'
[17:26:52.473]   - Field: 'asynchronous'
[17:26:52.474]   - Field: 'calls'
[17:26:52.474]   - Field: 'globals'
[17:26:52.474]   - Field: 'stdout'
[17:26:52.474]   - Field: 'earlySignal'
[17:26:52.474]   - Field: 'lazy'
[17:26:52.475]   - Field: 'state'
[17:26:52.475] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.475] - Launch lazy future ...
[17:26:52.475] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.476] Packages needed by future strategies (n = 0): <none>
[17:26:52.476] {
[17:26:52.476]     {
[17:26:52.476]         {
[17:26:52.476]             ...future.startTime <- base::Sys.time()
[17:26:52.476]             {
[17:26:52.476]                 {
[17:26:52.476]                   {
[17:26:52.476]                     {
[17:26:52.476]                       {
[17:26:52.476]                         base::local({
[17:26:52.476]                           has_future <- base::requireNamespace("future", 
[17:26:52.476]                             quietly = TRUE)
[17:26:52.476]                           if (has_future) {
[17:26:52.476]                             ns <- base::getNamespace("future")
[17:26:52.476]                             version <- ns[[".package"]][["version"]]
[17:26:52.476]                             if (is.null(version)) 
[17:26:52.476]                               version <- utils::packageVersion("future")
[17:26:52.476]                           }
[17:26:52.476]                           else {
[17:26:52.476]                             version <- NULL
[17:26:52.476]                           }
[17:26:52.476]                           if (!has_future || version < "1.8.0") {
[17:26:52.476]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.476]                               "", base::R.version$version.string), 
[17:26:52.476]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.476]                                 base::R.version$platform, 8 * 
[17:26:52.476]                                   base::.Machine$sizeof.pointer), 
[17:26:52.476]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.476]                                 "release", "version")], collapse = " "), 
[17:26:52.476]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.476]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.476]                               info)
[17:26:52.476]                             info <- base::paste(info, collapse = "; ")
[17:26:52.476]                             if (!has_future) {
[17:26:52.476]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.476]                                 info)
[17:26:52.476]                             }
[17:26:52.476]                             else {
[17:26:52.476]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.476]                                 info, version)
[17:26:52.476]                             }
[17:26:52.476]                             base::stop(msg)
[17:26:52.476]                           }
[17:26:52.476]                         })
[17:26:52.476]                       }
[17:26:52.476]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.476]                       base::options(mc.cores = 1L)
[17:26:52.476]                     }
[17:26:52.476]                     base::local({
[17:26:52.476]                       for (pkg in "stats") {
[17:26:52.476]                         base::loadNamespace(pkg)
[17:26:52.476]                         base::library(pkg, character.only = TRUE)
[17:26:52.476]                       }
[17:26:52.476]                     })
[17:26:52.476]                   }
[17:26:52.476]                   ...future.strategy.old <- future::plan("list")
[17:26:52.476]                   options(future.plan = NULL)
[17:26:52.476]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.476]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.476]                 }
[17:26:52.476]                 ...future.workdir <- getwd()
[17:26:52.476]             }
[17:26:52.476]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.476]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.476]         }
[17:26:52.476]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.476]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.476]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.476]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.476]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.476]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.476]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.476]             base::names(...future.oldOptions))
[17:26:52.476]     }
[17:26:52.476]     if (FALSE) {
[17:26:52.476]     }
[17:26:52.476]     else {
[17:26:52.476]         if (TRUE) {
[17:26:52.476]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.476]                 open = "w")
[17:26:52.476]         }
[17:26:52.476]         else {
[17:26:52.476]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.476]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.476]         }
[17:26:52.476]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.476]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.476]             base::sink(type = "output", split = FALSE)
[17:26:52.476]             base::close(...future.stdout)
[17:26:52.476]         }, add = TRUE)
[17:26:52.476]     }
[17:26:52.476]     ...future.frame <- base::sys.nframe()
[17:26:52.476]     ...future.conditions <- base::list()
[17:26:52.476]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.476]     if (FALSE) {
[17:26:52.476]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.476]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.476]     }
[17:26:52.476]     ...future.result <- base::tryCatch({
[17:26:52.476]         base::withCallingHandlers({
[17:26:52.476]             ...future.value <- base::withVisible(base::local({
[17:26:52.476]                 ...future.makeSendCondition <- base::local({
[17:26:52.476]                   sendCondition <- NULL
[17:26:52.476]                   function(frame = 1L) {
[17:26:52.476]                     if (is.function(sendCondition)) 
[17:26:52.476]                       return(sendCondition)
[17:26:52.476]                     ns <- getNamespace("parallel")
[17:26:52.476]                     if (exists("sendData", mode = "function", 
[17:26:52.476]                       envir = ns)) {
[17:26:52.476]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.476]                         envir = ns)
[17:26:52.476]                       envir <- sys.frame(frame)
[17:26:52.476]                       master <- NULL
[17:26:52.476]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.476]                         !identical(envir, emptyenv())) {
[17:26:52.476]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.476]                           inherits = FALSE)) {
[17:26:52.476]                           master <- get("master", mode = "list", 
[17:26:52.476]                             envir = envir, inherits = FALSE)
[17:26:52.476]                           if (inherits(master, c("SOCKnode", 
[17:26:52.476]                             "SOCK0node"))) {
[17:26:52.476]                             sendCondition <<- function(cond) {
[17:26:52.476]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.476]                                 success = TRUE)
[17:26:52.476]                               parallel_sendData(master, data)
[17:26:52.476]                             }
[17:26:52.476]                             return(sendCondition)
[17:26:52.476]                           }
[17:26:52.476]                         }
[17:26:52.476]                         frame <- frame + 1L
[17:26:52.476]                         envir <- sys.frame(frame)
[17:26:52.476]                       }
[17:26:52.476]                     }
[17:26:52.476]                     sendCondition <<- function(cond) NULL
[17:26:52.476]                   }
[17:26:52.476]                 })
[17:26:52.476]                 withCallingHandlers({
[17:26:52.476]                   {
[17:26:52.476]                     lm(weight ~ group - 1)
[17:26:52.476]                   }
[17:26:52.476]                 }, immediateCondition = function(cond) {
[17:26:52.476]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.476]                   sendCondition(cond)
[17:26:52.476]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.476]                   {
[17:26:52.476]                     inherits <- base::inherits
[17:26:52.476]                     invokeRestart <- base::invokeRestart
[17:26:52.476]                     is.null <- base::is.null
[17:26:52.476]                     muffled <- FALSE
[17:26:52.476]                     if (inherits(cond, "message")) {
[17:26:52.476]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.476]                       if (muffled) 
[17:26:52.476]                         invokeRestart("muffleMessage")
[17:26:52.476]                     }
[17:26:52.476]                     else if (inherits(cond, "warning")) {
[17:26:52.476]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.476]                       if (muffled) 
[17:26:52.476]                         invokeRestart("muffleWarning")
[17:26:52.476]                     }
[17:26:52.476]                     else if (inherits(cond, "condition")) {
[17:26:52.476]                       if (!is.null(pattern)) {
[17:26:52.476]                         computeRestarts <- base::computeRestarts
[17:26:52.476]                         grepl <- base::grepl
[17:26:52.476]                         restarts <- computeRestarts(cond)
[17:26:52.476]                         for (restart in restarts) {
[17:26:52.476]                           name <- restart$name
[17:26:52.476]                           if (is.null(name)) 
[17:26:52.476]                             next
[17:26:52.476]                           if (!grepl(pattern, name)) 
[17:26:52.476]                             next
[17:26:52.476]                           invokeRestart(restart)
[17:26:52.476]                           muffled <- TRUE
[17:26:52.476]                           break
[17:26:52.476]                         }
[17:26:52.476]                       }
[17:26:52.476]                     }
[17:26:52.476]                     invisible(muffled)
[17:26:52.476]                   }
[17:26:52.476]                   muffleCondition(cond)
[17:26:52.476]                 })
[17:26:52.476]             }))
[17:26:52.476]             future::FutureResult(value = ...future.value$value, 
[17:26:52.476]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.476]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.476]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.476]                     ...future.globalenv.names))
[17:26:52.476]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.476]         }, condition = base::local({
[17:26:52.476]             c <- base::c
[17:26:52.476]             inherits <- base::inherits
[17:26:52.476]             invokeRestart <- base::invokeRestart
[17:26:52.476]             length <- base::length
[17:26:52.476]             list <- base::list
[17:26:52.476]             seq.int <- base::seq.int
[17:26:52.476]             signalCondition <- base::signalCondition
[17:26:52.476]             sys.calls <- base::sys.calls
[17:26:52.476]             `[[` <- base::`[[`
[17:26:52.476]             `+` <- base::`+`
[17:26:52.476]             `<<-` <- base::`<<-`
[17:26:52.476]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.476]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.476]                   3L)]
[17:26:52.476]             }
[17:26:52.476]             function(cond) {
[17:26:52.476]                 is_error <- inherits(cond, "error")
[17:26:52.476]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.476]                   NULL)
[17:26:52.476]                 if (is_error) {
[17:26:52.476]                   sessionInformation <- function() {
[17:26:52.476]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.476]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.476]                       search = base::search(), system = base::Sys.info())
[17:26:52.476]                   }
[17:26:52.476]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.476]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.476]                     cond$call), session = sessionInformation(), 
[17:26:52.476]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.476]                   signalCondition(cond)
[17:26:52.476]                 }
[17:26:52.476]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.476]                 "immediateCondition"))) {
[17:26:52.476]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.476]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.476]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.476]                   if (TRUE && !signal) {
[17:26:52.476]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.476]                     {
[17:26:52.476]                       inherits <- base::inherits
[17:26:52.476]                       invokeRestart <- base::invokeRestart
[17:26:52.476]                       is.null <- base::is.null
[17:26:52.476]                       muffled <- FALSE
[17:26:52.476]                       if (inherits(cond, "message")) {
[17:26:52.476]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.476]                         if (muffled) 
[17:26:52.476]                           invokeRestart("muffleMessage")
[17:26:52.476]                       }
[17:26:52.476]                       else if (inherits(cond, "warning")) {
[17:26:52.476]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.476]                         if (muffled) 
[17:26:52.476]                           invokeRestart("muffleWarning")
[17:26:52.476]                       }
[17:26:52.476]                       else if (inherits(cond, "condition")) {
[17:26:52.476]                         if (!is.null(pattern)) {
[17:26:52.476]                           computeRestarts <- base::computeRestarts
[17:26:52.476]                           grepl <- base::grepl
[17:26:52.476]                           restarts <- computeRestarts(cond)
[17:26:52.476]                           for (restart in restarts) {
[17:26:52.476]                             name <- restart$name
[17:26:52.476]                             if (is.null(name)) 
[17:26:52.476]                               next
[17:26:52.476]                             if (!grepl(pattern, name)) 
[17:26:52.476]                               next
[17:26:52.476]                             invokeRestart(restart)
[17:26:52.476]                             muffled <- TRUE
[17:26:52.476]                             break
[17:26:52.476]                           }
[17:26:52.476]                         }
[17:26:52.476]                       }
[17:26:52.476]                       invisible(muffled)
[17:26:52.476]                     }
[17:26:52.476]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.476]                   }
[17:26:52.476]                 }
[17:26:52.476]                 else {
[17:26:52.476]                   if (TRUE) {
[17:26:52.476]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.476]                     {
[17:26:52.476]                       inherits <- base::inherits
[17:26:52.476]                       invokeRestart <- base::invokeRestart
[17:26:52.476]                       is.null <- base::is.null
[17:26:52.476]                       muffled <- FALSE
[17:26:52.476]                       if (inherits(cond, "message")) {
[17:26:52.476]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.476]                         if (muffled) 
[17:26:52.476]                           invokeRestart("muffleMessage")
[17:26:52.476]                       }
[17:26:52.476]                       else if (inherits(cond, "warning")) {
[17:26:52.476]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.476]                         if (muffled) 
[17:26:52.476]                           invokeRestart("muffleWarning")
[17:26:52.476]                       }
[17:26:52.476]                       else if (inherits(cond, "condition")) {
[17:26:52.476]                         if (!is.null(pattern)) {
[17:26:52.476]                           computeRestarts <- base::computeRestarts
[17:26:52.476]                           grepl <- base::grepl
[17:26:52.476]                           restarts <- computeRestarts(cond)
[17:26:52.476]                           for (restart in restarts) {
[17:26:52.476]                             name <- restart$name
[17:26:52.476]                             if (is.null(name)) 
[17:26:52.476]                               next
[17:26:52.476]                             if (!grepl(pattern, name)) 
[17:26:52.476]                               next
[17:26:52.476]                             invokeRestart(restart)
[17:26:52.476]                             muffled <- TRUE
[17:26:52.476]                             break
[17:26:52.476]                           }
[17:26:52.476]                         }
[17:26:52.476]                       }
[17:26:52.476]                       invisible(muffled)
[17:26:52.476]                     }
[17:26:52.476]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.476]                   }
[17:26:52.476]                 }
[17:26:52.476]             }
[17:26:52.476]         }))
[17:26:52.476]     }, error = function(ex) {
[17:26:52.476]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.476]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.476]                 ...future.rng), started = ...future.startTime, 
[17:26:52.476]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.476]             version = "1.8"), class = "FutureResult")
[17:26:52.476]     }, finally = {
[17:26:52.476]         if (!identical(...future.workdir, getwd())) 
[17:26:52.476]             setwd(...future.workdir)
[17:26:52.476]         {
[17:26:52.476]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.476]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.476]             }
[17:26:52.476]             base::options(...future.oldOptions)
[17:26:52.476]             if (.Platform$OS.type == "windows") {
[17:26:52.476]                 old_names <- names(...future.oldEnvVars)
[17:26:52.476]                 envs <- base::Sys.getenv()
[17:26:52.476]                 names <- names(envs)
[17:26:52.476]                 common <- intersect(names, old_names)
[17:26:52.476]                 added <- setdiff(names, old_names)
[17:26:52.476]                 removed <- setdiff(old_names, names)
[17:26:52.476]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.476]                   envs[common]]
[17:26:52.476]                 NAMES <- toupper(changed)
[17:26:52.476]                 args <- list()
[17:26:52.476]                 for (kk in seq_along(NAMES)) {
[17:26:52.476]                   name <- changed[[kk]]
[17:26:52.476]                   NAME <- NAMES[[kk]]
[17:26:52.476]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.476]                     next
[17:26:52.476]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.476]                 }
[17:26:52.476]                 NAMES <- toupper(added)
[17:26:52.476]                 for (kk in seq_along(NAMES)) {
[17:26:52.476]                   name <- added[[kk]]
[17:26:52.476]                   NAME <- NAMES[[kk]]
[17:26:52.476]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.476]                     next
[17:26:52.476]                   args[[name]] <- ""
[17:26:52.476]                 }
[17:26:52.476]                 NAMES <- toupper(removed)
[17:26:52.476]                 for (kk in seq_along(NAMES)) {
[17:26:52.476]                   name <- removed[[kk]]
[17:26:52.476]                   NAME <- NAMES[[kk]]
[17:26:52.476]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.476]                     next
[17:26:52.476]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.476]                 }
[17:26:52.476]                 if (length(args) > 0) 
[17:26:52.476]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.476]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.476]             }
[17:26:52.476]             else {
[17:26:52.476]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.476]             }
[17:26:52.476]             {
[17:26:52.476]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.476]                   0L) {
[17:26:52.476]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.476]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.476]                   base::options(opts)
[17:26:52.476]                 }
[17:26:52.476]                 {
[17:26:52.476]                   {
[17:26:52.476]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.476]                     NULL
[17:26:52.476]                   }
[17:26:52.476]                   options(future.plan = NULL)
[17:26:52.476]                   if (is.na(NA_character_)) 
[17:26:52.476]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.476]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.476]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.476]                     .init = FALSE)
[17:26:52.476]                 }
[17:26:52.476]             }
[17:26:52.476]         }
[17:26:52.476]     })
[17:26:52.476]     if (TRUE) {
[17:26:52.476]         base::sink(type = "output", split = FALSE)
[17:26:52.476]         if (TRUE) {
[17:26:52.476]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.476]         }
[17:26:52.476]         else {
[17:26:52.476]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.476]         }
[17:26:52.476]         base::close(...future.stdout)
[17:26:52.476]         ...future.stdout <- NULL
[17:26:52.476]     }
[17:26:52.476]     ...future.result$conditions <- ...future.conditions
[17:26:52.476]     ...future.result$finished <- base::Sys.time()
[17:26:52.476]     ...future.result
[17:26:52.476] }
[17:26:52.484] Exporting 2 global objects (896 bytes) to cluster node #1 ...
[17:26:52.484] Exporting 'weight' (208 bytes) to cluster node #1 ...
[17:26:52.484] Exporting 'weight' (208 bytes) to cluster node #1 ... DONE
[17:26:52.484] Exporting 'group' (688 bytes) to cluster node #1 ...
[17:26:52.485] Exporting 'group' (688 bytes) to cluster node #1 ... DONE
[17:26:52.485] Exporting 2 global objects (896 bytes) to cluster node #1 ... DONE
[17:26:52.486] MultisessionFuture started
[17:26:52.486] - Launch lazy future ... done
[17:26:52.486] run() for 'MultisessionFuture' ... done
[17:26:52.486] result() for ClusterFuture ...
[17:26:52.487] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.487] - Validating connection of MultisessionFuture
[17:26:52.500] - received message: FutureResult
[17:26:52.500] - Received FutureResult
[17:26:52.501] - Erased future from FutureRegistry
[17:26:52.501] result() for ClusterFuture ...
[17:26:52.501] - result already collected: FutureResult
[17:26:52.501] result() for ClusterFuture ... done
[17:26:52.501] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.501] result() for ClusterFuture ... done
[17:26:52.502] result() for ClusterFuture ...
[17:26:52.502] - result already collected: FutureResult
[17:26:52.502] result() for ClusterFuture ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:52.504] getGlobalsAndPackages() ...
[17:26:52.504] Searching for globals...
[17:26:52.506] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:52.506] Searching for globals ... DONE
[17:26:52.506] Resolving globals: FALSE
[17:26:52.507] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:52.507] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:52.508] - globals: [2] 'weight', 'group'
[17:26:52.508] - packages: [1] 'stats'
[17:26:52.508] getGlobalsAndPackages() ... DONE
[17:26:52.508] run() for 'Future' ...
[17:26:52.509] - state: 'created'
[17:26:52.509] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.523] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.523] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.523]   - Field: 'node'
[17:26:52.523]   - Field: 'label'
[17:26:52.524]   - Field: 'local'
[17:26:52.524]   - Field: 'owner'
[17:26:52.524]   - Field: 'envir'
[17:26:52.524]   - Field: 'workers'
[17:26:52.524]   - Field: 'packages'
[17:26:52.524]   - Field: 'gc'
[17:26:52.525]   - Field: 'conditions'
[17:26:52.525]   - Field: 'persistent'
[17:26:52.525]   - Field: 'expr'
[17:26:52.525]   - Field: 'uuid'
[17:26:52.525]   - Field: 'seed'
[17:26:52.525]   - Field: 'version'
[17:26:52.526]   - Field: 'result'
[17:26:52.526]   - Field: 'asynchronous'
[17:26:52.526]   - Field: 'calls'
[17:26:52.526]   - Field: 'globals'
[17:26:52.526]   - Field: 'stdout'
[17:26:52.527]   - Field: 'earlySignal'
[17:26:52.527]   - Field: 'lazy'
[17:26:52.527]   - Field: 'state'
[17:26:52.527] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.527] - Launch lazy future ...
[17:26:52.528] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.528] Packages needed by future strategies (n = 0): <none>
[17:26:52.528] {
[17:26:52.528]     {
[17:26:52.528]         {
[17:26:52.528]             ...future.startTime <- base::Sys.time()
[17:26:52.528]             {
[17:26:52.528]                 {
[17:26:52.528]                   {
[17:26:52.528]                     {
[17:26:52.528]                       {
[17:26:52.528]                         base::local({
[17:26:52.528]                           has_future <- base::requireNamespace("future", 
[17:26:52.528]                             quietly = TRUE)
[17:26:52.528]                           if (has_future) {
[17:26:52.528]                             ns <- base::getNamespace("future")
[17:26:52.528]                             version <- ns[[".package"]][["version"]]
[17:26:52.528]                             if (is.null(version)) 
[17:26:52.528]                               version <- utils::packageVersion("future")
[17:26:52.528]                           }
[17:26:52.528]                           else {
[17:26:52.528]                             version <- NULL
[17:26:52.528]                           }
[17:26:52.528]                           if (!has_future || version < "1.8.0") {
[17:26:52.528]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.528]                               "", base::R.version$version.string), 
[17:26:52.528]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.528]                                 base::R.version$platform, 8 * 
[17:26:52.528]                                   base::.Machine$sizeof.pointer), 
[17:26:52.528]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.528]                                 "release", "version")], collapse = " "), 
[17:26:52.528]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.528]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.528]                               info)
[17:26:52.528]                             info <- base::paste(info, collapse = "; ")
[17:26:52.528]                             if (!has_future) {
[17:26:52.528]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.528]                                 info)
[17:26:52.528]                             }
[17:26:52.528]                             else {
[17:26:52.528]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.528]                                 info, version)
[17:26:52.528]                             }
[17:26:52.528]                             base::stop(msg)
[17:26:52.528]                           }
[17:26:52.528]                         })
[17:26:52.528]                       }
[17:26:52.528]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.528]                       base::options(mc.cores = 1L)
[17:26:52.528]                     }
[17:26:52.528]                     base::local({
[17:26:52.528]                       for (pkg in "stats") {
[17:26:52.528]                         base::loadNamespace(pkg)
[17:26:52.528]                         base::library(pkg, character.only = TRUE)
[17:26:52.528]                       }
[17:26:52.528]                     })
[17:26:52.528]                   }
[17:26:52.528]                   ...future.strategy.old <- future::plan("list")
[17:26:52.528]                   options(future.plan = NULL)
[17:26:52.528]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.528]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.528]                 }
[17:26:52.528]                 ...future.workdir <- getwd()
[17:26:52.528]             }
[17:26:52.528]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.528]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.528]         }
[17:26:52.528]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.528]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.528]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.528]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.528]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.528]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.528]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.528]             base::names(...future.oldOptions))
[17:26:52.528]     }
[17:26:52.528]     if (FALSE) {
[17:26:52.528]     }
[17:26:52.528]     else {
[17:26:52.528]         if (TRUE) {
[17:26:52.528]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.528]                 open = "w")
[17:26:52.528]         }
[17:26:52.528]         else {
[17:26:52.528]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.528]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.528]         }
[17:26:52.528]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.528]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.528]             base::sink(type = "output", split = FALSE)
[17:26:52.528]             base::close(...future.stdout)
[17:26:52.528]         }, add = TRUE)
[17:26:52.528]     }
[17:26:52.528]     ...future.frame <- base::sys.nframe()
[17:26:52.528]     ...future.conditions <- base::list()
[17:26:52.528]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.528]     if (FALSE) {
[17:26:52.528]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.528]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.528]     }
[17:26:52.528]     ...future.result <- base::tryCatch({
[17:26:52.528]         base::withCallingHandlers({
[17:26:52.528]             ...future.value <- base::withVisible(base::local({
[17:26:52.528]                 ...future.makeSendCondition <- base::local({
[17:26:52.528]                   sendCondition <- NULL
[17:26:52.528]                   function(frame = 1L) {
[17:26:52.528]                     if (is.function(sendCondition)) 
[17:26:52.528]                       return(sendCondition)
[17:26:52.528]                     ns <- getNamespace("parallel")
[17:26:52.528]                     if (exists("sendData", mode = "function", 
[17:26:52.528]                       envir = ns)) {
[17:26:52.528]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.528]                         envir = ns)
[17:26:52.528]                       envir <- sys.frame(frame)
[17:26:52.528]                       master <- NULL
[17:26:52.528]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.528]                         !identical(envir, emptyenv())) {
[17:26:52.528]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.528]                           inherits = FALSE)) {
[17:26:52.528]                           master <- get("master", mode = "list", 
[17:26:52.528]                             envir = envir, inherits = FALSE)
[17:26:52.528]                           if (inherits(master, c("SOCKnode", 
[17:26:52.528]                             "SOCK0node"))) {
[17:26:52.528]                             sendCondition <<- function(cond) {
[17:26:52.528]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.528]                                 success = TRUE)
[17:26:52.528]                               parallel_sendData(master, data)
[17:26:52.528]                             }
[17:26:52.528]                             return(sendCondition)
[17:26:52.528]                           }
[17:26:52.528]                         }
[17:26:52.528]                         frame <- frame + 1L
[17:26:52.528]                         envir <- sys.frame(frame)
[17:26:52.528]                       }
[17:26:52.528]                     }
[17:26:52.528]                     sendCondition <<- function(cond) NULL
[17:26:52.528]                   }
[17:26:52.528]                 })
[17:26:52.528]                 withCallingHandlers({
[17:26:52.528]                   {
[17:26:52.528]                     lm(weight ~ group - 1)
[17:26:52.528]                   }
[17:26:52.528]                 }, immediateCondition = function(cond) {
[17:26:52.528]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.528]                   sendCondition(cond)
[17:26:52.528]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.528]                   {
[17:26:52.528]                     inherits <- base::inherits
[17:26:52.528]                     invokeRestart <- base::invokeRestart
[17:26:52.528]                     is.null <- base::is.null
[17:26:52.528]                     muffled <- FALSE
[17:26:52.528]                     if (inherits(cond, "message")) {
[17:26:52.528]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.528]                       if (muffled) 
[17:26:52.528]                         invokeRestart("muffleMessage")
[17:26:52.528]                     }
[17:26:52.528]                     else if (inherits(cond, "warning")) {
[17:26:52.528]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.528]                       if (muffled) 
[17:26:52.528]                         invokeRestart("muffleWarning")
[17:26:52.528]                     }
[17:26:52.528]                     else if (inherits(cond, "condition")) {
[17:26:52.528]                       if (!is.null(pattern)) {
[17:26:52.528]                         computeRestarts <- base::computeRestarts
[17:26:52.528]                         grepl <- base::grepl
[17:26:52.528]                         restarts <- computeRestarts(cond)
[17:26:52.528]                         for (restart in restarts) {
[17:26:52.528]                           name <- restart$name
[17:26:52.528]                           if (is.null(name)) 
[17:26:52.528]                             next
[17:26:52.528]                           if (!grepl(pattern, name)) 
[17:26:52.528]                             next
[17:26:52.528]                           invokeRestart(restart)
[17:26:52.528]                           muffled <- TRUE
[17:26:52.528]                           break
[17:26:52.528]                         }
[17:26:52.528]                       }
[17:26:52.528]                     }
[17:26:52.528]                     invisible(muffled)
[17:26:52.528]                   }
[17:26:52.528]                   muffleCondition(cond)
[17:26:52.528]                 })
[17:26:52.528]             }))
[17:26:52.528]             future::FutureResult(value = ...future.value$value, 
[17:26:52.528]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.528]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.528]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.528]                     ...future.globalenv.names))
[17:26:52.528]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.528]         }, condition = base::local({
[17:26:52.528]             c <- base::c
[17:26:52.528]             inherits <- base::inherits
[17:26:52.528]             invokeRestart <- base::invokeRestart
[17:26:52.528]             length <- base::length
[17:26:52.528]             list <- base::list
[17:26:52.528]             seq.int <- base::seq.int
[17:26:52.528]             signalCondition <- base::signalCondition
[17:26:52.528]             sys.calls <- base::sys.calls
[17:26:52.528]             `[[` <- base::`[[`
[17:26:52.528]             `+` <- base::`+`
[17:26:52.528]             `<<-` <- base::`<<-`
[17:26:52.528]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.528]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.528]                   3L)]
[17:26:52.528]             }
[17:26:52.528]             function(cond) {
[17:26:52.528]                 is_error <- inherits(cond, "error")
[17:26:52.528]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.528]                   NULL)
[17:26:52.528]                 if (is_error) {
[17:26:52.528]                   sessionInformation <- function() {
[17:26:52.528]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.528]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.528]                       search = base::search(), system = base::Sys.info())
[17:26:52.528]                   }
[17:26:52.528]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.528]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.528]                     cond$call), session = sessionInformation(), 
[17:26:52.528]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.528]                   signalCondition(cond)
[17:26:52.528]                 }
[17:26:52.528]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.528]                 "immediateCondition"))) {
[17:26:52.528]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.528]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.528]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.528]                   if (TRUE && !signal) {
[17:26:52.528]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.528]                     {
[17:26:52.528]                       inherits <- base::inherits
[17:26:52.528]                       invokeRestart <- base::invokeRestart
[17:26:52.528]                       is.null <- base::is.null
[17:26:52.528]                       muffled <- FALSE
[17:26:52.528]                       if (inherits(cond, "message")) {
[17:26:52.528]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.528]                         if (muffled) 
[17:26:52.528]                           invokeRestart("muffleMessage")
[17:26:52.528]                       }
[17:26:52.528]                       else if (inherits(cond, "warning")) {
[17:26:52.528]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.528]                         if (muffled) 
[17:26:52.528]                           invokeRestart("muffleWarning")
[17:26:52.528]                       }
[17:26:52.528]                       else if (inherits(cond, "condition")) {
[17:26:52.528]                         if (!is.null(pattern)) {
[17:26:52.528]                           computeRestarts <- base::computeRestarts
[17:26:52.528]                           grepl <- base::grepl
[17:26:52.528]                           restarts <- computeRestarts(cond)
[17:26:52.528]                           for (restart in restarts) {
[17:26:52.528]                             name <- restart$name
[17:26:52.528]                             if (is.null(name)) 
[17:26:52.528]                               next
[17:26:52.528]                             if (!grepl(pattern, name)) 
[17:26:52.528]                               next
[17:26:52.528]                             invokeRestart(restart)
[17:26:52.528]                             muffled <- TRUE
[17:26:52.528]                             break
[17:26:52.528]                           }
[17:26:52.528]                         }
[17:26:52.528]                       }
[17:26:52.528]                       invisible(muffled)
[17:26:52.528]                     }
[17:26:52.528]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.528]                   }
[17:26:52.528]                 }
[17:26:52.528]                 else {
[17:26:52.528]                   if (TRUE) {
[17:26:52.528]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.528]                     {
[17:26:52.528]                       inherits <- base::inherits
[17:26:52.528]                       invokeRestart <- base::invokeRestart
[17:26:52.528]                       is.null <- base::is.null
[17:26:52.528]                       muffled <- FALSE
[17:26:52.528]                       if (inherits(cond, "message")) {
[17:26:52.528]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.528]                         if (muffled) 
[17:26:52.528]                           invokeRestart("muffleMessage")
[17:26:52.528]                       }
[17:26:52.528]                       else if (inherits(cond, "warning")) {
[17:26:52.528]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.528]                         if (muffled) 
[17:26:52.528]                           invokeRestart("muffleWarning")
[17:26:52.528]                       }
[17:26:52.528]                       else if (inherits(cond, "condition")) {
[17:26:52.528]                         if (!is.null(pattern)) {
[17:26:52.528]                           computeRestarts <- base::computeRestarts
[17:26:52.528]                           grepl <- base::grepl
[17:26:52.528]                           restarts <- computeRestarts(cond)
[17:26:52.528]                           for (restart in restarts) {
[17:26:52.528]                             name <- restart$name
[17:26:52.528]                             if (is.null(name)) 
[17:26:52.528]                               next
[17:26:52.528]                             if (!grepl(pattern, name)) 
[17:26:52.528]                               next
[17:26:52.528]                             invokeRestart(restart)
[17:26:52.528]                             muffled <- TRUE
[17:26:52.528]                             break
[17:26:52.528]                           }
[17:26:52.528]                         }
[17:26:52.528]                       }
[17:26:52.528]                       invisible(muffled)
[17:26:52.528]                     }
[17:26:52.528]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.528]                   }
[17:26:52.528]                 }
[17:26:52.528]             }
[17:26:52.528]         }))
[17:26:52.528]     }, error = function(ex) {
[17:26:52.528]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.528]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.528]                 ...future.rng), started = ...future.startTime, 
[17:26:52.528]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.528]             version = "1.8"), class = "FutureResult")
[17:26:52.528]     }, finally = {
[17:26:52.528]         if (!identical(...future.workdir, getwd())) 
[17:26:52.528]             setwd(...future.workdir)
[17:26:52.528]         {
[17:26:52.528]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.528]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.528]             }
[17:26:52.528]             base::options(...future.oldOptions)
[17:26:52.528]             if (.Platform$OS.type == "windows") {
[17:26:52.528]                 old_names <- names(...future.oldEnvVars)
[17:26:52.528]                 envs <- base::Sys.getenv()
[17:26:52.528]                 names <- names(envs)
[17:26:52.528]                 common <- intersect(names, old_names)
[17:26:52.528]                 added <- setdiff(names, old_names)
[17:26:52.528]                 removed <- setdiff(old_names, names)
[17:26:52.528]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.528]                   envs[common]]
[17:26:52.528]                 NAMES <- toupper(changed)
[17:26:52.528]                 args <- list()
[17:26:52.528]                 for (kk in seq_along(NAMES)) {
[17:26:52.528]                   name <- changed[[kk]]
[17:26:52.528]                   NAME <- NAMES[[kk]]
[17:26:52.528]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.528]                     next
[17:26:52.528]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.528]                 }
[17:26:52.528]                 NAMES <- toupper(added)
[17:26:52.528]                 for (kk in seq_along(NAMES)) {
[17:26:52.528]                   name <- added[[kk]]
[17:26:52.528]                   NAME <- NAMES[[kk]]
[17:26:52.528]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.528]                     next
[17:26:52.528]                   args[[name]] <- ""
[17:26:52.528]                 }
[17:26:52.528]                 NAMES <- toupper(removed)
[17:26:52.528]                 for (kk in seq_along(NAMES)) {
[17:26:52.528]                   name <- removed[[kk]]
[17:26:52.528]                   NAME <- NAMES[[kk]]
[17:26:52.528]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.528]                     next
[17:26:52.528]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.528]                 }
[17:26:52.528]                 if (length(args) > 0) 
[17:26:52.528]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.528]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.528]             }
[17:26:52.528]             else {
[17:26:52.528]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.528]             }
[17:26:52.528]             {
[17:26:52.528]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.528]                   0L) {
[17:26:52.528]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.528]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.528]                   base::options(opts)
[17:26:52.528]                 }
[17:26:52.528]                 {
[17:26:52.528]                   {
[17:26:52.528]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.528]                     NULL
[17:26:52.528]                   }
[17:26:52.528]                   options(future.plan = NULL)
[17:26:52.528]                   if (is.na(NA_character_)) 
[17:26:52.528]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.528]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.528]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.528]                     .init = FALSE)
[17:26:52.528]                 }
[17:26:52.528]             }
[17:26:52.528]         }
[17:26:52.528]     })
[17:26:52.528]     if (TRUE) {
[17:26:52.528]         base::sink(type = "output", split = FALSE)
[17:26:52.528]         if (TRUE) {
[17:26:52.528]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.528]         }
[17:26:52.528]         else {
[17:26:52.528]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.528]         }
[17:26:52.528]         base::close(...future.stdout)
[17:26:52.528]         ...future.stdout <- NULL
[17:26:52.528]     }
[17:26:52.528]     ...future.result$conditions <- ...future.conditions
[17:26:52.528]     ...future.result$finished <- base::Sys.time()
[17:26:52.528]     ...future.result
[17:26:52.528] }
[17:26:52.534] Exporting 2 global objects (896 bytes) to cluster node #1 ...
[17:26:52.534] Exporting 'weight' (208 bytes) to cluster node #1 ...
[17:26:52.534] Exporting 'weight' (208 bytes) to cluster node #1 ... DONE
[17:26:52.534] Exporting 'group' (688 bytes) to cluster node #1 ...
[17:26:52.535] Exporting 'group' (688 bytes) to cluster node #1 ... DONE
[17:26:52.535] Exporting 2 global objects (896 bytes) to cluster node #1 ... DONE
[17:26:52.536] MultisessionFuture started
[17:26:52.536] - Launch lazy future ... done
[17:26:52.536] run() for 'MultisessionFuture' ... done
[17:26:52.536] result() for ClusterFuture ...
[17:26:52.537] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.537] - Validating connection of MultisessionFuture
[17:26:52.551] - received message: FutureResult
[17:26:52.552] - Received FutureResult
[17:26:52.552] - Erased future from FutureRegistry
[17:26:52.552] result() for ClusterFuture ...
[17:26:52.552] - result already collected: FutureResult
[17:26:52.552] result() for ClusterFuture ... done
[17:26:52.552] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.552] result() for ClusterFuture ... done
[17:26:52.553] result() for ClusterFuture ...
[17:26:52.553] - result already collected: FutureResult
[17:26:52.553] result() for ClusterFuture ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

[17:26:52.555] getGlobalsAndPackages() ...
[17:26:52.555] Searching for globals...
[17:26:52.557] - globals found: [6] '{', 'lm', 'weight', '-', 'group', '~'
[17:26:52.557] Searching for globals ... DONE
[17:26:52.557] Resolving globals: FALSE
[17:26:52.558] The total size of the 2 globals is 896 bytes (896 bytes)
[17:26:52.559] The total size of the 2 globals exported for future expression ('{; lm(weight ~ group - 1); }') is 896 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are two globals: 'group' (688 bytes of class 'numeric') and 'weight' (208 bytes of class 'numeric')
[17:26:52.559] - globals: [2] 'weight', 'group'
[17:26:52.559] - packages: [1] 'stats'
[17:26:52.559] getGlobalsAndPackages() ... DONE
[17:26:52.560] run() for 'Future' ...
[17:26:52.560] - state: 'created'
[17:26:52.560] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.573] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.574] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.574]   - Field: 'node'
[17:26:52.574]   - Field: 'label'
[17:26:52.574]   - Field: 'local'
[17:26:52.574]   - Field: 'owner'
[17:26:52.574]   - Field: 'envir'
[17:26:52.575]   - Field: 'workers'
[17:26:52.575]   - Field: 'packages'
[17:26:52.575]   - Field: 'gc'
[17:26:52.575]   - Field: 'conditions'
[17:26:52.575]   - Field: 'persistent'
[17:26:52.575]   - Field: 'expr'
[17:26:52.576]   - Field: 'uuid'
[17:26:52.576]   - Field: 'seed'
[17:26:52.576]   - Field: 'version'
[17:26:52.576]   - Field: 'result'
[17:26:52.576]   - Field: 'asynchronous'
[17:26:52.577]   - Field: 'calls'
[17:26:52.577]   - Field: 'globals'
[17:26:52.577]   - Field: 'stdout'
[17:26:52.577]   - Field: 'earlySignal'
[17:26:52.577]   - Field: 'lazy'
[17:26:52.577]   - Field: 'state'
[17:26:52.578] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.578] - Launch lazy future ...
[17:26:52.578] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.578] Packages needed by future strategies (n = 0): <none>
[17:26:52.579] {
[17:26:52.579]     {
[17:26:52.579]         {
[17:26:52.579]             ...future.startTime <- base::Sys.time()
[17:26:52.579]             {
[17:26:52.579]                 {
[17:26:52.579]                   {
[17:26:52.579]                     {
[17:26:52.579]                       {
[17:26:52.579]                         base::local({
[17:26:52.579]                           has_future <- base::requireNamespace("future", 
[17:26:52.579]                             quietly = TRUE)
[17:26:52.579]                           if (has_future) {
[17:26:52.579]                             ns <- base::getNamespace("future")
[17:26:52.579]                             version <- ns[[".package"]][["version"]]
[17:26:52.579]                             if (is.null(version)) 
[17:26:52.579]                               version <- utils::packageVersion("future")
[17:26:52.579]                           }
[17:26:52.579]                           else {
[17:26:52.579]                             version <- NULL
[17:26:52.579]                           }
[17:26:52.579]                           if (!has_future || version < "1.8.0") {
[17:26:52.579]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.579]                               "", base::R.version$version.string), 
[17:26:52.579]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.579]                                 base::R.version$platform, 8 * 
[17:26:52.579]                                   base::.Machine$sizeof.pointer), 
[17:26:52.579]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.579]                                 "release", "version")], collapse = " "), 
[17:26:52.579]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.579]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.579]                               info)
[17:26:52.579]                             info <- base::paste(info, collapse = "; ")
[17:26:52.579]                             if (!has_future) {
[17:26:52.579]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.579]                                 info)
[17:26:52.579]                             }
[17:26:52.579]                             else {
[17:26:52.579]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.579]                                 info, version)
[17:26:52.579]                             }
[17:26:52.579]                             base::stop(msg)
[17:26:52.579]                           }
[17:26:52.579]                         })
[17:26:52.579]                       }
[17:26:52.579]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.579]                       base::options(mc.cores = 1L)
[17:26:52.579]                     }
[17:26:52.579]                     base::local({
[17:26:52.579]                       for (pkg in "stats") {
[17:26:52.579]                         base::loadNamespace(pkg)
[17:26:52.579]                         base::library(pkg, character.only = TRUE)
[17:26:52.579]                       }
[17:26:52.579]                     })
[17:26:52.579]                   }
[17:26:52.579]                   ...future.strategy.old <- future::plan("list")
[17:26:52.579]                   options(future.plan = NULL)
[17:26:52.579]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.579]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.579]                 }
[17:26:52.579]                 ...future.workdir <- getwd()
[17:26:52.579]             }
[17:26:52.579]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.579]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.579]         }
[17:26:52.579]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.579]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.579]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.579]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.579]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.579]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.579]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.579]             base::names(...future.oldOptions))
[17:26:52.579]     }
[17:26:52.579]     if (FALSE) {
[17:26:52.579]     }
[17:26:52.579]     else {
[17:26:52.579]         if (TRUE) {
[17:26:52.579]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.579]                 open = "w")
[17:26:52.579]         }
[17:26:52.579]         else {
[17:26:52.579]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.579]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.579]         }
[17:26:52.579]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.579]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.579]             base::sink(type = "output", split = FALSE)
[17:26:52.579]             base::close(...future.stdout)
[17:26:52.579]         }, add = TRUE)
[17:26:52.579]     }
[17:26:52.579]     ...future.frame <- base::sys.nframe()
[17:26:52.579]     ...future.conditions <- base::list()
[17:26:52.579]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.579]     if (FALSE) {
[17:26:52.579]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.579]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.579]     }
[17:26:52.579]     ...future.result <- base::tryCatch({
[17:26:52.579]         base::withCallingHandlers({
[17:26:52.579]             ...future.value <- base::withVisible(base::local({
[17:26:52.579]                 ...future.makeSendCondition <- base::local({
[17:26:52.579]                   sendCondition <- NULL
[17:26:52.579]                   function(frame = 1L) {
[17:26:52.579]                     if (is.function(sendCondition)) 
[17:26:52.579]                       return(sendCondition)
[17:26:52.579]                     ns <- getNamespace("parallel")
[17:26:52.579]                     if (exists("sendData", mode = "function", 
[17:26:52.579]                       envir = ns)) {
[17:26:52.579]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.579]                         envir = ns)
[17:26:52.579]                       envir <- sys.frame(frame)
[17:26:52.579]                       master <- NULL
[17:26:52.579]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.579]                         !identical(envir, emptyenv())) {
[17:26:52.579]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.579]                           inherits = FALSE)) {
[17:26:52.579]                           master <- get("master", mode = "list", 
[17:26:52.579]                             envir = envir, inherits = FALSE)
[17:26:52.579]                           if (inherits(master, c("SOCKnode", 
[17:26:52.579]                             "SOCK0node"))) {
[17:26:52.579]                             sendCondition <<- function(cond) {
[17:26:52.579]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.579]                                 success = TRUE)
[17:26:52.579]                               parallel_sendData(master, data)
[17:26:52.579]                             }
[17:26:52.579]                             return(sendCondition)
[17:26:52.579]                           }
[17:26:52.579]                         }
[17:26:52.579]                         frame <- frame + 1L
[17:26:52.579]                         envir <- sys.frame(frame)
[17:26:52.579]                       }
[17:26:52.579]                     }
[17:26:52.579]                     sendCondition <<- function(cond) NULL
[17:26:52.579]                   }
[17:26:52.579]                 })
[17:26:52.579]                 withCallingHandlers({
[17:26:52.579]                   {
[17:26:52.579]                     lm(weight ~ group - 1)
[17:26:52.579]                   }
[17:26:52.579]                 }, immediateCondition = function(cond) {
[17:26:52.579]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.579]                   sendCondition(cond)
[17:26:52.579]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.579]                   {
[17:26:52.579]                     inherits <- base::inherits
[17:26:52.579]                     invokeRestart <- base::invokeRestart
[17:26:52.579]                     is.null <- base::is.null
[17:26:52.579]                     muffled <- FALSE
[17:26:52.579]                     if (inherits(cond, "message")) {
[17:26:52.579]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.579]                       if (muffled) 
[17:26:52.579]                         invokeRestart("muffleMessage")
[17:26:52.579]                     }
[17:26:52.579]                     else if (inherits(cond, "warning")) {
[17:26:52.579]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.579]                       if (muffled) 
[17:26:52.579]                         invokeRestart("muffleWarning")
[17:26:52.579]                     }
[17:26:52.579]                     else if (inherits(cond, "condition")) {
[17:26:52.579]                       if (!is.null(pattern)) {
[17:26:52.579]                         computeRestarts <- base::computeRestarts
[17:26:52.579]                         grepl <- base::grepl
[17:26:52.579]                         restarts <- computeRestarts(cond)
[17:26:52.579]                         for (restart in restarts) {
[17:26:52.579]                           name <- restart$name
[17:26:52.579]                           if (is.null(name)) 
[17:26:52.579]                             next
[17:26:52.579]                           if (!grepl(pattern, name)) 
[17:26:52.579]                             next
[17:26:52.579]                           invokeRestart(restart)
[17:26:52.579]                           muffled <- TRUE
[17:26:52.579]                           break
[17:26:52.579]                         }
[17:26:52.579]                       }
[17:26:52.579]                     }
[17:26:52.579]                     invisible(muffled)
[17:26:52.579]                   }
[17:26:52.579]                   muffleCondition(cond)
[17:26:52.579]                 })
[17:26:52.579]             }))
[17:26:52.579]             future::FutureResult(value = ...future.value$value, 
[17:26:52.579]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.579]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.579]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.579]                     ...future.globalenv.names))
[17:26:52.579]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.579]         }, condition = base::local({
[17:26:52.579]             c <- base::c
[17:26:52.579]             inherits <- base::inherits
[17:26:52.579]             invokeRestart <- base::invokeRestart
[17:26:52.579]             length <- base::length
[17:26:52.579]             list <- base::list
[17:26:52.579]             seq.int <- base::seq.int
[17:26:52.579]             signalCondition <- base::signalCondition
[17:26:52.579]             sys.calls <- base::sys.calls
[17:26:52.579]             `[[` <- base::`[[`
[17:26:52.579]             `+` <- base::`+`
[17:26:52.579]             `<<-` <- base::`<<-`
[17:26:52.579]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.579]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.579]                   3L)]
[17:26:52.579]             }
[17:26:52.579]             function(cond) {
[17:26:52.579]                 is_error <- inherits(cond, "error")
[17:26:52.579]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.579]                   NULL)
[17:26:52.579]                 if (is_error) {
[17:26:52.579]                   sessionInformation <- function() {
[17:26:52.579]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.579]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.579]                       search = base::search(), system = base::Sys.info())
[17:26:52.579]                   }
[17:26:52.579]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.579]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.579]                     cond$call), session = sessionInformation(), 
[17:26:52.579]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.579]                   signalCondition(cond)
[17:26:52.579]                 }
[17:26:52.579]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.579]                 "immediateCondition"))) {
[17:26:52.579]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.579]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.579]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.579]                   if (TRUE && !signal) {
[17:26:52.579]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.579]                     {
[17:26:52.579]                       inherits <- base::inherits
[17:26:52.579]                       invokeRestart <- base::invokeRestart
[17:26:52.579]                       is.null <- base::is.null
[17:26:52.579]                       muffled <- FALSE
[17:26:52.579]                       if (inherits(cond, "message")) {
[17:26:52.579]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.579]                         if (muffled) 
[17:26:52.579]                           invokeRestart("muffleMessage")
[17:26:52.579]                       }
[17:26:52.579]                       else if (inherits(cond, "warning")) {
[17:26:52.579]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.579]                         if (muffled) 
[17:26:52.579]                           invokeRestart("muffleWarning")
[17:26:52.579]                       }
[17:26:52.579]                       else if (inherits(cond, "condition")) {
[17:26:52.579]                         if (!is.null(pattern)) {
[17:26:52.579]                           computeRestarts <- base::computeRestarts
[17:26:52.579]                           grepl <- base::grepl
[17:26:52.579]                           restarts <- computeRestarts(cond)
[17:26:52.579]                           for (restart in restarts) {
[17:26:52.579]                             name <- restart$name
[17:26:52.579]                             if (is.null(name)) 
[17:26:52.579]                               next
[17:26:52.579]                             if (!grepl(pattern, name)) 
[17:26:52.579]                               next
[17:26:52.579]                             invokeRestart(restart)
[17:26:52.579]                             muffled <- TRUE
[17:26:52.579]                             break
[17:26:52.579]                           }
[17:26:52.579]                         }
[17:26:52.579]                       }
[17:26:52.579]                       invisible(muffled)
[17:26:52.579]                     }
[17:26:52.579]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.579]                   }
[17:26:52.579]                 }
[17:26:52.579]                 else {
[17:26:52.579]                   if (TRUE) {
[17:26:52.579]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.579]                     {
[17:26:52.579]                       inherits <- base::inherits
[17:26:52.579]                       invokeRestart <- base::invokeRestart
[17:26:52.579]                       is.null <- base::is.null
[17:26:52.579]                       muffled <- FALSE
[17:26:52.579]                       if (inherits(cond, "message")) {
[17:26:52.579]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.579]                         if (muffled) 
[17:26:52.579]                           invokeRestart("muffleMessage")
[17:26:52.579]                       }
[17:26:52.579]                       else if (inherits(cond, "warning")) {
[17:26:52.579]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.579]                         if (muffled) 
[17:26:52.579]                           invokeRestart("muffleWarning")
[17:26:52.579]                       }
[17:26:52.579]                       else if (inherits(cond, "condition")) {
[17:26:52.579]                         if (!is.null(pattern)) {
[17:26:52.579]                           computeRestarts <- base::computeRestarts
[17:26:52.579]                           grepl <- base::grepl
[17:26:52.579]                           restarts <- computeRestarts(cond)
[17:26:52.579]                           for (restart in restarts) {
[17:26:52.579]                             name <- restart$name
[17:26:52.579]                             if (is.null(name)) 
[17:26:52.579]                               next
[17:26:52.579]                             if (!grepl(pattern, name)) 
[17:26:52.579]                               next
[17:26:52.579]                             invokeRestart(restart)
[17:26:52.579]                             muffled <- TRUE
[17:26:52.579]                             break
[17:26:52.579]                           }
[17:26:52.579]                         }
[17:26:52.579]                       }
[17:26:52.579]                       invisible(muffled)
[17:26:52.579]                     }
[17:26:52.579]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.579]                   }
[17:26:52.579]                 }
[17:26:52.579]             }
[17:26:52.579]         }))
[17:26:52.579]     }, error = function(ex) {
[17:26:52.579]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.579]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.579]                 ...future.rng), started = ...future.startTime, 
[17:26:52.579]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.579]             version = "1.8"), class = "FutureResult")
[17:26:52.579]     }, finally = {
[17:26:52.579]         if (!identical(...future.workdir, getwd())) 
[17:26:52.579]             setwd(...future.workdir)
[17:26:52.579]         {
[17:26:52.579]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.579]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.579]             }
[17:26:52.579]             base::options(...future.oldOptions)
[17:26:52.579]             if (.Platform$OS.type == "windows") {
[17:26:52.579]                 old_names <- names(...future.oldEnvVars)
[17:26:52.579]                 envs <- base::Sys.getenv()
[17:26:52.579]                 names <- names(envs)
[17:26:52.579]                 common <- intersect(names, old_names)
[17:26:52.579]                 added <- setdiff(names, old_names)
[17:26:52.579]                 removed <- setdiff(old_names, names)
[17:26:52.579]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.579]                   envs[common]]
[17:26:52.579]                 NAMES <- toupper(changed)
[17:26:52.579]                 args <- list()
[17:26:52.579]                 for (kk in seq_along(NAMES)) {
[17:26:52.579]                   name <- changed[[kk]]
[17:26:52.579]                   NAME <- NAMES[[kk]]
[17:26:52.579]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.579]                     next
[17:26:52.579]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.579]                 }
[17:26:52.579]                 NAMES <- toupper(added)
[17:26:52.579]                 for (kk in seq_along(NAMES)) {
[17:26:52.579]                   name <- added[[kk]]
[17:26:52.579]                   NAME <- NAMES[[kk]]
[17:26:52.579]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.579]                     next
[17:26:52.579]                   args[[name]] <- ""
[17:26:52.579]                 }
[17:26:52.579]                 NAMES <- toupper(removed)
[17:26:52.579]                 for (kk in seq_along(NAMES)) {
[17:26:52.579]                   name <- removed[[kk]]
[17:26:52.579]                   NAME <- NAMES[[kk]]
[17:26:52.579]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.579]                     next
[17:26:52.579]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.579]                 }
[17:26:52.579]                 if (length(args) > 0) 
[17:26:52.579]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.579]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.579]             }
[17:26:52.579]             else {
[17:26:52.579]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.579]             }
[17:26:52.579]             {
[17:26:52.579]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.579]                   0L) {
[17:26:52.579]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.579]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.579]                   base::options(opts)
[17:26:52.579]                 }
[17:26:52.579]                 {
[17:26:52.579]                   {
[17:26:52.579]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.579]                     NULL
[17:26:52.579]                   }
[17:26:52.579]                   options(future.plan = NULL)
[17:26:52.579]                   if (is.na(NA_character_)) 
[17:26:52.579]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.579]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.579]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.579]                     .init = FALSE)
[17:26:52.579]                 }
[17:26:52.579]             }
[17:26:52.579]         }
[17:26:52.579]     })
[17:26:52.579]     if (TRUE) {
[17:26:52.579]         base::sink(type = "output", split = FALSE)
[17:26:52.579]         if (TRUE) {
[17:26:52.579]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.579]         }
[17:26:52.579]         else {
[17:26:52.579]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.579]         }
[17:26:52.579]         base::close(...future.stdout)
[17:26:52.579]         ...future.stdout <- NULL
[17:26:52.579]     }
[17:26:52.579]     ...future.result$conditions <- ...future.conditions
[17:26:52.579]     ...future.result$finished <- base::Sys.time()
[17:26:52.579]     ...future.result
[17:26:52.579] }
[17:26:52.584] Exporting 2 global objects (896 bytes) to cluster node #1 ...
[17:26:52.584] Exporting 'weight' (208 bytes) to cluster node #1 ...
[17:26:52.585] Exporting 'weight' (208 bytes) to cluster node #1 ... DONE
[17:26:52.585] Exporting 'group' (688 bytes) to cluster node #1 ...
[17:26:52.585] Exporting 'group' (688 bytes) to cluster node #1 ... DONE
[17:26:52.586] Exporting 2 global objects (896 bytes) to cluster node #1 ... DONE
[17:26:52.586] MultisessionFuture started
[17:26:52.586] - Launch lazy future ... done
[17:26:52.587] run() for 'MultisessionFuture' ... done
[17:26:52.587] result() for ClusterFuture ...
[17:26:52.587] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.587] - Validating connection of MultisessionFuture
[17:26:52.602] - received message: FutureResult
[17:26:52.602] - Received FutureResult
[17:26:52.602] - Erased future from FutureRegistry
[17:26:52.602] result() for ClusterFuture ...
[17:26:52.602] - result already collected: FutureResult
[17:26:52.602] result() for ClusterFuture ... done
[17:26:52.603] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.603] result() for ClusterFuture ... done
[17:26:52.603] result() for ClusterFuture ...
[17:26:52.603] - result already collected: FutureResult
[17:26:52.603] result() for ClusterFuture ... done

Call:
lm(formula = weight ~ group - 1)

Coefficients:
groupCtl  groupTrt  
   5.032     4.661  

- Globals - one-side formulas, e.g. xtabs(~ x) ...
[17:26:52.605] getGlobalsAndPackages() ...
[17:26:52.605] Searching for globals...
[17:26:52.607] - globals found: [4] '{', 'xtabs', 'x', '~'
[17:26:52.607] Searching for globals ... DONE
[17:26:52.607] Resolving globals: FALSE
[17:26:52.608] The total size of the 1 globals is 96 bytes (96 bytes)
[17:26:52.608] The total size of the 1 globals exported for future expression ('{; xtabs(~x); }') is 96 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'x' (96 bytes of class 'numeric')
[17:26:52.608] - globals: [1] 'x'
[17:26:52.609] - packages: [1] 'stats'
[17:26:52.609] getGlobalsAndPackages() ... DONE
[17:26:52.609] run() for 'Future' ...
[17:26:52.609] - state: 'created'
[17:26:52.609] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.623] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.623] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.623]   - Field: 'node'
[17:26:52.623]   - Field: 'label'
[17:26:52.624]   - Field: 'local'
[17:26:52.624]   - Field: 'owner'
[17:26:52.624]   - Field: 'envir'
[17:26:52.624]   - Field: 'workers'
[17:26:52.624]   - Field: 'packages'
[17:26:52.624]   - Field: 'gc'
[17:26:52.625]   - Field: 'conditions'
[17:26:52.625]   - Field: 'persistent'
[17:26:52.625]   - Field: 'expr'
[17:26:52.625]   - Field: 'uuid'
[17:26:52.625]   - Field: 'seed'
[17:26:52.625]   - Field: 'version'
[17:26:52.626]   - Field: 'result'
[17:26:52.626]   - Field: 'asynchronous'
[17:26:52.626]   - Field: 'calls'
[17:26:52.626]   - Field: 'globals'
[17:26:52.626]   - Field: 'stdout'
[17:26:52.627]   - Field: 'earlySignal'
[17:26:52.627]   - Field: 'lazy'
[17:26:52.627]   - Field: 'state'
[17:26:52.627] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.627] - Launch lazy future ...
[17:26:52.628] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.628] Packages needed by future strategies (n = 0): <none>
[17:26:52.628] {
[17:26:52.628]     {
[17:26:52.628]         {
[17:26:52.628]             ...future.startTime <- base::Sys.time()
[17:26:52.628]             {
[17:26:52.628]                 {
[17:26:52.628]                   {
[17:26:52.628]                     {
[17:26:52.628]                       {
[17:26:52.628]                         base::local({
[17:26:52.628]                           has_future <- base::requireNamespace("future", 
[17:26:52.628]                             quietly = TRUE)
[17:26:52.628]                           if (has_future) {
[17:26:52.628]                             ns <- base::getNamespace("future")
[17:26:52.628]                             version <- ns[[".package"]][["version"]]
[17:26:52.628]                             if (is.null(version)) 
[17:26:52.628]                               version <- utils::packageVersion("future")
[17:26:52.628]                           }
[17:26:52.628]                           else {
[17:26:52.628]                             version <- NULL
[17:26:52.628]                           }
[17:26:52.628]                           if (!has_future || version < "1.8.0") {
[17:26:52.628]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.628]                               "", base::R.version$version.string), 
[17:26:52.628]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.628]                                 base::R.version$platform, 8 * 
[17:26:52.628]                                   base::.Machine$sizeof.pointer), 
[17:26:52.628]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.628]                                 "release", "version")], collapse = " "), 
[17:26:52.628]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.628]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.628]                               info)
[17:26:52.628]                             info <- base::paste(info, collapse = "; ")
[17:26:52.628]                             if (!has_future) {
[17:26:52.628]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.628]                                 info)
[17:26:52.628]                             }
[17:26:52.628]                             else {
[17:26:52.628]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.628]                                 info, version)
[17:26:52.628]                             }
[17:26:52.628]                             base::stop(msg)
[17:26:52.628]                           }
[17:26:52.628]                         })
[17:26:52.628]                       }
[17:26:52.628]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.628]                       base::options(mc.cores = 1L)
[17:26:52.628]                     }
[17:26:52.628]                     base::local({
[17:26:52.628]                       for (pkg in "stats") {
[17:26:52.628]                         base::loadNamespace(pkg)
[17:26:52.628]                         base::library(pkg, character.only = TRUE)
[17:26:52.628]                       }
[17:26:52.628]                     })
[17:26:52.628]                   }
[17:26:52.628]                   ...future.strategy.old <- future::plan("list")
[17:26:52.628]                   options(future.plan = NULL)
[17:26:52.628]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.628]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.628]                 }
[17:26:52.628]                 ...future.workdir <- getwd()
[17:26:52.628]             }
[17:26:52.628]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.628]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.628]         }
[17:26:52.628]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.628]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.628]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.628]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.628]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.628]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.628]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.628]             base::names(...future.oldOptions))
[17:26:52.628]     }
[17:26:52.628]     if (FALSE) {
[17:26:52.628]     }
[17:26:52.628]     else {
[17:26:52.628]         if (TRUE) {
[17:26:52.628]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.628]                 open = "w")
[17:26:52.628]         }
[17:26:52.628]         else {
[17:26:52.628]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.628]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.628]         }
[17:26:52.628]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.628]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.628]             base::sink(type = "output", split = FALSE)
[17:26:52.628]             base::close(...future.stdout)
[17:26:52.628]         }, add = TRUE)
[17:26:52.628]     }
[17:26:52.628]     ...future.frame <- base::sys.nframe()
[17:26:52.628]     ...future.conditions <- base::list()
[17:26:52.628]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.628]     if (FALSE) {
[17:26:52.628]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.628]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.628]     }
[17:26:52.628]     ...future.result <- base::tryCatch({
[17:26:52.628]         base::withCallingHandlers({
[17:26:52.628]             ...future.value <- base::withVisible(base::local({
[17:26:52.628]                 ...future.makeSendCondition <- base::local({
[17:26:52.628]                   sendCondition <- NULL
[17:26:52.628]                   function(frame = 1L) {
[17:26:52.628]                     if (is.function(sendCondition)) 
[17:26:52.628]                       return(sendCondition)
[17:26:52.628]                     ns <- getNamespace("parallel")
[17:26:52.628]                     if (exists("sendData", mode = "function", 
[17:26:52.628]                       envir = ns)) {
[17:26:52.628]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.628]                         envir = ns)
[17:26:52.628]                       envir <- sys.frame(frame)
[17:26:52.628]                       master <- NULL
[17:26:52.628]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.628]                         !identical(envir, emptyenv())) {
[17:26:52.628]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.628]                           inherits = FALSE)) {
[17:26:52.628]                           master <- get("master", mode = "list", 
[17:26:52.628]                             envir = envir, inherits = FALSE)
[17:26:52.628]                           if (inherits(master, c("SOCKnode", 
[17:26:52.628]                             "SOCK0node"))) {
[17:26:52.628]                             sendCondition <<- function(cond) {
[17:26:52.628]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.628]                                 success = TRUE)
[17:26:52.628]                               parallel_sendData(master, data)
[17:26:52.628]                             }
[17:26:52.628]                             return(sendCondition)
[17:26:52.628]                           }
[17:26:52.628]                         }
[17:26:52.628]                         frame <- frame + 1L
[17:26:52.628]                         envir <- sys.frame(frame)
[17:26:52.628]                       }
[17:26:52.628]                     }
[17:26:52.628]                     sendCondition <<- function(cond) NULL
[17:26:52.628]                   }
[17:26:52.628]                 })
[17:26:52.628]                 withCallingHandlers({
[17:26:52.628]                   {
[17:26:52.628]                     xtabs(~x)
[17:26:52.628]                   }
[17:26:52.628]                 }, immediateCondition = function(cond) {
[17:26:52.628]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.628]                   sendCondition(cond)
[17:26:52.628]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.628]                   {
[17:26:52.628]                     inherits <- base::inherits
[17:26:52.628]                     invokeRestart <- base::invokeRestart
[17:26:52.628]                     is.null <- base::is.null
[17:26:52.628]                     muffled <- FALSE
[17:26:52.628]                     if (inherits(cond, "message")) {
[17:26:52.628]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.628]                       if (muffled) 
[17:26:52.628]                         invokeRestart("muffleMessage")
[17:26:52.628]                     }
[17:26:52.628]                     else if (inherits(cond, "warning")) {
[17:26:52.628]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.628]                       if (muffled) 
[17:26:52.628]                         invokeRestart("muffleWarning")
[17:26:52.628]                     }
[17:26:52.628]                     else if (inherits(cond, "condition")) {
[17:26:52.628]                       if (!is.null(pattern)) {
[17:26:52.628]                         computeRestarts <- base::computeRestarts
[17:26:52.628]                         grepl <- base::grepl
[17:26:52.628]                         restarts <- computeRestarts(cond)
[17:26:52.628]                         for (restart in restarts) {
[17:26:52.628]                           name <- restart$name
[17:26:52.628]                           if (is.null(name)) 
[17:26:52.628]                             next
[17:26:52.628]                           if (!grepl(pattern, name)) 
[17:26:52.628]                             next
[17:26:52.628]                           invokeRestart(restart)
[17:26:52.628]                           muffled <- TRUE
[17:26:52.628]                           break
[17:26:52.628]                         }
[17:26:52.628]                       }
[17:26:52.628]                     }
[17:26:52.628]                     invisible(muffled)
[17:26:52.628]                   }
[17:26:52.628]                   muffleCondition(cond)
[17:26:52.628]                 })
[17:26:52.628]             }))
[17:26:52.628]             future::FutureResult(value = ...future.value$value, 
[17:26:52.628]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.628]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.628]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.628]                     ...future.globalenv.names))
[17:26:52.628]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.628]         }, condition = base::local({
[17:26:52.628]             c <- base::c
[17:26:52.628]             inherits <- base::inherits
[17:26:52.628]             invokeRestart <- base::invokeRestart
[17:26:52.628]             length <- base::length
[17:26:52.628]             list <- base::list
[17:26:52.628]             seq.int <- base::seq.int
[17:26:52.628]             signalCondition <- base::signalCondition
[17:26:52.628]             sys.calls <- base::sys.calls
[17:26:52.628]             `[[` <- base::`[[`
[17:26:52.628]             `+` <- base::`+`
[17:26:52.628]             `<<-` <- base::`<<-`
[17:26:52.628]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.628]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.628]                   3L)]
[17:26:52.628]             }
[17:26:52.628]             function(cond) {
[17:26:52.628]                 is_error <- inherits(cond, "error")
[17:26:52.628]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.628]                   NULL)
[17:26:52.628]                 if (is_error) {
[17:26:52.628]                   sessionInformation <- function() {
[17:26:52.628]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.628]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.628]                       search = base::search(), system = base::Sys.info())
[17:26:52.628]                   }
[17:26:52.628]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.628]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.628]                     cond$call), session = sessionInformation(), 
[17:26:52.628]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.628]                   signalCondition(cond)
[17:26:52.628]                 }
[17:26:52.628]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.628]                 "immediateCondition"))) {
[17:26:52.628]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.628]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.628]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.628]                   if (TRUE && !signal) {
[17:26:52.628]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.628]                     {
[17:26:52.628]                       inherits <- base::inherits
[17:26:52.628]                       invokeRestart <- base::invokeRestart
[17:26:52.628]                       is.null <- base::is.null
[17:26:52.628]                       muffled <- FALSE
[17:26:52.628]                       if (inherits(cond, "message")) {
[17:26:52.628]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.628]                         if (muffled) 
[17:26:52.628]                           invokeRestart("muffleMessage")
[17:26:52.628]                       }
[17:26:52.628]                       else if (inherits(cond, "warning")) {
[17:26:52.628]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.628]                         if (muffled) 
[17:26:52.628]                           invokeRestart("muffleWarning")
[17:26:52.628]                       }
[17:26:52.628]                       else if (inherits(cond, "condition")) {
[17:26:52.628]                         if (!is.null(pattern)) {
[17:26:52.628]                           computeRestarts <- base::computeRestarts
[17:26:52.628]                           grepl <- base::grepl
[17:26:52.628]                           restarts <- computeRestarts(cond)
[17:26:52.628]                           for (restart in restarts) {
[17:26:52.628]                             name <- restart$name
[17:26:52.628]                             if (is.null(name)) 
[17:26:52.628]                               next
[17:26:52.628]                             if (!grepl(pattern, name)) 
[17:26:52.628]                               next
[17:26:52.628]                             invokeRestart(restart)
[17:26:52.628]                             muffled <- TRUE
[17:26:52.628]                             break
[17:26:52.628]                           }
[17:26:52.628]                         }
[17:26:52.628]                       }
[17:26:52.628]                       invisible(muffled)
[17:26:52.628]                     }
[17:26:52.628]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.628]                   }
[17:26:52.628]                 }
[17:26:52.628]                 else {
[17:26:52.628]                   if (TRUE) {
[17:26:52.628]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.628]                     {
[17:26:52.628]                       inherits <- base::inherits
[17:26:52.628]                       invokeRestart <- base::invokeRestart
[17:26:52.628]                       is.null <- base::is.null
[17:26:52.628]                       muffled <- FALSE
[17:26:52.628]                       if (inherits(cond, "message")) {
[17:26:52.628]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.628]                         if (muffled) 
[17:26:52.628]                           invokeRestart("muffleMessage")
[17:26:52.628]                       }
[17:26:52.628]                       else if (inherits(cond, "warning")) {
[17:26:52.628]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.628]                         if (muffled) 
[17:26:52.628]                           invokeRestart("muffleWarning")
[17:26:52.628]                       }
[17:26:52.628]                       else if (inherits(cond, "condition")) {
[17:26:52.628]                         if (!is.null(pattern)) {
[17:26:52.628]                           computeRestarts <- base::computeRestarts
[17:26:52.628]                           grepl <- base::grepl
[17:26:52.628]                           restarts <- computeRestarts(cond)
[17:26:52.628]                           for (restart in restarts) {
[17:26:52.628]                             name <- restart$name
[17:26:52.628]                             if (is.null(name)) 
[17:26:52.628]                               next
[17:26:52.628]                             if (!grepl(pattern, name)) 
[17:26:52.628]                               next
[17:26:52.628]                             invokeRestart(restart)
[17:26:52.628]                             muffled <- TRUE
[17:26:52.628]                             break
[17:26:52.628]                           }
[17:26:52.628]                         }
[17:26:52.628]                       }
[17:26:52.628]                       invisible(muffled)
[17:26:52.628]                     }
[17:26:52.628]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.628]                   }
[17:26:52.628]                 }
[17:26:52.628]             }
[17:26:52.628]         }))
[17:26:52.628]     }, error = function(ex) {
[17:26:52.628]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.628]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.628]                 ...future.rng), started = ...future.startTime, 
[17:26:52.628]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.628]             version = "1.8"), class = "FutureResult")
[17:26:52.628]     }, finally = {
[17:26:52.628]         if (!identical(...future.workdir, getwd())) 
[17:26:52.628]             setwd(...future.workdir)
[17:26:52.628]         {
[17:26:52.628]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.628]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.628]             }
[17:26:52.628]             base::options(...future.oldOptions)
[17:26:52.628]             if (.Platform$OS.type == "windows") {
[17:26:52.628]                 old_names <- names(...future.oldEnvVars)
[17:26:52.628]                 envs <- base::Sys.getenv()
[17:26:52.628]                 names <- names(envs)
[17:26:52.628]                 common <- intersect(names, old_names)
[17:26:52.628]                 added <- setdiff(names, old_names)
[17:26:52.628]                 removed <- setdiff(old_names, names)
[17:26:52.628]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.628]                   envs[common]]
[17:26:52.628]                 NAMES <- toupper(changed)
[17:26:52.628]                 args <- list()
[17:26:52.628]                 for (kk in seq_along(NAMES)) {
[17:26:52.628]                   name <- changed[[kk]]
[17:26:52.628]                   NAME <- NAMES[[kk]]
[17:26:52.628]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.628]                     next
[17:26:52.628]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.628]                 }
[17:26:52.628]                 NAMES <- toupper(added)
[17:26:52.628]                 for (kk in seq_along(NAMES)) {
[17:26:52.628]                   name <- added[[kk]]
[17:26:52.628]                   NAME <- NAMES[[kk]]
[17:26:52.628]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.628]                     next
[17:26:52.628]                   args[[name]] <- ""
[17:26:52.628]                 }
[17:26:52.628]                 NAMES <- toupper(removed)
[17:26:52.628]                 for (kk in seq_along(NAMES)) {
[17:26:52.628]                   name <- removed[[kk]]
[17:26:52.628]                   NAME <- NAMES[[kk]]
[17:26:52.628]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.628]                     next
[17:26:52.628]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.628]                 }
[17:26:52.628]                 if (length(args) > 0) 
[17:26:52.628]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.628]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.628]             }
[17:26:52.628]             else {
[17:26:52.628]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.628]             }
[17:26:52.628]             {
[17:26:52.628]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.628]                   0L) {
[17:26:52.628]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.628]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.628]                   base::options(opts)
[17:26:52.628]                 }
[17:26:52.628]                 {
[17:26:52.628]                   {
[17:26:52.628]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.628]                     NULL
[17:26:52.628]                   }
[17:26:52.628]                   options(future.plan = NULL)
[17:26:52.628]                   if (is.na(NA_character_)) 
[17:26:52.628]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.628]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.628]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.628]                     .init = FALSE)
[17:26:52.628]                 }
[17:26:52.628]             }
[17:26:52.628]         }
[17:26:52.628]     })
[17:26:52.628]     if (TRUE) {
[17:26:52.628]         base::sink(type = "output", split = FALSE)
[17:26:52.628]         if (TRUE) {
[17:26:52.628]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.628]         }
[17:26:52.628]         else {
[17:26:52.628]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.628]         }
[17:26:52.628]         base::close(...future.stdout)
[17:26:52.628]         ...future.stdout <- NULL
[17:26:52.628]     }
[17:26:52.628]     ...future.result$conditions <- ...future.conditions
[17:26:52.628]     ...future.result$finished <- base::Sys.time()
[17:26:52.628]     ...future.result
[17:26:52.628] }
[17:26:52.634] Exporting 1 global objects (96 bytes) to cluster node #1 ...
[17:26:52.634] Exporting 'x' (96 bytes) to cluster node #1 ...
[17:26:52.634] Exporting 'x' (96 bytes) to cluster node #1 ... DONE
[17:26:52.634] Exporting 1 global objects (96 bytes) to cluster node #1 ... DONE
[17:26:52.635] MultisessionFuture started
[17:26:52.635] - Launch lazy future ... done
[17:26:52.635] run() for 'MultisessionFuture' ... done
[17:26:52.636] result() for ClusterFuture ...
[17:26:52.636] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.636] - Validating connection of MultisessionFuture
[17:26:52.650] - received message: FutureResult
[17:26:52.650] - Received FutureResult
[17:26:52.650] - Erased future from FutureRegistry
[17:26:52.650] result() for ClusterFuture ...
[17:26:52.650] - result already collected: FutureResult
[17:26:52.650] result() for ClusterFuture ... done
[17:26:52.651] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.651] result() for ClusterFuture ... done
[17:26:52.651] result() for ClusterFuture ...
[17:26:52.651] - result already collected: FutureResult
[17:26:52.651] result() for ClusterFuture ... done
x
1 2 
2 3 
[17:26:52.652] getGlobalsAndPackages() ...
[17:26:52.652] Searching for globals...
[17:26:52.654] - globals found: [4] '{', 'xtabs', 'x', '~'
[17:26:52.654] Searching for globals ... DONE
[17:26:52.654] Resolving globals: FALSE
[17:26:52.654] The total size of the 1 globals is 96 bytes (96 bytes)
[17:26:52.655] The total size of the 1 globals exported for future expression ('{; xtabs(~x); }') is 96 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'x' (96 bytes of class 'numeric')
[17:26:52.655] - globals: [1] 'x'
[17:26:52.655] - packages: [1] 'stats'
[17:26:52.656] getGlobalsAndPackages() ... DONE
[17:26:52.656] run() for 'Future' ...
[17:26:52.656] - state: 'created'
[17:26:52.656] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.670] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.670] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.670]   - Field: 'node'
[17:26:52.670]   - Field: 'label'
[17:26:52.670]   - Field: 'local'
[17:26:52.671]   - Field: 'owner'
[17:26:52.671]   - Field: 'envir'
[17:26:52.671]   - Field: 'workers'
[17:26:52.671]   - Field: 'packages'
[17:26:52.671]   - Field: 'gc'
[17:26:52.672]   - Field: 'conditions'
[17:26:52.672]   - Field: 'persistent'
[17:26:52.672]   - Field: 'expr'
[17:26:52.672]   - Field: 'uuid'
[17:26:52.672]   - Field: 'seed'
[17:26:52.672]   - Field: 'version'
[17:26:52.673]   - Field: 'result'
[17:26:52.673]   - Field: 'asynchronous'
[17:26:52.673]   - Field: 'calls'
[17:26:52.673]   - Field: 'globals'
[17:26:52.673]   - Field: 'stdout'
[17:26:52.673]   - Field: 'earlySignal'
[17:26:52.674]   - Field: 'lazy'
[17:26:52.674]   - Field: 'state'
[17:26:52.674] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.674] - Launch lazy future ...
[17:26:52.675] Packages needed by the future expression (n = 1): 'stats'
[17:26:52.675] Packages needed by future strategies (n = 0): <none>
[17:26:52.675] {
[17:26:52.675]     {
[17:26:52.675]         {
[17:26:52.675]             ...future.startTime <- base::Sys.time()
[17:26:52.675]             {
[17:26:52.675]                 {
[17:26:52.675]                   {
[17:26:52.675]                     {
[17:26:52.675]                       {
[17:26:52.675]                         base::local({
[17:26:52.675]                           has_future <- base::requireNamespace("future", 
[17:26:52.675]                             quietly = TRUE)
[17:26:52.675]                           if (has_future) {
[17:26:52.675]                             ns <- base::getNamespace("future")
[17:26:52.675]                             version <- ns[[".package"]][["version"]]
[17:26:52.675]                             if (is.null(version)) 
[17:26:52.675]                               version <- utils::packageVersion("future")
[17:26:52.675]                           }
[17:26:52.675]                           else {
[17:26:52.675]                             version <- NULL
[17:26:52.675]                           }
[17:26:52.675]                           if (!has_future || version < "1.8.0") {
[17:26:52.675]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.675]                               "", base::R.version$version.string), 
[17:26:52.675]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.675]                                 base::R.version$platform, 8 * 
[17:26:52.675]                                   base::.Machine$sizeof.pointer), 
[17:26:52.675]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.675]                                 "release", "version")], collapse = " "), 
[17:26:52.675]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.675]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.675]                               info)
[17:26:52.675]                             info <- base::paste(info, collapse = "; ")
[17:26:52.675]                             if (!has_future) {
[17:26:52.675]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.675]                                 info)
[17:26:52.675]                             }
[17:26:52.675]                             else {
[17:26:52.675]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.675]                                 info, version)
[17:26:52.675]                             }
[17:26:52.675]                             base::stop(msg)
[17:26:52.675]                           }
[17:26:52.675]                         })
[17:26:52.675]                       }
[17:26:52.675]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.675]                       base::options(mc.cores = 1L)
[17:26:52.675]                     }
[17:26:52.675]                     base::local({
[17:26:52.675]                       for (pkg in "stats") {
[17:26:52.675]                         base::loadNamespace(pkg)
[17:26:52.675]                         base::library(pkg, character.only = TRUE)
[17:26:52.675]                       }
[17:26:52.675]                     })
[17:26:52.675]                   }
[17:26:52.675]                   ...future.strategy.old <- future::plan("list")
[17:26:52.675]                   options(future.plan = NULL)
[17:26:52.675]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.675]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.675]                 }
[17:26:52.675]                 ...future.workdir <- getwd()
[17:26:52.675]             }
[17:26:52.675]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.675]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.675]         }
[17:26:52.675]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.675]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.675]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.675]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.675]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.675]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.675]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.675]             base::names(...future.oldOptions))
[17:26:52.675]     }
[17:26:52.675]     if (FALSE) {
[17:26:52.675]     }
[17:26:52.675]     else {
[17:26:52.675]         if (TRUE) {
[17:26:52.675]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.675]                 open = "w")
[17:26:52.675]         }
[17:26:52.675]         else {
[17:26:52.675]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.675]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.675]         }
[17:26:52.675]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.675]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.675]             base::sink(type = "output", split = FALSE)
[17:26:52.675]             base::close(...future.stdout)
[17:26:52.675]         }, add = TRUE)
[17:26:52.675]     }
[17:26:52.675]     ...future.frame <- base::sys.nframe()
[17:26:52.675]     ...future.conditions <- base::list()
[17:26:52.675]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.675]     if (FALSE) {
[17:26:52.675]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.675]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.675]     }
[17:26:52.675]     ...future.result <- base::tryCatch({
[17:26:52.675]         base::withCallingHandlers({
[17:26:52.675]             ...future.value <- base::withVisible(base::local({
[17:26:52.675]                 ...future.makeSendCondition <- base::local({
[17:26:52.675]                   sendCondition <- NULL
[17:26:52.675]                   function(frame = 1L) {
[17:26:52.675]                     if (is.function(sendCondition)) 
[17:26:52.675]                       return(sendCondition)
[17:26:52.675]                     ns <- getNamespace("parallel")
[17:26:52.675]                     if (exists("sendData", mode = "function", 
[17:26:52.675]                       envir = ns)) {
[17:26:52.675]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.675]                         envir = ns)
[17:26:52.675]                       envir <- sys.frame(frame)
[17:26:52.675]                       master <- NULL
[17:26:52.675]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.675]                         !identical(envir, emptyenv())) {
[17:26:52.675]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.675]                           inherits = FALSE)) {
[17:26:52.675]                           master <- get("master", mode = "list", 
[17:26:52.675]                             envir = envir, inherits = FALSE)
[17:26:52.675]                           if (inherits(master, c("SOCKnode", 
[17:26:52.675]                             "SOCK0node"))) {
[17:26:52.675]                             sendCondition <<- function(cond) {
[17:26:52.675]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.675]                                 success = TRUE)
[17:26:52.675]                               parallel_sendData(master, data)
[17:26:52.675]                             }
[17:26:52.675]                             return(sendCondition)
[17:26:52.675]                           }
[17:26:52.675]                         }
[17:26:52.675]                         frame <- frame + 1L
[17:26:52.675]                         envir <- sys.frame(frame)
[17:26:52.675]                       }
[17:26:52.675]                     }
[17:26:52.675]                     sendCondition <<- function(cond) NULL
[17:26:52.675]                   }
[17:26:52.675]                 })
[17:26:52.675]                 withCallingHandlers({
[17:26:52.675]                   {
[17:26:52.675]                     xtabs(~x)
[17:26:52.675]                   }
[17:26:52.675]                 }, immediateCondition = function(cond) {
[17:26:52.675]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.675]                   sendCondition(cond)
[17:26:52.675]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.675]                   {
[17:26:52.675]                     inherits <- base::inherits
[17:26:52.675]                     invokeRestart <- base::invokeRestart
[17:26:52.675]                     is.null <- base::is.null
[17:26:52.675]                     muffled <- FALSE
[17:26:52.675]                     if (inherits(cond, "message")) {
[17:26:52.675]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.675]                       if (muffled) 
[17:26:52.675]                         invokeRestart("muffleMessage")
[17:26:52.675]                     }
[17:26:52.675]                     else if (inherits(cond, "warning")) {
[17:26:52.675]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.675]                       if (muffled) 
[17:26:52.675]                         invokeRestart("muffleWarning")
[17:26:52.675]                     }
[17:26:52.675]                     else if (inherits(cond, "condition")) {
[17:26:52.675]                       if (!is.null(pattern)) {
[17:26:52.675]                         computeRestarts <- base::computeRestarts
[17:26:52.675]                         grepl <- base::grepl
[17:26:52.675]                         restarts <- computeRestarts(cond)
[17:26:52.675]                         for (restart in restarts) {
[17:26:52.675]                           name <- restart$name
[17:26:52.675]                           if (is.null(name)) 
[17:26:52.675]                             next
[17:26:52.675]                           if (!grepl(pattern, name)) 
[17:26:52.675]                             next
[17:26:52.675]                           invokeRestart(restart)
[17:26:52.675]                           muffled <- TRUE
[17:26:52.675]                           break
[17:26:52.675]                         }
[17:26:52.675]                       }
[17:26:52.675]                     }
[17:26:52.675]                     invisible(muffled)
[17:26:52.675]                   }
[17:26:52.675]                   muffleCondition(cond)
[17:26:52.675]                 })
[17:26:52.675]             }))
[17:26:52.675]             future::FutureResult(value = ...future.value$value, 
[17:26:52.675]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.675]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.675]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.675]                     ...future.globalenv.names))
[17:26:52.675]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.675]         }, condition = base::local({
[17:26:52.675]             c <- base::c
[17:26:52.675]             inherits <- base::inherits
[17:26:52.675]             invokeRestart <- base::invokeRestart
[17:26:52.675]             length <- base::length
[17:26:52.675]             list <- base::list
[17:26:52.675]             seq.int <- base::seq.int
[17:26:52.675]             signalCondition <- base::signalCondition
[17:26:52.675]             sys.calls <- base::sys.calls
[17:26:52.675]             `[[` <- base::`[[`
[17:26:52.675]             `+` <- base::`+`
[17:26:52.675]             `<<-` <- base::`<<-`
[17:26:52.675]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.675]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.675]                   3L)]
[17:26:52.675]             }
[17:26:52.675]             function(cond) {
[17:26:52.675]                 is_error <- inherits(cond, "error")
[17:26:52.675]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.675]                   NULL)
[17:26:52.675]                 if (is_error) {
[17:26:52.675]                   sessionInformation <- function() {
[17:26:52.675]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.675]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.675]                       search = base::search(), system = base::Sys.info())
[17:26:52.675]                   }
[17:26:52.675]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.675]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.675]                     cond$call), session = sessionInformation(), 
[17:26:52.675]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.675]                   signalCondition(cond)
[17:26:52.675]                 }
[17:26:52.675]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.675]                 "immediateCondition"))) {
[17:26:52.675]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.675]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.675]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.675]                   if (TRUE && !signal) {
[17:26:52.675]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.675]                     {
[17:26:52.675]                       inherits <- base::inherits
[17:26:52.675]                       invokeRestart <- base::invokeRestart
[17:26:52.675]                       is.null <- base::is.null
[17:26:52.675]                       muffled <- FALSE
[17:26:52.675]                       if (inherits(cond, "message")) {
[17:26:52.675]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.675]                         if (muffled) 
[17:26:52.675]                           invokeRestart("muffleMessage")
[17:26:52.675]                       }
[17:26:52.675]                       else if (inherits(cond, "warning")) {
[17:26:52.675]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.675]                         if (muffled) 
[17:26:52.675]                           invokeRestart("muffleWarning")
[17:26:52.675]                       }
[17:26:52.675]                       else if (inherits(cond, "condition")) {
[17:26:52.675]                         if (!is.null(pattern)) {
[17:26:52.675]                           computeRestarts <- base::computeRestarts
[17:26:52.675]                           grepl <- base::grepl
[17:26:52.675]                           restarts <- computeRestarts(cond)
[17:26:52.675]                           for (restart in restarts) {
[17:26:52.675]                             name <- restart$name
[17:26:52.675]                             if (is.null(name)) 
[17:26:52.675]                               next
[17:26:52.675]                             if (!grepl(pattern, name)) 
[17:26:52.675]                               next
[17:26:52.675]                             invokeRestart(restart)
[17:26:52.675]                             muffled <- TRUE
[17:26:52.675]                             break
[17:26:52.675]                           }
[17:26:52.675]                         }
[17:26:52.675]                       }
[17:26:52.675]                       invisible(muffled)
[17:26:52.675]                     }
[17:26:52.675]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.675]                   }
[17:26:52.675]                 }
[17:26:52.675]                 else {
[17:26:52.675]                   if (TRUE) {
[17:26:52.675]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.675]                     {
[17:26:52.675]                       inherits <- base::inherits
[17:26:52.675]                       invokeRestart <- base::invokeRestart
[17:26:52.675]                       is.null <- base::is.null
[17:26:52.675]                       muffled <- FALSE
[17:26:52.675]                       if (inherits(cond, "message")) {
[17:26:52.675]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.675]                         if (muffled) 
[17:26:52.675]                           invokeRestart("muffleMessage")
[17:26:52.675]                       }
[17:26:52.675]                       else if (inherits(cond, "warning")) {
[17:26:52.675]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.675]                         if (muffled) 
[17:26:52.675]                           invokeRestart("muffleWarning")
[17:26:52.675]                       }
[17:26:52.675]                       else if (inherits(cond, "condition")) {
[17:26:52.675]                         if (!is.null(pattern)) {
[17:26:52.675]                           computeRestarts <- base::computeRestarts
[17:26:52.675]                           grepl <- base::grepl
[17:26:52.675]                           restarts <- computeRestarts(cond)
[17:26:52.675]                           for (restart in restarts) {
[17:26:52.675]                             name <- restart$name
[17:26:52.675]                             if (is.null(name)) 
[17:26:52.675]                               next
[17:26:52.675]                             if (!grepl(pattern, name)) 
[17:26:52.675]                               next
[17:26:52.675]                             invokeRestart(restart)
[17:26:52.675]                             muffled <- TRUE
[17:26:52.675]                             break
[17:26:52.675]                           }
[17:26:52.675]                         }
[17:26:52.675]                       }
[17:26:52.675]                       invisible(muffled)
[17:26:52.675]                     }
[17:26:52.675]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.675]                   }
[17:26:52.675]                 }
[17:26:52.675]             }
[17:26:52.675]         }))
[17:26:52.675]     }, error = function(ex) {
[17:26:52.675]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.675]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.675]                 ...future.rng), started = ...future.startTime, 
[17:26:52.675]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.675]             version = "1.8"), class = "FutureResult")
[17:26:52.675]     }, finally = {
[17:26:52.675]         if (!identical(...future.workdir, getwd())) 
[17:26:52.675]             setwd(...future.workdir)
[17:26:52.675]         {
[17:26:52.675]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.675]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.675]             }
[17:26:52.675]             base::options(...future.oldOptions)
[17:26:52.675]             if (.Platform$OS.type == "windows") {
[17:26:52.675]                 old_names <- names(...future.oldEnvVars)
[17:26:52.675]                 envs <- base::Sys.getenv()
[17:26:52.675]                 names <- names(envs)
[17:26:52.675]                 common <- intersect(names, old_names)
[17:26:52.675]                 added <- setdiff(names, old_names)
[17:26:52.675]                 removed <- setdiff(old_names, names)
[17:26:52.675]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.675]                   envs[common]]
[17:26:52.675]                 NAMES <- toupper(changed)
[17:26:52.675]                 args <- list()
[17:26:52.675]                 for (kk in seq_along(NAMES)) {
[17:26:52.675]                   name <- changed[[kk]]
[17:26:52.675]                   NAME <- NAMES[[kk]]
[17:26:52.675]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.675]                     next
[17:26:52.675]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.675]                 }
[17:26:52.675]                 NAMES <- toupper(added)
[17:26:52.675]                 for (kk in seq_along(NAMES)) {
[17:26:52.675]                   name <- added[[kk]]
[17:26:52.675]                   NAME <- NAMES[[kk]]
[17:26:52.675]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.675]                     next
[17:26:52.675]                   args[[name]] <- ""
[17:26:52.675]                 }
[17:26:52.675]                 NAMES <- toupper(removed)
[17:26:52.675]                 for (kk in seq_along(NAMES)) {
[17:26:52.675]                   name <- removed[[kk]]
[17:26:52.675]                   NAME <- NAMES[[kk]]
[17:26:52.675]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.675]                     next
[17:26:52.675]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.675]                 }
[17:26:52.675]                 if (length(args) > 0) 
[17:26:52.675]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.675]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.675]             }
[17:26:52.675]             else {
[17:26:52.675]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.675]             }
[17:26:52.675]             {
[17:26:52.675]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.675]                   0L) {
[17:26:52.675]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.675]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.675]                   base::options(opts)
[17:26:52.675]                 }
[17:26:52.675]                 {
[17:26:52.675]                   {
[17:26:52.675]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.675]                     NULL
[17:26:52.675]                   }
[17:26:52.675]                   options(future.plan = NULL)
[17:26:52.675]                   if (is.na(NA_character_)) 
[17:26:52.675]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.675]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.675]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.675]                     .init = FALSE)
[17:26:52.675]                 }
[17:26:52.675]             }
[17:26:52.675]         }
[17:26:52.675]     })
[17:26:52.675]     if (TRUE) {
[17:26:52.675]         base::sink(type = "output", split = FALSE)
[17:26:52.675]         if (TRUE) {
[17:26:52.675]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.675]         }
[17:26:52.675]         else {
[17:26:52.675]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.675]         }
[17:26:52.675]         base::close(...future.stdout)
[17:26:52.675]         ...future.stdout <- NULL
[17:26:52.675]     }
[17:26:52.675]     ...future.result$conditions <- ...future.conditions
[17:26:52.675]     ...future.result$finished <- base::Sys.time()
[17:26:52.675]     ...future.result
[17:26:52.675] }
[17:26:52.680] Exporting 1 global objects (96 bytes) to cluster node #1 ...
[17:26:52.681] Exporting 'x' (96 bytes) to cluster node #1 ...
[17:26:52.681] Exporting 'x' (96 bytes) to cluster node #1 ... DONE
[17:26:52.681] Exporting 1 global objects (96 bytes) to cluster node #1 ... DONE
[17:26:52.682] MultisessionFuture started
[17:26:52.682] - Launch lazy future ... done
[17:26:52.682] run() for 'MultisessionFuture' ... done
[17:26:52.683] result() for ClusterFuture ...
[17:26:52.683] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.683] - Validating connection of MultisessionFuture
[17:26:52.703] - received message: FutureResult
[17:26:52.703] - Received FutureResult
[17:26:52.703] - Erased future from FutureRegistry
[17:26:52.703] result() for ClusterFuture ...
[17:26:52.704] - result already collected: FutureResult
[17:26:52.704] result() for ClusterFuture ... done
[17:26:52.704] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.704] result() for ClusterFuture ... done
[17:26:52.704] result() for ClusterFuture ...
[17:26:52.704] - result already collected: FutureResult
[17:26:52.704] result() for ClusterFuture ... done
x
1 2 
2 3 
- Globals - lm(<formula>, data = cars) ...
- Globals - lm(<formula #1 ('a')>, data = cars) ...

Call:
lm(formula = dist ~ . - 1, data = cars)

Coefficients:
speed  
2.909  

[17:26:52.706] getGlobalsAndPackages() ...
[17:26:52.706] Searching for globals...
[17:26:52.708] - globals found: [7] '{', 'lm', 'dist', '-', '.', '~', 'cars'
[17:26:52.709] Searching for globals ... DONE
[17:26:52.709] Resolving globals: FALSE
[17:26:52.709] 
[17:26:52.710] - packages: [2] 'stats', 'datasets'
[17:26:52.710] getGlobalsAndPackages() ... DONE
[17:26:52.710] run() for 'Future' ...
[17:26:52.710] - state: 'created'
[17:26:52.710] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.724] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.724] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.724]   - Field: 'node'
[17:26:52.725]   - Field: 'label'
[17:26:52.725]   - Field: 'local'
[17:26:52.725]   - Field: 'owner'
[17:26:52.725]   - Field: 'envir'
[17:26:52.725]   - Field: 'workers'
[17:26:52.725]   - Field: 'packages'
[17:26:52.726]   - Field: 'gc'
[17:26:52.726]   - Field: 'conditions'
[17:26:52.726]   - Field: 'persistent'
[17:26:52.726]   - Field: 'expr'
[17:26:52.726]   - Field: 'uuid'
[17:26:52.727]   - Field: 'seed'
[17:26:52.727]   - Field: 'version'
[17:26:52.727]   - Field: 'result'
[17:26:52.727]   - Field: 'asynchronous'
[17:26:52.727]   - Field: 'calls'
[17:26:52.727]   - Field: 'globals'
[17:26:52.728]   - Field: 'stdout'
[17:26:52.728]   - Field: 'earlySignal'
[17:26:52.728]   - Field: 'lazy'
[17:26:52.728]   - Field: 'state'
[17:26:52.728] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.728] - Launch lazy future ...
[17:26:52.729] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:52.729] Packages needed by future strategies (n = 0): <none>
[17:26:52.730] {
[17:26:52.730]     {
[17:26:52.730]         {
[17:26:52.730]             ...future.startTime <- base::Sys.time()
[17:26:52.730]             {
[17:26:52.730]                 {
[17:26:52.730]                   {
[17:26:52.730]                     {
[17:26:52.730]                       {
[17:26:52.730]                         base::local({
[17:26:52.730]                           has_future <- base::requireNamespace("future", 
[17:26:52.730]                             quietly = TRUE)
[17:26:52.730]                           if (has_future) {
[17:26:52.730]                             ns <- base::getNamespace("future")
[17:26:52.730]                             version <- ns[[".package"]][["version"]]
[17:26:52.730]                             if (is.null(version)) 
[17:26:52.730]                               version <- utils::packageVersion("future")
[17:26:52.730]                           }
[17:26:52.730]                           else {
[17:26:52.730]                             version <- NULL
[17:26:52.730]                           }
[17:26:52.730]                           if (!has_future || version < "1.8.0") {
[17:26:52.730]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.730]                               "", base::R.version$version.string), 
[17:26:52.730]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.730]                                 base::R.version$platform, 8 * 
[17:26:52.730]                                   base::.Machine$sizeof.pointer), 
[17:26:52.730]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.730]                                 "release", "version")], collapse = " "), 
[17:26:52.730]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.730]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.730]                               info)
[17:26:52.730]                             info <- base::paste(info, collapse = "; ")
[17:26:52.730]                             if (!has_future) {
[17:26:52.730]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.730]                                 info)
[17:26:52.730]                             }
[17:26:52.730]                             else {
[17:26:52.730]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.730]                                 info, version)
[17:26:52.730]                             }
[17:26:52.730]                             base::stop(msg)
[17:26:52.730]                           }
[17:26:52.730]                         })
[17:26:52.730]                       }
[17:26:52.730]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.730]                       base::options(mc.cores = 1L)
[17:26:52.730]                     }
[17:26:52.730]                     base::local({
[17:26:52.730]                       for (pkg in c("stats", "datasets")) {
[17:26:52.730]                         base::loadNamespace(pkg)
[17:26:52.730]                         base::library(pkg, character.only = TRUE)
[17:26:52.730]                       }
[17:26:52.730]                     })
[17:26:52.730]                   }
[17:26:52.730]                   ...future.strategy.old <- future::plan("list")
[17:26:52.730]                   options(future.plan = NULL)
[17:26:52.730]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.730]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.730]                 }
[17:26:52.730]                 ...future.workdir <- getwd()
[17:26:52.730]             }
[17:26:52.730]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.730]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.730]         }
[17:26:52.730]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.730]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.730]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.730]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.730]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.730]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.730]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.730]             base::names(...future.oldOptions))
[17:26:52.730]     }
[17:26:52.730]     if (FALSE) {
[17:26:52.730]     }
[17:26:52.730]     else {
[17:26:52.730]         if (TRUE) {
[17:26:52.730]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.730]                 open = "w")
[17:26:52.730]         }
[17:26:52.730]         else {
[17:26:52.730]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.730]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.730]         }
[17:26:52.730]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.730]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.730]             base::sink(type = "output", split = FALSE)
[17:26:52.730]             base::close(...future.stdout)
[17:26:52.730]         }, add = TRUE)
[17:26:52.730]     }
[17:26:52.730]     ...future.frame <- base::sys.nframe()
[17:26:52.730]     ...future.conditions <- base::list()
[17:26:52.730]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.730]     if (FALSE) {
[17:26:52.730]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.730]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.730]     }
[17:26:52.730]     ...future.result <- base::tryCatch({
[17:26:52.730]         base::withCallingHandlers({
[17:26:52.730]             ...future.value <- base::withVisible(base::local({
[17:26:52.730]                 ...future.makeSendCondition <- base::local({
[17:26:52.730]                   sendCondition <- NULL
[17:26:52.730]                   function(frame = 1L) {
[17:26:52.730]                     if (is.function(sendCondition)) 
[17:26:52.730]                       return(sendCondition)
[17:26:52.730]                     ns <- getNamespace("parallel")
[17:26:52.730]                     if (exists("sendData", mode = "function", 
[17:26:52.730]                       envir = ns)) {
[17:26:52.730]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.730]                         envir = ns)
[17:26:52.730]                       envir <- sys.frame(frame)
[17:26:52.730]                       master <- NULL
[17:26:52.730]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.730]                         !identical(envir, emptyenv())) {
[17:26:52.730]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.730]                           inherits = FALSE)) {
[17:26:52.730]                           master <- get("master", mode = "list", 
[17:26:52.730]                             envir = envir, inherits = FALSE)
[17:26:52.730]                           if (inherits(master, c("SOCKnode", 
[17:26:52.730]                             "SOCK0node"))) {
[17:26:52.730]                             sendCondition <<- function(cond) {
[17:26:52.730]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.730]                                 success = TRUE)
[17:26:52.730]                               parallel_sendData(master, data)
[17:26:52.730]                             }
[17:26:52.730]                             return(sendCondition)
[17:26:52.730]                           }
[17:26:52.730]                         }
[17:26:52.730]                         frame <- frame + 1L
[17:26:52.730]                         envir <- sys.frame(frame)
[17:26:52.730]                       }
[17:26:52.730]                     }
[17:26:52.730]                     sendCondition <<- function(cond) NULL
[17:26:52.730]                   }
[17:26:52.730]                 })
[17:26:52.730]                 withCallingHandlers({
[17:26:52.730]                   {
[17:26:52.730]                     lm(dist ~ . - 1, data = cars)
[17:26:52.730]                   }
[17:26:52.730]                 }, immediateCondition = function(cond) {
[17:26:52.730]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.730]                   sendCondition(cond)
[17:26:52.730]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.730]                   {
[17:26:52.730]                     inherits <- base::inherits
[17:26:52.730]                     invokeRestart <- base::invokeRestart
[17:26:52.730]                     is.null <- base::is.null
[17:26:52.730]                     muffled <- FALSE
[17:26:52.730]                     if (inherits(cond, "message")) {
[17:26:52.730]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.730]                       if (muffled) 
[17:26:52.730]                         invokeRestart("muffleMessage")
[17:26:52.730]                     }
[17:26:52.730]                     else if (inherits(cond, "warning")) {
[17:26:52.730]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.730]                       if (muffled) 
[17:26:52.730]                         invokeRestart("muffleWarning")
[17:26:52.730]                     }
[17:26:52.730]                     else if (inherits(cond, "condition")) {
[17:26:52.730]                       if (!is.null(pattern)) {
[17:26:52.730]                         computeRestarts <- base::computeRestarts
[17:26:52.730]                         grepl <- base::grepl
[17:26:52.730]                         restarts <- computeRestarts(cond)
[17:26:52.730]                         for (restart in restarts) {
[17:26:52.730]                           name <- restart$name
[17:26:52.730]                           if (is.null(name)) 
[17:26:52.730]                             next
[17:26:52.730]                           if (!grepl(pattern, name)) 
[17:26:52.730]                             next
[17:26:52.730]                           invokeRestart(restart)
[17:26:52.730]                           muffled <- TRUE
[17:26:52.730]                           break
[17:26:52.730]                         }
[17:26:52.730]                       }
[17:26:52.730]                     }
[17:26:52.730]                     invisible(muffled)
[17:26:52.730]                   }
[17:26:52.730]                   muffleCondition(cond)
[17:26:52.730]                 })
[17:26:52.730]             }))
[17:26:52.730]             future::FutureResult(value = ...future.value$value, 
[17:26:52.730]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.730]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.730]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.730]                     ...future.globalenv.names))
[17:26:52.730]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.730]         }, condition = base::local({
[17:26:52.730]             c <- base::c
[17:26:52.730]             inherits <- base::inherits
[17:26:52.730]             invokeRestart <- base::invokeRestart
[17:26:52.730]             length <- base::length
[17:26:52.730]             list <- base::list
[17:26:52.730]             seq.int <- base::seq.int
[17:26:52.730]             signalCondition <- base::signalCondition
[17:26:52.730]             sys.calls <- base::sys.calls
[17:26:52.730]             `[[` <- base::`[[`
[17:26:52.730]             `+` <- base::`+`
[17:26:52.730]             `<<-` <- base::`<<-`
[17:26:52.730]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.730]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.730]                   3L)]
[17:26:52.730]             }
[17:26:52.730]             function(cond) {
[17:26:52.730]                 is_error <- inherits(cond, "error")
[17:26:52.730]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.730]                   NULL)
[17:26:52.730]                 if (is_error) {
[17:26:52.730]                   sessionInformation <- function() {
[17:26:52.730]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.730]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.730]                       search = base::search(), system = base::Sys.info())
[17:26:52.730]                   }
[17:26:52.730]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.730]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.730]                     cond$call), session = sessionInformation(), 
[17:26:52.730]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.730]                   signalCondition(cond)
[17:26:52.730]                 }
[17:26:52.730]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.730]                 "immediateCondition"))) {
[17:26:52.730]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.730]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.730]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.730]                   if (TRUE && !signal) {
[17:26:52.730]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.730]                     {
[17:26:52.730]                       inherits <- base::inherits
[17:26:52.730]                       invokeRestart <- base::invokeRestart
[17:26:52.730]                       is.null <- base::is.null
[17:26:52.730]                       muffled <- FALSE
[17:26:52.730]                       if (inherits(cond, "message")) {
[17:26:52.730]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.730]                         if (muffled) 
[17:26:52.730]                           invokeRestart("muffleMessage")
[17:26:52.730]                       }
[17:26:52.730]                       else if (inherits(cond, "warning")) {
[17:26:52.730]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.730]                         if (muffled) 
[17:26:52.730]                           invokeRestart("muffleWarning")
[17:26:52.730]                       }
[17:26:52.730]                       else if (inherits(cond, "condition")) {
[17:26:52.730]                         if (!is.null(pattern)) {
[17:26:52.730]                           computeRestarts <- base::computeRestarts
[17:26:52.730]                           grepl <- base::grepl
[17:26:52.730]                           restarts <- computeRestarts(cond)
[17:26:52.730]                           for (restart in restarts) {
[17:26:52.730]                             name <- restart$name
[17:26:52.730]                             if (is.null(name)) 
[17:26:52.730]                               next
[17:26:52.730]                             if (!grepl(pattern, name)) 
[17:26:52.730]                               next
[17:26:52.730]                             invokeRestart(restart)
[17:26:52.730]                             muffled <- TRUE
[17:26:52.730]                             break
[17:26:52.730]                           }
[17:26:52.730]                         }
[17:26:52.730]                       }
[17:26:52.730]                       invisible(muffled)
[17:26:52.730]                     }
[17:26:52.730]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.730]                   }
[17:26:52.730]                 }
[17:26:52.730]                 else {
[17:26:52.730]                   if (TRUE) {
[17:26:52.730]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.730]                     {
[17:26:52.730]                       inherits <- base::inherits
[17:26:52.730]                       invokeRestart <- base::invokeRestart
[17:26:52.730]                       is.null <- base::is.null
[17:26:52.730]                       muffled <- FALSE
[17:26:52.730]                       if (inherits(cond, "message")) {
[17:26:52.730]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.730]                         if (muffled) 
[17:26:52.730]                           invokeRestart("muffleMessage")
[17:26:52.730]                       }
[17:26:52.730]                       else if (inherits(cond, "warning")) {
[17:26:52.730]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.730]                         if (muffled) 
[17:26:52.730]                           invokeRestart("muffleWarning")
[17:26:52.730]                       }
[17:26:52.730]                       else if (inherits(cond, "condition")) {
[17:26:52.730]                         if (!is.null(pattern)) {
[17:26:52.730]                           computeRestarts <- base::computeRestarts
[17:26:52.730]                           grepl <- base::grepl
[17:26:52.730]                           restarts <- computeRestarts(cond)
[17:26:52.730]                           for (restart in restarts) {
[17:26:52.730]                             name <- restart$name
[17:26:52.730]                             if (is.null(name)) 
[17:26:52.730]                               next
[17:26:52.730]                             if (!grepl(pattern, name)) 
[17:26:52.730]                               next
[17:26:52.730]                             invokeRestart(restart)
[17:26:52.730]                             muffled <- TRUE
[17:26:52.730]                             break
[17:26:52.730]                           }
[17:26:52.730]                         }
[17:26:52.730]                       }
[17:26:52.730]                       invisible(muffled)
[17:26:52.730]                     }
[17:26:52.730]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.730]                   }
[17:26:52.730]                 }
[17:26:52.730]             }
[17:26:52.730]         }))
[17:26:52.730]     }, error = function(ex) {
[17:26:52.730]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.730]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.730]                 ...future.rng), started = ...future.startTime, 
[17:26:52.730]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.730]             version = "1.8"), class = "FutureResult")
[17:26:52.730]     }, finally = {
[17:26:52.730]         if (!identical(...future.workdir, getwd())) 
[17:26:52.730]             setwd(...future.workdir)
[17:26:52.730]         {
[17:26:52.730]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.730]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.730]             }
[17:26:52.730]             base::options(...future.oldOptions)
[17:26:52.730]             if (.Platform$OS.type == "windows") {
[17:26:52.730]                 old_names <- names(...future.oldEnvVars)
[17:26:52.730]                 envs <- base::Sys.getenv()
[17:26:52.730]                 names <- names(envs)
[17:26:52.730]                 common <- intersect(names, old_names)
[17:26:52.730]                 added <- setdiff(names, old_names)
[17:26:52.730]                 removed <- setdiff(old_names, names)
[17:26:52.730]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.730]                   envs[common]]
[17:26:52.730]                 NAMES <- toupper(changed)
[17:26:52.730]                 args <- list()
[17:26:52.730]                 for (kk in seq_along(NAMES)) {
[17:26:52.730]                   name <- changed[[kk]]
[17:26:52.730]                   NAME <- NAMES[[kk]]
[17:26:52.730]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.730]                     next
[17:26:52.730]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.730]                 }
[17:26:52.730]                 NAMES <- toupper(added)
[17:26:52.730]                 for (kk in seq_along(NAMES)) {
[17:26:52.730]                   name <- added[[kk]]
[17:26:52.730]                   NAME <- NAMES[[kk]]
[17:26:52.730]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.730]                     next
[17:26:52.730]                   args[[name]] <- ""
[17:26:52.730]                 }
[17:26:52.730]                 NAMES <- toupper(removed)
[17:26:52.730]                 for (kk in seq_along(NAMES)) {
[17:26:52.730]                   name <- removed[[kk]]
[17:26:52.730]                   NAME <- NAMES[[kk]]
[17:26:52.730]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.730]                     next
[17:26:52.730]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.730]                 }
[17:26:52.730]                 if (length(args) > 0) 
[17:26:52.730]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.730]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.730]             }
[17:26:52.730]             else {
[17:26:52.730]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.730]             }
[17:26:52.730]             {
[17:26:52.730]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.730]                   0L) {
[17:26:52.730]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.730]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.730]                   base::options(opts)
[17:26:52.730]                 }
[17:26:52.730]                 {
[17:26:52.730]                   {
[17:26:52.730]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.730]                     NULL
[17:26:52.730]                   }
[17:26:52.730]                   options(future.plan = NULL)
[17:26:52.730]                   if (is.na(NA_character_)) 
[17:26:52.730]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.730]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.730]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.730]                     .init = FALSE)
[17:26:52.730]                 }
[17:26:52.730]             }
[17:26:52.730]         }
[17:26:52.730]     })
[17:26:52.730]     if (TRUE) {
[17:26:52.730]         base::sink(type = "output", split = FALSE)
[17:26:52.730]         if (TRUE) {
[17:26:52.730]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.730]         }
[17:26:52.730]         else {
[17:26:52.730]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.730]         }
[17:26:52.730]         base::close(...future.stdout)
[17:26:52.730]         ...future.stdout <- NULL
[17:26:52.730]     }
[17:26:52.730]     ...future.result$conditions <- ...future.conditions
[17:26:52.730]     ...future.result$finished <- base::Sys.time()
[17:26:52.730]     ...future.result
[17:26:52.730] }
[17:26:52.735] MultisessionFuture started
[17:26:52.736] - Launch lazy future ... done
[17:26:52.736] run() for 'MultisessionFuture' ... done
[17:26:52.736] result() for ClusterFuture ...
[17:26:52.736] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.736] - Validating connection of MultisessionFuture
[17:26:52.752] - received message: FutureResult
[17:26:52.752] - Received FutureResult
[17:26:52.753] - Erased future from FutureRegistry
[17:26:52.753] result() for ClusterFuture ...
[17:26:52.753] - result already collected: FutureResult
[17:26:52.753] result() for ClusterFuture ... done
[17:26:52.753] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.753] result() for ClusterFuture ... done
[17:26:52.754] result() for ClusterFuture ...
[17:26:52.754] - result already collected: FutureResult
[17:26:52.754] result() for ClusterFuture ... done

Call:
lm(formula = dist ~ . - 1, data = cars)

Coefficients:
speed  
2.909  

- Globals - lm(<formula #2 ('b')>, data = cars) ...

Call:
lm(formula = dist ~ . + 0, data = cars)

Coefficients:
speed  
2.909  

[17:26:52.759] getGlobalsAndPackages() ...
[17:26:52.759] Searching for globals...
[17:26:52.761] - globals found: [7] '{', 'lm', 'dist', '+', '.', '~', 'cars'
[17:26:52.761] Searching for globals ... DONE
[17:26:52.761] Resolving globals: FALSE
[17:26:52.762] 
[17:26:52.762] - packages: [2] 'stats', 'datasets'
[17:26:52.762] getGlobalsAndPackages() ... DONE
[17:26:52.762] run() for 'Future' ...
[17:26:52.763] - state: 'created'
[17:26:52.763] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.776] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.777] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.777]   - Field: 'node'
[17:26:52.777]   - Field: 'label'
[17:26:52.777]   - Field: 'local'
[17:26:52.777]   - Field: 'owner'
[17:26:52.778]   - Field: 'envir'
[17:26:52.778]   - Field: 'workers'
[17:26:52.778]   - Field: 'packages'
[17:26:52.778]   - Field: 'gc'
[17:26:52.778]   - Field: 'conditions'
[17:26:52.778]   - Field: 'persistent'
[17:26:52.779]   - Field: 'expr'
[17:26:52.779]   - Field: 'uuid'
[17:26:52.779]   - Field: 'seed'
[17:26:52.779]   - Field: 'version'
[17:26:52.779]   - Field: 'result'
[17:26:52.780]   - Field: 'asynchronous'
[17:26:52.780]   - Field: 'calls'
[17:26:52.780]   - Field: 'globals'
[17:26:52.780]   - Field: 'stdout'
[17:26:52.780]   - Field: 'earlySignal'
[17:26:52.780]   - Field: 'lazy'
[17:26:52.781]   - Field: 'state'
[17:26:52.781] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.781] - Launch lazy future ...
[17:26:52.781] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:52.781] Packages needed by future strategies (n = 0): <none>
[17:26:52.782] {
[17:26:52.782]     {
[17:26:52.782]         {
[17:26:52.782]             ...future.startTime <- base::Sys.time()
[17:26:52.782]             {
[17:26:52.782]                 {
[17:26:52.782]                   {
[17:26:52.782]                     {
[17:26:52.782]                       {
[17:26:52.782]                         base::local({
[17:26:52.782]                           has_future <- base::requireNamespace("future", 
[17:26:52.782]                             quietly = TRUE)
[17:26:52.782]                           if (has_future) {
[17:26:52.782]                             ns <- base::getNamespace("future")
[17:26:52.782]                             version <- ns[[".package"]][["version"]]
[17:26:52.782]                             if (is.null(version)) 
[17:26:52.782]                               version <- utils::packageVersion("future")
[17:26:52.782]                           }
[17:26:52.782]                           else {
[17:26:52.782]                             version <- NULL
[17:26:52.782]                           }
[17:26:52.782]                           if (!has_future || version < "1.8.0") {
[17:26:52.782]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.782]                               "", base::R.version$version.string), 
[17:26:52.782]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.782]                                 base::R.version$platform, 8 * 
[17:26:52.782]                                   base::.Machine$sizeof.pointer), 
[17:26:52.782]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.782]                                 "release", "version")], collapse = " "), 
[17:26:52.782]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.782]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.782]                               info)
[17:26:52.782]                             info <- base::paste(info, collapse = "; ")
[17:26:52.782]                             if (!has_future) {
[17:26:52.782]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.782]                                 info)
[17:26:52.782]                             }
[17:26:52.782]                             else {
[17:26:52.782]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.782]                                 info, version)
[17:26:52.782]                             }
[17:26:52.782]                             base::stop(msg)
[17:26:52.782]                           }
[17:26:52.782]                         })
[17:26:52.782]                       }
[17:26:52.782]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.782]                       base::options(mc.cores = 1L)
[17:26:52.782]                     }
[17:26:52.782]                     base::local({
[17:26:52.782]                       for (pkg in c("stats", "datasets")) {
[17:26:52.782]                         base::loadNamespace(pkg)
[17:26:52.782]                         base::library(pkg, character.only = TRUE)
[17:26:52.782]                       }
[17:26:52.782]                     })
[17:26:52.782]                   }
[17:26:52.782]                   ...future.strategy.old <- future::plan("list")
[17:26:52.782]                   options(future.plan = NULL)
[17:26:52.782]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.782]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.782]                 }
[17:26:52.782]                 ...future.workdir <- getwd()
[17:26:52.782]             }
[17:26:52.782]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.782]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.782]         }
[17:26:52.782]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.782]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.782]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.782]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.782]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.782]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.782]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.782]             base::names(...future.oldOptions))
[17:26:52.782]     }
[17:26:52.782]     if (FALSE) {
[17:26:52.782]     }
[17:26:52.782]     else {
[17:26:52.782]         if (TRUE) {
[17:26:52.782]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.782]                 open = "w")
[17:26:52.782]         }
[17:26:52.782]         else {
[17:26:52.782]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.782]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.782]         }
[17:26:52.782]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.782]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.782]             base::sink(type = "output", split = FALSE)
[17:26:52.782]             base::close(...future.stdout)
[17:26:52.782]         }, add = TRUE)
[17:26:52.782]     }
[17:26:52.782]     ...future.frame <- base::sys.nframe()
[17:26:52.782]     ...future.conditions <- base::list()
[17:26:52.782]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.782]     if (FALSE) {
[17:26:52.782]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.782]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.782]     }
[17:26:52.782]     ...future.result <- base::tryCatch({
[17:26:52.782]         base::withCallingHandlers({
[17:26:52.782]             ...future.value <- base::withVisible(base::local({
[17:26:52.782]                 ...future.makeSendCondition <- base::local({
[17:26:52.782]                   sendCondition <- NULL
[17:26:52.782]                   function(frame = 1L) {
[17:26:52.782]                     if (is.function(sendCondition)) 
[17:26:52.782]                       return(sendCondition)
[17:26:52.782]                     ns <- getNamespace("parallel")
[17:26:52.782]                     if (exists("sendData", mode = "function", 
[17:26:52.782]                       envir = ns)) {
[17:26:52.782]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.782]                         envir = ns)
[17:26:52.782]                       envir <- sys.frame(frame)
[17:26:52.782]                       master <- NULL
[17:26:52.782]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.782]                         !identical(envir, emptyenv())) {
[17:26:52.782]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.782]                           inherits = FALSE)) {
[17:26:52.782]                           master <- get("master", mode = "list", 
[17:26:52.782]                             envir = envir, inherits = FALSE)
[17:26:52.782]                           if (inherits(master, c("SOCKnode", 
[17:26:52.782]                             "SOCK0node"))) {
[17:26:52.782]                             sendCondition <<- function(cond) {
[17:26:52.782]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.782]                                 success = TRUE)
[17:26:52.782]                               parallel_sendData(master, data)
[17:26:52.782]                             }
[17:26:52.782]                             return(sendCondition)
[17:26:52.782]                           }
[17:26:52.782]                         }
[17:26:52.782]                         frame <- frame + 1L
[17:26:52.782]                         envir <- sys.frame(frame)
[17:26:52.782]                       }
[17:26:52.782]                     }
[17:26:52.782]                     sendCondition <<- function(cond) NULL
[17:26:52.782]                   }
[17:26:52.782]                 })
[17:26:52.782]                 withCallingHandlers({
[17:26:52.782]                   {
[17:26:52.782]                     lm(dist ~ . + 0, data = cars)
[17:26:52.782]                   }
[17:26:52.782]                 }, immediateCondition = function(cond) {
[17:26:52.782]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.782]                   sendCondition(cond)
[17:26:52.782]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.782]                   {
[17:26:52.782]                     inherits <- base::inherits
[17:26:52.782]                     invokeRestart <- base::invokeRestart
[17:26:52.782]                     is.null <- base::is.null
[17:26:52.782]                     muffled <- FALSE
[17:26:52.782]                     if (inherits(cond, "message")) {
[17:26:52.782]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.782]                       if (muffled) 
[17:26:52.782]                         invokeRestart("muffleMessage")
[17:26:52.782]                     }
[17:26:52.782]                     else if (inherits(cond, "warning")) {
[17:26:52.782]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.782]                       if (muffled) 
[17:26:52.782]                         invokeRestart("muffleWarning")
[17:26:52.782]                     }
[17:26:52.782]                     else if (inherits(cond, "condition")) {
[17:26:52.782]                       if (!is.null(pattern)) {
[17:26:52.782]                         computeRestarts <- base::computeRestarts
[17:26:52.782]                         grepl <- base::grepl
[17:26:52.782]                         restarts <- computeRestarts(cond)
[17:26:52.782]                         for (restart in restarts) {
[17:26:52.782]                           name <- restart$name
[17:26:52.782]                           if (is.null(name)) 
[17:26:52.782]                             next
[17:26:52.782]                           if (!grepl(pattern, name)) 
[17:26:52.782]                             next
[17:26:52.782]                           invokeRestart(restart)
[17:26:52.782]                           muffled <- TRUE
[17:26:52.782]                           break
[17:26:52.782]                         }
[17:26:52.782]                       }
[17:26:52.782]                     }
[17:26:52.782]                     invisible(muffled)
[17:26:52.782]                   }
[17:26:52.782]                   muffleCondition(cond)
[17:26:52.782]                 })
[17:26:52.782]             }))
[17:26:52.782]             future::FutureResult(value = ...future.value$value, 
[17:26:52.782]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.782]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.782]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.782]                     ...future.globalenv.names))
[17:26:52.782]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.782]         }, condition = base::local({
[17:26:52.782]             c <- base::c
[17:26:52.782]             inherits <- base::inherits
[17:26:52.782]             invokeRestart <- base::invokeRestart
[17:26:52.782]             length <- base::length
[17:26:52.782]             list <- base::list
[17:26:52.782]             seq.int <- base::seq.int
[17:26:52.782]             signalCondition <- base::signalCondition
[17:26:52.782]             sys.calls <- base::sys.calls
[17:26:52.782]             `[[` <- base::`[[`
[17:26:52.782]             `+` <- base::`+`
[17:26:52.782]             `<<-` <- base::`<<-`
[17:26:52.782]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.782]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.782]                   3L)]
[17:26:52.782]             }
[17:26:52.782]             function(cond) {
[17:26:52.782]                 is_error <- inherits(cond, "error")
[17:26:52.782]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.782]                   NULL)
[17:26:52.782]                 if (is_error) {
[17:26:52.782]                   sessionInformation <- function() {
[17:26:52.782]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.782]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.782]                       search = base::search(), system = base::Sys.info())
[17:26:52.782]                   }
[17:26:52.782]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.782]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.782]                     cond$call), session = sessionInformation(), 
[17:26:52.782]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.782]                   signalCondition(cond)
[17:26:52.782]                 }
[17:26:52.782]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.782]                 "immediateCondition"))) {
[17:26:52.782]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.782]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.782]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.782]                   if (TRUE && !signal) {
[17:26:52.782]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.782]                     {
[17:26:52.782]                       inherits <- base::inherits
[17:26:52.782]                       invokeRestart <- base::invokeRestart
[17:26:52.782]                       is.null <- base::is.null
[17:26:52.782]                       muffled <- FALSE
[17:26:52.782]                       if (inherits(cond, "message")) {
[17:26:52.782]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.782]                         if (muffled) 
[17:26:52.782]                           invokeRestart("muffleMessage")
[17:26:52.782]                       }
[17:26:52.782]                       else if (inherits(cond, "warning")) {
[17:26:52.782]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.782]                         if (muffled) 
[17:26:52.782]                           invokeRestart("muffleWarning")
[17:26:52.782]                       }
[17:26:52.782]                       else if (inherits(cond, "condition")) {
[17:26:52.782]                         if (!is.null(pattern)) {
[17:26:52.782]                           computeRestarts <- base::computeRestarts
[17:26:52.782]                           grepl <- base::grepl
[17:26:52.782]                           restarts <- computeRestarts(cond)
[17:26:52.782]                           for (restart in restarts) {
[17:26:52.782]                             name <- restart$name
[17:26:52.782]                             if (is.null(name)) 
[17:26:52.782]                               next
[17:26:52.782]                             if (!grepl(pattern, name)) 
[17:26:52.782]                               next
[17:26:52.782]                             invokeRestart(restart)
[17:26:52.782]                             muffled <- TRUE
[17:26:52.782]                             break
[17:26:52.782]                           }
[17:26:52.782]                         }
[17:26:52.782]                       }
[17:26:52.782]                       invisible(muffled)
[17:26:52.782]                     }
[17:26:52.782]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.782]                   }
[17:26:52.782]                 }
[17:26:52.782]                 else {
[17:26:52.782]                   if (TRUE) {
[17:26:52.782]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.782]                     {
[17:26:52.782]                       inherits <- base::inherits
[17:26:52.782]                       invokeRestart <- base::invokeRestart
[17:26:52.782]                       is.null <- base::is.null
[17:26:52.782]                       muffled <- FALSE
[17:26:52.782]                       if (inherits(cond, "message")) {
[17:26:52.782]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.782]                         if (muffled) 
[17:26:52.782]                           invokeRestart("muffleMessage")
[17:26:52.782]                       }
[17:26:52.782]                       else if (inherits(cond, "warning")) {
[17:26:52.782]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.782]                         if (muffled) 
[17:26:52.782]                           invokeRestart("muffleWarning")
[17:26:52.782]                       }
[17:26:52.782]                       else if (inherits(cond, "condition")) {
[17:26:52.782]                         if (!is.null(pattern)) {
[17:26:52.782]                           computeRestarts <- base::computeRestarts
[17:26:52.782]                           grepl <- base::grepl
[17:26:52.782]                           restarts <- computeRestarts(cond)
[17:26:52.782]                           for (restart in restarts) {
[17:26:52.782]                             name <- restart$name
[17:26:52.782]                             if (is.null(name)) 
[17:26:52.782]                               next
[17:26:52.782]                             if (!grepl(pattern, name)) 
[17:26:52.782]                               next
[17:26:52.782]                             invokeRestart(restart)
[17:26:52.782]                             muffled <- TRUE
[17:26:52.782]                             break
[17:26:52.782]                           }
[17:26:52.782]                         }
[17:26:52.782]                       }
[17:26:52.782]                       invisible(muffled)
[17:26:52.782]                     }
[17:26:52.782]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.782]                   }
[17:26:52.782]                 }
[17:26:52.782]             }
[17:26:52.782]         }))
[17:26:52.782]     }, error = function(ex) {
[17:26:52.782]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.782]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.782]                 ...future.rng), started = ...future.startTime, 
[17:26:52.782]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.782]             version = "1.8"), class = "FutureResult")
[17:26:52.782]     }, finally = {
[17:26:52.782]         if (!identical(...future.workdir, getwd())) 
[17:26:52.782]             setwd(...future.workdir)
[17:26:52.782]         {
[17:26:52.782]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.782]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.782]             }
[17:26:52.782]             base::options(...future.oldOptions)
[17:26:52.782]             if (.Platform$OS.type == "windows") {
[17:26:52.782]                 old_names <- names(...future.oldEnvVars)
[17:26:52.782]                 envs <- base::Sys.getenv()
[17:26:52.782]                 names <- names(envs)
[17:26:52.782]                 common <- intersect(names, old_names)
[17:26:52.782]                 added <- setdiff(names, old_names)
[17:26:52.782]                 removed <- setdiff(old_names, names)
[17:26:52.782]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.782]                   envs[common]]
[17:26:52.782]                 NAMES <- toupper(changed)
[17:26:52.782]                 args <- list()
[17:26:52.782]                 for (kk in seq_along(NAMES)) {
[17:26:52.782]                   name <- changed[[kk]]
[17:26:52.782]                   NAME <- NAMES[[kk]]
[17:26:52.782]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.782]                     next
[17:26:52.782]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.782]                 }
[17:26:52.782]                 NAMES <- toupper(added)
[17:26:52.782]                 for (kk in seq_along(NAMES)) {
[17:26:52.782]                   name <- added[[kk]]
[17:26:52.782]                   NAME <- NAMES[[kk]]
[17:26:52.782]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.782]                     next
[17:26:52.782]                   args[[name]] <- ""
[17:26:52.782]                 }
[17:26:52.782]                 NAMES <- toupper(removed)
[17:26:52.782]                 for (kk in seq_along(NAMES)) {
[17:26:52.782]                   name <- removed[[kk]]
[17:26:52.782]                   NAME <- NAMES[[kk]]
[17:26:52.782]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.782]                     next
[17:26:52.782]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.782]                 }
[17:26:52.782]                 if (length(args) > 0) 
[17:26:52.782]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.782]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.782]             }
[17:26:52.782]             else {
[17:26:52.782]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.782]             }
[17:26:52.782]             {
[17:26:52.782]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.782]                   0L) {
[17:26:52.782]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.782]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.782]                   base::options(opts)
[17:26:52.782]                 }
[17:26:52.782]                 {
[17:26:52.782]                   {
[17:26:52.782]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.782]                     NULL
[17:26:52.782]                   }
[17:26:52.782]                   options(future.plan = NULL)
[17:26:52.782]                   if (is.na(NA_character_)) 
[17:26:52.782]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.782]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.782]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.782]                     .init = FALSE)
[17:26:52.782]                 }
[17:26:52.782]             }
[17:26:52.782]         }
[17:26:52.782]     })
[17:26:52.782]     if (TRUE) {
[17:26:52.782]         base::sink(type = "output", split = FALSE)
[17:26:52.782]         if (TRUE) {
[17:26:52.782]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.782]         }
[17:26:52.782]         else {
[17:26:52.782]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.782]         }
[17:26:52.782]         base::close(...future.stdout)
[17:26:52.782]         ...future.stdout <- NULL
[17:26:52.782]     }
[17:26:52.782]     ...future.result$conditions <- ...future.conditions
[17:26:52.782]     ...future.result$finished <- base::Sys.time()
[17:26:52.782]     ...future.result
[17:26:52.782] }
[17:26:52.788] MultisessionFuture started
[17:26:52.788] - Launch lazy future ... done
[17:26:52.788] run() for 'MultisessionFuture' ... done
[17:26:52.788] result() for ClusterFuture ...
[17:26:52.788] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.789] - Validating connection of MultisessionFuture
[17:26:52.806] - received message: FutureResult
[17:26:52.807] - Received FutureResult
[17:26:52.807] - Erased future from FutureRegistry
[17:26:52.807] result() for ClusterFuture ...
[17:26:52.807] - result already collected: FutureResult
[17:26:52.807] result() for ClusterFuture ... done
[17:26:52.808] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.808] result() for ClusterFuture ... done
[17:26:52.808] result() for ClusterFuture ...
[17:26:52.808] - result already collected: FutureResult
[17:26:52.808] result() for ClusterFuture ... done

Call:
lm(formula = dist ~ . + 0, data = cars)

Coefficients:
speed  
2.909  

- Globals - lm(<formula #3 ('c')>, data = cars) ...

Call:
lm(formula = dist ~ speed + speed^2, data = cars)

Coefficients:
(Intercept)        speed  
    -17.579        3.932  

[17:26:52.811] getGlobalsAndPackages() ...
[17:26:52.811] Searching for globals...
[17:26:52.813] - globals found: [8] '{', 'lm', 'dist', '+', 'speed', '^', '~', 'cars'
[17:26:52.814] Searching for globals ... DONE
[17:26:52.814] Resolving globals: FALSE
[17:26:52.814] 
[17:26:52.815] - packages: [2] 'stats', 'datasets'
[17:26:52.815] getGlobalsAndPackages() ... DONE
[17:26:52.815] run() for 'Future' ...
[17:26:52.815] - state: 'created'
[17:26:52.816] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.829] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.829] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.829]   - Field: 'node'
[17:26:52.829]   - Field: 'label'
[17:26:52.830]   - Field: 'local'
[17:26:52.830]   - Field: 'owner'
[17:26:52.830]   - Field: 'envir'
[17:26:52.830]   - Field: 'workers'
[17:26:52.830]   - Field: 'packages'
[17:26:52.830]   - Field: 'gc'
[17:26:52.831]   - Field: 'conditions'
[17:26:52.831]   - Field: 'persistent'
[17:26:52.831]   - Field: 'expr'
[17:26:52.831]   - Field: 'uuid'
[17:26:52.831]   - Field: 'seed'
[17:26:52.832]   - Field: 'version'
[17:26:52.832]   - Field: 'result'
[17:26:52.832]   - Field: 'asynchronous'
[17:26:52.832]   - Field: 'calls'
[17:26:52.832]   - Field: 'globals'
[17:26:52.833]   - Field: 'stdout'
[17:26:52.833]   - Field: 'earlySignal'
[17:26:52.833]   - Field: 'lazy'
[17:26:52.833]   - Field: 'state'
[17:26:52.833] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.833] - Launch lazy future ...
[17:26:52.834] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:52.834] Packages needed by future strategies (n = 0): <none>
[17:26:52.835] {
[17:26:52.835]     {
[17:26:52.835]         {
[17:26:52.835]             ...future.startTime <- base::Sys.time()
[17:26:52.835]             {
[17:26:52.835]                 {
[17:26:52.835]                   {
[17:26:52.835]                     {
[17:26:52.835]                       {
[17:26:52.835]                         base::local({
[17:26:52.835]                           has_future <- base::requireNamespace("future", 
[17:26:52.835]                             quietly = TRUE)
[17:26:52.835]                           if (has_future) {
[17:26:52.835]                             ns <- base::getNamespace("future")
[17:26:52.835]                             version <- ns[[".package"]][["version"]]
[17:26:52.835]                             if (is.null(version)) 
[17:26:52.835]                               version <- utils::packageVersion("future")
[17:26:52.835]                           }
[17:26:52.835]                           else {
[17:26:52.835]                             version <- NULL
[17:26:52.835]                           }
[17:26:52.835]                           if (!has_future || version < "1.8.0") {
[17:26:52.835]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.835]                               "", base::R.version$version.string), 
[17:26:52.835]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.835]                                 base::R.version$platform, 8 * 
[17:26:52.835]                                   base::.Machine$sizeof.pointer), 
[17:26:52.835]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.835]                                 "release", "version")], collapse = " "), 
[17:26:52.835]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.835]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.835]                               info)
[17:26:52.835]                             info <- base::paste(info, collapse = "; ")
[17:26:52.835]                             if (!has_future) {
[17:26:52.835]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.835]                                 info)
[17:26:52.835]                             }
[17:26:52.835]                             else {
[17:26:52.835]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.835]                                 info, version)
[17:26:52.835]                             }
[17:26:52.835]                             base::stop(msg)
[17:26:52.835]                           }
[17:26:52.835]                         })
[17:26:52.835]                       }
[17:26:52.835]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.835]                       base::options(mc.cores = 1L)
[17:26:52.835]                     }
[17:26:52.835]                     base::local({
[17:26:52.835]                       for (pkg in c("stats", "datasets")) {
[17:26:52.835]                         base::loadNamespace(pkg)
[17:26:52.835]                         base::library(pkg, character.only = TRUE)
[17:26:52.835]                       }
[17:26:52.835]                     })
[17:26:52.835]                   }
[17:26:52.835]                   ...future.strategy.old <- future::plan("list")
[17:26:52.835]                   options(future.plan = NULL)
[17:26:52.835]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.835]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.835]                 }
[17:26:52.835]                 ...future.workdir <- getwd()
[17:26:52.835]             }
[17:26:52.835]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.835]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.835]         }
[17:26:52.835]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.835]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.835]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.835]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.835]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.835]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.835]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.835]             base::names(...future.oldOptions))
[17:26:52.835]     }
[17:26:52.835]     if (FALSE) {
[17:26:52.835]     }
[17:26:52.835]     else {
[17:26:52.835]         if (TRUE) {
[17:26:52.835]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.835]                 open = "w")
[17:26:52.835]         }
[17:26:52.835]         else {
[17:26:52.835]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.835]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.835]         }
[17:26:52.835]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.835]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.835]             base::sink(type = "output", split = FALSE)
[17:26:52.835]             base::close(...future.stdout)
[17:26:52.835]         }, add = TRUE)
[17:26:52.835]     }
[17:26:52.835]     ...future.frame <- base::sys.nframe()
[17:26:52.835]     ...future.conditions <- base::list()
[17:26:52.835]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.835]     if (FALSE) {
[17:26:52.835]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.835]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.835]     }
[17:26:52.835]     ...future.result <- base::tryCatch({
[17:26:52.835]         base::withCallingHandlers({
[17:26:52.835]             ...future.value <- base::withVisible(base::local({
[17:26:52.835]                 ...future.makeSendCondition <- base::local({
[17:26:52.835]                   sendCondition <- NULL
[17:26:52.835]                   function(frame = 1L) {
[17:26:52.835]                     if (is.function(sendCondition)) 
[17:26:52.835]                       return(sendCondition)
[17:26:52.835]                     ns <- getNamespace("parallel")
[17:26:52.835]                     if (exists("sendData", mode = "function", 
[17:26:52.835]                       envir = ns)) {
[17:26:52.835]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.835]                         envir = ns)
[17:26:52.835]                       envir <- sys.frame(frame)
[17:26:52.835]                       master <- NULL
[17:26:52.835]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.835]                         !identical(envir, emptyenv())) {
[17:26:52.835]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.835]                           inherits = FALSE)) {
[17:26:52.835]                           master <- get("master", mode = "list", 
[17:26:52.835]                             envir = envir, inherits = FALSE)
[17:26:52.835]                           if (inherits(master, c("SOCKnode", 
[17:26:52.835]                             "SOCK0node"))) {
[17:26:52.835]                             sendCondition <<- function(cond) {
[17:26:52.835]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.835]                                 success = TRUE)
[17:26:52.835]                               parallel_sendData(master, data)
[17:26:52.835]                             }
[17:26:52.835]                             return(sendCondition)
[17:26:52.835]                           }
[17:26:52.835]                         }
[17:26:52.835]                         frame <- frame + 1L
[17:26:52.835]                         envir <- sys.frame(frame)
[17:26:52.835]                       }
[17:26:52.835]                     }
[17:26:52.835]                     sendCondition <<- function(cond) NULL
[17:26:52.835]                   }
[17:26:52.835]                 })
[17:26:52.835]                 withCallingHandlers({
[17:26:52.835]                   {
[17:26:52.835]                     lm(dist ~ speed + speed^2, data = cars)
[17:26:52.835]                   }
[17:26:52.835]                 }, immediateCondition = function(cond) {
[17:26:52.835]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.835]                   sendCondition(cond)
[17:26:52.835]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.835]                   {
[17:26:52.835]                     inherits <- base::inherits
[17:26:52.835]                     invokeRestart <- base::invokeRestart
[17:26:52.835]                     is.null <- base::is.null
[17:26:52.835]                     muffled <- FALSE
[17:26:52.835]                     if (inherits(cond, "message")) {
[17:26:52.835]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.835]                       if (muffled) 
[17:26:52.835]                         invokeRestart("muffleMessage")
[17:26:52.835]                     }
[17:26:52.835]                     else if (inherits(cond, "warning")) {
[17:26:52.835]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.835]                       if (muffled) 
[17:26:52.835]                         invokeRestart("muffleWarning")
[17:26:52.835]                     }
[17:26:52.835]                     else if (inherits(cond, "condition")) {
[17:26:52.835]                       if (!is.null(pattern)) {
[17:26:52.835]                         computeRestarts <- base::computeRestarts
[17:26:52.835]                         grepl <- base::grepl
[17:26:52.835]                         restarts <- computeRestarts(cond)
[17:26:52.835]                         for (restart in restarts) {
[17:26:52.835]                           name <- restart$name
[17:26:52.835]                           if (is.null(name)) 
[17:26:52.835]                             next
[17:26:52.835]                           if (!grepl(pattern, name)) 
[17:26:52.835]                             next
[17:26:52.835]                           invokeRestart(restart)
[17:26:52.835]                           muffled <- TRUE
[17:26:52.835]                           break
[17:26:52.835]                         }
[17:26:52.835]                       }
[17:26:52.835]                     }
[17:26:52.835]                     invisible(muffled)
[17:26:52.835]                   }
[17:26:52.835]                   muffleCondition(cond)
[17:26:52.835]                 })
[17:26:52.835]             }))
[17:26:52.835]             future::FutureResult(value = ...future.value$value, 
[17:26:52.835]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.835]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.835]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.835]                     ...future.globalenv.names))
[17:26:52.835]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.835]         }, condition = base::local({
[17:26:52.835]             c <- base::c
[17:26:52.835]             inherits <- base::inherits
[17:26:52.835]             invokeRestart <- base::invokeRestart
[17:26:52.835]             length <- base::length
[17:26:52.835]             list <- base::list
[17:26:52.835]             seq.int <- base::seq.int
[17:26:52.835]             signalCondition <- base::signalCondition
[17:26:52.835]             sys.calls <- base::sys.calls
[17:26:52.835]             `[[` <- base::`[[`
[17:26:52.835]             `+` <- base::`+`
[17:26:52.835]             `<<-` <- base::`<<-`
[17:26:52.835]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.835]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.835]                   3L)]
[17:26:52.835]             }
[17:26:52.835]             function(cond) {
[17:26:52.835]                 is_error <- inherits(cond, "error")
[17:26:52.835]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.835]                   NULL)
[17:26:52.835]                 if (is_error) {
[17:26:52.835]                   sessionInformation <- function() {
[17:26:52.835]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.835]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.835]                       search = base::search(), system = base::Sys.info())
[17:26:52.835]                   }
[17:26:52.835]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.835]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.835]                     cond$call), session = sessionInformation(), 
[17:26:52.835]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.835]                   signalCondition(cond)
[17:26:52.835]                 }
[17:26:52.835]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.835]                 "immediateCondition"))) {
[17:26:52.835]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.835]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.835]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.835]                   if (TRUE && !signal) {
[17:26:52.835]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.835]                     {
[17:26:52.835]                       inherits <- base::inherits
[17:26:52.835]                       invokeRestart <- base::invokeRestart
[17:26:52.835]                       is.null <- base::is.null
[17:26:52.835]                       muffled <- FALSE
[17:26:52.835]                       if (inherits(cond, "message")) {
[17:26:52.835]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.835]                         if (muffled) 
[17:26:52.835]                           invokeRestart("muffleMessage")
[17:26:52.835]                       }
[17:26:52.835]                       else if (inherits(cond, "warning")) {
[17:26:52.835]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.835]                         if (muffled) 
[17:26:52.835]                           invokeRestart("muffleWarning")
[17:26:52.835]                       }
[17:26:52.835]                       else if (inherits(cond, "condition")) {
[17:26:52.835]                         if (!is.null(pattern)) {
[17:26:52.835]                           computeRestarts <- base::computeRestarts
[17:26:52.835]                           grepl <- base::grepl
[17:26:52.835]                           restarts <- computeRestarts(cond)
[17:26:52.835]                           for (restart in restarts) {
[17:26:52.835]                             name <- restart$name
[17:26:52.835]                             if (is.null(name)) 
[17:26:52.835]                               next
[17:26:52.835]                             if (!grepl(pattern, name)) 
[17:26:52.835]                               next
[17:26:52.835]                             invokeRestart(restart)
[17:26:52.835]                             muffled <- TRUE
[17:26:52.835]                             break
[17:26:52.835]                           }
[17:26:52.835]                         }
[17:26:52.835]                       }
[17:26:52.835]                       invisible(muffled)
[17:26:52.835]                     }
[17:26:52.835]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.835]                   }
[17:26:52.835]                 }
[17:26:52.835]                 else {
[17:26:52.835]                   if (TRUE) {
[17:26:52.835]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.835]                     {
[17:26:52.835]                       inherits <- base::inherits
[17:26:52.835]                       invokeRestart <- base::invokeRestart
[17:26:52.835]                       is.null <- base::is.null
[17:26:52.835]                       muffled <- FALSE
[17:26:52.835]                       if (inherits(cond, "message")) {
[17:26:52.835]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.835]                         if (muffled) 
[17:26:52.835]                           invokeRestart("muffleMessage")
[17:26:52.835]                       }
[17:26:52.835]                       else if (inherits(cond, "warning")) {
[17:26:52.835]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.835]                         if (muffled) 
[17:26:52.835]                           invokeRestart("muffleWarning")
[17:26:52.835]                       }
[17:26:52.835]                       else if (inherits(cond, "condition")) {
[17:26:52.835]                         if (!is.null(pattern)) {
[17:26:52.835]                           computeRestarts <- base::computeRestarts
[17:26:52.835]                           grepl <- base::grepl
[17:26:52.835]                           restarts <- computeRestarts(cond)
[17:26:52.835]                           for (restart in restarts) {
[17:26:52.835]                             name <- restart$name
[17:26:52.835]                             if (is.null(name)) 
[17:26:52.835]                               next
[17:26:52.835]                             if (!grepl(pattern, name)) 
[17:26:52.835]                               next
[17:26:52.835]                             invokeRestart(restart)
[17:26:52.835]                             muffled <- TRUE
[17:26:52.835]                             break
[17:26:52.835]                           }
[17:26:52.835]                         }
[17:26:52.835]                       }
[17:26:52.835]                       invisible(muffled)
[17:26:52.835]                     }
[17:26:52.835]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.835]                   }
[17:26:52.835]                 }
[17:26:52.835]             }
[17:26:52.835]         }))
[17:26:52.835]     }, error = function(ex) {
[17:26:52.835]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.835]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.835]                 ...future.rng), started = ...future.startTime, 
[17:26:52.835]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.835]             version = "1.8"), class = "FutureResult")
[17:26:52.835]     }, finally = {
[17:26:52.835]         if (!identical(...future.workdir, getwd())) 
[17:26:52.835]             setwd(...future.workdir)
[17:26:52.835]         {
[17:26:52.835]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.835]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.835]             }
[17:26:52.835]             base::options(...future.oldOptions)
[17:26:52.835]             if (.Platform$OS.type == "windows") {
[17:26:52.835]                 old_names <- names(...future.oldEnvVars)
[17:26:52.835]                 envs <- base::Sys.getenv()
[17:26:52.835]                 names <- names(envs)
[17:26:52.835]                 common <- intersect(names, old_names)
[17:26:52.835]                 added <- setdiff(names, old_names)
[17:26:52.835]                 removed <- setdiff(old_names, names)
[17:26:52.835]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.835]                   envs[common]]
[17:26:52.835]                 NAMES <- toupper(changed)
[17:26:52.835]                 args <- list()
[17:26:52.835]                 for (kk in seq_along(NAMES)) {
[17:26:52.835]                   name <- changed[[kk]]
[17:26:52.835]                   NAME <- NAMES[[kk]]
[17:26:52.835]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.835]                     next
[17:26:52.835]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.835]                 }
[17:26:52.835]                 NAMES <- toupper(added)
[17:26:52.835]                 for (kk in seq_along(NAMES)) {
[17:26:52.835]                   name <- added[[kk]]
[17:26:52.835]                   NAME <- NAMES[[kk]]
[17:26:52.835]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.835]                     next
[17:26:52.835]                   args[[name]] <- ""
[17:26:52.835]                 }
[17:26:52.835]                 NAMES <- toupper(removed)
[17:26:52.835]                 for (kk in seq_along(NAMES)) {
[17:26:52.835]                   name <- removed[[kk]]
[17:26:52.835]                   NAME <- NAMES[[kk]]
[17:26:52.835]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.835]                     next
[17:26:52.835]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.835]                 }
[17:26:52.835]                 if (length(args) > 0) 
[17:26:52.835]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.835]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.835]             }
[17:26:52.835]             else {
[17:26:52.835]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.835]             }
[17:26:52.835]             {
[17:26:52.835]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.835]                   0L) {
[17:26:52.835]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.835]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.835]                   base::options(opts)
[17:26:52.835]                 }
[17:26:52.835]                 {
[17:26:52.835]                   {
[17:26:52.835]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.835]                     NULL
[17:26:52.835]                   }
[17:26:52.835]                   options(future.plan = NULL)
[17:26:52.835]                   if (is.na(NA_character_)) 
[17:26:52.835]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.835]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.835]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.835]                     .init = FALSE)
[17:26:52.835]                 }
[17:26:52.835]             }
[17:26:52.835]         }
[17:26:52.835]     })
[17:26:52.835]     if (TRUE) {
[17:26:52.835]         base::sink(type = "output", split = FALSE)
[17:26:52.835]         if (TRUE) {
[17:26:52.835]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.835]         }
[17:26:52.835]         else {
[17:26:52.835]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.835]         }
[17:26:52.835]         base::close(...future.stdout)
[17:26:52.835]         ...future.stdout <- NULL
[17:26:52.835]     }
[17:26:52.835]     ...future.result$conditions <- ...future.conditions
[17:26:52.835]     ...future.result$finished <- base::Sys.time()
[17:26:52.835]     ...future.result
[17:26:52.835] }
[17:26:52.840] MultisessionFuture started
[17:26:52.840] - Launch lazy future ... done
[17:26:52.840] run() for 'MultisessionFuture' ... done
[17:26:52.841] result() for ClusterFuture ...
[17:26:52.841] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.841] - Validating connection of MultisessionFuture
[17:26:52.856] - received message: FutureResult
[17:26:52.856] - Received FutureResult
[17:26:52.856] - Erased future from FutureRegistry
[17:26:52.857] result() for ClusterFuture ...
[17:26:52.857] - result already collected: FutureResult
[17:26:52.857] result() for ClusterFuture ... done
[17:26:52.857] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.857] result() for ClusterFuture ... done
[17:26:52.857] result() for ClusterFuture ...
[17:26:52.857] - result already collected: FutureResult
[17:26:52.858] result() for ClusterFuture ... done

Call:
lm(formula = dist ~ speed + speed^2, data = cars)

Coefficients:
(Intercept)        speed  
    -17.579        3.932  

- Globals - lm(<formula #4 ('d')>, data = cars) ...

Call:
lm(formula = dist ~ speed + I(speed^2), data = cars)

Coefficients:
(Intercept)        speed   I(speed^2)  
    2.47014      0.91329      0.09996  

[17:26:52.861] getGlobalsAndPackages() ...
[17:26:52.861] Searching for globals...
[17:26:52.863] - globals found: [9] '{', 'lm', 'dist', '+', 'speed', 'I', '^', '~', 'cars'
[17:26:52.863] Searching for globals ... DONE
[17:26:52.864] Resolving globals: FALSE
[17:26:52.864] 
[17:26:52.864] - packages: [2] 'stats', 'datasets'
[17:26:52.865] getGlobalsAndPackages() ... DONE
[17:26:52.865] run() for 'Future' ...
[17:26:52.865] - state: 'created'
[17:26:52.865] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.879] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.879] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.879]   - Field: 'node'
[17:26:52.879]   - Field: 'label'
[17:26:52.880]   - Field: 'local'
[17:26:52.880]   - Field: 'owner'
[17:26:52.880]   - Field: 'envir'
[17:26:52.880]   - Field: 'workers'
[17:26:52.880]   - Field: 'packages'
[17:26:52.880]   - Field: 'gc'
[17:26:52.881]   - Field: 'conditions'
[17:26:52.881]   - Field: 'persistent'
[17:26:52.881]   - Field: 'expr'
[17:26:52.881]   - Field: 'uuid'
[17:26:52.881]   - Field: 'seed'
[17:26:52.882]   - Field: 'version'
[17:26:52.882]   - Field: 'result'
[17:26:52.882]   - Field: 'asynchronous'
[17:26:52.882]   - Field: 'calls'
[17:26:52.882]   - Field: 'globals'
[17:26:52.882]   - Field: 'stdout'
[17:26:52.883]   - Field: 'earlySignal'
[17:26:52.883]   - Field: 'lazy'
[17:26:52.883]   - Field: 'state'
[17:26:52.883] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.883] - Launch lazy future ...
[17:26:52.884] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:52.884] Packages needed by future strategies (n = 0): <none>
[17:26:52.884] {
[17:26:52.884]     {
[17:26:52.884]         {
[17:26:52.884]             ...future.startTime <- base::Sys.time()
[17:26:52.884]             {
[17:26:52.884]                 {
[17:26:52.884]                   {
[17:26:52.884]                     {
[17:26:52.884]                       {
[17:26:52.884]                         base::local({
[17:26:52.884]                           has_future <- base::requireNamespace("future", 
[17:26:52.884]                             quietly = TRUE)
[17:26:52.884]                           if (has_future) {
[17:26:52.884]                             ns <- base::getNamespace("future")
[17:26:52.884]                             version <- ns[[".package"]][["version"]]
[17:26:52.884]                             if (is.null(version)) 
[17:26:52.884]                               version <- utils::packageVersion("future")
[17:26:52.884]                           }
[17:26:52.884]                           else {
[17:26:52.884]                             version <- NULL
[17:26:52.884]                           }
[17:26:52.884]                           if (!has_future || version < "1.8.0") {
[17:26:52.884]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.884]                               "", base::R.version$version.string), 
[17:26:52.884]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.884]                                 base::R.version$platform, 8 * 
[17:26:52.884]                                   base::.Machine$sizeof.pointer), 
[17:26:52.884]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.884]                                 "release", "version")], collapse = " "), 
[17:26:52.884]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.884]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.884]                               info)
[17:26:52.884]                             info <- base::paste(info, collapse = "; ")
[17:26:52.884]                             if (!has_future) {
[17:26:52.884]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.884]                                 info)
[17:26:52.884]                             }
[17:26:52.884]                             else {
[17:26:52.884]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.884]                                 info, version)
[17:26:52.884]                             }
[17:26:52.884]                             base::stop(msg)
[17:26:52.884]                           }
[17:26:52.884]                         })
[17:26:52.884]                       }
[17:26:52.884]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.884]                       base::options(mc.cores = 1L)
[17:26:52.884]                     }
[17:26:52.884]                     base::local({
[17:26:52.884]                       for (pkg in c("stats", "datasets")) {
[17:26:52.884]                         base::loadNamespace(pkg)
[17:26:52.884]                         base::library(pkg, character.only = TRUE)
[17:26:52.884]                       }
[17:26:52.884]                     })
[17:26:52.884]                   }
[17:26:52.884]                   ...future.strategy.old <- future::plan("list")
[17:26:52.884]                   options(future.plan = NULL)
[17:26:52.884]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.884]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.884]                 }
[17:26:52.884]                 ...future.workdir <- getwd()
[17:26:52.884]             }
[17:26:52.884]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.884]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.884]         }
[17:26:52.884]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.884]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.884]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.884]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.884]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.884]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.884]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.884]             base::names(...future.oldOptions))
[17:26:52.884]     }
[17:26:52.884]     if (FALSE) {
[17:26:52.884]     }
[17:26:52.884]     else {
[17:26:52.884]         if (TRUE) {
[17:26:52.884]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.884]                 open = "w")
[17:26:52.884]         }
[17:26:52.884]         else {
[17:26:52.884]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.884]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.884]         }
[17:26:52.884]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.884]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.884]             base::sink(type = "output", split = FALSE)
[17:26:52.884]             base::close(...future.stdout)
[17:26:52.884]         }, add = TRUE)
[17:26:52.884]     }
[17:26:52.884]     ...future.frame <- base::sys.nframe()
[17:26:52.884]     ...future.conditions <- base::list()
[17:26:52.884]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.884]     if (FALSE) {
[17:26:52.884]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.884]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.884]     }
[17:26:52.884]     ...future.result <- base::tryCatch({
[17:26:52.884]         base::withCallingHandlers({
[17:26:52.884]             ...future.value <- base::withVisible(base::local({
[17:26:52.884]                 ...future.makeSendCondition <- base::local({
[17:26:52.884]                   sendCondition <- NULL
[17:26:52.884]                   function(frame = 1L) {
[17:26:52.884]                     if (is.function(sendCondition)) 
[17:26:52.884]                       return(sendCondition)
[17:26:52.884]                     ns <- getNamespace("parallel")
[17:26:52.884]                     if (exists("sendData", mode = "function", 
[17:26:52.884]                       envir = ns)) {
[17:26:52.884]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.884]                         envir = ns)
[17:26:52.884]                       envir <- sys.frame(frame)
[17:26:52.884]                       master <- NULL
[17:26:52.884]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.884]                         !identical(envir, emptyenv())) {
[17:26:52.884]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.884]                           inherits = FALSE)) {
[17:26:52.884]                           master <- get("master", mode = "list", 
[17:26:52.884]                             envir = envir, inherits = FALSE)
[17:26:52.884]                           if (inherits(master, c("SOCKnode", 
[17:26:52.884]                             "SOCK0node"))) {
[17:26:52.884]                             sendCondition <<- function(cond) {
[17:26:52.884]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.884]                                 success = TRUE)
[17:26:52.884]                               parallel_sendData(master, data)
[17:26:52.884]                             }
[17:26:52.884]                             return(sendCondition)
[17:26:52.884]                           }
[17:26:52.884]                         }
[17:26:52.884]                         frame <- frame + 1L
[17:26:52.884]                         envir <- sys.frame(frame)
[17:26:52.884]                       }
[17:26:52.884]                     }
[17:26:52.884]                     sendCondition <<- function(cond) NULL
[17:26:52.884]                   }
[17:26:52.884]                 })
[17:26:52.884]                 withCallingHandlers({
[17:26:52.884]                   {
[17:26:52.884]                     lm(dist ~ speed + I(speed^2), data = cars)
[17:26:52.884]                   }
[17:26:52.884]                 }, immediateCondition = function(cond) {
[17:26:52.884]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.884]                   sendCondition(cond)
[17:26:52.884]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.884]                   {
[17:26:52.884]                     inherits <- base::inherits
[17:26:52.884]                     invokeRestart <- base::invokeRestart
[17:26:52.884]                     is.null <- base::is.null
[17:26:52.884]                     muffled <- FALSE
[17:26:52.884]                     if (inherits(cond, "message")) {
[17:26:52.884]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.884]                       if (muffled) 
[17:26:52.884]                         invokeRestart("muffleMessage")
[17:26:52.884]                     }
[17:26:52.884]                     else if (inherits(cond, "warning")) {
[17:26:52.884]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.884]                       if (muffled) 
[17:26:52.884]                         invokeRestart("muffleWarning")
[17:26:52.884]                     }
[17:26:52.884]                     else if (inherits(cond, "condition")) {
[17:26:52.884]                       if (!is.null(pattern)) {
[17:26:52.884]                         computeRestarts <- base::computeRestarts
[17:26:52.884]                         grepl <- base::grepl
[17:26:52.884]                         restarts <- computeRestarts(cond)
[17:26:52.884]                         for (restart in restarts) {
[17:26:52.884]                           name <- restart$name
[17:26:52.884]                           if (is.null(name)) 
[17:26:52.884]                             next
[17:26:52.884]                           if (!grepl(pattern, name)) 
[17:26:52.884]                             next
[17:26:52.884]                           invokeRestart(restart)
[17:26:52.884]                           muffled <- TRUE
[17:26:52.884]                           break
[17:26:52.884]                         }
[17:26:52.884]                       }
[17:26:52.884]                     }
[17:26:52.884]                     invisible(muffled)
[17:26:52.884]                   }
[17:26:52.884]                   muffleCondition(cond)
[17:26:52.884]                 })
[17:26:52.884]             }))
[17:26:52.884]             future::FutureResult(value = ...future.value$value, 
[17:26:52.884]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.884]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.884]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.884]                     ...future.globalenv.names))
[17:26:52.884]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.884]         }, condition = base::local({
[17:26:52.884]             c <- base::c
[17:26:52.884]             inherits <- base::inherits
[17:26:52.884]             invokeRestart <- base::invokeRestart
[17:26:52.884]             length <- base::length
[17:26:52.884]             list <- base::list
[17:26:52.884]             seq.int <- base::seq.int
[17:26:52.884]             signalCondition <- base::signalCondition
[17:26:52.884]             sys.calls <- base::sys.calls
[17:26:52.884]             `[[` <- base::`[[`
[17:26:52.884]             `+` <- base::`+`
[17:26:52.884]             `<<-` <- base::`<<-`
[17:26:52.884]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.884]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.884]                   3L)]
[17:26:52.884]             }
[17:26:52.884]             function(cond) {
[17:26:52.884]                 is_error <- inherits(cond, "error")
[17:26:52.884]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.884]                   NULL)
[17:26:52.884]                 if (is_error) {
[17:26:52.884]                   sessionInformation <- function() {
[17:26:52.884]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.884]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.884]                       search = base::search(), system = base::Sys.info())
[17:26:52.884]                   }
[17:26:52.884]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.884]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.884]                     cond$call), session = sessionInformation(), 
[17:26:52.884]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.884]                   signalCondition(cond)
[17:26:52.884]                 }
[17:26:52.884]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.884]                 "immediateCondition"))) {
[17:26:52.884]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.884]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.884]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.884]                   if (TRUE && !signal) {
[17:26:52.884]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.884]                     {
[17:26:52.884]                       inherits <- base::inherits
[17:26:52.884]                       invokeRestart <- base::invokeRestart
[17:26:52.884]                       is.null <- base::is.null
[17:26:52.884]                       muffled <- FALSE
[17:26:52.884]                       if (inherits(cond, "message")) {
[17:26:52.884]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.884]                         if (muffled) 
[17:26:52.884]                           invokeRestart("muffleMessage")
[17:26:52.884]                       }
[17:26:52.884]                       else if (inherits(cond, "warning")) {
[17:26:52.884]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.884]                         if (muffled) 
[17:26:52.884]                           invokeRestart("muffleWarning")
[17:26:52.884]                       }
[17:26:52.884]                       else if (inherits(cond, "condition")) {
[17:26:52.884]                         if (!is.null(pattern)) {
[17:26:52.884]                           computeRestarts <- base::computeRestarts
[17:26:52.884]                           grepl <- base::grepl
[17:26:52.884]                           restarts <- computeRestarts(cond)
[17:26:52.884]                           for (restart in restarts) {
[17:26:52.884]                             name <- restart$name
[17:26:52.884]                             if (is.null(name)) 
[17:26:52.884]                               next
[17:26:52.884]                             if (!grepl(pattern, name)) 
[17:26:52.884]                               next
[17:26:52.884]                             invokeRestart(restart)
[17:26:52.884]                             muffled <- TRUE
[17:26:52.884]                             break
[17:26:52.884]                           }
[17:26:52.884]                         }
[17:26:52.884]                       }
[17:26:52.884]                       invisible(muffled)
[17:26:52.884]                     }
[17:26:52.884]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.884]                   }
[17:26:52.884]                 }
[17:26:52.884]                 else {
[17:26:52.884]                   if (TRUE) {
[17:26:52.884]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.884]                     {
[17:26:52.884]                       inherits <- base::inherits
[17:26:52.884]                       invokeRestart <- base::invokeRestart
[17:26:52.884]                       is.null <- base::is.null
[17:26:52.884]                       muffled <- FALSE
[17:26:52.884]                       if (inherits(cond, "message")) {
[17:26:52.884]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.884]                         if (muffled) 
[17:26:52.884]                           invokeRestart("muffleMessage")
[17:26:52.884]                       }
[17:26:52.884]                       else if (inherits(cond, "warning")) {
[17:26:52.884]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.884]                         if (muffled) 
[17:26:52.884]                           invokeRestart("muffleWarning")
[17:26:52.884]                       }
[17:26:52.884]                       else if (inherits(cond, "condition")) {
[17:26:52.884]                         if (!is.null(pattern)) {
[17:26:52.884]                           computeRestarts <- base::computeRestarts
[17:26:52.884]                           grepl <- base::grepl
[17:26:52.884]                           restarts <- computeRestarts(cond)
[17:26:52.884]                           for (restart in restarts) {
[17:26:52.884]                             name <- restart$name
[17:26:52.884]                             if (is.null(name)) 
[17:26:52.884]                               next
[17:26:52.884]                             if (!grepl(pattern, name)) 
[17:26:52.884]                               next
[17:26:52.884]                             invokeRestart(restart)
[17:26:52.884]                             muffled <- TRUE
[17:26:52.884]                             break
[17:26:52.884]                           }
[17:26:52.884]                         }
[17:26:52.884]                       }
[17:26:52.884]                       invisible(muffled)
[17:26:52.884]                     }
[17:26:52.884]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.884]                   }
[17:26:52.884]                 }
[17:26:52.884]             }
[17:26:52.884]         }))
[17:26:52.884]     }, error = function(ex) {
[17:26:52.884]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.884]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.884]                 ...future.rng), started = ...future.startTime, 
[17:26:52.884]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.884]             version = "1.8"), class = "FutureResult")
[17:26:52.884]     }, finally = {
[17:26:52.884]         if (!identical(...future.workdir, getwd())) 
[17:26:52.884]             setwd(...future.workdir)
[17:26:52.884]         {
[17:26:52.884]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.884]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.884]             }
[17:26:52.884]             base::options(...future.oldOptions)
[17:26:52.884]             if (.Platform$OS.type == "windows") {
[17:26:52.884]                 old_names <- names(...future.oldEnvVars)
[17:26:52.884]                 envs <- base::Sys.getenv()
[17:26:52.884]                 names <- names(envs)
[17:26:52.884]                 common <- intersect(names, old_names)
[17:26:52.884]                 added <- setdiff(names, old_names)
[17:26:52.884]                 removed <- setdiff(old_names, names)
[17:26:52.884]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.884]                   envs[common]]
[17:26:52.884]                 NAMES <- toupper(changed)
[17:26:52.884]                 args <- list()
[17:26:52.884]                 for (kk in seq_along(NAMES)) {
[17:26:52.884]                   name <- changed[[kk]]
[17:26:52.884]                   NAME <- NAMES[[kk]]
[17:26:52.884]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.884]                     next
[17:26:52.884]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.884]                 }
[17:26:52.884]                 NAMES <- toupper(added)
[17:26:52.884]                 for (kk in seq_along(NAMES)) {
[17:26:52.884]                   name <- added[[kk]]
[17:26:52.884]                   NAME <- NAMES[[kk]]
[17:26:52.884]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.884]                     next
[17:26:52.884]                   args[[name]] <- ""
[17:26:52.884]                 }
[17:26:52.884]                 NAMES <- toupper(removed)
[17:26:52.884]                 for (kk in seq_along(NAMES)) {
[17:26:52.884]                   name <- removed[[kk]]
[17:26:52.884]                   NAME <- NAMES[[kk]]
[17:26:52.884]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.884]                     next
[17:26:52.884]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.884]                 }
[17:26:52.884]                 if (length(args) > 0) 
[17:26:52.884]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.884]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.884]             }
[17:26:52.884]             else {
[17:26:52.884]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.884]             }
[17:26:52.884]             {
[17:26:52.884]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.884]                   0L) {
[17:26:52.884]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.884]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.884]                   base::options(opts)
[17:26:52.884]                 }
[17:26:52.884]                 {
[17:26:52.884]                   {
[17:26:52.884]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.884]                     NULL
[17:26:52.884]                   }
[17:26:52.884]                   options(future.plan = NULL)
[17:26:52.884]                   if (is.na(NA_character_)) 
[17:26:52.884]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.884]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.884]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.884]                     .init = FALSE)
[17:26:52.884]                 }
[17:26:52.884]             }
[17:26:52.884]         }
[17:26:52.884]     })
[17:26:52.884]     if (TRUE) {
[17:26:52.884]         base::sink(type = "output", split = FALSE)
[17:26:52.884]         if (TRUE) {
[17:26:52.884]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.884]         }
[17:26:52.884]         else {
[17:26:52.884]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.884]         }
[17:26:52.884]         base::close(...future.stdout)
[17:26:52.884]         ...future.stdout <- NULL
[17:26:52.884]     }
[17:26:52.884]     ...future.result$conditions <- ...future.conditions
[17:26:52.884]     ...future.result$finished <- base::Sys.time()
[17:26:52.884]     ...future.result
[17:26:52.884] }
[17:26:52.890] MultisessionFuture started
[17:26:52.890] - Launch lazy future ... done
[17:26:52.890] run() for 'MultisessionFuture' ... done
[17:26:52.891] result() for ClusterFuture ...
[17:26:52.891] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.891] - Validating connection of MultisessionFuture
[17:26:52.906] - received message: FutureResult
[17:26:52.906] - Received FutureResult
[17:26:52.906] - Erased future from FutureRegistry
[17:26:52.906] result() for ClusterFuture ...
[17:26:52.906] - result already collected: FutureResult
[17:26:52.907] result() for ClusterFuture ... done
[17:26:52.907] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.907] result() for ClusterFuture ... done
[17:26:52.907] result() for ClusterFuture ...
[17:26:52.907] - result already collected: FutureResult
[17:26:52.907] result() for ClusterFuture ... done

Call:
lm(formula = dist ~ speed + I(speed^2), data = cars)

Coefficients:
(Intercept)        speed   I(speed^2)  
    2.47014      0.91329      0.09996  

- Globals - lm(<formula #5 ('e')>, data = cars) ...

Call:
lm(formula = dist ~ poly(speed, 2), data = cars)

Coefficients:
    (Intercept)  poly(speed, 2)1  poly(speed, 2)2  
          42.98           145.55            23.00  

[17:26:52.911] getGlobalsAndPackages() ...
[17:26:52.911] Searching for globals...
[17:26:52.913] - globals found: [7] '{', 'lm', 'dist', 'poly', 'speed', '~', 'cars'
[17:26:52.913] Searching for globals ... DONE
[17:26:52.913] Resolving globals: FALSE
[17:26:52.914] 
[17:26:52.914] - packages: [2] 'stats', 'datasets'
[17:26:52.914] getGlobalsAndPackages() ... DONE
[17:26:52.914] run() for 'Future' ...
[17:26:52.915] - state: 'created'
[17:26:52.915] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.928] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.928] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.928]   - Field: 'node'
[17:26:52.929]   - Field: 'label'
[17:26:52.929]   - Field: 'local'
[17:26:52.929]   - Field: 'owner'
[17:26:52.929]   - Field: 'envir'
[17:26:52.929]   - Field: 'workers'
[17:26:52.929]   - Field: 'packages'
[17:26:52.930]   - Field: 'gc'
[17:26:52.930]   - Field: 'conditions'
[17:26:52.930]   - Field: 'persistent'
[17:26:52.930]   - Field: 'expr'
[17:26:52.930]   - Field: 'uuid'
[17:26:52.931]   - Field: 'seed'
[17:26:52.931]   - Field: 'version'
[17:26:52.931]   - Field: 'result'
[17:26:52.931]   - Field: 'asynchronous'
[17:26:52.931]   - Field: 'calls'
[17:26:52.931]   - Field: 'globals'
[17:26:52.932]   - Field: 'stdout'
[17:26:52.932]   - Field: 'earlySignal'
[17:26:52.932]   - Field: 'lazy'
[17:26:52.932]   - Field: 'state'
[17:26:52.932] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.932] - Launch lazy future ...
[17:26:52.933] Packages needed by the future expression (n = 2): 'stats', 'datasets'
[17:26:52.933] Packages needed by future strategies (n = 0): <none>
[17:26:52.934] {
[17:26:52.934]     {
[17:26:52.934]         {
[17:26:52.934]             ...future.startTime <- base::Sys.time()
[17:26:52.934]             {
[17:26:52.934]                 {
[17:26:52.934]                   {
[17:26:52.934]                     {
[17:26:52.934]                       {
[17:26:52.934]                         base::local({
[17:26:52.934]                           has_future <- base::requireNamespace("future", 
[17:26:52.934]                             quietly = TRUE)
[17:26:52.934]                           if (has_future) {
[17:26:52.934]                             ns <- base::getNamespace("future")
[17:26:52.934]                             version <- ns[[".package"]][["version"]]
[17:26:52.934]                             if (is.null(version)) 
[17:26:52.934]                               version <- utils::packageVersion("future")
[17:26:52.934]                           }
[17:26:52.934]                           else {
[17:26:52.934]                             version <- NULL
[17:26:52.934]                           }
[17:26:52.934]                           if (!has_future || version < "1.8.0") {
[17:26:52.934]                             info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.934]                               "", base::R.version$version.string), 
[17:26:52.934]                               platform = base::sprintf("%s (%s-bit)", 
[17:26:52.934]                                 base::R.version$platform, 8 * 
[17:26:52.934]                                   base::.Machine$sizeof.pointer), 
[17:26:52.934]                               os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.934]                                 "release", "version")], collapse = " "), 
[17:26:52.934]                               hostname = base::Sys.info()[["nodename"]])
[17:26:52.934]                             info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.934]                               info)
[17:26:52.934]                             info <- base::paste(info, collapse = "; ")
[17:26:52.934]                             if (!has_future) {
[17:26:52.934]                               msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.934]                                 info)
[17:26:52.934]                             }
[17:26:52.934]                             else {
[17:26:52.934]                               msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.934]                                 info, version)
[17:26:52.934]                             }
[17:26:52.934]                             base::stop(msg)
[17:26:52.934]                           }
[17:26:52.934]                         })
[17:26:52.934]                       }
[17:26:52.934]                       ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.934]                       base::options(mc.cores = 1L)
[17:26:52.934]                     }
[17:26:52.934]                     base::local({
[17:26:52.934]                       for (pkg in c("stats", "datasets")) {
[17:26:52.934]                         base::loadNamespace(pkg)
[17:26:52.934]                         base::library(pkg, character.only = TRUE)
[17:26:52.934]                       }
[17:26:52.934]                     })
[17:26:52.934]                   }
[17:26:52.934]                   ...future.strategy.old <- future::plan("list")
[17:26:52.934]                   options(future.plan = NULL)
[17:26:52.934]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.934]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.934]                 }
[17:26:52.934]                 ...future.workdir <- getwd()
[17:26:52.934]             }
[17:26:52.934]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.934]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.934]         }
[17:26:52.934]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.934]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.934]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.934]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.934]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.934]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.934]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.934]             base::names(...future.oldOptions))
[17:26:52.934]     }
[17:26:52.934]     if (FALSE) {
[17:26:52.934]     }
[17:26:52.934]     else {
[17:26:52.934]         if (TRUE) {
[17:26:52.934]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.934]                 open = "w")
[17:26:52.934]         }
[17:26:52.934]         else {
[17:26:52.934]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.934]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.934]         }
[17:26:52.934]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.934]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.934]             base::sink(type = "output", split = FALSE)
[17:26:52.934]             base::close(...future.stdout)
[17:26:52.934]         }, add = TRUE)
[17:26:52.934]     }
[17:26:52.934]     ...future.frame <- base::sys.nframe()
[17:26:52.934]     ...future.conditions <- base::list()
[17:26:52.934]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.934]     if (FALSE) {
[17:26:52.934]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.934]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.934]     }
[17:26:52.934]     ...future.result <- base::tryCatch({
[17:26:52.934]         base::withCallingHandlers({
[17:26:52.934]             ...future.value <- base::withVisible(base::local({
[17:26:52.934]                 ...future.makeSendCondition <- base::local({
[17:26:52.934]                   sendCondition <- NULL
[17:26:52.934]                   function(frame = 1L) {
[17:26:52.934]                     if (is.function(sendCondition)) 
[17:26:52.934]                       return(sendCondition)
[17:26:52.934]                     ns <- getNamespace("parallel")
[17:26:52.934]                     if (exists("sendData", mode = "function", 
[17:26:52.934]                       envir = ns)) {
[17:26:52.934]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.934]                         envir = ns)
[17:26:52.934]                       envir <- sys.frame(frame)
[17:26:52.934]                       master <- NULL
[17:26:52.934]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.934]                         !identical(envir, emptyenv())) {
[17:26:52.934]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.934]                           inherits = FALSE)) {
[17:26:52.934]                           master <- get("master", mode = "list", 
[17:26:52.934]                             envir = envir, inherits = FALSE)
[17:26:52.934]                           if (inherits(master, c("SOCKnode", 
[17:26:52.934]                             "SOCK0node"))) {
[17:26:52.934]                             sendCondition <<- function(cond) {
[17:26:52.934]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.934]                                 success = TRUE)
[17:26:52.934]                               parallel_sendData(master, data)
[17:26:52.934]                             }
[17:26:52.934]                             return(sendCondition)
[17:26:52.934]                           }
[17:26:52.934]                         }
[17:26:52.934]                         frame <- frame + 1L
[17:26:52.934]                         envir <- sys.frame(frame)
[17:26:52.934]                       }
[17:26:52.934]                     }
[17:26:52.934]                     sendCondition <<- function(cond) NULL
[17:26:52.934]                   }
[17:26:52.934]                 })
[17:26:52.934]                 withCallingHandlers({
[17:26:52.934]                   {
[17:26:52.934]                     lm(dist ~ poly(speed, 2), data = cars)
[17:26:52.934]                   }
[17:26:52.934]                 }, immediateCondition = function(cond) {
[17:26:52.934]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.934]                   sendCondition(cond)
[17:26:52.934]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.934]                   {
[17:26:52.934]                     inherits <- base::inherits
[17:26:52.934]                     invokeRestart <- base::invokeRestart
[17:26:52.934]                     is.null <- base::is.null
[17:26:52.934]                     muffled <- FALSE
[17:26:52.934]                     if (inherits(cond, "message")) {
[17:26:52.934]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.934]                       if (muffled) 
[17:26:52.934]                         invokeRestart("muffleMessage")
[17:26:52.934]                     }
[17:26:52.934]                     else if (inherits(cond, "warning")) {
[17:26:52.934]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.934]                       if (muffled) 
[17:26:52.934]                         invokeRestart("muffleWarning")
[17:26:52.934]                     }
[17:26:52.934]                     else if (inherits(cond, "condition")) {
[17:26:52.934]                       if (!is.null(pattern)) {
[17:26:52.934]                         computeRestarts <- base::computeRestarts
[17:26:52.934]                         grepl <- base::grepl
[17:26:52.934]                         restarts <- computeRestarts(cond)
[17:26:52.934]                         for (restart in restarts) {
[17:26:52.934]                           name <- restart$name
[17:26:52.934]                           if (is.null(name)) 
[17:26:52.934]                             next
[17:26:52.934]                           if (!grepl(pattern, name)) 
[17:26:52.934]                             next
[17:26:52.934]                           invokeRestart(restart)
[17:26:52.934]                           muffled <- TRUE
[17:26:52.934]                           break
[17:26:52.934]                         }
[17:26:52.934]                       }
[17:26:52.934]                     }
[17:26:52.934]                     invisible(muffled)
[17:26:52.934]                   }
[17:26:52.934]                   muffleCondition(cond)
[17:26:52.934]                 })
[17:26:52.934]             }))
[17:26:52.934]             future::FutureResult(value = ...future.value$value, 
[17:26:52.934]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.934]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.934]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.934]                     ...future.globalenv.names))
[17:26:52.934]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.934]         }, condition = base::local({
[17:26:52.934]             c <- base::c
[17:26:52.934]             inherits <- base::inherits
[17:26:52.934]             invokeRestart <- base::invokeRestart
[17:26:52.934]             length <- base::length
[17:26:52.934]             list <- base::list
[17:26:52.934]             seq.int <- base::seq.int
[17:26:52.934]             signalCondition <- base::signalCondition
[17:26:52.934]             sys.calls <- base::sys.calls
[17:26:52.934]             `[[` <- base::`[[`
[17:26:52.934]             `+` <- base::`+`
[17:26:52.934]             `<<-` <- base::`<<-`
[17:26:52.934]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.934]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.934]                   3L)]
[17:26:52.934]             }
[17:26:52.934]             function(cond) {
[17:26:52.934]                 is_error <- inherits(cond, "error")
[17:26:52.934]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.934]                   NULL)
[17:26:52.934]                 if (is_error) {
[17:26:52.934]                   sessionInformation <- function() {
[17:26:52.934]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.934]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.934]                       search = base::search(), system = base::Sys.info())
[17:26:52.934]                   }
[17:26:52.934]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.934]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.934]                     cond$call), session = sessionInformation(), 
[17:26:52.934]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.934]                   signalCondition(cond)
[17:26:52.934]                 }
[17:26:52.934]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.934]                 "immediateCondition"))) {
[17:26:52.934]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.934]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.934]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.934]                   if (TRUE && !signal) {
[17:26:52.934]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.934]                     {
[17:26:52.934]                       inherits <- base::inherits
[17:26:52.934]                       invokeRestart <- base::invokeRestart
[17:26:52.934]                       is.null <- base::is.null
[17:26:52.934]                       muffled <- FALSE
[17:26:52.934]                       if (inherits(cond, "message")) {
[17:26:52.934]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.934]                         if (muffled) 
[17:26:52.934]                           invokeRestart("muffleMessage")
[17:26:52.934]                       }
[17:26:52.934]                       else if (inherits(cond, "warning")) {
[17:26:52.934]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.934]                         if (muffled) 
[17:26:52.934]                           invokeRestart("muffleWarning")
[17:26:52.934]                       }
[17:26:52.934]                       else if (inherits(cond, "condition")) {
[17:26:52.934]                         if (!is.null(pattern)) {
[17:26:52.934]                           computeRestarts <- base::computeRestarts
[17:26:52.934]                           grepl <- base::grepl
[17:26:52.934]                           restarts <- computeRestarts(cond)
[17:26:52.934]                           for (restart in restarts) {
[17:26:52.934]                             name <- restart$name
[17:26:52.934]                             if (is.null(name)) 
[17:26:52.934]                               next
[17:26:52.934]                             if (!grepl(pattern, name)) 
[17:26:52.934]                               next
[17:26:52.934]                             invokeRestart(restart)
[17:26:52.934]                             muffled <- TRUE
[17:26:52.934]                             break
[17:26:52.934]                           }
[17:26:52.934]                         }
[17:26:52.934]                       }
[17:26:52.934]                       invisible(muffled)
[17:26:52.934]                     }
[17:26:52.934]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.934]                   }
[17:26:52.934]                 }
[17:26:52.934]                 else {
[17:26:52.934]                   if (TRUE) {
[17:26:52.934]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.934]                     {
[17:26:52.934]                       inherits <- base::inherits
[17:26:52.934]                       invokeRestart <- base::invokeRestart
[17:26:52.934]                       is.null <- base::is.null
[17:26:52.934]                       muffled <- FALSE
[17:26:52.934]                       if (inherits(cond, "message")) {
[17:26:52.934]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.934]                         if (muffled) 
[17:26:52.934]                           invokeRestart("muffleMessage")
[17:26:52.934]                       }
[17:26:52.934]                       else if (inherits(cond, "warning")) {
[17:26:52.934]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.934]                         if (muffled) 
[17:26:52.934]                           invokeRestart("muffleWarning")
[17:26:52.934]                       }
[17:26:52.934]                       else if (inherits(cond, "condition")) {
[17:26:52.934]                         if (!is.null(pattern)) {
[17:26:52.934]                           computeRestarts <- base::computeRestarts
[17:26:52.934]                           grepl <- base::grepl
[17:26:52.934]                           restarts <- computeRestarts(cond)
[17:26:52.934]                           for (restart in restarts) {
[17:26:52.934]                             name <- restart$name
[17:26:52.934]                             if (is.null(name)) 
[17:26:52.934]                               next
[17:26:52.934]                             if (!grepl(pattern, name)) 
[17:26:52.934]                               next
[17:26:52.934]                             invokeRestart(restart)
[17:26:52.934]                             muffled <- TRUE
[17:26:52.934]                             break
[17:26:52.934]                           }
[17:26:52.934]                         }
[17:26:52.934]                       }
[17:26:52.934]                       invisible(muffled)
[17:26:52.934]                     }
[17:26:52.934]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.934]                   }
[17:26:52.934]                 }
[17:26:52.934]             }
[17:26:52.934]         }))
[17:26:52.934]     }, error = function(ex) {
[17:26:52.934]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.934]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.934]                 ...future.rng), started = ...future.startTime, 
[17:26:52.934]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.934]             version = "1.8"), class = "FutureResult")
[17:26:52.934]     }, finally = {
[17:26:52.934]         if (!identical(...future.workdir, getwd())) 
[17:26:52.934]             setwd(...future.workdir)
[17:26:52.934]         {
[17:26:52.934]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.934]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.934]             }
[17:26:52.934]             base::options(...future.oldOptions)
[17:26:52.934]             if (.Platform$OS.type == "windows") {
[17:26:52.934]                 old_names <- names(...future.oldEnvVars)
[17:26:52.934]                 envs <- base::Sys.getenv()
[17:26:52.934]                 names <- names(envs)
[17:26:52.934]                 common <- intersect(names, old_names)
[17:26:52.934]                 added <- setdiff(names, old_names)
[17:26:52.934]                 removed <- setdiff(old_names, names)
[17:26:52.934]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.934]                   envs[common]]
[17:26:52.934]                 NAMES <- toupper(changed)
[17:26:52.934]                 args <- list()
[17:26:52.934]                 for (kk in seq_along(NAMES)) {
[17:26:52.934]                   name <- changed[[kk]]
[17:26:52.934]                   NAME <- NAMES[[kk]]
[17:26:52.934]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.934]                     next
[17:26:52.934]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.934]                 }
[17:26:52.934]                 NAMES <- toupper(added)
[17:26:52.934]                 for (kk in seq_along(NAMES)) {
[17:26:52.934]                   name <- added[[kk]]
[17:26:52.934]                   NAME <- NAMES[[kk]]
[17:26:52.934]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.934]                     next
[17:26:52.934]                   args[[name]] <- ""
[17:26:52.934]                 }
[17:26:52.934]                 NAMES <- toupper(removed)
[17:26:52.934]                 for (kk in seq_along(NAMES)) {
[17:26:52.934]                   name <- removed[[kk]]
[17:26:52.934]                   NAME <- NAMES[[kk]]
[17:26:52.934]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.934]                     next
[17:26:52.934]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.934]                 }
[17:26:52.934]                 if (length(args) > 0) 
[17:26:52.934]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.934]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.934]             }
[17:26:52.934]             else {
[17:26:52.934]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.934]             }
[17:26:52.934]             {
[17:26:52.934]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.934]                   0L) {
[17:26:52.934]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.934]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.934]                   base::options(opts)
[17:26:52.934]                 }
[17:26:52.934]                 {
[17:26:52.934]                   {
[17:26:52.934]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.934]                     NULL
[17:26:52.934]                   }
[17:26:52.934]                   options(future.plan = NULL)
[17:26:52.934]                   if (is.na(NA_character_)) 
[17:26:52.934]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.934]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.934]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.934]                     .init = FALSE)
[17:26:52.934]                 }
[17:26:52.934]             }
[17:26:52.934]         }
[17:26:52.934]     })
[17:26:52.934]     if (TRUE) {
[17:26:52.934]         base::sink(type = "output", split = FALSE)
[17:26:52.934]         if (TRUE) {
[17:26:52.934]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.934]         }
[17:26:52.934]         else {
[17:26:52.934]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.934]         }
[17:26:52.934]         base::close(...future.stdout)
[17:26:52.934]         ...future.stdout <- NULL
[17:26:52.934]     }
[17:26:52.934]     ...future.result$conditions <- ...future.conditions
[17:26:52.934]     ...future.result$finished <- base::Sys.time()
[17:26:52.934]     ...future.result
[17:26:52.934] }
[17:26:52.939] MultisessionFuture started
[17:26:52.939] - Launch lazy future ... done
[17:26:52.940] run() for 'MultisessionFuture' ... done
[17:26:52.940] result() for ClusterFuture ...
[17:26:52.940] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.940] - Validating connection of MultisessionFuture
[17:26:52.955] - received message: FutureResult
[17:26:52.955] - Received FutureResult
[17:26:52.956] - Erased future from FutureRegistry
[17:26:52.956] result() for ClusterFuture ...
[17:26:52.956] - result already collected: FutureResult
[17:26:52.956] result() for ClusterFuture ... done
[17:26:52.956] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:52.956] result() for ClusterFuture ... done
[17:26:52.957] result() for ClusterFuture ...
[17:26:52.957] - result already collected: FutureResult
[17:26:52.957] result() for ClusterFuture ... done

Call:
lm(formula = dist ~ poly(speed, 2), data = cars)

Coefficients:
    (Intercept)  poly(speed, 2)1  poly(speed, 2)2  
          42.98           145.55            23.00  

- Globals - map(x, ~ expr) ...
[17:26:52.959] getGlobalsAndPackages() ...
[17:26:52.959] Searching for globals...
[17:26:52.964] - globals found: [16] '{', 'outer_function', 'map', ':', '~', 'inner_function', '.x', 'if', 'inherits', '<-', '[[', '-', 'eval', 'bquote', 'lapply', '+'
[17:26:52.965] Searching for globals ... DONE
[17:26:52.965] Resolving globals: FALSE
[17:26:52.966] The total size of the 3 globals is 7.52 KiB (7704 bytes)
[17:26:52.966] The total size of the 3 globals exported for future expression ('{; outer_function(1L); }') is 7.52 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'map' (4.43 KiB of class 'function'), 'inner_function' (1.78 KiB of class 'function') and 'outer_function' (1.31 KiB of class 'function')
[17:26:52.966] - globals: [3] 'outer_function', 'map', 'inner_function'
[17:26:52.967] 
[17:26:52.967] getGlobalsAndPackages() ... DONE
[17:26:52.967] run() for 'Future' ...
[17:26:52.967] - state: 'created'
[17:26:52.967] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:52.981] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:52.981] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:52.981]   - Field: 'node'
[17:26:52.981]   - Field: 'label'
[17:26:52.982]   - Field: 'local'
[17:26:52.982]   - Field: 'owner'
[17:26:52.982]   - Field: 'envir'
[17:26:52.982]   - Field: 'workers'
[17:26:52.982]   - Field: 'packages'
[17:26:52.983]   - Field: 'gc'
[17:26:52.983]   - Field: 'conditions'
[17:26:52.983]   - Field: 'persistent'
[17:26:52.983]   - Field: 'expr'
[17:26:52.983]   - Field: 'uuid'
[17:26:52.983]   - Field: 'seed'
[17:26:52.984]   - Field: 'version'
[17:26:52.984]   - Field: 'result'
[17:26:52.984]   - Field: 'asynchronous'
[17:26:52.984]   - Field: 'calls'
[17:26:52.984]   - Field: 'globals'
[17:26:52.985]   - Field: 'stdout'
[17:26:52.985]   - Field: 'earlySignal'
[17:26:52.985]   - Field: 'lazy'
[17:26:52.985]   - Field: 'state'
[17:26:52.985] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:52.985] - Launch lazy future ...
[17:26:52.986] Packages needed by the future expression (n = 0): <none>
[17:26:52.986] Packages needed by future strategies (n = 0): <none>
[17:26:52.986] {
[17:26:52.986]     {
[17:26:52.986]         {
[17:26:52.986]             ...future.startTime <- base::Sys.time()
[17:26:52.986]             {
[17:26:52.986]                 {
[17:26:52.986]                   {
[17:26:52.986]                     {
[17:26:52.986]                       base::local({
[17:26:52.986]                         has_future <- base::requireNamespace("future", 
[17:26:52.986]                           quietly = TRUE)
[17:26:52.986]                         if (has_future) {
[17:26:52.986]                           ns <- base::getNamespace("future")
[17:26:52.986]                           version <- ns[[".package"]][["version"]]
[17:26:52.986]                           if (is.null(version)) 
[17:26:52.986]                             version <- utils::packageVersion("future")
[17:26:52.986]                         }
[17:26:52.986]                         else {
[17:26:52.986]                           version <- NULL
[17:26:52.986]                         }
[17:26:52.986]                         if (!has_future || version < "1.8.0") {
[17:26:52.986]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:52.986]                             "", base::R.version$version.string), 
[17:26:52.986]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:52.986]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:52.986]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:52.986]                               "release", "version")], collapse = " "), 
[17:26:52.986]                             hostname = base::Sys.info()[["nodename"]])
[17:26:52.986]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:52.986]                             info)
[17:26:52.986]                           info <- base::paste(info, collapse = "; ")
[17:26:52.986]                           if (!has_future) {
[17:26:52.986]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:52.986]                               info)
[17:26:52.986]                           }
[17:26:52.986]                           else {
[17:26:52.986]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:52.986]                               info, version)
[17:26:52.986]                           }
[17:26:52.986]                           base::stop(msg)
[17:26:52.986]                         }
[17:26:52.986]                       })
[17:26:52.986]                     }
[17:26:52.986]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:52.986]                     base::options(mc.cores = 1L)
[17:26:52.986]                   }
[17:26:52.986]                   ...future.strategy.old <- future::plan("list")
[17:26:52.986]                   options(future.plan = NULL)
[17:26:52.986]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.986]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:52.986]                 }
[17:26:52.986]                 ...future.workdir <- getwd()
[17:26:52.986]             }
[17:26:52.986]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:52.986]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:52.986]         }
[17:26:52.986]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:52.986]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:52.986]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:52.986]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:52.986]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:52.986]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:52.986]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:52.986]             base::names(...future.oldOptions))
[17:26:52.986]     }
[17:26:52.986]     if (FALSE) {
[17:26:52.986]     }
[17:26:52.986]     else {
[17:26:52.986]         if (TRUE) {
[17:26:52.986]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:52.986]                 open = "w")
[17:26:52.986]         }
[17:26:52.986]         else {
[17:26:52.986]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:52.986]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:52.986]         }
[17:26:52.986]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:52.986]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:52.986]             base::sink(type = "output", split = FALSE)
[17:26:52.986]             base::close(...future.stdout)
[17:26:52.986]         }, add = TRUE)
[17:26:52.986]     }
[17:26:52.986]     ...future.frame <- base::sys.nframe()
[17:26:52.986]     ...future.conditions <- base::list()
[17:26:52.986]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:52.986]     if (FALSE) {
[17:26:52.986]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:52.986]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:52.986]     }
[17:26:52.986]     ...future.result <- base::tryCatch({
[17:26:52.986]         base::withCallingHandlers({
[17:26:52.986]             ...future.value <- base::withVisible(base::local({
[17:26:52.986]                 ...future.makeSendCondition <- base::local({
[17:26:52.986]                   sendCondition <- NULL
[17:26:52.986]                   function(frame = 1L) {
[17:26:52.986]                     if (is.function(sendCondition)) 
[17:26:52.986]                       return(sendCondition)
[17:26:52.986]                     ns <- getNamespace("parallel")
[17:26:52.986]                     if (exists("sendData", mode = "function", 
[17:26:52.986]                       envir = ns)) {
[17:26:52.986]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:52.986]                         envir = ns)
[17:26:52.986]                       envir <- sys.frame(frame)
[17:26:52.986]                       master <- NULL
[17:26:52.986]                       while (!identical(envir, .GlobalEnv) && 
[17:26:52.986]                         !identical(envir, emptyenv())) {
[17:26:52.986]                         if (exists("master", mode = "list", envir = envir, 
[17:26:52.986]                           inherits = FALSE)) {
[17:26:52.986]                           master <- get("master", mode = "list", 
[17:26:52.986]                             envir = envir, inherits = FALSE)
[17:26:52.986]                           if (inherits(master, c("SOCKnode", 
[17:26:52.986]                             "SOCK0node"))) {
[17:26:52.986]                             sendCondition <<- function(cond) {
[17:26:52.986]                               data <- list(type = "VALUE", value = cond, 
[17:26:52.986]                                 success = TRUE)
[17:26:52.986]                               parallel_sendData(master, data)
[17:26:52.986]                             }
[17:26:52.986]                             return(sendCondition)
[17:26:52.986]                           }
[17:26:52.986]                         }
[17:26:52.986]                         frame <- frame + 1L
[17:26:52.986]                         envir <- sys.frame(frame)
[17:26:52.986]                       }
[17:26:52.986]                     }
[17:26:52.986]                     sendCondition <<- function(cond) NULL
[17:26:52.986]                   }
[17:26:52.986]                 })
[17:26:52.986]                 withCallingHandlers({
[17:26:52.986]                   {
[17:26:52.986]                     outer_function(1L)
[17:26:52.986]                   }
[17:26:52.986]                 }, immediateCondition = function(cond) {
[17:26:52.986]                   sendCondition <- ...future.makeSendCondition()
[17:26:52.986]                   sendCondition(cond)
[17:26:52.986]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.986]                   {
[17:26:52.986]                     inherits <- base::inherits
[17:26:52.986]                     invokeRestart <- base::invokeRestart
[17:26:52.986]                     is.null <- base::is.null
[17:26:52.986]                     muffled <- FALSE
[17:26:52.986]                     if (inherits(cond, "message")) {
[17:26:52.986]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:52.986]                       if (muffled) 
[17:26:52.986]                         invokeRestart("muffleMessage")
[17:26:52.986]                     }
[17:26:52.986]                     else if (inherits(cond, "warning")) {
[17:26:52.986]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:52.986]                       if (muffled) 
[17:26:52.986]                         invokeRestart("muffleWarning")
[17:26:52.986]                     }
[17:26:52.986]                     else if (inherits(cond, "condition")) {
[17:26:52.986]                       if (!is.null(pattern)) {
[17:26:52.986]                         computeRestarts <- base::computeRestarts
[17:26:52.986]                         grepl <- base::grepl
[17:26:52.986]                         restarts <- computeRestarts(cond)
[17:26:52.986]                         for (restart in restarts) {
[17:26:52.986]                           name <- restart$name
[17:26:52.986]                           if (is.null(name)) 
[17:26:52.986]                             next
[17:26:52.986]                           if (!grepl(pattern, name)) 
[17:26:52.986]                             next
[17:26:52.986]                           invokeRestart(restart)
[17:26:52.986]                           muffled <- TRUE
[17:26:52.986]                           break
[17:26:52.986]                         }
[17:26:52.986]                       }
[17:26:52.986]                     }
[17:26:52.986]                     invisible(muffled)
[17:26:52.986]                   }
[17:26:52.986]                   muffleCondition(cond)
[17:26:52.986]                 })
[17:26:52.986]             }))
[17:26:52.986]             future::FutureResult(value = ...future.value$value, 
[17:26:52.986]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.986]                   ...future.rng), globalenv = if (FALSE) 
[17:26:52.986]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:52.986]                     ...future.globalenv.names))
[17:26:52.986]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:52.986]         }, condition = base::local({
[17:26:52.986]             c <- base::c
[17:26:52.986]             inherits <- base::inherits
[17:26:52.986]             invokeRestart <- base::invokeRestart
[17:26:52.986]             length <- base::length
[17:26:52.986]             list <- base::list
[17:26:52.986]             seq.int <- base::seq.int
[17:26:52.986]             signalCondition <- base::signalCondition
[17:26:52.986]             sys.calls <- base::sys.calls
[17:26:52.986]             `[[` <- base::`[[`
[17:26:52.986]             `+` <- base::`+`
[17:26:52.986]             `<<-` <- base::`<<-`
[17:26:52.986]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:52.986]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:52.986]                   3L)]
[17:26:52.986]             }
[17:26:52.986]             function(cond) {
[17:26:52.986]                 is_error <- inherits(cond, "error")
[17:26:52.986]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:52.986]                   NULL)
[17:26:52.986]                 if (is_error) {
[17:26:52.986]                   sessionInformation <- function() {
[17:26:52.986]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:52.986]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:52.986]                       search = base::search(), system = base::Sys.info())
[17:26:52.986]                   }
[17:26:52.986]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.986]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:52.986]                     cond$call), session = sessionInformation(), 
[17:26:52.986]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:52.986]                   signalCondition(cond)
[17:26:52.986]                 }
[17:26:52.986]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:52.986]                 "immediateCondition"))) {
[17:26:52.986]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:52.986]                   ...future.conditions[[length(...future.conditions) + 
[17:26:52.986]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:52.986]                   if (TRUE && !signal) {
[17:26:52.986]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.986]                     {
[17:26:52.986]                       inherits <- base::inherits
[17:26:52.986]                       invokeRestart <- base::invokeRestart
[17:26:52.986]                       is.null <- base::is.null
[17:26:52.986]                       muffled <- FALSE
[17:26:52.986]                       if (inherits(cond, "message")) {
[17:26:52.986]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.986]                         if (muffled) 
[17:26:52.986]                           invokeRestart("muffleMessage")
[17:26:52.986]                       }
[17:26:52.986]                       else if (inherits(cond, "warning")) {
[17:26:52.986]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.986]                         if (muffled) 
[17:26:52.986]                           invokeRestart("muffleWarning")
[17:26:52.986]                       }
[17:26:52.986]                       else if (inherits(cond, "condition")) {
[17:26:52.986]                         if (!is.null(pattern)) {
[17:26:52.986]                           computeRestarts <- base::computeRestarts
[17:26:52.986]                           grepl <- base::grepl
[17:26:52.986]                           restarts <- computeRestarts(cond)
[17:26:52.986]                           for (restart in restarts) {
[17:26:52.986]                             name <- restart$name
[17:26:52.986]                             if (is.null(name)) 
[17:26:52.986]                               next
[17:26:52.986]                             if (!grepl(pattern, name)) 
[17:26:52.986]                               next
[17:26:52.986]                             invokeRestart(restart)
[17:26:52.986]                             muffled <- TRUE
[17:26:52.986]                             break
[17:26:52.986]                           }
[17:26:52.986]                         }
[17:26:52.986]                       }
[17:26:52.986]                       invisible(muffled)
[17:26:52.986]                     }
[17:26:52.986]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.986]                   }
[17:26:52.986]                 }
[17:26:52.986]                 else {
[17:26:52.986]                   if (TRUE) {
[17:26:52.986]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:52.986]                     {
[17:26:52.986]                       inherits <- base::inherits
[17:26:52.986]                       invokeRestart <- base::invokeRestart
[17:26:52.986]                       is.null <- base::is.null
[17:26:52.986]                       muffled <- FALSE
[17:26:52.986]                       if (inherits(cond, "message")) {
[17:26:52.986]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:52.986]                         if (muffled) 
[17:26:52.986]                           invokeRestart("muffleMessage")
[17:26:52.986]                       }
[17:26:52.986]                       else if (inherits(cond, "warning")) {
[17:26:52.986]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:52.986]                         if (muffled) 
[17:26:52.986]                           invokeRestart("muffleWarning")
[17:26:52.986]                       }
[17:26:52.986]                       else if (inherits(cond, "condition")) {
[17:26:52.986]                         if (!is.null(pattern)) {
[17:26:52.986]                           computeRestarts <- base::computeRestarts
[17:26:52.986]                           grepl <- base::grepl
[17:26:52.986]                           restarts <- computeRestarts(cond)
[17:26:52.986]                           for (restart in restarts) {
[17:26:52.986]                             name <- restart$name
[17:26:52.986]                             if (is.null(name)) 
[17:26:52.986]                               next
[17:26:52.986]                             if (!grepl(pattern, name)) 
[17:26:52.986]                               next
[17:26:52.986]                             invokeRestart(restart)
[17:26:52.986]                             muffled <- TRUE
[17:26:52.986]                             break
[17:26:52.986]                           }
[17:26:52.986]                         }
[17:26:52.986]                       }
[17:26:52.986]                       invisible(muffled)
[17:26:52.986]                     }
[17:26:52.986]                     muffleCondition(cond, pattern = "^muffle")
[17:26:52.986]                   }
[17:26:52.986]                 }
[17:26:52.986]             }
[17:26:52.986]         }))
[17:26:52.986]     }, error = function(ex) {
[17:26:52.986]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:52.986]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:52.986]                 ...future.rng), started = ...future.startTime, 
[17:26:52.986]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:52.986]             version = "1.8"), class = "FutureResult")
[17:26:52.986]     }, finally = {
[17:26:52.986]         if (!identical(...future.workdir, getwd())) 
[17:26:52.986]             setwd(...future.workdir)
[17:26:52.986]         {
[17:26:52.986]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:52.986]                 ...future.oldOptions$nwarnings <- NULL
[17:26:52.986]             }
[17:26:52.986]             base::options(...future.oldOptions)
[17:26:52.986]             if (.Platform$OS.type == "windows") {
[17:26:52.986]                 old_names <- names(...future.oldEnvVars)
[17:26:52.986]                 envs <- base::Sys.getenv()
[17:26:52.986]                 names <- names(envs)
[17:26:52.986]                 common <- intersect(names, old_names)
[17:26:52.986]                 added <- setdiff(names, old_names)
[17:26:52.986]                 removed <- setdiff(old_names, names)
[17:26:52.986]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:52.986]                   envs[common]]
[17:26:52.986]                 NAMES <- toupper(changed)
[17:26:52.986]                 args <- list()
[17:26:52.986]                 for (kk in seq_along(NAMES)) {
[17:26:52.986]                   name <- changed[[kk]]
[17:26:52.986]                   NAME <- NAMES[[kk]]
[17:26:52.986]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.986]                     next
[17:26:52.986]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.986]                 }
[17:26:52.986]                 NAMES <- toupper(added)
[17:26:52.986]                 for (kk in seq_along(NAMES)) {
[17:26:52.986]                   name <- added[[kk]]
[17:26:52.986]                   NAME <- NAMES[[kk]]
[17:26:52.986]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.986]                     next
[17:26:52.986]                   args[[name]] <- ""
[17:26:52.986]                 }
[17:26:52.986]                 NAMES <- toupper(removed)
[17:26:52.986]                 for (kk in seq_along(NAMES)) {
[17:26:52.986]                   name <- removed[[kk]]
[17:26:52.986]                   NAME <- NAMES[[kk]]
[17:26:52.986]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:52.986]                     next
[17:26:52.986]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:52.986]                 }
[17:26:52.986]                 if (length(args) > 0) 
[17:26:52.986]                   base::do.call(base::Sys.setenv, args = args)
[17:26:52.986]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:52.986]             }
[17:26:52.986]             else {
[17:26:52.986]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:52.986]             }
[17:26:52.986]             {
[17:26:52.986]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:52.986]                   0L) {
[17:26:52.986]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:52.986]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:52.986]                   base::options(opts)
[17:26:52.986]                 }
[17:26:52.986]                 {
[17:26:52.986]                   {
[17:26:52.986]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:52.986]                     NULL
[17:26:52.986]                   }
[17:26:52.986]                   options(future.plan = NULL)
[17:26:52.986]                   if (is.na(NA_character_)) 
[17:26:52.986]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:52.986]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:52.986]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:52.986]                     .init = FALSE)
[17:26:52.986]                 }
[17:26:52.986]             }
[17:26:52.986]         }
[17:26:52.986]     })
[17:26:52.986]     if (TRUE) {
[17:26:52.986]         base::sink(type = "output", split = FALSE)
[17:26:52.986]         if (TRUE) {
[17:26:52.986]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:52.986]         }
[17:26:52.986]         else {
[17:26:52.986]             ...future.result["stdout"] <- base::list(NULL)
[17:26:52.986]         }
[17:26:52.986]         base::close(...future.stdout)
[17:26:52.986]         ...future.stdout <- NULL
[17:26:52.986]     }
[17:26:52.986]     ...future.result$conditions <- ...future.conditions
[17:26:52.986]     ...future.result$finished <- base::Sys.time()
[17:26:52.986]     ...future.result
[17:26:52.986] }
[17:26:52.993] Exporting 3 global objects (7.52 KiB) to cluster node #1 ...
[17:26:52.994] Exporting 'outer_function' (1.31 KiB) to cluster node #1 ...
[17:26:52.994] Exporting 'outer_function' (1.31 KiB) to cluster node #1 ... DONE
[17:26:52.994] Exporting 'map' (4.43 KiB) to cluster node #1 ...
[17:26:52.995] Exporting 'map' (4.43 KiB) to cluster node #1 ... DONE
[17:26:52.995] Exporting 'inner_function' (1.78 KiB) to cluster node #1 ...
[17:26:52.995] Exporting 'inner_function' (1.78 KiB) to cluster node #1 ... DONE
[17:26:52.996] Exporting 3 global objects (7.52 KiB) to cluster node #1 ... DONE
[17:26:52.996] MultisessionFuture started
[17:26:52.996] - Launch lazy future ... done
[17:26:52.997] run() for 'MultisessionFuture' ... done
[17:26:52.997] result() for ClusterFuture ...
[17:26:52.997] receiveMessageFromWorker() for ClusterFuture ...
[17:26:52.997] - Validating connection of MultisessionFuture
[17:26:53.016] - received message: FutureResult
[17:26:53.016] - Received FutureResult
[17:26:53.016] - Erased future from FutureRegistry
[17:26:53.016] result() for ClusterFuture ...
[17:26:53.016] - result already collected: FutureResult
[17:26:53.016] result() for ClusterFuture ... done
[17:26:53.017] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:53.017] result() for ClusterFuture ... done
[17:26:53.017] result() for ClusterFuture ...
[17:26:53.017] - result already collected: FutureResult
[17:26:53.017] result() for ClusterFuture ... done
List of 2
 $ : num [1:2] 2 3
 $ : num [1:2] 2 3
[17:26:53.019] getGlobalsAndPackages() ...
[17:26:53.019] Searching for globals...
[17:26:53.024] - globals found: [16] '{', 'outer_function', 'map', ':', '~', 'inner_function', '.x', 'if', 'inherits', '<-', '[[', '-', 'eval', 'bquote', 'lapply', '+'
[17:26:53.024] Searching for globals ... DONE
[17:26:53.024] Resolving globals: FALSE
[17:26:53.025] The total size of the 3 globals is 7.52 KiB (7704 bytes)
[17:26:53.026] The total size of the 3 globals exported for future expression ('{; outer_function(1L); }') is 7.52 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'map' (4.43 KiB of class 'function'), 'inner_function' (1.78 KiB of class 'function') and 'outer_function' (1.31 KiB of class 'function')
[17:26:53.026] - globals: [3] 'outer_function', 'map', 'inner_function'
[17:26:53.026] 
[17:26:53.026] getGlobalsAndPackages() ... DONE
[17:26:53.026] run() for 'Future' ...
[17:26:53.027] - state: 'created'
[17:26:53.027] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[17:26:53.041] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[17:26:53.041] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[17:26:53.042]   - Field: 'node'
[17:26:53.042]   - Field: 'label'
[17:26:53.042]   - Field: 'local'
[17:26:53.042]   - Field: 'owner'
[17:26:53.042]   - Field: 'envir'
[17:26:53.042]   - Field: 'workers'
[17:26:53.043]   - Field: 'packages'
[17:26:53.043]   - Field: 'gc'
[17:26:53.043]   - Field: 'conditions'
[17:26:53.043]   - Field: 'persistent'
[17:26:53.043]   - Field: 'expr'
[17:26:53.044]   - Field: 'uuid'
[17:26:53.044]   - Field: 'seed'
[17:26:53.044]   - Field: 'version'
[17:26:53.044]   - Field: 'result'
[17:26:53.044]   - Field: 'asynchronous'
[17:26:53.044]   - Field: 'calls'
[17:26:53.045]   - Field: 'globals'
[17:26:53.045]   - Field: 'stdout'
[17:26:53.045]   - Field: 'earlySignal'
[17:26:53.045]   - Field: 'lazy'
[17:26:53.045]   - Field: 'state'
[17:26:53.046] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[17:26:53.046] - Launch lazy future ...
[17:26:53.046] Packages needed by the future expression (n = 0): <none>
[17:26:53.046] Packages needed by future strategies (n = 0): <none>
[17:26:53.047] {
[17:26:53.047]     {
[17:26:53.047]         {
[17:26:53.047]             ...future.startTime <- base::Sys.time()
[17:26:53.047]             {
[17:26:53.047]                 {
[17:26:53.047]                   {
[17:26:53.047]                     {
[17:26:53.047]                       base::local({
[17:26:53.047]                         has_future <- base::requireNamespace("future", 
[17:26:53.047]                           quietly = TRUE)
[17:26:53.047]                         if (has_future) {
[17:26:53.047]                           ns <- base::getNamespace("future")
[17:26:53.047]                           version <- ns[[".package"]][["version"]]
[17:26:53.047]                           if (is.null(version)) 
[17:26:53.047]                             version <- utils::packageVersion("future")
[17:26:53.047]                         }
[17:26:53.047]                         else {
[17:26:53.047]                           version <- NULL
[17:26:53.047]                         }
[17:26:53.047]                         if (!has_future || version < "1.8.0") {
[17:26:53.047]                           info <- base::c(r_version = base::gsub("R version ", 
[17:26:53.047]                             "", base::R.version$version.string), 
[17:26:53.047]                             platform = base::sprintf("%s (%s-bit)", 
[17:26:53.047]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[17:26:53.047]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[17:26:53.047]                               "release", "version")], collapse = " "), 
[17:26:53.047]                             hostname = base::Sys.info()[["nodename"]])
[17:26:53.047]                           info <- base::sprintf("%s: %s", base::names(info), 
[17:26:53.047]                             info)
[17:26:53.047]                           info <- base::paste(info, collapse = "; ")
[17:26:53.047]                           if (!has_future) {
[17:26:53.047]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[17:26:53.047]                               info)
[17:26:53.047]                           }
[17:26:53.047]                           else {
[17:26:53.047]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[17:26:53.047]                               info, version)
[17:26:53.047]                           }
[17:26:53.047]                           base::stop(msg)
[17:26:53.047]                         }
[17:26:53.047]                       })
[17:26:53.047]                     }
[17:26:53.047]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[17:26:53.047]                     base::options(mc.cores = 1L)
[17:26:53.047]                   }
[17:26:53.047]                   ...future.strategy.old <- future::plan("list")
[17:26:53.047]                   options(future.plan = NULL)
[17:26:53.047]                   Sys.unsetenv("R_FUTURE_PLAN")
[17:26:53.047]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[17:26:53.047]                 }
[17:26:53.047]                 ...future.workdir <- getwd()
[17:26:53.047]             }
[17:26:53.047]             ...future.oldOptions <- base::as.list(base::.Options)
[17:26:53.047]             ...future.oldEnvVars <- base::Sys.getenv()
[17:26:53.047]         }
[17:26:53.047]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[17:26:53.047]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[17:26:53.047]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[17:26:53.047]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[17:26:53.047]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[17:26:53.047]             future.stdout.windows.reencode = NULL, width = 80L)
[17:26:53.047]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[17:26:53.047]             base::names(...future.oldOptions))
[17:26:53.047]     }
[17:26:53.047]     if (FALSE) {
[17:26:53.047]     }
[17:26:53.047]     else {
[17:26:53.047]         if (TRUE) {
[17:26:53.047]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[17:26:53.047]                 open = "w")
[17:26:53.047]         }
[17:26:53.047]         else {
[17:26:53.047]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[17:26:53.047]                 windows = "NUL", "/dev/null"), open = "w")
[17:26:53.047]         }
[17:26:53.047]         base::sink(...future.stdout, type = "output", split = FALSE)
[17:26:53.047]         base::on.exit(if (!base::is.null(...future.stdout)) {
[17:26:53.047]             base::sink(type = "output", split = FALSE)
[17:26:53.047]             base::close(...future.stdout)
[17:26:53.047]         }, add = TRUE)
[17:26:53.047]     }
[17:26:53.047]     ...future.frame <- base::sys.nframe()
[17:26:53.047]     ...future.conditions <- base::list()
[17:26:53.047]     ...future.rng <- base::globalenv()$.Random.seed
[17:26:53.047]     if (FALSE) {
[17:26:53.047]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[17:26:53.047]             "...future.value", "...future.globalenv.names", ".Random.seed")
[17:26:53.047]     }
[17:26:53.047]     ...future.result <- base::tryCatch({
[17:26:53.047]         base::withCallingHandlers({
[17:26:53.047]             ...future.value <- base::withVisible(base::local({
[17:26:53.047]                 ...future.makeSendCondition <- base::local({
[17:26:53.047]                   sendCondition <- NULL
[17:26:53.047]                   function(frame = 1L) {
[17:26:53.047]                     if (is.function(sendCondition)) 
[17:26:53.047]                       return(sendCondition)
[17:26:53.047]                     ns <- getNamespace("parallel")
[17:26:53.047]                     if (exists("sendData", mode = "function", 
[17:26:53.047]                       envir = ns)) {
[17:26:53.047]                       parallel_sendData <- get("sendData", mode = "function", 
[17:26:53.047]                         envir = ns)
[17:26:53.047]                       envir <- sys.frame(frame)
[17:26:53.047]                       master <- NULL
[17:26:53.047]                       while (!identical(envir, .GlobalEnv) && 
[17:26:53.047]                         !identical(envir, emptyenv())) {
[17:26:53.047]                         if (exists("master", mode = "list", envir = envir, 
[17:26:53.047]                           inherits = FALSE)) {
[17:26:53.047]                           master <- get("master", mode = "list", 
[17:26:53.047]                             envir = envir, inherits = FALSE)
[17:26:53.047]                           if (inherits(master, c("SOCKnode", 
[17:26:53.047]                             "SOCK0node"))) {
[17:26:53.047]                             sendCondition <<- function(cond) {
[17:26:53.047]                               data <- list(type = "VALUE", value = cond, 
[17:26:53.047]                                 success = TRUE)
[17:26:53.047]                               parallel_sendData(master, data)
[17:26:53.047]                             }
[17:26:53.047]                             return(sendCondition)
[17:26:53.047]                           }
[17:26:53.047]                         }
[17:26:53.047]                         frame <- frame + 1L
[17:26:53.047]                         envir <- sys.frame(frame)
[17:26:53.047]                       }
[17:26:53.047]                     }
[17:26:53.047]                     sendCondition <<- function(cond) NULL
[17:26:53.047]                   }
[17:26:53.047]                 })
[17:26:53.047]                 withCallingHandlers({
[17:26:53.047]                   {
[17:26:53.047]                     outer_function(1L)
[17:26:53.047]                   }
[17:26:53.047]                 }, immediateCondition = function(cond) {
[17:26:53.047]                   sendCondition <- ...future.makeSendCondition()
[17:26:53.047]                   sendCondition(cond)
[17:26:53.047]                   muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:53.047]                   {
[17:26:53.047]                     inherits <- base::inherits
[17:26:53.047]                     invokeRestart <- base::invokeRestart
[17:26:53.047]                     is.null <- base::is.null
[17:26:53.047]                     muffled <- FALSE
[17:26:53.047]                     if (inherits(cond, "message")) {
[17:26:53.047]                       muffled <- grepl(pattern, "muffleMessage")
[17:26:53.047]                       if (muffled) 
[17:26:53.047]                         invokeRestart("muffleMessage")
[17:26:53.047]                     }
[17:26:53.047]                     else if (inherits(cond, "warning")) {
[17:26:53.047]                       muffled <- grepl(pattern, "muffleWarning")
[17:26:53.047]                       if (muffled) 
[17:26:53.047]                         invokeRestart("muffleWarning")
[17:26:53.047]                     }
[17:26:53.047]                     else if (inherits(cond, "condition")) {
[17:26:53.047]                       if (!is.null(pattern)) {
[17:26:53.047]                         computeRestarts <- base::computeRestarts
[17:26:53.047]                         grepl <- base::grepl
[17:26:53.047]                         restarts <- computeRestarts(cond)
[17:26:53.047]                         for (restart in restarts) {
[17:26:53.047]                           name <- restart$name
[17:26:53.047]                           if (is.null(name)) 
[17:26:53.047]                             next
[17:26:53.047]                           if (!grepl(pattern, name)) 
[17:26:53.047]                             next
[17:26:53.047]                           invokeRestart(restart)
[17:26:53.047]                           muffled <- TRUE
[17:26:53.047]                           break
[17:26:53.047]                         }
[17:26:53.047]                       }
[17:26:53.047]                     }
[17:26:53.047]                     invisible(muffled)
[17:26:53.047]                   }
[17:26:53.047]                   muffleCondition(cond)
[17:26:53.047]                 })
[17:26:53.047]             }))
[17:26:53.047]             future::FutureResult(value = ...future.value$value, 
[17:26:53.047]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:53.047]                   ...future.rng), globalenv = if (FALSE) 
[17:26:53.047]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[17:26:53.047]                     ...future.globalenv.names))
[17:26:53.047]                 else NULL, started = ...future.startTime, version = "1.8")
[17:26:53.047]         }, condition = base::local({
[17:26:53.047]             c <- base::c
[17:26:53.047]             inherits <- base::inherits
[17:26:53.047]             invokeRestart <- base::invokeRestart
[17:26:53.047]             length <- base::length
[17:26:53.047]             list <- base::list
[17:26:53.047]             seq.int <- base::seq.int
[17:26:53.047]             signalCondition <- base::signalCondition
[17:26:53.047]             sys.calls <- base::sys.calls
[17:26:53.047]             `[[` <- base::`[[`
[17:26:53.047]             `+` <- base::`+`
[17:26:53.047]             `<<-` <- base::`<<-`
[17:26:53.047]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[17:26:53.047]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[17:26:53.047]                   3L)]
[17:26:53.047]             }
[17:26:53.047]             function(cond) {
[17:26:53.047]                 is_error <- inherits(cond, "error")
[17:26:53.047]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[17:26:53.047]                   NULL)
[17:26:53.047]                 if (is_error) {
[17:26:53.047]                   sessionInformation <- function() {
[17:26:53.047]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[17:26:53.047]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[17:26:53.047]                       search = base::search(), system = base::Sys.info())
[17:26:53.047]                   }
[17:26:53.047]                   ...future.conditions[[length(...future.conditions) + 
[17:26:53.047]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[17:26:53.047]                     cond$call), session = sessionInformation(), 
[17:26:53.047]                     timestamp = base::Sys.time(), signaled = 0L)
[17:26:53.047]                   signalCondition(cond)
[17:26:53.047]                 }
[17:26:53.047]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[17:26:53.047]                 "immediateCondition"))) {
[17:26:53.047]                   signal <- TRUE && inherits(cond, "immediateCondition")
[17:26:53.047]                   ...future.conditions[[length(...future.conditions) + 
[17:26:53.047]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[17:26:53.047]                   if (TRUE && !signal) {
[17:26:53.047]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:53.047]                     {
[17:26:53.047]                       inherits <- base::inherits
[17:26:53.047]                       invokeRestart <- base::invokeRestart
[17:26:53.047]                       is.null <- base::is.null
[17:26:53.047]                       muffled <- FALSE
[17:26:53.047]                       if (inherits(cond, "message")) {
[17:26:53.047]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:53.047]                         if (muffled) 
[17:26:53.047]                           invokeRestart("muffleMessage")
[17:26:53.047]                       }
[17:26:53.047]                       else if (inherits(cond, "warning")) {
[17:26:53.047]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:53.047]                         if (muffled) 
[17:26:53.047]                           invokeRestart("muffleWarning")
[17:26:53.047]                       }
[17:26:53.047]                       else if (inherits(cond, "condition")) {
[17:26:53.047]                         if (!is.null(pattern)) {
[17:26:53.047]                           computeRestarts <- base::computeRestarts
[17:26:53.047]                           grepl <- base::grepl
[17:26:53.047]                           restarts <- computeRestarts(cond)
[17:26:53.047]                           for (restart in restarts) {
[17:26:53.047]                             name <- restart$name
[17:26:53.047]                             if (is.null(name)) 
[17:26:53.047]                               next
[17:26:53.047]                             if (!grepl(pattern, name)) 
[17:26:53.047]                               next
[17:26:53.047]                             invokeRestart(restart)
[17:26:53.047]                             muffled <- TRUE
[17:26:53.047]                             break
[17:26:53.047]                           }
[17:26:53.047]                         }
[17:26:53.047]                       }
[17:26:53.047]                       invisible(muffled)
[17:26:53.047]                     }
[17:26:53.047]                     muffleCondition(cond, pattern = "^muffle")
[17:26:53.047]                   }
[17:26:53.047]                 }
[17:26:53.047]                 else {
[17:26:53.047]                   if (TRUE) {
[17:26:53.047]                     muffleCondition <- function (cond, pattern = "^muffle") 
[17:26:53.047]                     {
[17:26:53.047]                       inherits <- base::inherits
[17:26:53.047]                       invokeRestart <- base::invokeRestart
[17:26:53.047]                       is.null <- base::is.null
[17:26:53.047]                       muffled <- FALSE
[17:26:53.047]                       if (inherits(cond, "message")) {
[17:26:53.047]                         muffled <- grepl(pattern, "muffleMessage")
[17:26:53.047]                         if (muffled) 
[17:26:53.047]                           invokeRestart("muffleMessage")
[17:26:53.047]                       }
[17:26:53.047]                       else if (inherits(cond, "warning")) {
[17:26:53.047]                         muffled <- grepl(pattern, "muffleWarning")
[17:26:53.047]                         if (muffled) 
[17:26:53.047]                           invokeRestart("muffleWarning")
[17:26:53.047]                       }
[17:26:53.047]                       else if (inherits(cond, "condition")) {
[17:26:53.047]                         if (!is.null(pattern)) {
[17:26:53.047]                           computeRestarts <- base::computeRestarts
[17:26:53.047]                           grepl <- base::grepl
[17:26:53.047]                           restarts <- computeRestarts(cond)
[17:26:53.047]                           for (restart in restarts) {
[17:26:53.047]                             name <- restart$name
[17:26:53.047]                             if (is.null(name)) 
[17:26:53.047]                               next
[17:26:53.047]                             if (!grepl(pattern, name)) 
[17:26:53.047]                               next
[17:26:53.047]                             invokeRestart(restart)
[17:26:53.047]                             muffled <- TRUE
[17:26:53.047]                             break
[17:26:53.047]                           }
[17:26:53.047]                         }
[17:26:53.047]                       }
[17:26:53.047]                       invisible(muffled)
[17:26:53.047]                     }
[17:26:53.047]                     muffleCondition(cond, pattern = "^muffle")
[17:26:53.047]                   }
[17:26:53.047]                 }
[17:26:53.047]             }
[17:26:53.047]         }))
[17:26:53.047]     }, error = function(ex) {
[17:26:53.047]         base::structure(base::list(value = NULL, visible = NULL, 
[17:26:53.047]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[17:26:53.047]                 ...future.rng), started = ...future.startTime, 
[17:26:53.047]             finished = Sys.time(), session_uuid = NA_character_, 
[17:26:53.047]             version = "1.8"), class = "FutureResult")
[17:26:53.047]     }, finally = {
[17:26:53.047]         if (!identical(...future.workdir, getwd())) 
[17:26:53.047]             setwd(...future.workdir)
[17:26:53.047]         {
[17:26:53.047]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[17:26:53.047]                 ...future.oldOptions$nwarnings <- NULL
[17:26:53.047]             }
[17:26:53.047]             base::options(...future.oldOptions)
[17:26:53.047]             if (.Platform$OS.type == "windows") {
[17:26:53.047]                 old_names <- names(...future.oldEnvVars)
[17:26:53.047]                 envs <- base::Sys.getenv()
[17:26:53.047]                 names <- names(envs)
[17:26:53.047]                 common <- intersect(names, old_names)
[17:26:53.047]                 added <- setdiff(names, old_names)
[17:26:53.047]                 removed <- setdiff(old_names, names)
[17:26:53.047]                 changed <- common[...future.oldEnvVars[common] != 
[17:26:53.047]                   envs[common]]
[17:26:53.047]                 NAMES <- toupper(changed)
[17:26:53.047]                 args <- list()
[17:26:53.047]                 for (kk in seq_along(NAMES)) {
[17:26:53.047]                   name <- changed[[kk]]
[17:26:53.047]                   NAME <- NAMES[[kk]]
[17:26:53.047]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:53.047]                     next
[17:26:53.047]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:53.047]                 }
[17:26:53.047]                 NAMES <- toupper(added)
[17:26:53.047]                 for (kk in seq_along(NAMES)) {
[17:26:53.047]                   name <- added[[kk]]
[17:26:53.047]                   NAME <- NAMES[[kk]]
[17:26:53.047]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:53.047]                     next
[17:26:53.047]                   args[[name]] <- ""
[17:26:53.047]                 }
[17:26:53.047]                 NAMES <- toupper(removed)
[17:26:53.047]                 for (kk in seq_along(NAMES)) {
[17:26:53.047]                   name <- removed[[kk]]
[17:26:53.047]                   NAME <- NAMES[[kk]]
[17:26:53.047]                   if (name != NAME && is.element(NAME, old_names)) 
[17:26:53.047]                     next
[17:26:53.047]                   args[[name]] <- ...future.oldEnvVars[[name]]
[17:26:53.047]                 }
[17:26:53.047]                 if (length(args) > 0) 
[17:26:53.047]                   base::do.call(base::Sys.setenv, args = args)
[17:26:53.047]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[17:26:53.047]             }
[17:26:53.047]             else {
[17:26:53.047]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[17:26:53.047]             }
[17:26:53.047]             {
[17:26:53.047]                 if (base::length(...future.futureOptionsAdded) > 
[17:26:53.047]                   0L) {
[17:26:53.047]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[17:26:53.047]                   base::names(opts) <- ...future.futureOptionsAdded
[17:26:53.047]                   base::options(opts)
[17:26:53.047]                 }
[17:26:53.047]                 {
[17:26:53.047]                   {
[17:26:53.047]                     base::options(mc.cores = ...future.mc.cores.old)
[17:26:53.047]                     NULL
[17:26:53.047]                   }
[17:26:53.047]                   options(future.plan = NULL)
[17:26:53.047]                   if (is.na(NA_character_)) 
[17:26:53.047]                     Sys.unsetenv("R_FUTURE_PLAN")
[17:26:53.047]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[17:26:53.047]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[17:26:53.047]                     .init = FALSE)
[17:26:53.047]                 }
[17:26:53.047]             }
[17:26:53.047]         }
[17:26:53.047]     })
[17:26:53.047]     if (TRUE) {
[17:26:53.047]         base::sink(type = "output", split = FALSE)
[17:26:53.047]         if (TRUE) {
[17:26:53.047]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[17:26:53.047]         }
[17:26:53.047]         else {
[17:26:53.047]             ...future.result["stdout"] <- base::list(NULL)
[17:26:53.047]         }
[17:26:53.047]         base::close(...future.stdout)
[17:26:53.047]         ...future.stdout <- NULL
[17:26:53.047]     }
[17:26:53.047]     ...future.result$conditions <- ...future.conditions
[17:26:53.047]     ...future.result$finished <- base::Sys.time()
[17:26:53.047]     ...future.result
[17:26:53.047] }
[17:26:53.052] Exporting 3 global objects (7.52 KiB) to cluster node #1 ...
[17:26:53.052] Exporting 'outer_function' (1.31 KiB) to cluster node #1 ...
[17:26:53.053] Exporting 'outer_function' (1.31 KiB) to cluster node #1 ... DONE
[17:26:53.053] Exporting 'map' (4.43 KiB) to cluster node #1 ...
[17:26:53.053] Exporting 'map' (4.43 KiB) to cluster node #1 ... DONE
[17:26:53.054] Exporting 'inner_function' (1.78 KiB) to cluster node #1 ...
[17:26:53.054] Exporting 'inner_function' (1.78 KiB) to cluster node #1 ... DONE
[17:26:53.054] Exporting 3 global objects (7.52 KiB) to cluster node #1 ... DONE
[17:26:53.055] MultisessionFuture started
[17:26:53.055] - Launch lazy future ... done
[17:26:53.055] run() for 'MultisessionFuture' ... done
[17:26:53.055] result() for ClusterFuture ...
[17:26:53.056] receiveMessageFromWorker() for ClusterFuture ...
[17:26:53.056] - Validating connection of MultisessionFuture
[17:26:53.069] - received message: FutureResult
[17:26:53.069] - Received FutureResult
[17:26:53.069] - Erased future from FutureRegistry
[17:26:53.070] result() for ClusterFuture ...
[17:26:53.070] - result already collected: FutureResult
[17:26:53.070] result() for ClusterFuture ... done
[17:26:53.070] receiveMessageFromWorker() for ClusterFuture ... done
[17:26:53.070] result() for ClusterFuture ... done
[17:26:53.070] result() for ClusterFuture ...
[17:26:53.071] - result already collected: FutureResult
[17:26:53.071] result() for ClusterFuture ... done
List of 2
 $ : num [1:2] 2 3
 $ : num [1:2] 2 3
Testing with 2 cores ... DONE
> 
> message("*** Globals - formulas ... DONE")
*** Globals - formulas ... DONE
> 
> source("incl/end.R")
[17:26:53.073] plan(): Setting new future strategy stack:
[17:26:53.073] List of future strategies:
[17:26:53.073] 1. FutureStrategy:
[17:26:53.073]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[17:26:53.073]    - tweaked: FALSE
[17:26:53.073]    - call: future::plan(oplan)
[17:26:53.074] 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 
   1.29    0.07    2.34