Running ‘000.sessionDetails.R’ [0s/1s]
  Running ‘ClusterRegistry.R’ [3s/10s]
  Running ‘Future-class.R’ [2s/3s]
  Running ‘FutureError.R’ [1s/1s]
  Running ‘FutureGlobals.R’ [1s/1s]
  Running ‘FutureRegistry.R’ [1s/1s]
  Running ‘as.cluster.R’ [1s/3s]
  Running ‘availableCores.R’ [1s/1s]
  Running ‘availableWorkers.R’ [1s/1s]
  Running ‘backtrace.R’ [1s/2s]
  Running ‘cluster-missing-future-pkg.R’ [1s/3s]
  Running ‘cluster.R’ [7s/31s]
  Running ‘constant.R’ [1s/1s]
  Running ‘demo.R’ [10s/14s]
  Running ‘dotdotdot.R’ [2s/5s]
  Running ‘early-signaling.R’ [2s/12s]
  Running ‘future,labels.R’ [1s/1s]
  Running ‘future.R’ [1s/1s]
  Running ‘futureAssign.R’ [2s/6s]
  Running ‘futureAssign_OP.R’ [3s/7s]
  Running ‘futureAssign_OP_with_environment.R’ [1s/1s]
  Running ‘futureAssign_OP_with_listenv.R’ [1s/2s]
  Running ‘futureCall.R’ [4s/10s]
  Running ‘futureOf.R’ [1s/1s]
  Running ‘futureOf_with_environment.R’ [1s/1s]
  Running ‘futureOf_with_listenv.R’ [1s/1s]
  Running ‘futures.R’ [12s/27s]
  Running ‘globals,NSE.R’ [1s/1s]
  Running ‘globals,formulas.R’ [4s/8s]
  Running ‘globals,manual.R’ [2s/3s]
  Running ‘globals,resolve.R’ [2s/5s]
  Running ‘globals,subassignment.R’ [3s/7s]
  Running ‘globals,toolarge.R’ [1s/4s]
  Running ‘globals,tricky.R’ [7s/13s]
  Running ‘globals,tricky_recursive.R’ [1s/1s]
  Running ‘globalsOf,tweaks.R’ [1s/1s]
  Running ‘immediateCondition.R’ [1s/2s]
  Running ‘invalid-owner.R’ [2s/5s]
  Running ‘makeClusterPSOCK.R’ [1s/3s]
  Running ‘mandelbrot.R’ [1s/1s]
  Running ‘mpi.R’ [1s/1s]
  Running ‘multicore,multithreading.R’ [1s/1s]
  Running ‘multicore.R’ [1s/2s]
  Running ‘multiprocess.R’ [2s/2s]
  Running ‘multisession.R’ [4s/14s]
  Running ‘nbrOfWorkers.R’ [3s/12s]
  Running ‘nested_futures,mc.cores.R’ [5s/24s]
  Running ‘nested_futures.R’ [1s/1s]
  Running ‘non-exportable,connections.R’ [1s/4s]
  Running ‘objectSize.R’ [1s/1s]
  Running ‘plan.R’ [2s/4s]
  Running ‘relaying.R’ [1s/2s]
  Running ‘remote.R’ [1s/4s]
  Running ‘requestCore.R’ [1s/3s]
  Running ‘requestNode.R’ [2s/10s]
  Running ‘reserved-keyword-functions.R’ [1s/2s]
  Running ‘resolve.R’ [2s/4s]
  Running ‘resolved-non-blocking-test.R’ [3s/34s]
  Running ‘rng.R’ [12s/19s]
  Running ‘sequential.R’ [1s/1s]
  Running ‘sessionDetails.R’ [1s/1s]
  Running ‘startup.R’ [2s/7s]
  Running ‘stdout.R’ [2s/5s]
  Running ‘transparent.R’ [1s/1s]
  Running ‘tweak.R’ [1s/1s]
  Running ‘utils.R’ [1s/2s]
  Running ‘uuid.R’ [1s/1s]
  Running ‘whichIndex.R’ [1s/1s]
Running the tests in ‘tests/futures.R’ failed.
Complete output:
  > source("incl/start.R")
  [07:37:57.440] plan(): Setting new future strategy stack:
  [07:37:57.441] List of future strategies:
  [07:37:57.441] 1. sequential:
  [07:37:57.441]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.441]    - tweaked: FALSE
  [07:37:57.441]    - call: future::plan("sequential")
  [07:37:57.443] plan(): nbrOfWorkers() = 1
  > library("listenv")
  > 
  > ## Backward compatibility
  > if (getRversion() < "3.2.0") {
  +   names <- function(x) {
  +     if (class(x)[1] == "environment") {
  +       ls(envir = x, all.names = TRUE)
  +     } else {
  +       base::names(x)
  +     }
  +   }
  + }
  > 
  > dims <- list(
  +   NULL,
  +   c(1, 6),
  +   c(2, 3),
  +   c(2, 3, 1),
  +   c(2, 1, 3, 1)
  + )
  > 
  > 
  > message("*** futures() / resolved() / values() ...")
  *** futures() / resolved() / values() ...
  > 
  > for (cores in 1:availCores) {
  +   message(sprintf("Testing with %d cores ...", cores))
  +   options(mc.cores = cores)
  + 
  +   for (type in c("list", "environment", "listenv")) {
  +     message(sprintf("Type of object: %s", type))
  + 
  +     for (strategy in supportedStrategies(cores, excl = "multiprocess")) {
  +       message("Type of future: ", strategy)
  +       plan(strategy)
  + 
  +       for (dim in dims) {
  +         message("Dimensions: ", deparse(dim))
  + 
  +         if (type == "list") {
  +           x <- list()
  +         } else if (type == "listenv") {
  +           x <- listenv()
  +         } else if (type == "environment") {
  +           x <- new.env()
  +         }
  + 
  +         x$a <- 1
  +         x$b <- future(2)
  +         x$c <- future(NULL)
  +         if (type != "list") x$d %<-% { 4 }
  +         if (type != "environment") x[[6]] <- 6
  +         str(x)
  + 
  +         if (!is.null(dim)) {
  +           if (type != "environment") {
  +             names <- names(x)
  +             dim(x) <- dim
  +             dimnames(x) <- lapply(dim, FUN = function(n) letters[1:n])
  +             names(x) <- names
  +           }
  +         }
  + 
  +         f <- futures(x)
  +         str(f)
  +         if (type != "environment") {
  +           stopifnot(length(f) == length(x))
  +           stopifnot(identical(names(f), names(x)))
  +         }
  +         stopifnot(identical(dim(f), dim(x)))
  +         stopifnot(identical(dimnames(f), dimnames(x)))
  + 
  +         r <- resolved(x)
  +         str(r)
  +         if (type != "environment") {
  +           stopifnot(length(r) == length(x))
  +           stopifnot(identical(names(r), names(x)))
  +         }
  +         stopifnot(identical(dim(r), dim(x)))
  +         stopifnot(identical(dimnames(r), dimnames(x)))
  + 
  +         v <- values(x)
  +         str(v)
  +         if (type != "environment") {
  +           stopifnot(length(v) == length(x))
  +           stopifnot(identical(names(v), names(x)))
  +         }
  +         stopifnot(identical(dim(v), dim(x)))
  +         stopifnot(identical(dimnames(v), dimnames(x)))
  +       } # for (dim ...)
  +     } # for (strategy ...)
  + 
  +     message(sprintf("*** futures() - %s ... DONE", type))
  +   } # for (type ...)
  + 
  +   message(sprintf("Testing with %d cores ... DONE", cores))
  + } ## for (cores ...)
  Testing with 1 cores ...
  Type of object: list
  Type of future: sequential
  [07:37:57.707] plan(): Setting new future strategy stack:
  [07:37:57.707] List of future strategies:
  [07:37:57.707] 1. sequential:
  [07:37:57.707]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.707]    - tweaked: FALSE
  [07:37:57.707]    - call: plan(strategy)
  [07:37:57.777] plan(): nbrOfWorkers() = 1
  Dimensions: NULL
  [07:37:57.779] getGlobalsAndPackages() ...
  [07:37:57.779] Searching for globals...
  [07:37:57.800] 
  [07:37:57.800] Searching for globals ... DONE
  [07:37:57.801] - globals: [0] <none>
  [07:37:57.801] getGlobalsAndPackages() ... DONE
  [07:37:57.805] Packages needed by the future expression (n = 0): <none>
  [07:37:57.806] Packages needed by future strategies (n = 0): <none>
  [07:37:57.812] {
  [07:37:57.812]     {
  [07:37:57.812]         ...future.startTime <- base::Sys.time()
  [07:37:57.812]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:57.812]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:57.812]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:57.812]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:57.812]             future.resolve.recursive = NULL, width = 80L)
  [07:37:57.812]         {
  [07:37:57.812]             {
  [07:37:57.812]                 base::local({
  [07:37:57.812]                   has_future <- base::requireNamespace("future", 
  [07:37:57.812]                     quietly = TRUE)
  [07:37:57.812]                   version <- if (has_future) 
  [07:37:57.812]                     utils::packageVersion("future")
  [07:37:57.812]                   else NULL
  [07:37:57.812]                   if (!has_future || version < "1.8.0") {
  [07:37:57.812]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:57.812]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:57.812]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:57.812]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:57.812]                         "release", "version")], collapse = " "), 
  [07:37:57.812]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:57.812]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:57.812]                       info)
  [07:37:57.812]                     info <- base::paste(info, collapse = "; ")
  [07:37:57.812]                     if (!has_future) {
  [07:37:57.812]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:57.812]                         info)
  [07:37:57.812]                     }
  [07:37:57.812]                     else {
  [07:37:57.812]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:57.812]                         info, version)
  [07:37:57.812]                     }
  [07:37:57.812]                     base::stop(msg)
  [07:37:57.812]                   }
  [07:37:57.812]                 })
  [07:37:57.812]             }
  [07:37:57.812]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:57.812]         }
  [07:37:57.812]     }
  [07:37:57.812]     if (base::is.na(TRUE)) {
  [07:37:57.812]     }
  [07:37:57.812]     else {
  [07:37:57.812]         if (TRUE) {
  [07:37:57.812]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:57.812]                 open = "w")
  [07:37:57.812]         }
  [07:37:57.812]         else {
  [07:37:57.812]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:57.812]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:57.812]         }
  [07:37:57.812]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:57.812]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:57.812]             base::sink(type = "output", split = FALSE)
  [07:37:57.812]             base::close(...future.stdout)
  [07:37:57.812]         }, add = TRUE)
  [07:37:57.812]     }
  [07:37:57.812]     ...future.frame <- base::sys.nframe()
  [07:37:57.812]     ...future.conditions <- base::list()
  [07:37:57.812]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:57.812]     ...future.result <- base::tryCatch({
  [07:37:57.812]         base::withCallingHandlers({
  [07:37:57.812]             ...future.value <- base::withVisible(base::local(2))
  [07:37:57.812]             future::FutureResult(value = ...future.value$value, 
  [07:37:57.812]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:57.812]                   ...future.rng), started = ...future.startTime, 
  [07:37:57.812]                 version = "1.8")
  [07:37:57.812]         }, condition = base::local({
  [07:37:57.812]             c <- base::c
  [07:37:57.812]             inherits <- base::inherits
  [07:37:57.812]             invokeRestart <- base::invokeRestart
  [07:37:57.812]             length <- base::length
  [07:37:57.812]             list <- base::list
  [07:37:57.812]             seq.int <- base::seq.int
  [07:37:57.812]             signalCondition <- base::signalCondition
  [07:37:57.812]             sys.calls <- base::sys.calls
  [07:37:57.812]             Sys.time <- base::Sys.time
  [07:37:57.812]             `[[` <- base::`[[`
  [07:37:57.812]             `+` <- base::`+`
  [07:37:57.812]             `<<-` <- base::`<<-`
  [07:37:57.812]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:57.812]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:57.812]                   3L)]
  [07:37:57.812]             }
  [07:37:57.812]             function(cond) {
  [07:37:57.812]                 if (inherits(cond, "error")) {
  [07:37:57.812]                   sessionInformation <- function() {
  [07:37:57.812]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:57.812]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:57.812]                       search = base::search(), system = base::Sys.info())
  [07:37:57.812]                   }
  [07:37:57.812]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:57.812]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:57.812]                     cond$call), session = sessionInformation(), 
  [07:37:57.812]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:57.812]                   signalCondition(cond)
  [07:37:57.812]                 }
  [07:37:57.812]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:57.812]                 ))) {
  [07:37:57.812]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:57.812]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:57.812]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:57.812]                   if (!signal) {
  [07:37:57.812]                     muffleCondition <- function (cond) 
  [07:37:57.812]                     {
  [07:37:57.812]                       inherits <- base::inherits
  [07:37:57.812]                       invokeRestart <- base::invokeRestart
  [07:37:57.812]                       muffled <- FALSE
  [07:37:57.812]                       if (inherits(cond, "message")) {
  [07:37:57.812]                         invokeRestart("muffleMessage")
  [07:37:57.812]                         muffled <- TRUE
  [07:37:57.812]                       }
  [07:37:57.812]                       else if (inherits(cond, "warning")) {
  [07:37:57.812]                         invokeRestart("muffleWarning")
  [07:37:57.812]                         muffled <- TRUE
  [07:37:57.812]                       }
  [07:37:57.812]                       else if (inherits(cond, "condition")) {
  [07:37:57.812]                         computeRestarts <- base::computeRestarts
  [07:37:57.812]                         grepl <- base::grepl
  [07:37:57.812]                         is.null <- base::is.null
  [07:37:57.812]                         restarts <- computeRestarts(cond)
  [07:37:57.812]                         for (restart in restarts) {
  [07:37:57.812]                           name <- restart$name
  [07:37:57.812]                           if (is.null(name)) 
  [07:37:57.812]                             next
  [07:37:57.812]                           if (!grepl("^muffle", name)) 
  [07:37:57.812]                             next
  [07:37:57.812]                           invokeRestart(restart)
  [07:37:57.812]                           muffled <- TRUE
  [07:37:57.812]                           break
  [07:37:57.812]                         }
  [07:37:57.812]                       }
  [07:37:57.812]                       invisible(muffled)
  [07:37:57.812]                     }
  [07:37:57.812]                     muffleCondition(cond)
  [07:37:57.812]                   }
  [07:37:57.812]                 }
  [07:37:57.812]             }
  [07:37:57.812]         }))
  [07:37:57.812]     }, error = function(ex) {
  [07:37:57.812]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:57.812]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:57.812]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:57.812]     }, finally = {
  [07:37:57.812]         {
  [07:37:57.812]             NULL
  [07:37:57.812]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:57.812]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:57.812]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:57.812]                 label = NULL, ...) 
  [07:37:57.812]             {
  [07:37:57.812]                 if (substitute) 
  [07:37:57.812]                   expr <- substitute(expr)
  [07:37:57.812]                 local <- as.logical(local)
  [07:37:57.812]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:57.812]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:57.812]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:57.812]                   label = label, ...)
  [07:37:57.812]                 if (!future$lazy) 
  [07:37:57.812]                   future <- run(future)
  [07:37:57.812]                 invisible(future)
  [07:37:57.812]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:57.812]         }
  [07:37:57.812]         base::options(...future.oldOptions)
  [07:37:57.812]     })
  [07:37:57.812]     Sys.time
  [07:37:57.812]     if (base::is.na(TRUE)) {
  [07:37:57.812]     }
  [07:37:57.812]     else {
  [07:37:57.812]         base::sink(type = "output", split = FALSE)
  [07:37:57.812]         if (TRUE) {
  [07:37:57.812]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:57.812]         }
  [07:37:57.812]         else {
  [07:37:57.812]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:57.812]         }
  [07:37:57.812]         base::close(...future.stdout)
  [07:37:57.812]         ...future.stdout <- NULL
  [07:37:57.812]     }
  [07:37:57.812]     ...future.result$conditions <- ...future.conditions
  [07:37:57.812]     ...future.result
  [07:37:57.812] }
  [07:37:57.830] plan(): Setting new future strategy stack:
  [07:37:57.831] List of future strategies:
  [07:37:57.831] 1. sequential:
  [07:37:57.831]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.831]    - tweaked: FALSE
  [07:37:57.831]    - call: NULL
  [07:37:57.832] plan(): nbrOfWorkers() = 1
  [07:37:57.834] plan(): Setting new future strategy stack:
  [07:37:57.834] List of future strategies:
  [07:37:57.834] 1. sequential:
  [07:37:57.834]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.834]    - tweaked: FALSE
  [07:37:57.834]    - call: plan(strategy)
  [07:37:57.835] plan(): nbrOfWorkers() = 1
  [07:37:57.836] SequentialFuture started (and completed)
  [07:37:57.837] getGlobalsAndPackages() ...
  [07:37:57.837] Searching for globals...
  [07:37:57.838] 
  [07:37:57.839] Searching for globals ... DONE
  [07:37:57.839] - globals: [0] <none>
  [07:37:57.839] getGlobalsAndPackages() ... DONE
  [07:37:57.841] Packages needed by the future expression (n = 0): <none>
  [07:37:57.842] Packages needed by future strategies (n = 0): <none>
  [07:37:57.864] {
  [07:37:57.864]     {
  [07:37:57.864]         ...future.startTime <- base::Sys.time()
  [07:37:57.864]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:57.864]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:57.864]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:57.864]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:57.864]             future.resolve.recursive = NULL, width = 80L)
  [07:37:57.864]         {
  [07:37:57.864]             {
  [07:37:57.864]                 base::local({
  [07:37:57.864]                   has_future <- base::requireNamespace("future", 
  [07:37:57.864]                     quietly = TRUE)
  [07:37:57.864]                   version <- if (has_future) 
  [07:37:57.864]                     utils::packageVersion("future")
  [07:37:57.864]                   else NULL
  [07:37:57.864]                   if (!has_future || version < "1.8.0") {
  [07:37:57.864]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:57.864]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:57.864]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:57.864]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:57.864]                         "release", "version")], collapse = " "), 
  [07:37:57.864]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:57.864]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:57.864]                       info)
  [07:37:57.864]                     info <- base::paste(info, collapse = "; ")
  [07:37:57.864]                     if (!has_future) {
  [07:37:57.864]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:57.864]                         info)
  [07:37:57.864]                     }
  [07:37:57.864]                     else {
  [07:37:57.864]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:57.864]                         info, version)
  [07:37:57.864]                     }
  [07:37:57.864]                     base::stop(msg)
  [07:37:57.864]                   }
  [07:37:57.864]                 })
  [07:37:57.864]             }
  [07:37:57.864]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:57.864]         }
  [07:37:57.864]     }
  [07:37:57.864]     if (base::is.na(TRUE)) {
  [07:37:57.864]     }
  [07:37:57.864]     else {
  [07:37:57.864]         if (TRUE) {
  [07:37:57.864]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:57.864]                 open = "w")
  [07:37:57.864]         }
  [07:37:57.864]         else {
  [07:37:57.864]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:57.864]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:57.864]         }
  [07:37:57.864]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:57.864]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:57.864]             base::sink(type = "output", split = FALSE)
  [07:37:57.864]             base::close(...future.stdout)
  [07:37:57.864]         }, add = TRUE)
  [07:37:57.864]     }
  [07:37:57.864]     ...future.frame <- base::sys.nframe()
  [07:37:57.864]     ...future.conditions <- base::list()
  [07:37:57.864]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:57.864]     ...future.result <- base::tryCatch({
  [07:37:57.864]         base::withCallingHandlers({
  [07:37:57.864]             ...future.value <- base::withVisible(base::local(NULL))
  [07:37:57.864]             future::FutureResult(value = ...future.value$value, 
  [07:37:57.864]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:57.864]                   ...future.rng), started = ...future.startTime, 
  [07:37:57.864]                 version = "1.8")
  [07:37:57.864]         }, condition = base::local({
  [07:37:57.864]             c <- base::c
  [07:37:57.864]             inherits <- base::inherits
  [07:37:57.864]             invokeRestart <- base::invokeRestart
  [07:37:57.864]             length <- base::length
  [07:37:57.864]             list <- base::list
  [07:37:57.864]             seq.int <- base::seq.int
  [07:37:57.864]             signalCondition <- base::signalCondition
  [07:37:57.864]             sys.calls <- base::sys.calls
  [07:37:57.864]             Sys.time <- base::Sys.time
  [07:37:57.864]             `[[` <- base::`[[`
  [07:37:57.864]             `+` <- base::`+`
  [07:37:57.864]             `<<-` <- base::`<<-`
  [07:37:57.864]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:57.864]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:57.864]                   3L)]
  [07:37:57.864]             }
  [07:37:57.864]             function(cond) {
  [07:37:57.864]                 if (inherits(cond, "error")) {
  [07:37:57.864]                   sessionInformation <- function() {
  [07:37:57.864]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:57.864]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:57.864]                       search = base::search(), system = base::Sys.info())
  [07:37:57.864]                   }
  [07:37:57.864]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:57.864]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:57.864]                     cond$call), session = sessionInformation(), 
  [07:37:57.864]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:57.864]                   signalCondition(cond)
  [07:37:57.864]                 }
  [07:37:57.864]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:57.864]                 ))) {
  [07:37:57.864]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:57.864]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:57.864]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:57.864]                   if (!signal) {
  [07:37:57.864]                     muffleCondition <- function (cond) 
  [07:37:57.864]                     {
  [07:37:57.864]                       inherits <- base::inherits
  [07:37:57.864]                       invokeRestart <- base::invokeRestart
  [07:37:57.864]                       muffled <- FALSE
  [07:37:57.864]                       if (inherits(cond, "message")) {
  [07:37:57.864]                         invokeRestart("muffleMessage")
  [07:37:57.864]                         muffled <- TRUE
  [07:37:57.864]                       }
  [07:37:57.864]                       else if (inherits(cond, "warning")) {
  [07:37:57.864]                         invokeRestart("muffleWarning")
  [07:37:57.864]                         muffled <- TRUE
  [07:37:57.864]                       }
  [07:37:57.864]                       else if (inherits(cond, "condition")) {
  [07:37:57.864]                         computeRestarts <- base::computeRestarts
  [07:37:57.864]                         grepl <- base::grepl
  [07:37:57.864]                         is.null <- base::is.null
  [07:37:57.864]                         restarts <- computeRestarts(cond)
  [07:37:57.864]                         for (restart in restarts) {
  [07:37:57.864]                           name <- restart$name
  [07:37:57.864]                           if (is.null(name)) 
  [07:37:57.864]                             next
  [07:37:57.864]                           if (!grepl("^muffle", name)) 
  [07:37:57.864]                             next
  [07:37:57.864]                           invokeRestart(restart)
  [07:37:57.864]                           muffled <- TRUE
  [07:37:57.864]                           break
  [07:37:57.864]                         }
  [07:37:57.864]                       }
  [07:37:57.864]                       invisible(muffled)
  [07:37:57.864]                     }
  [07:37:57.864]                     muffleCondition(cond)
  [07:37:57.864]                   }
  [07:37:57.864]                 }
  [07:37:57.864]             }
  [07:37:57.864]         }))
  [07:37:57.864]     }, error = function(ex) {
  [07:37:57.864]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:57.864]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:57.864]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:57.864]     }, finally = {
  [07:37:57.864]         {
  [07:37:57.864]             NULL
  [07:37:57.864]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:57.864]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:57.864]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:57.864]                 label = NULL, ...) 
  [07:37:57.864]             {
  [07:37:57.864]                 if (substitute) 
  [07:37:57.864]                   expr <- substitute(expr)
  [07:37:57.864]                 local <- as.logical(local)
  [07:37:57.864]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:57.864]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:57.864]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:57.864]                   label = label, ...)
  [07:37:57.864]                 if (!future$lazy) 
  [07:37:57.864]                   future <- run(future)
  [07:37:57.864]                 invisible(future)
  [07:37:57.864]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:57.864]         }
  [07:37:57.864]         base::options(...future.oldOptions)
  [07:37:57.864]     })
  [07:37:57.864]     Sys.time
  [07:37:57.864]     if (base::is.na(TRUE)) {
  [07:37:57.864]     }
  [07:37:57.864]     else {
  [07:37:57.864]         base::sink(type = "output", split = FALSE)
  [07:37:57.864]         if (TRUE) {
  [07:37:57.864]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:57.864]         }
  [07:37:57.864]         else {
  [07:37:57.864]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:57.864]         }
  [07:37:57.864]         base::close(...future.stdout)
  [07:37:57.864]         ...future.stdout <- NULL
  [07:37:57.864]     }
  [07:37:57.864]     ...future.result$conditions <- ...future.conditions
  [07:37:57.864]     ...future.result
  [07:37:57.864] }
  [07:37:57.872] plan(): Setting new future strategy stack:
  [07:37:57.873] List of future strategies:
  [07:37:57.873] 1. sequential:
  [07:37:57.873]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.873]    - tweaked: FALSE
  [07:37:57.873]    - call: NULL
  [07:37:57.874] plan(): nbrOfWorkers() = 1
  [07:37:57.875] plan(): Setting new future strategy stack:
  [07:37:57.876] List of future strategies:
  [07:37:57.876] 1. sequential:
  [07:37:57.876]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.876]    - tweaked: FALSE
  [07:37:57.876]    - call: plan(strategy)
  [07:37:57.877] plan(): nbrOfWorkers() = 1
  [07:37:57.878] SequentialFuture started (and completed)
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d5d57178> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d617bfe8> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d5d57178> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d617bfe8> 
   $  : NULL
   $  : NULL
   $  : num 6
   Named logi [1:6] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:37:57.920] resolve() on list ...
  [07:37:57.920]  recursive: 0
  [07:37:57.921]  length: 6
  [07:37:57.921]  elements: 'a', 'b', 'c', '', '', ''
  [07:37:57.922] signalConditionsASAP(numeric, pos=1) ...
  [07:37:57.922] - nx: 6
  [07:37:57.922] - relay: TRUE
  [07:37:57.923] - stdout: TRUE
  [07:37:57.923] - signal: TRUE
  [07:37:57.923] - resignal: FALSE
  [07:37:57.924] - force: TRUE
  [07:37:57.924] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.924] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.924]  - until=2
  [07:37:57.925]  - relaying element #2
  [07:37:57.925] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.925] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.926] signalConditionsASAP(NULL, pos=1) ... done
  [07:37:57.926]  length: 5 (resolved future 1)
  [07:37:57.943] Future #2
  [07:37:57.944] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:37:57.944] - nx: 6
  [07:37:57.944] - relay: TRUE
  [07:37:57.945] - stdout: TRUE
  [07:37:57.945] - signal: TRUE
  [07:37:57.945] - resignal: FALSE
  [07:37:57.946] - force: TRUE
  [07:37:57.946] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.946] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.947]  - until=2
  [07:37:57.947]  - relaying element #2
  [07:37:57.948] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.948] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.948] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:37:57.949]  length: 4 (resolved future 2)
  [07:37:57.950] Future #3
  [07:37:57.950] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:37:57.950] - nx: 6
  [07:37:57.951] - relay: TRUE
  [07:37:57.951] - stdout: TRUE
  [07:37:57.951] - signal: TRUE
  [07:37:57.952] - resignal: FALSE
  [07:37:57.952] - force: TRUE
  [07:37:57.952] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.953] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:57.953]  - until=3
  [07:37:57.953]  - relaying element #3
  [07:37:57.954] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.954] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.955] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:37:57.955]  length: 3 (resolved future 3)
  [07:37:57.955] signalConditionsASAP(NULL, pos=4) ...
  [07:37:57.956] - nx: 6
  [07:37:57.956] - relay: TRUE
  [07:37:57.956] - stdout: TRUE
  [07:37:57.957] - signal: TRUE
  [07:37:57.957] - resignal: FALSE
  [07:37:57.957] - force: TRUE
  [07:37:57.958] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.958] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.958]  - until=5
  [07:37:57.959]  - relaying element #5
  [07:37:57.959] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:57.959] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.960] signalConditionsASAP(NULL, pos=4) ... done
  [07:37:57.960]  length: 2 (resolved future 4)
  [07:37:57.960] signalConditionsASAP(NULL, pos=5) ...
  [07:37:57.961] - nx: 6
  [07:37:57.961] - relay: TRUE
  [07:37:57.961] - stdout: TRUE
  [07:37:57.962] - signal: TRUE
  [07:37:57.962] - resignal: FALSE
  [07:37:57.962] - force: TRUE
  [07:37:57.962] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:57.963] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.963]  - until=6
  [07:37:57.963]  - relaying element #6
  [07:37:57.964] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:57.964] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.964] signalConditionsASAP(NULL, pos=5) ... done
  [07:37:57.965]  length: 1 (resolved future 5)
  [07:37:57.965] signalConditionsASAP(numeric, pos=6) ...
  [07:37:57.965] - nx: 6
  [07:37:57.966] - relay: TRUE
  [07:37:57.966] - stdout: TRUE
  [07:37:57.966] - signal: TRUE
  [07:37:57.967] - resignal: FALSE
  [07:37:57.967] - force: TRUE
  [07:37:57.967] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:57.968] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.968]  - until=6
  [07:37:57.968] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:57.969] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.969] signalConditionsASAP(numeric, pos=6) ... done
  [07:37:57.969]  length: 0 (resolved future 6)
  [07:37:57.970] Relaying remaining futures
  [07:37:57.970] signalConditionsASAP(NULL, pos=0) ...
  [07:37:57.970] - nx: 6
  [07:37:57.971] - relay: TRUE
  [07:37:57.971] - stdout: TRUE
  [07:37:57.971] - signal: TRUE
  [07:37:57.972] - resignal: FALSE
  [07:37:57.972] - force: TRUE
  [07:37:57.972] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:57.973] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:37:57.973] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:57.974] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:57.974] signalConditionsASAP(NULL, pos=0) ... done
  [07:37:57.974] resolve() on list ... DONE
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
  Dimensions: c(1, 6)
  [07:37:57.982] getGlobalsAndPackages() ...
  [07:37:57.983] Searching for globals...
  [07:37:57.983] 
  [07:37:57.984] Searching for globals ... DONE
  [07:37:57.984] - globals: [0] <none>
  [07:37:57.985] getGlobalsAndPackages() ... DONE
  [07:37:57.987] Packages needed by the future expression (n = 0): <none>
  [07:37:57.987] Packages needed by future strategies (n = 0): <none>
  [07:37:57.993] {
  [07:37:57.993]     {
  [07:37:57.993]         ...future.startTime <- base::Sys.time()
  [07:37:57.993]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:57.993]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:57.993]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:57.993]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:57.993]             future.resolve.recursive = NULL, width = 80L)
  [07:37:57.993]         {
  [07:37:57.993]             {
  [07:37:57.993]                 base::local({
  [07:37:57.993]                   has_future <- base::requireNamespace("future", 
  [07:37:57.993]                     quietly = TRUE)
  [07:37:57.993]                   version <- if (has_future) 
  [07:37:57.993]                     utils::packageVersion("future")
  [07:37:57.993]                   else NULL
  [07:37:57.993]                   if (!has_future || version < "1.8.0") {
  [07:37:57.993]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:57.993]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:57.993]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:57.993]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:57.993]                         "release", "version")], collapse = " "), 
  [07:37:57.993]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:57.993]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:57.993]                       info)
  [07:37:57.993]                     info <- base::paste(info, collapse = "; ")
  [07:37:57.993]                     if (!has_future) {
  [07:37:57.993]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:57.993]                         info)
  [07:37:57.993]                     }
  [07:37:57.993]                     else {
  [07:37:57.993]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:57.993]                         info, version)
  [07:37:57.993]                     }
  [07:37:57.993]                     base::stop(msg)
  [07:37:57.993]                   }
  [07:37:57.993]                 })
  [07:37:57.993]             }
  [07:37:57.993]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:57.993]         }
  [07:37:57.993]     }
  [07:37:57.993]     if (base::is.na(TRUE)) {
  [07:37:57.993]     }
  [07:37:57.993]     else {
  [07:37:57.993]         if (TRUE) {
  [07:37:57.993]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:57.993]                 open = "w")
  [07:37:57.993]         }
  [07:37:57.993]         else {
  [07:37:57.993]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:57.993]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:57.993]         }
  [07:37:57.993]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:57.993]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:57.993]             base::sink(type = "output", split = FALSE)
  [07:37:57.993]             base::close(...future.stdout)
  [07:37:57.993]         }, add = TRUE)
  [07:37:57.993]     }
  [07:37:57.993]     ...future.frame <- base::sys.nframe()
  [07:37:57.993]     ...future.conditions <- base::list()
  [07:37:57.993]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:57.993]     ...future.result <- base::tryCatch({
  [07:37:57.993]         base::withCallingHandlers({
  [07:37:57.993]             ...future.value <- base::withVisible(base::local(2))
  [07:37:57.993]             future::FutureResult(value = ...future.value$value, 
  [07:37:57.993]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:57.993]                   ...future.rng), started = ...future.startTime, 
  [07:37:57.993]                 version = "1.8")
  [07:37:57.993]         }, condition = base::local({
  [07:37:57.993]             c <- base::c
  [07:37:57.993]             inherits <- base::inherits
  [07:37:57.993]             invokeRestart <- base::invokeRestart
  [07:37:57.993]             length <- base::length
  [07:37:57.993]             list <- base::list
  [07:37:57.993]             seq.int <- base::seq.int
  [07:37:57.993]             signalCondition <- base::signalCondition
  [07:37:57.993]             sys.calls <- base::sys.calls
  [07:37:57.993]             Sys.time <- base::Sys.time
  [07:37:57.993]             `[[` <- base::`[[`
  [07:37:57.993]             `+` <- base::`+`
  [07:37:57.993]             `<<-` <- base::`<<-`
  [07:37:57.993]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:57.993]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:57.993]                   3L)]
  [07:37:57.993]             }
  [07:37:57.993]             function(cond) {
  [07:37:57.993]                 if (inherits(cond, "error")) {
  [07:37:57.993]                   sessionInformation <- function() {
  [07:37:57.993]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:57.993]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:57.993]                       search = base::search(), system = base::Sys.info())
  [07:37:57.993]                   }
  [07:37:57.993]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:57.993]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:57.993]                     cond$call), session = sessionInformation(), 
  [07:37:57.993]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:57.993]                   signalCondition(cond)
  [07:37:57.993]                 }
  [07:37:57.993]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:57.993]                 ))) {
  [07:37:57.993]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:57.993]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:57.993]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:57.993]                   if (!signal) {
  [07:37:57.993]                     muffleCondition <- function (cond) 
  [07:37:57.993]                     {
  [07:37:57.993]                       inherits <- base::inherits
  [07:37:57.993]                       invokeRestart <- base::invokeRestart
  [07:37:57.993]                       muffled <- FALSE
  [07:37:57.993]                       if (inherits(cond, "message")) {
  [07:37:57.993]                         invokeRestart("muffleMessage")
  [07:37:57.993]                         muffled <- TRUE
  [07:37:57.993]                       }
  [07:37:57.993]                       else if (inherits(cond, "warning")) {
  [07:37:57.993]                         invokeRestart("muffleWarning")
  [07:37:57.993]                         muffled <- TRUE
  [07:37:57.993]                       }
  [07:37:57.993]                       else if (inherits(cond, "condition")) {
  [07:37:57.993]                         computeRestarts <- base::computeRestarts
  [07:37:57.993]                         grepl <- base::grepl
  [07:37:57.993]                         is.null <- base::is.null
  [07:37:57.993]                         restarts <- computeRestarts(cond)
  [07:37:57.993]                         for (restart in restarts) {
  [07:37:57.993]                           name <- restart$name
  [07:37:57.993]                           if (is.null(name)) 
  [07:37:57.993]                             next
  [07:37:57.993]                           if (!grepl("^muffle", name)) 
  [07:37:57.993]                             next
  [07:37:57.993]                           invokeRestart(restart)
  [07:37:57.993]                           muffled <- TRUE
  [07:37:57.993]                           break
  [07:37:57.993]                         }
  [07:37:57.993]                       }
  [07:37:57.993]                       invisible(muffled)
  [07:37:57.993]                     }
  [07:37:57.993]                     muffleCondition(cond)
  [07:37:57.993]                   }
  [07:37:57.993]                 }
  [07:37:57.993]             }
  [07:37:57.993]         }))
  [07:37:57.993]     }, error = function(ex) {
  [07:37:57.993]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:57.993]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:57.993]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:57.993]     }, finally = {
  [07:37:57.993]         {
  [07:37:57.993]             NULL
  [07:37:57.993]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:57.993]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:57.993]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:57.993]                 label = NULL, ...) 
  [07:37:57.993]             {
  [07:37:57.993]                 if (substitute) 
  [07:37:57.993]                   expr <- substitute(expr)
  [07:37:57.993]                 local <- as.logical(local)
  [07:37:57.993]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:57.993]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:57.993]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:57.993]                   label = label, ...)
  [07:37:57.993]                 if (!future$lazy) 
  [07:37:57.993]                   future <- run(future)
  [07:37:57.993]                 invisible(future)
  [07:37:57.993]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:57.993]         }
  [07:37:57.993]         base::options(...future.oldOptions)
  [07:37:57.993]     })
  [07:37:57.993]     Sys.time
  [07:37:57.993]     if (base::is.na(TRUE)) {
  [07:37:57.993]     }
  [07:37:57.993]     else {
  [07:37:57.993]         base::sink(type = "output", split = FALSE)
  [07:37:57.993]         if (TRUE) {
  [07:37:57.993]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:57.993]         }
  [07:37:57.993]         else {
  [07:37:57.993]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:57.993]         }
  [07:37:57.993]         base::close(...future.stdout)
  [07:37:57.993]         ...future.stdout <- NULL
  [07:37:57.993]     }
  [07:37:57.993]     ...future.result$conditions <- ...future.conditions
  [07:37:57.993]     ...future.result
  [07:37:57.993] }
  [07:37:57.999] plan(): Setting new future strategy stack:
  [07:37:57.999] List of future strategies:
  [07:37:57.999] 1. sequential:
  [07:37:57.999]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:57.999]    - tweaked: FALSE
  [07:37:57.999]    - call: NULL
  [07:37:58.001] plan(): nbrOfWorkers() = 1
  [07:37:58.002] plan(): Setting new future strategy stack:
  [07:37:58.003] List of future strategies:
  [07:37:58.003] 1. sequential:
  [07:37:58.003]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.003]    - tweaked: FALSE
  [07:37:58.003]    - call: plan(strategy)
  [07:37:58.004] plan(): nbrOfWorkers() = 1
  [07:37:58.005] SequentialFuture started (and completed)
  [07:37:58.005] getGlobalsAndPackages() ...
  [07:37:58.006] Searching for globals...
  [07:37:58.006] 
  [07:37:58.007] Searching for globals ... DONE
  [07:37:58.007] - globals: [0] <none>
  [07:37:58.008] getGlobalsAndPackages() ... DONE
  [07:37:58.010] Packages needed by the future expression (n = 0): <none>
  [07:37:58.010] Packages needed by future strategies (n = 0): <none>
  [07:37:58.020] {
  [07:37:58.020]     {
  [07:37:58.020]         ...future.startTime <- base::Sys.time()
  [07:37:58.020]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.020]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.020]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.020]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.020]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.020]         {
  [07:37:58.020]             {
  [07:37:58.020]                 base::local({
  [07:37:58.020]                   has_future <- base::requireNamespace("future", 
  [07:37:58.020]                     quietly = TRUE)
  [07:37:58.020]                   version <- if (has_future) 
  [07:37:58.020]                     utils::packageVersion("future")
  [07:37:58.020]                   else NULL
  [07:37:58.020]                   if (!has_future || version < "1.8.0") {
  [07:37:58.020]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.020]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.020]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.020]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.020]                         "release", "version")], collapse = " "), 
  [07:37:58.020]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.020]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.020]                       info)
  [07:37:58.020]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.020]                     if (!has_future) {
  [07:37:58.020]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.020]                         info)
  [07:37:58.020]                     }
  [07:37:58.020]                     else {
  [07:37:58.020]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.020]                         info, version)
  [07:37:58.020]                     }
  [07:37:58.020]                     base::stop(msg)
  [07:37:58.020]                   }
  [07:37:58.020]                 })
  [07:37:58.020]             }
  [07:37:58.020]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.020]         }
  [07:37:58.020]     }
  [07:37:58.020]     if (base::is.na(TRUE)) {
  [07:37:58.020]     }
  [07:37:58.020]     else {
  [07:37:58.020]         if (TRUE) {
  [07:37:58.020]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.020]                 open = "w")
  [07:37:58.020]         }
  [07:37:58.020]         else {
  [07:37:58.020]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.020]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.020]         }
  [07:37:58.020]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.020]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.020]             base::sink(type = "output", split = FALSE)
  [07:37:58.020]             base::close(...future.stdout)
  [07:37:58.020]         }, add = TRUE)
  [07:37:58.020]     }
  [07:37:58.020]     ...future.frame <- base::sys.nframe()
  [07:37:58.020]     ...future.conditions <- base::list()
  [07:37:58.020]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.020]     ...future.result <- base::tryCatch({
  [07:37:58.020]         base::withCallingHandlers({
  [07:37:58.020]             ...future.value <- base::withVisible(base::local(NULL))
  [07:37:58.020]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.020]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.020]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.020]                 version = "1.8")
  [07:37:58.020]         }, condition = base::local({
  [07:37:58.020]             c <- base::c
  [07:37:58.020]             inherits <- base::inherits
  [07:37:58.020]             invokeRestart <- base::invokeRestart
  [07:37:58.020]             length <- base::length
  [07:37:58.020]             list <- base::list
  [07:37:58.020]             seq.int <- base::seq.int
  [07:37:58.020]             signalCondition <- base::signalCondition
  [07:37:58.020]             sys.calls <- base::sys.calls
  [07:37:58.020]             Sys.time <- base::Sys.time
  [07:37:58.020]             `[[` <- base::`[[`
  [07:37:58.020]             `+` <- base::`+`
  [07:37:58.020]             `<<-` <- base::`<<-`
  [07:37:58.020]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.020]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.020]                   3L)]
  [07:37:58.020]             }
  [07:37:58.020]             function(cond) {
  [07:37:58.020]                 if (inherits(cond, "error")) {
  [07:37:58.020]                   sessionInformation <- function() {
  [07:37:58.020]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.020]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.020]                       search = base::search(), system = base::Sys.info())
  [07:37:58.020]                   }
  [07:37:58.020]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.020]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.020]                     cond$call), session = sessionInformation(), 
  [07:37:58.020]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.020]                   signalCondition(cond)
  [07:37:58.020]                 }
  [07:37:58.020]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.020]                 ))) {
  [07:37:58.020]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.020]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.020]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.020]                   if (!signal) {
  [07:37:58.020]                     muffleCondition <- function (cond) 
  [07:37:58.020]                     {
  [07:37:58.020]                       inherits <- base::inherits
  [07:37:58.020]                       invokeRestart <- base::invokeRestart
  [07:37:58.020]                       muffled <- FALSE
  [07:37:58.020]                       if (inherits(cond, "message")) {
  [07:37:58.020]                         invokeRestart("muffleMessage")
  [07:37:58.020]                         muffled <- TRUE
  [07:37:58.020]                       }
  [07:37:58.020]                       else if (inherits(cond, "warning")) {
  [07:37:58.020]                         invokeRestart("muffleWarning")
  [07:37:58.020]                         muffled <- TRUE
  [07:37:58.020]                       }
  [07:37:58.020]                       else if (inherits(cond, "condition")) {
  [07:37:58.020]                         computeRestarts <- base::computeRestarts
  [07:37:58.020]                         grepl <- base::grepl
  [07:37:58.020]                         is.null <- base::is.null
  [07:37:58.020]                         restarts <- computeRestarts(cond)
  [07:37:58.020]                         for (restart in restarts) {
  [07:37:58.020]                           name <- restart$name
  [07:37:58.020]                           if (is.null(name)) 
  [07:37:58.020]                             next
  [07:37:58.020]                           if (!grepl("^muffle", name)) 
  [07:37:58.020]                             next
  [07:37:58.020]                           invokeRestart(restart)
  [07:37:58.020]                           muffled <- TRUE
  [07:37:58.020]                           break
  [07:37:58.020]                         }
  [07:37:58.020]                       }
  [07:37:58.020]                       invisible(muffled)
  [07:37:58.020]                     }
  [07:37:58.020]                     muffleCondition(cond)
  [07:37:58.020]                   }
  [07:37:58.020]                 }
  [07:37:58.020]             }
  [07:37:58.020]         }))
  [07:37:58.020]     }, error = function(ex) {
  [07:37:58.020]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.020]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.020]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.020]     }, finally = {
  [07:37:58.020]         {
  [07:37:58.020]             NULL
  [07:37:58.020]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.020]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.020]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.020]                 label = NULL, ...) 
  [07:37:58.020]             {
  [07:37:58.020]                 if (substitute) 
  [07:37:58.020]                   expr <- substitute(expr)
  [07:37:58.020]                 local <- as.logical(local)
  [07:37:58.020]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.020]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.020]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.020]                   label = label, ...)
  [07:37:58.020]                 if (!future$lazy) 
  [07:37:58.020]                   future <- run(future)
  [07:37:58.020]                 invisible(future)
  [07:37:58.020]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.020]         }
  [07:37:58.020]         base::options(...future.oldOptions)
  [07:37:58.020]     })
  [07:37:58.020]     Sys.time
  [07:37:58.020]     if (base::is.na(TRUE)) {
  [07:37:58.020]     }
  [07:37:58.020]     else {
  [07:37:58.020]         base::sink(type = "output", split = FALSE)
  [07:37:58.020]         if (TRUE) {
  [07:37:58.020]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.020]         }
  [07:37:58.020]         else {
  [07:37:58.020]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.020]         }
  [07:37:58.020]         base::close(...future.stdout)
  [07:37:58.020]         ...future.stdout <- NULL
  [07:37:58.020]     }
  [07:37:58.020]     ...future.result$conditions <- ...future.conditions
  [07:37:58.020]     ...future.result
  [07:37:58.020] }
  [07:37:58.026] plan(): Setting new future strategy stack:
  [07:37:58.026] List of future strategies:
  [07:37:58.026] 1. sequential:
  [07:37:58.026]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.026]    - tweaked: FALSE
  [07:37:58.026]    - call: NULL
  [07:37:58.027] plan(): nbrOfWorkers() = 1
  [07:37:58.029] plan(): Setting new future strategy stack:
  [07:37:58.029] List of future strategies:
  [07:37:58.029] 1. sequential:
  [07:37:58.029]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.029]    - tweaked: FALSE
  [07:37:58.029]    - call: plan(strategy)
  [07:37:58.030] plan(): nbrOfWorkers() = 1
  [07:37:58.031] SequentialFuture started (and completed)
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d60c1de8> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d63fce18> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d60c1de8> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d63fce18> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 1 6
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
   logi [1, 1:6] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:37:58.068] resolve() on list ...
  [07:37:58.069]  recursive: 0
  [07:37:58.069]  length: 6
  [07:37:58.069]  elements: 'a', 'b', 'c', '', '', ''
  [07:37:58.070] signalConditionsASAP(numeric, pos=1) ...
  [07:37:58.070] - nx: 6
  [07:37:58.070] - relay: TRUE
  [07:37:58.071] - stdout: TRUE
  [07:37:58.071] - signal: TRUE
  [07:37:58.071] - resignal: FALSE
  [07:37:58.072] - force: TRUE
  [07:37:58.072] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.072] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.073]  - until=2
  [07:37:58.073]  - relaying element #2
  [07:37:58.073] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.073] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.074] signalConditionsASAP(NULL, pos=1) ... done
  [07:37:58.074]  length: 5 (resolved future 1)
  [07:37:58.074] Future #2
  [07:37:58.075] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:37:58.075] - nx: 6
  [07:37:58.075] - relay: TRUE
  [07:37:58.076] - stdout: TRUE
  [07:37:58.076] - signal: TRUE
  [07:37:58.076] - resignal: FALSE
  [07:37:58.077] - force: TRUE
  [07:37:58.077] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.077] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.078]  - until=2
  [07:37:58.078]  - relaying element #2
  [07:37:58.078] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.079] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.079] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:37:58.079]  length: 4 (resolved future 2)
  [07:37:58.080] Future #3
  [07:37:58.080] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:37:58.081] - nx: 6
  [07:37:58.081] - relay: TRUE
  [07:37:58.081] - stdout: TRUE
  [07:37:58.081] - signal: TRUE
  [07:37:58.082] - resignal: FALSE
  [07:37:58.082] - force: TRUE
  [07:37:58.082] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.083] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.083]  - until=3
  [07:37:58.083]  - relaying element #3
  [07:37:58.084] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.084] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.085] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:37:58.085]  length: 3 (resolved future 3)
  [07:37:58.085] signalConditionsASAP(NULL, pos=4) ...
  [07:37:58.086] - nx: 6
  [07:37:58.086] - relay: TRUE
  [07:37:58.086] - stdout: TRUE
  [07:37:58.089] - signal: TRUE
  [07:37:58.111] - resignal: FALSE
  [07:37:58.111] - force: TRUE
  [07:37:58.112] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.112] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.112]  - until=5
  [07:37:58.113]  - relaying element #5
  [07:37:58.113] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.113] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.114] signalConditionsASAP(NULL, pos=4) ... done
  [07:37:58.114]  length: 2 (resolved future 4)
  [07:37:58.115] signalConditionsASAP(NULL, pos=5) ...
  [07:37:58.115] - nx: 6
  [07:37:58.115] - relay: TRUE
  [07:37:58.116] - stdout: TRUE
  [07:37:58.116] - signal: TRUE
  [07:37:58.116] - resignal: FALSE
  [07:37:58.117] - force: TRUE
  [07:37:58.117] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.117] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.118]  - until=6
  [07:37:58.118]  - relaying element #6
  [07:37:58.118] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.119] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.119] signalConditionsASAP(NULL, pos=5) ... done
  [07:37:58.119]  length: 1 (resolved future 5)
  [07:37:58.120] signalConditionsASAP(numeric, pos=6) ...
  [07:37:58.120] - nx: 6
  [07:37:58.120] - relay: TRUE
  [07:37:58.121] - stdout: TRUE
  [07:37:58.121] - signal: TRUE
  [07:37:58.121] - resignal: FALSE
  [07:37:58.122] - force: TRUE
  [07:37:58.122] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.122] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.123]  - until=6
  [07:37:58.123] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.123] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.124] signalConditionsASAP(numeric, pos=6) ... done
  [07:37:58.124]  length: 0 (resolved future 6)
  [07:37:58.125] Relaying remaining futures
  [07:37:58.125] signalConditionsASAP(NULL, pos=0) ...
  [07:37:58.125] - nx: 6
  [07:37:58.126] - relay: TRUE
  [07:37:58.126] - stdout: TRUE
  [07:37:58.126] - signal: TRUE
  [07:37:58.144] - resignal: FALSE
  [07:37:58.144] - force: TRUE
  [07:37:58.144] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.145] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:37:58.145] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.146] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.146] signalConditionsASAP(NULL, pos=0) ... done
  [07:37:58.147] resolve() on list ... DONE
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 1 6
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
  Dimensions: c(2, 3)
  [07:37:58.175] getGlobalsAndPackages() ...
  [07:37:58.175] Searching for globals...
  [07:37:58.176] 
  [07:37:58.176] Searching for globals ... DONE
  [07:37:58.177] - globals: [0] <none>
  [07:37:58.177] getGlobalsAndPackages() ... DONE
  [07:37:58.182] Packages needed by the future expression (n = 0): <none>
  [07:37:58.183] Packages needed by future strategies (n = 0): <none>
  [07:37:58.189] {
  [07:37:58.189]     {
  [07:37:58.189]         ...future.startTime <- base::Sys.time()
  [07:37:58.189]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.189]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.189]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.189]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.189]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.189]         {
  [07:37:58.189]             {
  [07:37:58.189]                 base::local({
  [07:37:58.189]                   has_future <- base::requireNamespace("future", 
  [07:37:58.189]                     quietly = TRUE)
  [07:37:58.189]                   version <- if (has_future) 
  [07:37:58.189]                     utils::packageVersion("future")
  [07:37:58.189]                   else NULL
  [07:37:58.189]                   if (!has_future || version < "1.8.0") {
  [07:37:58.189]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.189]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.189]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.189]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.189]                         "release", "version")], collapse = " "), 
  [07:37:58.189]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.189]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.189]                       info)
  [07:37:58.189]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.189]                     if (!has_future) {
  [07:37:58.189]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.189]                         info)
  [07:37:58.189]                     }
  [07:37:58.189]                     else {
  [07:37:58.189]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.189]                         info, version)
  [07:37:58.189]                     }
  [07:37:58.189]                     base::stop(msg)
  [07:37:58.189]                   }
  [07:37:58.189]                 })
  [07:37:58.189]             }
  [07:37:58.189]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.189]         }
  [07:37:58.189]     }
  [07:37:58.189]     if (base::is.na(TRUE)) {
  [07:37:58.189]     }
  [07:37:58.189]     else {
  [07:37:58.189]         if (TRUE) {
  [07:37:58.189]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.189]                 open = "w")
  [07:37:58.189]         }
  [07:37:58.189]         else {
  [07:37:58.189]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.189]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.189]         }
  [07:37:58.189]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.189]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.189]             base::sink(type = "output", split = FALSE)
  [07:37:58.189]             base::close(...future.stdout)
  [07:37:58.189]         }, add = TRUE)
  [07:37:58.189]     }
  [07:37:58.189]     ...future.frame <- base::sys.nframe()
  [07:37:58.189]     ...future.conditions <- base::list()
  [07:37:58.189]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.189]     ...future.result <- base::tryCatch({
  [07:37:58.189]         base::withCallingHandlers({
  [07:37:58.189]             ...future.value <- base::withVisible(base::local(2))
  [07:37:58.189]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.189]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.189]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.189]                 version = "1.8")
  [07:37:58.189]         }, condition = base::local({
  [07:37:58.189]             c <- base::c
  [07:37:58.189]             inherits <- base::inherits
  [07:37:58.189]             invokeRestart <- base::invokeRestart
  [07:37:58.189]             length <- base::length
  [07:37:58.189]             list <- base::list
  [07:37:58.189]             seq.int <- base::seq.int
  [07:37:58.189]             signalCondition <- base::signalCondition
  [07:37:58.189]             sys.calls <- base::sys.calls
  [07:37:58.189]             Sys.time <- base::Sys.time
  [07:37:58.189]             `[[` <- base::`[[`
  [07:37:58.189]             `+` <- base::`+`
  [07:37:58.189]             `<<-` <- base::`<<-`
  [07:37:58.189]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.189]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.189]                   3L)]
  [07:37:58.189]             }
  [07:37:58.189]             function(cond) {
  [07:37:58.189]                 if (inherits(cond, "error")) {
  [07:37:58.189]                   sessionInformation <- function() {
  [07:37:58.189]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.189]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.189]                       search = base::search(), system = base::Sys.info())
  [07:37:58.189]                   }
  [07:37:58.189]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.189]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.189]                     cond$call), session = sessionInformation(), 
  [07:37:58.189]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.189]                   signalCondition(cond)
  [07:37:58.189]                 }
  [07:37:58.189]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.189]                 ))) {
  [07:37:58.189]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.189]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.189]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.189]                   if (!signal) {
  [07:37:58.189]                     muffleCondition <- function (cond) 
  [07:37:58.189]                     {
  [07:37:58.189]                       inherits <- base::inherits
  [07:37:58.189]                       invokeRestart <- base::invokeRestart
  [07:37:58.189]                       muffled <- FALSE
  [07:37:58.189]                       if (inherits(cond, "message")) {
  [07:37:58.189]                         invokeRestart("muffleMessage")
  [07:37:58.189]                         muffled <- TRUE
  [07:37:58.189]                       }
  [07:37:58.189]                       else if (inherits(cond, "warning")) {
  [07:37:58.189]                         invokeRestart("muffleWarning")
  [07:37:58.189]                         muffled <- TRUE
  [07:37:58.189]                       }
  [07:37:58.189]                       else if (inherits(cond, "condition")) {
  [07:37:58.189]                         computeRestarts <- base::computeRestarts
  [07:37:58.189]                         grepl <- base::grepl
  [07:37:58.189]                         is.null <- base::is.null
  [07:37:58.189]                         restarts <- computeRestarts(cond)
  [07:37:58.189]                         for (restart in restarts) {
  [07:37:58.189]                           name <- restart$name
  [07:37:58.189]                           if (is.null(name)) 
  [07:37:58.189]                             next
  [07:37:58.189]                           if (!grepl("^muffle", name)) 
  [07:37:58.189]                             next
  [07:37:58.189]                           invokeRestart(restart)
  [07:37:58.189]                           muffled <- TRUE
  [07:37:58.189]                           break
  [07:37:58.189]                         }
  [07:37:58.189]                       }
  [07:37:58.189]                       invisible(muffled)
  [07:37:58.189]                     }
  [07:37:58.189]                     muffleCondition(cond)
  [07:37:58.189]                   }
  [07:37:58.189]                 }
  [07:37:58.189]             }
  [07:37:58.189]         }))
  [07:37:58.189]     }, error = function(ex) {
  [07:37:58.189]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.189]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.189]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.189]     }, finally = {
  [07:37:58.189]         {
  [07:37:58.189]             NULL
  [07:37:58.189]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.189]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.189]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.189]                 label = NULL, ...) 
  [07:37:58.189]             {
  [07:37:58.189]                 if (substitute) 
  [07:37:58.189]                   expr <- substitute(expr)
  [07:37:58.189]                 local <- as.logical(local)
  [07:37:58.189]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.189]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.189]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.189]                   label = label, ...)
  [07:37:58.189]                 if (!future$lazy) 
  [07:37:58.189]                   future <- run(future)
  [07:37:58.189]                 invisible(future)
  [07:37:58.189]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.189]         }
  [07:37:58.189]         base::options(...future.oldOptions)
  [07:37:58.189]     })
  [07:37:58.189]     Sys.time
  [07:37:58.189]     if (base::is.na(TRUE)) {
  [07:37:58.189]     }
  [07:37:58.189]     else {
  [07:37:58.189]         base::sink(type = "output", split = FALSE)
  [07:37:58.189]         if (TRUE) {
  [07:37:58.189]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.189]         }
  [07:37:58.189]         else {
  [07:37:58.189]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.189]         }
  [07:37:58.189]         base::close(...future.stdout)
  [07:37:58.189]         ...future.stdout <- NULL
  [07:37:58.189]     }
  [07:37:58.189]     ...future.result$conditions <- ...future.conditions
  [07:37:58.189]     ...future.result
  [07:37:58.189] }
  [07:37:58.204] plan(): Setting new future strategy stack:
  [07:37:58.205] List of future strategies:
  [07:37:58.205] 1. sequential:
  [07:37:58.205]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.205]    - tweaked: FALSE
  [07:37:58.205]    - call: NULL
  [07:37:58.206] plan(): nbrOfWorkers() = 1
  [07:37:58.207] plan(): Setting new future strategy stack:
  [07:37:58.208] List of future strategies:
  [07:37:58.208] 1. sequential:
  [07:37:58.208]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.208]    - tweaked: FALSE
  [07:37:58.208]    - call: plan(strategy)
  [07:37:58.209] plan(): nbrOfWorkers() = 1
  [07:37:58.210] SequentialFuture started (and completed)
  [07:37:58.211] getGlobalsAndPackages() ...
  [07:37:58.211] Searching for globals...
  [07:37:58.212] 
  [07:37:58.212] Searching for globals ... DONE
  [07:37:58.212] - globals: [0] <none>
  [07:37:58.213] getGlobalsAndPackages() ... DONE
  [07:37:58.231] Packages needed by the future expression (n = 0): <none>
  [07:37:58.232] Packages needed by future strategies (n = 0): <none>
  [07:37:58.238] {
  [07:37:58.238]     {
  [07:37:58.238]         ...future.startTime <- base::Sys.time()
  [07:37:58.238]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.238]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.238]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.238]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.238]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.238]         {
  [07:37:58.238]             {
  [07:37:58.238]                 base::local({
  [07:37:58.238]                   has_future <- base::requireNamespace("future", 
  [07:37:58.238]                     quietly = TRUE)
  [07:37:58.238]                   version <- if (has_future) 
  [07:37:58.238]                     utils::packageVersion("future")
  [07:37:58.238]                   else NULL
  [07:37:58.238]                   if (!has_future || version < "1.8.0") {
  [07:37:58.238]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.238]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.238]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.238]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.238]                         "release", "version")], collapse = " "), 
  [07:37:58.238]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.238]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.238]                       info)
  [07:37:58.238]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.238]                     if (!has_future) {
  [07:37:58.238]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.238]                         info)
  [07:37:58.238]                     }
  [07:37:58.238]                     else {
  [07:37:58.238]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.238]                         info, version)
  [07:37:58.238]                     }
  [07:37:58.238]                     base::stop(msg)
  [07:37:58.238]                   }
  [07:37:58.238]                 })
  [07:37:58.238]             }
  [07:37:58.238]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.238]         }
  [07:37:58.238]     }
  [07:37:58.238]     if (base::is.na(TRUE)) {
  [07:37:58.238]     }
  [07:37:58.238]     else {
  [07:37:58.238]         if (TRUE) {
  [07:37:58.238]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.238]                 open = "w")
  [07:37:58.238]         }
  [07:37:58.238]         else {
  [07:37:58.238]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.238]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.238]         }
  [07:37:58.238]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.238]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.238]             base::sink(type = "output", split = FALSE)
  [07:37:58.238]             base::close(...future.stdout)
  [07:37:58.238]         }, add = TRUE)
  [07:37:58.238]     }
  [07:37:58.238]     ...future.frame <- base::sys.nframe()
  [07:37:58.238]     ...future.conditions <- base::list()
  [07:37:58.238]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.238]     ...future.result <- base::tryCatch({
  [07:37:58.238]         base::withCallingHandlers({
  [07:37:58.238]             ...future.value <- base::withVisible(base::local(NULL))
  [07:37:58.238]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.238]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.238]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.238]                 version = "1.8")
  [07:37:58.238]         }, condition = base::local({
  [07:37:58.238]             c <- base::c
  [07:37:58.238]             inherits <- base::inherits
  [07:37:58.238]             invokeRestart <- base::invokeRestart
  [07:37:58.238]             length <- base::length
  [07:37:58.238]             list <- base::list
  [07:37:58.238]             seq.int <- base::seq.int
  [07:37:58.238]             signalCondition <- base::signalCondition
  [07:37:58.238]             sys.calls <- base::sys.calls
  [07:37:58.238]             Sys.time <- base::Sys.time
  [07:37:58.238]             `[[` <- base::`[[`
  [07:37:58.238]             `+` <- base::`+`
  [07:37:58.238]             `<<-` <- base::`<<-`
  [07:37:58.238]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.238]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.238]                   3L)]
  [07:37:58.238]             }
  [07:37:58.238]             function(cond) {
  [07:37:58.238]                 if (inherits(cond, "error")) {
  [07:37:58.238]                   sessionInformation <- function() {
  [07:37:58.238]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.238]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.238]                       search = base::search(), system = base::Sys.info())
  [07:37:58.238]                   }
  [07:37:58.238]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.238]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.238]                     cond$call), session = sessionInformation(), 
  [07:37:58.238]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.238]                   signalCondition(cond)
  [07:37:58.238]                 }
  [07:37:58.238]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.238]                 ))) {
  [07:37:58.238]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.238]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.238]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.238]                   if (!signal) {
  [07:37:58.238]                     muffleCondition <- function (cond) 
  [07:37:58.238]                     {
  [07:37:58.238]                       inherits <- base::inherits
  [07:37:58.238]                       invokeRestart <- base::invokeRestart
  [07:37:58.238]                       muffled <- FALSE
  [07:37:58.238]                       if (inherits(cond, "message")) {
  [07:37:58.238]                         invokeRestart("muffleMessage")
  [07:37:58.238]                         muffled <- TRUE
  [07:37:58.238]                       }
  [07:37:58.238]                       else if (inherits(cond, "warning")) {
  [07:37:58.238]                         invokeRestart("muffleWarning")
  [07:37:58.238]                         muffled <- TRUE
  [07:37:58.238]                       }
  [07:37:58.238]                       else if (inherits(cond, "condition")) {
  [07:37:58.238]                         computeRestarts <- base::computeRestarts
  [07:37:58.238]                         grepl <- base::grepl
  [07:37:58.238]                         is.null <- base::is.null
  [07:37:58.238]                         restarts <- computeRestarts(cond)
  [07:37:58.238]                         for (restart in restarts) {
  [07:37:58.238]                           name <- restart$name
  [07:37:58.238]                           if (is.null(name)) 
  [07:37:58.238]                             next
  [07:37:58.238]                           if (!grepl("^muffle", name)) 
  [07:37:58.238]                             next
  [07:37:58.238]                           invokeRestart(restart)
  [07:37:58.238]                           muffled <- TRUE
  [07:37:58.238]                           break
  [07:37:58.238]                         }
  [07:37:58.238]                       }
  [07:37:58.238]                       invisible(muffled)
  [07:37:58.238]                     }
  [07:37:58.238]                     muffleCondition(cond)
  [07:37:58.238]                   }
  [07:37:58.238]                 }
  [07:37:58.238]             }
  [07:37:58.238]         }))
  [07:37:58.238]     }, error = function(ex) {
  [07:37:58.238]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.238]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.238]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.238]     }, finally = {
  [07:37:58.238]         {
  [07:37:58.238]             NULL
  [07:37:58.238]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.238]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.238]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.238]                 label = NULL, ...) 
  [07:37:58.238]             {
  [07:37:58.238]                 if (substitute) 
  [07:37:58.238]                   expr <- substitute(expr)
  [07:37:58.238]                 local <- as.logical(local)
  [07:37:58.238]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.238]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.238]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.238]                   label = label, ...)
  [07:37:58.238]                 if (!future$lazy) 
  [07:37:58.238]                   future <- run(future)
  [07:37:58.238]                 invisible(future)
  [07:37:58.238]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.238]         }
  [07:37:58.238]         base::options(...future.oldOptions)
  [07:37:58.238]     })
  [07:37:58.238]     Sys.time
  [07:37:58.238]     if (base::is.na(TRUE)) {
  [07:37:58.238]     }
  [07:37:58.238]     else {
  [07:37:58.238]         base::sink(type = "output", split = FALSE)
  [07:37:58.238]         if (TRUE) {
  [07:37:58.238]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.238]         }
  [07:37:58.238]         else {
  [07:37:58.238]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.238]         }
  [07:37:58.238]         base::close(...future.stdout)
  [07:37:58.238]         ...future.stdout <- NULL
  [07:37:58.238]     }
  [07:37:58.238]     ...future.result$conditions <- ...future.conditions
  [07:37:58.238]     ...future.result
  [07:37:58.238] }
  [07:37:58.243] plan(): Setting new future strategy stack:
  [07:37:58.243] List of future strategies:
  [07:37:58.243] 1. sequential:
  [07:37:58.243]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.243]    - tweaked: FALSE
  [07:37:58.243]    - call: NULL
  [07:37:58.245] plan(): nbrOfWorkers() = 1
  [07:37:58.246] plan(): Setting new future strategy stack:
  [07:37:58.246] List of future strategies:
  [07:37:58.246] 1. sequential:
  [07:37:58.246]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.246]    - tweaked: FALSE
  [07:37:58.246]    - call: plan(strategy)
  [07:37:58.248] plan(): nbrOfWorkers() = 1
  [07:37:58.248] SequentialFuture started (and completed)
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d68b5560> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d523ec48> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d68b5560> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d523ec48> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 2 3
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
   logi [1:2, 1:3] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:37:58.271] resolve() on list ...
  [07:37:58.271]  recursive: 0
  [07:37:58.272]  length: 6
  [07:37:58.272]  elements: 'a', 'b', 'c', '', '', ''
  [07:37:58.272] signalConditionsASAP(numeric, pos=1) ...
  [07:37:58.273] - nx: 6
  [07:37:58.273] - relay: TRUE
  [07:37:58.273] - stdout: TRUE
  [07:37:58.274] - signal: TRUE
  [07:37:58.274] - resignal: FALSE
  [07:37:58.274] - force: TRUE
  [07:37:58.275] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.275] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.275]  - until=2
  [07:37:58.276]  - relaying element #2
  [07:37:58.276] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.276] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.277] signalConditionsASAP(NULL, pos=1) ... done
  [07:37:58.277]  length: 5 (resolved future 1)
  [07:37:58.277] Future #2
  [07:37:58.278] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:37:58.278] - nx: 6
  [07:37:58.279] - relay: TRUE
  [07:37:58.279] - stdout: TRUE
  [07:37:58.279] - signal: TRUE
  [07:37:58.279] - resignal: FALSE
  [07:37:58.280] - force: TRUE
  [07:37:58.280] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.280] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.281]  - until=2
  [07:37:58.281]  - relaying element #2
  [07:37:58.282] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.282] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.283] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:37:58.283]  length: 4 (resolved future 2)
  [07:37:58.283] Future #3
  [07:37:58.284] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:37:58.284] - nx: 6
  [07:37:58.284] - relay: TRUE
  [07:37:58.285] - stdout: TRUE
  [07:37:58.285] - signal: TRUE
  [07:37:58.285] - resignal: FALSE
  [07:37:58.286] - force: TRUE
  [07:37:58.286] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.286] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.287]  - until=3
  [07:37:58.287]  - relaying element #3
  [07:37:58.288] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.288] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.288] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:37:58.289]  length: 3 (resolved future 3)
  [07:37:58.289] signalConditionsASAP(NULL, pos=4) ...
  [07:37:58.290] - nx: 6
  [07:37:58.290] - relay: TRUE
  [07:37:58.290] - stdout: TRUE
  [07:37:58.290] - signal: TRUE
  [07:37:58.291] - resignal: FALSE
  [07:37:58.291] - force: TRUE
  [07:37:58.291] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.292] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.292]  - until=5
  [07:37:58.292]  - relaying element #5
  [07:37:58.296] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.296] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.296] signalConditionsASAP(NULL, pos=4) ... done
  [07:37:58.297]  length: 2 (resolved future 4)
  [07:37:58.297] signalConditionsASAP(NULL, pos=5) ...
  [07:37:58.297] - nx: 6
  [07:37:58.298] - relay: TRUE
  [07:37:58.298] - stdout: TRUE
  [07:37:58.298] - signal: TRUE
  [07:37:58.299] - resignal: FALSE
  [07:37:58.299] - force: TRUE
  [07:37:58.299] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.300] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.300]  - until=6
  [07:37:58.300]  - relaying element #6
  [07:37:58.301] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.301] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.301] signalConditionsASAP(NULL, pos=5) ... done
  [07:37:58.302]  length: 1 (resolved future 5)
  [07:37:58.302] signalConditionsASAP(numeric, pos=6) ...
  [07:37:58.303] - nx: 6
  [07:37:58.303] - relay: TRUE
  [07:37:58.303] - stdout: TRUE
  [07:37:58.303] - signal: TRUE
  [07:37:58.304] - resignal: FALSE
  [07:37:58.304] - force: TRUE
  [07:37:58.304] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.305] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.305]  - until=6
  [07:37:58.305] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.306] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.306] signalConditionsASAP(numeric, pos=6) ... done
  [07:37:58.307]  length: 0 (resolved future 6)
  [07:37:58.307] Relaying remaining futures
  [07:37:58.307] signalConditionsASAP(NULL, pos=0) ...
  [07:37:58.307] - nx: 6
  [07:37:58.308] - relay: TRUE
  [07:37:58.308] - stdout: TRUE
  [07:37:58.308] - signal: TRUE
  [07:37:58.309] - resignal: FALSE
  [07:37:58.309] - force: TRUE
  [07:37:58.309] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.310] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:37:58.310] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.311] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.311] signalConditionsASAP(NULL, pos=0) ... done
  [07:37:58.311] resolve() on list ... DONE
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 2 3
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
  Dimensions: c(2, 3, 1)
  [07:37:58.323] getGlobalsAndPackages() ...
  [07:37:58.323] Searching for globals...
  [07:37:58.324] 
  [07:37:58.325] Searching for globals ... DONE
  [07:37:58.325] - globals: [0] <none>
  [07:37:58.325] getGlobalsAndPackages() ... DONE
  [07:37:58.328] Packages needed by the future expression (n = 0): <none>
  [07:37:58.328] Packages needed by future strategies (n = 0): <none>
  [07:37:58.334] {
  [07:37:58.334]     {
  [07:37:58.334]         ...future.startTime <- base::Sys.time()
  [07:37:58.334]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.334]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.334]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.334]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.334]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.334]         {
  [07:37:58.334]             {
  [07:37:58.334]                 base::local({
  [07:37:58.334]                   has_future <- base::requireNamespace("future", 
  [07:37:58.334]                     quietly = TRUE)
  [07:37:58.334]                   version <- if (has_future) 
  [07:37:58.334]                     utils::packageVersion("future")
  [07:37:58.334]                   else NULL
  [07:37:58.334]                   if (!has_future || version < "1.8.0") {
  [07:37:58.334]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.334]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.334]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.334]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.334]                         "release", "version")], collapse = " "), 
  [07:37:58.334]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.334]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.334]                       info)
  [07:37:58.334]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.334]                     if (!has_future) {
  [07:37:58.334]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.334]                         info)
  [07:37:58.334]                     }
  [07:37:58.334]                     else {
  [07:37:58.334]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.334]                         info, version)
  [07:37:58.334]                     }
  [07:37:58.334]                     base::stop(msg)
  [07:37:58.334]                   }
  [07:37:58.334]                 })
  [07:37:58.334]             }
  [07:37:58.334]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.334]         }
  [07:37:58.334]     }
  [07:37:58.334]     if (base::is.na(TRUE)) {
  [07:37:58.334]     }
  [07:37:58.334]     else {
  [07:37:58.334]         if (TRUE) {
  [07:37:58.334]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.334]                 open = "w")
  [07:37:58.334]         }
  [07:37:58.334]         else {
  [07:37:58.334]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.334]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.334]         }
  [07:37:58.334]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.334]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.334]             base::sink(type = "output", split = FALSE)
  [07:37:58.334]             base::close(...future.stdout)
  [07:37:58.334]         }, add = TRUE)
  [07:37:58.334]     }
  [07:37:58.334]     ...future.frame <- base::sys.nframe()
  [07:37:58.334]     ...future.conditions <- base::list()
  [07:37:58.334]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.334]     ...future.result <- base::tryCatch({
  [07:37:58.334]         base::withCallingHandlers({
  [07:37:58.334]             ...future.value <- base::withVisible(base::local(2))
  [07:37:58.334]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.334]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.334]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.334]                 version = "1.8")
  [07:37:58.334]         }, condition = base::local({
  [07:37:58.334]             c <- base::c
  [07:37:58.334]             inherits <- base::inherits
  [07:37:58.334]             invokeRestart <- base::invokeRestart
  [07:37:58.334]             length <- base::length
  [07:37:58.334]             list <- base::list
  [07:37:58.334]             seq.int <- base::seq.int
  [07:37:58.334]             signalCondition <- base::signalCondition
  [07:37:58.334]             sys.calls <- base::sys.calls
  [07:37:58.334]             Sys.time <- base::Sys.time
  [07:37:58.334]             `[[` <- base::`[[`
  [07:37:58.334]             `+` <- base::`+`
  [07:37:58.334]             `<<-` <- base::`<<-`
  [07:37:58.334]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.334]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.334]                   3L)]
  [07:37:58.334]             }
  [07:37:58.334]             function(cond) {
  [07:37:58.334]                 if (inherits(cond, "error")) {
  [07:37:58.334]                   sessionInformation <- function() {
  [07:37:58.334]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.334]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.334]                       search = base::search(), system = base::Sys.info())
  [07:37:58.334]                   }
  [07:37:58.334]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.334]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.334]                     cond$call), session = sessionInformation(), 
  [07:37:58.334]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.334]                   signalCondition(cond)
  [07:37:58.334]                 }
  [07:37:58.334]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.334]                 ))) {
  [07:37:58.334]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.334]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.334]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.334]                   if (!signal) {
  [07:37:58.334]                     muffleCondition <- function (cond) 
  [07:37:58.334]                     {
  [07:37:58.334]                       inherits <- base::inherits
  [07:37:58.334]                       invokeRestart <- base::invokeRestart
  [07:37:58.334]                       muffled <- FALSE
  [07:37:58.334]                       if (inherits(cond, "message")) {
  [07:37:58.334]                         invokeRestart("muffleMessage")
  [07:37:58.334]                         muffled <- TRUE
  [07:37:58.334]                       }
  [07:37:58.334]                       else if (inherits(cond, "warning")) {
  [07:37:58.334]                         invokeRestart("muffleWarning")
  [07:37:58.334]                         muffled <- TRUE
  [07:37:58.334]                       }
  [07:37:58.334]                       else if (inherits(cond, "condition")) {
  [07:37:58.334]                         computeRestarts <- base::computeRestarts
  [07:37:58.334]                         grepl <- base::grepl
  [07:37:58.334]                         is.null <- base::is.null
  [07:37:58.334]                         restarts <- computeRestarts(cond)
  [07:37:58.334]                         for (restart in restarts) {
  [07:37:58.334]                           name <- restart$name
  [07:37:58.334]                           if (is.null(name)) 
  [07:37:58.334]                             next
  [07:37:58.334]                           if (!grepl("^muffle", name)) 
  [07:37:58.334]                             next
  [07:37:58.334]                           invokeRestart(restart)
  [07:37:58.334]                           muffled <- TRUE
  [07:37:58.334]                           break
  [07:37:58.334]                         }
  [07:37:58.334]                       }
  [07:37:58.334]                       invisible(muffled)
  [07:37:58.334]                     }
  [07:37:58.334]                     muffleCondition(cond)
  [07:37:58.334]                   }
  [07:37:58.334]                 }
  [07:37:58.334]             }
  [07:37:58.334]         }))
  [07:37:58.334]     }, error = function(ex) {
  [07:37:58.334]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.334]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.334]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.334]     }, finally = {
  [07:37:58.334]         {
  [07:37:58.334]             NULL
  [07:37:58.334]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.334]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.334]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.334]                 label = NULL, ...) 
  [07:37:58.334]             {
  [07:37:58.334]                 if (substitute) 
  [07:37:58.334]                   expr <- substitute(expr)
  [07:37:58.334]                 local <- as.logical(local)
  [07:37:58.334]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.334]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.334]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.334]                   label = label, ...)
  [07:37:58.334]                 if (!future$lazy) 
  [07:37:58.334]                   future <- run(future)
  [07:37:58.334]                 invisible(future)
  [07:37:58.334]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.334]         }
  [07:37:58.334]         base::options(...future.oldOptions)
  [07:37:58.334]     })
  [07:37:58.334]     Sys.time
  [07:37:58.334]     if (base::is.na(TRUE)) {
  [07:37:58.334]     }
  [07:37:58.334]     else {
  [07:37:58.334]         base::sink(type = "output", split = FALSE)
  [07:37:58.334]         if (TRUE) {
  [07:37:58.334]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.334]         }
  [07:37:58.334]         else {
  [07:37:58.334]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.334]         }
  [07:37:58.334]         base::close(...future.stdout)
  [07:37:58.334]         ...future.stdout <- NULL
  [07:37:58.334]     }
  [07:37:58.334]     ...future.result$conditions <- ...future.conditions
  [07:37:58.334]     ...future.result
  [07:37:58.334] }
  [07:37:58.340] plan(): Setting new future strategy stack:
  [07:37:58.340] List of future strategies:
  [07:37:58.340] 1. sequential:
  [07:37:58.340]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.340]    - tweaked: FALSE
  [07:37:58.340]    - call: NULL
  [07:37:58.341] plan(): nbrOfWorkers() = 1
  [07:37:58.343] plan(): Setting new future strategy stack:
  [07:37:58.343] List of future strategies:
  [07:37:58.343] 1. sequential:
  [07:37:58.343]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.343]    - tweaked: FALSE
  [07:37:58.343]    - call: plan(strategy)
  [07:37:58.344] plan(): nbrOfWorkers() = 1
  [07:37:58.345] SequentialFuture started (and completed)
  [07:37:58.345] getGlobalsAndPackages() ...
  [07:37:58.346] Searching for globals...
  [07:37:58.347] 
  [07:37:58.347] Searching for globals ... DONE
  [07:37:58.348] - globals: [0] <none>
  [07:37:58.348] getGlobalsAndPackages() ... DONE
  [07:37:58.350] Packages needed by the future expression (n = 0): <none>
  [07:37:58.367] Packages needed by future strategies (n = 0): <none>
  [07:37:58.373] {
  [07:37:58.373]     {
  [07:37:58.373]         ...future.startTime <- base::Sys.time()
  [07:37:58.373]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.373]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.373]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.373]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.373]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.373]         {
  [07:37:58.373]             {
  [07:37:58.373]                 base::local({
  [07:37:58.373]                   has_future <- base::requireNamespace("future", 
  [07:37:58.373]                     quietly = TRUE)
  [07:37:58.373]                   version <- if (has_future) 
  [07:37:58.373]                     utils::packageVersion("future")
  [07:37:58.373]                   else NULL
  [07:37:58.373]                   if (!has_future || version < "1.8.0") {
  [07:37:58.373]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.373]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.373]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.373]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.373]                         "release", "version")], collapse = " "), 
  [07:37:58.373]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.373]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.373]                       info)
  [07:37:58.373]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.373]                     if (!has_future) {
  [07:37:58.373]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.373]                         info)
  [07:37:58.373]                     }
  [07:37:58.373]                     else {
  [07:37:58.373]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.373]                         info, version)
  [07:37:58.373]                     }
  [07:37:58.373]                     base::stop(msg)
  [07:37:58.373]                   }
  [07:37:58.373]                 })
  [07:37:58.373]             }
  [07:37:58.373]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.373]         }
  [07:37:58.373]     }
  [07:37:58.373]     if (base::is.na(TRUE)) {
  [07:37:58.373]     }
  [07:37:58.373]     else {
  [07:37:58.373]         if (TRUE) {
  [07:37:58.373]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.373]                 open = "w")
  [07:37:58.373]         }
  [07:37:58.373]         else {
  [07:37:58.373]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.373]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.373]         }
  [07:37:58.373]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.373]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.373]             base::sink(type = "output", split = FALSE)
  [07:37:58.373]             base::close(...future.stdout)
  [07:37:58.373]         }, add = TRUE)
  [07:37:58.373]     }
  [07:37:58.373]     ...future.frame <- base::sys.nframe()
  [07:37:58.373]     ...future.conditions <- base::list()
  [07:37:58.373]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.373]     ...future.result <- base::tryCatch({
  [07:37:58.373]         base::withCallingHandlers({
  [07:37:58.373]             ...future.value <- base::withVisible(base::local(NULL))
  [07:37:58.373]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.373]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.373]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.373]                 version = "1.8")
  [07:37:58.373]         }, condition = base::local({
  [07:37:58.373]             c <- base::c
  [07:37:58.373]             inherits <- base::inherits
  [07:37:58.373]             invokeRestart <- base::invokeRestart
  [07:37:58.373]             length <- base::length
  [07:37:58.373]             list <- base::list
  [07:37:58.373]             seq.int <- base::seq.int
  [07:37:58.373]             signalCondition <- base::signalCondition
  [07:37:58.373]             sys.calls <- base::sys.calls
  [07:37:58.373]             Sys.time <- base::Sys.time
  [07:37:58.373]             `[[` <- base::`[[`
  [07:37:58.373]             `+` <- base::`+`
  [07:37:58.373]             `<<-` <- base::`<<-`
  [07:37:58.373]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.373]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.373]                   3L)]
  [07:37:58.373]             }
  [07:37:58.373]             function(cond) {
  [07:37:58.373]                 if (inherits(cond, "error")) {
  [07:37:58.373]                   sessionInformation <- function() {
  [07:37:58.373]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.373]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.373]                       search = base::search(), system = base::Sys.info())
  [07:37:58.373]                   }
  [07:37:58.373]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.373]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.373]                     cond$call), session = sessionInformation(), 
  [07:37:58.373]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.373]                   signalCondition(cond)
  [07:37:58.373]                 }
  [07:37:58.373]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.373]                 ))) {
  [07:37:58.373]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.373]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.373]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.373]                   if (!signal) {
  [07:37:58.373]                     muffleCondition <- function (cond) 
  [07:37:58.373]                     {
  [07:37:58.373]                       inherits <- base::inherits
  [07:37:58.373]                       invokeRestart <- base::invokeRestart
  [07:37:58.373]                       muffled <- FALSE
  [07:37:58.373]                       if (inherits(cond, "message")) {
  [07:37:58.373]                         invokeRestart("muffleMessage")
  [07:37:58.373]                         muffled <- TRUE
  [07:37:58.373]                       }
  [07:37:58.373]                       else if (inherits(cond, "warning")) {
  [07:37:58.373]                         invokeRestart("muffleWarning")
  [07:37:58.373]                         muffled <- TRUE
  [07:37:58.373]                       }
  [07:37:58.373]                       else if (inherits(cond, "condition")) {
  [07:37:58.373]                         computeRestarts <- base::computeRestarts
  [07:37:58.373]                         grepl <- base::grepl
  [07:37:58.373]                         is.null <- base::is.null
  [07:37:58.373]                         restarts <- computeRestarts(cond)
  [07:37:58.373]                         for (restart in restarts) {
  [07:37:58.373]                           name <- restart$name
  [07:37:58.373]                           if (is.null(name)) 
  [07:37:58.373]                             next
  [07:37:58.373]                           if (!grepl("^muffle", name)) 
  [07:37:58.373]                             next
  [07:37:58.373]                           invokeRestart(restart)
  [07:37:58.373]                           muffled <- TRUE
  [07:37:58.373]                           break
  [07:37:58.373]                         }
  [07:37:58.373]                       }
  [07:37:58.373]                       invisible(muffled)
  [07:37:58.373]                     }
  [07:37:58.373]                     muffleCondition(cond)
  [07:37:58.373]                   }
  [07:37:58.373]                 }
  [07:37:58.373]             }
  [07:37:58.373]         }))
  [07:37:58.373]     }, error = function(ex) {
  [07:37:58.373]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.373]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.373]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.373]     }, finally = {
  [07:37:58.373]         {
  [07:37:58.373]             NULL
  [07:37:58.373]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.373]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.373]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.373]                 label = NULL, ...) 
  [07:37:58.373]             {
  [07:37:58.373]                 if (substitute) 
  [07:37:58.373]                   expr <- substitute(expr)
  [07:37:58.373]                 local <- as.logical(local)
  [07:37:58.373]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.373]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.373]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.373]                   label = label, ...)
  [07:37:58.373]                 if (!future$lazy) 
  [07:37:58.373]                   future <- run(future)
  [07:37:58.373]                 invisible(future)
  [07:37:58.373]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.373]         }
  [07:37:58.373]         base::options(...future.oldOptions)
  [07:37:58.373]     })
  [07:37:58.373]     Sys.time
  [07:37:58.373]     if (base::is.na(TRUE)) {
  [07:37:58.373]     }
  [07:37:58.373]     else {
  [07:37:58.373]         base::sink(type = "output", split = FALSE)
  [07:37:58.373]         if (TRUE) {
  [07:37:58.373]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.373]         }
  [07:37:58.373]         else {
  [07:37:58.373]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.373]         }
  [07:37:58.373]         base::close(...future.stdout)
  [07:37:58.373]         ...future.stdout <- NULL
  [07:37:58.373]     }
  [07:37:58.373]     ...future.result$conditions <- ...future.conditions
  [07:37:58.373]     ...future.result
  [07:37:58.373] }
  [07:37:58.378] plan(): Setting new future strategy stack:
  [07:37:58.379] List of future strategies:
  [07:37:58.379] 1. sequential:
  [07:37:58.379]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.379]    - tweaked: FALSE
  [07:37:58.379]    - call: NULL
  [07:37:58.380] plan(): nbrOfWorkers() = 1
  [07:37:58.381] plan(): Setting new future strategy stack:
  [07:37:58.382] List of future strategies:
  [07:37:58.382] 1. sequential:
  [07:37:58.382]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.382]    - tweaked: FALSE
  [07:37:58.382]    - call: plan(strategy)
  [07:37:58.383] plan(): nbrOfWorkers() = 1
  [07:37:58.383] SequentialFuture started (and completed)
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d450e718> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d6027070> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d450e718> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d6027070> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:3] 2 3 1
   - attr(*, "dimnames")=List of 3
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
   logi [1:2, 1:3, 1] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 3
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:37:58.412] resolve() on list ...
  [07:37:58.412]  recursive: 0
  [07:37:58.413]  length: 6
  [07:37:58.413]  elements: 'a', 'b', 'c', '', '', ''
  [07:37:58.413] signalConditionsASAP(numeric, pos=1) ...
  [07:37:58.414] - nx: 6
  [07:37:58.414] - relay: TRUE
  [07:37:58.414] - stdout: TRUE
  [07:37:58.431] - signal: TRUE
  [07:37:58.431] - resignal: FALSE
  [07:37:58.431] - force: TRUE
  [07:37:58.432] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.432] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.433]  - until=2
  [07:37:58.433]  - relaying element #2
  [07:37:58.433] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.434] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.434] signalConditionsASAP(NULL, pos=1) ... done
  [07:37:58.434]  length: 5 (resolved future 1)
  [07:37:58.435] Future #2
  [07:37:58.435] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:37:58.436] - nx: 6
  [07:37:58.436] - relay: TRUE
  [07:37:58.436] - stdout: TRUE
  [07:37:58.437] - signal: TRUE
  [07:37:58.437] - resignal: FALSE
  [07:37:58.437] - force: TRUE
  [07:37:58.438] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.438] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.438]  - until=2
  [07:37:58.439]  - relaying element #2
  [07:37:58.439] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.440] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.440] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:37:58.441]  length: 4 (resolved future 2)
  [07:37:58.441] Future #3
  [07:37:58.441] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:37:58.442] - nx: 6
  [07:37:58.442] - relay: TRUE
  [07:37:58.442] - stdout: TRUE
  [07:37:58.443] - signal: TRUE
  [07:37:58.443] - resignal: FALSE
  [07:37:58.443] - force: TRUE
  [07:37:58.444] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.444] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.444]  - until=3
  [07:37:58.445]  - relaying element #3
  [07:37:58.445] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.446] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.446] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:37:58.446]  length: 3 (resolved future 3)
  [07:37:58.447] signalConditionsASAP(NULL, pos=4) ...
  [07:37:58.447] - nx: 6
  [07:37:58.447] - relay: TRUE
  [07:37:58.448] - stdout: TRUE
  [07:37:58.448] - signal: TRUE
  [07:37:58.448] - resignal: FALSE
  [07:37:58.449] - force: TRUE
  [07:37:58.449] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.449] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.450]  - until=5
  [07:37:58.450]  - relaying element #5
  [07:37:58.450] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.451] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.451] signalConditionsASAP(NULL, pos=4) ... done
  [07:37:58.451]  length: 2 (resolved future 4)
  [07:37:58.452] signalConditionsASAP(NULL, pos=5) ...
  [07:37:58.452] - nx: 6
  [07:37:58.452] - relay: TRUE
  [07:37:58.452] - stdout: TRUE
  [07:37:58.453] - signal: TRUE
  [07:37:58.453] - resignal: FALSE
  [07:37:58.453] - force: TRUE
  [07:37:58.454] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.454] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.454]  - until=6
  [07:37:58.455]  - relaying element #6
  [07:37:58.455] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.455] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.456] signalConditionsASAP(NULL, pos=5) ... done
  [07:37:58.456]  length: 1 (resolved future 5)
  [07:37:58.456] signalConditionsASAP(numeric, pos=6) ...
  [07:37:58.457] - nx: 6
  [07:37:58.457] - relay: TRUE
  [07:37:58.457] - stdout: TRUE
  [07:37:58.458] - signal: TRUE
  [07:37:58.458] - resignal: FALSE
  [07:37:58.458] - force: TRUE
  [07:37:58.458] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.459] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.459]  - until=6
  [07:37:58.459] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.460] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.460] signalConditionsASAP(numeric, pos=6) ... done
  [07:37:58.460]  length: 0 (resolved future 6)
  [07:37:58.461] Relaying remaining futures
  [07:37:58.461] signalConditionsASAP(NULL, pos=0) ...
  [07:37:58.461] - nx: 6
  [07:37:58.462] - relay: TRUE
  [07:37:58.462] - stdout: TRUE
  [07:37:58.462] - signal: TRUE
  [07:37:58.463] - resignal: FALSE
  [07:37:58.463] - force: TRUE
  [07:37:58.463] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.464] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:37:58.464] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.464] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.465] signalConditionsASAP(NULL, pos=0) ... done
  [07:37:58.465] resolve() on list ... DONE
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:3] 2 3 1
   - attr(*, "dimnames")=List of 3
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
  Dimensions: c(2, 1, 3, 1)
  [07:37:58.478] getGlobalsAndPackages() ...
  [07:37:58.479] Searching for globals...
  [07:37:58.480] 
  [07:37:58.480] Searching for globals ... DONE
  [07:37:58.480] - globals: [0] <none>
  [07:37:58.481] getGlobalsAndPackages() ... DONE
  [07:37:58.483] Packages needed by the future expression (n = 0): <none>
  [07:37:58.484] Packages needed by future strategies (n = 0): <none>
  [07:37:58.490] {
  [07:37:58.490]     {
  [07:37:58.490]         ...future.startTime <- base::Sys.time()
  [07:37:58.490]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.490]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.490]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.490]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.490]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.490]         {
  [07:37:58.490]             {
  [07:37:58.490]                 base::local({
  [07:37:58.490]                   has_future <- base::requireNamespace("future", 
  [07:37:58.490]                     quietly = TRUE)
  [07:37:58.490]                   version <- if (has_future) 
  [07:37:58.490]                     utils::packageVersion("future")
  [07:37:58.490]                   else NULL
  [07:37:58.490]                   if (!has_future || version < "1.8.0") {
  [07:37:58.490]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.490]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.490]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.490]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.490]                         "release", "version")], collapse = " "), 
  [07:37:58.490]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.490]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.490]                       info)
  [07:37:58.490]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.490]                     if (!has_future) {
  [07:37:58.490]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.490]                         info)
  [07:37:58.490]                     }
  [07:37:58.490]                     else {
  [07:37:58.490]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.490]                         info, version)
  [07:37:58.490]                     }
  [07:37:58.490]                     base::stop(msg)
  [07:37:58.490]                   }
  [07:37:58.490]                 })
  [07:37:58.490]             }
  [07:37:58.490]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.490]         }
  [07:37:58.490]     }
  [07:37:58.490]     if (base::is.na(TRUE)) {
  [07:37:58.490]     }
  [07:37:58.490]     else {
  [07:37:58.490]         if (TRUE) {
  [07:37:58.490]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.490]                 open = "w")
  [07:37:58.490]         }
  [07:37:58.490]         else {
  [07:37:58.490]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.490]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.490]         }
  [07:37:58.490]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.490]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.490]             base::sink(type = "output", split = FALSE)
  [07:37:58.490]             base::close(...future.stdout)
  [07:37:58.490]         }, add = TRUE)
  [07:37:58.490]     }
  [07:37:58.490]     ...future.frame <- base::sys.nframe()
  [07:37:58.490]     ...future.conditions <- base::list()
  [07:37:58.490]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.490]     ...future.result <- base::tryCatch({
  [07:37:58.490]         base::withCallingHandlers({
  [07:37:58.490]             ...future.value <- base::withVisible(base::local(2))
  [07:37:58.490]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.490]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.490]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.490]                 version = "1.8")
  [07:37:58.490]         }, condition = base::local({
  [07:37:58.490]             c <- base::c
  [07:37:58.490]             inherits <- base::inherits
  [07:37:58.490]             invokeRestart <- base::invokeRestart
  [07:37:58.490]             length <- base::length
  [07:37:58.490]             list <- base::list
  [07:37:58.490]             seq.int <- base::seq.int
  [07:37:58.490]             signalCondition <- base::signalCondition
  [07:37:58.490]             sys.calls <- base::sys.calls
  [07:37:58.490]             Sys.time <- base::Sys.time
  [07:37:58.490]             `[[` <- base::`[[`
  [07:37:58.490]             `+` <- base::`+`
  [07:37:58.490]             `<<-` <- base::`<<-`
  [07:37:58.490]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.490]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.490]                   3L)]
  [07:37:58.490]             }
  [07:37:58.490]             function(cond) {
  [07:37:58.490]                 if (inherits(cond, "error")) {
  [07:37:58.490]                   sessionInformation <- function() {
  [07:37:58.490]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.490]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.490]                       search = base::search(), system = base::Sys.info())
  [07:37:58.490]                   }
  [07:37:58.490]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.490]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.490]                     cond$call), session = sessionInformation(), 
  [07:37:58.490]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.490]                   signalCondition(cond)
  [07:37:58.490]                 }
  [07:37:58.490]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.490]                 ))) {
  [07:37:58.490]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.490]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.490]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.490]                   if (!signal) {
  [07:37:58.490]                     muffleCondition <- function (cond) 
  [07:37:58.490]                     {
  [07:37:58.490]                       inherits <- base::inherits
  [07:37:58.490]                       invokeRestart <- base::invokeRestart
  [07:37:58.490]                       muffled <- FALSE
  [07:37:58.490]                       if (inherits(cond, "message")) {
  [07:37:58.490]                         invokeRestart("muffleMessage")
  [07:37:58.490]                         muffled <- TRUE
  [07:37:58.490]                       }
  [07:37:58.490]                       else if (inherits(cond, "warning")) {
  [07:37:58.490]                         invokeRestart("muffleWarning")
  [07:37:58.490]                         muffled <- TRUE
  [07:37:58.490]                       }
  [07:37:58.490]                       else if (inherits(cond, "condition")) {
  [07:37:58.490]                         computeRestarts <- base::computeRestarts
  [07:37:58.490]                         grepl <- base::grepl
  [07:37:58.490]                         is.null <- base::is.null
  [07:37:58.490]                         restarts <- computeRestarts(cond)
  [07:37:58.490]                         for (restart in restarts) {
  [07:37:58.490]                           name <- restart$name
  [07:37:58.490]                           if (is.null(name)) 
  [07:37:58.490]                             next
  [07:37:58.490]                           if (!grepl("^muffle", name)) 
  [07:37:58.490]                             next
  [07:37:58.490]                           invokeRestart(restart)
  [07:37:58.490]                           muffled <- TRUE
  [07:37:58.490]                           break
  [07:37:58.490]                         }
  [07:37:58.490]                       }
  [07:37:58.490]                       invisible(muffled)
  [07:37:58.490]                     }
  [07:37:58.490]                     muffleCondition(cond)
  [07:37:58.490]                   }
  [07:37:58.490]                 }
  [07:37:58.490]             }
  [07:37:58.490]         }))
  [07:37:58.490]     }, error = function(ex) {
  [07:37:58.490]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.490]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.490]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.490]     }, finally = {
  [07:37:58.490]         {
  [07:37:58.490]             NULL
  [07:37:58.490]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.490]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.490]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.490]                 label = NULL, ...) 
  [07:37:58.490]             {
  [07:37:58.490]                 if (substitute) 
  [07:37:58.490]                   expr <- substitute(expr)
  [07:37:58.490]                 local <- as.logical(local)
  [07:37:58.490]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.490]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.490]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.490]                   label = label, ...)
  [07:37:58.490]                 if (!future$lazy) 
  [07:37:58.490]                   future <- run(future)
  [07:37:58.490]                 invisible(future)
  [07:37:58.490]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.490]         }
  [07:37:58.490]         base::options(...future.oldOptions)
  [07:37:58.490]     })
  [07:37:58.490]     Sys.time
  [07:37:58.490]     if (base::is.na(TRUE)) {
  [07:37:58.490]     }
  [07:37:58.490]     else {
  [07:37:58.490]         base::sink(type = "output", split = FALSE)
  [07:37:58.490]         if (TRUE) {
  [07:37:58.490]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.490]         }
  [07:37:58.490]         else {
  [07:37:58.490]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.490]         }
  [07:37:58.490]         base::close(...future.stdout)
  [07:37:58.490]         ...future.stdout <- NULL
  [07:37:58.490]     }
  [07:37:58.490]     ...future.result$conditions <- ...future.conditions
  [07:37:58.490]     ...future.result
  [07:37:58.490] }
  [07:37:58.495] plan(): Setting new future strategy stack:
  [07:37:58.495] List of future strategies:
  [07:37:58.495] 1. sequential:
  [07:37:58.495]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.495]    - tweaked: FALSE
  [07:37:58.495]    - call: NULL
  [07:37:58.496] plan(): nbrOfWorkers() = 1
  [07:37:58.498] plan(): Setting new future strategy stack:
  [07:37:58.498] List of future strategies:
  [07:37:58.498] 1. sequential:
  [07:37:58.498]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.498]    - tweaked: FALSE
  [07:37:58.498]    - call: plan(strategy)
  [07:37:58.499] plan(): nbrOfWorkers() = 1
  [07:37:58.500] SequentialFuture started (and completed)
  [07:37:58.501] getGlobalsAndPackages() ...
  [07:37:58.501] Searching for globals...
  [07:37:58.505] 
  [07:37:58.505] Searching for globals ... DONE
  [07:37:58.506] - globals: [0] <none>
  [07:37:58.506] getGlobalsAndPackages() ... DONE
  [07:37:58.508] Packages needed by the future expression (n = 0): <none>
  [07:37:58.509] Packages needed by future strategies (n = 0): <none>
  [07:37:58.515] {
  [07:37:58.515]     {
  [07:37:58.515]         ...future.startTime <- base::Sys.time()
  [07:37:58.515]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:58.515]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:58.515]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:58.515]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:58.515]             future.resolve.recursive = NULL, width = 80L)
  [07:37:58.515]         {
  [07:37:58.515]             {
  [07:37:58.515]                 base::local({
  [07:37:58.515]                   has_future <- base::requireNamespace("future", 
  [07:37:58.515]                     quietly = TRUE)
  [07:37:58.515]                   version <- if (has_future) 
  [07:37:58.515]                     utils::packageVersion("future")
  [07:37:58.515]                   else NULL
  [07:37:58.515]                   if (!has_future || version < "1.8.0") {
  [07:37:58.515]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:58.515]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:58.515]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:58.515]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:58.515]                         "release", "version")], collapse = " "), 
  [07:37:58.515]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:58.515]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:58.515]                       info)
  [07:37:58.515]                     info <- base::paste(info, collapse = "; ")
  [07:37:58.515]                     if (!has_future) {
  [07:37:58.515]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:58.515]                         info)
  [07:37:58.515]                     }
  [07:37:58.515]                     else {
  [07:37:58.515]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:58.515]                         info, version)
  [07:37:58.515]                     }
  [07:37:58.515]                     base::stop(msg)
  [07:37:58.515]                   }
  [07:37:58.515]                 })
  [07:37:58.515]             }
  [07:37:58.515]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:58.515]         }
  [07:37:58.515]     }
  [07:37:58.515]     if (base::is.na(TRUE)) {
  [07:37:58.515]     }
  [07:37:58.515]     else {
  [07:37:58.515]         if (TRUE) {
  [07:37:58.515]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:58.515]                 open = "w")
  [07:37:58.515]         }
  [07:37:58.515]         else {
  [07:37:58.515]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:58.515]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:58.515]         }
  [07:37:58.515]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:58.515]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:58.515]             base::sink(type = "output", split = FALSE)
  [07:37:58.515]             base::close(...future.stdout)
  [07:37:58.515]         }, add = TRUE)
  [07:37:58.515]     }
  [07:37:58.515]     ...future.frame <- base::sys.nframe()
  [07:37:58.515]     ...future.conditions <- base::list()
  [07:37:58.515]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:58.515]     ...future.result <- base::tryCatch({
  [07:37:58.515]         base::withCallingHandlers({
  [07:37:58.515]             ...future.value <- base::withVisible(base::local(NULL))
  [07:37:58.515]             future::FutureResult(value = ...future.value$value, 
  [07:37:58.515]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.515]                   ...future.rng), started = ...future.startTime, 
  [07:37:58.515]                 version = "1.8")
  [07:37:58.515]         }, condition = base::local({
  [07:37:58.515]             c <- base::c
  [07:37:58.515]             inherits <- base::inherits
  [07:37:58.515]             invokeRestart <- base::invokeRestart
  [07:37:58.515]             length <- base::length
  [07:37:58.515]             list <- base::list
  [07:37:58.515]             seq.int <- base::seq.int
  [07:37:58.515]             signalCondition <- base::signalCondition
  [07:37:58.515]             sys.calls <- base::sys.calls
  [07:37:58.515]             Sys.time <- base::Sys.time
  [07:37:58.515]             `[[` <- base::`[[`
  [07:37:58.515]             `+` <- base::`+`
  [07:37:58.515]             `<<-` <- base::`<<-`
  [07:37:58.515]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:58.515]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:58.515]                   3L)]
  [07:37:58.515]             }
  [07:37:58.515]             function(cond) {
  [07:37:58.515]                 if (inherits(cond, "error")) {
  [07:37:58.515]                   sessionInformation <- function() {
  [07:37:58.515]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:58.515]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:58.515]                       search = base::search(), system = base::Sys.info())
  [07:37:58.515]                   }
  [07:37:58.515]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.515]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:58.515]                     cond$call), session = sessionInformation(), 
  [07:37:58.515]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:58.515]                   signalCondition(cond)
  [07:37:58.515]                 }
  [07:37:58.515]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:58.515]                 ))) {
  [07:37:58.515]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:58.515]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:58.515]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:58.515]                   if (!signal) {
  [07:37:58.515]                     muffleCondition <- function (cond) 
  [07:37:58.515]                     {
  [07:37:58.515]                       inherits <- base::inherits
  [07:37:58.515]                       invokeRestart <- base::invokeRestart
  [07:37:58.515]                       muffled <- FALSE
  [07:37:58.515]                       if (inherits(cond, "message")) {
  [07:37:58.515]                         invokeRestart("muffleMessage")
  [07:37:58.515]                         muffled <- TRUE
  [07:37:58.515]                       }
  [07:37:58.515]                       else if (inherits(cond, "warning")) {
  [07:37:58.515]                         invokeRestart("muffleWarning")
  [07:37:58.515]                         muffled <- TRUE
  [07:37:58.515]                       }
  [07:37:58.515]                       else if (inherits(cond, "condition")) {
  [07:37:58.515]                         computeRestarts <- base::computeRestarts
  [07:37:58.515]                         grepl <- base::grepl
  [07:37:58.515]                         is.null <- base::is.null
  [07:37:58.515]                         restarts <- computeRestarts(cond)
  [07:37:58.515]                         for (restart in restarts) {
  [07:37:58.515]                           name <- restart$name
  [07:37:58.515]                           if (is.null(name)) 
  [07:37:58.515]                             next
  [07:37:58.515]                           if (!grepl("^muffle", name)) 
  [07:37:58.515]                             next
  [07:37:58.515]                           invokeRestart(restart)
  [07:37:58.515]                           muffled <- TRUE
  [07:37:58.515]                           break
  [07:37:58.515]                         }
  [07:37:58.515]                       }
  [07:37:58.515]                       invisible(muffled)
  [07:37:58.515]                     }
  [07:37:58.515]                     muffleCondition(cond)
  [07:37:58.515]                   }
  [07:37:58.515]                 }
  [07:37:58.515]             }
  [07:37:58.515]         }))
  [07:37:58.515]     }, error = function(ex) {
  [07:37:58.515]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:58.515]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:58.515]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:58.515]     }, finally = {
  [07:37:58.515]         {
  [07:37:58.515]             NULL
  [07:37:58.515]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:58.515]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:58.515]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:37:58.515]                 label = NULL, ...) 
  [07:37:58.515]             {
  [07:37:58.515]                 if (substitute) 
  [07:37:58.515]                   expr <- substitute(expr)
  [07:37:58.515]                 local <- as.logical(local)
  [07:37:58.515]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:37:58.515]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:58.515]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:37:58.515]                   label = label, ...)
  [07:37:58.515]                 if (!future$lazy) 
  [07:37:58.515]                   future <- run(future)
  [07:37:58.515]                 invisible(future)
  [07:37:58.515]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:58.515]         }
  [07:37:58.515]         base::options(...future.oldOptions)
  [07:37:58.515]     })
  [07:37:58.515]     Sys.time
  [07:37:58.515]     if (base::is.na(TRUE)) {
  [07:37:58.515]     }
  [07:37:58.515]     else {
  [07:37:58.515]         base::sink(type = "output", split = FALSE)
  [07:37:58.515]         if (TRUE) {
  [07:37:58.515]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:58.515]         }
  [07:37:58.515]         else {
  [07:37:58.515]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:58.515]         }
  [07:37:58.515]         base::close(...future.stdout)
  [07:37:58.515]         ...future.stdout <- NULL
  [07:37:58.515]     }
  [07:37:58.515]     ...future.result$conditions <- ...future.conditions
  [07:37:58.515]     ...future.result
  [07:37:58.515] }
  [07:37:58.520] plan(): Setting new future strategy stack:
  [07:37:58.521] List of future strategies:
  [07:37:58.521] 1. sequential:
  [07:37:58.521]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.521]    - tweaked: FALSE
  [07:37:58.521]    - call: NULL
  [07:37:58.522] plan(): nbrOfWorkers() = 1
  [07:37:58.523] plan(): Setting new future strategy stack:
  [07:37:58.524] List of future strategies:
  [07:37:58.524] 1. sequential:
  [07:37:58.524]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.524]    - tweaked: FALSE
  [07:37:58.524]    - call: plan(strategy)
  [07:37:58.525] plan(): nbrOfWorkers() = 1
  [07:37:58.526] SequentialFuture started (and completed)
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d6280ce0> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d4f6b470> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d6280ce0> 
   $ c:Classes 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment' <environment: 0x5576d4f6b470> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:4] 2 1 3 1
   - attr(*, "dimnames")=List of 4
    ..$ : chr [1:2] "a" "b"
    ..$ : chr "a"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
   logi [1:2, 1, 1:3, 1] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 4
    ..$ : chr [1:2] "a" "b"
    ..$ : chr "a"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:37:58.552] resolve() on list ...
  [07:37:58.553]  recursive: 0
  [07:37:58.553]  length: 6
  [07:37:58.553]  elements: 'a', 'b', 'c', '', '', ''
  [07:37:58.554] signalConditionsASAP(numeric, pos=1) ...
  [07:37:58.554] - nx: 6
  [07:37:58.554] - relay: TRUE
  [07:37:58.555] - stdout: TRUE
  [07:37:58.555] - signal: TRUE
  [07:37:58.555] - resignal: FALSE
  [07:37:58.556] - force: TRUE
  [07:37:58.556] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.556] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.557]  - until=2
  [07:37:58.557]  - relaying element #2
  [07:37:58.557] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.558] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.558] signalConditionsASAP(NULL, pos=1) ... done
  [07:37:58.558]  length: 5 (resolved future 1)
  [07:37:58.559] Future #2
  [07:37:58.559] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:37:58.560] - nx: 6
  [07:37:58.560] - relay: TRUE
  [07:37:58.560] - stdout: TRUE
  [07:37:58.561] - signal: TRUE
  [07:37:58.561] - resignal: FALSE
  [07:37:58.561] - force: TRUE
  [07:37:58.562] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.562] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.562]  - until=2
  [07:37:58.563]  - relaying element #2
  [07:37:58.563] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.563] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.564] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:37:58.564]  length: 4 (resolved future 2)
  [07:37:58.564] Future #3
  [07:37:58.565] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:37:58.565] - nx: 6
  [07:37:58.565] - relay: TRUE
  [07:37:58.566] - stdout: TRUE
  [07:37:58.566] - signal: TRUE
  [07:37:58.566] - resignal: FALSE
  [07:37:58.567] - force: TRUE
  [07:37:58.567] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.567] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:37:58.568]  - until=3
  [07:37:58.568]  - relaying element #3
  [07:37:58.569] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.569] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.569] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:37:58.570]  length: 3 (resolved future 3)
  [07:37:58.570] signalConditionsASAP(NULL, pos=4) ...
  [07:37:58.570] - nx: 6
  [07:37:58.571] - relay: TRUE
  [07:37:58.571] - stdout: TRUE
  [07:37:58.571] - signal: TRUE
  [07:37:58.571] - resignal: FALSE
  [07:37:58.572] - force: TRUE
  [07:37:58.572] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.572] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.573]  - until=5
  [07:37:58.573]  - relaying element #5
  [07:37:58.573] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.574] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.574] signalConditionsASAP(NULL, pos=4) ... done
  [07:37:58.574]  length: 2 (resolved future 4)
  [07:37:58.575] signalConditionsASAP(NULL, pos=5) ...
  [07:37:58.575] - nx: 6
  [07:37:58.575] - relay: TRUE
  [07:37:58.576] - stdout: TRUE
  [07:37:58.576] - signal: TRUE
  [07:37:58.576] - resignal: FALSE
  [07:37:58.577] - force: TRUE
  [07:37:58.577] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:37:58.577] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.578]  - until=6
  [07:37:58.578]  - relaying element #6
  [07:37:58.578] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.579] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.579] signalConditionsASAP(NULL, pos=5) ... done
  [07:37:58.579]  length: 1 (resolved future 5)
  [07:37:58.580] signalConditionsASAP(numeric, pos=6) ...
  [07:37:58.580] - nx: 6
  [07:37:58.580] - relay: TRUE
  [07:37:58.581] - stdout: TRUE
  [07:37:58.581] - signal: TRUE
  [07:37:58.581] - resignal: FALSE
  [07:37:58.582] - force: TRUE
  [07:37:58.582] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:37:58.582] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.583]  - until=6
  [07:37:58.583] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.583] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.584] signalConditionsASAP(numeric, pos=6) ... done
  [07:37:58.584]  length: 0 (resolved future 6)
  [07:37:58.584] Relaying remaining futures
  [07:37:58.585] signalConditionsASAP(NULL, pos=0) ...
  [07:37:58.585] - nx: 6
  [07:37:58.585] - relay: TRUE
  [07:37:58.586] - stdout: TRUE
  [07:37:58.586] - signal: TRUE
  [07:37:58.586] - resignal: FALSE
  [07:37:58.587] - force: TRUE
  [07:37:58.587] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.590] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:37:58.591] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:37:58.591] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:37:58.592] signalConditionsASAP(NULL, pos=0) ... done
  [07:37:58.592] resolve() on list ... DONE
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:4] 2 1 3 1
   - attr(*, "dimnames")=List of 4
    ..$ : chr [1:2] "a" "b"
    ..$ : chr "a"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
  Type of future: cluster
  [07:37:58.606] plan(): Setting new future strategy stack:
  [07:37:58.606] List of future strategies:
  [07:37:58.606] 1. cluster:
  [07:37:58.606]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.606]    - tweaked: FALSE
  [07:37:58.606]    - call: plan(strategy)
  [07:37:58.623] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [07:37:58.624] cluster:
  [07:37:58.624] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [07:37:58.624] - tweaked: FALSE
  [07:37:58.624] - call: plan(strategy)
  [07:37:58.625] getGlobalsAndPackages() ...
  [07:37:58.626] Not searching for globals
  [07:37:58.626] - globals: [0] <none>
  [07:37:58.627] getGlobalsAndPackages() ... DONE
  [local output] Workers: [n = 1] 'localhost'
  [local output] Base port: 34073
  [local output] Creating node 1 of 1 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpuBjMqI/future.parent=11076.2b4466332dd4.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpuBjMqI/future.parent=11076.2b4466332dd4.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=future/tests/futures.R:gimli:hornik:11076' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpuBjMqI/future.parent=11076.2b4466332dd4.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=34073 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 1 ... done
  [07:37:59.984] Packages needed by the future expression (n = 0): <none>
  [07:37:59.985] Packages needed by future strategies (n = 0): <none>
  [07:37:59.991] {
  [07:37:59.991]     {
  [07:37:59.991]         ...future.startTime <- base::Sys.time()
  [07:37:59.991]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:37:59.991]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:37:59.991]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:37:59.991]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:37:59.991]             future.resolve.recursive = NULL, width = 80L)
  [07:37:59.991]         {
  [07:37:59.991]             {
  [07:37:59.991]                 base::local({
  [07:37:59.991]                   has_future <- base::requireNamespace("future", 
  [07:37:59.991]                     quietly = TRUE)
  [07:37:59.991]                   version <- if (has_future) 
  [07:37:59.991]                     utils::packageVersion("future")
  [07:37:59.991]                   else NULL
  [07:37:59.991]                   if (!has_future || version < "1.8.0") {
  [07:37:59.991]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:37:59.991]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:37:59.991]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:37:59.991]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:37:59.991]                         "release", "version")], collapse = " "), 
  [07:37:59.991]                       hostname = base::Sys.info()[["nodename"]])
  [07:37:59.991]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:37:59.991]                       info)
  [07:37:59.991]                     info <- base::paste(info, collapse = "; ")
  [07:37:59.991]                     if (!has_future) {
  [07:37:59.991]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:37:59.991]                         info)
  [07:37:59.991]                     }
  [07:37:59.991]                     else {
  [07:37:59.991]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:37:59.991]                         info, version)
  [07:37:59.991]                     }
  [07:37:59.991]                     base::stop(msg)
  [07:37:59.991]                   }
  [07:37:59.991]                 })
  [07:37:59.991]             }
  [07:37:59.991]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:37:59.991]         }
  [07:37:59.991]     }
  [07:37:59.991]     if (base::is.na(TRUE)) {
  [07:37:59.991]     }
  [07:37:59.991]     else {
  [07:37:59.991]         if (TRUE) {
  [07:37:59.991]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:37:59.991]                 open = "w")
  [07:37:59.991]         }
  [07:37:59.991]         else {
  [07:37:59.991]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:37:59.991]                 windows = "NUL", "/dev/null"), open = "w")
  [07:37:59.991]         }
  [07:37:59.991]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:37:59.991]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:37:59.991]             base::sink(type = "output", split = FALSE)
  [07:37:59.991]             base::close(...future.stdout)
  [07:37:59.991]         }, add = TRUE)
  [07:37:59.991]     }
  [07:37:59.991]     ...future.frame <- base::sys.nframe()
  [07:37:59.991]     ...future.conditions <- base::list()
  [07:37:59.991]     ...future.rng <- base::globalenv()$.Random.seed
  [07:37:59.991]     ...future.result <- base::tryCatch({
  [07:37:59.991]         base::withCallingHandlers({
  [07:37:59.991]             ...future.value <- base::withVisible(base::local({
  [07:37:59.991]                 ...future.sendCondition <- local({
  [07:37:59.991]                   sendCondition <- NULL
  [07:37:59.991]                   function(frame = 1L) {
  [07:37:59.991]                     if (is.function(sendCondition)) 
  [07:37:59.991]                       return(sendCondition)
  [07:37:59.991]                     ns <- getNamespace("parallel")
  [07:37:59.991]                     if (exists("sendData", mode = "function", 
  [07:37:59.991]                       envir = ns)) {
  [07:37:59.991]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:37:59.991]                         envir = ns)
  [07:37:59.991]                       envir <- sys.frame(frame)
  [07:37:59.991]                       master <- NULL
  [07:37:59.991]                       while (!identical(envir, .GlobalEnv) && 
  [07:37:59.991]                         !identical(envir, emptyenv())) {
  [07:37:59.991]                         if (exists("master", mode = "list", envir = envir, 
  [07:37:59.991]                           inherits = FALSE)) {
  [07:37:59.991]                           master <- get("master", mode = "list", 
  [07:37:59.991]                             envir = envir, inherits = FALSE)
  [07:37:59.991]                           if (inherits(master, "SOCKnode")) {
  [07:37:59.991]                             sendCondition <<- function(cond) {
  [07:37:59.991]                               data <- list(type = "VALUE", value = cond, 
  [07:37:59.991]                                 success = TRUE)
  [07:37:59.991]                               parallel_sendData(master, data)
  [07:37:59.991]                             }
  [07:37:59.991]                             return(sendCondition)
  [07:37:59.991]                           }
  [07:37:59.991]                         }
  [07:37:59.991]                         frame <- frame + 1L
  [07:37:59.991]                         envir <- sys.frame(frame)
  [07:37:59.991]                       }
  [07:37:59.991]                     }
  [07:37:59.991]                     sendCondition <<- function(cond) NULL
  [07:37:59.991]                   }
  [07:37:59.991]                 })
  [07:37:59.991]                 withCallingHandlers({
  [07:37:59.991]                   NA
  [07:37:59.991]                 }, immediateCondition = function(cond) {
  [07:37:59.991]                   sendCondition <- ...future.sendCondition()
  [07:37:59.991]                   sendCondition(cond)
  [07:37:59.991]                   muffleCondition <- function (cond) 
  [07:37:59.991]                   {
  [07:37:59.991]                     inherits <- base::inherits
  [07:37:59.991]                     invokeRestart <- base::invokeRestart
  [07:37:59.991]                     muffled <- FALSE
  [07:37:59.991]                     if (inherits(cond, "message")) {
  [07:37:59.991]                       invokeRestart("muffleMessage")
  [07:37:59.991]                       muffled <- TRUE
  [07:37:59.991]                     }
  [07:37:59.991]                     else if (inherits(cond, "warning")) {
  [07:37:59.991]                       invokeRestart("muffleWarning")
  [07:37:59.991]                       muffled <- TRUE
  [07:37:59.991]                     }
  [07:37:59.991]                     else if (inherits(cond, "condition")) {
  [07:37:59.991]                       computeRestarts <- base::computeRestarts
  [07:37:59.991]                       grepl <- base::grepl
  [07:37:59.991]                       is.null <- base::is.null
  [07:37:59.991]                       restarts <- computeRestarts(cond)
  [07:37:59.991]                       for (restart in restarts) {
  [07:37:59.991]                         name <- restart$name
  [07:37:59.991]                         if (is.null(name)) 
  [07:37:59.991]                           next
  [07:37:59.991]                         if (!grepl("^muffle", name)) 
  [07:37:59.991]                           next
  [07:37:59.991]                         invokeRestart(restart)
  [07:37:59.991]                         muffled <- TRUE
  [07:37:59.991]                         break
  [07:37:59.991]                       }
  [07:37:59.991]                     }
  [07:37:59.991]                     invisible(muffled)
  [07:37:59.991]                   }
  [07:37:59.991]                   muffleCondition(cond)
  [07:37:59.991]                 })
  [07:37:59.991]             }))
  [07:37:59.991]             future::FutureResult(value = ...future.value$value, 
  [07:37:59.991]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:59.991]                   ...future.rng), started = ...future.startTime, 
  [07:37:59.991]                 version = "1.8")
  [07:37:59.991]         }, condition = base::local({
  [07:37:59.991]             c <- base::c
  [07:37:59.991]             inherits <- base::inherits
  [07:37:59.991]             invokeRestart <- base::invokeRestart
  [07:37:59.991]             length <- base::length
  [07:37:59.991]             list <- base::list
  [07:37:59.991]             seq.int <- base::seq.int
  [07:37:59.991]             signalCondition <- base::signalCondition
  [07:37:59.991]             sys.calls <- base::sys.calls
  [07:37:59.991]             Sys.time <- base::Sys.time
  [07:37:59.991]             `[[` <- base::`[[`
  [07:37:59.991]             `+` <- base::`+`
  [07:37:59.991]             `<<-` <- base::`<<-`
  [07:37:59.991]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:37:59.991]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:37:59.991]                   3L)]
  [07:37:59.991]             }
  [07:37:59.991]             function(cond) {
  [07:37:59.991]                 if (inherits(cond, "error")) {
  [07:37:59.991]                   sessionInformation <- function() {
  [07:37:59.991]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:37:59.991]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:37:59.991]                       search = base::search(), system = base::Sys.info())
  [07:37:59.991]                   }
  [07:37:59.991]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:59.991]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:37:59.991]                     cond$call), session = sessionInformation(), 
  [07:37:59.991]                     timestamp = Sys.time(), signaled = 0L)
  [07:37:59.991]                   signalCondition(cond)
  [07:37:59.991]                 }
  [07:37:59.991]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:37:59.991]                 ))) {
  [07:37:59.991]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:37:59.991]                   ...future.conditions[[length(...future.conditions) + 
  [07:37:59.991]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:37:59.991]                   if (!signal) {
  [07:37:59.991]                     muffleCondition <- function (cond) 
  [07:37:59.991]                     {
  [07:37:59.991]                       inherits <- base::inherits
  [07:37:59.991]                       invokeRestart <- base::invokeRestart
  [07:37:59.991]                       muffled <- FALSE
  [07:37:59.991]                       if (inherits(cond, "message")) {
  [07:37:59.991]                         invokeRestart("muffleMessage")
  [07:37:59.991]                         muffled <- TRUE
  [07:37:59.991]                       }
  [07:37:59.991]                       else if (inherits(cond, "warning")) {
  [07:37:59.991]                         invokeRestart("muffleWarning")
  [07:37:59.991]                         muffled <- TRUE
  [07:37:59.991]                       }
  [07:37:59.991]                       else if (inherits(cond, "condition")) {
  [07:37:59.991]                         computeRestarts <- base::computeRestarts
  [07:37:59.991]                         grepl <- base::grepl
  [07:37:59.991]                         is.null <- base::is.null
  [07:37:59.991]                         restarts <- computeRestarts(cond)
  [07:37:59.991]                         for (restart in restarts) {
  [07:37:59.991]                           name <- restart$name
  [07:37:59.991]                           if (is.null(name)) 
  [07:37:59.991]                             next
  [07:37:59.991]                           if (!grepl("^muffle", name)) 
  [07:37:59.991]                             next
  [07:37:59.991]                           invokeRestart(restart)
  [07:37:59.991]                           muffled <- TRUE
  [07:37:59.991]                           break
  [07:37:59.991]                         }
  [07:37:59.991]                       }
  [07:37:59.991]                       invisible(muffled)
  [07:37:59.991]                     }
  [07:37:59.991]                     muffleCondition(cond)
  [07:37:59.991]                   }
  [07:37:59.991]                 }
  [07:37:59.991]             }
  [07:37:59.991]         }))
  [07:37:59.991]     }, error = function(ex) {
  [07:37:59.991]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:37:59.991]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:37:59.991]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:37:59.991]     }, finally = {
  [07:37:59.991]         {
  [07:37:59.991]             NULL
  [07:37:59.991]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:37:59.991]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:37:59.991]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:37:59.991]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:37:59.991]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:37:59.991]                 ...) 
  [07:37:59.991]             {
  [07:37:59.991]                 if (substitute) 
  [07:37:59.991]                   expr <- substitute(expr)
  [07:37:59.991]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:37:59.991]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:37:59.991]                   globals = globals, persistent = persistent, 
  [07:37:59.991]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:37:59.991]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:37:59.991]                   label = label, ...)
  [07:37:59.991]                 if (!future$lazy) 
  [07:37:59.991]                   future <- run(future)
  [07:37:59.991]                 invisible(future)
  [07:37:59.991]             }), .cleanup = FALSE, .init = FALSE)
  [07:37:59.991]         }
  [07:37:59.991]         base::options(...future.oldOptions)
  [07:37:59.991]     })
  [07:37:59.991]     Sys.time
  [07:37:59.991]     if (base::is.na(TRUE)) {
  [07:37:59.991]     }
  [07:37:59.991]     else {
  [07:37:59.991]         base::sink(type = "output", split = FALSE)
  [07:37:59.991]         if (TRUE) {
  [07:37:59.991]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:37:59.991]         }
  [07:37:59.991]         else {
  [07:37:59.991]             ...future.result["stdout"] <- base::list(NULL)
  [07:37:59.991]         }
  [07:37:59.991]         base::close(...future.stdout)
  [07:37:59.991]         ...future.stdout <- NULL
  [07:37:59.991]     }
  [07:37:59.991]     ...future.result$conditions <- ...future.conditions
  [07:37:59.991]     ...future.result
  [07:37:59.991] }
  [07:37:59.999] ClusterFuture started
  [07:38:00.000] result() for ClusterFuture ...
  [07:38:00.001] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:00.001] - Validating connection of ClusterFuture
  [07:38:00.211] - received message: FutureResult
  [07:38:00.211] - Received FutureResult
  [07:38:00.219] - Erased future from FutureRegistry
  [07:38:00.219] result() for ClusterFuture ...
  [07:38:00.220] - result already collected: FutureResult
  [07:38:00.220] result() for ClusterFuture ... done
  [07:38:00.220] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:00.221] result() for ClusterFuture ... done
  [07:38:00.221] result() for ClusterFuture ...
  [07:38:00.222] - result already collected: FutureResult
  [07:38:00.222] result() for ClusterFuture ... done
  [07:38:00.222] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [07:38:00.224] plan(): nbrOfWorkers() = 1
  Dimensions: NULL
  [07:38:00.225] getGlobalsAndPackages() ...
  [07:38:00.225] Searching for globals...
  [07:38:00.226] 
  [07:38:00.243] Searching for globals ... DONE
  [07:38:00.243] - globals: [0] <none>
  [07:38:00.243] getGlobalsAndPackages() ... DONE
  [07:38:00.249] Packages needed by the future expression (n = 0): <none>
  [07:38:00.250] Packages needed by future strategies (n = 0): <none>
  [07:38:00.256] {
  [07:38:00.256]     {
  [07:38:00.256]         ...future.startTime <- base::Sys.time()
  [07:38:00.256]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:00.256]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:00.256]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:00.256]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:00.256]             future.resolve.recursive = NULL, width = 80L)
  [07:38:00.256]         {
  [07:38:00.256]             {
  [07:38:00.256]                 base::local({
  [07:38:00.256]                   has_future <- base::requireNamespace("future", 
  [07:38:00.256]                     quietly = TRUE)
  [07:38:00.256]                   version <- if (has_future) 
  [07:38:00.256]                     utils::packageVersion("future")
  [07:38:00.256]                   else NULL
  [07:38:00.256]                   if (!has_future || version < "1.8.0") {
  [07:38:00.256]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:00.256]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:00.256]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:00.256]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:00.256]                         "release", "version")], collapse = " "), 
  [07:38:00.256]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:00.256]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:00.256]                       info)
  [07:38:00.256]                     info <- base::paste(info, collapse = "; ")
  [07:38:00.256]                     if (!has_future) {
  [07:38:00.256]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:00.256]                         info)
  [07:38:00.256]                     }
  [07:38:00.256]                     else {
  [07:38:00.256]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:00.256]                         info, version)
  [07:38:00.256]                     }
  [07:38:00.256]                     base::stop(msg)
  [07:38:00.256]                   }
  [07:38:00.256]                 })
  [07:38:00.256]             }
  [07:38:00.256]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:00.256]         }
  [07:38:00.256]     }
  [07:38:00.256]     if (base::is.na(TRUE)) {
  [07:38:00.256]     }
  [07:38:00.256]     else {
  [07:38:00.256]         if (TRUE) {
  [07:38:00.256]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:00.256]                 open = "w")
  [07:38:00.256]         }
  [07:38:00.256]         else {
  [07:38:00.256]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:00.256]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:00.256]         }
  [07:38:00.256]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:00.256]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:00.256]             base::sink(type = "output", split = FALSE)
  [07:38:00.256]             base::close(...future.stdout)
  [07:38:00.256]         }, add = TRUE)
  [07:38:00.256]     }
  [07:38:00.256]     ...future.frame <- base::sys.nframe()
  [07:38:00.256]     ...future.conditions <- base::list()
  [07:38:00.256]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:00.256]     ...future.result <- base::tryCatch({
  [07:38:00.256]         base::withCallingHandlers({
  [07:38:00.256]             ...future.value <- base::withVisible(base::local({
  [07:38:00.256]                 ...future.sendCondition <- local({
  [07:38:00.256]                   sendCondition <- NULL
  [07:38:00.256]                   function(frame = 1L) {
  [07:38:00.256]                     if (is.function(sendCondition)) 
  [07:38:00.256]                       return(sendCondition)
  [07:38:00.256]                     ns <- getNamespace("parallel")
  [07:38:00.256]                     if (exists("sendData", mode = "function", 
  [07:38:00.256]                       envir = ns)) {
  [07:38:00.256]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:00.256]                         envir = ns)
  [07:38:00.256]                       envir <- sys.frame(frame)
  [07:38:00.256]                       master <- NULL
  [07:38:00.256]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:00.256]                         !identical(envir, emptyenv())) {
  [07:38:00.256]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:00.256]                           inherits = FALSE)) {
  [07:38:00.256]                           master <- get("master", mode = "list", 
  [07:38:00.256]                             envir = envir, inherits = FALSE)
  [07:38:00.256]                           if (inherits(master, "SOCKnode")) {
  [07:38:00.256]                             sendCondition <<- function(cond) {
  [07:38:00.256]                               data <- list(type = "VALUE", value = cond, 
  [07:38:00.256]                                 success = TRUE)
  [07:38:00.256]                               parallel_sendData(master, data)
  [07:38:00.256]                             }
  [07:38:00.256]                             return(sendCondition)
  [07:38:00.256]                           }
  [07:38:00.256]                         }
  [07:38:00.256]                         frame <- frame + 1L
  [07:38:00.256]                         envir <- sys.frame(frame)
  [07:38:00.256]                       }
  [07:38:00.256]                     }
  [07:38:00.256]                     sendCondition <<- function(cond) NULL
  [07:38:00.256]                   }
  [07:38:00.256]                 })
  [07:38:00.256]                 withCallingHandlers({
  [07:38:00.256]                   2
  [07:38:00.256]                 }, immediateCondition = function(cond) {
  [07:38:00.256]                   sendCondition <- ...future.sendCondition()
  [07:38:00.256]                   sendCondition(cond)
  [07:38:00.256]                   muffleCondition <- function (cond) 
  [07:38:00.256]                   {
  [07:38:00.256]                     inherits <- base::inherits
  [07:38:00.256]                     invokeRestart <- base::invokeRestart
  [07:38:00.256]                     muffled <- FALSE
  [07:38:00.256]                     if (inherits(cond, "message")) {
  [07:38:00.256]                       invokeRestart("muffleMessage")
  [07:38:00.256]                       muffled <- TRUE
  [07:38:00.256]                     }
  [07:38:00.256]                     else if (inherits(cond, "warning")) {
  [07:38:00.256]                       invokeRestart("muffleWarning")
  [07:38:00.256]                       muffled <- TRUE
  [07:38:00.256]                     }
  [07:38:00.256]                     else if (inherits(cond, "condition")) {
  [07:38:00.256]                       computeRestarts <- base::computeRestarts
  [07:38:00.256]                       grepl <- base::grepl
  [07:38:00.256]                       is.null <- base::is.null
  [07:38:00.256]                       restarts <- computeRestarts(cond)
  [07:38:00.256]                       for (restart in restarts) {
  [07:38:00.256]                         name <- restart$name
  [07:38:00.256]                         if (is.null(name)) 
  [07:38:00.256]                           next
  [07:38:00.256]                         if (!grepl("^muffle", name)) 
  [07:38:00.256]                           next
  [07:38:00.256]                         invokeRestart(restart)
  [07:38:00.256]                         muffled <- TRUE
  [07:38:00.256]                         break
  [07:38:00.256]                       }
  [07:38:00.256]                     }
  [07:38:00.256]                     invisible(muffled)
  [07:38:00.256]                   }
  [07:38:00.256]                   muffleCondition(cond)
  [07:38:00.256]                 })
  [07:38:00.256]             }))
  [07:38:00.256]             future::FutureResult(value = ...future.value$value, 
  [07:38:00.256]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.256]                   ...future.rng), started = ...future.startTime, 
  [07:38:00.256]                 version = "1.8")
  [07:38:00.256]         }, condition = base::local({
  [07:38:00.256]             c <- base::c
  [07:38:00.256]             inherits <- base::inherits
  [07:38:00.256]             invokeRestart <- base::invokeRestart
  [07:38:00.256]             length <- base::length
  [07:38:00.256]             list <- base::list
  [07:38:00.256]             seq.int <- base::seq.int
  [07:38:00.256]             signalCondition <- base::signalCondition
  [07:38:00.256]             sys.calls <- base::sys.calls
  [07:38:00.256]             Sys.time <- base::Sys.time
  [07:38:00.256]             `[[` <- base::`[[`
  [07:38:00.256]             `+` <- base::`+`
  [07:38:00.256]             `<<-` <- base::`<<-`
  [07:38:00.256]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:00.256]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:00.256]                   3L)]
  [07:38:00.256]             }
  [07:38:00.256]             function(cond) {
  [07:38:00.256]                 if (inherits(cond, "error")) {
  [07:38:00.256]                   sessionInformation <- function() {
  [07:38:00.256]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:00.256]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:00.256]                       search = base::search(), system = base::Sys.info())
  [07:38:00.256]                   }
  [07:38:00.256]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.256]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:00.256]                     cond$call), session = sessionInformation(), 
  [07:38:00.256]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:00.256]                   signalCondition(cond)
  [07:38:00.256]                 }
  [07:38:00.256]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:00.256]                 ))) {
  [07:38:00.256]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:00.256]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.256]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:00.256]                   if (!signal) {
  [07:38:00.256]                     muffleCondition <- function (cond) 
  [07:38:00.256]                     {
  [07:38:00.256]                       inherits <- base::inherits
  [07:38:00.256]                       invokeRestart <- base::invokeRestart
  [07:38:00.256]                       muffled <- FALSE
  [07:38:00.256]                       if (inherits(cond, "message")) {
  [07:38:00.256]                         invokeRestart("muffleMessage")
  [07:38:00.256]                         muffled <- TRUE
  [07:38:00.256]                       }
  [07:38:00.256]                       else if (inherits(cond, "warning")) {
  [07:38:00.256]                         invokeRestart("muffleWarning")
  [07:38:00.256]                         muffled <- TRUE
  [07:38:00.256]                       }
  [07:38:00.256]                       else if (inherits(cond, "condition")) {
  [07:38:00.256]                         computeRestarts <- base::computeRestarts
  [07:38:00.256]                         grepl <- base::grepl
  [07:38:00.256]                         is.null <- base::is.null
  [07:38:00.256]                         restarts <- computeRestarts(cond)
  [07:38:00.256]                         for (restart in restarts) {
  [07:38:00.256]                           name <- restart$name
  [07:38:00.256]                           if (is.null(name)) 
  [07:38:00.256]                             next
  [07:38:00.256]                           if (!grepl("^muffle", name)) 
  [07:38:00.256]                             next
  [07:38:00.256]                           invokeRestart(restart)
  [07:38:00.256]                           muffled <- TRUE
  [07:38:00.256]                           break
  [07:38:00.256]                         }
  [07:38:00.256]                       }
  [07:38:00.256]                       invisible(muffled)
  [07:38:00.256]                     }
  [07:38:00.256]                     muffleCondition(cond)
  [07:38:00.256]                   }
  [07:38:00.256]                 }
  [07:38:00.256]             }
  [07:38:00.256]         }))
  [07:38:00.256]     }, error = function(ex) {
  [07:38:00.256]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:00.256]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.256]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:00.256]     }, finally = {
  [07:38:00.256]         {
  [07:38:00.256]             NULL
  [07:38:00.256]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:00.256]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:00.256]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:00.256]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:00.256]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:00.256]                 ...) 
  [07:38:00.256]             {
  [07:38:00.256]                 if (substitute) 
  [07:38:00.256]                   expr <- substitute(expr)
  [07:38:00.256]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:00.256]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:00.256]                   globals = globals, persistent = persistent, 
  [07:38:00.256]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:00.256]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:00.256]                   label = label, ...)
  [07:38:00.256]                 if (!future$lazy) 
  [07:38:00.256]                   future <- run(future)
  [07:38:00.256]                 invisible(future)
  [07:38:00.256]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:00.256]         }
  [07:38:00.256]         base::options(...future.oldOptions)
  [07:38:00.256]     })
  [07:38:00.256]     Sys.time
  [07:38:00.256]     if (base::is.na(TRUE)) {
  [07:38:00.256]     }
  [07:38:00.256]     else {
  [07:38:00.256]         base::sink(type = "output", split = FALSE)
  [07:38:00.256]         if (TRUE) {
  [07:38:00.256]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:00.256]         }
  [07:38:00.256]         else {
  [07:38:00.256]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:00.256]         }
  [07:38:00.256]         base::close(...future.stdout)
  [07:38:00.256]         ...future.stdout <- NULL
  [07:38:00.256]     }
  [07:38:00.256]     ...future.result$conditions <- ...future.conditions
  [07:38:00.256]     ...future.result
  [07:38:00.256] }
  [07:38:00.284] ClusterFuture started
  [07:38:00.284] getGlobalsAndPackages() ...
  [07:38:00.285] Searching for globals...
  [07:38:00.286] 
  [07:38:00.286] Searching for globals ... DONE
  [07:38:00.286] - globals: [0] <none>
  [07:38:00.287] getGlobalsAndPackages() ... DONE
  [07:38:00.293] Packages needed by the future expression (n = 0): <none>
  [07:38:00.293] Packages needed by future strategies (n = 0): <none>
  [07:38:00.316] {
  [07:38:00.316]     {
  [07:38:00.316]         ...future.startTime <- base::Sys.time()
  [07:38:00.316]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:00.316]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:00.316]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:00.316]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:00.316]             future.resolve.recursive = NULL, width = 80L)
  [07:38:00.316]         {
  [07:38:00.316]             {
  [07:38:00.316]                 base::local({
  [07:38:00.316]                   has_future <- base::requireNamespace("future", 
  [07:38:00.316]                     quietly = TRUE)
  [07:38:00.316]                   version <- if (has_future) 
  [07:38:00.316]                     utils::packageVersion("future")
  [07:38:00.316]                   else NULL
  [07:38:00.316]                   if (!has_future || version < "1.8.0") {
  [07:38:00.316]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:00.316]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:00.316]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:00.316]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:00.316]                         "release", "version")], collapse = " "), 
  [07:38:00.316]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:00.316]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:00.316]                       info)
  [07:38:00.316]                     info <- base::paste(info, collapse = "; ")
  [07:38:00.316]                     if (!has_future) {
  [07:38:00.316]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:00.316]                         info)
  [07:38:00.316]                     }
  [07:38:00.316]                     else {
  [07:38:00.316]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:00.316]                         info, version)
  [07:38:00.316]                     }
  [07:38:00.316]                     base::stop(msg)
  [07:38:00.316]                   }
  [07:38:00.316]                 })
  [07:38:00.316]             }
  [07:38:00.316]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:00.316]         }
  [07:38:00.316]     }
  [07:38:00.316]     if (base::is.na(TRUE)) {
  [07:38:00.316]     }
  [07:38:00.316]     else {
  [07:38:00.316]         if (TRUE) {
  [07:38:00.316]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:00.316]                 open = "w")
  [07:38:00.316]         }
  [07:38:00.316]         else {
  [07:38:00.316]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:00.316]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:00.316]         }
  [07:38:00.316]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:00.316]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:00.316]             base::sink(type = "output", split = FALSE)
  [07:38:00.316]             base::close(...future.stdout)
  [07:38:00.316]         }, add = TRUE)
  [07:38:00.316]     }
  [07:38:00.316]     ...future.frame <- base::sys.nframe()
  [07:38:00.316]     ...future.conditions <- base::list()
  [07:38:00.316]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:00.316]     ...future.result <- base::tryCatch({
  [07:38:00.316]         base::withCallingHandlers({
  [07:38:00.316]             ...future.value <- base::withVisible(base::local({
  [07:38:00.316]                 ...future.sendCondition <- local({
  [07:38:00.316]                   sendCondition <- NULL
  [07:38:00.316]                   function(frame = 1L) {
  [07:38:00.316]                     if (is.function(sendCondition)) 
  [07:38:00.316]                       return(sendCondition)
  [07:38:00.316]                     ns <- getNamespace("parallel")
  [07:38:00.316]                     if (exists("sendData", mode = "function", 
  [07:38:00.316]                       envir = ns)) {
  [07:38:00.316]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:00.316]                         envir = ns)
  [07:38:00.316]                       envir <- sys.frame(frame)
  [07:38:00.316]                       master <- NULL
  [07:38:00.316]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:00.316]                         !identical(envir, emptyenv())) {
  [07:38:00.316]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:00.316]                           inherits = FALSE)) {
  [07:38:00.316]                           master <- get("master", mode = "list", 
  [07:38:00.316]                             envir = envir, inherits = FALSE)
  [07:38:00.316]                           if (inherits(master, "SOCKnode")) {
  [07:38:00.316]                             sendCondition <<- function(cond) {
  [07:38:00.316]                               data <- list(type = "VALUE", value = cond, 
  [07:38:00.316]                                 success = TRUE)
  [07:38:00.316]                               parallel_sendData(master, data)
  [07:38:00.316]                             }
  [07:38:00.316]                             return(sendCondition)
  [07:38:00.316]                           }
  [07:38:00.316]                         }
  [07:38:00.316]                         frame <- frame + 1L
  [07:38:00.316]                         envir <- sys.frame(frame)
  [07:38:00.316]                       }
  [07:38:00.316]                     }
  [07:38:00.316]                     sendCondition <<- function(cond) NULL
  [07:38:00.316]                   }
  [07:38:00.316]                 })
  [07:38:00.316]                 withCallingHandlers({
  [07:38:00.316]                   NULL
  [07:38:00.316]                 }, immediateCondition = function(cond) {
  [07:38:00.316]                   sendCondition <- ...future.sendCondition()
  [07:38:00.316]                   sendCondition(cond)
  [07:38:00.316]                   muffleCondition <- function (cond) 
  [07:38:00.316]                   {
  [07:38:00.316]                     inherits <- base::inherits
  [07:38:00.316]                     invokeRestart <- base::invokeRestart
  [07:38:00.316]                     muffled <- FALSE
  [07:38:00.316]                     if (inherits(cond, "message")) {
  [07:38:00.316]                       invokeRestart("muffleMessage")
  [07:38:00.316]                       muffled <- TRUE
  [07:38:00.316]                     }
  [07:38:00.316]                     else if (inherits(cond, "warning")) {
  [07:38:00.316]                       invokeRestart("muffleWarning")
  [07:38:00.316]                       muffled <- TRUE
  [07:38:00.316]                     }
  [07:38:00.316]                     else if (inherits(cond, "condition")) {
  [07:38:00.316]                       computeRestarts <- base::computeRestarts
  [07:38:00.316]                       grepl <- base::grepl
  [07:38:00.316]                       is.null <- base::is.null
  [07:38:00.316]                       restarts <- computeRestarts(cond)
  [07:38:00.316]                       for (restart in restarts) {
  [07:38:00.316]                         name <- restart$name
  [07:38:00.316]                         if (is.null(name)) 
  [07:38:00.316]                           next
  [07:38:00.316]                         if (!grepl("^muffle", name)) 
  [07:38:00.316]                           next
  [07:38:00.316]                         invokeRestart(restart)
  [07:38:00.316]                         muffled <- TRUE
  [07:38:00.316]                         break
  [07:38:00.316]                       }
  [07:38:00.316]                     }
  [07:38:00.316]                     invisible(muffled)
  [07:38:00.316]                   }
  [07:38:00.316]                   muffleCondition(cond)
  [07:38:00.316]                 })
  [07:38:00.316]             }))
  [07:38:00.316]             future::FutureResult(value = ...future.value$value, 
  [07:38:00.316]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.316]                   ...future.rng), started = ...future.startTime, 
  [07:38:00.316]                 version = "1.8")
  [07:38:00.316]         }, condition = base::local({
  [07:38:00.316]             c <- base::c
  [07:38:00.316]             inherits <- base::inherits
  [07:38:00.316]             invokeRestart <- base::invokeRestart
  [07:38:00.316]             length <- base::length
  [07:38:00.316]             list <- base::list
  [07:38:00.316]             seq.int <- base::seq.int
  [07:38:00.316]             signalCondition <- base::signalCondition
  [07:38:00.316]             sys.calls <- base::sys.calls
  [07:38:00.316]             Sys.time <- base::Sys.time
  [07:38:00.316]             `[[` <- base::`[[`
  [07:38:00.316]             `+` <- base::`+`
  [07:38:00.316]             `<<-` <- base::`<<-`
  [07:38:00.316]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:00.316]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:00.316]                   3L)]
  [07:38:00.316]             }
  [07:38:00.316]             function(cond) {
  [07:38:00.316]                 if (inherits(cond, "error")) {
  [07:38:00.316]                   sessionInformation <- function() {
  [07:38:00.316]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:00.316]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:00.316]                       search = base::search(), system = base::Sys.info())
  [07:38:00.316]                   }
  [07:38:00.316]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.316]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:00.316]                     cond$call), session = sessionInformation(), 
  [07:38:00.316]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:00.316]                   signalCondition(cond)
  [07:38:00.316]                 }
  [07:38:00.316]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:00.316]                 ))) {
  [07:38:00.316]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:00.316]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.316]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:00.316]                   if (!signal) {
  [07:38:00.316]                     muffleCondition <- function (cond) 
  [07:38:00.316]                     {
  [07:38:00.316]                       inherits <- base::inherits
  [07:38:00.316]                       invokeRestart <- base::invokeRestart
  [07:38:00.316]                       muffled <- FALSE
  [07:38:00.316]                       if (inherits(cond, "message")) {
  [07:38:00.316]                         invokeRestart("muffleMessage")
  [07:38:00.316]                         muffled <- TRUE
  [07:38:00.316]                       }
  [07:38:00.316]                       else if (inherits(cond, "warning")) {
  [07:38:00.316]                         invokeRestart("muffleWarning")
  [07:38:00.316]                         muffled <- TRUE
  [07:38:00.316]                       }
  [07:38:00.316]                       else if (inherits(cond, "condition")) {
  [07:38:00.316]                         computeRestarts <- base::computeRestarts
  [07:38:00.316]                         grepl <- base::grepl
  [07:38:00.316]                         is.null <- base::is.null
  [07:38:00.316]                         restarts <- computeRestarts(cond)
  [07:38:00.316]                         for (restart in restarts) {
  [07:38:00.316]                           name <- restart$name
  [07:38:00.316]                           if (is.null(name)) 
  [07:38:00.316]                             next
  [07:38:00.316]                           if (!grepl("^muffle", name)) 
  [07:38:00.316]                             next
  [07:38:00.316]                           invokeRestart(restart)
  [07:38:00.316]                           muffled <- TRUE
  [07:38:00.316]                           break
  [07:38:00.316]                         }
  [07:38:00.316]                       }
  [07:38:00.316]                       invisible(muffled)
  [07:38:00.316]                     }
  [07:38:00.316]                     muffleCondition(cond)
  [07:38:00.316]                   }
  [07:38:00.316]                 }
  [07:38:00.316]             }
  [07:38:00.316]         }))
  [07:38:00.316]     }, error = function(ex) {
  [07:38:00.316]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:00.316]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.316]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:00.316]     }, finally = {
  [07:38:00.316]         {
  [07:38:00.316]             NULL
  [07:38:00.316]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:00.316]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:00.316]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:00.316]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:00.316]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:00.316]                 ...) 
  [07:38:00.316]             {
  [07:38:00.316]                 if (substitute) 
  [07:38:00.316]                   expr <- substitute(expr)
  [07:38:00.316]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:00.316]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:00.316]                   globals = globals, persistent = persistent, 
  [07:38:00.316]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:00.316]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:00.316]                   label = label, ...)
  [07:38:00.316]                 if (!future$lazy) 
  [07:38:00.316]                   future <- run(future)
  [07:38:00.316]                 invisible(future)
  [07:38:00.316]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:00.316]         }
  [07:38:00.316]         base::options(...future.oldOptions)
  [07:38:00.316]     })
  [07:38:00.316]     Sys.time
  [07:38:00.316]     if (base::is.na(TRUE)) {
  [07:38:00.316]     }
  [07:38:00.316]     else {
  [07:38:00.316]         base::sink(type = "output", split = FALSE)
  [07:38:00.316]         if (TRUE) {
  [07:38:00.316]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:00.316]         }
  [07:38:00.316]         else {
  [07:38:00.316]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:00.316]         }
  [07:38:00.316]         base::close(...future.stdout)
  [07:38:00.316]         ...future.stdout <- NULL
  [07:38:00.316]     }
  [07:38:00.316]     ...future.result$conditions <- ...future.conditions
  [07:38:00.316]     ...future.result
  [07:38:00.316] }
  [07:38:00.321] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:00.334] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:00.335] - Validating connection of ClusterFuture
  [07:38:00.335] - received message: FutureResult
  [07:38:00.336] - Received FutureResult
  [07:38:00.336] - Erased future from FutureRegistry
  [07:38:00.337] result() for ClusterFuture ...
  [07:38:00.337] - result already collected: FutureResult
  [07:38:00.337] result() for ClusterFuture ... done
  [07:38:00.338] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:00.338] result() for ClusterFuture ...
  [07:38:00.339] - result already collected: FutureResult
  [07:38:00.339] result() for ClusterFuture ... done
  [07:38:00.340] result() for ClusterFuture ...
  [07:38:00.340] - result already collected: FutureResult
  [07:38:00.340] result() for ClusterFuture ... done
  [07:38:00.360] ClusterFuture started
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6284ab0> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d4e2b048> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6284ab0> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d4e2b048> 
   $  : NULL
   $  : NULL
   $  : num 6
  [07:38:00.408] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:00.408] - Validating connection of ClusterFuture
  [07:38:00.409] - received message: FutureResult
  [07:38:00.409] - Received FutureResult
  [07:38:00.409] - Erased future from FutureRegistry
  [07:38:00.410] result() for ClusterFuture ...
  [07:38:00.410] - result already collected: FutureResult
  [07:38:00.410] result() for ClusterFuture ... done
  [07:38:00.411] receiveMessageFromWorker() for ClusterFuture ... done
   Named logi [1:6] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:38:00.413] resolve() on list ...
  [07:38:00.414]  recursive: 0
  [07:38:00.414]  length: 6
  [07:38:00.414]  elements: 'a', 'b', 'c', '', '', ''
  [07:38:00.415] signalConditionsASAP(numeric, pos=1) ...
  [07:38:00.415] - nx: 6
  [07:38:00.415] - relay: TRUE
  [07:38:00.416] - stdout: TRUE
  [07:38:00.416] - signal: TRUE
  [07:38:00.416] - resignal: FALSE
  [07:38:00.417] - force: TRUE
  [07:38:00.417] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.417] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.418]  - until=2
  [07:38:00.418]  - relaying element #2
  [07:38:00.418] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.419] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.419] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:00.419]  length: 5 (resolved future 1)
  [07:38:00.420] Future #2
  [07:38:00.420] result() for ClusterFuture ...
  [07:38:00.420] - result already collected: FutureResult
  [07:38:00.421] result() for ClusterFuture ... done
  [07:38:00.421] result() for ClusterFuture ...
  [07:38:00.422] - result already collected: FutureResult
  [07:38:00.422] result() for ClusterFuture ... done
  [07:38:00.422] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:00.439] - nx: 6
  [07:38:00.439] - relay: TRUE
  [07:38:00.439] - stdout: TRUE
  [07:38:00.440] - signal: TRUE
  [07:38:00.440] - resignal: FALSE
  [07:38:00.440] - force: TRUE
  [07:38:00.441] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.441] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.441]  - until=2
  [07:38:00.442]  - relaying element #2
  [07:38:00.442] result() for ClusterFuture ...
  [07:38:00.442] - result already collected: FutureResult
  [07:38:00.443] result() for ClusterFuture ... done
  [07:38:00.443] result() for ClusterFuture ...
  [07:38:00.443] - result already collected: FutureResult
  [07:38:00.444] result() for ClusterFuture ... done
  [07:38:00.444] result() for ClusterFuture ...
  [07:38:00.445] - result already collected: FutureResult
  [07:38:00.445] result() for ClusterFuture ... done
  [07:38:00.445] result() for ClusterFuture ...
  [07:38:00.446] - result already collected: FutureResult
  [07:38:00.446] result() for ClusterFuture ... done
  [07:38:00.446] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.447] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.447] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:00.447]  length: 4 (resolved future 2)
  [07:38:00.448] Future #3
  [07:38:00.448] result() for ClusterFuture ...
  [07:38:00.449] - result already collected: FutureResult
  [07:38:00.449] result() for ClusterFuture ... done
  [07:38:00.449] result() for ClusterFuture ...
  [07:38:00.450] - result already collected: FutureResult
  [07:38:00.450] result() for ClusterFuture ... done
  [07:38:00.450] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:00.451] - nx: 6
  [07:38:00.451] - relay: TRUE
  [07:38:00.451] - stdout: TRUE
  [07:38:00.452] - signal: TRUE
  [07:38:00.452] - resignal: FALSE
  [07:38:00.452] - force: TRUE
  [07:38:00.453] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.453] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.453]  - until=3
  [07:38:00.454]  - relaying element #3
  [07:38:00.454] result() for ClusterFuture ...
  [07:38:00.470] - result already collected: FutureResult
  [07:38:00.471] result() for ClusterFuture ... done
  [07:38:00.471] result() for ClusterFuture ...
  [07:38:00.472] - result already collected: FutureResult
  [07:38:00.472] result() for ClusterFuture ... done
  [07:38:00.473] result() for ClusterFuture ...
  [07:38:00.473] - result already collected: FutureResult
  [07:38:00.473] result() for ClusterFuture ... done
  [07:38:00.474] result() for ClusterFuture ...
  [07:38:00.474] - result already collected: FutureResult
  [07:38:00.474] result() for ClusterFuture ... done
  [07:38:00.475] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.475] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.475] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:00.479]  length: 3 (resolved future 3)
  [07:38:00.480] signalConditionsASAP(NULL, pos=4) ...
  [07:38:00.480] - nx: 6
  [07:38:00.480] - relay: TRUE
  [07:38:00.481] - stdout: TRUE
  [07:38:00.481] - signal: TRUE
  [07:38:00.481] - resignal: FALSE
  [07:38:00.482] - force: TRUE
  [07:38:00.482] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.482] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.483]  - until=5
  [07:38:00.483]  - relaying element #5
  [07:38:00.483] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:00.484] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.484] signalConditionsASAP(NULL, pos=4) ... done
  [07:38:00.484]  length: 2 (resolved future 4)
  [07:38:00.485] signalConditionsASAP(NULL, pos=5) ...
  [07:38:00.485] - nx: 6
  [07:38:00.485] - relay: TRUE
  [07:38:00.486] - stdout: TRUE
  [07:38:00.486] - signal: TRUE
  [07:38:00.486] - resignal: FALSE
  [07:38:00.503] - force: TRUE
  [07:38:00.503] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:00.503] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.504]  - until=6
  [07:38:00.504]  - relaying element #6
  [07:38:00.505] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:00.505] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.505] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:00.506]  length: 1 (resolved future 5)
  [07:38:00.506] signalConditionsASAP(numeric, pos=6) ...
  [07:38:00.506] - nx: 6
  [07:38:00.507] - relay: TRUE
  [07:38:00.507] - stdout: TRUE
  [07:38:00.507] - signal: TRUE
  [07:38:00.508] - resignal: FALSE
  [07:38:00.508] - force: TRUE
  [07:38:00.508] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:00.509] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.509]  - until=6
  [07:38:00.509] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:00.510] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.510] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:00.510]  length: 0 (resolved future 6)
  [07:38:00.511] Relaying remaining futures
  [07:38:00.511] signalConditionsASAP(NULL, pos=0) ...
  [07:38:00.511] - nx: 6
  [07:38:00.512] - relay: TRUE
  [07:38:00.512] - stdout: TRUE
  [07:38:00.512] - signal: TRUE
  [07:38:00.513] - resignal: FALSE
  [07:38:00.513] - force: TRUE
  [07:38:00.513] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:00.514] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:38:00.514] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:00.514] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.515] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:00.515] resolve() on list ... DONE
  [07:38:00.515] result() for ClusterFuture ...
  [07:38:00.516] - result already collected: FutureResult
  [07:38:00.516] result() for ClusterFuture ... done
  [07:38:00.516] result() for ClusterFuture ...
  [07:38:00.517] - result already collected: FutureResult
  [07:38:00.517] result() for ClusterFuture ... done
  [07:38:00.518] result() for ClusterFuture ...
  [07:38:00.518] - result already collected: FutureResult
  [07:38:00.518] result() for ClusterFuture ... done
  [07:38:00.519] result() for ClusterFuture ...
  [07:38:00.519] - result already collected: FutureResult
  [07:38:00.519] result() for ClusterFuture ... done
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
  Dimensions: c(1, 6)
  [07:38:00.527] getGlobalsAndPackages() ...
  [07:38:00.527] Searching for globals...
  [07:38:00.528] 
  [07:38:00.528] Searching for globals ... DONE
  [07:38:00.529] - globals: [0] <none>
  [07:38:00.529] getGlobalsAndPackages() ... DONE
  [07:38:00.534] Packages needed by the future expression (n = 0): <none>
  [07:38:00.535] Packages needed by future strategies (n = 0): <none>
  [07:38:00.541] {
  [07:38:00.541]     {
  [07:38:00.541]         ...future.startTime <- base::Sys.time()
  [07:38:00.541]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:00.541]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:00.541]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:00.541]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:00.541]             future.resolve.recursive = NULL, width = 80L)
  [07:38:00.541]         {
  [07:38:00.541]             {
  [07:38:00.541]                 base::local({
  [07:38:00.541]                   has_future <- base::requireNamespace("future", 
  [07:38:00.541]                     quietly = TRUE)
  [07:38:00.541]                   version <- if (has_future) 
  [07:38:00.541]                     utils::packageVersion("future")
  [07:38:00.541]                   else NULL
  [07:38:00.541]                   if (!has_future || version < "1.8.0") {
  [07:38:00.541]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:00.541]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:00.541]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:00.541]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:00.541]                         "release", "version")], collapse = " "), 
  [07:38:00.541]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:00.541]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:00.541]                       info)
  [07:38:00.541]                     info <- base::paste(info, collapse = "; ")
  [07:38:00.541]                     if (!has_future) {
  [07:38:00.541]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:00.541]                         info)
  [07:38:00.541]                     }
  [07:38:00.541]                     else {
  [07:38:00.541]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:00.541]                         info, version)
  [07:38:00.541]                     }
  [07:38:00.541]                     base::stop(msg)
  [07:38:00.541]                   }
  [07:38:00.541]                 })
  [07:38:00.541]             }
  [07:38:00.541]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:00.541]         }
  [07:38:00.541]     }
  [07:38:00.541]     if (base::is.na(TRUE)) {
  [07:38:00.541]     }
  [07:38:00.541]     else {
  [07:38:00.541]         if (TRUE) {
  [07:38:00.541]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:00.541]                 open = "w")
  [07:38:00.541]         }
  [07:38:00.541]         else {
  [07:38:00.541]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:00.541]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:00.541]         }
  [07:38:00.541]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:00.541]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:00.541]             base::sink(type = "output", split = FALSE)
  [07:38:00.541]             base::close(...future.stdout)
  [07:38:00.541]         }, add = TRUE)
  [07:38:00.541]     }
  [07:38:00.541]     ...future.frame <- base::sys.nframe()
  [07:38:00.541]     ...future.conditions <- base::list()
  [07:38:00.541]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:00.541]     ...future.result <- base::tryCatch({
  [07:38:00.541]         base::withCallingHandlers({
  [07:38:00.541]             ...future.value <- base::withVisible(base::local({
  [07:38:00.541]                 ...future.sendCondition <- local({
  [07:38:00.541]                   sendCondition <- NULL
  [07:38:00.541]                   function(frame = 1L) {
  [07:38:00.541]                     if (is.function(sendCondition)) 
  [07:38:00.541]                       return(sendCondition)
  [07:38:00.541]                     ns <- getNamespace("parallel")
  [07:38:00.541]                     if (exists("sendData", mode = "function", 
  [07:38:00.541]                       envir = ns)) {
  [07:38:00.541]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:00.541]                         envir = ns)
  [07:38:00.541]                       envir <- sys.frame(frame)
  [07:38:00.541]                       master <- NULL
  [07:38:00.541]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:00.541]                         !identical(envir, emptyenv())) {
  [07:38:00.541]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:00.541]                           inherits = FALSE)) {
  [07:38:00.541]                           master <- get("master", mode = "list", 
  [07:38:00.541]                             envir = envir, inherits = FALSE)
  [07:38:00.541]                           if (inherits(master, "SOCKnode")) {
  [07:38:00.541]                             sendCondition <<- function(cond) {
  [07:38:00.541]                               data <- list(type = "VALUE", value = cond, 
  [07:38:00.541]                                 success = TRUE)
  [07:38:00.541]                               parallel_sendData(master, data)
  [07:38:00.541]                             }
  [07:38:00.541]                             return(sendCondition)
  [07:38:00.541]                           }
  [07:38:00.541]                         }
  [07:38:00.541]                         frame <- frame + 1L
  [07:38:00.541]                         envir <- sys.frame(frame)
  [07:38:00.541]                       }
  [07:38:00.541]                     }
  [07:38:00.541]                     sendCondition <<- function(cond) NULL
  [07:38:00.541]                   }
  [07:38:00.541]                 })
  [07:38:00.541]                 withCallingHandlers({
  [07:38:00.541]                   2
  [07:38:00.541]                 }, immediateCondition = function(cond) {
  [07:38:00.541]                   sendCondition <- ...future.sendCondition()
  [07:38:00.541]                   sendCondition(cond)
  [07:38:00.541]                   muffleCondition <- function (cond) 
  [07:38:00.541]                   {
  [07:38:00.541]                     inherits <- base::inherits
  [07:38:00.541]                     invokeRestart <- base::invokeRestart
  [07:38:00.541]                     muffled <- FALSE
  [07:38:00.541]                     if (inherits(cond, "message")) {
  [07:38:00.541]                       invokeRestart("muffleMessage")
  [07:38:00.541]                       muffled <- TRUE
  [07:38:00.541]                     }
  [07:38:00.541]                     else if (inherits(cond, "warning")) {
  [07:38:00.541]                       invokeRestart("muffleWarning")
  [07:38:00.541]                       muffled <- TRUE
  [07:38:00.541]                     }
  [07:38:00.541]                     else if (inherits(cond, "condition")) {
  [07:38:00.541]                       computeRestarts <- base::computeRestarts
  [07:38:00.541]                       grepl <- base::grepl
  [07:38:00.541]                       is.null <- base::is.null
  [07:38:00.541]                       restarts <- computeRestarts(cond)
  [07:38:00.541]                       for (restart in restarts) {
  [07:38:00.541]                         name <- restart$name
  [07:38:00.541]                         if (is.null(name)) 
  [07:38:00.541]                           next
  [07:38:00.541]                         if (!grepl("^muffle", name)) 
  [07:38:00.541]                           next
  [07:38:00.541]                         invokeRestart(restart)
  [07:38:00.541]                         muffled <- TRUE
  [07:38:00.541]                         break
  [07:38:00.541]                       }
  [07:38:00.541]                     }
  [07:38:00.541]                     invisible(muffled)
  [07:38:00.541]                   }
  [07:38:00.541]                   muffleCondition(cond)
  [07:38:00.541]                 })
  [07:38:00.541]             }))
  [07:38:00.541]             future::FutureResult(value = ...future.value$value, 
  [07:38:00.541]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.541]                   ...future.rng), started = ...future.startTime, 
  [07:38:00.541]                 version = "1.8")
  [07:38:00.541]         }, condition = base::local({
  [07:38:00.541]             c <- base::c
  [07:38:00.541]             inherits <- base::inherits
  [07:38:00.541]             invokeRestart <- base::invokeRestart
  [07:38:00.541]             length <- base::length
  [07:38:00.541]             list <- base::list
  [07:38:00.541]             seq.int <- base::seq.int
  [07:38:00.541]             signalCondition <- base::signalCondition
  [07:38:00.541]             sys.calls <- base::sys.calls
  [07:38:00.541]             Sys.time <- base::Sys.time
  [07:38:00.541]             `[[` <- base::`[[`
  [07:38:00.541]             `+` <- base::`+`
  [07:38:00.541]             `<<-` <- base::`<<-`
  [07:38:00.541]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:00.541]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:00.541]                   3L)]
  [07:38:00.541]             }
  [07:38:00.541]             function(cond) {
  [07:38:00.541]                 if (inherits(cond, "error")) {
  [07:38:00.541]                   sessionInformation <- function() {
  [07:38:00.541]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:00.541]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:00.541]                       search = base::search(), system = base::Sys.info())
  [07:38:00.541]                   }
  [07:38:00.541]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.541]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:00.541]                     cond$call), session = sessionInformation(), 
  [07:38:00.541]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:00.541]                   signalCondition(cond)
  [07:38:00.541]                 }
  [07:38:00.541]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:00.541]                 ))) {
  [07:38:00.541]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:00.541]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.541]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:00.541]                   if (!signal) {
  [07:38:00.541]                     muffleCondition <- function (cond) 
  [07:38:00.541]                     {
  [07:38:00.541]                       inherits <- base::inherits
  [07:38:00.541]                       invokeRestart <- base::invokeRestart
  [07:38:00.541]                       muffled <- FALSE
  [07:38:00.541]                       if (inherits(cond, "message")) {
  [07:38:00.541]                         invokeRestart("muffleMessage")
  [07:38:00.541]                         muffled <- TRUE
  [07:38:00.541]                       }
  [07:38:00.541]                       else if (inherits(cond, "warning")) {
  [07:38:00.541]                         invokeRestart("muffleWarning")
  [07:38:00.541]                         muffled <- TRUE
  [07:38:00.541]                       }
  [07:38:00.541]                       else if (inherits(cond, "condition")) {
  [07:38:00.541]                         computeRestarts <- base::computeRestarts
  [07:38:00.541]                         grepl <- base::grepl
  [07:38:00.541]                         is.null <- base::is.null
  [07:38:00.541]                         restarts <- computeRestarts(cond)
  [07:38:00.541]                         for (restart in restarts) {
  [07:38:00.541]                           name <- restart$name
  [07:38:00.541]                           if (is.null(name)) 
  [07:38:00.541]                             next
  [07:38:00.541]                           if (!grepl("^muffle", name)) 
  [07:38:00.541]                             next
  [07:38:00.541]                           invokeRestart(restart)
  [07:38:00.541]                           muffled <- TRUE
  [07:38:00.541]                           break
  [07:38:00.541]                         }
  [07:38:00.541]                       }
  [07:38:00.541]                       invisible(muffled)
  [07:38:00.541]                     }
  [07:38:00.541]                     muffleCondition(cond)
  [07:38:00.541]                   }
  [07:38:00.541]                 }
  [07:38:00.541]             }
  [07:38:00.541]         }))
  [07:38:00.541]     }, error = function(ex) {
  [07:38:00.541]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:00.541]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.541]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:00.541]     }, finally = {
  [07:38:00.541]         {
  [07:38:00.541]             NULL
  [07:38:00.541]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:00.541]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:00.541]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:00.541]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:00.541]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:00.541]                 ...) 
  [07:38:00.541]             {
  [07:38:00.541]                 if (substitute) 
  [07:38:00.541]                   expr <- substitute(expr)
  [07:38:00.541]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:00.541]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:00.541]                   globals = globals, persistent = persistent, 
  [07:38:00.541]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:00.541]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:00.541]                   label = label, ...)
  [07:38:00.541]                 if (!future$lazy) 
  [07:38:00.541]                   future <- run(future)
  [07:38:00.541]                 invisible(future)
  [07:38:00.541]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:00.541]         }
  [07:38:00.541]         base::options(...future.oldOptions)
  [07:38:00.541]     })
  [07:38:00.541]     Sys.time
  [07:38:00.541]     if (base::is.na(TRUE)) {
  [07:38:00.541]     }
  [07:38:00.541]     else {
  [07:38:00.541]         base::sink(type = "output", split = FALSE)
  [07:38:00.541]         if (TRUE) {
  [07:38:00.541]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:00.541]         }
  [07:38:00.541]         else {
  [07:38:00.541]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:00.541]         }
  [07:38:00.541]         base::close(...future.stdout)
  [07:38:00.541]         ...future.stdout <- NULL
  [07:38:00.541]     }
  [07:38:00.541]     ...future.result$conditions <- ...future.conditions
  [07:38:00.541]     ...future.result
  [07:38:00.541] }
  [07:38:00.548] ClusterFuture started
  [07:38:00.549] getGlobalsAndPackages() ...
  [07:38:00.549] Searching for globals...
  [07:38:00.550] 
  [07:38:00.550] Searching for globals ... DONE
  [07:38:00.551] - globals: [0] <none>
  [07:38:00.551] getGlobalsAndPackages() ... DONE
  [07:38:00.557] Packages needed by the future expression (n = 0): <none>
  [07:38:00.557] Packages needed by future strategies (n = 0): <none>
  [07:38:00.564] {
  [07:38:00.564]     {
  [07:38:00.564]         ...future.startTime <- base::Sys.time()
  [07:38:00.564]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:00.564]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:00.564]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:00.564]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:00.564]             future.resolve.recursive = NULL, width = 80L)
  [07:38:00.564]         {
  [07:38:00.564]             {
  [07:38:00.564]                 base::local({
  [07:38:00.564]                   has_future <- base::requireNamespace("future", 
  [07:38:00.564]                     quietly = TRUE)
  [07:38:00.564]                   version <- if (has_future) 
  [07:38:00.564]                     utils::packageVersion("future")
  [07:38:00.564]                   else NULL
  [07:38:00.564]                   if (!has_future || version < "1.8.0") {
  [07:38:00.564]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:00.564]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:00.564]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:00.564]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:00.564]                         "release", "version")], collapse = " "), 
  [07:38:00.564]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:00.564]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:00.564]                       info)
  [07:38:00.564]                     info <- base::paste(info, collapse = "; ")
  [07:38:00.564]                     if (!has_future) {
  [07:38:00.564]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:00.564]                         info)
  [07:38:00.564]                     }
  [07:38:00.564]                     else {
  [07:38:00.564]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:00.564]                         info, version)
  [07:38:00.564]                     }
  [07:38:00.564]                     base::stop(msg)
  [07:38:00.564]                   }
  [07:38:00.564]                 })
  [07:38:00.564]             }
  [07:38:00.564]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:00.564]         }
  [07:38:00.564]     }
  [07:38:00.564]     if (base::is.na(TRUE)) {
  [07:38:00.564]     }
  [07:38:00.564]     else {
  [07:38:00.564]         if (TRUE) {
  [07:38:00.564]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:00.564]                 open = "w")
  [07:38:00.564]         }
  [07:38:00.564]         else {
  [07:38:00.564]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:00.564]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:00.564]         }
  [07:38:00.564]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:00.564]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:00.564]             base::sink(type = "output", split = FALSE)
  [07:38:00.564]             base::close(...future.stdout)
  [07:38:00.564]         }, add = TRUE)
  [07:38:00.564]     }
  [07:38:00.564]     ...future.frame <- base::sys.nframe()
  [07:38:00.564]     ...future.conditions <- base::list()
  [07:38:00.564]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:00.564]     ...future.result <- base::tryCatch({
  [07:38:00.564]         base::withCallingHandlers({
  [07:38:00.564]             ...future.value <- base::withVisible(base::local({
  [07:38:00.564]                 ...future.sendCondition <- local({
  [07:38:00.564]                   sendCondition <- NULL
  [07:38:00.564]                   function(frame = 1L) {
  [07:38:00.564]                     if (is.function(sendCondition)) 
  [07:38:00.564]                       return(sendCondition)
  [07:38:00.564]                     ns <- getNamespace("parallel")
  [07:38:00.564]                     if (exists("sendData", mode = "function", 
  [07:38:00.564]                       envir = ns)) {
  [07:38:00.564]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:00.564]                         envir = ns)
  [07:38:00.564]                       envir <- sys.frame(frame)
  [07:38:00.564]                       master <- NULL
  [07:38:00.564]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:00.564]                         !identical(envir, emptyenv())) {
  [07:38:00.564]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:00.564]                           inherits = FALSE)) {
  [07:38:00.564]                           master <- get("master", mode = "list", 
  [07:38:00.564]                             envir = envir, inherits = FALSE)
  [07:38:00.564]                           if (inherits(master, "SOCKnode")) {
  [07:38:00.564]                             sendCondition <<- function(cond) {
  [07:38:00.564]                               data <- list(type = "VALUE", value = cond, 
  [07:38:00.564]                                 success = TRUE)
  [07:38:00.564]                               parallel_sendData(master, data)
  [07:38:00.564]                             }
  [07:38:00.564]                             return(sendCondition)
  [07:38:00.564]                           }
  [07:38:00.564]                         }
  [07:38:00.564]                         frame <- frame + 1L
  [07:38:00.564]                         envir <- sys.frame(frame)
  [07:38:00.564]                       }
  [07:38:00.564]                     }
  [07:38:00.564]                     sendCondition <<- function(cond) NULL
  [07:38:00.564]                   }
  [07:38:00.564]                 })
  [07:38:00.564]                 withCallingHandlers({
  [07:38:00.564]                   NULL
  [07:38:00.564]                 }, immediateCondition = function(cond) {
  [07:38:00.564]                   sendCondition <- ...future.sendCondition()
  [07:38:00.564]                   sendCondition(cond)
  [07:38:00.564]                   muffleCondition <- function (cond) 
  [07:38:00.564]                   {
  [07:38:00.564]                     inherits <- base::inherits
  [07:38:00.564]                     invokeRestart <- base::invokeRestart
  [07:38:00.564]                     muffled <- FALSE
  [07:38:00.564]                     if (inherits(cond, "message")) {
  [07:38:00.564]                       invokeRestart("muffleMessage")
  [07:38:00.564]                       muffled <- TRUE
  [07:38:00.564]                     }
  [07:38:00.564]                     else if (inherits(cond, "warning")) {
  [07:38:00.564]                       invokeRestart("muffleWarning")
  [07:38:00.564]                       muffled <- TRUE
  [07:38:00.564]                     }
  [07:38:00.564]                     else if (inherits(cond, "condition")) {
  [07:38:00.564]                       computeRestarts <- base::computeRestarts
  [07:38:00.564]                       grepl <- base::grepl
  [07:38:00.564]                       is.null <- base::is.null
  [07:38:00.564]                       restarts <- computeRestarts(cond)
  [07:38:00.564]                       for (restart in restarts) {
  [07:38:00.564]                         name <- restart$name
  [07:38:00.564]                         if (is.null(name)) 
  [07:38:00.564]                           next
  [07:38:00.564]                         if (!grepl("^muffle", name)) 
  [07:38:00.564]                           next
  [07:38:00.564]                         invokeRestart(restart)
  [07:38:00.564]                         muffled <- TRUE
  [07:38:00.564]                         break
  [07:38:00.564]                       }
  [07:38:00.564]                     }
  [07:38:00.564]                     invisible(muffled)
  [07:38:00.564]                   }
  [07:38:00.564]                   muffleCondition(cond)
  [07:38:00.564]                 })
  [07:38:00.564]             }))
  [07:38:00.564]             future::FutureResult(value = ...future.value$value, 
  [07:38:00.564]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.564]                   ...future.rng), started = ...future.startTime, 
  [07:38:00.564]                 version = "1.8")
  [07:38:00.564]         }, condition = base::local({
  [07:38:00.564]             c <- base::c
  [07:38:00.564]             inherits <- base::inherits
  [07:38:00.564]             invokeRestart <- base::invokeRestart
  [07:38:00.564]             length <- base::length
  [07:38:00.564]             list <- base::list
  [07:38:00.564]             seq.int <- base::seq.int
  [07:38:00.564]             signalCondition <- base::signalCondition
  [07:38:00.564]             sys.calls <- base::sys.calls
  [07:38:00.564]             Sys.time <- base::Sys.time
  [07:38:00.564]             `[[` <- base::`[[`
  [07:38:00.564]             `+` <- base::`+`
  [07:38:00.564]             `<<-` <- base::`<<-`
  [07:38:00.564]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:00.564]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:00.564]                   3L)]
  [07:38:00.564]             }
  [07:38:00.564]             function(cond) {
  [07:38:00.564]                 if (inherits(cond, "error")) {
  [07:38:00.564]                   sessionInformation <- function() {
  [07:38:00.564]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:00.564]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:00.564]                       search = base::search(), system = base::Sys.info())
  [07:38:00.564]                   }
  [07:38:00.564]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.564]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:00.564]                     cond$call), session = sessionInformation(), 
  [07:38:00.564]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:00.564]                   signalCondition(cond)
  [07:38:00.564]                 }
  [07:38:00.564]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:00.564]                 ))) {
  [07:38:00.564]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:00.564]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.564]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:00.564]                   if (!signal) {
  [07:38:00.564]                     muffleCondition <- function (cond) 
  [07:38:00.564]                     {
  [07:38:00.564]                       inherits <- base::inherits
  [07:38:00.564]                       invokeRestart <- base::invokeRestart
  [07:38:00.564]                       muffled <- FALSE
  [07:38:00.564]                       if (inherits(cond, "message")) {
  [07:38:00.564]                         invokeRestart("muffleMessage")
  [07:38:00.564]                         muffled <- TRUE
  [07:38:00.564]                       }
  [07:38:00.564]                       else if (inherits(cond, "warning")) {
  [07:38:00.564]                         invokeRestart("muffleWarning")
  [07:38:00.564]                         muffled <- TRUE
  [07:38:00.564]                       }
  [07:38:00.564]                       else if (inherits(cond, "condition")) {
  [07:38:00.564]                         computeRestarts <- base::computeRestarts
  [07:38:00.564]                         grepl <- base::grepl
  [07:38:00.564]                         is.null <- base::is.null
  [07:38:00.564]                         restarts <- computeRestarts(cond)
  [07:38:00.564]                         for (restart in restarts) {
  [07:38:00.564]                           name <- restart$name
  [07:38:00.564]                           if (is.null(name)) 
  [07:38:00.564]                             next
  [07:38:00.564]                           if (!grepl("^muffle", name)) 
  [07:38:00.564]                             next
  [07:38:00.564]                           invokeRestart(restart)
  [07:38:00.564]                           muffled <- TRUE
  [07:38:00.564]                           break
  [07:38:00.564]                         }
  [07:38:00.564]                       }
  [07:38:00.564]                       invisible(muffled)
  [07:38:00.564]                     }
  [07:38:00.564]                     muffleCondition(cond)
  [07:38:00.564]                   }
  [07:38:00.564]                 }
  [07:38:00.564]             }
  [07:38:00.564]         }))
  [07:38:00.564]     }, error = function(ex) {
  [07:38:00.564]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:00.564]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.564]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:00.564]     }, finally = {
  [07:38:00.564]         {
  [07:38:00.564]             NULL
  [07:38:00.564]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:00.564]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:00.564]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:00.564]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:00.564]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:00.564]                 ...) 
  [07:38:00.564]             {
  [07:38:00.564]                 if (substitute) 
  [07:38:00.564]                   expr <- substitute(expr)
  [07:38:00.564]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:00.564]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:00.564]                   globals = globals, persistent = persistent, 
  [07:38:00.564]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:00.564]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:00.564]                   label = label, ...)
  [07:38:00.564]                 if (!future$lazy) 
  [07:38:00.564]                   future <- run(future)
  [07:38:00.564]                 invisible(future)
  [07:38:00.564]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:00.564]         }
  [07:38:00.564]         base::options(...future.oldOptions)
  [07:38:00.564]     })
  [07:38:00.564]     Sys.time
  [07:38:00.564]     if (base::is.na(TRUE)) {
  [07:38:00.564]     }
  [07:38:00.564]     else {
  [07:38:00.564]         base::sink(type = "output", split = FALSE)
  [07:38:00.564]         if (TRUE) {
  [07:38:00.564]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:00.564]         }
  [07:38:00.564]         else {
  [07:38:00.564]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:00.564]         }
  [07:38:00.564]         base::close(...future.stdout)
  [07:38:00.564]         ...future.stdout <- NULL
  [07:38:00.564]     }
  [07:38:00.564]     ...future.result$conditions <- ...future.conditions
  [07:38:00.564]     ...future.result
  [07:38:00.564] }
  [07:38:00.569] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:00.632] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:00.633] - Validating connection of ClusterFuture
  [07:38:00.633] - received message: FutureResult
  [07:38:00.634] - Received FutureResult
  [07:38:00.634] - Erased future from FutureRegistry
  [07:38:00.634] result() for ClusterFuture ...
  [07:38:00.635] - result already collected: FutureResult
  [07:38:00.635] result() for ClusterFuture ... done
  [07:38:00.635] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:00.636] result() for ClusterFuture ...
  [07:38:00.636] - result already collected: FutureResult
  [07:38:00.637] result() for ClusterFuture ... done
  [07:38:00.637] result() for ClusterFuture ...
  [07:38:00.637] - result already collected: FutureResult
  [07:38:00.638] result() for ClusterFuture ... done
  [07:38:00.651] ClusterFuture started
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d5cb3870> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6132e58> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d5cb3870> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6132e58> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 1 6
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
  [07:38:00.700] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:00.700] - Validating connection of ClusterFuture
  [07:38:00.701] - received message: FutureResult
  [07:38:00.701] - Received FutureResult
  [07:38:00.701] - Erased future from FutureRegistry
  [07:38:00.702] result() for ClusterFuture ...
  [07:38:00.702] - result already collected: FutureResult
  [07:38:00.702] result() for ClusterFuture ... done
  [07:38:00.703] receiveMessageFromWorker() for ClusterFuture ... done
   logi [1, 1:6] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:38:00.709] resolve() on list ...
  [07:38:00.709]  recursive: 0
  [07:38:00.709]  length: 6
  [07:38:00.710]  elements: 'a', 'b', 'c', '', '', ''
  [07:38:00.710] signalConditionsASAP(numeric, pos=1) ...
  [07:38:00.710] - nx: 6
  [07:38:00.711] - relay: TRUE
  [07:38:00.711] - stdout: TRUE
  [07:38:00.711] - signal: TRUE
  [07:38:00.712] - resignal: FALSE
  [07:38:00.712] - force: TRUE
  [07:38:00.712] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.713] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.713]  - until=2
  [07:38:00.713]  - relaying element #2
  [07:38:00.714] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.714] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.730] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:00.731]  length: 5 (resolved future 1)
  [07:38:00.731] Future #2
  [07:38:00.732] result() for ClusterFuture ...
  [07:38:00.732] - result already collected: FutureResult
  [07:38:00.733] result() for ClusterFuture ... done
  [07:38:00.733] result() for ClusterFuture ...
  [07:38:00.733] - result already collected: FutureResult
  [07:38:00.734] result() for ClusterFuture ... done
  [07:38:00.734] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:00.734] - nx: 6
  [07:38:00.735] - relay: TRUE
  [07:38:00.735] - stdout: TRUE
  [07:38:00.735] - signal: TRUE
  [07:38:00.736] - resignal: FALSE
  [07:38:00.736] - force: TRUE
  [07:38:00.736] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.737] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.737]  - until=2
  [07:38:00.737]  - relaying element #2
  [07:38:00.738] result() for ClusterFuture ...
  [07:38:00.738] - result already collected: FutureResult
  [07:38:00.738] result() for ClusterFuture ... done
  [07:38:00.739] result() for ClusterFuture ...
  [07:38:00.739] - result already collected: FutureResult
  [07:38:00.739] result() for ClusterFuture ... done
  [07:38:00.743] result() for ClusterFuture ...
  [07:38:00.744] - result already collected: FutureResult
  [07:38:00.744] result() for ClusterFuture ... done
  [07:38:00.744] result() for ClusterFuture ...
  [07:38:00.745] - result already collected: FutureResult
  [07:38:00.745] result() for ClusterFuture ... done
  [07:38:00.745] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.746] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.746] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:00.763]  length: 4 (resolved future 2)
  [07:38:00.763] Future #3
  [07:38:00.763] result() for ClusterFuture ...
  [07:38:00.764] - result already collected: FutureResult
  [07:38:00.764] result() for ClusterFuture ... done
  [07:38:00.765] result() for ClusterFuture ...
  [07:38:00.765] - result already collected: FutureResult
  [07:38:00.765] result() for ClusterFuture ... done
  [07:38:00.766] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:00.766] - nx: 6
  [07:38:00.766] - relay: TRUE
  [07:38:00.767] - stdout: TRUE
  [07:38:00.767] - signal: TRUE
  [07:38:00.767] - resignal: FALSE
  [07:38:00.767] - force: TRUE
  [07:38:00.768] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.768] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:00.768]  - until=3
  [07:38:00.769]  - relaying element #3
  [07:38:00.769] result() for ClusterFuture ...
  [07:38:00.769] - result already collected: FutureResult
  [07:38:00.770] result() for ClusterFuture ... done
  [07:38:00.770] result() for ClusterFuture ...
  [07:38:00.771] - result already collected: FutureResult
  [07:38:00.771] result() for ClusterFuture ... done
  [07:38:00.771] result() for ClusterFuture ...
  [07:38:00.772] - result already collected: FutureResult
  [07:38:00.772] result() for ClusterFuture ... done
  [07:38:00.772] result() for ClusterFuture ...
  [07:38:00.773] - result already collected: FutureResult
  [07:38:00.773] result() for ClusterFuture ... done
  [07:38:00.773] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.774] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.774] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:00.774]  length: 3 (resolved future 3)
  [07:38:00.775] signalConditionsASAP(NULL, pos=4) ...
  [07:38:00.775] - nx: 6
  [07:38:00.775] - relay: TRUE
  [07:38:00.776] - stdout: TRUE
  [07:38:00.776] - signal: TRUE
  [07:38:00.776] - resignal: FALSE
  [07:38:00.777] - force: TRUE
  [07:38:00.777] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.777] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.778]  - until=5
  [07:38:00.778]  - relaying element #5
  [07:38:00.778] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:00.795] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.795] signalConditionsASAP(NULL, pos=4) ... done
  [07:38:00.796]  length: 2 (resolved future 4)
  [07:38:00.796] signalConditionsASAP(NULL, pos=5) ...
  [07:38:00.796] - nx: 6
  [07:38:00.797] - relay: TRUE
  [07:38:00.797] - stdout: TRUE
  [07:38:00.797] - signal: TRUE
  [07:38:00.797] - resignal: FALSE
  [07:38:00.798] - force: TRUE
  [07:38:00.798] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:00.798] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.799]  - until=6
  [07:38:00.799]  - relaying element #6
  [07:38:00.799] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:00.800] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.800] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:00.801]  length: 1 (resolved future 5)
  [07:38:00.801] signalConditionsASAP(numeric, pos=6) ...
  [07:38:00.801] - nx: 6
  [07:38:00.801] - relay: TRUE
  [07:38:00.802] - stdout: TRUE
  [07:38:00.802] - signal: TRUE
  [07:38:00.802] - resignal: FALSE
  [07:38:00.803] - force: TRUE
  [07:38:00.803] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:00.803] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.804]  - until=6
  [07:38:00.804] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:00.804] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.805] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:00.805]  length: 0 (resolved future 6)
  [07:38:00.806] Relaying remaining futures
  [07:38:00.806] signalConditionsASAP(NULL, pos=0) ...
  [07:38:00.806] - nx: 6
  [07:38:00.807] - relay: TRUE
  [07:38:00.807] - stdout: TRUE
  [07:38:00.807] - signal: TRUE
  [07:38:00.807] - resignal: FALSE
  [07:38:00.808] - force: TRUE
  [07:38:00.808] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:00.808] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:38:00.809] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:00.809] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:00.810] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:00.810] resolve() on list ... DONE
  [07:38:00.827] result() for ClusterFuture ...
  [07:38:00.827] - result already collected: FutureResult
  [07:38:00.827] result() for ClusterFuture ... done
  [07:38:00.828] result() for ClusterFuture ...
  [07:38:00.828] - result already collected: FutureResult
  [07:38:00.828] result() for ClusterFuture ... done
  [07:38:00.829] result() for ClusterFuture ...
  [07:38:00.829] - result already collected: FutureResult
  [07:38:00.829] result() for ClusterFuture ... done
  [07:38:00.830] result() for ClusterFuture ...
  [07:38:00.830] - result already collected: FutureResult
  [07:38:00.831] result() for ClusterFuture ... done
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 1 6
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
  Dimensions: c(2, 3)
  [07:38:00.859] getGlobalsAndPackages() ...
  [07:38:00.859] Searching for globals...
  [07:38:00.860] 
  [07:38:00.861] Searching for globals ... DONE
  [07:38:00.861] - globals: [0] <none>
  [07:38:00.861] getGlobalsAndPackages() ... DONE
  [07:38:00.867] Packages needed by the future expression (n = 0): <none>
  [07:38:00.867] Packages needed by future strategies (n = 0): <none>
  [07:38:00.874] {
  [07:38:00.874]     {
  [07:38:00.874]         ...future.startTime <- base::Sys.time()
  [07:38:00.874]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:00.874]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:00.874]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:00.874]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:00.874]             future.resolve.recursive = NULL, width = 80L)
  [07:38:00.874]         {
  [07:38:00.874]             {
  [07:38:00.874]                 base::local({
  [07:38:00.874]                   has_future <- base::requireNamespace("future", 
  [07:38:00.874]                     quietly = TRUE)
  [07:38:00.874]                   version <- if (has_future) 
  [07:38:00.874]                     utils::packageVersion("future")
  [07:38:00.874]                   else NULL
  [07:38:00.874]                   if (!has_future || version < "1.8.0") {
  [07:38:00.874]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:00.874]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:00.874]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:00.874]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:00.874]                         "release", "version")], collapse = " "), 
  [07:38:00.874]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:00.874]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:00.874]                       info)
  [07:38:00.874]                     info <- base::paste(info, collapse = "; ")
  [07:38:00.874]                     if (!has_future) {
  [07:38:00.874]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:00.874]                         info)
  [07:38:00.874]                     }
  [07:38:00.874]                     else {
  [07:38:00.874]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:00.874]                         info, version)
  [07:38:00.874]                     }
  [07:38:00.874]                     base::stop(msg)
  [07:38:00.874]                   }
  [07:38:00.874]                 })
  [07:38:00.874]             }
  [07:38:00.874]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:00.874]         }
  [07:38:00.874]     }
  [07:38:00.874]     if (base::is.na(TRUE)) {
  [07:38:00.874]     }
  [07:38:00.874]     else {
  [07:38:00.874]         if (TRUE) {
  [07:38:00.874]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:00.874]                 open = "w")
  [07:38:00.874]         }
  [07:38:00.874]         else {
  [07:38:00.874]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:00.874]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:00.874]         }
  [07:38:00.874]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:00.874]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:00.874]             base::sink(type = "output", split = FALSE)
  [07:38:00.874]             base::close(...future.stdout)
  [07:38:00.874]         }, add = TRUE)
  [07:38:00.874]     }
  [07:38:00.874]     ...future.frame <- base::sys.nframe()
  [07:38:00.874]     ...future.conditions <- base::list()
  [07:38:00.874]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:00.874]     ...future.result <- base::tryCatch({
  [07:38:00.874]         base::withCallingHandlers({
  [07:38:00.874]             ...future.value <- base::withVisible(base::local({
  [07:38:00.874]                 ...future.sendCondition <- local({
  [07:38:00.874]                   sendCondition <- NULL
  [07:38:00.874]                   function(frame = 1L) {
  [07:38:00.874]                     if (is.function(sendCondition)) 
  [07:38:00.874]                       return(sendCondition)
  [07:38:00.874]                     ns <- getNamespace("parallel")
  [07:38:00.874]                     if (exists("sendData", mode = "function", 
  [07:38:00.874]                       envir = ns)) {
  [07:38:00.874]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:00.874]                         envir = ns)
  [07:38:00.874]                       envir <- sys.frame(frame)
  [07:38:00.874]                       master <- NULL
  [07:38:00.874]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:00.874]                         !identical(envir, emptyenv())) {
  [07:38:00.874]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:00.874]                           inherits = FALSE)) {
  [07:38:00.874]                           master <- get("master", mode = "list", 
  [07:38:00.874]                             envir = envir, inherits = FALSE)
  [07:38:00.874]                           if (inherits(master, "SOCKnode")) {
  [07:38:00.874]                             sendCondition <<- function(cond) {
  [07:38:00.874]                               data <- list(type = "VALUE", value = cond, 
  [07:38:00.874]                                 success = TRUE)
  [07:38:00.874]                               parallel_sendData(master, data)
  [07:38:00.874]                             }
  [07:38:00.874]                             return(sendCondition)
  [07:38:00.874]                           }
  [07:38:00.874]                         }
  [07:38:00.874]                         frame <- frame + 1L
  [07:38:00.874]                         envir <- sys.frame(frame)
  [07:38:00.874]                       }
  [07:38:00.874]                     }
  [07:38:00.874]                     sendCondition <<- function(cond) NULL
  [07:38:00.874]                   }
  [07:38:00.874]                 })
  [07:38:00.874]                 withCallingHandlers({
  [07:38:00.874]                   2
  [07:38:00.874]                 }, immediateCondition = function(cond) {
  [07:38:00.874]                   sendCondition <- ...future.sendCondition()
  [07:38:00.874]                   sendCondition(cond)
  [07:38:00.874]                   muffleCondition <- function (cond) 
  [07:38:00.874]                   {
  [07:38:00.874]                     inherits <- base::inherits
  [07:38:00.874]                     invokeRestart <- base::invokeRestart
  [07:38:00.874]                     muffled <- FALSE
  [07:38:00.874]                     if (inherits(cond, "message")) {
  [07:38:00.874]                       invokeRestart("muffleMessage")
  [07:38:00.874]                       muffled <- TRUE
  [07:38:00.874]                     }
  [07:38:00.874]                     else if (inherits(cond, "warning")) {
  [07:38:00.874]                       invokeRestart("muffleWarning")
  [07:38:00.874]                       muffled <- TRUE
  [07:38:00.874]                     }
  [07:38:00.874]                     else if (inherits(cond, "condition")) {
  [07:38:00.874]                       computeRestarts <- base::computeRestarts
  [07:38:00.874]                       grepl <- base::grepl
  [07:38:00.874]                       is.null <- base::is.null
  [07:38:00.874]                       restarts <- computeRestarts(cond)
  [07:38:00.874]                       for (restart in restarts) {
  [07:38:00.874]                         name <- restart$name
  [07:38:00.874]                         if (is.null(name)) 
  [07:38:00.874]                           next
  [07:38:00.874]                         if (!grepl("^muffle", name)) 
  [07:38:00.874]                           next
  [07:38:00.874]                         invokeRestart(restart)
  [07:38:00.874]                         muffled <- TRUE
  [07:38:00.874]                         break
  [07:38:00.874]                       }
  [07:38:00.874]                     }
  [07:38:00.874]                     invisible(muffled)
  [07:38:00.874]                   }
  [07:38:00.874]                   muffleCondition(cond)
  [07:38:00.874]                 })
  [07:38:00.874]             }))
  [07:38:00.874]             future::FutureResult(value = ...future.value$value, 
  [07:38:00.874]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.874]                   ...future.rng), started = ...future.startTime, 
  [07:38:00.874]                 version = "1.8")
  [07:38:00.874]         }, condition = base::local({
  [07:38:00.874]             c <- base::c
  [07:38:00.874]             inherits <- base::inherits
  [07:38:00.874]             invokeRestart <- base::invokeRestart
  [07:38:00.874]             length <- base::length
  [07:38:00.874]             list <- base::list
  [07:38:00.874]             seq.int <- base::seq.int
  [07:38:00.874]             signalCondition <- base::signalCondition
  [07:38:00.874]             sys.calls <- base::sys.calls
  [07:38:00.874]             Sys.time <- base::Sys.time
  [07:38:00.874]             `[[` <- base::`[[`
  [07:38:00.874]             `+` <- base::`+`
  [07:38:00.874]             `<<-` <- base::`<<-`
  [07:38:00.874]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:00.874]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:00.874]                   3L)]
  [07:38:00.874]             }
  [07:38:00.874]             function(cond) {
  [07:38:00.874]                 if (inherits(cond, "error")) {
  [07:38:00.874]                   sessionInformation <- function() {
  [07:38:00.874]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:00.874]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:00.874]                       search = base::search(), system = base::Sys.info())
  [07:38:00.874]                   }
  [07:38:00.874]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.874]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:00.874]                     cond$call), session = sessionInformation(), 
  [07:38:00.874]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:00.874]                   signalCondition(cond)
  [07:38:00.874]                 }
  [07:38:00.874]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:00.874]                 ))) {
  [07:38:00.874]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:00.874]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.874]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:00.874]                   if (!signal) {
  [07:38:00.874]                     muffleCondition <- function (cond) 
  [07:38:00.874]                     {
  [07:38:00.874]                       inherits <- base::inherits
  [07:38:00.874]                       invokeRestart <- base::invokeRestart
  [07:38:00.874]                       muffled <- FALSE
  [07:38:00.874]                       if (inherits(cond, "message")) {
  [07:38:00.874]                         invokeRestart("muffleMessage")
  [07:38:00.874]                         muffled <- TRUE
  [07:38:00.874]                       }
  [07:38:00.874]                       else if (inherits(cond, "warning")) {
  [07:38:00.874]                         invokeRestart("muffleWarning")
  [07:38:00.874]                         muffled <- TRUE
  [07:38:00.874]                       }
  [07:38:00.874]                       else if (inherits(cond, "condition")) {
  [07:38:00.874]                         computeRestarts <- base::computeRestarts
  [07:38:00.874]                         grepl <- base::grepl
  [07:38:00.874]                         is.null <- base::is.null
  [07:38:00.874]                         restarts <- computeRestarts(cond)
  [07:38:00.874]                         for (restart in restarts) {
  [07:38:00.874]                           name <- restart$name
  [07:38:00.874]                           if (is.null(name)) 
  [07:38:00.874]                             next
  [07:38:00.874]                           if (!grepl("^muffle", name)) 
  [07:38:00.874]                             next
  [07:38:00.874]                           invokeRestart(restart)
  [07:38:00.874]                           muffled <- TRUE
  [07:38:00.874]                           break
  [07:38:00.874]                         }
  [07:38:00.874]                       }
  [07:38:00.874]                       invisible(muffled)
  [07:38:00.874]                     }
  [07:38:00.874]                     muffleCondition(cond)
  [07:38:00.874]                   }
  [07:38:00.874]                 }
  [07:38:00.874]             }
  [07:38:00.874]         }))
  [07:38:00.874]     }, error = function(ex) {
  [07:38:00.874]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:00.874]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.874]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:00.874]     }, finally = {
  [07:38:00.874]         {
  [07:38:00.874]             NULL
  [07:38:00.874]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:00.874]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:00.874]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:00.874]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:00.874]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:00.874]                 ...) 
  [07:38:00.874]             {
  [07:38:00.874]                 if (substitute) 
  [07:38:00.874]                   expr <- substitute(expr)
  [07:38:00.874]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:00.874]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:00.874]                   globals = globals, persistent = persistent, 
  [07:38:00.874]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:00.874]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:00.874]                   label = label, ...)
  [07:38:00.874]                 if (!future$lazy) 
  [07:38:00.874]                   future <- run(future)
  [07:38:00.874]                 invisible(future)
  [07:38:00.874]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:00.874]         }
  [07:38:00.874]         base::options(...future.oldOptions)
  [07:38:00.874]     })
  [07:38:00.874]     Sys.time
  [07:38:00.874]     if (base::is.na(TRUE)) {
  [07:38:00.874]     }
  [07:38:00.874]     else {
  [07:38:00.874]         base::sink(type = "output", split = FALSE)
  [07:38:00.874]         if (TRUE) {
  [07:38:00.874]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:00.874]         }
  [07:38:00.874]         else {
  [07:38:00.874]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:00.874]         }
  [07:38:00.874]         base::close(...future.stdout)
  [07:38:00.874]         ...future.stdout <- NULL
  [07:38:00.874]     }
  [07:38:00.874]     ...future.result$conditions <- ...future.conditions
  [07:38:00.874]     ...future.result
  [07:38:00.874] }
  [07:38:00.908] ClusterFuture started
  [07:38:00.908] getGlobalsAndPackages() ...
  [07:38:00.908] Searching for globals...
  [07:38:00.909] 
  [07:38:00.910] Searching for globals ... DONE
  [07:38:00.910] - globals: [0] <none>
  [07:38:00.910] getGlobalsAndPackages() ... DONE
  [07:38:00.919] Packages needed by the future expression (n = 0): <none>
  [07:38:00.920] Packages needed by future strategies (n = 0): <none>
  [07:38:00.941] {
  [07:38:00.941]     {
  [07:38:00.941]         ...future.startTime <- base::Sys.time()
  [07:38:00.941]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:00.941]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:00.941]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:00.941]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:00.941]             future.resolve.recursive = NULL, width = 80L)
  [07:38:00.941]         {
  [07:38:00.941]             {
  [07:38:00.941]                 base::local({
  [07:38:00.941]                   has_future <- base::requireNamespace("future", 
  [07:38:00.941]                     quietly = TRUE)
  [07:38:00.941]                   version <- if (has_future) 
  [07:38:00.941]                     utils::packageVersion("future")
  [07:38:00.941]                   else NULL
  [07:38:00.941]                   if (!has_future || version < "1.8.0") {
  [07:38:00.941]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:00.941]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:00.941]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:00.941]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:00.941]                         "release", "version")], collapse = " "), 
  [07:38:00.941]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:00.941]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:00.941]                       info)
  [07:38:00.941]                     info <- base::paste(info, collapse = "; ")
  [07:38:00.941]                     if (!has_future) {
  [07:38:00.941]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:00.941]                         info)
  [07:38:00.941]                     }
  [07:38:00.941]                     else {
  [07:38:00.941]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:00.941]                         info, version)
  [07:38:00.941]                     }
  [07:38:00.941]                     base::stop(msg)
  [07:38:00.941]                   }
  [07:38:00.941]                 })
  [07:38:00.941]             }
  [07:38:00.941]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:00.941]         }
  [07:38:00.941]     }
  [07:38:00.941]     if (base::is.na(TRUE)) {
  [07:38:00.941]     }
  [07:38:00.941]     else {
  [07:38:00.941]         if (TRUE) {
  [07:38:00.941]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:00.941]                 open = "w")
  [07:38:00.941]         }
  [07:38:00.941]         else {
  [07:38:00.941]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:00.941]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:00.941]         }
  [07:38:00.941]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:00.941]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:00.941]             base::sink(type = "output", split = FALSE)
  [07:38:00.941]             base::close(...future.stdout)
  [07:38:00.941]         }, add = TRUE)
  [07:38:00.941]     }
  [07:38:00.941]     ...future.frame <- base::sys.nframe()
  [07:38:00.941]     ...future.conditions <- base::list()
  [07:38:00.941]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:00.941]     ...future.result <- base::tryCatch({
  [07:38:00.941]         base::withCallingHandlers({
  [07:38:00.941]             ...future.value <- base::withVisible(base::local({
  [07:38:00.941]                 ...future.sendCondition <- local({
  [07:38:00.941]                   sendCondition <- NULL
  [07:38:00.941]                   function(frame = 1L) {
  [07:38:00.941]                     if (is.function(sendCondition)) 
  [07:38:00.941]                       return(sendCondition)
  [07:38:00.941]                     ns <- getNamespace("parallel")
  [07:38:00.941]                     if (exists("sendData", mode = "function", 
  [07:38:00.941]                       envir = ns)) {
  [07:38:00.941]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:00.941]                         envir = ns)
  [07:38:00.941]                       envir <- sys.frame(frame)
  [07:38:00.941]                       master <- NULL
  [07:38:00.941]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:00.941]                         !identical(envir, emptyenv())) {
  [07:38:00.941]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:00.941]                           inherits = FALSE)) {
  [07:38:00.941]                           master <- get("master", mode = "list", 
  [07:38:00.941]                             envir = envir, inherits = FALSE)
  [07:38:00.941]                           if (inherits(master, "SOCKnode")) {
  [07:38:00.941]                             sendCondition <<- function(cond) {
  [07:38:00.941]                               data <- list(type = "VALUE", value = cond, 
  [07:38:00.941]                                 success = TRUE)
  [07:38:00.941]                               parallel_sendData(master, data)
  [07:38:00.941]                             }
  [07:38:00.941]                             return(sendCondition)
  [07:38:00.941]                           }
  [07:38:00.941]                         }
  [07:38:00.941]                         frame <- frame + 1L
  [07:38:00.941]                         envir <- sys.frame(frame)
  [07:38:00.941]                       }
  [07:38:00.941]                     }
  [07:38:00.941]                     sendCondition <<- function(cond) NULL
  [07:38:00.941]                   }
  [07:38:00.941]                 })
  [07:38:00.941]                 withCallingHandlers({
  [07:38:00.941]                   NULL
  [07:38:00.941]                 }, immediateCondition = function(cond) {
  [07:38:00.941]                   sendCondition <- ...future.sendCondition()
  [07:38:00.941]                   sendCondition(cond)
  [07:38:00.941]                   muffleCondition <- function (cond) 
  [07:38:00.941]                   {
  [07:38:00.941]                     inherits <- base::inherits
  [07:38:00.941]                     invokeRestart <- base::invokeRestart
  [07:38:00.941]                     muffled <- FALSE
  [07:38:00.941]                     if (inherits(cond, "message")) {
  [07:38:00.941]                       invokeRestart("muffleMessage")
  [07:38:00.941]                       muffled <- TRUE
  [07:38:00.941]                     }
  [07:38:00.941]                     else if (inherits(cond, "warning")) {
  [07:38:00.941]                       invokeRestart("muffleWarning")
  [07:38:00.941]                       muffled <- TRUE
  [07:38:00.941]                     }
  [07:38:00.941]                     else if (inherits(cond, "condition")) {
  [07:38:00.941]                       computeRestarts <- base::computeRestarts
  [07:38:00.941]                       grepl <- base::grepl
  [07:38:00.941]                       is.null <- base::is.null
  [07:38:00.941]                       restarts <- computeRestarts(cond)
  [07:38:00.941]                       for (restart in restarts) {
  [07:38:00.941]                         name <- restart$name
  [07:38:00.941]                         if (is.null(name)) 
  [07:38:00.941]                           next
  [07:38:00.941]                         if (!grepl("^muffle", name)) 
  [07:38:00.941]                           next
  [07:38:00.941]                         invokeRestart(restart)
  [07:38:00.941]                         muffled <- TRUE
  [07:38:00.941]                         break
  [07:38:00.941]                       }
  [07:38:00.941]                     }
  [07:38:00.941]                     invisible(muffled)
  [07:38:00.941]                   }
  [07:38:00.941]                   muffleCondition(cond)
  [07:38:00.941]                 })
  [07:38:00.941]             }))
  [07:38:00.941]             future::FutureResult(value = ...future.value$value, 
  [07:38:00.941]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.941]                   ...future.rng), started = ...future.startTime, 
  [07:38:00.941]                 version = "1.8")
  [07:38:00.941]         }, condition = base::local({
  [07:38:00.941]             c <- base::c
  [07:38:00.941]             inherits <- base::inherits
  [07:38:00.941]             invokeRestart <- base::invokeRestart
  [07:38:00.941]             length <- base::length
  [07:38:00.941]             list <- base::list
  [07:38:00.941]             seq.int <- base::seq.int
  [07:38:00.941]             signalCondition <- base::signalCondition
  [07:38:00.941]             sys.calls <- base::sys.calls
  [07:38:00.941]             Sys.time <- base::Sys.time
  [07:38:00.941]             `[[` <- base::`[[`
  [07:38:00.941]             `+` <- base::`+`
  [07:38:00.941]             `<<-` <- base::`<<-`
  [07:38:00.941]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:00.941]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:00.941]                   3L)]
  [07:38:00.941]             }
  [07:38:00.941]             function(cond) {
  [07:38:00.941]                 if (inherits(cond, "error")) {
  [07:38:00.941]                   sessionInformation <- function() {
  [07:38:00.941]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:00.941]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:00.941]                       search = base::search(), system = base::Sys.info())
  [07:38:00.941]                   }
  [07:38:00.941]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.941]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:00.941]                     cond$call), session = sessionInformation(), 
  [07:38:00.941]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:00.941]                   signalCondition(cond)
  [07:38:00.941]                 }
  [07:38:00.941]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:00.941]                 ))) {
  [07:38:00.941]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:00.941]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:00.941]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:00.941]                   if (!signal) {
  [07:38:00.941]                     muffleCondition <- function (cond) 
  [07:38:00.941]                     {
  [07:38:00.941]                       inherits <- base::inherits
  [07:38:00.941]                       invokeRestart <- base::invokeRestart
  [07:38:00.941]                       muffled <- FALSE
  [07:38:00.941]                       if (inherits(cond, "message")) {
  [07:38:00.941]                         invokeRestart("muffleMessage")
  [07:38:00.941]                         muffled <- TRUE
  [07:38:00.941]                       }
  [07:38:00.941]                       else if (inherits(cond, "warning")) {
  [07:38:00.941]                         invokeRestart("muffleWarning")
  [07:38:00.941]                         muffled <- TRUE
  [07:38:00.941]                       }
  [07:38:00.941]                       else if (inherits(cond, "condition")) {
  [07:38:00.941]                         computeRestarts <- base::computeRestarts
  [07:38:00.941]                         grepl <- base::grepl
  [07:38:00.941]                         is.null <- base::is.null
  [07:38:00.941]                         restarts <- computeRestarts(cond)
  [07:38:00.941]                         for (restart in restarts) {
  [07:38:00.941]                           name <- restart$name
  [07:38:00.941]                           if (is.null(name)) 
  [07:38:00.941]                             next
  [07:38:00.941]                           if (!grepl("^muffle", name)) 
  [07:38:00.941]                             next
  [07:38:00.941]                           invokeRestart(restart)
  [07:38:00.941]                           muffled <- TRUE
  [07:38:00.941]                           break
  [07:38:00.941]                         }
  [07:38:00.941]                       }
  [07:38:00.941]                       invisible(muffled)
  [07:38:00.941]                     }
  [07:38:00.941]                     muffleCondition(cond)
  [07:38:00.941]                   }
  [07:38:00.941]                 }
  [07:38:00.941]             }
  [07:38:00.941]         }))
  [07:38:00.941]     }, error = function(ex) {
  [07:38:00.941]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:00.941]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:00.941]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:00.941]     }, finally = {
  [07:38:00.941]         {
  [07:38:00.941]             NULL
  [07:38:00.941]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:00.941]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:00.941]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:00.941]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:00.941]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:00.941]                 ...) 
  [07:38:00.941]             {
  [07:38:00.941]                 if (substitute) 
  [07:38:00.941]                   expr <- substitute(expr)
  [07:38:00.941]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:00.941]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:00.941]                   globals = globals, persistent = persistent, 
  [07:38:00.941]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:00.941]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:00.941]                   label = label, ...)
  [07:38:00.941]                 if (!future$lazy) 
  [07:38:00.941]                   future <- run(future)
  [07:38:00.941]                 invisible(future)
  [07:38:00.941]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:00.941]         }
  [07:38:00.941]         base::options(...future.oldOptions)
  [07:38:00.941]     })
  [07:38:00.941]     Sys.time
  [07:38:00.941]     if (base::is.na(TRUE)) {
  [07:38:00.941]     }
  [07:38:00.941]     else {
  [07:38:00.941]         base::sink(type = "output", split = FALSE)
  [07:38:00.941]         if (TRUE) {
  [07:38:00.941]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:00.941]         }
  [07:38:00.941]         else {
  [07:38:00.941]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:00.941]         }
  [07:38:00.941]         base::close(...future.stdout)
  [07:38:00.941]         ...future.stdout <- NULL
  [07:38:00.941]     }
  [07:38:00.941]     ...future.result$conditions <- ...future.conditions
  [07:38:00.941]     ...future.result
  [07:38:00.941] }
  [07:38:00.947] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:00.959] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:00.960] - Validating connection of ClusterFuture
  [07:38:00.960] - received message: FutureResult
  [07:38:00.960] - Received FutureResult
  [07:38:00.961] - Erased future from FutureRegistry
  [07:38:00.961] result() for ClusterFuture ...
  [07:38:00.962] - result already collected: FutureResult
  [07:38:00.962] result() for ClusterFuture ... done
  [07:38:00.962] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:00.963] result() for ClusterFuture ...
  [07:38:00.963] - result already collected: FutureResult
  [07:38:00.964] result() for ClusterFuture ... done
  [07:38:00.964] result() for ClusterFuture ...
  [07:38:00.964] - result already collected: FutureResult
  [07:38:00.965] result() for ClusterFuture ... done
  [07:38:00.980] ClusterFuture started
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d61084e0> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6465f18> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d61084e0> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6465f18> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 2 3
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
  [07:38:01.027] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:01.028] - Validating connection of ClusterFuture
  [07:38:01.028] - received message: FutureResult
  [07:38:01.029] - Received FutureResult
  [07:38:01.029] - Erased future from FutureRegistry
  [07:38:01.030] result() for ClusterFuture ...
  [07:38:01.030] - result already collected: FutureResult
  [07:38:01.030] result() for ClusterFuture ... done
  [07:38:01.031] receiveMessageFromWorker() for ClusterFuture ... done
   logi [1:2, 1:3] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:38:01.036] resolve() on list ...
  [07:38:01.036]  recursive: 0
  [07:38:01.037]  length: 6
  [07:38:01.037]  elements: 'a', 'b', 'c', '', '', ''
  [07:38:01.037] signalConditionsASAP(numeric, pos=1) ...
  [07:38:01.038] - nx: 6
  [07:38:01.038] - relay: TRUE
  [07:38:01.038] - stdout: TRUE
  [07:38:01.039] - signal: TRUE
  [07:38:01.039] - resignal: FALSE
  [07:38:01.039] - force: TRUE
  [07:38:01.040] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.040] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.040]  - until=2
  [07:38:01.041]  - relaying element #2
  [07:38:01.041] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.041] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.042] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:01.042]  length: 5 (resolved future 1)
  [07:38:01.042] Future #2
  [07:38:01.043] result() for ClusterFuture ...
  [07:38:01.043] - result already collected: FutureResult
  [07:38:01.043] result() for ClusterFuture ... done
  [07:38:01.044] result() for ClusterFuture ...
  [07:38:01.044] - result already collected: FutureResult
  [07:38:01.044] result() for ClusterFuture ... done
  [07:38:01.045] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:01.045] - nx: 6
  [07:38:01.045] - relay: TRUE
  [07:38:01.046] - stdout: TRUE
  [07:38:01.046] - signal: TRUE
  [07:38:01.046] - resignal: FALSE
  [07:38:01.047] - force: TRUE
  [07:38:01.047] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.047] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.048]  - until=2
  [07:38:01.048]  - relaying element #2
  [07:38:01.048] result() for ClusterFuture ...
  [07:38:01.049] - result already collected: FutureResult
  [07:38:01.049] result() for ClusterFuture ... done
  [07:38:01.049] result() for ClusterFuture ...
  [07:38:01.050] - result already collected: FutureResult
  [07:38:01.050] result() for ClusterFuture ... done
  [07:38:01.051] result() for ClusterFuture ...
  [07:38:01.051] - result already collected: FutureResult
  [07:38:01.051] result() for ClusterFuture ... done
  [07:38:01.052] result() for ClusterFuture ...
  [07:38:01.052] - result already collected: FutureResult
  [07:38:01.052] result() for ClusterFuture ... done
  [07:38:01.053] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.053] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.053] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:01.054]  length: 4 (resolved future 2)
  [07:38:01.054] Future #3
  [07:38:01.070] result() for ClusterFuture ...
  [07:38:01.071] - result already collected: FutureResult
  [07:38:01.071] result() for ClusterFuture ... done
  [07:38:01.072] result() for ClusterFuture ...
  [07:38:01.072] - result already collected: FutureResult
  [07:38:01.072] result() for ClusterFuture ... done
  [07:38:01.073] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:01.073] - nx: 6
  [07:38:01.073] - relay: TRUE
  [07:38:01.074] - stdout: TRUE
  [07:38:01.074] - signal: TRUE
  [07:38:01.074] - resignal: FALSE
  [07:38:01.074] - force: TRUE
  [07:38:01.075] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.075] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.076]  - until=3
  [07:38:01.076]  - relaying element #3
  [07:38:01.076] result() for ClusterFuture ...
  [07:38:01.077] - result already collected: FutureResult
  [07:38:01.077] result() for ClusterFuture ... done
  [07:38:01.077] result() for ClusterFuture ...
  [07:38:01.078] - result already collected: FutureResult
  [07:38:01.078] result() for ClusterFuture ... done
  [07:38:01.082] result() for ClusterFuture ...
  [07:38:01.082] - result already collected: FutureResult
  [07:38:01.083] result() for ClusterFuture ... done
  [07:38:01.083] result() for ClusterFuture ...
  [07:38:01.083] - result already collected: FutureResult
  [07:38:01.084] result() for ClusterFuture ... done
  [07:38:01.084] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.084] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.085] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:01.085]  length: 3 (resolved future 3)
  [07:38:01.086] signalConditionsASAP(NULL, pos=4) ...
  [07:38:01.086] - nx: 6
  [07:38:01.086] - relay: TRUE
  [07:38:01.097] - stdout: TRUE
  [07:38:01.098] - signal: TRUE
  [07:38:01.098] - resignal: FALSE
  [07:38:01.098] - force: TRUE
  [07:38:01.099] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.099] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.099]  - until=5
  [07:38:01.100]  - relaying element #5
  [07:38:01.100] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:01.100] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.101] signalConditionsASAP(NULL, pos=4) ... done
  [07:38:01.101]  length: 2 (resolved future 4)
  [07:38:01.101] signalConditionsASAP(NULL, pos=5) ...
  [07:38:01.102] - nx: 6
  [07:38:01.102] - relay: TRUE
  [07:38:01.102] - stdout: TRUE
  [07:38:01.103] - signal: TRUE
  [07:38:01.103] - resignal: FALSE
  [07:38:01.103] - force: TRUE
  [07:38:01.104] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:01.104] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.104]  - until=6
  [07:38:01.105]  - relaying element #6
  [07:38:01.105] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:01.105] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.106] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:01.106]  length: 1 (resolved future 5)
  [07:38:01.106] signalConditionsASAP(numeric, pos=6) ...
  [07:38:01.107] - nx: 6
  [07:38:01.107] - relay: TRUE
  [07:38:01.107] - stdout: TRUE
  [07:38:01.108] - signal: TRUE
  [07:38:01.108] - resignal: FALSE
  [07:38:01.108] - force: TRUE
  [07:38:01.109] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:01.109] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.109]  - until=6
  [07:38:01.110] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.110] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.110] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:01.111]  length: 0 (resolved future 6)
  [07:38:01.111] Relaying remaining futures
  [07:38:01.111] signalConditionsASAP(NULL, pos=0) ...
  [07:38:01.112] - nx: 6
  [07:38:01.112] - relay: TRUE
  [07:38:01.112] - stdout: TRUE
  [07:38:01.113] - signal: TRUE
  [07:38:01.113] - resignal: FALSE
  [07:38:01.113] - force: TRUE
  [07:38:01.114] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.114] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:38:01.115] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.115] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.115] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:01.116] resolve() on list ... DONE
  [07:38:01.116] result() for ClusterFuture ...
  [07:38:01.116] - result already collected: FutureResult
  [07:38:01.117] result() for ClusterFuture ... done
  [07:38:01.117] result() for ClusterFuture ...
  [07:38:01.117] - result already collected: FutureResult
  [07:38:01.118] result() for ClusterFuture ... done
  [07:38:01.118] result() for ClusterFuture ...
  [07:38:01.118] - result already collected: FutureResult
  [07:38:01.119] result() for ClusterFuture ... done
  [07:38:01.119] result() for ClusterFuture ...
  [07:38:01.119] - result already collected: FutureResult
  [07:38:01.120] result() for ClusterFuture ... done
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:2] 2 3
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
  Dimensions: c(2, 3, 1)
  [07:38:01.148] getGlobalsAndPackages() ...
  [07:38:01.148] Searching for globals...
  [07:38:01.149] 
  [07:38:01.150] Searching for globals ... DONE
  [07:38:01.150] - globals: [0] <none>
  [07:38:01.150] getGlobalsAndPackages() ... DONE
  [07:38:01.156] Packages needed by the future expression (n = 0): <none>
  [07:38:01.156] Packages needed by future strategies (n = 0): <none>
  [07:38:01.166] {
  [07:38:01.166]     {
  [07:38:01.166]         ...future.startTime <- base::Sys.time()
  [07:38:01.166]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.166]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.166]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.166]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.166]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.166]         {
  [07:38:01.166]             {
  [07:38:01.166]                 base::local({
  [07:38:01.166]                   has_future <- base::requireNamespace("future", 
  [07:38:01.166]                     quietly = TRUE)
  [07:38:01.166]                   version <- if (has_future) 
  [07:38:01.166]                     utils::packageVersion("future")
  [07:38:01.166]                   else NULL
  [07:38:01.166]                   if (!has_future || version < "1.8.0") {
  [07:38:01.166]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.166]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.166]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.166]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.166]                         "release", "version")], collapse = " "), 
  [07:38:01.166]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.166]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.166]                       info)
  [07:38:01.166]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.166]                     if (!has_future) {
  [07:38:01.166]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.166]                         info)
  [07:38:01.166]                     }
  [07:38:01.166]                     else {
  [07:38:01.166]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.166]                         info, version)
  [07:38:01.166]                     }
  [07:38:01.166]                     base::stop(msg)
  [07:38:01.166]                   }
  [07:38:01.166]                 })
  [07:38:01.166]             }
  [07:38:01.166]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.166]         }
  [07:38:01.166]     }
  [07:38:01.166]     if (base::is.na(TRUE)) {
  [07:38:01.166]     }
  [07:38:01.166]     else {
  [07:38:01.166]         if (TRUE) {
  [07:38:01.166]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.166]                 open = "w")
  [07:38:01.166]         }
  [07:38:01.166]         else {
  [07:38:01.166]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.166]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.166]         }
  [07:38:01.166]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.166]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.166]             base::sink(type = "output", split = FALSE)
  [07:38:01.166]             base::close(...future.stdout)
  [07:38:01.166]         }, add = TRUE)
  [07:38:01.166]     }
  [07:38:01.166]     ...future.frame <- base::sys.nframe()
  [07:38:01.166]     ...future.conditions <- base::list()
  [07:38:01.166]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.166]     ...future.result <- base::tryCatch({
  [07:38:01.166]         base::withCallingHandlers({
  [07:38:01.166]             ...future.value <- base::withVisible(base::local({
  [07:38:01.166]                 ...future.sendCondition <- local({
  [07:38:01.166]                   sendCondition <- NULL
  [07:38:01.166]                   function(frame = 1L) {
  [07:38:01.166]                     if (is.function(sendCondition)) 
  [07:38:01.166]                       return(sendCondition)
  [07:38:01.166]                     ns <- getNamespace("parallel")
  [07:38:01.166]                     if (exists("sendData", mode = "function", 
  [07:38:01.166]                       envir = ns)) {
  [07:38:01.166]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:01.166]                         envir = ns)
  [07:38:01.166]                       envir <- sys.frame(frame)
  [07:38:01.166]                       master <- NULL
  [07:38:01.166]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:01.166]                         !identical(envir, emptyenv())) {
  [07:38:01.166]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:01.166]                           inherits = FALSE)) {
  [07:38:01.166]                           master <- get("master", mode = "list", 
  [07:38:01.166]                             envir = envir, inherits = FALSE)
  [07:38:01.166]                           if (inherits(master, "SOCKnode")) {
  [07:38:01.166]                             sendCondition <<- function(cond) {
  [07:38:01.166]                               data <- list(type = "VALUE", value = cond, 
  [07:38:01.166]                                 success = TRUE)
  [07:38:01.166]                               parallel_sendData(master, data)
  [07:38:01.166]                             }
  [07:38:01.166]                             return(sendCondition)
  [07:38:01.166]                           }
  [07:38:01.166]                         }
  [07:38:01.166]                         frame <- frame + 1L
  [07:38:01.166]                         envir <- sys.frame(frame)
  [07:38:01.166]                       }
  [07:38:01.166]                     }
  [07:38:01.166]                     sendCondition <<- function(cond) NULL
  [07:38:01.166]                   }
  [07:38:01.166]                 })
  [07:38:01.166]                 withCallingHandlers({
  [07:38:01.166]                   2
  [07:38:01.166]                 }, immediateCondition = function(cond) {
  [07:38:01.166]                   sendCondition <- ...future.sendCondition()
  [07:38:01.166]                   sendCondition(cond)
  [07:38:01.166]                   muffleCondition <- function (cond) 
  [07:38:01.166]                   {
  [07:38:01.166]                     inherits <- base::inherits
  [07:38:01.166]                     invokeRestart <- base::invokeRestart
  [07:38:01.166]                     muffled <- FALSE
  [07:38:01.166]                     if (inherits(cond, "message")) {
  [07:38:01.166]                       invokeRestart("muffleMessage")
  [07:38:01.166]                       muffled <- TRUE
  [07:38:01.166]                     }
  [07:38:01.166]                     else if (inherits(cond, "warning")) {
  [07:38:01.166]                       invokeRestart("muffleWarning")
  [07:38:01.166]                       muffled <- TRUE
  [07:38:01.166]                     }
  [07:38:01.166]                     else if (inherits(cond, "condition")) {
  [07:38:01.166]                       computeRestarts <- base::computeRestarts
  [07:38:01.166]                       grepl <- base::grepl
  [07:38:01.166]                       is.null <- base::is.null
  [07:38:01.166]                       restarts <- computeRestarts(cond)
  [07:38:01.166]                       for (restart in restarts) {
  [07:38:01.166]                         name <- restart$name
  [07:38:01.166]                         if (is.null(name)) 
  [07:38:01.166]                           next
  [07:38:01.166]                         if (!grepl("^muffle", name)) 
  [07:38:01.166]                           next
  [07:38:01.166]                         invokeRestart(restart)
  [07:38:01.166]                         muffled <- TRUE
  [07:38:01.166]                         break
  [07:38:01.166]                       }
  [07:38:01.166]                     }
  [07:38:01.166]                     invisible(muffled)
  [07:38:01.166]                   }
  [07:38:01.166]                   muffleCondition(cond)
  [07:38:01.166]                 })
  [07:38:01.166]             }))
  [07:38:01.166]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.166]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.166]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.166]                 version = "1.8")
  [07:38:01.166]         }, condition = base::local({
  [07:38:01.166]             c <- base::c
  [07:38:01.166]             inherits <- base::inherits
  [07:38:01.166]             invokeRestart <- base::invokeRestart
  [07:38:01.166]             length <- base::length
  [07:38:01.166]             list <- base::list
  [07:38:01.166]             seq.int <- base::seq.int
  [07:38:01.166]             signalCondition <- base::signalCondition
  [07:38:01.166]             sys.calls <- base::sys.calls
  [07:38:01.166]             Sys.time <- base::Sys.time
  [07:38:01.166]             `[[` <- base::`[[`
  [07:38:01.166]             `+` <- base::`+`
  [07:38:01.166]             `<<-` <- base::`<<-`
  [07:38:01.166]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.166]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.166]                   3L)]
  [07:38:01.166]             }
  [07:38:01.166]             function(cond) {
  [07:38:01.166]                 if (inherits(cond, "error")) {
  [07:38:01.166]                   sessionInformation <- function() {
  [07:38:01.166]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.166]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.166]                       search = base::search(), system = base::Sys.info())
  [07:38:01.166]                   }
  [07:38:01.166]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.166]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.166]                     cond$call), session = sessionInformation(), 
  [07:38:01.166]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.166]                   signalCondition(cond)
  [07:38:01.166]                 }
  [07:38:01.166]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.166]                 ))) {
  [07:38:01.166]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.166]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.166]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.166]                   if (!signal) {
  [07:38:01.166]                     muffleCondition <- function (cond) 
  [07:38:01.166]                     {
  [07:38:01.166]                       inherits <- base::inherits
  [07:38:01.166]                       invokeRestart <- base::invokeRestart
  [07:38:01.166]                       muffled <- FALSE
  [07:38:01.166]                       if (inherits(cond, "message")) {
  [07:38:01.166]                         invokeRestart("muffleMessage")
  [07:38:01.166]                         muffled <- TRUE
  [07:38:01.166]                       }
  [07:38:01.166]                       else if (inherits(cond, "warning")) {
  [07:38:01.166]                         invokeRestart("muffleWarning")
  [07:38:01.166]                         muffled <- TRUE
  [07:38:01.166]                       }
  [07:38:01.166]                       else if (inherits(cond, "condition")) {
  [07:38:01.166]                         computeRestarts <- base::computeRestarts
  [07:38:01.166]                         grepl <- base::grepl
  [07:38:01.166]                         is.null <- base::is.null
  [07:38:01.166]                         restarts <- computeRestarts(cond)
  [07:38:01.166]                         for (restart in restarts) {
  [07:38:01.166]                           name <- restart$name
  [07:38:01.166]                           if (is.null(name)) 
  [07:38:01.166]                             next
  [07:38:01.166]                           if (!grepl("^muffle", name)) 
  [07:38:01.166]                             next
  [07:38:01.166]                           invokeRestart(restart)
  [07:38:01.166]                           muffled <- TRUE
  [07:38:01.166]                           break
  [07:38:01.166]                         }
  [07:38:01.166]                       }
  [07:38:01.166]                       invisible(muffled)
  [07:38:01.166]                     }
  [07:38:01.166]                     muffleCondition(cond)
  [07:38:01.166]                   }
  [07:38:01.166]                 }
  [07:38:01.166]             }
  [07:38:01.166]         }))
  [07:38:01.166]     }, error = function(ex) {
  [07:38:01.166]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.166]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.166]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.166]     }, finally = {
  [07:38:01.166]         {
  [07:38:01.166]             NULL
  [07:38:01.166]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.166]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.166]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:01.166]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:01.166]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:01.166]                 ...) 
  [07:38:01.166]             {
  [07:38:01.166]                 if (substitute) 
  [07:38:01.166]                   expr <- substitute(expr)
  [07:38:01.166]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:01.166]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.166]                   globals = globals, persistent = persistent, 
  [07:38:01.166]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:01.166]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:01.166]                   label = label, ...)
  [07:38:01.166]                 if (!future$lazy) 
  [07:38:01.166]                   future <- run(future)
  [07:38:01.166]                 invisible(future)
  [07:38:01.166]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.166]         }
  [07:38:01.166]         base::options(...future.oldOptions)
  [07:38:01.166]     })
  [07:38:01.166]     Sys.time
  [07:38:01.166]     if (base::is.na(TRUE)) {
  [07:38:01.166]     }
  [07:38:01.166]     else {
  [07:38:01.166]         base::sink(type = "output", split = FALSE)
  [07:38:01.166]         if (TRUE) {
  [07:38:01.166]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.166]         }
  [07:38:01.166]         else {
  [07:38:01.166]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.166]         }
  [07:38:01.166]         base::close(...future.stdout)
  [07:38:01.166]         ...future.stdout <- NULL
  [07:38:01.166]     }
  [07:38:01.166]     ...future.result$conditions <- ...future.conditions
  [07:38:01.166]     ...future.result
  [07:38:01.166] }
  [07:38:01.173] ClusterFuture started
  [07:38:01.174] getGlobalsAndPackages() ...
  [07:38:01.174] Searching for globals...
  [07:38:01.175] 
  [07:38:01.176] Searching for globals ... DONE
  [07:38:01.176] - globals: [0] <none>
  [07:38:01.176] getGlobalsAndPackages() ... DONE
  [07:38:01.182] Packages needed by the future expression (n = 0): <none>
  [07:38:01.183] Packages needed by future strategies (n = 0): <none>
  [07:38:01.193] {
  [07:38:01.193]     {
  [07:38:01.193]         ...future.startTime <- base::Sys.time()
  [07:38:01.193]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.193]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.193]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.193]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.193]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.193]         {
  [07:38:01.193]             {
  [07:38:01.193]                 base::local({
  [07:38:01.193]                   has_future <- base::requireNamespace("future", 
  [07:38:01.193]                     quietly = TRUE)
  [07:38:01.193]                   version <- if (has_future) 
  [07:38:01.193]                     utils::packageVersion("future")
  [07:38:01.193]                   else NULL
  [07:38:01.193]                   if (!has_future || version < "1.8.0") {
  [07:38:01.193]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.193]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.193]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.193]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.193]                         "release", "version")], collapse = " "), 
  [07:38:01.193]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.193]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.193]                       info)
  [07:38:01.193]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.193]                     if (!has_future) {
  [07:38:01.193]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.193]                         info)
  [07:38:01.193]                     }
  [07:38:01.193]                     else {
  [07:38:01.193]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.193]                         info, version)
  [07:38:01.193]                     }
  [07:38:01.193]                     base::stop(msg)
  [07:38:01.193]                   }
  [07:38:01.193]                 })
  [07:38:01.193]             }
  [07:38:01.193]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.193]         }
  [07:38:01.193]     }
  [07:38:01.193]     if (base::is.na(TRUE)) {
  [07:38:01.193]     }
  [07:38:01.193]     else {
  [07:38:01.193]         if (TRUE) {
  [07:38:01.193]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.193]                 open = "w")
  [07:38:01.193]         }
  [07:38:01.193]         else {
  [07:38:01.193]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.193]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.193]         }
  [07:38:01.193]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.193]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.193]             base::sink(type = "output", split = FALSE)
  [07:38:01.193]             base::close(...future.stdout)
  [07:38:01.193]         }, add = TRUE)
  [07:38:01.193]     }
  [07:38:01.193]     ...future.frame <- base::sys.nframe()
  [07:38:01.193]     ...future.conditions <- base::list()
  [07:38:01.193]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.193]     ...future.result <- base::tryCatch({
  [07:38:01.193]         base::withCallingHandlers({
  [07:38:01.193]             ...future.value <- base::withVisible(base::local({
  [07:38:01.193]                 ...future.sendCondition <- local({
  [07:38:01.193]                   sendCondition <- NULL
  [07:38:01.193]                   function(frame = 1L) {
  [07:38:01.193]                     if (is.function(sendCondition)) 
  [07:38:01.193]                       return(sendCondition)
  [07:38:01.193]                     ns <- getNamespace("parallel")
  [07:38:01.193]                     if (exists("sendData", mode = "function", 
  [07:38:01.193]                       envir = ns)) {
  [07:38:01.193]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:01.193]                         envir = ns)
  [07:38:01.193]                       envir <- sys.frame(frame)
  [07:38:01.193]                       master <- NULL
  [07:38:01.193]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:01.193]                         !identical(envir, emptyenv())) {
  [07:38:01.193]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:01.193]                           inherits = FALSE)) {
  [07:38:01.193]                           master <- get("master", mode = "list", 
  [07:38:01.193]                             envir = envir, inherits = FALSE)
  [07:38:01.193]                           if (inherits(master, "SOCKnode")) {
  [07:38:01.193]                             sendCondition <<- function(cond) {
  [07:38:01.193]                               data <- list(type = "VALUE", value = cond, 
  [07:38:01.193]                                 success = TRUE)
  [07:38:01.193]                               parallel_sendData(master, data)
  [07:38:01.193]                             }
  [07:38:01.193]                             return(sendCondition)
  [07:38:01.193]                           }
  [07:38:01.193]                         }
  [07:38:01.193]                         frame <- frame + 1L
  [07:38:01.193]                         envir <- sys.frame(frame)
  [07:38:01.193]                       }
  [07:38:01.193]                     }
  [07:38:01.193]                     sendCondition <<- function(cond) NULL
  [07:38:01.193]                   }
  [07:38:01.193]                 })
  [07:38:01.193]                 withCallingHandlers({
  [07:38:01.193]                   NULL
  [07:38:01.193]                 }, immediateCondition = function(cond) {
  [07:38:01.193]                   sendCondition <- ...future.sendCondition()
  [07:38:01.193]                   sendCondition(cond)
  [07:38:01.193]                   muffleCondition <- function (cond) 
  [07:38:01.193]                   {
  [07:38:01.193]                     inherits <- base::inherits
  [07:38:01.193]                     invokeRestart <- base::invokeRestart
  [07:38:01.193]                     muffled <- FALSE
  [07:38:01.193]                     if (inherits(cond, "message")) {
  [07:38:01.193]                       invokeRestart("muffleMessage")
  [07:38:01.193]                       muffled <- TRUE
  [07:38:01.193]                     }
  [07:38:01.193]                     else if (inherits(cond, "warning")) {
  [07:38:01.193]                       invokeRestart("muffleWarning")
  [07:38:01.193]                       muffled <- TRUE
  [07:38:01.193]                     }
  [07:38:01.193]                     else if (inherits(cond, "condition")) {
  [07:38:01.193]                       computeRestarts <- base::computeRestarts
  [07:38:01.193]                       grepl <- base::grepl
  [07:38:01.193]                       is.null <- base::is.null
  [07:38:01.193]                       restarts <- computeRestarts(cond)
  [07:38:01.193]                       for (restart in restarts) {
  [07:38:01.193]                         name <- restart$name
  [07:38:01.193]                         if (is.null(name)) 
  [07:38:01.193]                           next
  [07:38:01.193]                         if (!grepl("^muffle", name)) 
  [07:38:01.193]                           next
  [07:38:01.193]                         invokeRestart(restart)
  [07:38:01.193]                         muffled <- TRUE
  [07:38:01.193]                         break
  [07:38:01.193]                       }
  [07:38:01.193]                     }
  [07:38:01.193]                     invisible(muffled)
  [07:38:01.193]                   }
  [07:38:01.193]                   muffleCondition(cond)
  [07:38:01.193]                 })
  [07:38:01.193]             }))
  [07:38:01.193]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.193]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.193]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.193]                 version = "1.8")
  [07:38:01.193]         }, condition = base::local({
  [07:38:01.193]             c <- base::c
  [07:38:01.193]             inherits <- base::inherits
  [07:38:01.193]             invokeRestart <- base::invokeRestart
  [07:38:01.193]             length <- base::length
  [07:38:01.193]             list <- base::list
  [07:38:01.193]             seq.int <- base::seq.int
  [07:38:01.193]             signalCondition <- base::signalCondition
  [07:38:01.193]             sys.calls <- base::sys.calls
  [07:38:01.193]             Sys.time <- base::Sys.time
  [07:38:01.193]             `[[` <- base::`[[`
  [07:38:01.193]             `+` <- base::`+`
  [07:38:01.193]             `<<-` <- base::`<<-`
  [07:38:01.193]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.193]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.193]                   3L)]
  [07:38:01.193]             }
  [07:38:01.193]             function(cond) {
  [07:38:01.193]                 if (inherits(cond, "error")) {
  [07:38:01.193]                   sessionInformation <- function() {
  [07:38:01.193]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.193]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.193]                       search = base::search(), system = base::Sys.info())
  [07:38:01.193]                   }
  [07:38:01.193]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.193]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.193]                     cond$call), session = sessionInformation(), 
  [07:38:01.193]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.193]                   signalCondition(cond)
  [07:38:01.193]                 }
  [07:38:01.193]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.193]                 ))) {
  [07:38:01.193]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.193]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.193]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.193]                   if (!signal) {
  [07:38:01.193]                     muffleCondition <- function (cond) 
  [07:38:01.193]                     {
  [07:38:01.193]                       inherits <- base::inherits
  [07:38:01.193]                       invokeRestart <- base::invokeRestart
  [07:38:01.193]                       muffled <- FALSE
  [07:38:01.193]                       if (inherits(cond, "message")) {
  [07:38:01.193]                         invokeRestart("muffleMessage")
  [07:38:01.193]                         muffled <- TRUE
  [07:38:01.193]                       }
  [07:38:01.193]                       else if (inherits(cond, "warning")) {
  [07:38:01.193]                         invokeRestart("muffleWarning")
  [07:38:01.193]                         muffled <- TRUE
  [07:38:01.193]                       }
  [07:38:01.193]                       else if (inherits(cond, "condition")) {
  [07:38:01.193]                         computeRestarts <- base::computeRestarts
  [07:38:01.193]                         grepl <- base::grepl
  [07:38:01.193]                         is.null <- base::is.null
  [07:38:01.193]                         restarts <- computeRestarts(cond)
  [07:38:01.193]                         for (restart in restarts) {
  [07:38:01.193]                           name <- restart$name
  [07:38:01.193]                           if (is.null(name)) 
  [07:38:01.193]                             next
  [07:38:01.193]                           if (!grepl("^muffle", name)) 
  [07:38:01.193]                             next
  [07:38:01.193]                           invokeRestart(restart)
  [07:38:01.193]                           muffled <- TRUE
  [07:38:01.193]                           break
  [07:38:01.193]                         }
  [07:38:01.193]                       }
  [07:38:01.193]                       invisible(muffled)
  [07:38:01.193]                     }
  [07:38:01.193]                     muffleCondition(cond)
  [07:38:01.193]                   }
  [07:38:01.193]                 }
  [07:38:01.193]             }
  [07:38:01.193]         }))
  [07:38:01.193]     }, error = function(ex) {
  [07:38:01.193]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.193]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.193]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.193]     }, finally = {
  [07:38:01.193]         {
  [07:38:01.193]             NULL
  [07:38:01.193]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.193]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.193]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:01.193]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:01.193]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:01.193]                 ...) 
  [07:38:01.193]             {
  [07:38:01.193]                 if (substitute) 
  [07:38:01.193]                   expr <- substitute(expr)
  [07:38:01.193]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:01.193]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.193]                   globals = globals, persistent = persistent, 
  [07:38:01.193]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:01.193]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:01.193]                   label = label, ...)
  [07:38:01.193]                 if (!future$lazy) 
  [07:38:01.193]                   future <- run(future)
  [07:38:01.193]                 invisible(future)
  [07:38:01.193]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.193]         }
  [07:38:01.193]         base::options(...future.oldOptions)
  [07:38:01.193]     })
  [07:38:01.193]     Sys.time
  [07:38:01.193]     if (base::is.na(TRUE)) {
  [07:38:01.193]     }
  [07:38:01.193]     else {
  [07:38:01.193]         base::sink(type = "output", split = FALSE)
  [07:38:01.193]         if (TRUE) {
  [07:38:01.193]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.193]         }
  [07:38:01.193]         else {
  [07:38:01.193]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.193]         }
  [07:38:01.193]         base::close(...future.stdout)
  [07:38:01.193]         ...future.stdout <- NULL
  [07:38:01.193]     }
  [07:38:01.193]     ...future.result$conditions <- ...future.conditions
  [07:38:01.193]     ...future.result
  [07:38:01.193] }
  [07:38:01.199] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:01.220] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:01.220] - Validating connection of ClusterFuture
  [07:38:01.221] - received message: FutureResult
  [07:38:01.221] - Received FutureResult
  [07:38:01.222] - Erased future from FutureRegistry
  [07:38:01.222] result() for ClusterFuture ...
  [07:38:01.223] - result already collected: FutureResult
  [07:38:01.223] result() for ClusterFuture ... done
  [07:38:01.223] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:01.224] result() for ClusterFuture ...
  [07:38:01.224] - result already collected: FutureResult
  [07:38:01.225] result() for ClusterFuture ... done
  [07:38:01.225] result() for ClusterFuture ...
  [07:38:01.225] - result already collected: FutureResult
  [07:38:01.226] result() for ClusterFuture ... done
  [07:38:01.228] ClusterFuture started
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d5f578f8> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6295370> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d5f578f8> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d6295370> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:3] 2 3 1
   - attr(*, "dimnames")=List of 3
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
  [07:38:01.290] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:01.291] - Validating connection of ClusterFuture
  [07:38:01.292] - received message: FutureResult
  [07:38:01.292] - Received FutureResult
  [07:38:01.292] - Erased future from FutureRegistry
  [07:38:01.293] result() for ClusterFuture ...
  [07:38:01.293] - result already collected: FutureResult
  [07:38:01.294] result() for ClusterFuture ... done
  [07:38:01.294] receiveMessageFromWorker() for ClusterFuture ... done
   logi [1:2, 1:3, 1] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 3
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:38:01.301] resolve() on list ...
  [07:38:01.302]  recursive: 0
  [07:38:01.302]  length: 6
  [07:38:01.316]  elements: 'a', 'b', 'c', '', '', ''
  [07:38:01.316] signalConditionsASAP(numeric, pos=1) ...
  [07:38:01.316] - nx: 6
  [07:38:01.317] - relay: TRUE
  [07:38:01.317] - stdout: TRUE
  [07:38:01.317] - signal: TRUE
  [07:38:01.317] - resignal: FALSE
  [07:38:01.318] - force: TRUE
  [07:38:01.318] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.318] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.319]  - until=2
  [07:38:01.319]  - relaying element #2
  [07:38:01.319] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.320] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.320] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:01.320]  length: 5 (resolved future 1)
  [07:38:01.321] Future #2
  [07:38:01.321] result() for ClusterFuture ...
  [07:38:01.321] - result already collected: FutureResult
  [07:38:01.321] result() for ClusterFuture ... done
  [07:38:01.322] result() for ClusterFuture ...
  [07:38:01.322] - result already collected: FutureResult
  [07:38:01.322] result() for ClusterFuture ... done
  [07:38:01.323] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:01.323] - nx: 6
  [07:38:01.323] - relay: TRUE
  [07:38:01.324] - stdout: TRUE
  [07:38:01.324] - signal: TRUE
  [07:38:01.324] - resignal: FALSE
  [07:38:01.324] - force: TRUE
  [07:38:01.325] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.325] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.326]  - until=2
  [07:38:01.326]  - relaying element #2
  [07:38:01.326] result() for ClusterFuture ...
  [07:38:01.327] - result already collected: FutureResult
  [07:38:01.327] result() for ClusterFuture ... done
  [07:38:01.327] result() for ClusterFuture ...
  [07:38:01.328] - result already collected: FutureResult
  [07:38:01.328] result() for ClusterFuture ... done
  [07:38:01.328] result() for ClusterFuture ...
  [07:38:01.329] - result already collected: FutureResult
  [07:38:01.329] result() for ClusterFuture ... done
  [07:38:01.329] result() for ClusterFuture ...
  [07:38:01.330] - result already collected: FutureResult
  [07:38:01.330] result() for ClusterFuture ... done
  [07:38:01.347] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.347] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.347] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:01.348]  length: 4 (resolved future 2)
  [07:38:01.348] Future #3
  [07:38:01.349] result() for ClusterFuture ...
  [07:38:01.349] - result already collected: FutureResult
  [07:38:01.349] result() for ClusterFuture ... done
  [07:38:01.350] result() for ClusterFuture ...
  [07:38:01.350] - result already collected: FutureResult
  [07:38:01.350] result() for ClusterFuture ... done
  [07:38:01.351] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:01.351] - nx: 6
  [07:38:01.351] - relay: TRUE
  [07:38:01.352] - stdout: TRUE
  [07:38:01.352] - signal: TRUE
  [07:38:01.352] - resignal: FALSE
  [07:38:01.353] - force: TRUE
  [07:38:01.353] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.353] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.354]  - until=3
  [07:38:01.354]  - relaying element #3
  [07:38:01.355] result() for ClusterFuture ...
  [07:38:01.355] - result already collected: FutureResult
  [07:38:01.355] result() for ClusterFuture ... done
  [07:38:01.356] result() for ClusterFuture ...
  [07:38:01.356] - result already collected: FutureResult
  [07:38:01.356] result() for ClusterFuture ... done
  [07:38:01.357] result() for ClusterFuture ...
  [07:38:01.357] - result already collected: FutureResult
  [07:38:01.357] result() for ClusterFuture ... done
  [07:38:01.358] result() for ClusterFuture ...
  [07:38:01.358] - result already collected: FutureResult
  [07:38:01.358] result() for ClusterFuture ... done
  [07:38:01.359] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.359] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.360] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:01.360]  length: 3 (resolved future 3)
  [07:38:01.360] signalConditionsASAP(NULL, pos=4) ...
  [07:38:01.361] - nx: 6
  [07:38:01.361] - relay: TRUE
  [07:38:01.361] - stdout: TRUE
  [07:38:01.362] - signal: TRUE
  [07:38:01.362] - resignal: FALSE
  [07:38:01.362] - force: TRUE
  [07:38:01.379] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.379] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.383]  - until=5
  [07:38:01.383]  - relaying element #5
  [07:38:01.384] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:01.384] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.384] signalConditionsASAP(NULL, pos=4) ... done
  [07:38:01.385]  length: 2 (resolved future 4)
  [07:38:01.385] signalConditionsASAP(NULL, pos=5) ...
  [07:38:01.385] - nx: 6
  [07:38:01.386] - relay: TRUE
  [07:38:01.386] - stdout: TRUE
  [07:38:01.386] - signal: TRUE
  [07:38:01.387] - resignal: FALSE
  [07:38:01.387] - force: TRUE
  [07:38:01.387] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:01.387] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.388]  - until=6
  [07:38:01.388]  - relaying element #6
  [07:38:01.389] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:01.389] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.389] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:01.390]  length: 1 (resolved future 5)
  [07:38:01.390] signalConditionsASAP(numeric, pos=6) ...
  [07:38:01.390] - nx: 6
  [07:38:01.391] - relay: TRUE
  [07:38:01.391] - stdout: TRUE
  [07:38:01.391] - signal: TRUE
  [07:38:01.391] - resignal: FALSE
  [07:38:01.392] - force: TRUE
  [07:38:01.392] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:01.392] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.393]  - until=6
  [07:38:01.393] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.393] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.394] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:01.394]  length: 0 (resolved future 6)
  [07:38:01.415] Relaying remaining futures
  [07:38:01.415] signalConditionsASAP(NULL, pos=0) ...
  [07:38:01.415] - nx: 6
  [07:38:01.416] - relay: TRUE
  [07:38:01.416] - stdout: TRUE
  [07:38:01.416] - signal: TRUE
  [07:38:01.417] - resignal: FALSE
  [07:38:01.417] - force: TRUE
  [07:38:01.417] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.418] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:38:01.418] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.419] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.419] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:01.419] resolve() on list ... DONE
  [07:38:01.420] result() for ClusterFuture ...
  [07:38:01.420] - result already collected: FutureResult
  [07:38:01.420] result() for ClusterFuture ... done
  [07:38:01.421] result() for ClusterFuture ...
  [07:38:01.421] - result already collected: FutureResult
  [07:38:01.421] result() for ClusterFuture ... done
  [07:38:01.422] result() for ClusterFuture ...
  [07:38:01.422] - result already collected: FutureResult
  [07:38:01.423] result() for ClusterFuture ... done
  [07:38:01.423] result() for ClusterFuture ...
  [07:38:01.423] - result already collected: FutureResult
  [07:38:01.424] result() for ClusterFuture ... done
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:3] 2 3 1
   - attr(*, "dimnames")=List of 3
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
  Dimensions: c(2, 1, 3, 1)
  [07:38:01.452] getGlobalsAndPackages() ...
  [07:38:01.453] Searching for globals...
  [07:38:01.453] 
  [07:38:01.454] Searching for globals ... DONE
  [07:38:01.454] - globals: [0] <none>
  [07:38:01.454] getGlobalsAndPackages() ... DONE
  [07:38:01.460] Packages needed by the future expression (n = 0): <none>
  [07:38:01.460] Packages needed by future strategies (n = 0): <none>
  [07:38:01.473] {
  [07:38:01.473]     {
  [07:38:01.473]         ...future.startTime <- base::Sys.time()
  [07:38:01.473]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.473]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.473]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.473]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.473]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.473]         {
  [07:38:01.473]             {
  [07:38:01.473]                 base::local({
  [07:38:01.473]                   has_future <- base::requireNamespace("future", 
  [07:38:01.473]                     quietly = TRUE)
  [07:38:01.473]                   version <- if (has_future) 
  [07:38:01.473]                     utils::packageVersion("future")
  [07:38:01.473]                   else NULL
  [07:38:01.473]                   if (!has_future || version < "1.8.0") {
  [07:38:01.473]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.473]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.473]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.473]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.473]                         "release", "version")], collapse = " "), 
  [07:38:01.473]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.473]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.473]                       info)
  [07:38:01.473]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.473]                     if (!has_future) {
  [07:38:01.473]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.473]                         info)
  [07:38:01.473]                     }
  [07:38:01.473]                     else {
  [07:38:01.473]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.473]                         info, version)
  [07:38:01.473]                     }
  [07:38:01.473]                     base::stop(msg)
  [07:38:01.473]                   }
  [07:38:01.473]                 })
  [07:38:01.473]             }
  [07:38:01.473]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.473]         }
  [07:38:01.473]     }
  [07:38:01.473]     if (base::is.na(TRUE)) {
  [07:38:01.473]     }
  [07:38:01.473]     else {
  [07:38:01.473]         if (TRUE) {
  [07:38:01.473]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.473]                 open = "w")
  [07:38:01.473]         }
  [07:38:01.473]         else {
  [07:38:01.473]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.473]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.473]         }
  [07:38:01.473]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.473]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.473]             base::sink(type = "output", split = FALSE)
  [07:38:01.473]             base::close(...future.stdout)
  [07:38:01.473]         }, add = TRUE)
  [07:38:01.473]     }
  [07:38:01.473]     ...future.frame <- base::sys.nframe()
  [07:38:01.473]     ...future.conditions <- base::list()
  [07:38:01.473]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.473]     ...future.result <- base::tryCatch({
  [07:38:01.473]         base::withCallingHandlers({
  [07:38:01.473]             ...future.value <- base::withVisible(base::local({
  [07:38:01.473]                 ...future.sendCondition <- local({
  [07:38:01.473]                   sendCondition <- NULL
  [07:38:01.473]                   function(frame = 1L) {
  [07:38:01.473]                     if (is.function(sendCondition)) 
  [07:38:01.473]                       return(sendCondition)
  [07:38:01.473]                     ns <- getNamespace("parallel")
  [07:38:01.473]                     if (exists("sendData", mode = "function", 
  [07:38:01.473]                       envir = ns)) {
  [07:38:01.473]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:01.473]                         envir = ns)
  [07:38:01.473]                       envir <- sys.frame(frame)
  [07:38:01.473]                       master <- NULL
  [07:38:01.473]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:01.473]                         !identical(envir, emptyenv())) {
  [07:38:01.473]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:01.473]                           inherits = FALSE)) {
  [07:38:01.473]                           master <- get("master", mode = "list", 
  [07:38:01.473]                             envir = envir, inherits = FALSE)
  [07:38:01.473]                           if (inherits(master, "SOCKnode")) {
  [07:38:01.473]                             sendCondition <<- function(cond) {
  [07:38:01.473]                               data <- list(type = "VALUE", value = cond, 
  [07:38:01.473]                                 success = TRUE)
  [07:38:01.473]                               parallel_sendData(master, data)
  [07:38:01.473]                             }
  [07:38:01.473]                             return(sendCondition)
  [07:38:01.473]                           }
  [07:38:01.473]                         }
  [07:38:01.473]                         frame <- frame + 1L
  [07:38:01.473]                         envir <- sys.frame(frame)
  [07:38:01.473]                       }
  [07:38:01.473]                     }
  [07:38:01.473]                     sendCondition <<- function(cond) NULL
  [07:38:01.473]                   }
  [07:38:01.473]                 })
  [07:38:01.473]                 withCallingHandlers({
  [07:38:01.473]                   2
  [07:38:01.473]                 }, immediateCondition = function(cond) {
  [07:38:01.473]                   sendCondition <- ...future.sendCondition()
  [07:38:01.473]                   sendCondition(cond)
  [07:38:01.473]                   muffleCondition <- function (cond) 
  [07:38:01.473]                   {
  [07:38:01.473]                     inherits <- base::inherits
  [07:38:01.473]                     invokeRestart <- base::invokeRestart
  [07:38:01.473]                     muffled <- FALSE
  [07:38:01.473]                     if (inherits(cond, "message")) {
  [07:38:01.473]                       invokeRestart("muffleMessage")
  [07:38:01.473]                       muffled <- TRUE
  [07:38:01.473]                     }
  [07:38:01.473]                     else if (inherits(cond, "warning")) {
  [07:38:01.473]                       invokeRestart("muffleWarning")
  [07:38:01.473]                       muffled <- TRUE
  [07:38:01.473]                     }
  [07:38:01.473]                     else if (inherits(cond, "condition")) {
  [07:38:01.473]                       computeRestarts <- base::computeRestarts
  [07:38:01.473]                       grepl <- base::grepl
  [07:38:01.473]                       is.null <- base::is.null
  [07:38:01.473]                       restarts <- computeRestarts(cond)
  [07:38:01.473]                       for (restart in restarts) {
  [07:38:01.473]                         name <- restart$name
  [07:38:01.473]                         if (is.null(name)) 
  [07:38:01.473]                           next
  [07:38:01.473]                         if (!grepl("^muffle", name)) 
  [07:38:01.473]                           next
  [07:38:01.473]                         invokeRestart(restart)
  [07:38:01.473]                         muffled <- TRUE
  [07:38:01.473]                         break
  [07:38:01.473]                       }
  [07:38:01.473]                     }
  [07:38:01.473]                     invisible(muffled)
  [07:38:01.473]                   }
  [07:38:01.473]                   muffleCondition(cond)
  [07:38:01.473]                 })
  [07:38:01.473]             }))
  [07:38:01.473]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.473]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.473]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.473]                 version = "1.8")
  [07:38:01.473]         }, condition = base::local({
  [07:38:01.473]             c <- base::c
  [07:38:01.473]             inherits <- base::inherits
  [07:38:01.473]             invokeRestart <- base::invokeRestart
  [07:38:01.473]             length <- base::length
  [07:38:01.473]             list <- base::list
  [07:38:01.473]             seq.int <- base::seq.int
  [07:38:01.473]             signalCondition <- base::signalCondition
  [07:38:01.473]             sys.calls <- base::sys.calls
  [07:38:01.473]             Sys.time <- base::Sys.time
  [07:38:01.473]             `[[` <- base::`[[`
  [07:38:01.473]             `+` <- base::`+`
  [07:38:01.473]             `<<-` <- base::`<<-`
  [07:38:01.473]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.473]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.473]                   3L)]
  [07:38:01.473]             }
  [07:38:01.473]             function(cond) {
  [07:38:01.473]                 if (inherits(cond, "error")) {
  [07:38:01.473]                   sessionInformation <- function() {
  [07:38:01.473]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.473]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.473]                       search = base::search(), system = base::Sys.info())
  [07:38:01.473]                   }
  [07:38:01.473]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.473]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.473]                     cond$call), session = sessionInformation(), 
  [07:38:01.473]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.473]                   signalCondition(cond)
  [07:38:01.473]                 }
  [07:38:01.473]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.473]                 ))) {
  [07:38:01.473]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.473]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.473]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.473]                   if (!signal) {
  [07:38:01.473]                     muffleCondition <- function (cond) 
  [07:38:01.473]                     {
  [07:38:01.473]                       inherits <- base::inherits
  [07:38:01.473]                       invokeRestart <- base::invokeRestart
  [07:38:01.473]                       muffled <- FALSE
  [07:38:01.473]                       if (inherits(cond, "message")) {
  [07:38:01.473]                         invokeRestart("muffleMessage")
  [07:38:01.473]                         muffled <- TRUE
  [07:38:01.473]                       }
  [07:38:01.473]                       else if (inherits(cond, "warning")) {
  [07:38:01.473]                         invokeRestart("muffleWarning")
  [07:38:01.473]                         muffled <- TRUE
  [07:38:01.473]                       }
  [07:38:01.473]                       else if (inherits(cond, "condition")) {
  [07:38:01.473]                         computeRestarts <- base::computeRestarts
  [07:38:01.473]                         grepl <- base::grepl
  [07:38:01.473]                         is.null <- base::is.null
  [07:38:01.473]                         restarts <- computeRestarts(cond)
  [07:38:01.473]                         for (restart in restarts) {
  [07:38:01.473]                           name <- restart$name
  [07:38:01.473]                           if (is.null(name)) 
  [07:38:01.473]                             next
  [07:38:01.473]                           if (!grepl("^muffle", name)) 
  [07:38:01.473]                             next
  [07:38:01.473]                           invokeRestart(restart)
  [07:38:01.473]                           muffled <- TRUE
  [07:38:01.473]                           break
  [07:38:01.473]                         }
  [07:38:01.473]                       }
  [07:38:01.473]                       invisible(muffled)
  [07:38:01.473]                     }
  [07:38:01.473]                     muffleCondition(cond)
  [07:38:01.473]                   }
  [07:38:01.473]                 }
  [07:38:01.473]             }
  [07:38:01.473]         }))
  [07:38:01.473]     }, error = function(ex) {
  [07:38:01.473]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.473]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.473]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.473]     }, finally = {
  [07:38:01.473]         {
  [07:38:01.473]             NULL
  [07:38:01.473]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.473]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.473]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:01.473]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:01.473]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:01.473]                 ...) 
  [07:38:01.473]             {
  [07:38:01.473]                 if (substitute) 
  [07:38:01.473]                   expr <- substitute(expr)
  [07:38:01.473]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:01.473]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.473]                   globals = globals, persistent = persistent, 
  [07:38:01.473]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:01.473]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:01.473]                   label = label, ...)
  [07:38:01.473]                 if (!future$lazy) 
  [07:38:01.473]                   future <- run(future)
  [07:38:01.473]                 invisible(future)
  [07:38:01.473]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.473]         }
  [07:38:01.473]         base::options(...future.oldOptions)
  [07:38:01.473]     })
  [07:38:01.473]     Sys.time
  [07:38:01.473]     if (base::is.na(TRUE)) {
  [07:38:01.473]     }
  [07:38:01.473]     else {
  [07:38:01.473]         base::sink(type = "output", split = FALSE)
  [07:38:01.473]         if (TRUE) {
  [07:38:01.473]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.473]         }
  [07:38:01.473]         else {
  [07:38:01.473]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.473]         }
  [07:38:01.473]         base::close(...future.stdout)
  [07:38:01.473]         ...future.stdout <- NULL
  [07:38:01.473]     }
  [07:38:01.473]     ...future.result$conditions <- ...future.conditions
  [07:38:01.473]     ...future.result
  [07:38:01.473] }
  [07:38:01.480] ClusterFuture started
  [07:38:01.481] getGlobalsAndPackages() ...
  [07:38:01.481] Searching for globals...
  [07:38:01.482] 
  [07:38:01.482] Searching for globals ... DONE
  [07:38:01.483] - globals: [0] <none>
  [07:38:01.483] getGlobalsAndPackages() ... DONE
  [07:38:01.489] Packages needed by the future expression (n = 0): <none>
  [07:38:01.489] Packages needed by future strategies (n = 0): <none>
  [07:38:01.497] {
  [07:38:01.497]     {
  [07:38:01.497]         ...future.startTime <- base::Sys.time()
  [07:38:01.497]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.497]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.497]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.497]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.497]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.497]         {
  [07:38:01.497]             {
  [07:38:01.497]                 base::local({
  [07:38:01.497]                   has_future <- base::requireNamespace("future", 
  [07:38:01.497]                     quietly = TRUE)
  [07:38:01.497]                   version <- if (has_future) 
  [07:38:01.497]                     utils::packageVersion("future")
  [07:38:01.497]                   else NULL
  [07:38:01.497]                   if (!has_future || version < "1.8.0") {
  [07:38:01.497]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.497]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.497]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.497]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.497]                         "release", "version")], collapse = " "), 
  [07:38:01.497]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.497]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.497]                       info)
  [07:38:01.497]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.497]                     if (!has_future) {
  [07:38:01.497]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.497]                         info)
  [07:38:01.497]                     }
  [07:38:01.497]                     else {
  [07:38:01.497]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.497]                         info, version)
  [07:38:01.497]                     }
  [07:38:01.497]                     base::stop(msg)
  [07:38:01.497]                   }
  [07:38:01.497]                 })
  [07:38:01.497]             }
  [07:38:01.497]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.497]         }
  [07:38:01.497]     }
  [07:38:01.497]     if (base::is.na(TRUE)) {
  [07:38:01.497]     }
  [07:38:01.497]     else {
  [07:38:01.497]         if (TRUE) {
  [07:38:01.497]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.497]                 open = "w")
  [07:38:01.497]         }
  [07:38:01.497]         else {
  [07:38:01.497]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.497]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.497]         }
  [07:38:01.497]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.497]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.497]             base::sink(type = "output", split = FALSE)
  [07:38:01.497]             base::close(...future.stdout)
  [07:38:01.497]         }, add = TRUE)
  [07:38:01.497]     }
  [07:38:01.497]     ...future.frame <- base::sys.nframe()
  [07:38:01.497]     ...future.conditions <- base::list()
  [07:38:01.497]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.497]     ...future.result <- base::tryCatch({
  [07:38:01.497]         base::withCallingHandlers({
  [07:38:01.497]             ...future.value <- base::withVisible(base::local({
  [07:38:01.497]                 ...future.sendCondition <- local({
  [07:38:01.497]                   sendCondition <- NULL
  [07:38:01.497]                   function(frame = 1L) {
  [07:38:01.497]                     if (is.function(sendCondition)) 
  [07:38:01.497]                       return(sendCondition)
  [07:38:01.497]                     ns <- getNamespace("parallel")
  [07:38:01.497]                     if (exists("sendData", mode = "function", 
  [07:38:01.497]                       envir = ns)) {
  [07:38:01.497]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:01.497]                         envir = ns)
  [07:38:01.497]                       envir <- sys.frame(frame)
  [07:38:01.497]                       master <- NULL
  [07:38:01.497]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:01.497]                         !identical(envir, emptyenv())) {
  [07:38:01.497]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:01.497]                           inherits = FALSE)) {
  [07:38:01.497]                           master <- get("master", mode = "list", 
  [07:38:01.497]                             envir = envir, inherits = FALSE)
  [07:38:01.497]                           if (inherits(master, "SOCKnode")) {
  [07:38:01.497]                             sendCondition <<- function(cond) {
  [07:38:01.497]                               data <- list(type = "VALUE", value = cond, 
  [07:38:01.497]                                 success = TRUE)
  [07:38:01.497]                               parallel_sendData(master, data)
  [07:38:01.497]                             }
  [07:38:01.497]                             return(sendCondition)
  [07:38:01.497]                           }
  [07:38:01.497]                         }
  [07:38:01.497]                         frame <- frame + 1L
  [07:38:01.497]                         envir <- sys.frame(frame)
  [07:38:01.497]                       }
  [07:38:01.497]                     }
  [07:38:01.497]                     sendCondition <<- function(cond) NULL
  [07:38:01.497]                   }
  [07:38:01.497]                 })
  [07:38:01.497]                 withCallingHandlers({
  [07:38:01.497]                   NULL
  [07:38:01.497]                 }, immediateCondition = function(cond) {
  [07:38:01.497]                   sendCondition <- ...future.sendCondition()
  [07:38:01.497]                   sendCondition(cond)
  [07:38:01.497]                   muffleCondition <- function (cond) 
  [07:38:01.497]                   {
  [07:38:01.497]                     inherits <- base::inherits
  [07:38:01.497]                     invokeRestart <- base::invokeRestart
  [07:38:01.497]                     muffled <- FALSE
  [07:38:01.497]                     if (inherits(cond, "message")) {
  [07:38:01.497]                       invokeRestart("muffleMessage")
  [07:38:01.497]                       muffled <- TRUE
  [07:38:01.497]                     }
  [07:38:01.497]                     else if (inherits(cond, "warning")) {
  [07:38:01.497]                       invokeRestart("muffleWarning")
  [07:38:01.497]                       muffled <- TRUE
  [07:38:01.497]                     }
  [07:38:01.497]                     else if (inherits(cond, "condition")) {
  [07:38:01.497]                       computeRestarts <- base::computeRestarts
  [07:38:01.497]                       grepl <- base::grepl
  [07:38:01.497]                       is.null <- base::is.null
  [07:38:01.497]                       restarts <- computeRestarts(cond)
  [07:38:01.497]                       for (restart in restarts) {
  [07:38:01.497]                         name <- restart$name
  [07:38:01.497]                         if (is.null(name)) 
  [07:38:01.497]                           next
  [07:38:01.497]                         if (!grepl("^muffle", name)) 
  [07:38:01.497]                           next
  [07:38:01.497]                         invokeRestart(restart)
  [07:38:01.497]                         muffled <- TRUE
  [07:38:01.497]                         break
  [07:38:01.497]                       }
  [07:38:01.497]                     }
  [07:38:01.497]                     invisible(muffled)
  [07:38:01.497]                   }
  [07:38:01.497]                   muffleCondition(cond)
  [07:38:01.497]                 })
  [07:38:01.497]             }))
  [07:38:01.497]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.497]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.497]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.497]                 version = "1.8")
  [07:38:01.497]         }, condition = base::local({
  [07:38:01.497]             c <- base::c
  [07:38:01.497]             inherits <- base::inherits
  [07:38:01.497]             invokeRestart <- base::invokeRestart
  [07:38:01.497]             length <- base::length
  [07:38:01.497]             list <- base::list
  [07:38:01.497]             seq.int <- base::seq.int
  [07:38:01.497]             signalCondition <- base::signalCondition
  [07:38:01.497]             sys.calls <- base::sys.calls
  [07:38:01.497]             Sys.time <- base::Sys.time
  [07:38:01.497]             `[[` <- base::`[[`
  [07:38:01.497]             `+` <- base::`+`
  [07:38:01.497]             `<<-` <- base::`<<-`
  [07:38:01.497]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.497]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.497]                   3L)]
  [07:38:01.497]             }
  [07:38:01.497]             function(cond) {
  [07:38:01.497]                 if (inherits(cond, "error")) {
  [07:38:01.497]                   sessionInformation <- function() {
  [07:38:01.497]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.497]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.497]                       search = base::search(), system = base::Sys.info())
  [07:38:01.497]                   }
  [07:38:01.497]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.497]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.497]                     cond$call), session = sessionInformation(), 
  [07:38:01.497]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.497]                   signalCondition(cond)
  [07:38:01.497]                 }
  [07:38:01.497]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.497]                 ))) {
  [07:38:01.497]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.497]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.497]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.497]                   if (!signal) {
  [07:38:01.497]                     muffleCondition <- function (cond) 
  [07:38:01.497]                     {
  [07:38:01.497]                       inherits <- base::inherits
  [07:38:01.497]                       invokeRestart <- base::invokeRestart
  [07:38:01.497]                       muffled <- FALSE
  [07:38:01.497]                       if (inherits(cond, "message")) {
  [07:38:01.497]                         invokeRestart("muffleMessage")
  [07:38:01.497]                         muffled <- TRUE
  [07:38:01.497]                       }
  [07:38:01.497]                       else if (inherits(cond, "warning")) {
  [07:38:01.497]                         invokeRestart("muffleWarning")
  [07:38:01.497]                         muffled <- TRUE
  [07:38:01.497]                       }
  [07:38:01.497]                       else if (inherits(cond, "condition")) {
  [07:38:01.497]                         computeRestarts <- base::computeRestarts
  [07:38:01.497]                         grepl <- base::grepl
  [07:38:01.497]                         is.null <- base::is.null
  [07:38:01.497]                         restarts <- computeRestarts(cond)
  [07:38:01.497]                         for (restart in restarts) {
  [07:38:01.497]                           name <- restart$name
  [07:38:01.497]                           if (is.null(name)) 
  [07:38:01.497]                             next
  [07:38:01.497]                           if (!grepl("^muffle", name)) 
  [07:38:01.497]                             next
  [07:38:01.497]                           invokeRestart(restart)
  [07:38:01.497]                           muffled <- TRUE
  [07:38:01.497]                           break
  [07:38:01.497]                         }
  [07:38:01.497]                       }
  [07:38:01.497]                       invisible(muffled)
  [07:38:01.497]                     }
  [07:38:01.497]                     muffleCondition(cond)
  [07:38:01.497]                   }
  [07:38:01.497]                 }
  [07:38:01.497]             }
  [07:38:01.497]         }))
  [07:38:01.497]     }, error = function(ex) {
  [07:38:01.497]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.497]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.497]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.497]     }, finally = {
  [07:38:01.497]         {
  [07:38:01.497]             NULL
  [07:38:01.497]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.497]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.497]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:01.497]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:01.497]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:01.497]                 ...) 
  [07:38:01.497]             {
  [07:38:01.497]                 if (substitute) 
  [07:38:01.497]                   expr <- substitute(expr)
  [07:38:01.497]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:01.497]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.497]                   globals = globals, persistent = persistent, 
  [07:38:01.497]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:01.497]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:01.497]                   label = label, ...)
  [07:38:01.497]                 if (!future$lazy) 
  [07:38:01.497]                   future <- run(future)
  [07:38:01.497]                 invisible(future)
  [07:38:01.497]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.497]         }
  [07:38:01.497]         base::options(...future.oldOptions)
  [07:38:01.497]     })
  [07:38:01.497]     Sys.time
  [07:38:01.497]     if (base::is.na(TRUE)) {
  [07:38:01.497]     }
  [07:38:01.497]     else {
  [07:38:01.497]         base::sink(type = "output", split = FALSE)
  [07:38:01.497]         if (TRUE) {
  [07:38:01.497]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.497]         }
  [07:38:01.497]         else {
  [07:38:01.497]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.497]         }
  [07:38:01.497]         base::close(...future.stdout)
  [07:38:01.497]         ...future.stdout <- NULL
  [07:38:01.497]     }
  [07:38:01.497]     ...future.result$conditions <- ...future.conditions
  [07:38:01.497]     ...future.result
  [07:38:01.497] }
  [07:38:01.502] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:01.528] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:01.528] - Validating connection of ClusterFuture
  [07:38:01.529] - received message: FutureResult
  [07:38:01.529] - Received FutureResult
  [07:38:01.529] - Erased future from FutureRegistry
  [07:38:01.530] result() for ClusterFuture ...
  [07:38:01.530] - result already collected: FutureResult
  [07:38:01.531] result() for ClusterFuture ... done
  [07:38:01.531] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:01.531] result() for ClusterFuture ...
  [07:38:01.532] - result already collected: FutureResult
  [07:38:01.532] result() for ClusterFuture ... done
  [07:38:01.533] result() for ClusterFuture ...
  [07:38:01.533] - result already collected: FutureResult
  [07:38:01.533] result() for ClusterFuture ... done
  [07:38:01.537] ClusterFuture started
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d5e7dcb8> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d61d4a88> 
   $  : NULL
   $  : NULL
   $  : num 6
  List of 6
   $ a: num 1
   $ b:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d5e7dcb8> 
   $ c:Classes 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment' <environment: 0x5576d61d4a88> 
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:4] 2 1 3 1
   - attr(*, "dimnames")=List of 4
    ..$ : chr [1:2] "a" "b"
    ..$ : chr "a"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
  [07:38:01.590] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:01.591] - Validating connection of ClusterFuture
  [07:38:01.591] - received message: FutureResult
  [07:38:01.591] - Received FutureResult
  [07:38:01.592] - Erased future from FutureRegistry
  [07:38:01.592] result() for ClusterFuture ...
  [07:38:01.593] - result already collected: FutureResult
  [07:38:01.593] result() for ClusterFuture ... done
  [07:38:01.593] receiveMessageFromWorker() for ClusterFuture ... done
   logi [1:2, 1, 1:3, 1] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 4
    ..$ : chr [1:2] "a" "b"
    ..$ : chr "a"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "" ...
  [07:38:01.601] resolve() on list ...
  [07:38:01.602]  recursive: 0
  [07:38:01.602]  length: 6
  [07:38:01.602]  elements: 'a', 'b', 'c', '', '', ''
  [07:38:01.619] signalConditionsASAP(numeric, pos=1) ...
  [07:38:01.619] - nx: 6
  [07:38:01.620] - relay: TRUE
  [07:38:01.620] - stdout: TRUE
  [07:38:01.620] - signal: TRUE
  [07:38:01.620] - resignal: FALSE
  [07:38:01.621] - force: TRUE
  [07:38:01.621] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.621] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.622]  - until=2
  [07:38:01.622]  - relaying element #2
  [07:38:01.623] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.623] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.624] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:01.624]  length: 5 (resolved future 1)
  [07:38:01.624] Future #2
  [07:38:01.625] result() for ClusterFuture ...
  [07:38:01.625] - result already collected: FutureResult
  [07:38:01.625] result() for ClusterFuture ... done
  [07:38:01.626] result() for ClusterFuture ...
  [07:38:01.626] - result already collected: FutureResult
  [07:38:01.627] result() for ClusterFuture ... done
  [07:38:01.627] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:01.627] - nx: 6
  [07:38:01.628] - relay: TRUE
  [07:38:01.628] - stdout: TRUE
  [07:38:01.628] - signal: TRUE
  [07:38:01.629] - resignal: FALSE
  [07:38:01.629] - force: TRUE
  [07:38:01.629] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.630] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.630]  - until=2
  [07:38:01.630]  - relaying element #2
  [07:38:01.631] result() for ClusterFuture ...
  [07:38:01.631] - result already collected: FutureResult
  [07:38:01.631] result() for ClusterFuture ... done
  [07:38:01.632] result() for ClusterFuture ...
  [07:38:01.632] - result already collected: FutureResult
  [07:38:01.632] result() for ClusterFuture ... done
  [07:38:01.633] result() for ClusterFuture ...
  [07:38:01.633] - result already collected: FutureResult
  [07:38:01.634] result() for ClusterFuture ... done
  [07:38:01.634] result() for ClusterFuture ...
  [07:38:01.634] - result already collected: FutureResult
  [07:38:01.635] result() for ClusterFuture ... done
  [07:38:01.635] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.635] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.636] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:01.636]  length: 4 (resolved future 2)
  [07:38:01.637] Future #3
  [07:38:01.637] result() for ClusterFuture ...
  [07:38:01.637] - result already collected: FutureResult
  [07:38:01.638] result() for ClusterFuture ... done
  [07:38:01.638] result() for ClusterFuture ...
  [07:38:01.638] - result already collected: FutureResult
  [07:38:01.655] result() for ClusterFuture ... done
  [07:38:01.655] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:01.656] - nx: 6
  [07:38:01.656] - relay: TRUE
  [07:38:01.656] - stdout: TRUE
  [07:38:01.657] - signal: TRUE
  [07:38:01.657] - resignal: FALSE
  [07:38:01.657] - force: TRUE
  [07:38:01.658] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.658] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:01.658]  - until=3
  [07:38:01.659]  - relaying element #3
  [07:38:01.659] result() for ClusterFuture ...
  [07:38:01.659] - result already collected: FutureResult
  [07:38:01.660] result() for ClusterFuture ... done
  [07:38:01.660] result() for ClusterFuture ...
  [07:38:01.660] - result already collected: FutureResult
  [07:38:01.661] result() for ClusterFuture ... done
  [07:38:01.661] result() for ClusterFuture ...
  [07:38:01.662] - result already collected: FutureResult
  [07:38:01.662] result() for ClusterFuture ... done
  [07:38:01.662] result() for ClusterFuture ...
  [07:38:01.663] - result already collected: FutureResult
  [07:38:01.663] result() for ClusterFuture ... done
  [07:38:01.663] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.664] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.664] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:01.664]  length: 3 (resolved future 3)
  [07:38:01.665] signalConditionsASAP(NULL, pos=4) ...
  [07:38:01.665] - nx: 6
  [07:38:01.665] - relay: TRUE
  [07:38:01.666] - stdout: TRUE
  [07:38:01.666] - signal: TRUE
  [07:38:01.666] - resignal: FALSE
  [07:38:01.667] - force: TRUE
  [07:38:01.667] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.667] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.687]  - until=5
  [07:38:01.687]  - relaying element #5
  [07:38:01.688] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:01.688] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.688] signalConditionsASAP(NULL, pos=4) ... done
  [07:38:01.689]  length: 2 (resolved future 4)
  [07:38:01.689] signalConditionsASAP(NULL, pos=5) ...
  [07:38:01.690] - nx: 6
  [07:38:01.690] - relay: TRUE
  [07:38:01.690] - stdout: TRUE
  [07:38:01.690] - signal: TRUE
  [07:38:01.691] - resignal: FALSE
  [07:38:01.691] - force: TRUE
  [07:38:01.691] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:01.692] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.692]  - until=6
  [07:38:01.692]  - relaying element #6
  [07:38:01.693] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:01.693] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.693] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:01.694]  length: 1 (resolved future 5)
  [07:38:01.694] signalConditionsASAP(numeric, pos=6) ...
  [07:38:01.695] - nx: 6
  [07:38:01.695] - relay: TRUE
  [07:38:01.695] - stdout: TRUE
  [07:38:01.695] - signal: TRUE
  [07:38:01.696] - resignal: FALSE
  [07:38:01.696] - force: TRUE
  [07:38:01.696] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:01.697] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.697]  - until=6
  [07:38:01.697] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.698] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.698] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:01.698]  length: 0 (resolved future 6)
  [07:38:01.699] Relaying remaining futures
  [07:38:01.699] signalConditionsASAP(NULL, pos=0) ...
  [07:38:01.699] - nx: 6
  [07:38:01.700] - relay: TRUE
  [07:38:01.700] - stdout: TRUE
  [07:38:01.700] - signal: TRUE
  [07:38:01.701] - resignal: FALSE
  [07:38:01.701] - force: TRUE
  [07:38:01.701] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.702] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
   - flush all
  [07:38:01.702] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:01.719] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:01.719] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:01.720] resolve() on list ... DONE
  [07:38:01.720] result() for ClusterFuture ...
  [07:38:01.720] - result already collected: FutureResult
  [07:38:01.721] result() for ClusterFuture ... done
  [07:38:01.721] result() for ClusterFuture ...
  [07:38:01.721] - result already collected: FutureResult
  [07:38:01.722] result() for ClusterFuture ... done
  [07:38:01.722] result() for ClusterFuture ...
  [07:38:01.722] - result already collected: FutureResult
  [07:38:01.723] result() for ClusterFuture ... done
  [07:38:01.723] result() for ClusterFuture ...
  [07:38:01.723] - result already collected: FutureResult
  [07:38:01.724] result() for ClusterFuture ... done
  List of 6
   $ a: num 1
   $ b: num 2
   $ c: NULL
   $  : NULL
   $  : NULL
   $  : num 6
   - attr(*, "dim")= int [1:4] 2 1 3 1
   - attr(*, "dimnames")=List of 4
    ..$ : chr [1:2] "a" "b"
    ..$ : chr "a"
    ..$ : chr [1:3] "a" "b" "c"
    ..$ : chr "a"
  *** futures() - list ... DONE
  Type of object: environment
  Type of future: sequential
  [07:38:01.750] plan(): Setting new future strategy stack:
  [07:38:01.750] List of future strategies:
  [07:38:01.750] 1. sequential:
  [07:38:01.750]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.750]    - tweaked: FALSE
  [07:38:01.750]    - call: plan(strategy)
  [07:38:01.752] plan(): nbrOfWorkers() = 1
  Dimensions: NULL
  [07:38:01.753] getGlobalsAndPackages() ...
  [07:38:01.753] Searching for globals...
  [07:38:01.754] 
  [07:38:01.755] Searching for globals ... DONE
  [07:38:01.755] - globals: [0] <none>
  [07:38:01.755] getGlobalsAndPackages() ... DONE
  [07:38:01.758] Packages needed by the future expression (n = 0): <none>
  [07:38:01.758] Packages needed by future strategies (n = 0): <none>
  [07:38:01.765] {
  [07:38:01.765]     {
  [07:38:01.765]         ...future.startTime <- base::Sys.time()
  [07:38:01.765]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.765]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.765]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.765]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.765]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.765]         {
  [07:38:01.765]             {
  [07:38:01.765]                 base::local({
  [07:38:01.765]                   has_future <- base::requireNamespace("future", 
  [07:38:01.765]                     quietly = TRUE)
  [07:38:01.765]                   version <- if (has_future) 
  [07:38:01.765]                     utils::packageVersion("future")
  [07:38:01.765]                   else NULL
  [07:38:01.765]                   if (!has_future || version < "1.8.0") {
  [07:38:01.765]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.765]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.765]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.765]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.765]                         "release", "version")], collapse = " "), 
  [07:38:01.765]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.765]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.765]                       info)
  [07:38:01.765]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.765]                     if (!has_future) {
  [07:38:01.765]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.765]                         info)
  [07:38:01.765]                     }
  [07:38:01.765]                     else {
  [07:38:01.765]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.765]                         info, version)
  [07:38:01.765]                     }
  [07:38:01.765]                     base::stop(msg)
  [07:38:01.765]                   }
  [07:38:01.765]                 })
  [07:38:01.765]             }
  [07:38:01.765]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.765]         }
  [07:38:01.765]     }
  [07:38:01.765]     if (base::is.na(TRUE)) {
  [07:38:01.765]     }
  [07:38:01.765]     else {
  [07:38:01.765]         if (TRUE) {
  [07:38:01.765]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.765]                 open = "w")
  [07:38:01.765]         }
  [07:38:01.765]         else {
  [07:38:01.765]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.765]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.765]         }
  [07:38:01.765]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.765]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.765]             base::sink(type = "output", split = FALSE)
  [07:38:01.765]             base::close(...future.stdout)
  [07:38:01.765]         }, add = TRUE)
  [07:38:01.765]     }
  [07:38:01.765]     ...future.frame <- base::sys.nframe()
  [07:38:01.765]     ...future.conditions <- base::list()
  [07:38:01.765]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.765]     ...future.result <- base::tryCatch({
  [07:38:01.765]         base::withCallingHandlers({
  [07:38:01.765]             ...future.value <- base::withVisible(base::local(2))
  [07:38:01.765]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.765]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.765]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.765]                 version = "1.8")
  [07:38:01.765]         }, condition = base::local({
  [07:38:01.765]             c <- base::c
  [07:38:01.765]             inherits <- base::inherits
  [07:38:01.765]             invokeRestart <- base::invokeRestart
  [07:38:01.765]             length <- base::length
  [07:38:01.765]             list <- base::list
  [07:38:01.765]             seq.int <- base::seq.int
  [07:38:01.765]             signalCondition <- base::signalCondition
  [07:38:01.765]             sys.calls <- base::sys.calls
  [07:38:01.765]             Sys.time <- base::Sys.time
  [07:38:01.765]             `[[` <- base::`[[`
  [07:38:01.765]             `+` <- base::`+`
  [07:38:01.765]             `<<-` <- base::`<<-`
  [07:38:01.765]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.765]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.765]                   3L)]
  [07:38:01.765]             }
  [07:38:01.765]             function(cond) {
  [07:38:01.765]                 if (inherits(cond, "error")) {
  [07:38:01.765]                   sessionInformation <- function() {
  [07:38:01.765]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.765]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.765]                       search = base::search(), system = base::Sys.info())
  [07:38:01.765]                   }
  [07:38:01.765]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.765]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.765]                     cond$call), session = sessionInformation(), 
  [07:38:01.765]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.765]                   signalCondition(cond)
  [07:38:01.765]                 }
  [07:38:01.765]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.765]                 ))) {
  [07:38:01.765]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.765]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.765]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.765]                   if (!signal) {
  [07:38:01.765]                     muffleCondition <- function (cond) 
  [07:38:01.765]                     {
  [07:38:01.765]                       inherits <- base::inherits
  [07:38:01.765]                       invokeRestart <- base::invokeRestart
  [07:38:01.765]                       muffled <- FALSE
  [07:38:01.765]                       if (inherits(cond, "message")) {
  [07:38:01.765]                         invokeRestart("muffleMessage")
  [07:38:01.765]                         muffled <- TRUE
  [07:38:01.765]                       }
  [07:38:01.765]                       else if (inherits(cond, "warning")) {
  [07:38:01.765]                         invokeRestart("muffleWarning")
  [07:38:01.765]                         muffled <- TRUE
  [07:38:01.765]                       }
  [07:38:01.765]                       else if (inherits(cond, "condition")) {
  [07:38:01.765]                         computeRestarts <- base::computeRestarts
  [07:38:01.765]                         grepl <- base::grepl
  [07:38:01.765]                         is.null <- base::is.null
  [07:38:01.765]                         restarts <- computeRestarts(cond)
  [07:38:01.765]                         for (restart in restarts) {
  [07:38:01.765]                           name <- restart$name
  [07:38:01.765]                           if (is.null(name)) 
  [07:38:01.765]                             next
  [07:38:01.765]                           if (!grepl("^muffle", name)) 
  [07:38:01.765]                             next
  [07:38:01.765]                           invokeRestart(restart)
  [07:38:01.765]                           muffled <- TRUE
  [07:38:01.765]                           break
  [07:38:01.765]                         }
  [07:38:01.765]                       }
  [07:38:01.765]                       invisible(muffled)
  [07:38:01.765]                     }
  [07:38:01.765]                     muffleCondition(cond)
  [07:38:01.765]                   }
  [07:38:01.765]                 }
  [07:38:01.765]             }
  [07:38:01.765]         }))
  [07:38:01.765]     }, error = function(ex) {
  [07:38:01.765]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.765]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.765]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.765]     }, finally = {
  [07:38:01.765]         {
  [07:38:01.765]             NULL
  [07:38:01.765]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.765]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.765]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:01.765]                 label = NULL, ...) 
  [07:38:01.765]             {
  [07:38:01.765]                 if (substitute) 
  [07:38:01.765]                   expr <- substitute(expr)
  [07:38:01.765]                 local <- as.logical(local)
  [07:38:01.765]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:01.765]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.765]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:01.765]                   label = label, ...)
  [07:38:01.765]                 if (!future$lazy) 
  [07:38:01.765]                   future <- run(future)
  [07:38:01.765]                 invisible(future)
  [07:38:01.765]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.765]         }
  [07:38:01.765]         base::options(...future.oldOptions)
  [07:38:01.765]     })
  [07:38:01.765]     Sys.time
  [07:38:01.765]     if (base::is.na(TRUE)) {
  [07:38:01.765]     }
  [07:38:01.765]     else {
  [07:38:01.765]         base::sink(type = "output", split = FALSE)
  [07:38:01.765]         if (TRUE) {
  [07:38:01.765]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.765]         }
  [07:38:01.765]         else {
  [07:38:01.765]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.765]         }
  [07:38:01.765]         base::close(...future.stdout)
  [07:38:01.765]         ...future.stdout <- NULL
  [07:38:01.765]     }
  [07:38:01.765]     ...future.result$conditions <- ...future.conditions
  [07:38:01.765]     ...future.result
  [07:38:01.765] }
  [07:38:01.770] plan(): Setting new future strategy stack:
  [07:38:01.770] List of future strategies:
  [07:38:01.770] 1. sequential:
  [07:38:01.770]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.770]    - tweaked: FALSE
  [07:38:01.770]    - call: NULL
  [07:38:01.771] plan(): nbrOfWorkers() = 1
  [07:38:01.773] plan(): Setting new future strategy stack:
  [07:38:01.823] List of future strategies:
  [07:38:01.823] 1. sequential:
  [07:38:01.823]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.823]    - tweaked: FALSE
  [07:38:01.823]    - call: plan(strategy)
  [07:38:01.825] plan(): nbrOfWorkers() = 1
  [07:38:01.825] SequentialFuture started (and completed)
  [07:38:01.826] getGlobalsAndPackages() ...
  [07:38:01.826] Searching for globals...
  [07:38:01.827] 
  [07:38:01.828] Searching for globals ... DONE
  [07:38:01.828] - globals: [0] <none>
  [07:38:01.828] getGlobalsAndPackages() ... DONE
  [07:38:01.831] Packages needed by the future expression (n = 0): <none>
  [07:38:01.831] Packages needed by future strategies (n = 0): <none>
  [07:38:01.837] {
  [07:38:01.837]     {
  [07:38:01.837]         ...future.startTime <- base::Sys.time()
  [07:38:01.837]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.837]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.837]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.837]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.837]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.837]         {
  [07:38:01.837]             {
  [07:38:01.837]                 base::local({
  [07:38:01.837]                   has_future <- base::requireNamespace("future", 
  [07:38:01.837]                     quietly = TRUE)
  [07:38:01.837]                   version <- if (has_future) 
  [07:38:01.837]                     utils::packageVersion("future")
  [07:38:01.837]                   else NULL
  [07:38:01.837]                   if (!has_future || version < "1.8.0") {
  [07:38:01.837]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.837]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.837]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.837]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.837]                         "release", "version")], collapse = " "), 
  [07:38:01.837]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.837]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.837]                       info)
  [07:38:01.837]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.837]                     if (!has_future) {
  [07:38:01.837]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.837]                         info)
  [07:38:01.837]                     }
  [07:38:01.837]                     else {
  [07:38:01.837]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.837]                         info, version)
  [07:38:01.837]                     }
  [07:38:01.837]                     base::stop(msg)
  [07:38:01.837]                   }
  [07:38:01.837]                 })
  [07:38:01.837]             }
  [07:38:01.837]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.837]         }
  [07:38:01.837]     }
  [07:38:01.837]     if (base::is.na(TRUE)) {
  [07:38:01.837]     }
  [07:38:01.837]     else {
  [07:38:01.837]         if (TRUE) {
  [07:38:01.837]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.837]                 open = "w")
  [07:38:01.837]         }
  [07:38:01.837]         else {
  [07:38:01.837]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.837]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.837]         }
  [07:38:01.837]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.837]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.837]             base::sink(type = "output", split = FALSE)
  [07:38:01.837]             base::close(...future.stdout)
  [07:38:01.837]         }, add = TRUE)
  [07:38:01.837]     }
  [07:38:01.837]     ...future.frame <- base::sys.nframe()
  [07:38:01.837]     ...future.conditions <- base::list()
  [07:38:01.837]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.837]     ...future.result <- base::tryCatch({
  [07:38:01.837]         base::withCallingHandlers({
  [07:38:01.837]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:01.837]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.837]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.837]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.837]                 version = "1.8")
  [07:38:01.837]         }, condition = base::local({
  [07:38:01.837]             c <- base::c
  [07:38:01.837]             inherits <- base::inherits
  [07:38:01.837]             invokeRestart <- base::invokeRestart
  [07:38:01.837]             length <- base::length
  [07:38:01.837]             list <- base::list
  [07:38:01.837]             seq.int <- base::seq.int
  [07:38:01.837]             signalCondition <- base::signalCondition
  [07:38:01.837]             sys.calls <- base::sys.calls
  [07:38:01.837]             Sys.time <- base::Sys.time
  [07:38:01.837]             `[[` <- base::`[[`
  [07:38:01.837]             `+` <- base::`+`
  [07:38:01.837]             `<<-` <- base::`<<-`
  [07:38:01.837]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.837]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.837]                   3L)]
  [07:38:01.837]             }
  [07:38:01.837]             function(cond) {
  [07:38:01.837]                 if (inherits(cond, "error")) {
  [07:38:01.837]                   sessionInformation <- function() {
  [07:38:01.837]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.837]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.837]                       search = base::search(), system = base::Sys.info())
  [07:38:01.837]                   }
  [07:38:01.837]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.837]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.837]                     cond$call), session = sessionInformation(), 
  [07:38:01.837]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.837]                   signalCondition(cond)
  [07:38:01.837]                 }
  [07:38:01.837]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.837]                 ))) {
  [07:38:01.837]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.837]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.837]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.837]                   if (!signal) {
  [07:38:01.837]                     muffleCondition <- function (cond) 
  [07:38:01.837]                     {
  [07:38:01.837]                       inherits <- base::inherits
  [07:38:01.837]                       invokeRestart <- base::invokeRestart
  [07:38:01.837]                       muffled <- FALSE
  [07:38:01.837]                       if (inherits(cond, "message")) {
  [07:38:01.837]                         invokeRestart("muffleMessage")
  [07:38:01.837]                         muffled <- TRUE
  [07:38:01.837]                       }
  [07:38:01.837]                       else if (inherits(cond, "warning")) {
  [07:38:01.837]                         invokeRestart("muffleWarning")
  [07:38:01.837]                         muffled <- TRUE
  [07:38:01.837]                       }
  [07:38:01.837]                       else if (inherits(cond, "condition")) {
  [07:38:01.837]                         computeRestarts <- base::computeRestarts
  [07:38:01.837]                         grepl <- base::grepl
  [07:38:01.837]                         is.null <- base::is.null
  [07:38:01.837]                         restarts <- computeRestarts(cond)
  [07:38:01.837]                         for (restart in restarts) {
  [07:38:01.837]                           name <- restart$name
  [07:38:01.837]                           if (is.null(name)) 
  [07:38:01.837]                             next
  [07:38:01.837]                           if (!grepl("^muffle", name)) 
  [07:38:01.837]                             next
  [07:38:01.837]                           invokeRestart(restart)
  [07:38:01.837]                           muffled <- TRUE
  [07:38:01.837]                           break
  [07:38:01.837]                         }
  [07:38:01.837]                       }
  [07:38:01.837]                       invisible(muffled)
  [07:38:01.837]                     }
  [07:38:01.837]                     muffleCondition(cond)
  [07:38:01.837]                   }
  [07:38:01.837]                 }
  [07:38:01.837]             }
  [07:38:01.837]         }))
  [07:38:01.837]     }, error = function(ex) {
  [07:38:01.837]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.837]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.837]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.837]     }, finally = {
  [07:38:01.837]         {
  [07:38:01.837]             NULL
  [07:38:01.837]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.837]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.837]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:01.837]                 label = NULL, ...) 
  [07:38:01.837]             {
  [07:38:01.837]                 if (substitute) 
  [07:38:01.837]                   expr <- substitute(expr)
  [07:38:01.837]                 local <- as.logical(local)
  [07:38:01.837]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:01.837]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.837]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:01.837]                   label = label, ...)
  [07:38:01.837]                 if (!future$lazy) 
  [07:38:01.837]                   future <- run(future)
  [07:38:01.837]                 invisible(future)
  [07:38:01.837]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.837]         }
  [07:38:01.837]         base::options(...future.oldOptions)
  [07:38:01.837]     })
  [07:38:01.837]     Sys.time
  [07:38:01.837]     if (base::is.na(TRUE)) {
  [07:38:01.837]     }
  [07:38:01.837]     else {
  [07:38:01.837]         base::sink(type = "output", split = FALSE)
  [07:38:01.837]         if (TRUE) {
  [07:38:01.837]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.837]         }
  [07:38:01.837]         else {
  [07:38:01.837]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.837]         }
  [07:38:01.837]         base::close(...future.stdout)
  [07:38:01.837]         ...future.stdout <- NULL
  [07:38:01.837]     }
  [07:38:01.837]     ...future.result$conditions <- ...future.conditions
  [07:38:01.837]     ...future.result
  [07:38:01.837] }
  [07:38:01.842] plan(): Setting new future strategy stack:
  [07:38:01.843] List of future strategies:
  [07:38:01.843] 1. sequential:
  [07:38:01.843]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.843]    - tweaked: FALSE
  [07:38:01.843]    - call: NULL
  [07:38:01.844] plan(): nbrOfWorkers() = 1
  [07:38:01.845] plan(): Setting new future strategy stack:
  [07:38:01.846] List of future strategies:
  [07:38:01.846] 1. sequential:
  [07:38:01.846]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.846]    - tweaked: FALSE
  [07:38:01.846]    - call: plan(strategy)
  [07:38:01.847] plan(): nbrOfWorkers() = 1
  [07:38:01.847] SequentialFuture started (and completed)
  [07:38:01.850] getGlobalsAndPackages() ...
  [07:38:01.851] Searching for globals...
  [07:38:01.856] - globals found: [1] '{'
  [07:38:01.856] Searching for globals ... DONE
  [07:38:01.857] Resolving globals: FALSE
  [07:38:01.858] 
  [07:38:01.858] 
  [07:38:01.858] getGlobalsAndPackages() ... DONE
  [07:38:01.860] Packages needed by the future expression (n = 0): <none>
  [07:38:01.861] Packages needed by future strategies (n = 0): <none>
  [07:38:01.866] {
  [07:38:01.866]     {
  [07:38:01.866]         ...future.startTime <- base::Sys.time()
  [07:38:01.866]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.866]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.866]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.866]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.866]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.866]         {
  [07:38:01.866]             {
  [07:38:01.866]                 base::local({
  [07:38:01.866]                   has_future <- base::requireNamespace("future", 
  [07:38:01.866]                     quietly = TRUE)
  [07:38:01.866]                   version <- if (has_future) 
  [07:38:01.866]                     utils::packageVersion("future")
  [07:38:01.866]                   else NULL
  [07:38:01.866]                   if (!has_future || version < "1.8.0") {
  [07:38:01.866]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.866]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.866]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.866]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.866]                         "release", "version")], collapse = " "), 
  [07:38:01.866]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.866]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.866]                       info)
  [07:38:01.866]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.866]                     if (!has_future) {
  [07:38:01.866]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.866]                         info)
  [07:38:01.866]                     }
  [07:38:01.866]                     else {
  [07:38:01.866]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.866]                         info, version)
  [07:38:01.866]                     }
  [07:38:01.866]                     base::stop(msg)
  [07:38:01.866]                   }
  [07:38:01.866]                 })
  [07:38:01.866]             }
  [07:38:01.866]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.866]         }
  [07:38:01.866]     }
  [07:38:01.866]     if (base::is.na(TRUE)) {
  [07:38:01.866]     }
  [07:38:01.866]     else {
  [07:38:01.866]         if (TRUE) {
  [07:38:01.866]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.866]                 open = "w")
  [07:38:01.866]         }
  [07:38:01.866]         else {
  [07:38:01.866]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.866]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.866]         }
  [07:38:01.866]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.866]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.866]             base::sink(type = "output", split = FALSE)
  [07:38:01.866]             base::close(...future.stdout)
  [07:38:01.866]         }, add = TRUE)
  [07:38:01.866]     }
  [07:38:01.866]     ...future.frame <- base::sys.nframe()
  [07:38:01.866]     ...future.conditions <- base::list()
  [07:38:01.866]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.866]     ...future.result <- base::tryCatch({
  [07:38:01.866]         base::withCallingHandlers({
  [07:38:01.866]             ...future.value <- base::withVisible(base::local({
  [07:38:01.866]                 4
  [07:38:01.866]             }))
  [07:38:01.866]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.866]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.866]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.866]                 version = "1.8")
  [07:38:01.866]         }, condition = base::local({
  [07:38:01.866]             c <- base::c
  [07:38:01.866]             inherits <- base::inherits
  [07:38:01.866]             invokeRestart <- base::invokeRestart
  [07:38:01.866]             length <- base::length
  [07:38:01.866]             list <- base::list
  [07:38:01.866]             seq.int <- base::seq.int
  [07:38:01.866]             signalCondition <- base::signalCondition
  [07:38:01.866]             sys.calls <- base::sys.calls
  [07:38:01.866]             Sys.time <- base::Sys.time
  [07:38:01.866]             `[[` <- base::`[[`
  [07:38:01.866]             `+` <- base::`+`
  [07:38:01.866]             `<<-` <- base::`<<-`
  [07:38:01.866]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.866]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.866]                   3L)]
  [07:38:01.866]             }
  [07:38:01.866]             function(cond) {
  [07:38:01.866]                 if (inherits(cond, "error")) {
  [07:38:01.866]                   sessionInformation <- function() {
  [07:38:01.866]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.866]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.866]                       search = base::search(), system = base::Sys.info())
  [07:38:01.866]                   }
  [07:38:01.866]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.866]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.866]                     cond$call), session = sessionInformation(), 
  [07:38:01.866]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.866]                   signalCondition(cond)
  [07:38:01.866]                 }
  [07:38:01.866]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.866]                 ))) {
  [07:38:01.866]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.866]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.866]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.866]                   if (!signal) {
  [07:38:01.866]                     muffleCondition <- function (cond) 
  [07:38:01.866]                     {
  [07:38:01.866]                       inherits <- base::inherits
  [07:38:01.866]                       invokeRestart <- base::invokeRestart
  [07:38:01.866]                       muffled <- FALSE
  [07:38:01.866]                       if (inherits(cond, "message")) {
  [07:38:01.866]                         invokeRestart("muffleMessage")
  [07:38:01.866]                         muffled <- TRUE
  [07:38:01.866]                       }
  [07:38:01.866]                       else if (inherits(cond, "warning")) {
  [07:38:01.866]                         invokeRestart("muffleWarning")
  [07:38:01.866]                         muffled <- TRUE
  [07:38:01.866]                       }
  [07:38:01.866]                       else if (inherits(cond, "condition")) {
  [07:38:01.866]                         computeRestarts <- base::computeRestarts
  [07:38:01.866]                         grepl <- base::grepl
  [07:38:01.866]                         is.null <- base::is.null
  [07:38:01.866]                         restarts <- computeRestarts(cond)
  [07:38:01.866]                         for (restart in restarts) {
  [07:38:01.866]                           name <- restart$name
  [07:38:01.866]                           if (is.null(name)) 
  [07:38:01.866]                             next
  [07:38:01.866]                           if (!grepl("^muffle", name)) 
  [07:38:01.866]                             next
  [07:38:01.866]                           invokeRestart(restart)
  [07:38:01.866]                           muffled <- TRUE
  [07:38:01.866]                           break
  [07:38:01.866]                         }
  [07:38:01.866]                       }
  [07:38:01.866]                       invisible(muffled)
  [07:38:01.866]                     }
  [07:38:01.866]                     muffleCondition(cond)
  [07:38:01.866]                   }
  [07:38:01.866]                 }
  [07:38:01.866]             }
  [07:38:01.866]         }))
  [07:38:01.866]     }, error = function(ex) {
  [07:38:01.866]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.866]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.866]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.866]     }, finally = {
  [07:38:01.866]         {
  [07:38:01.866]             NULL
  [07:38:01.866]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.866]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.866]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:01.866]                 label = NULL, ...) 
  [07:38:01.866]             {
  [07:38:01.866]                 if (substitute) 
  [07:38:01.866]                   expr <- substitute(expr)
  [07:38:01.866]                 local <- as.logical(local)
  [07:38:01.866]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:01.866]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.866]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:01.866]                   label = label, ...)
  [07:38:01.866]                 if (!future$lazy) 
  [07:38:01.866]                   future <- run(future)
  [07:38:01.866]                 invisible(future)
  [07:38:01.866]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.866]         }
  [07:38:01.866]         base::options(...future.oldOptions)
  [07:38:01.866]     })
  [07:38:01.866]     Sys.time
  [07:38:01.866]     if (base::is.na(TRUE)) {
  [07:38:01.866]     }
  [07:38:01.866]     else {
  [07:38:01.866]         base::sink(type = "output", split = FALSE)
  [07:38:01.866]         if (TRUE) {
  [07:38:01.866]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.866]         }
  [07:38:01.866]         else {
  [07:38:01.866]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.866]         }
  [07:38:01.866]         base::close(...future.stdout)
  [07:38:01.866]         ...future.stdout <- NULL
  [07:38:01.866]     }
  [07:38:01.866]     ...future.result$conditions <- ...future.conditions
  [07:38:01.866]     ...future.result
  [07:38:01.866] }
  [07:38:01.871] plan(): Setting new future strategy stack:
  [07:38:01.872] List of future strategies:
  [07:38:01.872] 1. sequential:
  [07:38:01.872]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.872]    - tweaked: FALSE
  [07:38:01.872]    - call: NULL
  [07:38:01.873] plan(): nbrOfWorkers() = 1
  [07:38:01.874] plan(): Setting new future strategy stack:
  [07:38:01.874] List of future strategies:
  [07:38:01.874] 1. sequential:
  [07:38:01.874]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.874]    - tweaked: FALSE
  [07:38:01.874]    - call: plan(strategy)
  [07:38:01.875] plan(): nbrOfWorkers() = 1
  [07:38:01.876] SequentialFuture started (and completed)
  <environment: 0x5576d6196f48> 
  <environment: 0x5576d604e568> 
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:01.884] resolve() on environment ...
  [07:38:01.884]  recursive: 0
  [07:38:01.886]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:01.886] signalConditionsASAP(numeric, pos=1) ...
  [07:38:01.887] - nx: 4
  [07:38:01.887] - relay: TRUE
  [07:38:01.887] - stdout: TRUE
  [07:38:01.888] - signal: TRUE
  [07:38:01.888] - resignal: FALSE
  [07:38:01.888] - force: TRUE
  [07:38:01.889] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:01.889] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:01.889]  - until=2
  [07:38:01.890]  - relaying element #2
  [07:38:01.890] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:01.890] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:01.891] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:01.891]  length: 3 (resolved future 1)
  [07:38:01.892] Future #2
  [07:38:01.892] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:01.892] - nx: 4
  [07:38:01.893] - relay: TRUE
  [07:38:01.893] - stdout: TRUE
  [07:38:01.893] - signal: TRUE
  [07:38:01.894] - resignal: FALSE
  [07:38:01.894] - force: TRUE
  [07:38:01.894] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:01.895] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:01.895]  - until=2
  [07:38:01.895]  - relaying element #2
  [07:38:01.896] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:01.896] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:01.897] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:01.897]  length: 2 (resolved future 2)
  [07:38:01.898] Future #3
  [07:38:01.898] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:01.898] - nx: 4
  [07:38:01.899] - relay: TRUE
  [07:38:01.899] - stdout: TRUE
  [07:38:01.899] - signal: TRUE
  [07:38:01.900] - resignal: FALSE
  [07:38:01.900] - force: TRUE
  [07:38:01.900] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:01.901] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:01.901]  - until=3
  [07:38:01.901]  - relaying element #3
  [07:38:01.902] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:01.902] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:01.903] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:01.903]  length: 1 (resolved future 3)
  [07:38:01.904] Future #4
  [07:38:01.904] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:01.904] - nx: 4
  [07:38:01.905] - relay: TRUE
  [07:38:01.905] - stdout: TRUE
  [07:38:01.905] - signal: TRUE
  [07:38:01.906] - resignal: FALSE
  [07:38:01.906] - force: TRUE
  [07:38:01.906] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:01.907] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:01.907]  - until=4
  [07:38:01.910]  - relaying element #4
  [07:38:01.911] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:01.912] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:01.912] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:01.912]  length: 0 (resolved future 4)
  [07:38:01.913] Relaying remaining futures
  [07:38:01.913] signalConditionsASAP(NULL, pos=0) ...
  [07:38:01.913] - nx: 4
  [07:38:01.914] - relay: TRUE
  [07:38:01.914] - stdout: TRUE
  [07:38:01.914] - signal: TRUE
  [07:38:01.915] - resignal: FALSE
  [07:38:01.915] - force: TRUE
  [07:38:01.915] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:01.916] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:01.916] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:01.917] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:01.917] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:01.917] resolve() on environment ... DONE
  <environment: 0x5576d6131d38> 
  Dimensions: c(1, 6)
  [07:38:01.919] getGlobalsAndPackages() ...
  [07:38:01.919] Searching for globals...
  [07:38:01.920] 
  [07:38:01.921] Searching for globals ... DONE
  [07:38:01.921] - globals: [0] <none>
  [07:38:01.921] getGlobalsAndPackages() ... DONE
  [07:38:01.924] Packages needed by the future expression (n = 0): <none>
  [07:38:01.924] Packages needed by future strategies (n = 0): <none>
  [07:38:01.930] {
  [07:38:01.930]     {
  [07:38:01.930]         ...future.startTime <- base::Sys.time()
  [07:38:01.930]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.930]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.930]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.930]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.930]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.930]         {
  [07:38:01.930]             {
  [07:38:01.930]                 base::local({
  [07:38:01.930]                   has_future <- base::requireNamespace("future", 
  [07:38:01.930]                     quietly = TRUE)
  [07:38:01.930]                   version <- if (has_future) 
  [07:38:01.930]                     utils::packageVersion("future")
  [07:38:01.930]                   else NULL
  [07:38:01.930]                   if (!has_future || version < "1.8.0") {
  [07:38:01.930]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.930]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.930]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.930]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.930]                         "release", "version")], collapse = " "), 
  [07:38:01.930]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.930]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.930]                       info)
  [07:38:01.930]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.930]                     if (!has_future) {
  [07:38:01.930]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.930]                         info)
  [07:38:01.930]                     }
  [07:38:01.930]                     else {
  [07:38:01.930]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.930]                         info, version)
  [07:38:01.930]                     }
  [07:38:01.930]                     base::stop(msg)
  [07:38:01.930]                   }
  [07:38:01.930]                 })
  [07:38:01.930]             }
  [07:38:01.930]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.930]         }
  [07:38:01.930]     }
  [07:38:01.930]     if (base::is.na(TRUE)) {
  [07:38:01.930]     }
  [07:38:01.930]     else {
  [07:38:01.930]         if (TRUE) {
  [07:38:01.930]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.930]                 open = "w")
  [07:38:01.930]         }
  [07:38:01.930]         else {
  [07:38:01.930]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.930]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.930]         }
  [07:38:01.930]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.930]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.930]             base::sink(type = "output", split = FALSE)
  [07:38:01.930]             base::close(...future.stdout)
  [07:38:01.930]         }, add = TRUE)
  [07:38:01.930]     }
  [07:38:01.930]     ...future.frame <- base::sys.nframe()
  [07:38:01.930]     ...future.conditions <- base::list()
  [07:38:01.930]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.930]     ...future.result <- base::tryCatch({
  [07:38:01.930]         base::withCallingHandlers({
  [07:38:01.930]             ...future.value <- base::withVisible(base::local(2))
  [07:38:01.930]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.930]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.930]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.930]                 version = "1.8")
  [07:38:01.930]         }, condition = base::local({
  [07:38:01.930]             c <- base::c
  [07:38:01.930]             inherits <- base::inherits
  [07:38:01.930]             invokeRestart <- base::invokeRestart
  [07:38:01.930]             length <- base::length
  [07:38:01.930]             list <- base::list
  [07:38:01.930]             seq.int <- base::seq.int
  [07:38:01.930]             signalCondition <- base::signalCondition
  [07:38:01.930]             sys.calls <- base::sys.calls
  [07:38:01.930]             Sys.time <- base::Sys.time
  [07:38:01.930]             `[[` <- base::`[[`
  [07:38:01.930]             `+` <- base::`+`
  [07:38:01.930]             `<<-` <- base::`<<-`
  [07:38:01.930]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.930]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.930]                   3L)]
  [07:38:01.930]             }
  [07:38:01.930]             function(cond) {
  [07:38:01.930]                 if (inherits(cond, "error")) {
  [07:38:01.930]                   sessionInformation <- function() {
  [07:38:01.930]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.930]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.930]                       search = base::search(), system = base::Sys.info())
  [07:38:01.930]                   }
  [07:38:01.930]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.930]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.930]                     cond$call), session = sessionInformation(), 
  [07:38:01.930]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.930]                   signalCondition(cond)
  [07:38:01.930]                 }
  [07:38:01.930]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.930]                 ))) {
  [07:38:01.930]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.930]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.930]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.930]                   if (!signal) {
  [07:38:01.930]                     muffleCondition <- function (cond) 
  [07:38:01.930]                     {
  [07:38:01.930]                       inherits <- base::inherits
  [07:38:01.930]                       invokeRestart <- base::invokeRestart
  [07:38:01.930]                       muffled <- FALSE
  [07:38:01.930]                       if (inherits(cond, "message")) {
  [07:38:01.930]                         invokeRestart("muffleMessage")
  [07:38:01.930]                         muffled <- TRUE
  [07:38:01.930]                       }
  [07:38:01.930]                       else if (inherits(cond, "warning")) {
  [07:38:01.930]                         invokeRestart("muffleWarning")
  [07:38:01.930]                         muffled <- TRUE
  [07:38:01.930]                       }
  [07:38:01.930]                       else if (inherits(cond, "condition")) {
  [07:38:01.930]                         computeRestarts <- base::computeRestarts
  [07:38:01.930]                         grepl <- base::grepl
  [07:38:01.930]                         is.null <- base::is.null
  [07:38:01.930]                         restarts <- computeRestarts(cond)
  [07:38:01.930]                         for (restart in restarts) {
  [07:38:01.930]                           name <- restart$name
  [07:38:01.930]                           if (is.null(name)) 
  [07:38:01.930]                             next
  [07:38:01.930]                           if (!grepl("^muffle", name)) 
  [07:38:01.930]                             next
  [07:38:01.930]                           invokeRestart(restart)
  [07:38:01.930]                           muffled <- TRUE
  [07:38:01.930]                           break
  [07:38:01.930]                         }
  [07:38:01.930]                       }
  [07:38:01.930]                       invisible(muffled)
  [07:38:01.930]                     }
  [07:38:01.930]                     muffleCondition(cond)
  [07:38:01.930]                   }
  [07:38:01.930]                 }
  [07:38:01.930]             }
  [07:38:01.930]         }))
  [07:38:01.930]     }, error = function(ex) {
  [07:38:01.930]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.930]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.930]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.930]     }, finally = {
  [07:38:01.930]         {
  [07:38:01.930]             NULL
  [07:38:01.930]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.930]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.930]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:01.930]                 label = NULL, ...) 
  [07:38:01.930]             {
  [07:38:01.930]                 if (substitute) 
  [07:38:01.930]                   expr <- substitute(expr)
  [07:38:01.930]                 local <- as.logical(local)
  [07:38:01.930]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:01.930]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.930]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:01.930]                   label = label, ...)
  [07:38:01.930]                 if (!future$lazy) 
  [07:38:01.930]                   future <- run(future)
  [07:38:01.930]                 invisible(future)
  [07:38:01.930]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.930]         }
  [07:38:01.930]         base::options(...future.oldOptions)
  [07:38:01.930]     })
  [07:38:01.930]     Sys.time
  [07:38:01.930]     if (base::is.na(TRUE)) {
  [07:38:01.930]     }
  [07:38:01.930]     else {
  [07:38:01.930]         base::sink(type = "output", split = FALSE)
  [07:38:01.930]         if (TRUE) {
  [07:38:01.930]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.930]         }
  [07:38:01.930]         else {
  [07:38:01.930]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.930]         }
  [07:38:01.930]         base::close(...future.stdout)
  [07:38:01.930]         ...future.stdout <- NULL
  [07:38:01.930]     }
  [07:38:01.930]     ...future.result$conditions <- ...future.conditions
  [07:38:01.930]     ...future.result
  [07:38:01.930] }
  [07:38:01.936] plan(): Setting new future strategy stack:
  [07:38:01.936] List of future strategies:
  [07:38:01.936] 1. sequential:
  [07:38:01.936]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.936]    - tweaked: FALSE
  [07:38:01.936]    - call: NULL
  [07:38:01.937] plan(): nbrOfWorkers() = 1
  [07:38:01.938] plan(): Setting new future strategy stack:
  [07:38:01.939] List of future strategies:
  [07:38:01.939] 1. sequential:
  [07:38:01.939]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.939]    - tweaked: FALSE
  [07:38:01.939]    - call: plan(strategy)
  [07:38:01.940] plan(): nbrOfWorkers() = 1
  [07:38:01.941] SequentialFuture started (and completed)
  [07:38:01.941] getGlobalsAndPackages() ...
  [07:38:01.941] Searching for globals...
  [07:38:01.942] 
  [07:38:01.943] Searching for globals ... DONE
  [07:38:01.943] - globals: [0] <none>
  [07:38:01.943] getGlobalsAndPackages() ... DONE
  [07:38:01.945] Packages needed by the future expression (n = 0): <none>
  [07:38:01.946] Packages needed by future strategies (n = 0): <none>
  [07:38:01.952] {
  [07:38:01.952]     {
  [07:38:01.952]         ...future.startTime <- base::Sys.time()
  [07:38:01.952]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.952]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.952]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.952]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.952]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.952]         {
  [07:38:01.952]             {
  [07:38:01.952]                 base::local({
  [07:38:01.952]                   has_future <- base::requireNamespace("future", 
  [07:38:01.952]                     quietly = TRUE)
  [07:38:01.952]                   version <- if (has_future) 
  [07:38:01.952]                     utils::packageVersion("future")
  [07:38:01.952]                   else NULL
  [07:38:01.952]                   if (!has_future || version < "1.8.0") {
  [07:38:01.952]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.952]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.952]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.952]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.952]                         "release", "version")], collapse = " "), 
  [07:38:01.952]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.952]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.952]                       info)
  [07:38:01.952]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.952]                     if (!has_future) {
  [07:38:01.952]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.952]                         info)
  [07:38:01.952]                     }
  [07:38:01.952]                     else {
  [07:38:01.952]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.952]                         info, version)
  [07:38:01.952]                     }
  [07:38:01.952]                     base::stop(msg)
  [07:38:01.952]                   }
  [07:38:01.952]                 })
  [07:38:01.952]             }
  [07:38:01.952]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.952]         }
  [07:38:01.952]     }
  [07:38:01.952]     if (base::is.na(TRUE)) {
  [07:38:01.952]     }
  [07:38:01.952]     else {
  [07:38:01.952]         if (TRUE) {
  [07:38:01.952]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.952]                 open = "w")
  [07:38:01.952]         }
  [07:38:01.952]         else {
  [07:38:01.952]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.952]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.952]         }
  [07:38:01.952]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.952]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.952]             base::sink(type = "output", split = FALSE)
  [07:38:01.952]             base::close(...future.stdout)
  [07:38:01.952]         }, add = TRUE)
  [07:38:01.952]     }
  [07:38:01.952]     ...future.frame <- base::sys.nframe()
  [07:38:01.952]     ...future.conditions <- base::list()
  [07:38:01.952]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.952]     ...future.result <- base::tryCatch({
  [07:38:01.952]         base::withCallingHandlers({
  [07:38:01.952]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:01.952]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.952]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.952]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.952]                 version = "1.8")
  [07:38:01.952]         }, condition = base::local({
  [07:38:01.952]             c <- base::c
  [07:38:01.952]             inherits <- base::inherits
  [07:38:01.952]             invokeRestart <- base::invokeRestart
  [07:38:01.952]             length <- base::length
  [07:38:01.952]             list <- base::list
  [07:38:01.952]             seq.int <- base::seq.int
  [07:38:01.952]             signalCondition <- base::signalCondition
  [07:38:01.952]             sys.calls <- base::sys.calls
  [07:38:01.952]             Sys.time <- base::Sys.time
  [07:38:01.952]             `[[` <- base::`[[`
  [07:38:01.952]             `+` <- base::`+`
  [07:38:01.952]             `<<-` <- base::`<<-`
  [07:38:01.952]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.952]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.952]                   3L)]
  [07:38:01.952]             }
  [07:38:01.952]             function(cond) {
  [07:38:01.952]                 if (inherits(cond, "error")) {
  [07:38:01.952]                   sessionInformation <- function() {
  [07:38:01.952]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.952]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.952]                       search = base::search(), system = base::Sys.info())
  [07:38:01.952]                   }
  [07:38:01.952]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.952]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.952]                     cond$call), session = sessionInformation(), 
  [07:38:01.952]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.952]                   signalCondition(cond)
  [07:38:01.952]                 }
  [07:38:01.952]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.952]                 ))) {
  [07:38:01.952]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.952]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.952]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.952]                   if (!signal) {
  [07:38:01.952]                     muffleCondition <- function (cond) 
  [07:38:01.952]                     {
  [07:38:01.952]                       inherits <- base::inherits
  [07:38:01.952]                       invokeRestart <- base::invokeRestart
  [07:38:01.952]                       muffled <- FALSE
  [07:38:01.952]                       if (inherits(cond, "message")) {
  [07:38:01.952]                         invokeRestart("muffleMessage")
  [07:38:01.952]                         muffled <- TRUE
  [07:38:01.952]                       }
  [07:38:01.952]                       else if (inherits(cond, "warning")) {
  [07:38:01.952]                         invokeRestart("muffleWarning")
  [07:38:01.952]                         muffled <- TRUE
  [07:38:01.952]                       }
  [07:38:01.952]                       else if (inherits(cond, "condition")) {
  [07:38:01.952]                         computeRestarts <- base::computeRestarts
  [07:38:01.952]                         grepl <- base::grepl
  [07:38:01.952]                         is.null <- base::is.null
  [07:38:01.952]                         restarts <- computeRestarts(cond)
  [07:38:01.952]                         for (restart in restarts) {
  [07:38:01.952]                           name <- restart$name
  [07:38:01.952]                           if (is.null(name)) 
  [07:38:01.952]                             next
  [07:38:01.952]                           if (!grepl("^muffle", name)) 
  [07:38:01.952]                             next
  [07:38:01.952]                           invokeRestart(restart)
  [07:38:01.952]                           muffled <- TRUE
  [07:38:01.952]                           break
  [07:38:01.952]                         }
  [07:38:01.952]                       }
  [07:38:01.952]                       invisible(muffled)
  [07:38:01.952]                     }
  [07:38:01.952]                     muffleCondition(cond)
  [07:38:01.952]                   }
  [07:38:01.952]                 }
  [07:38:01.952]             }
  [07:38:01.952]         }))
  [07:38:01.952]     }, error = function(ex) {
  [07:38:01.952]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.952]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.952]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.952]     }, finally = {
  [07:38:01.952]         {
  [07:38:01.952]             NULL
  [07:38:01.952]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.952]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.952]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:01.952]                 label = NULL, ...) 
  [07:38:01.952]             {
  [07:38:01.952]                 if (substitute) 
  [07:38:01.952]                   expr <- substitute(expr)
  [07:38:01.952]                 local <- as.logical(local)
  [07:38:01.952]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:01.952]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.952]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:01.952]                   label = label, ...)
  [07:38:01.952]                 if (!future$lazy) 
  [07:38:01.952]                   future <- run(future)
  [07:38:01.952]                 invisible(future)
  [07:38:01.952]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.952]         }
  [07:38:01.952]         base::options(...future.oldOptions)
  [07:38:01.952]     })
  [07:38:01.952]     Sys.time
  [07:38:01.952]     if (base::is.na(TRUE)) {
  [07:38:01.952]     }
  [07:38:01.952]     else {
  [07:38:01.952]         base::sink(type = "output", split = FALSE)
  [07:38:01.952]         if (TRUE) {
  [07:38:01.952]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.952]         }
  [07:38:01.952]         else {
  [07:38:01.952]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.952]         }
  [07:38:01.952]         base::close(...future.stdout)
  [07:38:01.952]         ...future.stdout <- NULL
  [07:38:01.952]     }
  [07:38:01.952]     ...future.result$conditions <- ...future.conditions
  [07:38:01.952]     ...future.result
  [07:38:01.952] }
  [07:38:01.957] plan(): Setting new future strategy stack:
  [07:38:01.958] List of future strategies:
  [07:38:01.958] 1. sequential:
  [07:38:01.958]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.958]    - tweaked: FALSE
  [07:38:01.958]    - call: NULL
  [07:38:01.959] plan(): nbrOfWorkers() = 1
  [07:38:01.960] plan(): Setting new future strategy stack:
  [07:38:01.960] List of future strategies:
  [07:38:01.960] 1. sequential:
  [07:38:01.960]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.960]    - tweaked: FALSE
  [07:38:01.960]    - call: plan(strategy)
  [07:38:01.962] plan(): nbrOfWorkers() = 1
  [07:38:01.962] SequentialFuture started (and completed)
  [07:38:01.963] getGlobalsAndPackages() ...
  [07:38:01.964] Searching for globals...
  [07:38:01.965] - globals found: [1] '{'
  [07:38:01.966] Searching for globals ... DONE
  [07:38:01.966] Resolving globals: FALSE
  [07:38:01.967] 
  [07:38:01.967] 
  [07:38:01.968] getGlobalsAndPackages() ... DONE
  [07:38:01.970] Packages needed by the future expression (n = 0): <none>
  [07:38:01.970] Packages needed by future strategies (n = 0): <none>
  [07:38:01.976] {
  [07:38:01.976]     {
  [07:38:01.976]         ...future.startTime <- base::Sys.time()
  [07:38:01.976]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:01.976]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:01.976]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:01.976]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:01.976]             future.resolve.recursive = NULL, width = 80L)
  [07:38:01.976]         {
  [07:38:01.976]             {
  [07:38:01.976]                 base::local({
  [07:38:01.976]                   has_future <- base::requireNamespace("future", 
  [07:38:01.976]                     quietly = TRUE)
  [07:38:01.976]                   version <- if (has_future) 
  [07:38:01.976]                     utils::packageVersion("future")
  [07:38:01.976]                   else NULL
  [07:38:01.976]                   if (!has_future || version < "1.8.0") {
  [07:38:01.976]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:01.976]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:01.976]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:01.976]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:01.976]                         "release", "version")], collapse = " "), 
  [07:38:01.976]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:01.976]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:01.976]                       info)
  [07:38:01.976]                     info <- base::paste(info, collapse = "; ")
  [07:38:01.976]                     if (!has_future) {
  [07:38:01.976]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:01.976]                         info)
  [07:38:01.976]                     }
  [07:38:01.976]                     else {
  [07:38:01.976]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:01.976]                         info, version)
  [07:38:01.976]                     }
  [07:38:01.976]                     base::stop(msg)
  [07:38:01.976]                   }
  [07:38:01.976]                 })
  [07:38:01.976]             }
  [07:38:01.976]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:01.976]         }
  [07:38:01.976]     }
  [07:38:01.976]     if (base::is.na(TRUE)) {
  [07:38:01.976]     }
  [07:38:01.976]     else {
  [07:38:01.976]         if (TRUE) {
  [07:38:01.976]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:01.976]                 open = "w")
  [07:38:01.976]         }
  [07:38:01.976]         else {
  [07:38:01.976]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:01.976]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:01.976]         }
  [07:38:01.976]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:01.976]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:01.976]             base::sink(type = "output", split = FALSE)
  [07:38:01.976]             base::close(...future.stdout)
  [07:38:01.976]         }, add = TRUE)
  [07:38:01.976]     }
  [07:38:01.976]     ...future.frame <- base::sys.nframe()
  [07:38:01.976]     ...future.conditions <- base::list()
  [07:38:01.976]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:01.976]     ...future.result <- base::tryCatch({
  [07:38:01.976]         base::withCallingHandlers({
  [07:38:01.976]             ...future.value <- base::withVisible(base::local({
  [07:38:01.976]                 4
  [07:38:01.976]             }))
  [07:38:01.976]             future::FutureResult(value = ...future.value$value, 
  [07:38:01.976]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.976]                   ...future.rng), started = ...future.startTime, 
  [07:38:01.976]                 version = "1.8")
  [07:38:01.976]         }, condition = base::local({
  [07:38:01.976]             c <- base::c
  [07:38:01.976]             inherits <- base::inherits
  [07:38:01.976]             invokeRestart <- base::invokeRestart
  [07:38:01.976]             length <- base::length
  [07:38:01.976]             list <- base::list
  [07:38:01.976]             seq.int <- base::seq.int
  [07:38:01.976]             signalCondition <- base::signalCondition
  [07:38:01.976]             sys.calls <- base::sys.calls
  [07:38:01.976]             Sys.time <- base::Sys.time
  [07:38:01.976]             `[[` <- base::`[[`
  [07:38:01.976]             `+` <- base::`+`
  [07:38:01.976]             `<<-` <- base::`<<-`
  [07:38:01.976]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:01.976]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:01.976]                   3L)]
  [07:38:01.976]             }
  [07:38:01.976]             function(cond) {
  [07:38:01.976]                 if (inherits(cond, "error")) {
  [07:38:01.976]                   sessionInformation <- function() {
  [07:38:01.976]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:01.976]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:01.976]                       search = base::search(), system = base::Sys.info())
  [07:38:01.976]                   }
  [07:38:01.976]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.976]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:01.976]                     cond$call), session = sessionInformation(), 
  [07:38:01.976]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:01.976]                   signalCondition(cond)
  [07:38:01.976]                 }
  [07:38:01.976]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:01.976]                 ))) {
  [07:38:01.976]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:01.976]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:01.976]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:01.976]                   if (!signal) {
  [07:38:01.976]                     muffleCondition <- function (cond) 
  [07:38:01.976]                     {
  [07:38:01.976]                       inherits <- base::inherits
  [07:38:01.976]                       invokeRestart <- base::invokeRestart
  [07:38:01.976]                       muffled <- FALSE
  [07:38:01.976]                       if (inherits(cond, "message")) {
  [07:38:01.976]                         invokeRestart("muffleMessage")
  [07:38:01.976]                         muffled <- TRUE
  [07:38:01.976]                       }
  [07:38:01.976]                       else if (inherits(cond, "warning")) {
  [07:38:01.976]                         invokeRestart("muffleWarning")
  [07:38:01.976]                         muffled <- TRUE
  [07:38:01.976]                       }
  [07:38:01.976]                       else if (inherits(cond, "condition")) {
  [07:38:01.976]                         computeRestarts <- base::computeRestarts
  [07:38:01.976]                         grepl <- base::grepl
  [07:38:01.976]                         is.null <- base::is.null
  [07:38:01.976]                         restarts <- computeRestarts(cond)
  [07:38:01.976]                         for (restart in restarts) {
  [07:38:01.976]                           name <- restart$name
  [07:38:01.976]                           if (is.null(name)) 
  [07:38:01.976]                             next
  [07:38:01.976]                           if (!grepl("^muffle", name)) 
  [07:38:01.976]                             next
  [07:38:01.976]                           invokeRestart(restart)
  [07:38:01.976]                           muffled <- TRUE
  [07:38:01.976]                           break
  [07:38:01.976]                         }
  [07:38:01.976]                       }
  [07:38:01.976]                       invisible(muffled)
  [07:38:01.976]                     }
  [07:38:01.976]                     muffleCondition(cond)
  [07:38:01.976]                   }
  [07:38:01.976]                 }
  [07:38:01.976]             }
  [07:38:01.976]         }))
  [07:38:01.976]     }, error = function(ex) {
  [07:38:01.976]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:01.976]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:01.976]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:01.976]     }, finally = {
  [07:38:01.976]         {
  [07:38:01.976]             NULL
  [07:38:01.976]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:01.976]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:01.976]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:01.976]                 label = NULL, ...) 
  [07:38:01.976]             {
  [07:38:01.976]                 if (substitute) 
  [07:38:01.976]                   expr <- substitute(expr)
  [07:38:01.976]                 local <- as.logical(local)
  [07:38:01.976]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:01.976]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:01.976]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:01.976]                   label = label, ...)
  [07:38:01.976]                 if (!future$lazy) 
  [07:38:01.976]                   future <- run(future)
  [07:38:01.976]                 invisible(future)
  [07:38:01.976]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:01.976]         }
  [07:38:01.976]         base::options(...future.oldOptions)
  [07:38:01.976]     })
  [07:38:01.976]     Sys.time
  [07:38:01.976]     if (base::is.na(TRUE)) {
  [07:38:01.976]     }
  [07:38:01.976]     else {
  [07:38:01.976]         base::sink(type = "output", split = FALSE)
  [07:38:01.976]         if (TRUE) {
  [07:38:01.976]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:01.976]         }
  [07:38:01.976]         else {
  [07:38:01.976]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:01.976]         }
  [07:38:01.976]         base::close(...future.stdout)
  [07:38:01.976]         ...future.stdout <- NULL
  [07:38:01.976]     }
  [07:38:01.976]     ...future.result$conditions <- ...future.conditions
  [07:38:01.976]     ...future.result
  [07:38:01.976] }
  [07:38:01.982] plan(): Setting new future strategy stack:
  [07:38:01.982] List of future strategies:
  [07:38:01.982] 1. sequential:
  [07:38:01.982]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.982]    - tweaked: FALSE
  [07:38:01.982]    - call: NULL
  [07:38:01.983] plan(): nbrOfWorkers() = 1
  [07:38:01.984] plan(): Setting new future strategy stack:
  [07:38:01.985] List of future strategies:
  [07:38:01.985] 1. sequential:
  [07:38:01.985]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:01.985]    - tweaked: FALSE
  [07:38:01.985]    - call: plan(strategy)
  [07:38:01.986] plan(): nbrOfWorkers() = 1
  [07:38:01.987] SequentialFuture started (and completed)
  <environment: 0x5576d50ac628> 
  <environment: 0x5576d67e5c50> 
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:01.996] resolve() on environment ...
  [07:38:01.997]  recursive: 0
  [07:38:01.998]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:01.999] signalConditionsASAP(numeric, pos=1) ...
  [07:38:01.999] - nx: 4
  [07:38:02.000] - relay: TRUE
  [07:38:02.000] - stdout: TRUE
  [07:38:02.000] - signal: TRUE
  [07:38:02.000] - resignal: FALSE
  [07:38:02.001] - force: TRUE
  [07:38:02.001] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.001] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.002]  - until=2
  [07:38:02.002]  - relaying element #2
  [07:38:02.003] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.003] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.003] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:02.004]  length: 3 (resolved future 1)
  [07:38:02.004] Future #2
  [07:38:02.004] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:02.005] - nx: 4
  [07:38:02.005] - relay: TRUE
  [07:38:02.005] - stdout: TRUE
  [07:38:02.006] - signal: TRUE
  [07:38:02.006] - resignal: FALSE
  [07:38:02.006] - force: TRUE
  [07:38:02.007] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.007] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.007]  - until=2
  [07:38:02.008]  - relaying element #2
  [07:38:02.008] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.009] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.009] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:02.009]  length: 2 (resolved future 2)
  [07:38:02.010] Future #3
  [07:38:02.010] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:02.011] - nx: 4
  [07:38:02.011] - relay: TRUE
  [07:38:02.011] - stdout: TRUE
  [07:38:02.012] - signal: TRUE
  [07:38:02.012] - resignal: FALSE
  [07:38:02.012] - force: TRUE
  [07:38:02.013] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.013] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.013]  - until=3
  [07:38:02.014]  - relaying element #3
  [07:38:02.014] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.015] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.015] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:02.015]  length: 1 (resolved future 3)
  [07:38:02.016] Future #4
  [07:38:02.016] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:02.017] - nx: 4
  [07:38:02.017] - relay: TRUE
  [07:38:02.017] - stdout: TRUE
  [07:38:02.017] - signal: TRUE
  [07:38:02.018] - resignal: FALSE
  [07:38:02.018] - force: TRUE
  [07:38:02.018] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.019] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.019]  - until=4
  [07:38:02.019]  - relaying element #4
  [07:38:02.020] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.020] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.021] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:02.021]  length: 0 (resolved future 4)
  [07:38:02.022] Relaying remaining futures
  [07:38:02.022] signalConditionsASAP(NULL, pos=0) ...
  [07:38:02.022] - nx: 4
  [07:38:02.023] - relay: TRUE
  [07:38:02.023] - stdout: TRUE
  [07:38:02.023] - signal: TRUE
  [07:38:02.023] - resignal: FALSE
  [07:38:02.024] - force: TRUE
  [07:38:02.024] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.024] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:02.025] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.025] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.026] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:02.026] resolve() on environment ... DONE
  <environment: 0x5576d4c816b0> 
  Dimensions: c(2, 3)
  [07:38:02.028] getGlobalsAndPackages() ...
  [07:38:02.028] Searching for globals...
  [07:38:02.029] 
  [07:38:02.029] Searching for globals ... DONE
  [07:38:02.030] - globals: [0] <none>
  [07:38:02.030] getGlobalsAndPackages() ... DONE
  [07:38:02.032] Packages needed by the future expression (n = 0): <none>
  [07:38:02.033] Packages needed by future strategies (n = 0): <none>
  [07:38:02.039] {
  [07:38:02.039]     {
  [07:38:02.039]         ...future.startTime <- base::Sys.time()
  [07:38:02.039]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.039]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.039]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.039]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.039]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.039]         {
  [07:38:02.039]             {
  [07:38:02.039]                 base::local({
  [07:38:02.039]                   has_future <- base::requireNamespace("future", 
  [07:38:02.039]                     quietly = TRUE)
  [07:38:02.039]                   version <- if (has_future) 
  [07:38:02.039]                     utils::packageVersion("future")
  [07:38:02.039]                   else NULL
  [07:38:02.039]                   if (!has_future || version < "1.8.0") {
  [07:38:02.039]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.039]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.039]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.039]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.039]                         "release", "version")], collapse = " "), 
  [07:38:02.039]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.039]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.039]                       info)
  [07:38:02.039]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.039]                     if (!has_future) {
  [07:38:02.039]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.039]                         info)
  [07:38:02.039]                     }
  [07:38:02.039]                     else {
  [07:38:02.039]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.039]                         info, version)
  [07:38:02.039]                     }
  [07:38:02.039]                     base::stop(msg)
  [07:38:02.039]                   }
  [07:38:02.039]                 })
  [07:38:02.039]             }
  [07:38:02.039]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.039]         }
  [07:38:02.039]     }
  [07:38:02.039]     if (base::is.na(TRUE)) {
  [07:38:02.039]     }
  [07:38:02.039]     else {
  [07:38:02.039]         if (TRUE) {
  [07:38:02.039]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.039]                 open = "w")
  [07:38:02.039]         }
  [07:38:02.039]         else {
  [07:38:02.039]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.039]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.039]         }
  [07:38:02.039]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.039]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.039]             base::sink(type = "output", split = FALSE)
  [07:38:02.039]             base::close(...future.stdout)
  [07:38:02.039]         }, add = TRUE)
  [07:38:02.039]     }
  [07:38:02.039]     ...future.frame <- base::sys.nframe()
  [07:38:02.039]     ...future.conditions <- base::list()
  [07:38:02.039]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.039]     ...future.result <- base::tryCatch({
  [07:38:02.039]         base::withCallingHandlers({
  [07:38:02.039]             ...future.value <- base::withVisible(base::local(2))
  [07:38:02.039]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.039]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.039]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.039]                 version = "1.8")
  [07:38:02.039]         }, condition = base::local({
  [07:38:02.039]             c <- base::c
  [07:38:02.039]             inherits <- base::inherits
  [07:38:02.039]             invokeRestart <- base::invokeRestart
  [07:38:02.039]             length <- base::length
  [07:38:02.039]             list <- base::list
  [07:38:02.039]             seq.int <- base::seq.int
  [07:38:02.039]             signalCondition <- base::signalCondition
  [07:38:02.039]             sys.calls <- base::sys.calls
  [07:38:02.039]             Sys.time <- base::Sys.time
  [07:38:02.039]             `[[` <- base::`[[`
  [07:38:02.039]             `+` <- base::`+`
  [07:38:02.039]             `<<-` <- base::`<<-`
  [07:38:02.039]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.039]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.039]                   3L)]
  [07:38:02.039]             }
  [07:38:02.039]             function(cond) {
  [07:38:02.039]                 if (inherits(cond, "error")) {
  [07:38:02.039]                   sessionInformation <- function() {
  [07:38:02.039]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.039]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.039]                       search = base::search(), system = base::Sys.info())
  [07:38:02.039]                   }
  [07:38:02.039]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.039]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.039]                     cond$call), session = sessionInformation(), 
  [07:38:02.039]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.039]                   signalCondition(cond)
  [07:38:02.039]                 }
  [07:38:02.039]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.039]                 ))) {
  [07:38:02.039]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.039]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.039]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.039]                   if (!signal) {
  [07:38:02.039]                     muffleCondition <- function (cond) 
  [07:38:02.039]                     {
  [07:38:02.039]                       inherits <- base::inherits
  [07:38:02.039]                       invokeRestart <- base::invokeRestart
  [07:38:02.039]                       muffled <- FALSE
  [07:38:02.039]                       if (inherits(cond, "message")) {
  [07:38:02.039]                         invokeRestart("muffleMessage")
  [07:38:02.039]                         muffled <- TRUE
  [07:38:02.039]                       }
  [07:38:02.039]                       else if (inherits(cond, "warning")) {
  [07:38:02.039]                         invokeRestart("muffleWarning")
  [07:38:02.039]                         muffled <- TRUE
  [07:38:02.039]                       }
  [07:38:02.039]                       else if (inherits(cond, "condition")) {
  [07:38:02.039]                         computeRestarts <- base::computeRestarts
  [07:38:02.039]                         grepl <- base::grepl
  [07:38:02.039]                         is.null <- base::is.null
  [07:38:02.039]                         restarts <- computeRestarts(cond)
  [07:38:02.039]                         for (restart in restarts) {
  [07:38:02.039]                           name <- restart$name
  [07:38:02.039]                           if (is.null(name)) 
  [07:38:02.039]                             next
  [07:38:02.039]                           if (!grepl("^muffle", name)) 
  [07:38:02.039]                             next
  [07:38:02.039]                           invokeRestart(restart)
  [07:38:02.039]                           muffled <- TRUE
  [07:38:02.039]                           break
  [07:38:02.039]                         }
  [07:38:02.039]                       }
  [07:38:02.039]                       invisible(muffled)
  [07:38:02.039]                     }
  [07:38:02.039]                     muffleCondition(cond)
  [07:38:02.039]                   }
  [07:38:02.039]                 }
  [07:38:02.039]             }
  [07:38:02.039]         }))
  [07:38:02.039]     }, error = function(ex) {
  [07:38:02.039]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.039]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.039]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.039]     }, finally = {
  [07:38:02.039]         {
  [07:38:02.039]             NULL
  [07:38:02.039]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.039]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.039]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.039]                 label = NULL, ...) 
  [07:38:02.039]             {
  [07:38:02.039]                 if (substitute) 
  [07:38:02.039]                   expr <- substitute(expr)
  [07:38:02.039]                 local <- as.logical(local)
  [07:38:02.039]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.039]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.039]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.039]                   label = label, ...)
  [07:38:02.039]                 if (!future$lazy) 
  [07:38:02.039]                   future <- run(future)
  [07:38:02.039]                 invisible(future)
  [07:38:02.039]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.039]         }
  [07:38:02.039]         base::options(...future.oldOptions)
  [07:38:02.039]     })
  [07:38:02.039]     Sys.time
  [07:38:02.039]     if (base::is.na(TRUE)) {
  [07:38:02.039]     }
  [07:38:02.039]     else {
  [07:38:02.039]         base::sink(type = "output", split = FALSE)
  [07:38:02.039]         if (TRUE) {
  [07:38:02.039]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.039]         }
  [07:38:02.039]         else {
  [07:38:02.039]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.039]         }
  [07:38:02.039]         base::close(...future.stdout)
  [07:38:02.039]         ...future.stdout <- NULL
  [07:38:02.039]     }
  [07:38:02.039]     ...future.result$conditions <- ...future.conditions
  [07:38:02.039]     ...future.result
  [07:38:02.039] }
  [07:38:02.044] plan(): Setting new future strategy stack:
  [07:38:02.044] List of future strategies:
  [07:38:02.044] 1. sequential:
  [07:38:02.044]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.044]    - tweaked: FALSE
  [07:38:02.044]    - call: NULL
  [07:38:02.046] plan(): nbrOfWorkers() = 1
  [07:38:02.047] plan(): Setting new future strategy stack:
  [07:38:02.047] List of future strategies:
  [07:38:02.047] 1. sequential:
  [07:38:02.047]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.047]    - tweaked: FALSE
  [07:38:02.047]    - call: plan(strategy)
  [07:38:02.049] plan(): nbrOfWorkers() = 1
  [07:38:02.049] SequentialFuture started (and completed)
  [07:38:02.050] getGlobalsAndPackages() ...
  [07:38:02.050] Searching for globals...
  [07:38:02.051] 
  [07:38:02.051] Searching for globals ... DONE
  [07:38:02.052] - globals: [0] <none>
  [07:38:02.052] getGlobalsAndPackages() ... DONE
  [07:38:02.054] Packages needed by the future expression (n = 0): <none>
  [07:38:02.055] Packages needed by future strategies (n = 0): <none>
  [07:38:02.061] {
  [07:38:02.061]     {
  [07:38:02.061]         ...future.startTime <- base::Sys.time()
  [07:38:02.061]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.061]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.061]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.061]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.061]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.061]         {
  [07:38:02.061]             {
  [07:38:02.061]                 base::local({
  [07:38:02.061]                   has_future <- base::requireNamespace("future", 
  [07:38:02.061]                     quietly = TRUE)
  [07:38:02.061]                   version <- if (has_future) 
  [07:38:02.061]                     utils::packageVersion("future")
  [07:38:02.061]                   else NULL
  [07:38:02.061]                   if (!has_future || version < "1.8.0") {
  [07:38:02.061]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.061]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.061]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.061]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.061]                         "release", "version")], collapse = " "), 
  [07:38:02.061]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.061]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.061]                       info)
  [07:38:02.061]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.061]                     if (!has_future) {
  [07:38:02.061]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.061]                         info)
  [07:38:02.061]                     }
  [07:38:02.061]                     else {
  [07:38:02.061]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.061]                         info, version)
  [07:38:02.061]                     }
  [07:38:02.061]                     base::stop(msg)
  [07:38:02.061]                   }
  [07:38:02.061]                 })
  [07:38:02.061]             }
  [07:38:02.061]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.061]         }
  [07:38:02.061]     }
  [07:38:02.061]     if (base::is.na(TRUE)) {
  [07:38:02.061]     }
  [07:38:02.061]     else {
  [07:38:02.061]         if (TRUE) {
  [07:38:02.061]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.061]                 open = "w")
  [07:38:02.061]         }
  [07:38:02.061]         else {
  [07:38:02.061]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.061]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.061]         }
  [07:38:02.061]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.061]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.061]             base::sink(type = "output", split = FALSE)
  [07:38:02.061]             base::close(...future.stdout)
  [07:38:02.061]         }, add = TRUE)
  [07:38:02.061]     }
  [07:38:02.061]     ...future.frame <- base::sys.nframe()
  [07:38:02.061]     ...future.conditions <- base::list()
  [07:38:02.061]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.061]     ...future.result <- base::tryCatch({
  [07:38:02.061]         base::withCallingHandlers({
  [07:38:02.061]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:02.061]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.061]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.061]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.061]                 version = "1.8")
  [07:38:02.061]         }, condition = base::local({
  [07:38:02.061]             c <- base::c
  [07:38:02.061]             inherits <- base::inherits
  [07:38:02.061]             invokeRestart <- base::invokeRestart
  [07:38:02.061]             length <- base::length
  [07:38:02.061]             list <- base::list
  [07:38:02.061]             seq.int <- base::seq.int
  [07:38:02.061]             signalCondition <- base::signalCondition
  [07:38:02.061]             sys.calls <- base::sys.calls
  [07:38:02.061]             Sys.time <- base::Sys.time
  [07:38:02.061]             `[[` <- base::`[[`
  [07:38:02.061]             `+` <- base::`+`
  [07:38:02.061]             `<<-` <- base::`<<-`
  [07:38:02.061]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.061]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.061]                   3L)]
  [07:38:02.061]             }
  [07:38:02.061]             function(cond) {
  [07:38:02.061]                 if (inherits(cond, "error")) {
  [07:38:02.061]                   sessionInformation <- function() {
  [07:38:02.061]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.061]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.061]                       search = base::search(), system = base::Sys.info())
  [07:38:02.061]                   }
  [07:38:02.061]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.061]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.061]                     cond$call), session = sessionInformation(), 
  [07:38:02.061]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.061]                   signalCondition(cond)
  [07:38:02.061]                 }
  [07:38:02.061]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.061]                 ))) {
  [07:38:02.061]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.061]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.061]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.061]                   if (!signal) {
  [07:38:02.061]                     muffleCondition <- function (cond) 
  [07:38:02.061]                     {
  [07:38:02.061]                       inherits <- base::inherits
  [07:38:02.061]                       invokeRestart <- base::invokeRestart
  [07:38:02.061]                       muffled <- FALSE
  [07:38:02.061]                       if (inherits(cond, "message")) {
  [07:38:02.061]                         invokeRestart("muffleMessage")
  [07:38:02.061]                         muffled <- TRUE
  [07:38:02.061]                       }
  [07:38:02.061]                       else if (inherits(cond, "warning")) {
  [07:38:02.061]                         invokeRestart("muffleWarning")
  [07:38:02.061]                         muffled <- TRUE
  [07:38:02.061]                       }
  [07:38:02.061]                       else if (inherits(cond, "condition")) {
  [07:38:02.061]                         computeRestarts <- base::computeRestarts
  [07:38:02.061]                         grepl <- base::grepl
  [07:38:02.061]                         is.null <- base::is.null
  [07:38:02.061]                         restarts <- computeRestarts(cond)
  [07:38:02.061]                         for (restart in restarts) {
  [07:38:02.061]                           name <- restart$name
  [07:38:02.061]                           if (is.null(name)) 
  [07:38:02.061]                             next
  [07:38:02.061]                           if (!grepl("^muffle", name)) 
  [07:38:02.061]                             next
  [07:38:02.061]                           invokeRestart(restart)
  [07:38:02.061]                           muffled <- TRUE
  [07:38:02.061]                           break
  [07:38:02.061]                         }
  [07:38:02.061]                       }
  [07:38:02.061]                       invisible(muffled)
  [07:38:02.061]                     }
  [07:38:02.061]                     muffleCondition(cond)
  [07:38:02.061]                   }
  [07:38:02.061]                 }
  [07:38:02.061]             }
  [07:38:02.061]         }))
  [07:38:02.061]     }, error = function(ex) {
  [07:38:02.061]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.061]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.061]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.061]     }, finally = {
  [07:38:02.061]         {
  [07:38:02.061]             NULL
  [07:38:02.061]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.061]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.061]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.061]                 label = NULL, ...) 
  [07:38:02.061]             {
  [07:38:02.061]                 if (substitute) 
  [07:38:02.061]                   expr <- substitute(expr)
  [07:38:02.061]                 local <- as.logical(local)
  [07:38:02.061]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.061]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.061]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.061]                   label = label, ...)
  [07:38:02.061]                 if (!future$lazy) 
  [07:38:02.061]                   future <- run(future)
  [07:38:02.061]                 invisible(future)
  [07:38:02.061]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.061]         }
  [07:38:02.061]         base::options(...future.oldOptions)
  [07:38:02.061]     })
  [07:38:02.061]     Sys.time
  [07:38:02.061]     if (base::is.na(TRUE)) {
  [07:38:02.061]     }
  [07:38:02.061]     else {
  [07:38:02.061]         base::sink(type = "output", split = FALSE)
  [07:38:02.061]         if (TRUE) {
  [07:38:02.061]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.061]         }
  [07:38:02.061]         else {
  [07:38:02.061]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.061]         }
  [07:38:02.061]         base::close(...future.stdout)
  [07:38:02.061]         ...future.stdout <- NULL
  [07:38:02.061]     }
  [07:38:02.061]     ...future.result$conditions <- ...future.conditions
  [07:38:02.061]     ...future.result
  [07:38:02.061] }
  [07:38:02.066] plan(): Setting new future strategy stack:
  [07:38:02.067] List of future strategies:
  [07:38:02.067] 1. sequential:
  [07:38:02.067]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.067]    - tweaked: FALSE
  [07:38:02.067]    - call: NULL
  [07:38:02.068] plan(): nbrOfWorkers() = 1
  [07:38:02.069] plan(): Setting new future strategy stack:
  [07:38:02.070] List of future strategies:
  [07:38:02.070] 1. sequential:
  [07:38:02.070]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.070]    - tweaked: FALSE
  [07:38:02.070]    - call: plan(strategy)
  [07:38:02.071] plan(): nbrOfWorkers() = 1
  [07:38:02.075] SequentialFuture started (and completed)
  [07:38:02.076] getGlobalsAndPackages() ...
  [07:38:02.077] Searching for globals...
  [07:38:02.078] - globals found: [1] '{'
  [07:38:02.079] Searching for globals ... DONE
  [07:38:02.079] Resolving globals: FALSE
  [07:38:02.080] 
  [07:38:02.080] 
  [07:38:02.081] getGlobalsAndPackages() ... DONE
  [07:38:02.083] Packages needed by the future expression (n = 0): <none>
  [07:38:02.084] Packages needed by future strategies (n = 0): <none>
  [07:38:02.090] {
  [07:38:02.090]     {
  [07:38:02.090]         ...future.startTime <- base::Sys.time()
  [07:38:02.090]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.090]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.090]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.090]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.090]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.090]         {
  [07:38:02.090]             {
  [07:38:02.090]                 base::local({
  [07:38:02.090]                   has_future <- base::requireNamespace("future", 
  [07:38:02.090]                     quietly = TRUE)
  [07:38:02.090]                   version <- if (has_future) 
  [07:38:02.090]                     utils::packageVersion("future")
  [07:38:02.090]                   else NULL
  [07:38:02.090]                   if (!has_future || version < "1.8.0") {
  [07:38:02.090]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.090]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.090]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.090]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.090]                         "release", "version")], collapse = " "), 
  [07:38:02.090]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.090]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.090]                       info)
  [07:38:02.090]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.090]                     if (!has_future) {
  [07:38:02.090]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.090]                         info)
  [07:38:02.090]                     }
  [07:38:02.090]                     else {
  [07:38:02.090]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.090]                         info, version)
  [07:38:02.090]                     }
  [07:38:02.090]                     base::stop(msg)
  [07:38:02.090]                   }
  [07:38:02.090]                 })
  [07:38:02.090]             }
  [07:38:02.090]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.090]         }
  [07:38:02.090]     }
  [07:38:02.090]     if (base::is.na(TRUE)) {
  [07:38:02.090]     }
  [07:38:02.090]     else {
  [07:38:02.090]         if (TRUE) {
  [07:38:02.090]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.090]                 open = "w")
  [07:38:02.090]         }
  [07:38:02.090]         else {
  [07:38:02.090]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.090]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.090]         }
  [07:38:02.090]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.090]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.090]             base::sink(type = "output", split = FALSE)
  [07:38:02.090]             base::close(...future.stdout)
  [07:38:02.090]         }, add = TRUE)
  [07:38:02.090]     }
  [07:38:02.090]     ...future.frame <- base::sys.nframe()
  [07:38:02.090]     ...future.conditions <- base::list()
  [07:38:02.090]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.090]     ...future.result <- base::tryCatch({
  [07:38:02.090]         base::withCallingHandlers({
  [07:38:02.090]             ...future.value <- base::withVisible(base::local({
  [07:38:02.090]                 4
  [07:38:02.090]             }))
  [07:38:02.090]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.090]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.090]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.090]                 version = "1.8")
  [07:38:02.090]         }, condition = base::local({
  [07:38:02.090]             c <- base::c
  [07:38:02.090]             inherits <- base::inherits
  [07:38:02.090]             invokeRestart <- base::invokeRestart
  [07:38:02.090]             length <- base::length
  [07:38:02.090]             list <- base::list
  [07:38:02.090]             seq.int <- base::seq.int
  [07:38:02.090]             signalCondition <- base::signalCondition
  [07:38:02.090]             sys.calls <- base::sys.calls
  [07:38:02.090]             Sys.time <- base::Sys.time
  [07:38:02.090]             `[[` <- base::`[[`
  [07:38:02.090]             `+` <- base::`+`
  [07:38:02.090]             `<<-` <- base::`<<-`
  [07:38:02.090]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.090]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.090]                   3L)]
  [07:38:02.090]             }
  [07:38:02.090]             function(cond) {
  [07:38:02.090]                 if (inherits(cond, "error")) {
  [07:38:02.090]                   sessionInformation <- function() {
  [07:38:02.090]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.090]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.090]                       search = base::search(), system = base::Sys.info())
  [07:38:02.090]                   }
  [07:38:02.090]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.090]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.090]                     cond$call), session = sessionInformation(), 
  [07:38:02.090]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.090]                   signalCondition(cond)
  [07:38:02.090]                 }
  [07:38:02.090]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.090]                 ))) {
  [07:38:02.090]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.090]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.090]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.090]                   if (!signal) {
  [07:38:02.090]                     muffleCondition <- function (cond) 
  [07:38:02.090]                     {
  [07:38:02.090]                       inherits <- base::inherits
  [07:38:02.090]                       invokeRestart <- base::invokeRestart
  [07:38:02.090]                       muffled <- FALSE
  [07:38:02.090]                       if (inherits(cond, "message")) {
  [07:38:02.090]                         invokeRestart("muffleMessage")
  [07:38:02.090]                         muffled <- TRUE
  [07:38:02.090]                       }
  [07:38:02.090]                       else if (inherits(cond, "warning")) {
  [07:38:02.090]                         invokeRestart("muffleWarning")
  [07:38:02.090]                         muffled <- TRUE
  [07:38:02.090]                       }
  [07:38:02.090]                       else if (inherits(cond, "condition")) {
  [07:38:02.090]                         computeRestarts <- base::computeRestarts
  [07:38:02.090]                         grepl <- base::grepl
  [07:38:02.090]                         is.null <- base::is.null
  [07:38:02.090]                         restarts <- computeRestarts(cond)
  [07:38:02.090]                         for (restart in restarts) {
  [07:38:02.090]                           name <- restart$name
  [07:38:02.090]                           if (is.null(name)) 
  [07:38:02.090]                             next
  [07:38:02.090]                           if (!grepl("^muffle", name)) 
  [07:38:02.090]                             next
  [07:38:02.090]                           invokeRestart(restart)
  [07:38:02.090]                           muffled <- TRUE
  [07:38:02.090]                           break
  [07:38:02.090]                         }
  [07:38:02.090]                       }
  [07:38:02.090]                       invisible(muffled)
  [07:38:02.090]                     }
  [07:38:02.090]                     muffleCondition(cond)
  [07:38:02.090]                   }
  [07:38:02.090]                 }
  [07:38:02.090]             }
  [07:38:02.090]         }))
  [07:38:02.090]     }, error = function(ex) {
  [07:38:02.090]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.090]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.090]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.090]     }, finally = {
  [07:38:02.090]         {
  [07:38:02.090]             NULL
  [07:38:02.090]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.090]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.090]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.090]                 label = NULL, ...) 
  [07:38:02.090]             {
  [07:38:02.090]                 if (substitute) 
  [07:38:02.090]                   expr <- substitute(expr)
  [07:38:02.090]                 local <- as.logical(local)
  [07:38:02.090]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.090]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.090]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.090]                   label = label, ...)
  [07:38:02.090]                 if (!future$lazy) 
  [07:38:02.090]                   future <- run(future)
  [07:38:02.090]                 invisible(future)
  [07:38:02.090]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.090]         }
  [07:38:02.090]         base::options(...future.oldOptions)
  [07:38:02.090]     })
  [07:38:02.090]     Sys.time
  [07:38:02.090]     if (base::is.na(TRUE)) {
  [07:38:02.090]     }
  [07:38:02.090]     else {
  [07:38:02.090]         base::sink(type = "output", split = FALSE)
  [07:38:02.090]         if (TRUE) {
  [07:38:02.090]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.090]         }
  [07:38:02.090]         else {
  [07:38:02.090]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.090]         }
  [07:38:02.090]         base::close(...future.stdout)
  [07:38:02.090]         ...future.stdout <- NULL
  [07:38:02.090]     }
  [07:38:02.090]     ...future.result$conditions <- ...future.conditions
  [07:38:02.090]     ...future.result
  [07:38:02.090] }
  [07:38:02.095] plan(): Setting new future strategy stack:
  [07:38:02.096] List of future strategies:
  [07:38:02.096] 1. sequential:
  [07:38:02.096]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.096]    - tweaked: FALSE
  [07:38:02.096]    - call: NULL
  [07:38:02.097] plan(): nbrOfWorkers() = 1
  [07:38:02.099] plan(): Setting new future strategy stack:
  [07:38:02.100] List of future strategies:
  [07:38:02.100] 1. sequential:
  [07:38:02.100]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.100]    - tweaked: FALSE
  [07:38:02.100]    - call: plan(strategy)
  [07:38:02.101] plan(): nbrOfWorkers() = 1
  [07:38:02.102] SequentialFuture started (and completed)
  <environment: 0x5576d5bcf338> 
  <environment: 0x5576d416ed28> 
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:02.109] resolve() on environment ...
  [07:38:02.109]  recursive: 0
  [07:38:02.111]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:02.112] signalConditionsASAP(numeric, pos=1) ...
  [07:38:02.112] - nx: 4
  [07:38:02.112] - relay: TRUE
  [07:38:02.112] - stdout: TRUE
  [07:38:02.113] - signal: TRUE
  [07:38:02.113] - resignal: FALSE
  [07:38:02.113] - force: TRUE
  [07:38:02.114] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.114] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.115]  - until=2
  [07:38:02.115]  - relaying element #2
  [07:38:02.115] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.116] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.116] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:02.116]  length: 3 (resolved future 1)
  [07:38:02.117] Future #2
  [07:38:02.117] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:02.117] - nx: 4
  [07:38:02.118] - relay: TRUE
  [07:38:02.118] - stdout: TRUE
  [07:38:02.118] - signal: TRUE
  [07:38:02.119] - resignal: FALSE
  [07:38:02.119] - force: TRUE
  [07:38:02.119] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.120] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.120]  - until=2
  [07:38:02.121]  - relaying element #2
  [07:38:02.121] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.122] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.122] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:02.122]  length: 2 (resolved future 2)
  [07:38:02.123] Future #3
  [07:38:02.123] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:02.124] - nx: 4
  [07:38:02.124] - relay: TRUE
  [07:38:02.124] - stdout: TRUE
  [07:38:02.124] - signal: TRUE
  [07:38:02.125] - resignal: FALSE
  [07:38:02.125] - force: TRUE
  [07:38:02.125] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.126] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.126]  - until=3
  [07:38:02.127]  - relaying element #3
  [07:38:02.127] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.128] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.128] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:02.128]  length: 1 (resolved future 3)
  [07:38:02.129] Future #4
  [07:38:02.129] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:02.129] - nx: 4
  [07:38:02.130] - relay: TRUE
  [07:38:02.130] - stdout: TRUE
  [07:38:02.130] - signal: TRUE
  [07:38:02.131] - resignal: FALSE
  [07:38:02.131] - force: TRUE
  [07:38:02.131] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.132] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.132]  - until=4
  [07:38:02.132]  - relaying element #4
  [07:38:02.133] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.133] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.134] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:02.134]  length: 0 (resolved future 4)
  [07:38:02.135] Relaying remaining futures
  [07:38:02.135] signalConditionsASAP(NULL, pos=0) ...
  [07:38:02.135] - nx: 4
  [07:38:02.136] - relay: TRUE
  [07:38:02.136] - stdout: TRUE
  [07:38:02.136] - signal: TRUE
  [07:38:02.137] - resignal: FALSE
  [07:38:02.137] - force: TRUE
  [07:38:02.137] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.138] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:02.138] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.139] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.139] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:02.139] resolve() on environment ... DONE
  <environment: 0x5576d5b7bbe8> 
  Dimensions: c(2, 3, 1)
  [07:38:02.141] getGlobalsAndPackages() ...
  [07:38:02.141] Searching for globals...
  [07:38:02.142] 
  [07:38:02.143] Searching for globals ... DONE
  [07:38:02.143] - globals: [0] <none>
  [07:38:02.143] getGlobalsAndPackages() ... DONE
  [07:38:02.146] Packages needed by the future expression (n = 0): <none>
  [07:38:02.146] Packages needed by future strategies (n = 0): <none>
  [07:38:02.152] {
  [07:38:02.152]     {
  [07:38:02.152]         ...future.startTime <- base::Sys.time()
  [07:38:02.152]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.152]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.152]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.152]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.152]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.152]         {
  [07:38:02.152]             {
  [07:38:02.152]                 base::local({
  [07:38:02.152]                   has_future <- base::requireNamespace("future", 
  [07:38:02.152]                     quietly = TRUE)
  [07:38:02.152]                   version <- if (has_future) 
  [07:38:02.152]                     utils::packageVersion("future")
  [07:38:02.152]                   else NULL
  [07:38:02.152]                   if (!has_future || version < "1.8.0") {
  [07:38:02.152]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.152]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.152]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.152]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.152]                         "release", "version")], collapse = " "), 
  [07:38:02.152]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.152]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.152]                       info)
  [07:38:02.152]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.152]                     if (!has_future) {
  [07:38:02.152]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.152]                         info)
  [07:38:02.152]                     }
  [07:38:02.152]                     else {
  [07:38:02.152]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.152]                         info, version)
  [07:38:02.152]                     }
  [07:38:02.152]                     base::stop(msg)
  [07:38:02.152]                   }
  [07:38:02.152]                 })
  [07:38:02.152]             }
  [07:38:02.152]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.152]         }
  [07:38:02.152]     }
  [07:38:02.152]     if (base::is.na(TRUE)) {
  [07:38:02.152]     }
  [07:38:02.152]     else {
  [07:38:02.152]         if (TRUE) {
  [07:38:02.152]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.152]                 open = "w")
  [07:38:02.152]         }
  [07:38:02.152]         else {
  [07:38:02.152]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.152]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.152]         }
  [07:38:02.152]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.152]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.152]             base::sink(type = "output", split = FALSE)
  [07:38:02.152]             base::close(...future.stdout)
  [07:38:02.152]         }, add = TRUE)
  [07:38:02.152]     }
  [07:38:02.152]     ...future.frame <- base::sys.nframe()
  [07:38:02.152]     ...future.conditions <- base::list()
  [07:38:02.152]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.152]     ...future.result <- base::tryCatch({
  [07:38:02.152]         base::withCallingHandlers({
  [07:38:02.152]             ...future.value <- base::withVisible(base::local(2))
  [07:38:02.152]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.152]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.152]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.152]                 version = "1.8")
  [07:38:02.152]         }, condition = base::local({
  [07:38:02.152]             c <- base::c
  [07:38:02.152]             inherits <- base::inherits
  [07:38:02.152]             invokeRestart <- base::invokeRestart
  [07:38:02.152]             length <- base::length
  [07:38:02.152]             list <- base::list
  [07:38:02.152]             seq.int <- base::seq.int
  [07:38:02.152]             signalCondition <- base::signalCondition
  [07:38:02.152]             sys.calls <- base::sys.calls
  [07:38:02.152]             Sys.time <- base::Sys.time
  [07:38:02.152]             `[[` <- base::`[[`
  [07:38:02.152]             `+` <- base::`+`
  [07:38:02.152]             `<<-` <- base::`<<-`
  [07:38:02.152]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.152]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.152]                   3L)]
  [07:38:02.152]             }
  [07:38:02.152]             function(cond) {
  [07:38:02.152]                 if (inherits(cond, "error")) {
  [07:38:02.152]                   sessionInformation <- function() {
  [07:38:02.152]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.152]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.152]                       search = base::search(), system = base::Sys.info())
  [07:38:02.152]                   }
  [07:38:02.152]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.152]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.152]                     cond$call), session = sessionInformation(), 
  [07:38:02.152]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.152]                   signalCondition(cond)
  [07:38:02.152]                 }
  [07:38:02.152]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.152]                 ))) {
  [07:38:02.152]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.152]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.152]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.152]                   if (!signal) {
  [07:38:02.152]                     muffleCondition <- function (cond) 
  [07:38:02.152]                     {
  [07:38:02.152]                       inherits <- base::inherits
  [07:38:02.152]                       invokeRestart <- base::invokeRestart
  [07:38:02.152]                       muffled <- FALSE
  [07:38:02.152]                       if (inherits(cond, "message")) {
  [07:38:02.152]                         invokeRestart("muffleMessage")
  [07:38:02.152]                         muffled <- TRUE
  [07:38:02.152]                       }
  [07:38:02.152]                       else if (inherits(cond, "warning")) {
  [07:38:02.152]                         invokeRestart("muffleWarning")
  [07:38:02.152]                         muffled <- TRUE
  [07:38:02.152]                       }
  [07:38:02.152]                       else if (inherits(cond, "condition")) {
  [07:38:02.152]                         computeRestarts <- base::computeRestarts
  [07:38:02.152]                         grepl <- base::grepl
  [07:38:02.152]                         is.null <- base::is.null
  [07:38:02.152]                         restarts <- computeRestarts(cond)
  [07:38:02.152]                         for (restart in restarts) {
  [07:38:02.152]                           name <- restart$name
  [07:38:02.152]                           if (is.null(name)) 
  [07:38:02.152]                             next
  [07:38:02.152]                           if (!grepl("^muffle", name)) 
  [07:38:02.152]                             next
  [07:38:02.152]                           invokeRestart(restart)
  [07:38:02.152]                           muffled <- TRUE
  [07:38:02.152]                           break
  [07:38:02.152]                         }
  [07:38:02.152]                       }
  [07:38:02.152]                       invisible(muffled)
  [07:38:02.152]                     }
  [07:38:02.152]                     muffleCondition(cond)
  [07:38:02.152]                   }
  [07:38:02.152]                 }
  [07:38:02.152]             }
  [07:38:02.152]         }))
  [07:38:02.152]     }, error = function(ex) {
  [07:38:02.152]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.152]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.152]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.152]     }, finally = {
  [07:38:02.152]         {
  [07:38:02.152]             NULL
  [07:38:02.152]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.152]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.152]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.152]                 label = NULL, ...) 
  [07:38:02.152]             {
  [07:38:02.152]                 if (substitute) 
  [07:38:02.152]                   expr <- substitute(expr)
  [07:38:02.152]                 local <- as.logical(local)
  [07:38:02.152]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.152]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.152]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.152]                   label = label, ...)
  [07:38:02.152]                 if (!future$lazy) 
  [07:38:02.152]                   future <- run(future)
  [07:38:02.152]                 invisible(future)
  [07:38:02.152]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.152]         }
  [07:38:02.152]         base::options(...future.oldOptions)
  [07:38:02.152]     })
  [07:38:02.152]     Sys.time
  [07:38:02.152]     if (base::is.na(TRUE)) {
  [07:38:02.152]     }
  [07:38:02.152]     else {
  [07:38:02.152]         base::sink(type = "output", split = FALSE)
  [07:38:02.152]         if (TRUE) {
  [07:38:02.152]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.152]         }
  [07:38:02.152]         else {
  [07:38:02.152]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.152]         }
  [07:38:02.152]         base::close(...future.stdout)
  [07:38:02.152]         ...future.stdout <- NULL
  [07:38:02.152]     }
  [07:38:02.152]     ...future.result$conditions <- ...future.conditions
  [07:38:02.152]     ...future.result
  [07:38:02.152] }
  [07:38:02.160] plan(): Setting new future strategy stack:
  [07:38:02.160] List of future strategies:
  [07:38:02.160] 1. sequential:
  [07:38:02.160]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.160]    - tweaked: FALSE
  [07:38:02.160]    - call: NULL
  [07:38:02.162] plan(): nbrOfWorkers() = 1
  [07:38:02.163] plan(): Setting new future strategy stack:
  [07:38:02.164] List of future strategies:
  [07:38:02.164] 1. sequential:
  [07:38:02.164]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.164]    - tweaked: FALSE
  [07:38:02.164]    - call: plan(strategy)
  [07:38:02.165] plan(): nbrOfWorkers() = 1
  [07:38:02.165] SequentialFuture started (and completed)
  [07:38:02.166] getGlobalsAndPackages() ...
  [07:38:02.166] Searching for globals...
  [07:38:02.167] 
  [07:38:02.168] Searching for globals ... DONE
  [07:38:02.168] - globals: [0] <none>
  [07:38:02.168] getGlobalsAndPackages() ... DONE
  [07:38:02.171] Packages needed by the future expression (n = 0): <none>
  [07:38:02.171] Packages needed by future strategies (n = 0): <none>
  [07:38:02.177] {
  [07:38:02.177]     {
  [07:38:02.177]         ...future.startTime <- base::Sys.time()
  [07:38:02.177]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.177]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.177]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.177]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.177]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.177]         {
  [07:38:02.177]             {
  [07:38:02.177]                 base::local({
  [07:38:02.177]                   has_future <- base::requireNamespace("future", 
  [07:38:02.177]                     quietly = TRUE)
  [07:38:02.177]                   version <- if (has_future) 
  [07:38:02.177]                     utils::packageVersion("future")
  [07:38:02.177]                   else NULL
  [07:38:02.177]                   if (!has_future || version < "1.8.0") {
  [07:38:02.177]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.177]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.177]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.177]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.177]                         "release", "version")], collapse = " "), 
  [07:38:02.177]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.177]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.177]                       info)
  [07:38:02.177]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.177]                     if (!has_future) {
  [07:38:02.177]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.177]                         info)
  [07:38:02.177]                     }
  [07:38:02.177]                     else {
  [07:38:02.177]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.177]                         info, version)
  [07:38:02.177]                     }
  [07:38:02.177]                     base::stop(msg)
  [07:38:02.177]                   }
  [07:38:02.177]                 })
  [07:38:02.177]             }
  [07:38:02.177]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.177]         }
  [07:38:02.177]     }
  [07:38:02.177]     if (base::is.na(TRUE)) {
  [07:38:02.177]     }
  [07:38:02.177]     else {
  [07:38:02.177]         if (TRUE) {
  [07:38:02.177]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.177]                 open = "w")
  [07:38:02.177]         }
  [07:38:02.177]         else {
  [07:38:02.177]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.177]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.177]         }
  [07:38:02.177]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.177]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.177]             base::sink(type = "output", split = FALSE)
  [07:38:02.177]             base::close(...future.stdout)
  [07:38:02.177]         }, add = TRUE)
  [07:38:02.177]     }
  [07:38:02.177]     ...future.frame <- base::sys.nframe()
  [07:38:02.177]     ...future.conditions <- base::list()
  [07:38:02.177]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.177]     ...future.result <- base::tryCatch({
  [07:38:02.177]         base::withCallingHandlers({
  [07:38:02.177]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:02.177]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.177]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.177]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.177]                 version = "1.8")
  [07:38:02.177]         }, condition = base::local({
  [07:38:02.177]             c <- base::c
  [07:38:02.177]             inherits <- base::inherits
  [07:38:02.177]             invokeRestart <- base::invokeRestart
  [07:38:02.177]             length <- base::length
  [07:38:02.177]             list <- base::list
  [07:38:02.177]             seq.int <- base::seq.int
  [07:38:02.177]             signalCondition <- base::signalCondition
  [07:38:02.177]             sys.calls <- base::sys.calls
  [07:38:02.177]             Sys.time <- base::Sys.time
  [07:38:02.177]             `[[` <- base::`[[`
  [07:38:02.177]             `+` <- base::`+`
  [07:38:02.177]             `<<-` <- base::`<<-`
  [07:38:02.177]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.177]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.177]                   3L)]
  [07:38:02.177]             }
  [07:38:02.177]             function(cond) {
  [07:38:02.177]                 if (inherits(cond, "error")) {
  [07:38:02.177]                   sessionInformation <- function() {
  [07:38:02.177]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.177]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.177]                       search = base::search(), system = base::Sys.info())
  [07:38:02.177]                   }
  [07:38:02.177]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.177]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.177]                     cond$call), session = sessionInformation(), 
  [07:38:02.177]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.177]                   signalCondition(cond)
  [07:38:02.177]                 }
  [07:38:02.177]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.177]                 ))) {
  [07:38:02.177]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.177]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.177]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.177]                   if (!signal) {
  [07:38:02.177]                     muffleCondition <- function (cond) 
  [07:38:02.177]                     {
  [07:38:02.177]                       inherits <- base::inherits
  [07:38:02.177]                       invokeRestart <- base::invokeRestart
  [07:38:02.177]                       muffled <- FALSE
  [07:38:02.177]                       if (inherits(cond, "message")) {
  [07:38:02.177]                         invokeRestart("muffleMessage")
  [07:38:02.177]                         muffled <- TRUE
  [07:38:02.177]                       }
  [07:38:02.177]                       else if (inherits(cond, "warning")) {
  [07:38:02.177]                         invokeRestart("muffleWarning")
  [07:38:02.177]                         muffled <- TRUE
  [07:38:02.177]                       }
  [07:38:02.177]                       else if (inherits(cond, "condition")) {
  [07:38:02.177]                         computeRestarts <- base::computeRestarts
  [07:38:02.177]                         grepl <- base::grepl
  [07:38:02.177]                         is.null <- base::is.null
  [07:38:02.177]                         restarts <- computeRestarts(cond)
  [07:38:02.177]                         for (restart in restarts) {
  [07:38:02.177]                           name <- restart$name
  [07:38:02.177]                           if (is.null(name)) 
  [07:38:02.177]                             next
  [07:38:02.177]                           if (!grepl("^muffle", name)) 
  [07:38:02.177]                             next
  [07:38:02.177]                           invokeRestart(restart)
  [07:38:02.177]                           muffled <- TRUE
  [07:38:02.177]                           break
  [07:38:02.177]                         }
  [07:38:02.177]                       }
  [07:38:02.177]                       invisible(muffled)
  [07:38:02.177]                     }
  [07:38:02.177]                     muffleCondition(cond)
  [07:38:02.177]                   }
  [07:38:02.177]                 }
  [07:38:02.177]             }
  [07:38:02.177]         }))
  [07:38:02.177]     }, error = function(ex) {
  [07:38:02.177]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.177]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.177]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.177]     }, finally = {
  [07:38:02.177]         {
  [07:38:02.177]             NULL
  [07:38:02.177]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.177]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.177]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.177]                 label = NULL, ...) 
  [07:38:02.177]             {
  [07:38:02.177]                 if (substitute) 
  [07:38:02.177]                   expr <- substitute(expr)
  [07:38:02.177]                 local <- as.logical(local)
  [07:38:02.177]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.177]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.177]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.177]                   label = label, ...)
  [07:38:02.177]                 if (!future$lazy) 
  [07:38:02.177]                   future <- run(future)
  [07:38:02.177]                 invisible(future)
  [07:38:02.177]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.177]         }
  [07:38:02.177]         base::options(...future.oldOptions)
  [07:38:02.177]     })
  [07:38:02.177]     Sys.time
  [07:38:02.177]     if (base::is.na(TRUE)) {
  [07:38:02.177]     }
  [07:38:02.177]     else {
  [07:38:02.177]         base::sink(type = "output", split = FALSE)
  [07:38:02.177]         if (TRUE) {
  [07:38:02.177]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.177]         }
  [07:38:02.177]         else {
  [07:38:02.177]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.177]         }
  [07:38:02.177]         base::close(...future.stdout)
  [07:38:02.177]         ...future.stdout <- NULL
  [07:38:02.177]     }
  [07:38:02.177]     ...future.result$conditions <- ...future.conditions
  [07:38:02.177]     ...future.result
  [07:38:02.177] }
  [07:38:02.183] plan(): Setting new future strategy stack:
  [07:38:02.183] List of future strategies:
  [07:38:02.183] 1. sequential:
  [07:38:02.183]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.183]    - tweaked: FALSE
  [07:38:02.183]    - call: NULL
  [07:38:02.184] plan(): nbrOfWorkers() = 1
  [07:38:02.185] plan(): Setting new future strategy stack:
  [07:38:02.186] List of future strategies:
  [07:38:02.186] 1. sequential:
  [07:38:02.186]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.186]    - tweaked: FALSE
  [07:38:02.186]    - call: plan(strategy)
  [07:38:02.187] plan(): nbrOfWorkers() = 1
  [07:38:02.188] SequentialFuture started (and completed)
  [07:38:02.189] getGlobalsAndPackages() ...
  [07:38:02.189] Searching for globals...
  [07:38:02.191] - globals found: [1] '{'
  [07:38:02.191] Searching for globals ... DONE
  [07:38:02.191] Resolving globals: FALSE
  [07:38:02.192] 
  [07:38:02.193] 
  [07:38:02.193] getGlobalsAndPackages() ... DONE
  [07:38:02.195] Packages needed by the future expression (n = 0): <none>
  [07:38:02.196] Packages needed by future strategies (n = 0): <none>
  [07:38:02.202] {
  [07:38:02.202]     {
  [07:38:02.202]         ...future.startTime <- base::Sys.time()
  [07:38:02.202]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.202]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.202]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.202]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.202]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.202]         {
  [07:38:02.202]             {
  [07:38:02.202]                 base::local({
  [07:38:02.202]                   has_future <- base::requireNamespace("future", 
  [07:38:02.202]                     quietly = TRUE)
  [07:38:02.202]                   version <- if (has_future) 
  [07:38:02.202]                     utils::packageVersion("future")
  [07:38:02.202]                   else NULL
  [07:38:02.202]                   if (!has_future || version < "1.8.0") {
  [07:38:02.202]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.202]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.202]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.202]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.202]                         "release", "version")], collapse = " "), 
  [07:38:02.202]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.202]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.202]                       info)
  [07:38:02.202]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.202]                     if (!has_future) {
  [07:38:02.202]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.202]                         info)
  [07:38:02.202]                     }
  [07:38:02.202]                     else {
  [07:38:02.202]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.202]                         info, version)
  [07:38:02.202]                     }
  [07:38:02.202]                     base::stop(msg)
  [07:38:02.202]                   }
  [07:38:02.202]                 })
  [07:38:02.202]             }
  [07:38:02.202]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.202]         }
  [07:38:02.202]     }
  [07:38:02.202]     if (base::is.na(TRUE)) {
  [07:38:02.202]     }
  [07:38:02.202]     else {
  [07:38:02.202]         if (TRUE) {
  [07:38:02.202]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.202]                 open = "w")
  [07:38:02.202]         }
  [07:38:02.202]         else {
  [07:38:02.202]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.202]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.202]         }
  [07:38:02.202]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.202]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.202]             base::sink(type = "output", split = FALSE)
  [07:38:02.202]             base::close(...future.stdout)
  [07:38:02.202]         }, add = TRUE)
  [07:38:02.202]     }
  [07:38:02.202]     ...future.frame <- base::sys.nframe()
  [07:38:02.202]     ...future.conditions <- base::list()
  [07:38:02.202]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.202]     ...future.result <- base::tryCatch({
  [07:38:02.202]         base::withCallingHandlers({
  [07:38:02.202]             ...future.value <- base::withVisible(base::local({
  [07:38:02.202]                 4
  [07:38:02.202]             }))
  [07:38:02.202]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.202]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.202]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.202]                 version = "1.8")
  [07:38:02.202]         }, condition = base::local({
  [07:38:02.202]             c <- base::c
  [07:38:02.202]             inherits <- base::inherits
  [07:38:02.202]             invokeRestart <- base::invokeRestart
  [07:38:02.202]             length <- base::length
  [07:38:02.202]             list <- base::list
  [07:38:02.202]             seq.int <- base::seq.int
  [07:38:02.202]             signalCondition <- base::signalCondition
  [07:38:02.202]             sys.calls <- base::sys.calls
  [07:38:02.202]             Sys.time <- base::Sys.time
  [07:38:02.202]             `[[` <- base::`[[`
  [07:38:02.202]             `+` <- base::`+`
  [07:38:02.202]             `<<-` <- base::`<<-`
  [07:38:02.202]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.202]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.202]                   3L)]
  [07:38:02.202]             }
  [07:38:02.202]             function(cond) {
  [07:38:02.202]                 if (inherits(cond, "error")) {
  [07:38:02.202]                   sessionInformation <- function() {
  [07:38:02.202]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.202]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.202]                       search = base::search(), system = base::Sys.info())
  [07:38:02.202]                   }
  [07:38:02.202]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.202]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.202]                     cond$call), session = sessionInformation(), 
  [07:38:02.202]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.202]                   signalCondition(cond)
  [07:38:02.202]                 }
  [07:38:02.202]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.202]                 ))) {
  [07:38:02.202]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.202]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.202]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.202]                   if (!signal) {
  [07:38:02.202]                     muffleCondition <- function (cond) 
  [07:38:02.202]                     {
  [07:38:02.202]                       inherits <- base::inherits
  [07:38:02.202]                       invokeRestart <- base::invokeRestart
  [07:38:02.202]                       muffled <- FALSE
  [07:38:02.202]                       if (inherits(cond, "message")) {
  [07:38:02.202]                         invokeRestart("muffleMessage")
  [07:38:02.202]                         muffled <- TRUE
  [07:38:02.202]                       }
  [07:38:02.202]                       else if (inherits(cond, "warning")) {
  [07:38:02.202]                         invokeRestart("muffleWarning")
  [07:38:02.202]                         muffled <- TRUE
  [07:38:02.202]                       }
  [07:38:02.202]                       else if (inherits(cond, "condition")) {
  [07:38:02.202]                         computeRestarts <- base::computeRestarts
  [07:38:02.202]                         grepl <- base::grepl
  [07:38:02.202]                         is.null <- base::is.null
  [07:38:02.202]                         restarts <- computeRestarts(cond)
  [07:38:02.202]                         for (restart in restarts) {
  [07:38:02.202]                           name <- restart$name
  [07:38:02.202]                           if (is.null(name)) 
  [07:38:02.202]                             next
  [07:38:02.202]                           if (!grepl("^muffle", name)) 
  [07:38:02.202]                             next
  [07:38:02.202]                           invokeRestart(restart)
  [07:38:02.202]                           muffled <- TRUE
  [07:38:02.202]                           break
  [07:38:02.202]                         }
  [07:38:02.202]                       }
  [07:38:02.202]                       invisible(muffled)
  [07:38:02.202]                     }
  [07:38:02.202]                     muffleCondition(cond)
  [07:38:02.202]                   }
  [07:38:02.202]                 }
  [07:38:02.202]             }
  [07:38:02.202]         }))
  [07:38:02.202]     }, error = function(ex) {
  [07:38:02.202]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.202]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.202]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.202]     }, finally = {
  [07:38:02.202]         {
  [07:38:02.202]             NULL
  [07:38:02.202]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.202]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.202]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.202]                 label = NULL, ...) 
  [07:38:02.202]             {
  [07:38:02.202]                 if (substitute) 
  [07:38:02.202]                   expr <- substitute(expr)
  [07:38:02.202]                 local <- as.logical(local)
  [07:38:02.202]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.202]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.202]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.202]                   label = label, ...)
  [07:38:02.202]                 if (!future$lazy) 
  [07:38:02.202]                   future <- run(future)
  [07:38:02.202]                 invisible(future)
  [07:38:02.202]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.202]         }
  [07:38:02.202]         base::options(...future.oldOptions)
  [07:38:02.202]     })
  [07:38:02.202]     Sys.time
  [07:38:02.202]     if (base::is.na(TRUE)) {
  [07:38:02.202]     }
  [07:38:02.202]     else {
  [07:38:02.202]         base::sink(type = "output", split = FALSE)
  [07:38:02.202]         if (TRUE) {
  [07:38:02.202]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.202]         }
  [07:38:02.202]         else {
  [07:38:02.202]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.202]         }
  [07:38:02.202]         base::close(...future.stdout)
  [07:38:02.202]         ...future.stdout <- NULL
  [07:38:02.202]     }
  [07:38:02.202]     ...future.result$conditions <- ...future.conditions
  [07:38:02.202]     ...future.result
  [07:38:02.202] }
  [07:38:02.207] plan(): Setting new future strategy stack:
  [07:38:02.208] List of future strategies:
  [07:38:02.208] 1. sequential:
  [07:38:02.208]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.208]    - tweaked: FALSE
  [07:38:02.208]    - call: NULL
  [07:38:02.209] plan(): nbrOfWorkers() = 1
  [07:38:02.210] plan(): Setting new future strategy stack:
  [07:38:02.211] List of future strategies:
  [07:38:02.211] 1. sequential:
  [07:38:02.211]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.211]    - tweaked: FALSE
  [07:38:02.211]    - call: plan(strategy)
  [07:38:02.212] plan(): nbrOfWorkers() = 1
  [07:38:02.213] SequentialFuture started (and completed)
  <environment: 0x5576d621fe18> 
  <environment: 0x5576d61034d8> 
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:02.220] resolve() on environment ...
  [07:38:02.220]  recursive: 0
  [07:38:02.222]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:02.222] signalConditionsASAP(numeric, pos=1) ...
  [07:38:02.222] - nx: 4
  [07:38:02.223] - relay: TRUE
  [07:38:02.223] - stdout: TRUE
  [07:38:02.223] - signal: TRUE
  [07:38:02.224] - resignal: FALSE
  [07:38:02.224] - force: TRUE
  [07:38:02.224] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.224] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.225]  - until=2
  [07:38:02.225]  - relaying element #2
  [07:38:02.225] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.226] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.226] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:02.226]  length: 3 (resolved future 1)
  [07:38:02.227] Future #2
  [07:38:02.227] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:02.228] - nx: 4
  [07:38:02.228] - relay: TRUE
  [07:38:02.228] - stdout: TRUE
  [07:38:02.228] - signal: TRUE
  [07:38:02.229] - resignal: FALSE
  [07:38:02.229] - force: TRUE
  [07:38:02.229] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.230] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.230]  - until=2
  [07:38:02.230]  - relaying element #2
  [07:38:02.231] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.231] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.231] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:02.232]  length: 2 (resolved future 2)
  [07:38:02.232] Future #3
  [07:38:02.233] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:02.233] - nx: 4
  [07:38:02.233] - relay: TRUE
  [07:38:02.233] - stdout: TRUE
  [07:38:02.234] - signal: TRUE
  [07:38:02.234] - resignal: FALSE
  [07:38:02.235] - force: TRUE
  [07:38:02.235] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.239] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.239]  - until=3
  [07:38:02.240]  - relaying element #3
  [07:38:02.240] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.241] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.241] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:02.241]  length: 1 (resolved future 3)
  [07:38:02.242] Future #4
  [07:38:02.242] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:02.243] - nx: 4
  [07:38:02.243] - relay: TRUE
  [07:38:02.243] - stdout: TRUE
  [07:38:02.243] - signal: TRUE
  [07:38:02.244] - resignal: FALSE
  [07:38:02.244] - force: TRUE
  [07:38:02.244] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.245] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.245]  - until=4
  [07:38:02.246]  - relaying element #4
  [07:38:02.246] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.246] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.247] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:02.247]  length: 0 (resolved future 4)
  [07:38:02.247] Relaying remaining futures
  [07:38:02.248] signalConditionsASAP(NULL, pos=0) ...
  [07:38:02.248] - nx: 4
  [07:38:02.248] - relay: TRUE
  [07:38:02.249] - stdout: TRUE
  [07:38:02.249] - signal: TRUE
  [07:38:02.250] - resignal: FALSE
  [07:38:02.250] - force: TRUE
  [07:38:02.250] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.250] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:02.251] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.251] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.251] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:02.252] resolve() on environment ... DONE
  <environment: 0x5576d61df540> 
  Dimensions: c(2, 1, 3, 1)
  [07:38:02.253] getGlobalsAndPackages() ...
  [07:38:02.254] Searching for globals...
  [07:38:02.254] 
  [07:38:02.255] Searching for globals ... DONE
  [07:38:02.255] - globals: [0] <none>
  [07:38:02.255] getGlobalsAndPackages() ... DONE
  [07:38:02.257] Packages needed by the future expression (n = 0): <none>
  [07:38:02.258] Packages needed by future strategies (n = 0): <none>
  [07:38:02.262] {
  [07:38:02.262]     {
  [07:38:02.262]         ...future.startTime <- base::Sys.time()
  [07:38:02.262]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.262]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.262]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.262]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.262]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.262]         {
  [07:38:02.262]             {
  [07:38:02.262]                 base::local({
  [07:38:02.262]                   has_future <- base::requireNamespace("future", 
  [07:38:02.262]                     quietly = TRUE)
  [07:38:02.262]                   version <- if (has_future) 
  [07:38:02.262]                     utils::packageVersion("future")
  [07:38:02.262]                   else NULL
  [07:38:02.262]                   if (!has_future || version < "1.8.0") {
  [07:38:02.262]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.262]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.262]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.262]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.262]                         "release", "version")], collapse = " "), 
  [07:38:02.262]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.262]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.262]                       info)
  [07:38:02.262]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.262]                     if (!has_future) {
  [07:38:02.262]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.262]                         info)
  [07:38:02.262]                     }
  [07:38:02.262]                     else {
  [07:38:02.262]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.262]                         info, version)
  [07:38:02.262]                     }
  [07:38:02.262]                     base::stop(msg)
  [07:38:02.262]                   }
  [07:38:02.262]                 })
  [07:38:02.262]             }
  [07:38:02.262]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.262]         }
  [07:38:02.262]     }
  [07:38:02.262]     if (base::is.na(TRUE)) {
  [07:38:02.262]     }
  [07:38:02.262]     else {
  [07:38:02.262]         if (TRUE) {
  [07:38:02.262]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.262]                 open = "w")
  [07:38:02.262]         }
  [07:38:02.262]         else {
  [07:38:02.262]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.262]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.262]         }
  [07:38:02.262]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.262]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.262]             base::sink(type = "output", split = FALSE)
  [07:38:02.262]             base::close(...future.stdout)
  [07:38:02.262]         }, add = TRUE)
  [07:38:02.262]     }
  [07:38:02.262]     ...future.frame <- base::sys.nframe()
  [07:38:02.262]     ...future.conditions <- base::list()
  [07:38:02.262]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.262]     ...future.result <- base::tryCatch({
  [07:38:02.262]         base::withCallingHandlers({
  [07:38:02.262]             ...future.value <- base::withVisible(base::local(2))
  [07:38:02.262]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.262]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.262]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.262]                 version = "1.8")
  [07:38:02.262]         }, condition = base::local({
  [07:38:02.262]             c <- base::c
  [07:38:02.262]             inherits <- base::inherits
  [07:38:02.262]             invokeRestart <- base::invokeRestart
  [07:38:02.262]             length <- base::length
  [07:38:02.262]             list <- base::list
  [07:38:02.262]             seq.int <- base::seq.int
  [07:38:02.262]             signalCondition <- base::signalCondition
  [07:38:02.262]             sys.calls <- base::sys.calls
  [07:38:02.262]             Sys.time <- base::Sys.time
  [07:38:02.262]             `[[` <- base::`[[`
  [07:38:02.262]             `+` <- base::`+`
  [07:38:02.262]             `<<-` <- base::`<<-`
  [07:38:02.262]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.262]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.262]                   3L)]
  [07:38:02.262]             }
  [07:38:02.262]             function(cond) {
  [07:38:02.262]                 if (inherits(cond, "error")) {
  [07:38:02.262]                   sessionInformation <- function() {
  [07:38:02.262]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.262]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.262]                       search = base::search(), system = base::Sys.info())
  [07:38:02.262]                   }
  [07:38:02.262]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.262]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.262]                     cond$call), session = sessionInformation(), 
  [07:38:02.262]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.262]                   signalCondition(cond)
  [07:38:02.262]                 }
  [07:38:02.262]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.262]                 ))) {
  [07:38:02.262]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.262]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.262]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.262]                   if (!signal) {
  [07:38:02.262]                     muffleCondition <- function (cond) 
  [07:38:02.262]                     {
  [07:38:02.262]                       inherits <- base::inherits
  [07:38:02.262]                       invokeRestart <- base::invokeRestart
  [07:38:02.262]                       muffled <- FALSE
  [07:38:02.262]                       if (inherits(cond, "message")) {
  [07:38:02.262]                         invokeRestart("muffleMessage")
  [07:38:02.262]                         muffled <- TRUE
  [07:38:02.262]                       }
  [07:38:02.262]                       else if (inherits(cond, "warning")) {
  [07:38:02.262]                         invokeRestart("muffleWarning")
  [07:38:02.262]                         muffled <- TRUE
  [07:38:02.262]                       }
  [07:38:02.262]                       else if (inherits(cond, "condition")) {
  [07:38:02.262]                         computeRestarts <- base::computeRestarts
  [07:38:02.262]                         grepl <- base::grepl
  [07:38:02.262]                         is.null <- base::is.null
  [07:38:02.262]                         restarts <- computeRestarts(cond)
  [07:38:02.262]                         for (restart in restarts) {
  [07:38:02.262]                           name <- restart$name
  [07:38:02.262]                           if (is.null(name)) 
  [07:38:02.262]                             next
  [07:38:02.262]                           if (!grepl("^muffle", name)) 
  [07:38:02.262]                             next
  [07:38:02.262]                           invokeRestart(restart)
  [07:38:02.262]                           muffled <- TRUE
  [07:38:02.262]                           break
  [07:38:02.262]                         }
  [07:38:02.262]                       }
  [07:38:02.262]                       invisible(muffled)
  [07:38:02.262]                     }
  [07:38:02.262]                     muffleCondition(cond)
  [07:38:02.262]                   }
  [07:38:02.262]                 }
  [07:38:02.262]             }
  [07:38:02.262]         }))
  [07:38:02.262]     }, error = function(ex) {
  [07:38:02.262]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.262]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.262]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.262]     }, finally = {
  [07:38:02.262]         {
  [07:38:02.262]             NULL
  [07:38:02.262]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.262]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.262]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.262]                 label = NULL, ...) 
  [07:38:02.262]             {
  [07:38:02.262]                 if (substitute) 
  [07:38:02.262]                   expr <- substitute(expr)
  [07:38:02.262]                 local <- as.logical(local)
  [07:38:02.262]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.262]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.262]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.262]                   label = label, ...)
  [07:38:02.262]                 if (!future$lazy) 
  [07:38:02.262]                   future <- run(future)
  [07:38:02.262]                 invisible(future)
  [07:38:02.262]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.262]         }
  [07:38:02.262]         base::options(...future.oldOptions)
  [07:38:02.262]     })
  [07:38:02.262]     Sys.time
  [07:38:02.262]     if (base::is.na(TRUE)) {
  [07:38:02.262]     }
  [07:38:02.262]     else {
  [07:38:02.262]         base::sink(type = "output", split = FALSE)
  [07:38:02.262]         if (TRUE) {
  [07:38:02.262]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.262]         }
  [07:38:02.262]         else {
  [07:38:02.262]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.262]         }
  [07:38:02.262]         base::close(...future.stdout)
  [07:38:02.262]         ...future.stdout <- NULL
  [07:38:02.262]     }
  [07:38:02.262]     ...future.result$conditions <- ...future.conditions
  [07:38:02.262]     ...future.result
  [07:38:02.262] }
  [07:38:02.267] plan(): Setting new future strategy stack:
  [07:38:02.268] List of future strategies:
  [07:38:02.268] 1. sequential:
  [07:38:02.268]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.268]    - tweaked: FALSE
  [07:38:02.268]    - call: NULL
  [07:38:02.268] plan(): nbrOfWorkers() = 1
  [07:38:02.270] plan(): Setting new future strategy stack:
  [07:38:02.270] List of future strategies:
  [07:38:02.270] 1. sequential:
  [07:38:02.270]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.270]    - tweaked: FALSE
  [07:38:02.270]    - call: plan(strategy)
  [07:38:02.271] plan(): nbrOfWorkers() = 1
  [07:38:02.271] SequentialFuture started (and completed)
  [07:38:02.272] getGlobalsAndPackages() ...
  [07:38:02.272] Searching for globals...
  [07:38:02.273] 
  [07:38:02.273] Searching for globals ... DONE
  [07:38:02.274] - globals: [0] <none>
  [07:38:02.274] getGlobalsAndPackages() ... DONE
  [07:38:02.276] Packages needed by the future expression (n = 0): <none>
  [07:38:02.276] Packages needed by future strategies (n = 0): <none>
  [07:38:02.281] {
  [07:38:02.281]     {
  [07:38:02.281]         ...future.startTime <- base::Sys.time()
  [07:38:02.281]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.281]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.281]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.281]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.281]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.281]         {
  [07:38:02.281]             {
  [07:38:02.281]                 base::local({
  [07:38:02.281]                   has_future <- base::requireNamespace("future", 
  [07:38:02.281]                     quietly = TRUE)
  [07:38:02.281]                   version <- if (has_future) 
  [07:38:02.281]                     utils::packageVersion("future")
  [07:38:02.281]                   else NULL
  [07:38:02.281]                   if (!has_future || version < "1.8.0") {
  [07:38:02.281]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.281]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.281]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.281]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.281]                         "release", "version")], collapse = " "), 
  [07:38:02.281]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.281]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.281]                       info)
  [07:38:02.281]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.281]                     if (!has_future) {
  [07:38:02.281]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.281]                         info)
  [07:38:02.281]                     }
  [07:38:02.281]                     else {
  [07:38:02.281]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.281]                         info, version)
  [07:38:02.281]                     }
  [07:38:02.281]                     base::stop(msg)
  [07:38:02.281]                   }
  [07:38:02.281]                 })
  [07:38:02.281]             }
  [07:38:02.281]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.281]         }
  [07:38:02.281]     }
  [07:38:02.281]     if (base::is.na(TRUE)) {
  [07:38:02.281]     }
  [07:38:02.281]     else {
  [07:38:02.281]         if (TRUE) {
  [07:38:02.281]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.281]                 open = "w")
  [07:38:02.281]         }
  [07:38:02.281]         else {
  [07:38:02.281]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.281]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.281]         }
  [07:38:02.281]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.281]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.281]             base::sink(type = "output", split = FALSE)
  [07:38:02.281]             base::close(...future.stdout)
  [07:38:02.281]         }, add = TRUE)
  [07:38:02.281]     }
  [07:38:02.281]     ...future.frame <- base::sys.nframe()
  [07:38:02.281]     ...future.conditions <- base::list()
  [07:38:02.281]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.281]     ...future.result <- base::tryCatch({
  [07:38:02.281]         base::withCallingHandlers({
  [07:38:02.281]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:02.281]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.281]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.281]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.281]                 version = "1.8")
  [07:38:02.281]         }, condition = base::local({
  [07:38:02.281]             c <- base::c
  [07:38:02.281]             inherits <- base::inherits
  [07:38:02.281]             invokeRestart <- base::invokeRestart
  [07:38:02.281]             length <- base::length
  [07:38:02.281]             list <- base::list
  [07:38:02.281]             seq.int <- base::seq.int
  [07:38:02.281]             signalCondition <- base::signalCondition
  [07:38:02.281]             sys.calls <- base::sys.calls
  [07:38:02.281]             Sys.time <- base::Sys.time
  [07:38:02.281]             `[[` <- base::`[[`
  [07:38:02.281]             `+` <- base::`+`
  [07:38:02.281]             `<<-` <- base::`<<-`
  [07:38:02.281]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.281]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.281]                   3L)]
  [07:38:02.281]             }
  [07:38:02.281]             function(cond) {
  [07:38:02.281]                 if (inherits(cond, "error")) {
  [07:38:02.281]                   sessionInformation <- function() {
  [07:38:02.281]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.281]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.281]                       search = base::search(), system = base::Sys.info())
  [07:38:02.281]                   }
  [07:38:02.281]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.281]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.281]                     cond$call), session = sessionInformation(), 
  [07:38:02.281]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.281]                   signalCondition(cond)
  [07:38:02.281]                 }
  [07:38:02.281]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.281]                 ))) {
  [07:38:02.281]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.281]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.281]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.281]                   if (!signal) {
  [07:38:02.281]                     muffleCondition <- function (cond) 
  [07:38:02.281]                     {
  [07:38:02.281]                       inherits <- base::inherits
  [07:38:02.281]                       invokeRestart <- base::invokeRestart
  [07:38:02.281]                       muffled <- FALSE
  [07:38:02.281]                       if (inherits(cond, "message")) {
  [07:38:02.281]                         invokeRestart("muffleMessage")
  [07:38:02.281]                         muffled <- TRUE
  [07:38:02.281]                       }
  [07:38:02.281]                       else if (inherits(cond, "warning")) {
  [07:38:02.281]                         invokeRestart("muffleWarning")
  [07:38:02.281]                         muffled <- TRUE
  [07:38:02.281]                       }
  [07:38:02.281]                       else if (inherits(cond, "condition")) {
  [07:38:02.281]                         computeRestarts <- base::computeRestarts
  [07:38:02.281]                         grepl <- base::grepl
  [07:38:02.281]                         is.null <- base::is.null
  [07:38:02.281]                         restarts <- computeRestarts(cond)
  [07:38:02.281]                         for (restart in restarts) {
  [07:38:02.281]                           name <- restart$name
  [07:38:02.281]                           if (is.null(name)) 
  [07:38:02.281]                             next
  [07:38:02.281]                           if (!grepl("^muffle", name)) 
  [07:38:02.281]                             next
  [07:38:02.281]                           invokeRestart(restart)
  [07:38:02.281]                           muffled <- TRUE
  [07:38:02.281]                           break
  [07:38:02.281]                         }
  [07:38:02.281]                       }
  [07:38:02.281]                       invisible(muffled)
  [07:38:02.281]                     }
  [07:38:02.281]                     muffleCondition(cond)
  [07:38:02.281]                   }
  [07:38:02.281]                 }
  [07:38:02.281]             }
  [07:38:02.281]         }))
  [07:38:02.281]     }, error = function(ex) {
  [07:38:02.281]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.281]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.281]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.281]     }, finally = {
  [07:38:02.281]         {
  [07:38:02.281]             NULL
  [07:38:02.281]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.281]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.281]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.281]                 label = NULL, ...) 
  [07:38:02.281]             {
  [07:38:02.281]                 if (substitute) 
  [07:38:02.281]                   expr <- substitute(expr)
  [07:38:02.281]                 local <- as.logical(local)
  [07:38:02.281]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.281]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.281]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.281]                   label = label, ...)
  [07:38:02.281]                 if (!future$lazy) 
  [07:38:02.281]                   future <- run(future)
  [07:38:02.281]                 invisible(future)
  [07:38:02.281]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.281]         }
  [07:38:02.281]         base::options(...future.oldOptions)
  [07:38:02.281]     })
  [07:38:02.281]     Sys.time
  [07:38:02.281]     if (base::is.na(TRUE)) {
  [07:38:02.281]     }
  [07:38:02.281]     else {
  [07:38:02.281]         base::sink(type = "output", split = FALSE)
  [07:38:02.281]         if (TRUE) {
  [07:38:02.281]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.281]         }
  [07:38:02.281]         else {
  [07:38:02.281]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.281]         }
  [07:38:02.281]         base::close(...future.stdout)
  [07:38:02.281]         ...future.stdout <- NULL
  [07:38:02.281]     }
  [07:38:02.281]     ...future.result$conditions <- ...future.conditions
  [07:38:02.281]     ...future.result
  [07:38:02.281] }
  [07:38:02.286] plan(): Setting new future strategy stack:
  [07:38:02.286] List of future strategies:
  [07:38:02.286] 1. sequential:
  [07:38:02.286]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.286]    - tweaked: FALSE
  [07:38:02.286]    - call: NULL
  [07:38:02.287] plan(): nbrOfWorkers() = 1
  [07:38:02.289] plan(): Setting new future strategy stack:
  [07:38:02.289] List of future strategies:
  [07:38:02.289] 1. sequential:
  [07:38:02.289]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.289]    - tweaked: FALSE
  [07:38:02.289]    - call: plan(strategy)
  [07:38:02.290] plan(): nbrOfWorkers() = 1
  [07:38:02.291] SequentialFuture started (and completed)
  [07:38:02.292] getGlobalsAndPackages() ...
  [07:38:02.292] Searching for globals...
  [07:38:02.293] - globals found: [1] '{'
  [07:38:02.294] Searching for globals ... DONE
  [07:38:02.294] Resolving globals: FALSE
  [07:38:02.295] 
  [07:38:02.295] 
  [07:38:02.296] getGlobalsAndPackages() ... DONE
  [07:38:02.298] Packages needed by the future expression (n = 0): <none>
  [07:38:02.299] Packages needed by future strategies (n = 0): <none>
  [07:38:02.306] {
  [07:38:02.306]     {
  [07:38:02.306]         ...future.startTime <- base::Sys.time()
  [07:38:02.306]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:02.306]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:02.306]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:02.306]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:02.306]             future.resolve.recursive = NULL, width = 80L)
  [07:38:02.306]         {
  [07:38:02.306]             {
  [07:38:02.306]                 base::local({
  [07:38:02.306]                   has_future <- base::requireNamespace("future", 
  [07:38:02.306]                     quietly = TRUE)
  [07:38:02.306]                   version <- if (has_future) 
  [07:38:02.306]                     utils::packageVersion("future")
  [07:38:02.306]                   else NULL
  [07:38:02.306]                   if (!has_future || version < "1.8.0") {
  [07:38:02.306]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:02.306]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:02.306]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:02.306]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:02.306]                         "release", "version")], collapse = " "), 
  [07:38:02.306]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:02.306]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:02.306]                       info)
  [07:38:02.306]                     info <- base::paste(info, collapse = "; ")
  [07:38:02.306]                     if (!has_future) {
  [07:38:02.306]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:02.306]                         info)
  [07:38:02.306]                     }
  [07:38:02.306]                     else {
  [07:38:02.306]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:02.306]                         info, version)
  [07:38:02.306]                     }
  [07:38:02.306]                     base::stop(msg)
  [07:38:02.306]                   }
  [07:38:02.306]                 })
  [07:38:02.306]             }
  [07:38:02.306]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:02.306]         }
  [07:38:02.306]     }
  [07:38:02.306]     if (base::is.na(TRUE)) {
  [07:38:02.306]     }
  [07:38:02.306]     else {
  [07:38:02.306]         if (TRUE) {
  [07:38:02.306]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:02.306]                 open = "w")
  [07:38:02.306]         }
  [07:38:02.306]         else {
  [07:38:02.306]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:02.306]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:02.306]         }
  [07:38:02.306]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:02.306]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:02.306]             base::sink(type = "output", split = FALSE)
  [07:38:02.306]             base::close(...future.stdout)
  [07:38:02.306]         }, add = TRUE)
  [07:38:02.306]     }
  [07:38:02.306]     ...future.frame <- base::sys.nframe()
  [07:38:02.306]     ...future.conditions <- base::list()
  [07:38:02.306]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:02.306]     ...future.result <- base::tryCatch({
  [07:38:02.306]         base::withCallingHandlers({
  [07:38:02.306]             ...future.value <- base::withVisible(base::local({
  [07:38:02.306]                 4
  [07:38:02.306]             }))
  [07:38:02.306]             future::FutureResult(value = ...future.value$value, 
  [07:38:02.306]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.306]                   ...future.rng), started = ...future.startTime, 
  [07:38:02.306]                 version = "1.8")
  [07:38:02.306]         }, condition = base::local({
  [07:38:02.306]             c <- base::c
  [07:38:02.306]             inherits <- base::inherits
  [07:38:02.306]             invokeRestart <- base::invokeRestart
  [07:38:02.306]             length <- base::length
  [07:38:02.306]             list <- base::list
  [07:38:02.306]             seq.int <- base::seq.int
  [07:38:02.306]             signalCondition <- base::signalCondition
  [07:38:02.306]             sys.calls <- base::sys.calls
  [07:38:02.306]             Sys.time <- base::Sys.time
  [07:38:02.306]             `[[` <- base::`[[`
  [07:38:02.306]             `+` <- base::`+`
  [07:38:02.306]             `<<-` <- base::`<<-`
  [07:38:02.306]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:02.306]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:02.306]                   3L)]
  [07:38:02.306]             }
  [07:38:02.306]             function(cond) {
  [07:38:02.306]                 if (inherits(cond, "error")) {
  [07:38:02.306]                   sessionInformation <- function() {
  [07:38:02.306]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:02.306]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:02.306]                       search = base::search(), system = base::Sys.info())
  [07:38:02.306]                   }
  [07:38:02.306]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.306]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:02.306]                     cond$call), session = sessionInformation(), 
  [07:38:02.306]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:02.306]                   signalCondition(cond)
  [07:38:02.306]                 }
  [07:38:02.306]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:02.306]                 ))) {
  [07:38:02.306]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:02.306]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:02.306]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:02.306]                   if (!signal) {
  [07:38:02.306]                     muffleCondition <- function (cond) 
  [07:38:02.306]                     {
  [07:38:02.306]                       inherits <- base::inherits
  [07:38:02.306]                       invokeRestart <- base::invokeRestart
  [07:38:02.306]                       muffled <- FALSE
  [07:38:02.306]                       if (inherits(cond, "message")) {
  [07:38:02.306]                         invokeRestart("muffleMessage")
  [07:38:02.306]                         muffled <- TRUE
  [07:38:02.306]                       }
  [07:38:02.306]                       else if (inherits(cond, "warning")) {
  [07:38:02.306]                         invokeRestart("muffleWarning")
  [07:38:02.306]                         muffled <- TRUE
  [07:38:02.306]                       }
  [07:38:02.306]                       else if (inherits(cond, "condition")) {
  [07:38:02.306]                         computeRestarts <- base::computeRestarts
  [07:38:02.306]                         grepl <- base::grepl
  [07:38:02.306]                         is.null <- base::is.null
  [07:38:02.306]                         restarts <- computeRestarts(cond)
  [07:38:02.306]                         for (restart in restarts) {
  [07:38:02.306]                           name <- restart$name
  [07:38:02.306]                           if (is.null(name)) 
  [07:38:02.306]                             next
  [07:38:02.306]                           if (!grepl("^muffle", name)) 
  [07:38:02.306]                             next
  [07:38:02.306]                           invokeRestart(restart)
  [07:38:02.306]                           muffled <- TRUE
  [07:38:02.306]                           break
  [07:38:02.306]                         }
  [07:38:02.306]                       }
  [07:38:02.306]                       invisible(muffled)
  [07:38:02.306]                     }
  [07:38:02.306]                     muffleCondition(cond)
  [07:38:02.306]                   }
  [07:38:02.306]                 }
  [07:38:02.306]             }
  [07:38:02.306]         }))
  [07:38:02.306]     }, error = function(ex) {
  [07:38:02.306]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:02.306]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:02.306]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:02.306]     }, finally = {
  [07:38:02.306]         {
  [07:38:02.306]             NULL
  [07:38:02.306]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:02.306]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:02.306]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:02.306]                 label = NULL, ...) 
  [07:38:02.306]             {
  [07:38:02.306]                 if (substitute) 
  [07:38:02.306]                   expr <- substitute(expr)
  [07:38:02.306]                 local <- as.logical(local)
  [07:38:02.306]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:02.306]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:02.306]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:02.306]                   label = label, ...)
  [07:38:02.306]                 if (!future$lazy) 
  [07:38:02.306]                   future <- run(future)
  [07:38:02.306]                 invisible(future)
  [07:38:02.306]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:02.306]         }
  [07:38:02.306]         base::options(...future.oldOptions)
  [07:38:02.306]     })
  [07:38:02.306]     Sys.time
  [07:38:02.306]     if (base::is.na(TRUE)) {
  [07:38:02.306]     }
  [07:38:02.306]     else {
  [07:38:02.306]         base::sink(type = "output", split = FALSE)
  [07:38:02.306]         if (TRUE) {
  [07:38:02.306]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:02.306]         }
  [07:38:02.306]         else {
  [07:38:02.306]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:02.306]         }
  [07:38:02.306]         base::close(...future.stdout)
  [07:38:02.306]         ...future.stdout <- NULL
  [07:38:02.306]     }
  [07:38:02.306]     ...future.result$conditions <- ...future.conditions
  [07:38:02.306]     ...future.result
  [07:38:02.306] }
  [07:38:02.316] plan(): Setting new future strategy stack:
  [07:38:02.317] List of future strategies:
  [07:38:02.317] 1. sequential:
  [07:38:02.317]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.317]    - tweaked: FALSE
  [07:38:02.317]    - call: NULL
  [07:38:02.318] plan(): nbrOfWorkers() = 1
  [07:38:02.320] plan(): Setting new future strategy stack:
  [07:38:02.321] List of future strategies:
  [07:38:02.321] 1. sequential:
  [07:38:02.321]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.321]    - tweaked: FALSE
  [07:38:02.321]    - call: plan(strategy)
  [07:38:02.322] plan(): nbrOfWorkers() = 1
  [07:38:02.323] SequentialFuture started (and completed)
  <environment: 0x5576d4a25d08> 
  <environment: 0x5576d4fcbc58> 
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:02.331] resolve() on environment ...
  [07:38:02.332]  recursive: 0
  [07:38:02.334]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:02.334] signalConditionsASAP(numeric, pos=1) ...
  [07:38:02.335] - nx: 4
  [07:38:02.336] - relay: TRUE
  [07:38:02.336] - stdout: TRUE
  [07:38:02.336] - signal: TRUE
  [07:38:02.337] - resignal: FALSE
  [07:38:02.337] - force: TRUE
  [07:38:02.337] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.338] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.338]  - until=2
  [07:38:02.338]  - relaying element #2
  [07:38:02.339] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.339] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.340] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:02.340]  length: 3 (resolved future 1)
  [07:38:02.340] Future #2
  [07:38:02.341] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:02.341] - nx: 4
  [07:38:02.342] - relay: TRUE
  [07:38:02.342] - stdout: TRUE
  [07:38:02.342] - signal: TRUE
  [07:38:02.343] - resignal: FALSE
  [07:38:02.343] - force: TRUE
  [07:38:02.343] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:02.344] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:02.344]  - until=2
  [07:38:02.345]  - relaying element #2
  [07:38:02.345] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.346] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.346] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:02.346]  length: 2 (resolved future 2)
  [07:38:02.347] Future #3
  [07:38:02.347] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:02.348] - nx: 4
  [07:38:02.348] - relay: TRUE
  [07:38:02.348] - stdout: TRUE
  [07:38:02.349] - signal: TRUE
  [07:38:02.349] - resignal: FALSE
  [07:38:02.349] - force: TRUE
  [07:38:02.350] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:02.350] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:02.351]  - until=3
  [07:38:02.351]  - relaying element #3
  [07:38:02.352] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.352] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.352] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:02.353]  length: 1 (resolved future 3)
  [07:38:02.353] Future #4
  [07:38:02.354] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:02.354] - nx: 4
  [07:38:02.355] - relay: TRUE
  [07:38:02.355] - stdout: TRUE
  [07:38:02.355] - signal: TRUE
  [07:38:02.356] - resignal: FALSE
  [07:38:02.356] - force: TRUE
  [07:38:02.356] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:02.357] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:02.357]  - until=4
  [07:38:02.357]  - relaying element #4
  [07:38:02.358] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.358] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.359] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:02.359]  length: 0 (resolved future 4)
  [07:38:02.360] Relaying remaining futures
  [07:38:02.360] signalConditionsASAP(NULL, pos=0) ...
  [07:38:02.360] - nx: 4
  [07:38:02.361] - relay: TRUE
  [07:38:02.361] - stdout: TRUE
  [07:38:02.361] - signal: TRUE
  [07:38:02.362] - resignal: FALSE
  [07:38:02.362] - force: TRUE
  [07:38:02.362] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.363] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:02.364] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:02.364] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:02.364] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:02.365] resolve() on environment ... DONE
  <environment: 0x5576d49e2f08> 
  Type of future: cluster
  [07:38:02.367] plan(): Setting new future strategy stack:
  [07:38:02.367] List of future strategies:
  [07:38:02.367] 1. cluster:
  [07:38:02.367]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.367]    - tweaked: FALSE
  [07:38:02.367]    - call: plan(strategy)
  [07:38:02.368] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ...
  [07:38:02.369] cluster:
  [07:38:02.369] - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, persistent = FALSE, workers = availableWorkers(), user = NULL, revtunnel = TRUE, homogeneous = TRUE, gc = FALSE, earlySignal = FALSE, label = NULL, ...)
  [07:38:02.369] - tweaked: FALSE
  [07:38:02.369] - call: plan(strategy)
  [07:38:02.370] getGlobalsAndPackages() ...
  [07:38:02.370] Not searching for globals
  [07:38:02.371] - globals: [0] <none>
  [07:38:02.371] getGlobalsAndPackages() ... DONE
  [local output] Workers: [n = 1] 'localhost'
  [local output] Base port: 37539
  [local output] Creating node 1 of 1 ...
  [local output] - setting up node
  Testing if worker's PID can be inferred: ''/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpuBjMqI/future.parent=11076.2b4440efd23a.pid")), silent = TRUE)' -e "file.exists('/tmp/RtmpuBjMqI/future.parent=11076.2b4440efd23a.pid')"'
  - Possible to infer worker's PID: TRUE
  [local output] Starting worker #1 on 'localhost': '/home/hornik/tmp/R.check/r-release-gcc/Work/build/bin/Rscript' --default-packages=datasets,utils,grDevices,graphics,stats,methods -e '#label=future/tests/futures.R:gimli:hornik:11076' -e 'try(suppressWarnings(cat(Sys.getpid(),file="/tmp/RtmpuBjMqI/future.parent=11076.2b4440efd23a.pid")), silent = TRUE)' -e 'workRSOCK <- tryCatch(parallel:::.slaveRSOCK, error=function(e) parallel:::.workRSOCK); workRSOCK()' MASTER=localhost PORT=37539 OUT=/dev/null TIMEOUT=120 XDR=TRUE
  [local output] - Exit code of system() call: 0
  [local output] Waiting for worker #1 on 'localhost' to connect back
  [local output] Connection with worker #1 on 'localhost' established
  [local output] - collecting session information
  [local output] Creating node 1 of 1 ... done
  [07:38:04.006] Packages needed by the future expression (n = 0): <none>
  [07:38:04.006] Packages needed by future strategies (n = 0): <none>
  [07:38:04.014] {
  [07:38:04.014]     {
  [07:38:04.014]         ...future.startTime <- base::Sys.time()
  [07:38:04.014]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.014]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.014]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.014]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.014]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.014]         {
  [07:38:04.014]             {
  [07:38:04.014]                 base::local({
  [07:38:04.014]                   has_future <- base::requireNamespace("future", 
  [07:38:04.014]                     quietly = TRUE)
  [07:38:04.014]                   version <- if (has_future) 
  [07:38:04.014]                     utils::packageVersion("future")
  [07:38:04.014]                   else NULL
  [07:38:04.014]                   if (!has_future || version < "1.8.0") {
  [07:38:04.014]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.014]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.014]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.014]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.014]                         "release", "version")], collapse = " "), 
  [07:38:04.014]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.014]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.014]                       info)
  [07:38:04.014]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.014]                     if (!has_future) {
  [07:38:04.014]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.014]                         info)
  [07:38:04.014]                     }
  [07:38:04.014]                     else {
  [07:38:04.014]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.014]                         info, version)
  [07:38:04.014]                     }
  [07:38:04.014]                     base::stop(msg)
  [07:38:04.014]                   }
  [07:38:04.014]                 })
  [07:38:04.014]             }
  [07:38:04.014]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.014]         }
  [07:38:04.014]     }
  [07:38:04.014]     if (base::is.na(TRUE)) {
  [07:38:04.014]     }
  [07:38:04.014]     else {
  [07:38:04.014]         if (TRUE) {
  [07:38:04.014]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.014]                 open = "w")
  [07:38:04.014]         }
  [07:38:04.014]         else {
  [07:38:04.014]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.014]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.014]         }
  [07:38:04.014]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.014]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.014]             base::sink(type = "output", split = FALSE)
  [07:38:04.014]             base::close(...future.stdout)
  [07:38:04.014]         }, add = TRUE)
  [07:38:04.014]     }
  [07:38:04.014]     ...future.frame <- base::sys.nframe()
  [07:38:04.014]     ...future.conditions <- base::list()
  [07:38:04.014]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.014]     ...future.result <- base::tryCatch({
  [07:38:04.014]         base::withCallingHandlers({
  [07:38:04.014]             ...future.value <- base::withVisible(base::local({
  [07:38:04.014]                 ...future.sendCondition <- local({
  [07:38:04.014]                   sendCondition <- NULL
  [07:38:04.014]                   function(frame = 1L) {
  [07:38:04.014]                     if (is.function(sendCondition)) 
  [07:38:04.014]                       return(sendCondition)
  [07:38:04.014]                     ns <- getNamespace("parallel")
  [07:38:04.014]                     if (exists("sendData", mode = "function", 
  [07:38:04.014]                       envir = ns)) {
  [07:38:04.014]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.014]                         envir = ns)
  [07:38:04.014]                       envir <- sys.frame(frame)
  [07:38:04.014]                       master <- NULL
  [07:38:04.014]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.014]                         !identical(envir, emptyenv())) {
  [07:38:04.014]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.014]                           inherits = FALSE)) {
  [07:38:04.014]                           master <- get("master", mode = "list", 
  [07:38:04.014]                             envir = envir, inherits = FALSE)
  [07:38:04.014]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.014]                             sendCondition <<- function(cond) {
  [07:38:04.014]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.014]                                 success = TRUE)
  [07:38:04.014]                               parallel_sendData(master, data)
  [07:38:04.014]                             }
  [07:38:04.014]                             return(sendCondition)
  [07:38:04.014]                           }
  [07:38:04.014]                         }
  [07:38:04.014]                         frame <- frame + 1L
  [07:38:04.014]                         envir <- sys.frame(frame)
  [07:38:04.014]                       }
  [07:38:04.014]                     }
  [07:38:04.014]                     sendCondition <<- function(cond) NULL
  [07:38:04.014]                   }
  [07:38:04.014]                 })
  [07:38:04.014]                 withCallingHandlers({
  [07:38:04.014]                   NA
  [07:38:04.014]                 }, immediateCondition = function(cond) {
  [07:38:04.014]                   sendCondition <- ...future.sendCondition()
  [07:38:04.014]                   sendCondition(cond)
  [07:38:04.014]                   muffleCondition <- function (cond) 
  [07:38:04.014]                   {
  [07:38:04.014]                     inherits <- base::inherits
  [07:38:04.014]                     invokeRestart <- base::invokeRestart
  [07:38:04.014]                     muffled <- FALSE
  [07:38:04.014]                     if (inherits(cond, "message")) {
  [07:38:04.014]                       invokeRestart("muffleMessage")
  [07:38:04.014]                       muffled <- TRUE
  [07:38:04.014]                     }
  [07:38:04.014]                     else if (inherits(cond, "warning")) {
  [07:38:04.014]                       invokeRestart("muffleWarning")
  [07:38:04.014]                       muffled <- TRUE
  [07:38:04.014]                     }
  [07:38:04.014]                     else if (inherits(cond, "condition")) {
  [07:38:04.014]                       computeRestarts <- base::computeRestarts
  [07:38:04.014]                       grepl <- base::grepl
  [07:38:04.014]                       is.null <- base::is.null
  [07:38:04.014]                       restarts <- computeRestarts(cond)
  [07:38:04.014]                       for (restart in restarts) {
  [07:38:04.014]                         name <- restart$name
  [07:38:04.014]                         if (is.null(name)) 
  [07:38:04.014]                           next
  [07:38:04.014]                         if (!grepl("^muffle", name)) 
  [07:38:04.014]                           next
  [07:38:04.014]                         invokeRestart(restart)
  [07:38:04.014]                         muffled <- TRUE
  [07:38:04.014]                         break
  [07:38:04.014]                       }
  [07:38:04.014]                     }
  [07:38:04.014]                     invisible(muffled)
  [07:38:04.014]                   }
  [07:38:04.014]                   muffleCondition(cond)
  [07:38:04.014]                 })
  [07:38:04.014]             }))
  [07:38:04.014]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.014]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.014]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.014]                 version = "1.8")
  [07:38:04.014]         }, condition = base::local({
  [07:38:04.014]             c <- base::c
  [07:38:04.014]             inherits <- base::inherits
  [07:38:04.014]             invokeRestart <- base::invokeRestart
  [07:38:04.014]             length <- base::length
  [07:38:04.014]             list <- base::list
  [07:38:04.014]             seq.int <- base::seq.int
  [07:38:04.014]             signalCondition <- base::signalCondition
  [07:38:04.014]             sys.calls <- base::sys.calls
  [07:38:04.014]             Sys.time <- base::Sys.time
  [07:38:04.014]             `[[` <- base::`[[`
  [07:38:04.014]             `+` <- base::`+`
  [07:38:04.014]             `<<-` <- base::`<<-`
  [07:38:04.014]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.014]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.014]                   3L)]
  [07:38:04.014]             }
  [07:38:04.014]             function(cond) {
  [07:38:04.014]                 if (inherits(cond, "error")) {
  [07:38:04.014]                   sessionInformation <- function() {
  [07:38:04.014]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.014]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.014]                       search = base::search(), system = base::Sys.info())
  [07:38:04.014]                   }
  [07:38:04.014]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.014]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.014]                     cond$call), session = sessionInformation(), 
  [07:38:04.014]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.014]                   signalCondition(cond)
  [07:38:04.014]                 }
  [07:38:04.014]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.014]                 ))) {
  [07:38:04.014]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.014]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.014]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.014]                   if (!signal) {
  [07:38:04.014]                     muffleCondition <- function (cond) 
  [07:38:04.014]                     {
  [07:38:04.014]                       inherits <- base::inherits
  [07:38:04.014]                       invokeRestart <- base::invokeRestart
  [07:38:04.014]                       muffled <- FALSE
  [07:38:04.014]                       if (inherits(cond, "message")) {
  [07:38:04.014]                         invokeRestart("muffleMessage")
  [07:38:04.014]                         muffled <- TRUE
  [07:38:04.014]                       }
  [07:38:04.014]                       else if (inherits(cond, "warning")) {
  [07:38:04.014]                         invokeRestart("muffleWarning")
  [07:38:04.014]                         muffled <- TRUE
  [07:38:04.014]                       }
  [07:38:04.014]                       else if (inherits(cond, "condition")) {
  [07:38:04.014]                         computeRestarts <- base::computeRestarts
  [07:38:04.014]                         grepl <- base::grepl
  [07:38:04.014]                         is.null <- base::is.null
  [07:38:04.014]                         restarts <- computeRestarts(cond)
  [07:38:04.014]                         for (restart in restarts) {
  [07:38:04.014]                           name <- restart$name
  [07:38:04.014]                           if (is.null(name)) 
  [07:38:04.014]                             next
  [07:38:04.014]                           if (!grepl("^muffle", name)) 
  [07:38:04.014]                             next
  [07:38:04.014]                           invokeRestart(restart)
  [07:38:04.014]                           muffled <- TRUE
  [07:38:04.014]                           break
  [07:38:04.014]                         }
  [07:38:04.014]                       }
  [07:38:04.014]                       invisible(muffled)
  [07:38:04.014]                     }
  [07:38:04.014]                     muffleCondition(cond)
  [07:38:04.014]                   }
  [07:38:04.014]                 }
  [07:38:04.014]             }
  [07:38:04.014]         }))
  [07:38:04.014]     }, error = function(ex) {
  [07:38:04.014]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.014]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.014]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.014]     }, finally = {
  [07:38:04.014]         {
  [07:38:04.014]             NULL
  [07:38:04.014]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.014]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.014]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.014]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.014]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.014]                 ...) 
  [07:38:04.014]             {
  [07:38:04.014]                 if (substitute) 
  [07:38:04.014]                   expr <- substitute(expr)
  [07:38:04.014]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.014]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.014]                   globals = globals, persistent = persistent, 
  [07:38:04.014]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.014]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.014]                   label = label, ...)
  [07:38:04.014]                 if (!future$lazy) 
  [07:38:04.014]                   future <- run(future)
  [07:38:04.014]                 invisible(future)
  [07:38:04.014]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.014]         }
  [07:38:04.014]         base::options(...future.oldOptions)
  [07:38:04.014]     })
  [07:38:04.014]     Sys.time
  [07:38:04.014]     if (base::is.na(TRUE)) {
  [07:38:04.014]     }
  [07:38:04.014]     else {
  [07:38:04.014]         base::sink(type = "output", split = FALSE)
  [07:38:04.014]         if (TRUE) {
  [07:38:04.014]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.014]         }
  [07:38:04.014]         else {
  [07:38:04.014]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.014]         }
  [07:38:04.014]         base::close(...future.stdout)
  [07:38:04.014]         ...future.stdout <- NULL
  [07:38:04.014]     }
  [07:38:04.014]     ...future.result$conditions <- ...future.conditions
  [07:38:04.014]     ...future.result
  [07:38:04.014] }
  [07:38:04.023] ClusterFuture started
  [07:38:04.023] result() for ClusterFuture ...
  [07:38:04.024] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.024] - Validating connection of ClusterFuture
  [07:38:04.216] - received message: FutureResult
  [07:38:04.217] - Received FutureResult
  [07:38:04.217] - Erased future from FutureRegistry
  [07:38:04.218] result() for ClusterFuture ...
  [07:38:04.218] - result already collected: FutureResult
  [07:38:04.219] result() for ClusterFuture ... done
  [07:38:04.219] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:04.220] result() for ClusterFuture ... done
  [07:38:04.220] result() for ClusterFuture ...
  [07:38:04.221] - result already collected: FutureResult
  [07:38:04.226] result() for ClusterFuture ... done
  [07:38:04.227] plan(): plan_init() of 'cluster', 'multiprocess', 'future', 'function' ... DONE
  [07:38:04.229] plan(): nbrOfWorkers() = 1
  Dimensions: NULL
  [07:38:04.230] getGlobalsAndPackages() ...
  [07:38:04.231] Searching for globals...
  [07:38:04.232] 
  [07:38:04.232] Searching for globals ... DONE
  [07:38:04.232] - globals: [0] <none>
  [07:38:04.233] getGlobalsAndPackages() ... DONE
  [07:38:04.240] Packages needed by the future expression (n = 0): <none>
  [07:38:04.241] Packages needed by future strategies (n = 0): <none>
  [07:38:04.268] {
  [07:38:04.268]     {
  [07:38:04.268]         ...future.startTime <- base::Sys.time()
  [07:38:04.268]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.268]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.268]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.268]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.268]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.268]         {
  [07:38:04.268]             {
  [07:38:04.268]                 base::local({
  [07:38:04.268]                   has_future <- base::requireNamespace("future", 
  [07:38:04.268]                     quietly = TRUE)
  [07:38:04.268]                   version <- if (has_future) 
  [07:38:04.268]                     utils::packageVersion("future")
  [07:38:04.268]                   else NULL
  [07:38:04.268]                   if (!has_future || version < "1.8.0") {
  [07:38:04.268]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.268]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.268]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.268]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.268]                         "release", "version")], collapse = " "), 
  [07:38:04.268]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.268]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.268]                       info)
  [07:38:04.268]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.268]                     if (!has_future) {
  [07:38:04.268]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.268]                         info)
  [07:38:04.268]                     }
  [07:38:04.268]                     else {
  [07:38:04.268]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.268]                         info, version)
  [07:38:04.268]                     }
  [07:38:04.268]                     base::stop(msg)
  [07:38:04.268]                   }
  [07:38:04.268]                 })
  [07:38:04.268]             }
  [07:38:04.268]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.268]         }
  [07:38:04.268]     }
  [07:38:04.268]     if (base::is.na(TRUE)) {
  [07:38:04.268]     }
  [07:38:04.268]     else {
  [07:38:04.268]         if (TRUE) {
  [07:38:04.268]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.268]                 open = "w")
  [07:38:04.268]         }
  [07:38:04.268]         else {
  [07:38:04.268]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.268]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.268]         }
  [07:38:04.268]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.268]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.268]             base::sink(type = "output", split = FALSE)
  [07:38:04.268]             base::close(...future.stdout)
  [07:38:04.268]         }, add = TRUE)
  [07:38:04.268]     }
  [07:38:04.268]     ...future.frame <- base::sys.nframe()
  [07:38:04.268]     ...future.conditions <- base::list()
  [07:38:04.268]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.268]     ...future.result <- base::tryCatch({
  [07:38:04.268]         base::withCallingHandlers({
  [07:38:04.268]             ...future.value <- base::withVisible(base::local({
  [07:38:04.268]                 ...future.sendCondition <- local({
  [07:38:04.268]                   sendCondition <- NULL
  [07:38:04.268]                   function(frame = 1L) {
  [07:38:04.268]                     if (is.function(sendCondition)) 
  [07:38:04.268]                       return(sendCondition)
  [07:38:04.268]                     ns <- getNamespace("parallel")
  [07:38:04.268]                     if (exists("sendData", mode = "function", 
  [07:38:04.268]                       envir = ns)) {
  [07:38:04.268]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.268]                         envir = ns)
  [07:38:04.268]                       envir <- sys.frame(frame)
  [07:38:04.268]                       master <- NULL
  [07:38:04.268]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.268]                         !identical(envir, emptyenv())) {
  [07:38:04.268]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.268]                           inherits = FALSE)) {
  [07:38:04.268]                           master <- get("master", mode = "list", 
  [07:38:04.268]                             envir = envir, inherits = FALSE)
  [07:38:04.268]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.268]                             sendCondition <<- function(cond) {
  [07:38:04.268]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.268]                                 success = TRUE)
  [07:38:04.268]                               parallel_sendData(master, data)
  [07:38:04.268]                             }
  [07:38:04.268]                             return(sendCondition)
  [07:38:04.268]                           }
  [07:38:04.268]                         }
  [07:38:04.268]                         frame <- frame + 1L
  [07:38:04.268]                         envir <- sys.frame(frame)
  [07:38:04.268]                       }
  [07:38:04.268]                     }
  [07:38:04.268]                     sendCondition <<- function(cond) NULL
  [07:38:04.268]                   }
  [07:38:04.268]                 })
  [07:38:04.268]                 withCallingHandlers({
  [07:38:04.268]                   2
  [07:38:04.268]                 }, immediateCondition = function(cond) {
  [07:38:04.268]                   sendCondition <- ...future.sendCondition()
  [07:38:04.268]                   sendCondition(cond)
  [07:38:04.268]                   muffleCondition <- function (cond) 
  [07:38:04.268]                   {
  [07:38:04.268]                     inherits <- base::inherits
  [07:38:04.268]                     invokeRestart <- base::invokeRestart
  [07:38:04.268]                     muffled <- FALSE
  [07:38:04.268]                     if (inherits(cond, "message")) {
  [07:38:04.268]                       invokeRestart("muffleMessage")
  [07:38:04.268]                       muffled <- TRUE
  [07:38:04.268]                     }
  [07:38:04.268]                     else if (inherits(cond, "warning")) {
  [07:38:04.268]                       invokeRestart("muffleWarning")
  [07:38:04.268]                       muffled <- TRUE
  [07:38:04.268]                     }
  [07:38:04.268]                     else if (inherits(cond, "condition")) {
  [07:38:04.268]                       computeRestarts <- base::computeRestarts
  [07:38:04.268]                       grepl <- base::grepl
  [07:38:04.268]                       is.null <- base::is.null
  [07:38:04.268]                       restarts <- computeRestarts(cond)
  [07:38:04.268]                       for (restart in restarts) {
  [07:38:04.268]                         name <- restart$name
  [07:38:04.268]                         if (is.null(name)) 
  [07:38:04.268]                           next
  [07:38:04.268]                         if (!grepl("^muffle", name)) 
  [07:38:04.268]                           next
  [07:38:04.268]                         invokeRestart(restart)
  [07:38:04.268]                         muffled <- TRUE
  [07:38:04.268]                         break
  [07:38:04.268]                       }
  [07:38:04.268]                     }
  [07:38:04.268]                     invisible(muffled)
  [07:38:04.268]                   }
  [07:38:04.268]                   muffleCondition(cond)
  [07:38:04.268]                 })
  [07:38:04.268]             }))
  [07:38:04.268]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.268]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.268]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.268]                 version = "1.8")
  [07:38:04.268]         }, condition = base::local({
  [07:38:04.268]             c <- base::c
  [07:38:04.268]             inherits <- base::inherits
  [07:38:04.268]             invokeRestart <- base::invokeRestart
  [07:38:04.268]             length <- base::length
  [07:38:04.268]             list <- base::list
  [07:38:04.268]             seq.int <- base::seq.int
  [07:38:04.268]             signalCondition <- base::signalCondition
  [07:38:04.268]             sys.calls <- base::sys.calls
  [07:38:04.268]             Sys.time <- base::Sys.time
  [07:38:04.268]             `[[` <- base::`[[`
  [07:38:04.268]             `+` <- base::`+`
  [07:38:04.268]             `<<-` <- base::`<<-`
  [07:38:04.268]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.268]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.268]                   3L)]
  [07:38:04.268]             }
  [07:38:04.268]             function(cond) {
  [07:38:04.268]                 if (inherits(cond, "error")) {
  [07:38:04.268]                   sessionInformation <- function() {
  [07:38:04.268]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.268]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.268]                       search = base::search(), system = base::Sys.info())
  [07:38:04.268]                   }
  [07:38:04.268]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.268]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.268]                     cond$call), session = sessionInformation(), 
  [07:38:04.268]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.268]                   signalCondition(cond)
  [07:38:04.268]                 }
  [07:38:04.268]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.268]                 ))) {
  [07:38:04.268]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.268]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.268]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.268]                   if (!signal) {
  [07:38:04.268]                     muffleCondition <- function (cond) 
  [07:38:04.268]                     {
  [07:38:04.268]                       inherits <- base::inherits
  [07:38:04.268]                       invokeRestart <- base::invokeRestart
  [07:38:04.268]                       muffled <- FALSE
  [07:38:04.268]                       if (inherits(cond, "message")) {
  [07:38:04.268]                         invokeRestart("muffleMessage")
  [07:38:04.268]                         muffled <- TRUE
  [07:38:04.268]                       }
  [07:38:04.268]                       else if (inherits(cond, "warning")) {
  [07:38:04.268]                         invokeRestart("muffleWarning")
  [07:38:04.268]                         muffled <- TRUE
  [07:38:04.268]                       }
  [07:38:04.268]                       else if (inherits(cond, "condition")) {
  [07:38:04.268]                         computeRestarts <- base::computeRestarts
  [07:38:04.268]                         grepl <- base::grepl
  [07:38:04.268]                         is.null <- base::is.null
  [07:38:04.268]                         restarts <- computeRestarts(cond)
  [07:38:04.268]                         for (restart in restarts) {
  [07:38:04.268]                           name <- restart$name
  [07:38:04.268]                           if (is.null(name)) 
  [07:38:04.268]                             next
  [07:38:04.268]                           if (!grepl("^muffle", name)) 
  [07:38:04.268]                             next
  [07:38:04.268]                           invokeRestart(restart)
  [07:38:04.268]                           muffled <- TRUE
  [07:38:04.268]                           break
  [07:38:04.268]                         }
  [07:38:04.268]                       }
  [07:38:04.268]                       invisible(muffled)
  [07:38:04.268]                     }
  [07:38:04.268]                     muffleCondition(cond)
  [07:38:04.268]                   }
  [07:38:04.268]                 }
  [07:38:04.268]             }
  [07:38:04.268]         }))
  [07:38:04.268]     }, error = function(ex) {
  [07:38:04.268]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.268]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.268]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.268]     }, finally = {
  [07:38:04.268]         {
  [07:38:04.268]             NULL
  [07:38:04.268]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.268]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.268]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.268]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.268]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.268]                 ...) 
  [07:38:04.268]             {
  [07:38:04.268]                 if (substitute) 
  [07:38:04.268]                   expr <- substitute(expr)
  [07:38:04.268]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.268]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.268]                   globals = globals, persistent = persistent, 
  [07:38:04.268]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.268]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.268]                   label = label, ...)
  [07:38:04.268]                 if (!future$lazy) 
  [07:38:04.268]                   future <- run(future)
  [07:38:04.268]                 invisible(future)
  [07:38:04.268]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.268]         }
  [07:38:04.268]         base::options(...future.oldOptions)
  [07:38:04.268]     })
  [07:38:04.268]     Sys.time
  [07:38:04.268]     if (base::is.na(TRUE)) {
  [07:38:04.268]     }
  [07:38:04.268]     else {
  [07:38:04.268]         base::sink(type = "output", split = FALSE)
  [07:38:04.268]         if (TRUE) {
  [07:38:04.268]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.268]         }
  [07:38:04.268]         else {
  [07:38:04.268]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.268]         }
  [07:38:04.268]         base::close(...future.stdout)
  [07:38:04.268]         ...future.stdout <- NULL
  [07:38:04.268]     }
  [07:38:04.268]     ...future.result$conditions <- ...future.conditions
  [07:38:04.268]     ...future.result
  [07:38:04.268] }
  [07:38:04.292] ClusterFuture started
  [07:38:04.293] getGlobalsAndPackages() ...
  [07:38:04.293] Searching for globals...
  [07:38:04.294] 
  [07:38:04.295] Searching for globals ... DONE
  [07:38:04.295] - globals: [0] <none>
  [07:38:04.295] getGlobalsAndPackages() ... DONE
  [07:38:04.302] Packages needed by the future expression (n = 0): <none>
  [07:38:04.303] Packages needed by future strategies (n = 0): <none>
  [07:38:04.323] {
  [07:38:04.323]     {
  [07:38:04.323]         ...future.startTime <- base::Sys.time()
  [07:38:04.323]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.323]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.323]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.323]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.323]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.323]         {
  [07:38:04.323]             {
  [07:38:04.323]                 base::local({
  [07:38:04.323]                   has_future <- base::requireNamespace("future", 
  [07:38:04.323]                     quietly = TRUE)
  [07:38:04.323]                   version <- if (has_future) 
  [07:38:04.323]                     utils::packageVersion("future")
  [07:38:04.323]                   else NULL
  [07:38:04.323]                   if (!has_future || version < "1.8.0") {
  [07:38:04.323]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.323]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.323]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.323]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.323]                         "release", "version")], collapse = " "), 
  [07:38:04.323]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.323]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.323]                       info)
  [07:38:04.323]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.323]                     if (!has_future) {
  [07:38:04.323]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.323]                         info)
  [07:38:04.323]                     }
  [07:38:04.323]                     else {
  [07:38:04.323]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.323]                         info, version)
  [07:38:04.323]                     }
  [07:38:04.323]                     base::stop(msg)
  [07:38:04.323]                   }
  [07:38:04.323]                 })
  [07:38:04.323]             }
  [07:38:04.323]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.323]         }
  [07:38:04.323]     }
  [07:38:04.323]     if (base::is.na(TRUE)) {
  [07:38:04.323]     }
  [07:38:04.323]     else {
  [07:38:04.323]         if (TRUE) {
  [07:38:04.323]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.323]                 open = "w")
  [07:38:04.323]         }
  [07:38:04.323]         else {
  [07:38:04.323]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.323]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.323]         }
  [07:38:04.323]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.323]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.323]             base::sink(type = "output", split = FALSE)
  [07:38:04.323]             base::close(...future.stdout)
  [07:38:04.323]         }, add = TRUE)
  [07:38:04.323]     }
  [07:38:04.323]     ...future.frame <- base::sys.nframe()
  [07:38:04.323]     ...future.conditions <- base::list()
  [07:38:04.323]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.323]     ...future.result <- base::tryCatch({
  [07:38:04.323]         base::withCallingHandlers({
  [07:38:04.323]             ...future.value <- base::withVisible(base::local({
  [07:38:04.323]                 ...future.sendCondition <- local({
  [07:38:04.323]                   sendCondition <- NULL
  [07:38:04.323]                   function(frame = 1L) {
  [07:38:04.323]                     if (is.function(sendCondition)) 
  [07:38:04.323]                       return(sendCondition)
  [07:38:04.323]                     ns <- getNamespace("parallel")
  [07:38:04.323]                     if (exists("sendData", mode = "function", 
  [07:38:04.323]                       envir = ns)) {
  [07:38:04.323]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.323]                         envir = ns)
  [07:38:04.323]                       envir <- sys.frame(frame)
  [07:38:04.323]                       master <- NULL
  [07:38:04.323]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.323]                         !identical(envir, emptyenv())) {
  [07:38:04.323]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.323]                           inherits = FALSE)) {
  [07:38:04.323]                           master <- get("master", mode = "list", 
  [07:38:04.323]                             envir = envir, inherits = FALSE)
  [07:38:04.323]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.323]                             sendCondition <<- function(cond) {
  [07:38:04.323]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.323]                                 success = TRUE)
  [07:38:04.323]                               parallel_sendData(master, data)
  [07:38:04.323]                             }
  [07:38:04.323]                             return(sendCondition)
  [07:38:04.323]                           }
  [07:38:04.323]                         }
  [07:38:04.323]                         frame <- frame + 1L
  [07:38:04.323]                         envir <- sys.frame(frame)
  [07:38:04.323]                       }
  [07:38:04.323]                     }
  [07:38:04.323]                     sendCondition <<- function(cond) NULL
  [07:38:04.323]                   }
  [07:38:04.323]                 })
  [07:38:04.323]                 withCallingHandlers({
  [07:38:04.323]                   NULL
  [07:38:04.323]                 }, immediateCondition = function(cond) {
  [07:38:04.323]                   sendCondition <- ...future.sendCondition()
  [07:38:04.323]                   sendCondition(cond)
  [07:38:04.323]                   muffleCondition <- function (cond) 
  [07:38:04.323]                   {
  [07:38:04.323]                     inherits <- base::inherits
  [07:38:04.323]                     invokeRestart <- base::invokeRestart
  [07:38:04.323]                     muffled <- FALSE
  [07:38:04.323]                     if (inherits(cond, "message")) {
  [07:38:04.323]                       invokeRestart("muffleMessage")
  [07:38:04.323]                       muffled <- TRUE
  [07:38:04.323]                     }
  [07:38:04.323]                     else if (inherits(cond, "warning")) {
  [07:38:04.323]                       invokeRestart("muffleWarning")
  [07:38:04.323]                       muffled <- TRUE
  [07:38:04.323]                     }
  [07:38:04.323]                     else if (inherits(cond, "condition")) {
  [07:38:04.323]                       computeRestarts <- base::computeRestarts
  [07:38:04.323]                       grepl <- base::grepl
  [07:38:04.323]                       is.null <- base::is.null
  [07:38:04.323]                       restarts <- computeRestarts(cond)
  [07:38:04.323]                       for (restart in restarts) {
  [07:38:04.323]                         name <- restart$name
  [07:38:04.323]                         if (is.null(name)) 
  [07:38:04.323]                           next
  [07:38:04.323]                         if (!grepl("^muffle", name)) 
  [07:38:04.323]                           next
  [07:38:04.323]                         invokeRestart(restart)
  [07:38:04.323]                         muffled <- TRUE
  [07:38:04.323]                         break
  [07:38:04.323]                       }
  [07:38:04.323]                     }
  [07:38:04.323]                     invisible(muffled)
  [07:38:04.323]                   }
  [07:38:04.323]                   muffleCondition(cond)
  [07:38:04.323]                 })
  [07:38:04.323]             }))
  [07:38:04.323]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.323]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.323]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.323]                 version = "1.8")
  [07:38:04.323]         }, condition = base::local({
  [07:38:04.323]             c <- base::c
  [07:38:04.323]             inherits <- base::inherits
  [07:38:04.323]             invokeRestart <- base::invokeRestart
  [07:38:04.323]             length <- base::length
  [07:38:04.323]             list <- base::list
  [07:38:04.323]             seq.int <- base::seq.int
  [07:38:04.323]             signalCondition <- base::signalCondition
  [07:38:04.323]             sys.calls <- base::sys.calls
  [07:38:04.323]             Sys.time <- base::Sys.time
  [07:38:04.323]             `[[` <- base::`[[`
  [07:38:04.323]             `+` <- base::`+`
  [07:38:04.323]             `<<-` <- base::`<<-`
  [07:38:04.323]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.323]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.323]                   3L)]
  [07:38:04.323]             }
  [07:38:04.323]             function(cond) {
  [07:38:04.323]                 if (inherits(cond, "error")) {
  [07:38:04.323]                   sessionInformation <- function() {
  [07:38:04.323]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.323]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.323]                       search = base::search(), system = base::Sys.info())
  [07:38:04.323]                   }
  [07:38:04.323]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.323]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.323]                     cond$call), session = sessionInformation(), 
  [07:38:04.323]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.323]                   signalCondition(cond)
  [07:38:04.323]                 }
  [07:38:04.323]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.323]                 ))) {
  [07:38:04.323]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.323]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.323]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.323]                   if (!signal) {
  [07:38:04.323]                     muffleCondition <- function (cond) 
  [07:38:04.323]                     {
  [07:38:04.323]                       inherits <- base::inherits
  [07:38:04.323]                       invokeRestart <- base::invokeRestart
  [07:38:04.323]                       muffled <- FALSE
  [07:38:04.323]                       if (inherits(cond, "message")) {
  [07:38:04.323]                         invokeRestart("muffleMessage")
  [07:38:04.323]                         muffled <- TRUE
  [07:38:04.323]                       }
  [07:38:04.323]                       else if (inherits(cond, "warning")) {
  [07:38:04.323]                         invokeRestart("muffleWarning")
  [07:38:04.323]                         muffled <- TRUE
  [07:38:04.323]                       }
  [07:38:04.323]                       else if (inherits(cond, "condition")) {
  [07:38:04.323]                         computeRestarts <- base::computeRestarts
  [07:38:04.323]                         grepl <- base::grepl
  [07:38:04.323]                         is.null <- base::is.null
  [07:38:04.323]                         restarts <- computeRestarts(cond)
  [07:38:04.323]                         for (restart in restarts) {
  [07:38:04.323]                           name <- restart$name
  [07:38:04.323]                           if (is.null(name)) 
  [07:38:04.323]                             next
  [07:38:04.323]                           if (!grepl("^muffle", name)) 
  [07:38:04.323]                             next
  [07:38:04.323]                           invokeRestart(restart)
  [07:38:04.323]                           muffled <- TRUE
  [07:38:04.323]                           break
  [07:38:04.323]                         }
  [07:38:04.323]                       }
  [07:38:04.323]                       invisible(muffled)
  [07:38:04.323]                     }
  [07:38:04.323]                     muffleCondition(cond)
  [07:38:04.323]                   }
  [07:38:04.323]                 }
  [07:38:04.323]             }
  [07:38:04.323]         }))
  [07:38:04.323]     }, error = function(ex) {
  [07:38:04.323]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.323]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.323]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.323]     }, finally = {
  [07:38:04.323]         {
  [07:38:04.323]             NULL
  [07:38:04.323]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.323]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.323]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.323]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.323]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.323]                 ...) 
  [07:38:04.323]             {
  [07:38:04.323]                 if (substitute) 
  [07:38:04.323]                   expr <- substitute(expr)
  [07:38:04.323]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.323]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.323]                   globals = globals, persistent = persistent, 
  [07:38:04.323]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.323]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.323]                   label = label, ...)
  [07:38:04.323]                 if (!future$lazy) 
  [07:38:04.323]                   future <- run(future)
  [07:38:04.323]                 invisible(future)
  [07:38:04.323]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.323]         }
  [07:38:04.323]         base::options(...future.oldOptions)
  [07:38:04.323]     })
  [07:38:04.323]     Sys.time
  [07:38:04.323]     if (base::is.na(TRUE)) {
  [07:38:04.323]     }
  [07:38:04.323]     else {
  [07:38:04.323]         base::sink(type = "output", split = FALSE)
  [07:38:04.323]         if (TRUE) {
  [07:38:04.323]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.323]         }
  [07:38:04.323]         else {
  [07:38:04.323]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.323]         }
  [07:38:04.323]         base::close(...future.stdout)
  [07:38:04.323]         ...future.stdout <- NULL
  [07:38:04.323]     }
  [07:38:04.323]     ...future.result$conditions <- ...future.conditions
  [07:38:04.323]     ...future.result
  [07:38:04.323] }
  [07:38:04.329] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:04.356] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.357] - Validating connection of ClusterFuture
  [07:38:04.358] - received message: FutureResult
  [07:38:04.358] - Received FutureResult
  [07:38:04.359] - Erased future from FutureRegistry
  [07:38:04.359] result() for ClusterFuture ...
  [07:38:04.360] - result already collected: FutureResult
  [07:38:04.360] result() for ClusterFuture ... done
  [07:38:04.360] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:04.361] result() for ClusterFuture ...
  [07:38:04.361] - result already collected: FutureResult
  [07:38:04.362] result() for ClusterFuture ... done
  [07:38:04.362] result() for ClusterFuture ...
  [07:38:04.363] - result already collected: FutureResult
  [07:38:04.363] result() for ClusterFuture ... done
  [07:38:04.367] ClusterFuture started
  [07:38:04.369] getGlobalsAndPackages() ...
  [07:38:04.369] Searching for globals...
  [07:38:04.371] - globals found: [1] '{'
  [07:38:04.372] Searching for globals ... DONE
  [07:38:04.372] Resolving globals: FALSE
  [07:38:04.373] 
  [07:38:04.374] 
  [07:38:04.374] getGlobalsAndPackages() ... DONE
  [07:38:04.381] Packages needed by the future expression (n = 0): <none>
  [07:38:04.382] Packages needed by future strategies (n = 0): <none>
  [07:38:04.389] {
  [07:38:04.389]     {
  [07:38:04.389]         ...future.startTime <- base::Sys.time()
  [07:38:04.389]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.389]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.389]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.389]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.389]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.389]         {
  [07:38:04.389]             {
  [07:38:04.389]                 base::local({
  [07:38:04.389]                   has_future <- base::requireNamespace("future", 
  [07:38:04.389]                     quietly = TRUE)
  [07:38:04.389]                   version <- if (has_future) 
  [07:38:04.389]                     utils::packageVersion("future")
  [07:38:04.389]                   else NULL
  [07:38:04.389]                   if (!has_future || version < "1.8.0") {
  [07:38:04.389]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.389]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.389]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.389]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.389]                         "release", "version")], collapse = " "), 
  [07:38:04.389]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.389]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.389]                       info)
  [07:38:04.389]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.389]                     if (!has_future) {
  [07:38:04.389]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.389]                         info)
  [07:38:04.389]                     }
  [07:38:04.389]                     else {
  [07:38:04.389]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.389]                         info, version)
  [07:38:04.389]                     }
  [07:38:04.389]                     base::stop(msg)
  [07:38:04.389]                   }
  [07:38:04.389]                 })
  [07:38:04.389]             }
  [07:38:04.389]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.389]         }
  [07:38:04.389]     }
  [07:38:04.389]     if (base::is.na(TRUE)) {
  [07:38:04.389]     }
  [07:38:04.389]     else {
  [07:38:04.389]         if (TRUE) {
  [07:38:04.389]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.389]                 open = "w")
  [07:38:04.389]         }
  [07:38:04.389]         else {
  [07:38:04.389]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.389]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.389]         }
  [07:38:04.389]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.389]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.389]             base::sink(type = "output", split = FALSE)
  [07:38:04.389]             base::close(...future.stdout)
  [07:38:04.389]         }, add = TRUE)
  [07:38:04.389]     }
  [07:38:04.389]     ...future.frame <- base::sys.nframe()
  [07:38:04.389]     ...future.conditions <- base::list()
  [07:38:04.389]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.389]     ...future.result <- base::tryCatch({
  [07:38:04.389]         base::withCallingHandlers({
  [07:38:04.389]             ...future.value <- base::withVisible(base::local({
  [07:38:04.389]                 ...future.sendCondition <- local({
  [07:38:04.389]                   sendCondition <- NULL
  [07:38:04.389]                   function(frame = 1L) {
  [07:38:04.389]                     if (is.function(sendCondition)) 
  [07:38:04.389]                       return(sendCondition)
  [07:38:04.389]                     ns <- getNamespace("parallel")
  [07:38:04.389]                     if (exists("sendData", mode = "function", 
  [07:38:04.389]                       envir = ns)) {
  [07:38:04.389]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.389]                         envir = ns)
  [07:38:04.389]                       envir <- sys.frame(frame)
  [07:38:04.389]                       master <- NULL
  [07:38:04.389]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.389]                         !identical(envir, emptyenv())) {
  [07:38:04.389]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.389]                           inherits = FALSE)) {
  [07:38:04.389]                           master <- get("master", mode = "list", 
  [07:38:04.389]                             envir = envir, inherits = FALSE)
  [07:38:04.389]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.389]                             sendCondition <<- function(cond) {
  [07:38:04.389]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.389]                                 success = TRUE)
  [07:38:04.389]                               parallel_sendData(master, data)
  [07:38:04.389]                             }
  [07:38:04.389]                             return(sendCondition)
  [07:38:04.389]                           }
  [07:38:04.389]                         }
  [07:38:04.389]                         frame <- frame + 1L
  [07:38:04.389]                         envir <- sys.frame(frame)
  [07:38:04.389]                       }
  [07:38:04.389]                     }
  [07:38:04.389]                     sendCondition <<- function(cond) NULL
  [07:38:04.389]                   }
  [07:38:04.389]                 })
  [07:38:04.389]                 withCallingHandlers({
  [07:38:04.389]                   {
  [07:38:04.389]                     4
  [07:38:04.389]                   }
  [07:38:04.389]                 }, immediateCondition = function(cond) {
  [07:38:04.389]                   sendCondition <- ...future.sendCondition()
  [07:38:04.389]                   sendCondition(cond)
  [07:38:04.389]                   muffleCondition <- function (cond) 
  [07:38:04.389]                   {
  [07:38:04.389]                     inherits <- base::inherits
  [07:38:04.389]                     invokeRestart <- base::invokeRestart
  [07:38:04.389]                     muffled <- FALSE
  [07:38:04.389]                     if (inherits(cond, "message")) {
  [07:38:04.389]                       invokeRestart("muffleMessage")
  [07:38:04.389]                       muffled <- TRUE
  [07:38:04.389]                     }
  [07:38:04.389]                     else if (inherits(cond, "warning")) {
  [07:38:04.389]                       invokeRestart("muffleWarning")
  [07:38:04.389]                       muffled <- TRUE
  [07:38:04.389]                     }
  [07:38:04.389]                     else if (inherits(cond, "condition")) {
  [07:38:04.389]                       computeRestarts <- base::computeRestarts
  [07:38:04.389]                       grepl <- base::grepl
  [07:38:04.389]                       is.null <- base::is.null
  [07:38:04.389]                       restarts <- computeRestarts(cond)
  [07:38:04.389]                       for (restart in restarts) {
  [07:38:04.389]                         name <- restart$name
  [07:38:04.389]                         if (is.null(name)) 
  [07:38:04.389]                           next
  [07:38:04.389]                         if (!grepl("^muffle", name)) 
  [07:38:04.389]                           next
  [07:38:04.389]                         invokeRestart(restart)
  [07:38:04.389]                         muffled <- TRUE
  [07:38:04.389]                         break
  [07:38:04.389]                       }
  [07:38:04.389]                     }
  [07:38:04.389]                     invisible(muffled)
  [07:38:04.389]                   }
  [07:38:04.389]                   muffleCondition(cond)
  [07:38:04.389]                 })
  [07:38:04.389]             }))
  [07:38:04.389]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.389]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.389]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.389]                 version = "1.8")
  [07:38:04.389]         }, condition = base::local({
  [07:38:04.389]             c <- base::c
  [07:38:04.389]             inherits <- base::inherits
  [07:38:04.389]             invokeRestart <- base::invokeRestart
  [07:38:04.389]             length <- base::length
  [07:38:04.389]             list <- base::list
  [07:38:04.389]             seq.int <- base::seq.int
  [07:38:04.389]             signalCondition <- base::signalCondition
  [07:38:04.389]             sys.calls <- base::sys.calls
  [07:38:04.389]             Sys.time <- base::Sys.time
  [07:38:04.389]             `[[` <- base::`[[`
  [07:38:04.389]             `+` <- base::`+`
  [07:38:04.389]             `<<-` <- base::`<<-`
  [07:38:04.389]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.389]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.389]                   3L)]
  [07:38:04.389]             }
  [07:38:04.389]             function(cond) {
  [07:38:04.389]                 if (inherits(cond, "error")) {
  [07:38:04.389]                   sessionInformation <- function() {
  [07:38:04.389]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.389]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.389]                       search = base::search(), system = base::Sys.info())
  [07:38:04.389]                   }
  [07:38:04.389]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.389]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.389]                     cond$call), session = sessionInformation(), 
  [07:38:04.389]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.389]                   signalCondition(cond)
  [07:38:04.389]                 }
  [07:38:04.389]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.389]                 ))) {
  [07:38:04.389]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.389]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.389]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.389]                   if (!signal) {
  [07:38:04.389]                     muffleCondition <- function (cond) 
  [07:38:04.389]                     {
  [07:38:04.389]                       inherits <- base::inherits
  [07:38:04.389]                       invokeRestart <- base::invokeRestart
  [07:38:04.389]                       muffled <- FALSE
  [07:38:04.389]                       if (inherits(cond, "message")) {
  [07:38:04.389]                         invokeRestart("muffleMessage")
  [07:38:04.389]                         muffled <- TRUE
  [07:38:04.389]                       }
  [07:38:04.389]                       else if (inherits(cond, "warning")) {
  [07:38:04.389]                         invokeRestart("muffleWarning")
  [07:38:04.389]                         muffled <- TRUE
  [07:38:04.389]                       }
  [07:38:04.389]                       else if (inherits(cond, "condition")) {
  [07:38:04.389]                         computeRestarts <- base::computeRestarts
  [07:38:04.389]                         grepl <- base::grepl
  [07:38:04.389]                         is.null <- base::is.null
  [07:38:04.389]                         restarts <- computeRestarts(cond)
  [07:38:04.389]                         for (restart in restarts) {
  [07:38:04.389]                           name <- restart$name
  [07:38:04.389]                           if (is.null(name)) 
  [07:38:04.389]                             next
  [07:38:04.389]                           if (!grepl("^muffle", name)) 
  [07:38:04.389]                             next
  [07:38:04.389]                           invokeRestart(restart)
  [07:38:04.389]                           muffled <- TRUE
  [07:38:04.389]                           break
  [07:38:04.389]                         }
  [07:38:04.389]                       }
  [07:38:04.389]                       invisible(muffled)
  [07:38:04.389]                     }
  [07:38:04.389]                     muffleCondition(cond)
  [07:38:04.389]                   }
  [07:38:04.389]                 }
  [07:38:04.389]             }
  [07:38:04.389]         }))
  [07:38:04.389]     }, error = function(ex) {
  [07:38:04.389]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.389]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.389]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.389]     }, finally = {
  [07:38:04.389]         {
  [07:38:04.389]             NULL
  [07:38:04.389]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.389]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.389]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.389]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.389]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.389]                 ...) 
  [07:38:04.389]             {
  [07:38:04.389]                 if (substitute) 
  [07:38:04.389]                   expr <- substitute(expr)
  [07:38:04.389]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.389]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.389]                   globals = globals, persistent = persistent, 
  [07:38:04.389]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.389]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.389]                   label = label, ...)
  [07:38:04.389]                 if (!future$lazy) 
  [07:38:04.389]                   future <- run(future)
  [07:38:04.389]                 invisible(future)
  [07:38:04.389]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.389]         }
  [07:38:04.389]         base::options(...future.oldOptions)
  [07:38:04.389]     })
  [07:38:04.389]     Sys.time
  [07:38:04.389]     if (base::is.na(TRUE)) {
  [07:38:04.389]     }
  [07:38:04.389]     else {
  [07:38:04.389]         base::sink(type = "output", split = FALSE)
  [07:38:04.389]         if (TRUE) {
  [07:38:04.389]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.389]         }
  [07:38:04.389]         else {
  [07:38:04.389]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.389]         }
  [07:38:04.389]         base::close(...future.stdout)
  [07:38:04.389]         ...future.stdout <- NULL
  [07:38:04.389]     }
  [07:38:04.389]     ...future.result$conditions <- ...future.conditions
  [07:38:04.389]     ...future.result
  [07:38:04.389] }
  [07:38:04.396] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:04.419] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.420] - Validating connection of ClusterFuture
  [07:38:04.421] - received message: FutureResult
  [07:38:04.421] - Received FutureResult
  [07:38:04.422] - Erased future from FutureRegistry
  [07:38:04.422] result() for ClusterFuture ...
  [07:38:04.423] - result already collected: FutureResult
  [07:38:04.423] result() for ClusterFuture ... done
  [07:38:04.424] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:04.424] result() for ClusterFuture ...
  [07:38:04.425] - result already collected: FutureResult
  [07:38:04.425] result() for ClusterFuture ... done
  [07:38:04.426] result() for ClusterFuture ...
  [07:38:04.426] - result already collected: FutureResult
  [07:38:04.427] result() for ClusterFuture ... done
  [07:38:04.431] ClusterFuture started
  <environment: 0x5576d509c2d8> 
  <environment: 0x5576d4fe7070> 
  [07:38:04.476] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.477] - Validating connection of ClusterFuture
  [07:38:04.477] - received message: FutureResult
  [07:38:04.478] - Received FutureResult
  [07:38:04.478] - Erased future from FutureRegistry
  [07:38:04.479] result() for ClusterFuture ...
  [07:38:04.479] - result already collected: FutureResult
  [07:38:04.479] result() for ClusterFuture ... done
  [07:38:04.480] receiveMessageFromWorker() for ClusterFuture ... done
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:04.484] resolve() on environment ...
  [07:38:04.485]  recursive: 0
  [07:38:04.487]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:04.487] signalConditionsASAP(numeric, pos=1) ...
  [07:38:04.488] - nx: 4
  [07:38:04.488] - relay: TRUE
  [07:38:04.489] - stdout: TRUE
  [07:38:04.489] - signal: TRUE
  [07:38:04.489] - resignal: FALSE
  [07:38:04.490] - force: TRUE
  [07:38:04.490] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.490] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.491]  - until=2
  [07:38:04.491]  - relaying element #2
  [07:38:04.492] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:04.492] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.492] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:04.493]  length: 3 (resolved future 1)
  [07:38:04.493] Future #2
  [07:38:04.494] result() for ClusterFuture ...
  [07:38:04.494] - result already collected: FutureResult
  [07:38:04.494] result() for ClusterFuture ... done
  [07:38:04.495] result() for ClusterFuture ...
  [07:38:04.495] - result already collected: FutureResult
  [07:38:04.496] result() for ClusterFuture ... done
  [07:38:04.496] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:04.496] - nx: 4
  [07:38:04.497] - relay: TRUE
  [07:38:04.497] - stdout: TRUE
  [07:38:04.498] - signal: TRUE
  [07:38:04.498] - resignal: FALSE
  [07:38:04.498] - force: TRUE
  [07:38:04.499] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:04.499] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.499]  - until=2
  [07:38:04.500]  - relaying element #2
  [07:38:04.500] result() for ClusterFuture ...
  [07:38:04.501] - result already collected: FutureResult
  [07:38:04.501] result() for ClusterFuture ... done
  [07:38:04.502] result() for ClusterFuture ...
  [07:38:04.502] - result already collected: FutureResult
  [07:38:04.517] result() for ClusterFuture ... done
  [07:38:04.517] result() for ClusterFuture ...
  [07:38:04.518] - result already collected: FutureResult
  [07:38:04.518] result() for ClusterFuture ... done
  [07:38:04.519] result() for ClusterFuture ...
  [07:38:04.519] - result already collected: FutureResult
  [07:38:04.520] result() for ClusterFuture ... done
  [07:38:04.520] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:04.520] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:04.521] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:04.521]  length: 2 (resolved future 2)
  [07:38:04.522] Future #3
  [07:38:04.522] result() for ClusterFuture ...
  [07:38:04.524] - result already collected: FutureResult
  [07:38:04.524] result() for ClusterFuture ... done
  [07:38:04.530] result() for ClusterFuture ...
  [07:38:04.531] - result already collected: FutureResult
  [07:38:04.531] result() for ClusterFuture ... done
  [07:38:04.532] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:04.532] - nx: 4
  [07:38:04.533] - relay: TRUE
  [07:38:04.533] - stdout: TRUE
  [07:38:04.533] - signal: TRUE
  [07:38:04.534] - resignal: FALSE
  [07:38:04.534] - force: TRUE
  [07:38:04.535] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:04.535] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:04.535]  - until=3
  [07:38:04.536]  - relaying element #3
  [07:38:04.536] result() for ClusterFuture ...
  [07:38:04.537] - result already collected: FutureResult
  [07:38:04.537] result() for ClusterFuture ... done
  [07:38:04.537] result() for ClusterFuture ...
  [07:38:04.538] - result already collected: FutureResult
  [07:38:04.538] result() for ClusterFuture ... done
  [07:38:04.539] result() for ClusterFuture ...
  [07:38:04.539] - result already collected: FutureResult
  [07:38:04.539] result() for ClusterFuture ... done
  [07:38:04.540] result() for ClusterFuture ...
  [07:38:04.540] - result already collected: FutureResult
  [07:38:04.541] result() for ClusterFuture ... done
  [07:38:04.541] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:04.541] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:04.542] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:04.544]  length: 1 (resolved future 3)
  [07:38:04.545] Future #4
  [07:38:04.545] result() for ClusterFuture ...
  [07:38:04.545] - result already collected: FutureResult
  [07:38:04.546] result() for ClusterFuture ... done
  [07:38:04.546] result() for ClusterFuture ...
  [07:38:04.547] - result already collected: FutureResult
  [07:38:04.547] result() for ClusterFuture ... done
  [07:38:04.548] signalConditionsASAP(ClusterFuture, pos=4) ...
  [07:38:04.548] - nx: 4
  [07:38:04.548] - relay: TRUE
  [07:38:04.549] - stdout: TRUE
  [07:38:04.549] - signal: TRUE
  [07:38:04.549] - resignal: FALSE
  [07:38:04.550] - force: TRUE
  [07:38:04.550] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:04.551] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:04.551]  - until=4
  [07:38:04.551]  - relaying element #4
  [07:38:04.552] result() for ClusterFuture ...
  [07:38:04.552] - result already collected: FutureResult
  [07:38:04.553] result() for ClusterFuture ... done
  [07:38:04.553] result() for ClusterFuture ...
  [07:38:04.553] - result already collected: FutureResult
  [07:38:04.554] result() for ClusterFuture ... done
  [07:38:04.554] result() for ClusterFuture ...
  [07:38:04.555] - result already collected: FutureResult
  [07:38:04.555] result() for ClusterFuture ... done
  [07:38:04.556] result() for ClusterFuture ...
  [07:38:04.556] - result already collected: FutureResult
  [07:38:04.556] result() for ClusterFuture ... done
  [07:38:04.557] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:04.557] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:04.558] signalConditionsASAP(ClusterFuture, pos=4) ... done
  [07:38:04.558]  length: 0 (resolved future 4)
  [07:38:04.558] Relaying remaining futures
  [07:38:04.559] signalConditionsASAP(NULL, pos=0) ...
  [07:38:04.559] - nx: 4
  [07:38:04.559] - relay: TRUE
  [07:38:04.560] - stdout: TRUE
  [07:38:04.560] - signal: TRUE
  [07:38:04.561] - resignal: FALSE
  [07:38:04.561] - force: TRUE
  [07:38:04.561] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:04.562] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:04.562] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:04.563] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:04.563] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:04.564] resolve() on environment ... DONE
  [07:38:04.564] result() for ClusterFuture ...
  [07:38:04.564] - result already collected: FutureResult
  [07:38:04.565] result() for ClusterFuture ... done
  [07:38:04.565] result() for ClusterFuture ...
  [07:38:04.566] - result already collected: FutureResult
  [07:38:04.566] result() for ClusterFuture ... done
  [07:38:04.566] result() for ClusterFuture ...
  [07:38:04.567] - result already collected: FutureResult
  [07:38:04.567] result() for ClusterFuture ... done
  [07:38:04.568] result() for ClusterFuture ...
  [07:38:04.568] - result already collected: FutureResult
  [07:38:04.568] result() for ClusterFuture ... done
  [07:38:04.569] result() for ClusterFuture ...
  [07:38:04.569] - result already collected: FutureResult
  [07:38:04.569] result() for ClusterFuture ... done
  [07:38:04.570] result() for ClusterFuture ...
  [07:38:04.570] - result already collected: FutureResult
  [07:38:04.571] result() for ClusterFuture ... done
  <environment: 0x5576d4630a88> 
  Dimensions: c(1, 6)
  [07:38:04.572] getGlobalsAndPackages() ...
  [07:38:04.573] Searching for globals...
  [07:38:04.574] 
  [07:38:04.574] Searching for globals ... DONE
  [07:38:04.575] - globals: [0] <none>
  [07:38:04.575] getGlobalsAndPackages() ... DONE
  [07:38:04.587] Packages needed by the future expression (n = 0): <none>
  [07:38:04.588] Packages needed by future strategies (n = 0): <none>
  [07:38:04.602] {
  [07:38:04.602]     {
  [07:38:04.602]         ...future.startTime <- base::Sys.time()
  [07:38:04.602]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.602]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.602]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.602]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.602]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.602]         {
  [07:38:04.602]             {
  [07:38:04.602]                 base::local({
  [07:38:04.602]                   has_future <- base::requireNamespace("future", 
  [07:38:04.602]                     quietly = TRUE)
  [07:38:04.602]                   version <- if (has_future) 
  [07:38:04.602]                     utils::packageVersion("future")
  [07:38:04.602]                   else NULL
  [07:38:04.602]                   if (!has_future || version < "1.8.0") {
  [07:38:04.602]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.602]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.602]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.602]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.602]                         "release", "version")], collapse = " "), 
  [07:38:04.602]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.602]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.602]                       info)
  [07:38:04.602]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.602]                     if (!has_future) {
  [07:38:04.602]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.602]                         info)
  [07:38:04.602]                     }
  [07:38:04.602]                     else {
  [07:38:04.602]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.602]                         info, version)
  [07:38:04.602]                     }
  [07:38:04.602]                     base::stop(msg)
  [07:38:04.602]                   }
  [07:38:04.602]                 })
  [07:38:04.602]             }
  [07:38:04.602]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.602]         }
  [07:38:04.602]     }
  [07:38:04.602]     if (base::is.na(TRUE)) {
  [07:38:04.602]     }
  [07:38:04.602]     else {
  [07:38:04.602]         if (TRUE) {
  [07:38:04.602]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.602]                 open = "w")
  [07:38:04.602]         }
  [07:38:04.602]         else {
  [07:38:04.602]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.602]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.602]         }
  [07:38:04.602]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.602]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.602]             base::sink(type = "output", split = FALSE)
  [07:38:04.602]             base::close(...future.stdout)
  [07:38:04.602]         }, add = TRUE)
  [07:38:04.602]     }
  [07:38:04.602]     ...future.frame <- base::sys.nframe()
  [07:38:04.602]     ...future.conditions <- base::list()
  [07:38:04.602]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.602]     ...future.result <- base::tryCatch({
  [07:38:04.602]         base::withCallingHandlers({
  [07:38:04.602]             ...future.value <- base::withVisible(base::local({
  [07:38:04.602]                 ...future.sendCondition <- local({
  [07:38:04.602]                   sendCondition <- NULL
  [07:38:04.602]                   function(frame = 1L) {
  [07:38:04.602]                     if (is.function(sendCondition)) 
  [07:38:04.602]                       return(sendCondition)
  [07:38:04.602]                     ns <- getNamespace("parallel")
  [07:38:04.602]                     if (exists("sendData", mode = "function", 
  [07:38:04.602]                       envir = ns)) {
  [07:38:04.602]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.602]                         envir = ns)
  [07:38:04.602]                       envir <- sys.frame(frame)
  [07:38:04.602]                       master <- NULL
  [07:38:04.602]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.602]                         !identical(envir, emptyenv())) {
  [07:38:04.602]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.602]                           inherits = FALSE)) {
  [07:38:04.602]                           master <- get("master", mode = "list", 
  [07:38:04.602]                             envir = envir, inherits = FALSE)
  [07:38:04.602]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.602]                             sendCondition <<- function(cond) {
  [07:38:04.602]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.602]                                 success = TRUE)
  [07:38:04.602]                               parallel_sendData(master, data)
  [07:38:04.602]                             }
  [07:38:04.602]                             return(sendCondition)
  [07:38:04.602]                           }
  [07:38:04.602]                         }
  [07:38:04.602]                         frame <- frame + 1L
  [07:38:04.602]                         envir <- sys.frame(frame)
  [07:38:04.602]                       }
  [07:38:04.602]                     }
  [07:38:04.602]                     sendCondition <<- function(cond) NULL
  [07:38:04.602]                   }
  [07:38:04.602]                 })
  [07:38:04.602]                 withCallingHandlers({
  [07:38:04.602]                   2
  [07:38:04.602]                 }, immediateCondition = function(cond) {
  [07:38:04.602]                   sendCondition <- ...future.sendCondition()
  [07:38:04.602]                   sendCondition(cond)
  [07:38:04.602]                   muffleCondition <- function (cond) 
  [07:38:04.602]                   {
  [07:38:04.602]                     inherits <- base::inherits
  [07:38:04.602]                     invokeRestart <- base::invokeRestart
  [07:38:04.602]                     muffled <- FALSE
  [07:38:04.602]                     if (inherits(cond, "message")) {
  [07:38:04.602]                       invokeRestart("muffleMessage")
  [07:38:04.602]                       muffled <- TRUE
  [07:38:04.602]                     }
  [07:38:04.602]                     else if (inherits(cond, "warning")) {
  [07:38:04.602]                       invokeRestart("muffleWarning")
  [07:38:04.602]                       muffled <- TRUE
  [07:38:04.602]                     }
  [07:38:04.602]                     else if (inherits(cond, "condition")) {
  [07:38:04.602]                       computeRestarts <- base::computeRestarts
  [07:38:04.602]                       grepl <- base::grepl
  [07:38:04.602]                       is.null <- base::is.null
  [07:38:04.602]                       restarts <- computeRestarts(cond)
  [07:38:04.602]                       for (restart in restarts) {
  [07:38:04.602]                         name <- restart$name
  [07:38:04.602]                         if (is.null(name)) 
  [07:38:04.602]                           next
  [07:38:04.602]                         if (!grepl("^muffle", name)) 
  [07:38:04.602]                           next
  [07:38:04.602]                         invokeRestart(restart)
  [07:38:04.602]                         muffled <- TRUE
  [07:38:04.602]                         break
  [07:38:04.602]                       }
  [07:38:04.602]                     }
  [07:38:04.602]                     invisible(muffled)
  [07:38:04.602]                   }
  [07:38:04.602]                   muffleCondition(cond)
  [07:38:04.602]                 })
  [07:38:04.602]             }))
  [07:38:04.602]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.602]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.602]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.602]                 version = "1.8")
  [07:38:04.602]         }, condition = base::local({
  [07:38:04.602]             c <- base::c
  [07:38:04.602]             inherits <- base::inherits
  [07:38:04.602]             invokeRestart <- base::invokeRestart
  [07:38:04.602]             length <- base::length
  [07:38:04.602]             list <- base::list
  [07:38:04.602]             seq.int <- base::seq.int
  [07:38:04.602]             signalCondition <- base::signalCondition
  [07:38:04.602]             sys.calls <- base::sys.calls
  [07:38:04.602]             Sys.time <- base::Sys.time
  [07:38:04.602]             `[[` <- base::`[[`
  [07:38:04.602]             `+` <- base::`+`
  [07:38:04.602]             `<<-` <- base::`<<-`
  [07:38:04.602]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.602]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.602]                   3L)]
  [07:38:04.602]             }
  [07:38:04.602]             function(cond) {
  [07:38:04.602]                 if (inherits(cond, "error")) {
  [07:38:04.602]                   sessionInformation <- function() {
  [07:38:04.602]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.602]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.602]                       search = base::search(), system = base::Sys.info())
  [07:38:04.602]                   }
  [07:38:04.602]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.602]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.602]                     cond$call), session = sessionInformation(), 
  [07:38:04.602]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.602]                   signalCondition(cond)
  [07:38:04.602]                 }
  [07:38:04.602]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.602]                 ))) {
  [07:38:04.602]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.602]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.602]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.602]                   if (!signal) {
  [07:38:04.602]                     muffleCondition <- function (cond) 
  [07:38:04.602]                     {
  [07:38:04.602]                       inherits <- base::inherits
  [07:38:04.602]                       invokeRestart <- base::invokeRestart
  [07:38:04.602]                       muffled <- FALSE
  [07:38:04.602]                       if (inherits(cond, "message")) {
  [07:38:04.602]                         invokeRestart("muffleMessage")
  [07:38:04.602]                         muffled <- TRUE
  [07:38:04.602]                       }
  [07:38:04.602]                       else if (inherits(cond, "warning")) {
  [07:38:04.602]                         invokeRestart("muffleWarning")
  [07:38:04.602]                         muffled <- TRUE
  [07:38:04.602]                       }
  [07:38:04.602]                       else if (inherits(cond, "condition")) {
  [07:38:04.602]                         computeRestarts <- base::computeRestarts
  [07:38:04.602]                         grepl <- base::grepl
  [07:38:04.602]                         is.null <- base::is.null
  [07:38:04.602]                         restarts <- computeRestarts(cond)
  [07:38:04.602]                         for (restart in restarts) {
  [07:38:04.602]                           name <- restart$name
  [07:38:04.602]                           if (is.null(name)) 
  [07:38:04.602]                             next
  [07:38:04.602]                           if (!grepl("^muffle", name)) 
  [07:38:04.602]                             next
  [07:38:04.602]                           invokeRestart(restart)
  [07:38:04.602]                           muffled <- TRUE
  [07:38:04.602]                           break
  [07:38:04.602]                         }
  [07:38:04.602]                       }
  [07:38:04.602]                       invisible(muffled)
  [07:38:04.602]                     }
  [07:38:04.602]                     muffleCondition(cond)
  [07:38:04.602]                   }
  [07:38:04.602]                 }
  [07:38:04.602]             }
  [07:38:04.602]         }))
  [07:38:04.602]     }, error = function(ex) {
  [07:38:04.602]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.602]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.602]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.602]     }, finally = {
  [07:38:04.602]         {
  [07:38:04.602]             NULL
  [07:38:04.602]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.602]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.602]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.602]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.602]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.602]                 ...) 
  [07:38:04.602]             {
  [07:38:04.602]                 if (substitute) 
  [07:38:04.602]                   expr <- substitute(expr)
  [07:38:04.602]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.602]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.602]                   globals = globals, persistent = persistent, 
  [07:38:04.602]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.602]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.602]                   label = label, ...)
  [07:38:04.602]                 if (!future$lazy) 
  [07:38:04.602]                   future <- run(future)
  [07:38:04.602]                 invisible(future)
  [07:38:04.602]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.602]         }
  [07:38:04.602]         base::options(...future.oldOptions)
  [07:38:04.602]     })
  [07:38:04.602]     Sys.time
  [07:38:04.602]     if (base::is.na(TRUE)) {
  [07:38:04.602]     }
  [07:38:04.602]     else {
  [07:38:04.602]         base::sink(type = "output", split = FALSE)
  [07:38:04.602]         if (TRUE) {
  [07:38:04.602]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.602]         }
  [07:38:04.602]         else {
  [07:38:04.602]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.602]         }
  [07:38:04.602]         base::close(...future.stdout)
  [07:38:04.602]         ...future.stdout <- NULL
  [07:38:04.602]     }
  [07:38:04.602]     ...future.result$conditions <- ...future.conditions
  [07:38:04.602]     ...future.result
  [07:38:04.602] }
  [07:38:04.625] ClusterFuture started
  [07:38:04.627] getGlobalsAndPackages() ...
  [07:38:04.627] Searching for globals...
  [07:38:04.630] 
  [07:38:04.631] Searching for globals ... DONE
  [07:38:04.632] - globals: [0] <none>
  [07:38:04.633] getGlobalsAndPackages() ... DONE
  [07:38:04.645] Packages needed by the future expression (n = 0): <none>
  [07:38:04.646] Packages needed by future strategies (n = 0): <none>
  [07:38:04.657] {
  [07:38:04.657]     {
  [07:38:04.657]         ...future.startTime <- base::Sys.time()
  [07:38:04.657]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.657]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.657]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.657]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.657]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.657]         {
  [07:38:04.657]             {
  [07:38:04.657]                 base::local({
  [07:38:04.657]                   has_future <- base::requireNamespace("future", 
  [07:38:04.657]                     quietly = TRUE)
  [07:38:04.657]                   version <- if (has_future) 
  [07:38:04.657]                     utils::packageVersion("future")
  [07:38:04.657]                   else NULL
  [07:38:04.657]                   if (!has_future || version < "1.8.0") {
  [07:38:04.657]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.657]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.657]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.657]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.657]                         "release", "version")], collapse = " "), 
  [07:38:04.657]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.657]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.657]                       info)
  [07:38:04.657]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.657]                     if (!has_future) {
  [07:38:04.657]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.657]                         info)
  [07:38:04.657]                     }
  [07:38:04.657]                     else {
  [07:38:04.657]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.657]                         info, version)
  [07:38:04.657]                     }
  [07:38:04.657]                     base::stop(msg)
  [07:38:04.657]                   }
  [07:38:04.657]                 })
  [07:38:04.657]             }
  [07:38:04.657]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.657]         }
  [07:38:04.657]     }
  [07:38:04.657]     if (base::is.na(TRUE)) {
  [07:38:04.657]     }
  [07:38:04.657]     else {
  [07:38:04.657]         if (TRUE) {
  [07:38:04.657]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.657]                 open = "w")
  [07:38:04.657]         }
  [07:38:04.657]         else {
  [07:38:04.657]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.657]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.657]         }
  [07:38:04.657]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.657]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.657]             base::sink(type = "output", split = FALSE)
  [07:38:04.657]             base::close(...future.stdout)
  [07:38:04.657]         }, add = TRUE)
  [07:38:04.657]     }
  [07:38:04.657]     ...future.frame <- base::sys.nframe()
  [07:38:04.657]     ...future.conditions <- base::list()
  [07:38:04.657]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.657]     ...future.result <- base::tryCatch({
  [07:38:04.657]         base::withCallingHandlers({
  [07:38:04.657]             ...future.value <- base::withVisible(base::local({
  [07:38:04.657]                 ...future.sendCondition <- local({
  [07:38:04.657]                   sendCondition <- NULL
  [07:38:04.657]                   function(frame = 1L) {
  [07:38:04.657]                     if (is.function(sendCondition)) 
  [07:38:04.657]                       return(sendCondition)
  [07:38:04.657]                     ns <- getNamespace("parallel")
  [07:38:04.657]                     if (exists("sendData", mode = "function", 
  [07:38:04.657]                       envir = ns)) {
  [07:38:04.657]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.657]                         envir = ns)
  [07:38:04.657]                       envir <- sys.frame(frame)
  [07:38:04.657]                       master <- NULL
  [07:38:04.657]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.657]                         !identical(envir, emptyenv())) {
  [07:38:04.657]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.657]                           inherits = FALSE)) {
  [07:38:04.657]                           master <- get("master", mode = "list", 
  [07:38:04.657]                             envir = envir, inherits = FALSE)
  [07:38:04.657]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.657]                             sendCondition <<- function(cond) {
  [07:38:04.657]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.657]                                 success = TRUE)
  [07:38:04.657]                               parallel_sendData(master, data)
  [07:38:04.657]                             }
  [07:38:04.657]                             return(sendCondition)
  [07:38:04.657]                           }
  [07:38:04.657]                         }
  [07:38:04.657]                         frame <- frame + 1L
  [07:38:04.657]                         envir <- sys.frame(frame)
  [07:38:04.657]                       }
  [07:38:04.657]                     }
  [07:38:04.657]                     sendCondition <<- function(cond) NULL
  [07:38:04.657]                   }
  [07:38:04.657]                 })
  [07:38:04.657]                 withCallingHandlers({
  [07:38:04.657]                   NULL
  [07:38:04.657]                 }, immediateCondition = function(cond) {
  [07:38:04.657]                   sendCondition <- ...future.sendCondition()
  [07:38:04.657]                   sendCondition(cond)
  [07:38:04.657]                   muffleCondition <- function (cond) 
  [07:38:04.657]                   {
  [07:38:04.657]                     inherits <- base::inherits
  [07:38:04.657]                     invokeRestart <- base::invokeRestart
  [07:38:04.657]                     muffled <- FALSE
  [07:38:04.657]                     if (inherits(cond, "message")) {
  [07:38:04.657]                       invokeRestart("muffleMessage")
  [07:38:04.657]                       muffled <- TRUE
  [07:38:04.657]                     }
  [07:38:04.657]                     else if (inherits(cond, "warning")) {
  [07:38:04.657]                       invokeRestart("muffleWarning")
  [07:38:04.657]                       muffled <- TRUE
  [07:38:04.657]                     }
  [07:38:04.657]                     else if (inherits(cond, "condition")) {
  [07:38:04.657]                       computeRestarts <- base::computeRestarts
  [07:38:04.657]                       grepl <- base::grepl
  [07:38:04.657]                       is.null <- base::is.null
  [07:38:04.657]                       restarts <- computeRestarts(cond)
  [07:38:04.657]                       for (restart in restarts) {
  [07:38:04.657]                         name <- restart$name
  [07:38:04.657]                         if (is.null(name)) 
  [07:38:04.657]                           next
  [07:38:04.657]                         if (!grepl("^muffle", name)) 
  [07:38:04.657]                           next
  [07:38:04.657]                         invokeRestart(restart)
  [07:38:04.657]                         muffled <- TRUE
  [07:38:04.657]                         break
  [07:38:04.657]                       }
  [07:38:04.657]                     }
  [07:38:04.657]                     invisible(muffled)
  [07:38:04.657]                   }
  [07:38:04.657]                   muffleCondition(cond)
  [07:38:04.657]                 })
  [07:38:04.657]             }))
  [07:38:04.657]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.657]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.657]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.657]                 version = "1.8")
  [07:38:04.657]         }, condition = base::local({
  [07:38:04.657]             c <- base::c
  [07:38:04.657]             inherits <- base::inherits
  [07:38:04.657]             invokeRestart <- base::invokeRestart
  [07:38:04.657]             length <- base::length
  [07:38:04.657]             list <- base::list
  [07:38:04.657]             seq.int <- base::seq.int
  [07:38:04.657]             signalCondition <- base::signalCondition
  [07:38:04.657]             sys.calls <- base::sys.calls
  [07:38:04.657]             Sys.time <- base::Sys.time
  [07:38:04.657]             `[[` <- base::`[[`
  [07:38:04.657]             `+` <- base::`+`
  [07:38:04.657]             `<<-` <- base::`<<-`
  [07:38:04.657]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.657]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.657]                   3L)]
  [07:38:04.657]             }
  [07:38:04.657]             function(cond) {
  [07:38:04.657]                 if (inherits(cond, "error")) {
  [07:38:04.657]                   sessionInformation <- function() {
  [07:38:04.657]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.657]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.657]                       search = base::search(), system = base::Sys.info())
  [07:38:04.657]                   }
  [07:38:04.657]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.657]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.657]                     cond$call), session = sessionInformation(), 
  [07:38:04.657]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.657]                   signalCondition(cond)
  [07:38:04.657]                 }
  [07:38:04.657]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.657]                 ))) {
  [07:38:04.657]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.657]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.657]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.657]                   if (!signal) {
  [07:38:04.657]                     muffleCondition <- function (cond) 
  [07:38:04.657]                     {
  [07:38:04.657]                       inherits <- base::inherits
  [07:38:04.657]                       invokeRestart <- base::invokeRestart
  [07:38:04.657]                       muffled <- FALSE
  [07:38:04.657]                       if (inherits(cond, "message")) {
  [07:38:04.657]                         invokeRestart("muffleMessage")
  [07:38:04.657]                         muffled <- TRUE
  [07:38:04.657]                       }
  [07:38:04.657]                       else if (inherits(cond, "warning")) {
  [07:38:04.657]                         invokeRestart("muffleWarning")
  [07:38:04.657]                         muffled <- TRUE
  [07:38:04.657]                       }
  [07:38:04.657]                       else if (inherits(cond, "condition")) {
  [07:38:04.657]                         computeRestarts <- base::computeRestarts
  [07:38:04.657]                         grepl <- base::grepl
  [07:38:04.657]                         is.null <- base::is.null
  [07:38:04.657]                         restarts <- computeRestarts(cond)
  [07:38:04.657]                         for (restart in restarts) {
  [07:38:04.657]                           name <- restart$name
  [07:38:04.657]                           if (is.null(name)) 
  [07:38:04.657]                             next
  [07:38:04.657]                           if (!grepl("^muffle", name)) 
  [07:38:04.657]                             next
  [07:38:04.657]                           invokeRestart(restart)
  [07:38:04.657]                           muffled <- TRUE
  [07:38:04.657]                           break
  [07:38:04.657]                         }
  [07:38:04.657]                       }
  [07:38:04.657]                       invisible(muffled)
  [07:38:04.657]                     }
  [07:38:04.657]                     muffleCondition(cond)
  [07:38:04.657]                   }
  [07:38:04.657]                 }
  [07:38:04.657]             }
  [07:38:04.657]         }))
  [07:38:04.657]     }, error = function(ex) {
  [07:38:04.657]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.657]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.657]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.657]     }, finally = {
  [07:38:04.657]         {
  [07:38:04.657]             NULL
  [07:38:04.657]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.657]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.657]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.657]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.657]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.657]                 ...) 
  [07:38:04.657]             {
  [07:38:04.657]                 if (substitute) 
  [07:38:04.657]                   expr <- substitute(expr)
  [07:38:04.657]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.657]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.657]                   globals = globals, persistent = persistent, 
  [07:38:04.657]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.657]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.657]                   label = label, ...)
  [07:38:04.657]                 if (!future$lazy) 
  [07:38:04.657]                   future <- run(future)
  [07:38:04.657]                 invisible(future)
  [07:38:04.657]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.657]         }
  [07:38:04.657]         base::options(...future.oldOptions)
  [07:38:04.657]     })
  [07:38:04.657]     Sys.time
  [07:38:04.657]     if (base::is.na(TRUE)) {
  [07:38:04.657]     }
  [07:38:04.657]     else {
  [07:38:04.657]         base::sink(type = "output", split = FALSE)
  [07:38:04.657]         if (TRUE) {
  [07:38:04.657]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.657]         }
  [07:38:04.657]         else {
  [07:38:04.657]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.657]         }
  [07:38:04.657]         base::close(...future.stdout)
  [07:38:04.657]         ...future.stdout <- NULL
  [07:38:04.657]     }
  [07:38:04.657]     ...future.result$conditions <- ...future.conditions
  [07:38:04.657]     ...future.result
  [07:38:04.657] }
  [07:38:04.664] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:04.690] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.690] - Validating connection of ClusterFuture
  [07:38:04.691] - received message: FutureResult
  [07:38:04.692] - Received FutureResult
  [07:38:04.692] - Erased future from FutureRegistry
  [07:38:04.693] result() for ClusterFuture ...
  [07:38:04.693] - result already collected: FutureResult
  [07:38:04.694] result() for ClusterFuture ... done
  [07:38:04.694] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:04.695] result() for ClusterFuture ...
  [07:38:04.696] - result already collected: FutureResult
  [07:38:04.696] result() for ClusterFuture ... done
  [07:38:04.697] result() for ClusterFuture ...
  [07:38:04.697] - result already collected: FutureResult
  [07:38:04.698] result() for ClusterFuture ... done
  [07:38:04.701] ClusterFuture started
  [07:38:04.704] getGlobalsAndPackages() ...
  [07:38:04.704] Searching for globals...
  [07:38:04.707] - globals found: [1] '{'
  [07:38:04.707] Searching for globals ... DONE
  [07:38:04.708] Resolving globals: FALSE
  [07:38:04.709] 
  [07:38:04.710] 
  [07:38:04.710] getGlobalsAndPackages() ... DONE
  [07:38:04.734] Packages needed by the future expression (n = 0): <none>
  [07:38:04.735] Packages needed by future strategies (n = 0): <none>
  [07:38:04.764] {
  [07:38:04.764]     {
  [07:38:04.764]         ...future.startTime <- base::Sys.time()
  [07:38:04.764]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:04.764]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:04.764]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:04.764]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:04.764]             future.resolve.recursive = NULL, width = 80L)
  [07:38:04.764]         {
  [07:38:04.764]             {
  [07:38:04.764]                 base::local({
  [07:38:04.764]                   has_future <- base::requireNamespace("future", 
  [07:38:04.764]                     quietly = TRUE)
  [07:38:04.764]                   version <- if (has_future) 
  [07:38:04.764]                     utils::packageVersion("future")
  [07:38:04.764]                   else NULL
  [07:38:04.764]                   if (!has_future || version < "1.8.0") {
  [07:38:04.764]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:04.764]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:04.764]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:04.764]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:04.764]                         "release", "version")], collapse = " "), 
  [07:38:04.764]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:04.764]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:04.764]                       info)
  [07:38:04.764]                     info <- base::paste(info, collapse = "; ")
  [07:38:04.764]                     if (!has_future) {
  [07:38:04.764]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:04.764]                         info)
  [07:38:04.764]                     }
  [07:38:04.764]                     else {
  [07:38:04.764]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:04.764]                         info, version)
  [07:38:04.764]                     }
  [07:38:04.764]                     base::stop(msg)
  [07:38:04.764]                   }
  [07:38:04.764]                 })
  [07:38:04.764]             }
  [07:38:04.764]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:04.764]         }
  [07:38:04.764]     }
  [07:38:04.764]     if (base::is.na(TRUE)) {
  [07:38:04.764]     }
  [07:38:04.764]     else {
  [07:38:04.764]         if (TRUE) {
  [07:38:04.764]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:04.764]                 open = "w")
  [07:38:04.764]         }
  [07:38:04.764]         else {
  [07:38:04.764]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:04.764]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:04.764]         }
  [07:38:04.764]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:04.764]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:04.764]             base::sink(type = "output", split = FALSE)
  [07:38:04.764]             base::close(...future.stdout)
  [07:38:04.764]         }, add = TRUE)
  [07:38:04.764]     }
  [07:38:04.764]     ...future.frame <- base::sys.nframe()
  [07:38:04.764]     ...future.conditions <- base::list()
  [07:38:04.764]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:04.764]     ...future.result <- base::tryCatch({
  [07:38:04.764]         base::withCallingHandlers({
  [07:38:04.764]             ...future.value <- base::withVisible(base::local({
  [07:38:04.764]                 ...future.sendCondition <- local({
  [07:38:04.764]                   sendCondition <- NULL
  [07:38:04.764]                   function(frame = 1L) {
  [07:38:04.764]                     if (is.function(sendCondition)) 
  [07:38:04.764]                       return(sendCondition)
  [07:38:04.764]                     ns <- getNamespace("parallel")
  [07:38:04.764]                     if (exists("sendData", mode = "function", 
  [07:38:04.764]                       envir = ns)) {
  [07:38:04.764]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:04.764]                         envir = ns)
  [07:38:04.764]                       envir <- sys.frame(frame)
  [07:38:04.764]                       master <- NULL
  [07:38:04.764]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:04.764]                         !identical(envir, emptyenv())) {
  [07:38:04.764]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:04.764]                           inherits = FALSE)) {
  [07:38:04.764]                           master <- get("master", mode = "list", 
  [07:38:04.764]                             envir = envir, inherits = FALSE)
  [07:38:04.764]                           if (inherits(master, "SOCKnode")) {
  [07:38:04.764]                             sendCondition <<- function(cond) {
  [07:38:04.764]                               data <- list(type = "VALUE", value = cond, 
  [07:38:04.764]                                 success = TRUE)
  [07:38:04.764]                               parallel_sendData(master, data)
  [07:38:04.764]                             }
  [07:38:04.764]                             return(sendCondition)
  [07:38:04.764]                           }
  [07:38:04.764]                         }
  [07:38:04.764]                         frame <- frame + 1L
  [07:38:04.764]                         envir <- sys.frame(frame)
  [07:38:04.764]                       }
  [07:38:04.764]                     }
  [07:38:04.764]                     sendCondition <<- function(cond) NULL
  [07:38:04.764]                   }
  [07:38:04.764]                 })
  [07:38:04.764]                 withCallingHandlers({
  [07:38:04.764]                   {
  [07:38:04.764]                     4
  [07:38:04.764]                   }
  [07:38:04.764]                 }, immediateCondition = function(cond) {
  [07:38:04.764]                   sendCondition <- ...future.sendCondition()
  [07:38:04.764]                   sendCondition(cond)
  [07:38:04.764]                   muffleCondition <- function (cond) 
  [07:38:04.764]                   {
  [07:38:04.764]                     inherits <- base::inherits
  [07:38:04.764]                     invokeRestart <- base::invokeRestart
  [07:38:04.764]                     muffled <- FALSE
  [07:38:04.764]                     if (inherits(cond, "message")) {
  [07:38:04.764]                       invokeRestart("muffleMessage")
  [07:38:04.764]                       muffled <- TRUE
  [07:38:04.764]                     }
  [07:38:04.764]                     else if (inherits(cond, "warning")) {
  [07:38:04.764]                       invokeRestart("muffleWarning")
  [07:38:04.764]                       muffled <- TRUE
  [07:38:04.764]                     }
  [07:38:04.764]                     else if (inherits(cond, "condition")) {
  [07:38:04.764]                       computeRestarts <- base::computeRestarts
  [07:38:04.764]                       grepl <- base::grepl
  [07:38:04.764]                       is.null <- base::is.null
  [07:38:04.764]                       restarts <- computeRestarts(cond)
  [07:38:04.764]                       for (restart in restarts) {
  [07:38:04.764]                         name <- restart$name
  [07:38:04.764]                         if (is.null(name)) 
  [07:38:04.764]                           next
  [07:38:04.764]                         if (!grepl("^muffle", name)) 
  [07:38:04.764]                           next
  [07:38:04.764]                         invokeRestart(restart)
  [07:38:04.764]                         muffled <- TRUE
  [07:38:04.764]                         break
  [07:38:04.764]                       }
  [07:38:04.764]                     }
  [07:38:04.764]                     invisible(muffled)
  [07:38:04.764]                   }
  [07:38:04.764]                   muffleCondition(cond)
  [07:38:04.764]                 })
  [07:38:04.764]             }))
  [07:38:04.764]             future::FutureResult(value = ...future.value$value, 
  [07:38:04.764]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.764]                   ...future.rng), started = ...future.startTime, 
  [07:38:04.764]                 version = "1.8")
  [07:38:04.764]         }, condition = base::local({
  [07:38:04.764]             c <- base::c
  [07:38:04.764]             inherits <- base::inherits
  [07:38:04.764]             invokeRestart <- base::invokeRestart
  [07:38:04.764]             length <- base::length
  [07:38:04.764]             list <- base::list
  [07:38:04.764]             seq.int <- base::seq.int
  [07:38:04.764]             signalCondition <- base::signalCondition
  [07:38:04.764]             sys.calls <- base::sys.calls
  [07:38:04.764]             Sys.time <- base::Sys.time
  [07:38:04.764]             `[[` <- base::`[[`
  [07:38:04.764]             `+` <- base::`+`
  [07:38:04.764]             `<<-` <- base::`<<-`
  [07:38:04.764]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:04.764]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:04.764]                   3L)]
  [07:38:04.764]             }
  [07:38:04.764]             function(cond) {
  [07:38:04.764]                 if (inherits(cond, "error")) {
  [07:38:04.764]                   sessionInformation <- function() {
  [07:38:04.764]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:04.764]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:04.764]                       search = base::search(), system = base::Sys.info())
  [07:38:04.764]                   }
  [07:38:04.764]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.764]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:04.764]                     cond$call), session = sessionInformation(), 
  [07:38:04.764]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:04.764]                   signalCondition(cond)
  [07:38:04.764]                 }
  [07:38:04.764]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:04.764]                 ))) {
  [07:38:04.764]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:04.764]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:04.764]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:04.764]                   if (!signal) {
  [07:38:04.764]                     muffleCondition <- function (cond) 
  [07:38:04.764]                     {
  [07:38:04.764]                       inherits <- base::inherits
  [07:38:04.764]                       invokeRestart <- base::invokeRestart
  [07:38:04.764]                       muffled <- FALSE
  [07:38:04.764]                       if (inherits(cond, "message")) {
  [07:38:04.764]                         invokeRestart("muffleMessage")
  [07:38:04.764]                         muffled <- TRUE
  [07:38:04.764]                       }
  [07:38:04.764]                       else if (inherits(cond, "warning")) {
  [07:38:04.764]                         invokeRestart("muffleWarning")
  [07:38:04.764]                         muffled <- TRUE
  [07:38:04.764]                       }
  [07:38:04.764]                       else if (inherits(cond, "condition")) {
  [07:38:04.764]                         computeRestarts <- base::computeRestarts
  [07:38:04.764]                         grepl <- base::grepl
  [07:38:04.764]                         is.null <- base::is.null
  [07:38:04.764]                         restarts <- computeRestarts(cond)
  [07:38:04.764]                         for (restart in restarts) {
  [07:38:04.764]                           name <- restart$name
  [07:38:04.764]                           if (is.null(name)) 
  [07:38:04.764]                             next
  [07:38:04.764]                           if (!grepl("^muffle", name)) 
  [07:38:04.764]                             next
  [07:38:04.764]                           invokeRestart(restart)
  [07:38:04.764]                           muffled <- TRUE
  [07:38:04.764]                           break
  [07:38:04.764]                         }
  [07:38:04.764]                       }
  [07:38:04.764]                       invisible(muffled)
  [07:38:04.764]                     }
  [07:38:04.764]                     muffleCondition(cond)
  [07:38:04.764]                   }
  [07:38:04.764]                 }
  [07:38:04.764]             }
  [07:38:04.764]         }))
  [07:38:04.764]     }, error = function(ex) {
  [07:38:04.764]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:04.764]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:04.764]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:04.764]     }, finally = {
  [07:38:04.764]         {
  [07:38:04.764]             NULL
  [07:38:04.764]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:04.764]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:04.764]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:04.764]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:04.764]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:04.764]                 ...) 
  [07:38:04.764]             {
  [07:38:04.764]                 if (substitute) 
  [07:38:04.764]                   expr <- substitute(expr)
  [07:38:04.764]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:04.764]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:04.764]                   globals = globals, persistent = persistent, 
  [07:38:04.764]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:04.764]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:04.764]                   label = label, ...)
  [07:38:04.764]                 if (!future$lazy) 
  [07:38:04.764]                   future <- run(future)
  [07:38:04.764]                 invisible(future)
  [07:38:04.764]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:04.764]         }
  [07:38:04.764]         base::options(...future.oldOptions)
  [07:38:04.764]     })
  [07:38:04.764]     Sys.time
  [07:38:04.764]     if (base::is.na(TRUE)) {
  [07:38:04.764]     }
  [07:38:04.764]     else {
  [07:38:04.764]         base::sink(type = "output", split = FALSE)
  [07:38:04.764]         if (TRUE) {
  [07:38:04.764]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:04.764]         }
  [07:38:04.764]         else {
  [07:38:04.764]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:04.764]         }
  [07:38:04.764]         base::close(...future.stdout)
  [07:38:04.764]         ...future.stdout <- NULL
  [07:38:04.764]     }
  [07:38:04.764]     ...future.result$conditions <- ...future.conditions
  [07:38:04.764]     ...future.result
  [07:38:04.764] }
  [07:38:04.771] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:04.799] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.800] - Validating connection of ClusterFuture
  [07:38:04.801] - received message: FutureResult
  [07:38:04.801] - Received FutureResult
  [07:38:04.802] - Erased future from FutureRegistry
  [07:38:04.802] result() for ClusterFuture ...
  [07:38:04.803] - result already collected: FutureResult
  [07:38:04.803] result() for ClusterFuture ... done
  [07:38:04.804] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:04.805] result() for ClusterFuture ...
  [07:38:04.805] - result already collected: FutureResult
  [07:38:04.806] result() for ClusterFuture ... done
  [07:38:04.806] result() for ClusterFuture ...
  [07:38:04.807] - result already collected: FutureResult
  [07:38:04.807] result() for ClusterFuture ... done
  [07:38:04.853] ClusterFuture started
  <environment: 0x5576d63b6af8> 
  <environment: 0x5576d64f3520> 
  [07:38:04.899] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:04.900] - Validating connection of ClusterFuture
  [07:38:04.901] - received message: FutureResult
  [07:38:04.901] - Received FutureResult
  [07:38:04.902] - Erased future from FutureRegistry
  [07:38:04.902] result() for ClusterFuture ...
  [07:38:04.903] - result already collected: FutureResult
  [07:38:04.903] result() for ClusterFuture ... done
  [07:38:04.903] receiveMessageFromWorker() for ClusterFuture ... done
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:04.908] resolve() on environment ...
  [07:38:04.909]  recursive: 0
  [07:38:04.910]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:04.911] signalConditionsASAP(numeric, pos=1) ...
  [07:38:04.911] - nx: 4
  [07:38:04.911] - relay: TRUE
  [07:38:04.912] - stdout: TRUE
  [07:38:04.912] - signal: TRUE
  [07:38:04.912] - resignal: FALSE
  [07:38:04.913] - force: TRUE
  [07:38:04.913] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.913] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.914]  - until=2
  [07:38:04.914]  - relaying element #2
  [07:38:04.914] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:04.915] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.915] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:04.915]  length: 3 (resolved future 1)
  [07:38:04.916] Future #2
  [07:38:04.916] result() for ClusterFuture ...
  [07:38:04.917] - result already collected: FutureResult
  [07:38:04.917] result() for ClusterFuture ... done
  [07:38:04.917] result() for ClusterFuture ...
  [07:38:04.918] - result already collected: FutureResult
  [07:38:04.918] result() for ClusterFuture ... done
  [07:38:04.918] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:04.919] - nx: 4
  [07:38:04.919] - relay: TRUE
  [07:38:04.919] - stdout: TRUE
  [07:38:04.920] - signal: TRUE
  [07:38:04.920] - resignal: FALSE
  [07:38:04.920] - force: TRUE
  [07:38:04.920] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:04.921] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:04.921]  - until=2
  [07:38:04.921]  - relaying element #2
  [07:38:04.922] result() for ClusterFuture ...
  [07:38:04.922] - result already collected: FutureResult
  [07:38:04.939] result() for ClusterFuture ... done
  [07:38:04.939] result() for ClusterFuture ...
  [07:38:04.940] - result already collected: FutureResult
  [07:38:04.940] result() for ClusterFuture ... done
  [07:38:04.940] result() for ClusterFuture ...
  [07:38:04.941] - result already collected: FutureResult
  [07:38:04.941] result() for ClusterFuture ... done
  [07:38:04.941] result() for ClusterFuture ...
  [07:38:04.942] - result already collected: FutureResult
  [07:38:04.942] result() for ClusterFuture ... done
  [07:38:04.942] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:04.943] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:04.943] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:04.943]  length: 2 (resolved future 2)
  [07:38:04.944] Future #3
  [07:38:04.944] result() for ClusterFuture ...
  [07:38:04.945] - result already collected: FutureResult
  [07:38:04.945] result() for ClusterFuture ... done
  [07:38:04.945] result() for ClusterFuture ...
  [07:38:04.946] - result already collected: FutureResult
  [07:38:04.946] result() for ClusterFuture ... done
  [07:38:04.946] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:04.947] - nx: 4
  [07:38:04.947] - relay: TRUE
  [07:38:04.947] - stdout: TRUE
  [07:38:04.948] - signal: TRUE
  [07:38:04.948] - resignal: FALSE
  [07:38:04.948] - force: TRUE
  [07:38:04.949] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:04.949] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:04.949]  - until=3
  [07:38:04.950]  - relaying element #3
  [07:38:04.950] result() for ClusterFuture ...
  [07:38:04.950] - result already collected: FutureResult
  [07:38:04.951] result() for ClusterFuture ... done
  [07:38:04.951] result() for ClusterFuture ...
  [07:38:04.951] - result already collected: FutureResult
  [07:38:04.952] result() for ClusterFuture ... done
  [07:38:04.952] result() for ClusterFuture ...
  [07:38:04.953] - result already collected: FutureResult
  [07:38:04.953] result() for ClusterFuture ... done
  [07:38:04.953] result() for ClusterFuture ...
  [07:38:04.954] - result already collected: FutureResult
  [07:38:04.954] result() for ClusterFuture ... done
  [07:38:04.954] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:04.971] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:04.971] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:04.972]  length: 1 (resolved future 3)
  [07:38:04.972] Future #4
  [07:38:04.972] result() for ClusterFuture ...
  [07:38:04.973] - result already collected: FutureResult
  [07:38:04.973] result() for ClusterFuture ... done
  [07:38:04.973] result() for ClusterFuture ...
  [07:38:04.974] - result already collected: FutureResult
  [07:38:04.974] result() for ClusterFuture ... done
  [07:38:04.975] signalConditionsASAP(ClusterFuture, pos=4) ...
  [07:38:04.975] - nx: 4
  [07:38:04.975] - relay: TRUE
  [07:38:04.976] - stdout: TRUE
  [07:38:04.976] - signal: TRUE
  [07:38:04.976] - resignal: FALSE
  [07:38:04.977] - force: TRUE
  [07:38:04.977] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:04.977] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:04.978]  - until=4
  [07:38:04.978]  - relaying element #4
  [07:38:04.978] result() for ClusterFuture ...
  [07:38:04.979] - result already collected: FutureResult
  [07:38:04.979] result() for ClusterFuture ... done
  [07:38:04.979] result() for ClusterFuture ...
  [07:38:04.980] - result already collected: FutureResult
  [07:38:04.980] result() for ClusterFuture ... done
  [07:38:04.980] result() for ClusterFuture ...
  [07:38:04.981] - result already collected: FutureResult
  [07:38:04.981] result() for ClusterFuture ... done
  [07:38:04.981] result() for ClusterFuture ...
  [07:38:04.982] - result already collected: FutureResult
  [07:38:04.982] result() for ClusterFuture ... done
  [07:38:04.982] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:04.983] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:04.983] signalConditionsASAP(ClusterFuture, pos=4) ... done
  [07:38:04.983]  length: 0 (resolved future 4)
  [07:38:04.984] Relaying remaining futures
  [07:38:04.984] signalConditionsASAP(NULL, pos=0) ...
  [07:38:04.984] - nx: 4
  [07:38:04.985] - relay: TRUE
  [07:38:04.985] - stdout: TRUE
  [07:38:04.985] - signal: TRUE
  [07:38:04.985] - resignal: FALSE
  [07:38:04.986] - force: TRUE
  [07:38:04.986] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:04.998] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:04.999] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.000] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:05.000] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:05.000] resolve() on environment ... DONE
  [07:38:05.001] result() for ClusterFuture ...
  [07:38:05.001] - result already collected: FutureResult
  [07:38:05.001] result() for ClusterFuture ... done
  [07:38:05.002] result() for ClusterFuture ...
  [07:38:05.002] - result already collected: FutureResult
  [07:38:05.003] result() for ClusterFuture ... done
  [07:38:05.003] result() for ClusterFuture ...
  [07:38:05.003] - result already collected: FutureResult
  [07:38:05.004] result() for ClusterFuture ... done
  [07:38:05.004] result() for ClusterFuture ...
  [07:38:05.004] - result already collected: FutureResult
  [07:38:05.005] result() for ClusterFuture ... done
  [07:38:05.005] result() for ClusterFuture ...
  [07:38:05.005] - result already collected: FutureResult
  [07:38:05.006] result() for ClusterFuture ... done
  [07:38:05.006] result() for ClusterFuture ...
  [07:38:05.007] - result already collected: FutureResult
  [07:38:05.007] result() for ClusterFuture ... done
  <environment: 0x5576d4d15dc8> 
  Dimensions: c(2, 3)
  [07:38:05.008] getGlobalsAndPackages() ...
  [07:38:05.009] Searching for globals...
  [07:38:05.010] 
  [07:38:05.010] Searching for globals ... DONE
  [07:38:05.011] - globals: [0] <none>
  [07:38:05.011] getGlobalsAndPackages() ... DONE
  [07:38:05.036] Packages needed by the future expression (n = 0): <none>
  [07:38:05.037] Packages needed by future strategies (n = 0): <none>
  [07:38:05.043] {
  [07:38:05.043]     {
  [07:38:05.043]         ...future.startTime <- base::Sys.time()
  [07:38:05.043]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.043]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.043]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.043]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.043]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.043]         {
  [07:38:05.043]             {
  [07:38:05.043]                 base::local({
  [07:38:05.043]                   has_future <- base::requireNamespace("future", 
  [07:38:05.043]                     quietly = TRUE)
  [07:38:05.043]                   version <- if (has_future) 
  [07:38:05.043]                     utils::packageVersion("future")
  [07:38:05.043]                   else NULL
  [07:38:05.043]                   if (!has_future || version < "1.8.0") {
  [07:38:05.043]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.043]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.043]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.043]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.043]                         "release", "version")], collapse = " "), 
  [07:38:05.043]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.043]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.043]                       info)
  [07:38:05.043]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.043]                     if (!has_future) {
  [07:38:05.043]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.043]                         info)
  [07:38:05.043]                     }
  [07:38:05.043]                     else {
  [07:38:05.043]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.043]                         info, version)
  [07:38:05.043]                     }
  [07:38:05.043]                     base::stop(msg)
  [07:38:05.043]                   }
  [07:38:05.043]                 })
  [07:38:05.043]             }
  [07:38:05.043]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.043]         }
  [07:38:05.043]     }
  [07:38:05.043]     if (base::is.na(TRUE)) {
  [07:38:05.043]     }
  [07:38:05.043]     else {
  [07:38:05.043]         if (TRUE) {
  [07:38:05.043]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.043]                 open = "w")
  [07:38:05.043]         }
  [07:38:05.043]         else {
  [07:38:05.043]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.043]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.043]         }
  [07:38:05.043]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.043]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.043]             base::sink(type = "output", split = FALSE)
  [07:38:05.043]             base::close(...future.stdout)
  [07:38:05.043]         }, add = TRUE)
  [07:38:05.043]     }
  [07:38:05.043]     ...future.frame <- base::sys.nframe()
  [07:38:05.043]     ...future.conditions <- base::list()
  [07:38:05.043]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.043]     ...future.result <- base::tryCatch({
  [07:38:05.043]         base::withCallingHandlers({
  [07:38:05.043]             ...future.value <- base::withVisible(base::local({
  [07:38:05.043]                 ...future.sendCondition <- local({
  [07:38:05.043]                   sendCondition <- NULL
  [07:38:05.043]                   function(frame = 1L) {
  [07:38:05.043]                     if (is.function(sendCondition)) 
  [07:38:05.043]                       return(sendCondition)
  [07:38:05.043]                     ns <- getNamespace("parallel")
  [07:38:05.043]                     if (exists("sendData", mode = "function", 
  [07:38:05.043]                       envir = ns)) {
  [07:38:05.043]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.043]                         envir = ns)
  [07:38:05.043]                       envir <- sys.frame(frame)
  [07:38:05.043]                       master <- NULL
  [07:38:05.043]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.043]                         !identical(envir, emptyenv())) {
  [07:38:05.043]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.043]                           inherits = FALSE)) {
  [07:38:05.043]                           master <- get("master", mode = "list", 
  [07:38:05.043]                             envir = envir, inherits = FALSE)
  [07:38:05.043]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.043]                             sendCondition <<- function(cond) {
  [07:38:05.043]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.043]                                 success = TRUE)
  [07:38:05.043]                               parallel_sendData(master, data)
  [07:38:05.043]                             }
  [07:38:05.043]                             return(sendCondition)
  [07:38:05.043]                           }
  [07:38:05.043]                         }
  [07:38:05.043]                         frame <- frame + 1L
  [07:38:05.043]                         envir <- sys.frame(frame)
  [07:38:05.043]                       }
  [07:38:05.043]                     }
  [07:38:05.043]                     sendCondition <<- function(cond) NULL
  [07:38:05.043]                   }
  [07:38:05.043]                 })
  [07:38:05.043]                 withCallingHandlers({
  [07:38:05.043]                   2
  [07:38:05.043]                 }, immediateCondition = function(cond) {
  [07:38:05.043]                   sendCondition <- ...future.sendCondition()
  [07:38:05.043]                   sendCondition(cond)
  [07:38:05.043]                   muffleCondition <- function (cond) 
  [07:38:05.043]                   {
  [07:38:05.043]                     inherits <- base::inherits
  [07:38:05.043]                     invokeRestart <- base::invokeRestart
  [07:38:05.043]                     muffled <- FALSE
  [07:38:05.043]                     if (inherits(cond, "message")) {
  [07:38:05.043]                       invokeRestart("muffleMessage")
  [07:38:05.043]                       muffled <- TRUE
  [07:38:05.043]                     }
  [07:38:05.043]                     else if (inherits(cond, "warning")) {
  [07:38:05.043]                       invokeRestart("muffleWarning")
  [07:38:05.043]                       muffled <- TRUE
  [07:38:05.043]                     }
  [07:38:05.043]                     else if (inherits(cond, "condition")) {
  [07:38:05.043]                       computeRestarts <- base::computeRestarts
  [07:38:05.043]                       grepl <- base::grepl
  [07:38:05.043]                       is.null <- base::is.null
  [07:38:05.043]                       restarts <- computeRestarts(cond)
  [07:38:05.043]                       for (restart in restarts) {
  [07:38:05.043]                         name <- restart$name
  [07:38:05.043]                         if (is.null(name)) 
  [07:38:05.043]                           next
  [07:38:05.043]                         if (!grepl("^muffle", name)) 
  [07:38:05.043]                           next
  [07:38:05.043]                         invokeRestart(restart)
  [07:38:05.043]                         muffled <- TRUE
  [07:38:05.043]                         break
  [07:38:05.043]                       }
  [07:38:05.043]                     }
  [07:38:05.043]                     invisible(muffled)
  [07:38:05.043]                   }
  [07:38:05.043]                   muffleCondition(cond)
  [07:38:05.043]                 })
  [07:38:05.043]             }))
  [07:38:05.043]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.043]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.043]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.043]                 version = "1.8")
  [07:38:05.043]         }, condition = base::local({
  [07:38:05.043]             c <- base::c
  [07:38:05.043]             inherits <- base::inherits
  [07:38:05.043]             invokeRestart <- base::invokeRestart
  [07:38:05.043]             length <- base::length
  [07:38:05.043]             list <- base::list
  [07:38:05.043]             seq.int <- base::seq.int
  [07:38:05.043]             signalCondition <- base::signalCondition
  [07:38:05.043]             sys.calls <- base::sys.calls
  [07:38:05.043]             Sys.time <- base::Sys.time
  [07:38:05.043]             `[[` <- base::`[[`
  [07:38:05.043]             `+` <- base::`+`
  [07:38:05.043]             `<<-` <- base::`<<-`
  [07:38:05.043]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.043]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.043]                   3L)]
  [07:38:05.043]             }
  [07:38:05.043]             function(cond) {
  [07:38:05.043]                 if (inherits(cond, "error")) {
  [07:38:05.043]                   sessionInformation <- function() {
  [07:38:05.043]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.043]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.043]                       search = base::search(), system = base::Sys.info())
  [07:38:05.043]                   }
  [07:38:05.043]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.043]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.043]                     cond$call), session = sessionInformation(), 
  [07:38:05.043]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.043]                   signalCondition(cond)
  [07:38:05.043]                 }
  [07:38:05.043]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.043]                 ))) {
  [07:38:05.043]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.043]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.043]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.043]                   if (!signal) {
  [07:38:05.043]                     muffleCondition <- function (cond) 
  [07:38:05.043]                     {
  [07:38:05.043]                       inherits <- base::inherits
  [07:38:05.043]                       invokeRestart <- base::invokeRestart
  [07:38:05.043]                       muffled <- FALSE
  [07:38:05.043]                       if (inherits(cond, "message")) {
  [07:38:05.043]                         invokeRestart("muffleMessage")
  [07:38:05.043]                         muffled <- TRUE
  [07:38:05.043]                       }
  [07:38:05.043]                       else if (inherits(cond, "warning")) {
  [07:38:05.043]                         invokeRestart("muffleWarning")
  [07:38:05.043]                         muffled <- TRUE
  [07:38:05.043]                       }
  [07:38:05.043]                       else if (inherits(cond, "condition")) {
  [07:38:05.043]                         computeRestarts <- base::computeRestarts
  [07:38:05.043]                         grepl <- base::grepl
  [07:38:05.043]                         is.null <- base::is.null
  [07:38:05.043]                         restarts <- computeRestarts(cond)
  [07:38:05.043]                         for (restart in restarts) {
  [07:38:05.043]                           name <- restart$name
  [07:38:05.043]                           if (is.null(name)) 
  [07:38:05.043]                             next
  [07:38:05.043]                           if (!grepl("^muffle", name)) 
  [07:38:05.043]                             next
  [07:38:05.043]                           invokeRestart(restart)
  [07:38:05.043]                           muffled <- TRUE
  [07:38:05.043]                           break
  [07:38:05.043]                         }
  [07:38:05.043]                       }
  [07:38:05.043]                       invisible(muffled)
  [07:38:05.043]                     }
  [07:38:05.043]                     muffleCondition(cond)
  [07:38:05.043]                   }
  [07:38:05.043]                 }
  [07:38:05.043]             }
  [07:38:05.043]         }))
  [07:38:05.043]     }, error = function(ex) {
  [07:38:05.043]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.043]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.043]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.043]     }, finally = {
  [07:38:05.043]         {
  [07:38:05.043]             NULL
  [07:38:05.043]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.043]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.043]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.043]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.043]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.043]                 ...) 
  [07:38:05.043]             {
  [07:38:05.043]                 if (substitute) 
  [07:38:05.043]                   expr <- substitute(expr)
  [07:38:05.043]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.043]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.043]                   globals = globals, persistent = persistent, 
  [07:38:05.043]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.043]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.043]                   label = label, ...)
  [07:38:05.043]                 if (!future$lazy) 
  [07:38:05.043]                   future <- run(future)
  [07:38:05.043]                 invisible(future)
  [07:38:05.043]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.043]         }
  [07:38:05.043]         base::options(...future.oldOptions)
  [07:38:05.043]     })
  [07:38:05.043]     Sys.time
  [07:38:05.043]     if (base::is.na(TRUE)) {
  [07:38:05.043]     }
  [07:38:05.043]     else {
  [07:38:05.043]         base::sink(type = "output", split = FALSE)
  [07:38:05.043]         if (TRUE) {
  [07:38:05.043]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.043]         }
  [07:38:05.043]         else {
  [07:38:05.043]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.043]         }
  [07:38:05.043]         base::close(...future.stdout)
  [07:38:05.043]         ...future.stdout <- NULL
  [07:38:05.043]     }
  [07:38:05.043]     ...future.result$conditions <- ...future.conditions
  [07:38:05.043]     ...future.result
  [07:38:05.043] }
  [07:38:05.080] ClusterFuture started
  [07:38:05.080] getGlobalsAndPackages() ...
  [07:38:05.081] Searching for globals...
  [07:38:05.081] 
  [07:38:05.082] Searching for globals ... DONE
  [07:38:05.082] - globals: [0] <none>
  [07:38:05.082] getGlobalsAndPackages() ... DONE
  [07:38:05.088] Packages needed by the future expression (n = 0): <none>
  [07:38:05.089] Packages needed by future strategies (n = 0): <none>
  [07:38:05.095] {
  [07:38:05.095]     {
  [07:38:05.095]         ...future.startTime <- base::Sys.time()
  [07:38:05.095]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.095]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.095]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.095]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.095]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.095]         {
  [07:38:05.095]             {
  [07:38:05.095]                 base::local({
  [07:38:05.095]                   has_future <- base::requireNamespace("future", 
  [07:38:05.095]                     quietly = TRUE)
  [07:38:05.095]                   version <- if (has_future) 
  [07:38:05.095]                     utils::packageVersion("future")
  [07:38:05.095]                   else NULL
  [07:38:05.095]                   if (!has_future || version < "1.8.0") {
  [07:38:05.095]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.095]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.095]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.095]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.095]                         "release", "version")], collapse = " "), 
  [07:38:05.095]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.095]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.095]                       info)
  [07:38:05.095]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.095]                     if (!has_future) {
  [07:38:05.095]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.095]                         info)
  [07:38:05.095]                     }
  [07:38:05.095]                     else {
  [07:38:05.095]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.095]                         info, version)
  [07:38:05.095]                     }
  [07:38:05.095]                     base::stop(msg)
  [07:38:05.095]                   }
  [07:38:05.095]                 })
  [07:38:05.095]             }
  [07:38:05.095]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.095]         }
  [07:38:05.095]     }
  [07:38:05.095]     if (base::is.na(TRUE)) {
  [07:38:05.095]     }
  [07:38:05.095]     else {
  [07:38:05.095]         if (TRUE) {
  [07:38:05.095]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.095]                 open = "w")
  [07:38:05.095]         }
  [07:38:05.095]         else {
  [07:38:05.095]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.095]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.095]         }
  [07:38:05.095]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.095]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.095]             base::sink(type = "output", split = FALSE)
  [07:38:05.095]             base::close(...future.stdout)
  [07:38:05.095]         }, add = TRUE)
  [07:38:05.095]     }
  [07:38:05.095]     ...future.frame <- base::sys.nframe()
  [07:38:05.095]     ...future.conditions <- base::list()
  [07:38:05.095]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.095]     ...future.result <- base::tryCatch({
  [07:38:05.095]         base::withCallingHandlers({
  [07:38:05.095]             ...future.value <- base::withVisible(base::local({
  [07:38:05.095]                 ...future.sendCondition <- local({
  [07:38:05.095]                   sendCondition <- NULL
  [07:38:05.095]                   function(frame = 1L) {
  [07:38:05.095]                     if (is.function(sendCondition)) 
  [07:38:05.095]                       return(sendCondition)
  [07:38:05.095]                     ns <- getNamespace("parallel")
  [07:38:05.095]                     if (exists("sendData", mode = "function", 
  [07:38:05.095]                       envir = ns)) {
  [07:38:05.095]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.095]                         envir = ns)
  [07:38:05.095]                       envir <- sys.frame(frame)
  [07:38:05.095]                       master <- NULL
  [07:38:05.095]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.095]                         !identical(envir, emptyenv())) {
  [07:38:05.095]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.095]                           inherits = FALSE)) {
  [07:38:05.095]                           master <- get("master", mode = "list", 
  [07:38:05.095]                             envir = envir, inherits = FALSE)
  [07:38:05.095]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.095]                             sendCondition <<- function(cond) {
  [07:38:05.095]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.095]                                 success = TRUE)
  [07:38:05.095]                               parallel_sendData(master, data)
  [07:38:05.095]                             }
  [07:38:05.095]                             return(sendCondition)
  [07:38:05.095]                           }
  [07:38:05.095]                         }
  [07:38:05.095]                         frame <- frame + 1L
  [07:38:05.095]                         envir <- sys.frame(frame)
  [07:38:05.095]                       }
  [07:38:05.095]                     }
  [07:38:05.095]                     sendCondition <<- function(cond) NULL
  [07:38:05.095]                   }
  [07:38:05.095]                 })
  [07:38:05.095]                 withCallingHandlers({
  [07:38:05.095]                   NULL
  [07:38:05.095]                 }, immediateCondition = function(cond) {
  [07:38:05.095]                   sendCondition <- ...future.sendCondition()
  [07:38:05.095]                   sendCondition(cond)
  [07:38:05.095]                   muffleCondition <- function (cond) 
  [07:38:05.095]                   {
  [07:38:05.095]                     inherits <- base::inherits
  [07:38:05.095]                     invokeRestart <- base::invokeRestart
  [07:38:05.095]                     muffled <- FALSE
  [07:38:05.095]                     if (inherits(cond, "message")) {
  [07:38:05.095]                       invokeRestart("muffleMessage")
  [07:38:05.095]                       muffled <- TRUE
  [07:38:05.095]                     }
  [07:38:05.095]                     else if (inherits(cond, "warning")) {
  [07:38:05.095]                       invokeRestart("muffleWarning")
  [07:38:05.095]                       muffled <- TRUE
  [07:38:05.095]                     }
  [07:38:05.095]                     else if (inherits(cond, "condition")) {
  [07:38:05.095]                       computeRestarts <- base::computeRestarts
  [07:38:05.095]                       grepl <- base::grepl
  [07:38:05.095]                       is.null <- base::is.null
  [07:38:05.095]                       restarts <- computeRestarts(cond)
  [07:38:05.095]                       for (restart in restarts) {
  [07:38:05.095]                         name <- restart$name
  [07:38:05.095]                         if (is.null(name)) 
  [07:38:05.095]                           next
  [07:38:05.095]                         if (!grepl("^muffle", name)) 
  [07:38:05.095]                           next
  [07:38:05.095]                         invokeRestart(restart)
  [07:38:05.095]                         muffled <- TRUE
  [07:38:05.095]                         break
  [07:38:05.095]                       }
  [07:38:05.095]                     }
  [07:38:05.095]                     invisible(muffled)
  [07:38:05.095]                   }
  [07:38:05.095]                   muffleCondition(cond)
  [07:38:05.095]                 })
  [07:38:05.095]             }))
  [07:38:05.095]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.095]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.095]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.095]                 version = "1.8")
  [07:38:05.095]         }, condition = base::local({
  [07:38:05.095]             c <- base::c
  [07:38:05.095]             inherits <- base::inherits
  [07:38:05.095]             invokeRestart <- base::invokeRestart
  [07:38:05.095]             length <- base::length
  [07:38:05.095]             list <- base::list
  [07:38:05.095]             seq.int <- base::seq.int
  [07:38:05.095]             signalCondition <- base::signalCondition
  [07:38:05.095]             sys.calls <- base::sys.calls
  [07:38:05.095]             Sys.time <- base::Sys.time
  [07:38:05.095]             `[[` <- base::`[[`
  [07:38:05.095]             `+` <- base::`+`
  [07:38:05.095]             `<<-` <- base::`<<-`
  [07:38:05.095]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.095]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.095]                   3L)]
  [07:38:05.095]             }
  [07:38:05.095]             function(cond) {
  [07:38:05.095]                 if (inherits(cond, "error")) {
  [07:38:05.095]                   sessionInformation <- function() {
  [07:38:05.095]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.095]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.095]                       search = base::search(), system = base::Sys.info())
  [07:38:05.095]                   }
  [07:38:05.095]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.095]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.095]                     cond$call), session = sessionInformation(), 
  [07:38:05.095]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.095]                   signalCondition(cond)
  [07:38:05.095]                 }
  [07:38:05.095]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.095]                 ))) {
  [07:38:05.095]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.095]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.095]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.095]                   if (!signal) {
  [07:38:05.095]                     muffleCondition <- function (cond) 
  [07:38:05.095]                     {
  [07:38:05.095]                       inherits <- base::inherits
  [07:38:05.095]                       invokeRestart <- base::invokeRestart
  [07:38:05.095]                       muffled <- FALSE
  [07:38:05.095]                       if (inherits(cond, "message")) {
  [07:38:05.095]                         invokeRestart("muffleMessage")
  [07:38:05.095]                         muffled <- TRUE
  [07:38:05.095]                       }
  [07:38:05.095]                       else if (inherits(cond, "warning")) {
  [07:38:05.095]                         invokeRestart("muffleWarning")
  [07:38:05.095]                         muffled <- TRUE
  [07:38:05.095]                       }
  [07:38:05.095]                       else if (inherits(cond, "condition")) {
  [07:38:05.095]                         computeRestarts <- base::computeRestarts
  [07:38:05.095]                         grepl <- base::grepl
  [07:38:05.095]                         is.null <- base::is.null
  [07:38:05.095]                         restarts <- computeRestarts(cond)
  [07:38:05.095]                         for (restart in restarts) {
  [07:38:05.095]                           name <- restart$name
  [07:38:05.095]                           if (is.null(name)) 
  [07:38:05.095]                             next
  [07:38:05.095]                           if (!grepl("^muffle", name)) 
  [07:38:05.095]                             next
  [07:38:05.095]                           invokeRestart(restart)
  [07:38:05.095]                           muffled <- TRUE
  [07:38:05.095]                           break
  [07:38:05.095]                         }
  [07:38:05.095]                       }
  [07:38:05.095]                       invisible(muffled)
  [07:38:05.095]                     }
  [07:38:05.095]                     muffleCondition(cond)
  [07:38:05.095]                   }
  [07:38:05.095]                 }
  [07:38:05.095]             }
  [07:38:05.095]         }))
  [07:38:05.095]     }, error = function(ex) {
  [07:38:05.095]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.095]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.095]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.095]     }, finally = {
  [07:38:05.095]         {
  [07:38:05.095]             NULL
  [07:38:05.095]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.095]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.095]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.095]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.095]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.095]                 ...) 
  [07:38:05.095]             {
  [07:38:05.095]                 if (substitute) 
  [07:38:05.095]                   expr <- substitute(expr)
  [07:38:05.095]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.095]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.095]                   globals = globals, persistent = persistent, 
  [07:38:05.095]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.095]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.095]                   label = label, ...)
  [07:38:05.095]                 if (!future$lazy) 
  [07:38:05.095]                   future <- run(future)
  [07:38:05.095]                 invisible(future)
  [07:38:05.095]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.095]         }
  [07:38:05.095]         base::options(...future.oldOptions)
  [07:38:05.095]     })
  [07:38:05.095]     Sys.time
  [07:38:05.095]     if (base::is.na(TRUE)) {
  [07:38:05.095]     }
  [07:38:05.095]     else {
  [07:38:05.095]         base::sink(type = "output", split = FALSE)
  [07:38:05.095]         if (TRUE) {
  [07:38:05.095]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.095]         }
  [07:38:05.095]         else {
  [07:38:05.095]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.095]         }
  [07:38:05.095]         base::close(...future.stdout)
  [07:38:05.095]         ...future.stdout <- NULL
  [07:38:05.095]     }
  [07:38:05.095]     ...future.result$conditions <- ...future.conditions
  [07:38:05.095]     ...future.result
  [07:38:05.095] }
  [07:38:05.101] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:05.127] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.128] - Validating connection of ClusterFuture
  [07:38:05.129] - received message: FutureResult
  [07:38:05.129] - Received FutureResult
  [07:38:05.129] - Erased future from FutureRegistry
  [07:38:05.130] result() for ClusterFuture ...
  [07:38:05.130] - result already collected: FutureResult
  [07:38:05.131] result() for ClusterFuture ... done
  [07:38:05.131] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:05.131] result() for ClusterFuture ...
  [07:38:05.132] - result already collected: FutureResult
  [07:38:05.132] result() for ClusterFuture ... done
  [07:38:05.133] result() for ClusterFuture ...
  [07:38:05.133] - result already collected: FutureResult
  [07:38:05.133] result() for ClusterFuture ... done
  [07:38:05.136] ClusterFuture started
  [07:38:05.137] getGlobalsAndPackages() ...
  [07:38:05.138] Searching for globals...
  [07:38:05.139] - globals found: [1] '{'
  [07:38:05.140] Searching for globals ... DONE
  [07:38:05.140] Resolving globals: FALSE
  [07:38:05.141] 
  [07:38:05.141] 
  [07:38:05.142] getGlobalsAndPackages() ... DONE
  [07:38:05.164] Packages needed by the future expression (n = 0): <none>
  [07:38:05.164] Packages needed by future strategies (n = 0): <none>
  [07:38:05.171] {
  [07:38:05.171]     {
  [07:38:05.171]         ...future.startTime <- base::Sys.time()
  [07:38:05.171]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.171]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.171]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.171]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.171]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.171]         {
  [07:38:05.171]             {
  [07:38:05.171]                 base::local({
  [07:38:05.171]                   has_future <- base::requireNamespace("future", 
  [07:38:05.171]                     quietly = TRUE)
  [07:38:05.171]                   version <- if (has_future) 
  [07:38:05.171]                     utils::packageVersion("future")
  [07:38:05.171]                   else NULL
  [07:38:05.171]                   if (!has_future || version < "1.8.0") {
  [07:38:05.171]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.171]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.171]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.171]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.171]                         "release", "version")], collapse = " "), 
  [07:38:05.171]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.171]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.171]                       info)
  [07:38:05.171]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.171]                     if (!has_future) {
  [07:38:05.171]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.171]                         info)
  [07:38:05.171]                     }
  [07:38:05.171]                     else {
  [07:38:05.171]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.171]                         info, version)
  [07:38:05.171]                     }
  [07:38:05.171]                     base::stop(msg)
  [07:38:05.171]                   }
  [07:38:05.171]                 })
  [07:38:05.171]             }
  [07:38:05.171]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.171]         }
  [07:38:05.171]     }
  [07:38:05.171]     if (base::is.na(TRUE)) {
  [07:38:05.171]     }
  [07:38:05.171]     else {
  [07:38:05.171]         if (TRUE) {
  [07:38:05.171]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.171]                 open = "w")
  [07:38:05.171]         }
  [07:38:05.171]         else {
  [07:38:05.171]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.171]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.171]         }
  [07:38:05.171]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.171]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.171]             base::sink(type = "output", split = FALSE)
  [07:38:05.171]             base::close(...future.stdout)
  [07:38:05.171]         }, add = TRUE)
  [07:38:05.171]     }
  [07:38:05.171]     ...future.frame <- base::sys.nframe()
  [07:38:05.171]     ...future.conditions <- base::list()
  [07:38:05.171]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.171]     ...future.result <- base::tryCatch({
  [07:38:05.171]         base::withCallingHandlers({
  [07:38:05.171]             ...future.value <- base::withVisible(base::local({
  [07:38:05.171]                 ...future.sendCondition <- local({
  [07:38:05.171]                   sendCondition <- NULL
  [07:38:05.171]                   function(frame = 1L) {
  [07:38:05.171]                     if (is.function(sendCondition)) 
  [07:38:05.171]                       return(sendCondition)
  [07:38:05.171]                     ns <- getNamespace("parallel")
  [07:38:05.171]                     if (exists("sendData", mode = "function", 
  [07:38:05.171]                       envir = ns)) {
  [07:38:05.171]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.171]                         envir = ns)
  [07:38:05.171]                       envir <- sys.frame(frame)
  [07:38:05.171]                       master <- NULL
  [07:38:05.171]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.171]                         !identical(envir, emptyenv())) {
  [07:38:05.171]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.171]                           inherits = FALSE)) {
  [07:38:05.171]                           master <- get("master", mode = "list", 
  [07:38:05.171]                             envir = envir, inherits = FALSE)
  [07:38:05.171]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.171]                             sendCondition <<- function(cond) {
  [07:38:05.171]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.171]                                 success = TRUE)
  [07:38:05.171]                               parallel_sendData(master, data)
  [07:38:05.171]                             }
  [07:38:05.171]                             return(sendCondition)
  [07:38:05.171]                           }
  [07:38:05.171]                         }
  [07:38:05.171]                         frame <- frame + 1L
  [07:38:05.171]                         envir <- sys.frame(frame)
  [07:38:05.171]                       }
  [07:38:05.171]                     }
  [07:38:05.171]                     sendCondition <<- function(cond) NULL
  [07:38:05.171]                   }
  [07:38:05.171]                 })
  [07:38:05.171]                 withCallingHandlers({
  [07:38:05.171]                   {
  [07:38:05.171]                     4
  [07:38:05.171]                   }
  [07:38:05.171]                 }, immediateCondition = function(cond) {
  [07:38:05.171]                   sendCondition <- ...future.sendCondition()
  [07:38:05.171]                   sendCondition(cond)
  [07:38:05.171]                   muffleCondition <- function (cond) 
  [07:38:05.171]                   {
  [07:38:05.171]                     inherits <- base::inherits
  [07:38:05.171]                     invokeRestart <- base::invokeRestart
  [07:38:05.171]                     muffled <- FALSE
  [07:38:05.171]                     if (inherits(cond, "message")) {
  [07:38:05.171]                       invokeRestart("muffleMessage")
  [07:38:05.171]                       muffled <- TRUE
  [07:38:05.171]                     }
  [07:38:05.171]                     else if (inherits(cond, "warning")) {
  [07:38:05.171]                       invokeRestart("muffleWarning")
  [07:38:05.171]                       muffled <- TRUE
  [07:38:05.171]                     }
  [07:38:05.171]                     else if (inherits(cond, "condition")) {
  [07:38:05.171]                       computeRestarts <- base::computeRestarts
  [07:38:05.171]                       grepl <- base::grepl
  [07:38:05.171]                       is.null <- base::is.null
  [07:38:05.171]                       restarts <- computeRestarts(cond)
  [07:38:05.171]                       for (restart in restarts) {
  [07:38:05.171]                         name <- restart$name
  [07:38:05.171]                         if (is.null(name)) 
  [07:38:05.171]                           next
  [07:38:05.171]                         if (!grepl("^muffle", name)) 
  [07:38:05.171]                           next
  [07:38:05.171]                         invokeRestart(restart)
  [07:38:05.171]                         muffled <- TRUE
  [07:38:05.171]                         break
  [07:38:05.171]                       }
  [07:38:05.171]                     }
  [07:38:05.171]                     invisible(muffled)
  [07:38:05.171]                   }
  [07:38:05.171]                   muffleCondition(cond)
  [07:38:05.171]                 })
  [07:38:05.171]             }))
  [07:38:05.171]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.171]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.171]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.171]                 version = "1.8")
  [07:38:05.171]         }, condition = base::local({
  [07:38:05.171]             c <- base::c
  [07:38:05.171]             inherits <- base::inherits
  [07:38:05.171]             invokeRestart <- base::invokeRestart
  [07:38:05.171]             length <- base::length
  [07:38:05.171]             list <- base::list
  [07:38:05.171]             seq.int <- base::seq.int
  [07:38:05.171]             signalCondition <- base::signalCondition
  [07:38:05.171]             sys.calls <- base::sys.calls
  [07:38:05.171]             Sys.time <- base::Sys.time
  [07:38:05.171]             `[[` <- base::`[[`
  [07:38:05.171]             `+` <- base::`+`
  [07:38:05.171]             `<<-` <- base::`<<-`
  [07:38:05.171]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.171]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.171]                   3L)]
  [07:38:05.171]             }
  [07:38:05.171]             function(cond) {
  [07:38:05.171]                 if (inherits(cond, "error")) {
  [07:38:05.171]                   sessionInformation <- function() {
  [07:38:05.171]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.171]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.171]                       search = base::search(), system = base::Sys.info())
  [07:38:05.171]                   }
  [07:38:05.171]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.171]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.171]                     cond$call), session = sessionInformation(), 
  [07:38:05.171]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.171]                   signalCondition(cond)
  [07:38:05.171]                 }
  [07:38:05.171]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.171]                 ))) {
  [07:38:05.171]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.171]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.171]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.171]                   if (!signal) {
  [07:38:05.171]                     muffleCondition <- function (cond) 
  [07:38:05.171]                     {
  [07:38:05.171]                       inherits <- base::inherits
  [07:38:05.171]                       invokeRestart <- base::invokeRestart
  [07:38:05.171]                       muffled <- FALSE
  [07:38:05.171]                       if (inherits(cond, "message")) {
  [07:38:05.171]                         invokeRestart("muffleMessage")
  [07:38:05.171]                         muffled <- TRUE
  [07:38:05.171]                       }
  [07:38:05.171]                       else if (inherits(cond, "warning")) {
  [07:38:05.171]                         invokeRestart("muffleWarning")
  [07:38:05.171]                         muffled <- TRUE
  [07:38:05.171]                       }
  [07:38:05.171]                       else if (inherits(cond, "condition")) {
  [07:38:05.171]                         computeRestarts <- base::computeRestarts
  [07:38:05.171]                         grepl <- base::grepl
  [07:38:05.171]                         is.null <- base::is.null
  [07:38:05.171]                         restarts <- computeRestarts(cond)
  [07:38:05.171]                         for (restart in restarts) {
  [07:38:05.171]                           name <- restart$name
  [07:38:05.171]                           if (is.null(name)) 
  [07:38:05.171]                             next
  [07:38:05.171]                           if (!grepl("^muffle", name)) 
  [07:38:05.171]                             next
  [07:38:05.171]                           invokeRestart(restart)
  [07:38:05.171]                           muffled <- TRUE
  [07:38:05.171]                           break
  [07:38:05.171]                         }
  [07:38:05.171]                       }
  [07:38:05.171]                       invisible(muffled)
  [07:38:05.171]                     }
  [07:38:05.171]                     muffleCondition(cond)
  [07:38:05.171]                   }
  [07:38:05.171]                 }
  [07:38:05.171]             }
  [07:38:05.171]         }))
  [07:38:05.171]     }, error = function(ex) {
  [07:38:05.171]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.171]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.171]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.171]     }, finally = {
  [07:38:05.171]         {
  [07:38:05.171]             NULL
  [07:38:05.171]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.171]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.171]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.171]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.171]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.171]                 ...) 
  [07:38:05.171]             {
  [07:38:05.171]                 if (substitute) 
  [07:38:05.171]                   expr <- substitute(expr)
  [07:38:05.171]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.171]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.171]                   globals = globals, persistent = persistent, 
  [07:38:05.171]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.171]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.171]                   label = label, ...)
  [07:38:05.171]                 if (!future$lazy) 
  [07:38:05.171]                   future <- run(future)
  [07:38:05.171]                 invisible(future)
  [07:38:05.171]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.171]         }
  [07:38:05.171]         base::options(...future.oldOptions)
  [07:38:05.171]     })
  [07:38:05.171]     Sys.time
  [07:38:05.171]     if (base::is.na(TRUE)) {
  [07:38:05.171]     }
  [07:38:05.171]     else {
  [07:38:05.171]         base::sink(type = "output", split = FALSE)
  [07:38:05.171]         if (TRUE) {
  [07:38:05.171]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.171]         }
  [07:38:05.171]         else {
  [07:38:05.171]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.171]         }
  [07:38:05.171]         base::close(...future.stdout)
  [07:38:05.171]         ...future.stdout <- NULL
  [07:38:05.171]     }
  [07:38:05.171]     ...future.result$conditions <- ...future.conditions
  [07:38:05.171]     ...future.result
  [07:38:05.171] }
  [07:38:05.186] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:05.198] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.199] - Validating connection of ClusterFuture
  [07:38:05.199] - received message: FutureResult
  [07:38:05.200] - Received FutureResult
  [07:38:05.200] - Erased future from FutureRegistry
  [07:38:05.201] result() for ClusterFuture ...
  [07:38:05.201] - result already collected: FutureResult
  [07:38:05.201] result() for ClusterFuture ... done
  [07:38:05.202] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:05.202] result() for ClusterFuture ...
  [07:38:05.203] - result already collected: FutureResult
  [07:38:05.203] result() for ClusterFuture ... done
  [07:38:05.204] result() for ClusterFuture ...
  [07:38:05.204] - result already collected: FutureResult
  [07:38:05.205] result() for ClusterFuture ... done
  [07:38:05.220] ClusterFuture started
  <environment: 0x5576d62b67d8> 
  <environment: 0x5576d5173610> 
  [07:38:05.268] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.268] - Validating connection of ClusterFuture
  [07:38:05.269] - received message: FutureResult
  [07:38:05.269] - Received FutureResult
  [07:38:05.270] - Erased future from FutureRegistry
  [07:38:05.270] result() for ClusterFuture ...
  [07:38:05.271] - result already collected: FutureResult
  [07:38:05.271] result() for ClusterFuture ... done
  [07:38:05.271] receiveMessageFromWorker() for ClusterFuture ... done
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:05.275] resolve() on environment ...
  [07:38:05.276]  recursive: 0
  [07:38:05.278]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:05.278] signalConditionsASAP(numeric, pos=1) ...
  [07:38:05.278] - nx: 4
  [07:38:05.279] - relay: TRUE
  [07:38:05.279] - stdout: TRUE
  [07:38:05.279] - signal: TRUE
  [07:38:05.280] - resignal: FALSE
  [07:38:05.280] - force: TRUE
  [07:38:05.280] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.281] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.281]  - until=2
  [07:38:05.281]  - relaying element #2
  [07:38:05.282] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:05.282] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.282] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:05.283]  length: 3 (resolved future 1)
  [07:38:05.283] Future #2
  [07:38:05.284] result() for ClusterFuture ...
  [07:38:05.284] - result already collected: FutureResult
  [07:38:05.284] result() for ClusterFuture ... done
  [07:38:05.285] result() for ClusterFuture ...
  [07:38:05.285] - result already collected: FutureResult
  [07:38:05.285] result() for ClusterFuture ... done
  [07:38:05.286] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:05.286] - nx: 4
  [07:38:05.295] - relay: TRUE
  [07:38:05.295] - stdout: TRUE
  [07:38:05.295] - signal: TRUE
  [07:38:05.296] - resignal: FALSE
  [07:38:05.296] - force: TRUE
  [07:38:05.296] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:05.297] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.297]  - until=2
  [07:38:05.298]  - relaying element #2
  [07:38:05.298] result() for ClusterFuture ...
  [07:38:05.298] - result already collected: FutureResult
  [07:38:05.299] result() for ClusterFuture ... done
  [07:38:05.299] result() for ClusterFuture ...
  [07:38:05.299] - result already collected: FutureResult
  [07:38:05.300] result() for ClusterFuture ... done
  [07:38:05.300] result() for ClusterFuture ...
  [07:38:05.301] - result already collected: FutureResult
  [07:38:05.301] result() for ClusterFuture ... done
  [07:38:05.301] result() for ClusterFuture ...
  [07:38:05.302] - result already collected: FutureResult
  [07:38:05.302] result() for ClusterFuture ... done
  [07:38:05.311] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:05.311] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:05.312] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:05.312]  length: 2 (resolved future 2)
  [07:38:05.312] Future #3
  [07:38:05.313] result() for ClusterFuture ...
  [07:38:05.313] - result already collected: FutureResult
  [07:38:05.314] result() for ClusterFuture ... done
  [07:38:05.314] result() for ClusterFuture ...
  [07:38:05.314] - result already collected: FutureResult
  [07:38:05.315] result() for ClusterFuture ... done
  [07:38:05.315] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:05.316] - nx: 4
  [07:38:05.316] - relay: TRUE
  [07:38:05.316] - stdout: TRUE
  [07:38:05.317] - signal: TRUE
  [07:38:05.317] - resignal: FALSE
  [07:38:05.317] - force: TRUE
  [07:38:05.318] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:05.318] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:05.318]  - until=3
  [07:38:05.327]  - relaying element #3
  [07:38:05.327] result() for ClusterFuture ...
  [07:38:05.328] - result already collected: FutureResult
  [07:38:05.328] result() for ClusterFuture ... done
  [07:38:05.328] result() for ClusterFuture ...
  [07:38:05.329] - result already collected: FutureResult
  [07:38:05.329] result() for ClusterFuture ... done
  [07:38:05.330] result() for ClusterFuture ...
  [07:38:05.330] - result already collected: FutureResult
  [07:38:05.330] result() for ClusterFuture ... done
  [07:38:05.331] result() for ClusterFuture ...
  [07:38:05.331] - result already collected: FutureResult
  [07:38:05.332] result() for ClusterFuture ... done
  [07:38:05.332] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:05.332] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:05.333] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:05.333]  length: 1 (resolved future 3)
  [07:38:05.333] Future #4
  [07:38:05.334] result() for ClusterFuture ...
  [07:38:05.334] - result already collected: FutureResult
  [07:38:05.335] result() for ClusterFuture ... done
  [07:38:05.335] result() for ClusterFuture ...
  [07:38:05.335] - result already collected: FutureResult
  [07:38:05.336] result() for ClusterFuture ... done
  [07:38:05.336] signalConditionsASAP(ClusterFuture, pos=4) ...
  [07:38:05.336] - nx: 4
  [07:38:05.337] - relay: TRUE
  [07:38:05.337] - stdout: TRUE
  [07:38:05.337] - signal: TRUE
  [07:38:05.338] - resignal: FALSE
  [07:38:05.338] - force: TRUE
  [07:38:05.355] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:05.355] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:05.355]  - until=4
  [07:38:05.356]  - relaying element #4
  [07:38:05.356] result() for ClusterFuture ...
  [07:38:05.357] - result already collected: FutureResult
  [07:38:05.357] result() for ClusterFuture ... done
  [07:38:05.357] result() for ClusterFuture ...
  [07:38:05.358] - result already collected: FutureResult
  [07:38:05.358] result() for ClusterFuture ... done
  [07:38:05.359] result() for ClusterFuture ...
  [07:38:05.359] - result already collected: FutureResult
  [07:38:05.359] result() for ClusterFuture ... done
  [07:38:05.360] result() for ClusterFuture ...
  [07:38:05.360] - result already collected: FutureResult
  [07:38:05.360] result() for ClusterFuture ... done
  [07:38:05.361] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.361] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:05.362] signalConditionsASAP(ClusterFuture, pos=4) ... done
  [07:38:05.362]  length: 0 (resolved future 4)
  [07:38:05.362] Relaying remaining futures
  [07:38:05.363] signalConditionsASAP(NULL, pos=0) ...
  [07:38:05.363] - nx: 4
  [07:38:05.363] - relay: TRUE
  [07:38:05.364] - stdout: TRUE
  [07:38:05.364] - signal: TRUE
  [07:38:05.364] - resignal: FALSE
  [07:38:05.365] - force: TRUE
  [07:38:05.365] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.365] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:05.366] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.366] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:05.367] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:05.367] resolve() on environment ... DONE
  [07:38:05.367] result() for ClusterFuture ...
  [07:38:05.368] - result already collected: FutureResult
  [07:38:05.368] result() for ClusterFuture ... done
  [07:38:05.369] result() for ClusterFuture ...
  [07:38:05.369] - result already collected: FutureResult
  [07:38:05.369] result() for ClusterFuture ... done
  [07:38:05.370] result() for ClusterFuture ...
  [07:38:05.370] - result already collected: FutureResult
  [07:38:05.370] result() for ClusterFuture ... done
  [07:38:05.387] result() for ClusterFuture ...
  [07:38:05.387] - result already collected: FutureResult
  [07:38:05.388] result() for ClusterFuture ... done
  [07:38:05.388] result() for ClusterFuture ...
  [07:38:05.389] - result already collected: FutureResult
  [07:38:05.389] result() for ClusterFuture ... done
  [07:38:05.389] result() for ClusterFuture ...
  [07:38:05.390] - result already collected: FutureResult
  [07:38:05.390] result() for ClusterFuture ... done
  <environment: 0x5576d4e35a38> 
  Dimensions: c(2, 3, 1)
  [07:38:05.392] getGlobalsAndPackages() ...
  [07:38:05.392] Searching for globals...
  [07:38:05.393] 
  [07:38:05.393] Searching for globals ... DONE
  [07:38:05.394] - globals: [0] <none>
  [07:38:05.394] getGlobalsAndPackages() ... DONE
  [07:38:05.400] Packages needed by the future expression (n = 0): <none>
  [07:38:05.401] Packages needed by future strategies (n = 0): <none>
  [07:38:05.428] {
  [07:38:05.428]     {
  [07:38:05.428]         ...future.startTime <- base::Sys.time()
  [07:38:05.428]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.428]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.428]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.428]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.428]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.428]         {
  [07:38:05.428]             {
  [07:38:05.428]                 base::local({
  [07:38:05.428]                   has_future <- base::requireNamespace("future", 
  [07:38:05.428]                     quietly = TRUE)
  [07:38:05.428]                   version <- if (has_future) 
  [07:38:05.428]                     utils::packageVersion("future")
  [07:38:05.428]                   else NULL
  [07:38:05.428]                   if (!has_future || version < "1.8.0") {
  [07:38:05.428]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.428]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.428]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.428]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.428]                         "release", "version")], collapse = " "), 
  [07:38:05.428]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.428]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.428]                       info)
  [07:38:05.428]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.428]                     if (!has_future) {
  [07:38:05.428]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.428]                         info)
  [07:38:05.428]                     }
  [07:38:05.428]                     else {
  [07:38:05.428]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.428]                         info, version)
  [07:38:05.428]                     }
  [07:38:05.428]                     base::stop(msg)
  [07:38:05.428]                   }
  [07:38:05.428]                 })
  [07:38:05.428]             }
  [07:38:05.428]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.428]         }
  [07:38:05.428]     }
  [07:38:05.428]     if (base::is.na(TRUE)) {
  [07:38:05.428]     }
  [07:38:05.428]     else {
  [07:38:05.428]         if (TRUE) {
  [07:38:05.428]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.428]                 open = "w")
  [07:38:05.428]         }
  [07:38:05.428]         else {
  [07:38:05.428]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.428]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.428]         }
  [07:38:05.428]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.428]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.428]             base::sink(type = "output", split = FALSE)
  [07:38:05.428]             base::close(...future.stdout)
  [07:38:05.428]         }, add = TRUE)
  [07:38:05.428]     }
  [07:38:05.428]     ...future.frame <- base::sys.nframe()
  [07:38:05.428]     ...future.conditions <- base::list()
  [07:38:05.428]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.428]     ...future.result <- base::tryCatch({
  [07:38:05.428]         base::withCallingHandlers({
  [07:38:05.428]             ...future.value <- base::withVisible(base::local({
  [07:38:05.428]                 ...future.sendCondition <- local({
  [07:38:05.428]                   sendCondition <- NULL
  [07:38:05.428]                   function(frame = 1L) {
  [07:38:05.428]                     if (is.function(sendCondition)) 
  [07:38:05.428]                       return(sendCondition)
  [07:38:05.428]                     ns <- getNamespace("parallel")
  [07:38:05.428]                     if (exists("sendData", mode = "function", 
  [07:38:05.428]                       envir = ns)) {
  [07:38:05.428]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.428]                         envir = ns)
  [07:38:05.428]                       envir <- sys.frame(frame)
  [07:38:05.428]                       master <- NULL
  [07:38:05.428]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.428]                         !identical(envir, emptyenv())) {
  [07:38:05.428]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.428]                           inherits = FALSE)) {
  [07:38:05.428]                           master <- get("master", mode = "list", 
  [07:38:05.428]                             envir = envir, inherits = FALSE)
  [07:38:05.428]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.428]                             sendCondition <<- function(cond) {
  [07:38:05.428]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.428]                                 success = TRUE)
  [07:38:05.428]                               parallel_sendData(master, data)
  [07:38:05.428]                             }
  [07:38:05.428]                             return(sendCondition)
  [07:38:05.428]                           }
  [07:38:05.428]                         }
  [07:38:05.428]                         frame <- frame + 1L
  [07:38:05.428]                         envir <- sys.frame(frame)
  [07:38:05.428]                       }
  [07:38:05.428]                     }
  [07:38:05.428]                     sendCondition <<- function(cond) NULL
  [07:38:05.428]                   }
  [07:38:05.428]                 })
  [07:38:05.428]                 withCallingHandlers({
  [07:38:05.428]                   2
  [07:38:05.428]                 }, immediateCondition = function(cond) {
  [07:38:05.428]                   sendCondition <- ...future.sendCondition()
  [07:38:05.428]                   sendCondition(cond)
  [07:38:05.428]                   muffleCondition <- function (cond) 
  [07:38:05.428]                   {
  [07:38:05.428]                     inherits <- base::inherits
  [07:38:05.428]                     invokeRestart <- base::invokeRestart
  [07:38:05.428]                     muffled <- FALSE
  [07:38:05.428]                     if (inherits(cond, "message")) {
  [07:38:05.428]                       invokeRestart("muffleMessage")
  [07:38:05.428]                       muffled <- TRUE
  [07:38:05.428]                     }
  [07:38:05.428]                     else if (inherits(cond, "warning")) {
  [07:38:05.428]                       invokeRestart("muffleWarning")
  [07:38:05.428]                       muffled <- TRUE
  [07:38:05.428]                     }
  [07:38:05.428]                     else if (inherits(cond, "condition")) {
  [07:38:05.428]                       computeRestarts <- base::computeRestarts
  [07:38:05.428]                       grepl <- base::grepl
  [07:38:05.428]                       is.null <- base::is.null
  [07:38:05.428]                       restarts <- computeRestarts(cond)
  [07:38:05.428]                       for (restart in restarts) {
  [07:38:05.428]                         name <- restart$name
  [07:38:05.428]                         if (is.null(name)) 
  [07:38:05.428]                           next
  [07:38:05.428]                         if (!grepl("^muffle", name)) 
  [07:38:05.428]                           next
  [07:38:05.428]                         invokeRestart(restart)
  [07:38:05.428]                         muffled <- TRUE
  [07:38:05.428]                         break
  [07:38:05.428]                       }
  [07:38:05.428]                     }
  [07:38:05.428]                     invisible(muffled)
  [07:38:05.428]                   }
  [07:38:05.428]                   muffleCondition(cond)
  [07:38:05.428]                 })
  [07:38:05.428]             }))
  [07:38:05.428]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.428]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.428]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.428]                 version = "1.8")
  [07:38:05.428]         }, condition = base::local({
  [07:38:05.428]             c <- base::c
  [07:38:05.428]             inherits <- base::inherits
  [07:38:05.428]             invokeRestart <- base::invokeRestart
  [07:38:05.428]             length <- base::length
  [07:38:05.428]             list <- base::list
  [07:38:05.428]             seq.int <- base::seq.int
  [07:38:05.428]             signalCondition <- base::signalCondition
  [07:38:05.428]             sys.calls <- base::sys.calls
  [07:38:05.428]             Sys.time <- base::Sys.time
  [07:38:05.428]             `[[` <- base::`[[`
  [07:38:05.428]             `+` <- base::`+`
  [07:38:05.428]             `<<-` <- base::`<<-`
  [07:38:05.428]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.428]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.428]                   3L)]
  [07:38:05.428]             }
  [07:38:05.428]             function(cond) {
  [07:38:05.428]                 if (inherits(cond, "error")) {
  [07:38:05.428]                   sessionInformation <- function() {
  [07:38:05.428]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.428]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.428]                       search = base::search(), system = base::Sys.info())
  [07:38:05.428]                   }
  [07:38:05.428]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.428]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.428]                     cond$call), session = sessionInformation(), 
  [07:38:05.428]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.428]                   signalCondition(cond)
  [07:38:05.428]                 }
  [07:38:05.428]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.428]                 ))) {
  [07:38:05.428]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.428]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.428]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.428]                   if (!signal) {
  [07:38:05.428]                     muffleCondition <- function (cond) 
  [07:38:05.428]                     {
  [07:38:05.428]                       inherits <- base::inherits
  [07:38:05.428]                       invokeRestart <- base::invokeRestart
  [07:38:05.428]                       muffled <- FALSE
  [07:38:05.428]                       if (inherits(cond, "message")) {
  [07:38:05.428]                         invokeRestart("muffleMessage")
  [07:38:05.428]                         muffled <- TRUE
  [07:38:05.428]                       }
  [07:38:05.428]                       else if (inherits(cond, "warning")) {
  [07:38:05.428]                         invokeRestart("muffleWarning")
  [07:38:05.428]                         muffled <- TRUE
  [07:38:05.428]                       }
  [07:38:05.428]                       else if (inherits(cond, "condition")) {
  [07:38:05.428]                         computeRestarts <- base::computeRestarts
  [07:38:05.428]                         grepl <- base::grepl
  [07:38:05.428]                         is.null <- base::is.null
  [07:38:05.428]                         restarts <- computeRestarts(cond)
  [07:38:05.428]                         for (restart in restarts) {
  [07:38:05.428]                           name <- restart$name
  [07:38:05.428]                           if (is.null(name)) 
  [07:38:05.428]                             next
  [07:38:05.428]                           if (!grepl("^muffle", name)) 
  [07:38:05.428]                             next
  [07:38:05.428]                           invokeRestart(restart)
  [07:38:05.428]                           muffled <- TRUE
  [07:38:05.428]                           break
  [07:38:05.428]                         }
  [07:38:05.428]                       }
  [07:38:05.428]                       invisible(muffled)
  [07:38:05.428]                     }
  [07:38:05.428]                     muffleCondition(cond)
  [07:38:05.428]                   }
  [07:38:05.428]                 }
  [07:38:05.428]             }
  [07:38:05.428]         }))
  [07:38:05.428]     }, error = function(ex) {
  [07:38:05.428]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.428]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.428]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.428]     }, finally = {
  [07:38:05.428]         {
  [07:38:05.428]             NULL
  [07:38:05.428]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.428]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.428]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.428]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.428]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.428]                 ...) 
  [07:38:05.428]             {
  [07:38:05.428]                 if (substitute) 
  [07:38:05.428]                   expr <- substitute(expr)
  [07:38:05.428]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.428]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.428]                   globals = globals, persistent = persistent, 
  [07:38:05.428]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.428]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.428]                   label = label, ...)
  [07:38:05.428]                 if (!future$lazy) 
  [07:38:05.428]                   future <- run(future)
  [07:38:05.428]                 invisible(future)
  [07:38:05.428]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.428]         }
  [07:38:05.428]         base::options(...future.oldOptions)
  [07:38:05.428]     })
  [07:38:05.428]     Sys.time
  [07:38:05.428]     if (base::is.na(TRUE)) {
  [07:38:05.428]     }
  [07:38:05.428]     else {
  [07:38:05.428]         base::sink(type = "output", split = FALSE)
  [07:38:05.428]         if (TRUE) {
  [07:38:05.428]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.428]         }
  [07:38:05.428]         else {
  [07:38:05.428]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.428]         }
  [07:38:05.428]         base::close(...future.stdout)
  [07:38:05.428]         ...future.stdout <- NULL
  [07:38:05.428]     }
  [07:38:05.428]     ...future.result$conditions <- ...future.conditions
  [07:38:05.428]     ...future.result
  [07:38:05.428] }
  [07:38:05.452] ClusterFuture started
  [07:38:05.452] getGlobalsAndPackages() ...
  [07:38:05.453] Searching for globals...
  [07:38:05.454] 
  [07:38:05.454] Searching for globals ... DONE
  [07:38:05.455] - globals: [0] <none>
  [07:38:05.455] getGlobalsAndPackages() ... DONE
  [07:38:05.461] Packages needed by the future expression (n = 0): <none>
  [07:38:05.461] Packages needed by future strategies (n = 0): <none>
  [07:38:05.476] {
  [07:38:05.476]     {
  [07:38:05.476]         ...future.startTime <- base::Sys.time()
  [07:38:05.476]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.476]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.476]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.476]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.476]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.476]         {
  [07:38:05.476]             {
  [07:38:05.476]                 base::local({
  [07:38:05.476]                   has_future <- base::requireNamespace("future", 
  [07:38:05.476]                     quietly = TRUE)
  [07:38:05.476]                   version <- if (has_future) 
  [07:38:05.476]                     utils::packageVersion("future")
  [07:38:05.476]                   else NULL
  [07:38:05.476]                   if (!has_future || version < "1.8.0") {
  [07:38:05.476]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.476]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.476]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.476]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.476]                         "release", "version")], collapse = " "), 
  [07:38:05.476]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.476]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.476]                       info)
  [07:38:05.476]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.476]                     if (!has_future) {
  [07:38:05.476]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.476]                         info)
  [07:38:05.476]                     }
  [07:38:05.476]                     else {
  [07:38:05.476]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.476]                         info, version)
  [07:38:05.476]                     }
  [07:38:05.476]                     base::stop(msg)
  [07:38:05.476]                   }
  [07:38:05.476]                 })
  [07:38:05.476]             }
  [07:38:05.476]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.476]         }
  [07:38:05.476]     }
  [07:38:05.476]     if (base::is.na(TRUE)) {
  [07:38:05.476]     }
  [07:38:05.476]     else {
  [07:38:05.476]         if (TRUE) {
  [07:38:05.476]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.476]                 open = "w")
  [07:38:05.476]         }
  [07:38:05.476]         else {
  [07:38:05.476]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.476]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.476]         }
  [07:38:05.476]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.476]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.476]             base::sink(type = "output", split = FALSE)
  [07:38:05.476]             base::close(...future.stdout)
  [07:38:05.476]         }, add = TRUE)
  [07:38:05.476]     }
  [07:38:05.476]     ...future.frame <- base::sys.nframe()
  [07:38:05.476]     ...future.conditions <- base::list()
  [07:38:05.476]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.476]     ...future.result <- base::tryCatch({
  [07:38:05.476]         base::withCallingHandlers({
  [07:38:05.476]             ...future.value <- base::withVisible(base::local({
  [07:38:05.476]                 ...future.sendCondition <- local({
  [07:38:05.476]                   sendCondition <- NULL
  [07:38:05.476]                   function(frame = 1L) {
  [07:38:05.476]                     if (is.function(sendCondition)) 
  [07:38:05.476]                       return(sendCondition)
  [07:38:05.476]                     ns <- getNamespace("parallel")
  [07:38:05.476]                     if (exists("sendData", mode = "function", 
  [07:38:05.476]                       envir = ns)) {
  [07:38:05.476]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.476]                         envir = ns)
  [07:38:05.476]                       envir <- sys.frame(frame)
  [07:38:05.476]                       master <- NULL
  [07:38:05.476]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.476]                         !identical(envir, emptyenv())) {
  [07:38:05.476]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.476]                           inherits = FALSE)) {
  [07:38:05.476]                           master <- get("master", mode = "list", 
  [07:38:05.476]                             envir = envir, inherits = FALSE)
  [07:38:05.476]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.476]                             sendCondition <<- function(cond) {
  [07:38:05.476]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.476]                                 success = TRUE)
  [07:38:05.476]                               parallel_sendData(master, data)
  [07:38:05.476]                             }
  [07:38:05.476]                             return(sendCondition)
  [07:38:05.476]                           }
  [07:38:05.476]                         }
  [07:38:05.476]                         frame <- frame + 1L
  [07:38:05.476]                         envir <- sys.frame(frame)
  [07:38:05.476]                       }
  [07:38:05.476]                     }
  [07:38:05.476]                     sendCondition <<- function(cond) NULL
  [07:38:05.476]                   }
  [07:38:05.476]                 })
  [07:38:05.476]                 withCallingHandlers({
  [07:38:05.476]                   NULL
  [07:38:05.476]                 }, immediateCondition = function(cond) {
  [07:38:05.476]                   sendCondition <- ...future.sendCondition()
  [07:38:05.476]                   sendCondition(cond)
  [07:38:05.476]                   muffleCondition <- function (cond) 
  [07:38:05.476]                   {
  [07:38:05.476]                     inherits <- base::inherits
  [07:38:05.476]                     invokeRestart <- base::invokeRestart
  [07:38:05.476]                     muffled <- FALSE
  [07:38:05.476]                     if (inherits(cond, "message")) {
  [07:38:05.476]                       invokeRestart("muffleMessage")
  [07:38:05.476]                       muffled <- TRUE
  [07:38:05.476]                     }
  [07:38:05.476]                     else if (inherits(cond, "warning")) {
  [07:38:05.476]                       invokeRestart("muffleWarning")
  [07:38:05.476]                       muffled <- TRUE
  [07:38:05.476]                     }
  [07:38:05.476]                     else if (inherits(cond, "condition")) {
  [07:38:05.476]                       computeRestarts <- base::computeRestarts
  [07:38:05.476]                       grepl <- base::grepl
  [07:38:05.476]                       is.null <- base::is.null
  [07:38:05.476]                       restarts <- computeRestarts(cond)
  [07:38:05.476]                       for (restart in restarts) {
  [07:38:05.476]                         name <- restart$name
  [07:38:05.476]                         if (is.null(name)) 
  [07:38:05.476]                           next
  [07:38:05.476]                         if (!grepl("^muffle", name)) 
  [07:38:05.476]                           next
  [07:38:05.476]                         invokeRestart(restart)
  [07:38:05.476]                         muffled <- TRUE
  [07:38:05.476]                         break
  [07:38:05.476]                       }
  [07:38:05.476]                     }
  [07:38:05.476]                     invisible(muffled)
  [07:38:05.476]                   }
  [07:38:05.476]                   muffleCondition(cond)
  [07:38:05.476]                 })
  [07:38:05.476]             }))
  [07:38:05.476]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.476]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.476]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.476]                 version = "1.8")
  [07:38:05.476]         }, condition = base::local({
  [07:38:05.476]             c <- base::c
  [07:38:05.476]             inherits <- base::inherits
  [07:38:05.476]             invokeRestart <- base::invokeRestart
  [07:38:05.476]             length <- base::length
  [07:38:05.476]             list <- base::list
  [07:38:05.476]             seq.int <- base::seq.int
  [07:38:05.476]             signalCondition <- base::signalCondition
  [07:38:05.476]             sys.calls <- base::sys.calls
  [07:38:05.476]             Sys.time <- base::Sys.time
  [07:38:05.476]             `[[` <- base::`[[`
  [07:38:05.476]             `+` <- base::`+`
  [07:38:05.476]             `<<-` <- base::`<<-`
  [07:38:05.476]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.476]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.476]                   3L)]
  [07:38:05.476]             }
  [07:38:05.476]             function(cond) {
  [07:38:05.476]                 if (inherits(cond, "error")) {
  [07:38:05.476]                   sessionInformation <- function() {
  [07:38:05.476]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.476]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.476]                       search = base::search(), system = base::Sys.info())
  [07:38:05.476]                   }
  [07:38:05.476]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.476]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.476]                     cond$call), session = sessionInformation(), 
  [07:38:05.476]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.476]                   signalCondition(cond)
  [07:38:05.476]                 }
  [07:38:05.476]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.476]                 ))) {
  [07:38:05.476]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.476]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.476]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.476]                   if (!signal) {
  [07:38:05.476]                     muffleCondition <- function (cond) 
  [07:38:05.476]                     {
  [07:38:05.476]                       inherits <- base::inherits
  [07:38:05.476]                       invokeRestart <- base::invokeRestart
  [07:38:05.476]                       muffled <- FALSE
  [07:38:05.476]                       if (inherits(cond, "message")) {
  [07:38:05.476]                         invokeRestart("muffleMessage")
  [07:38:05.476]                         muffled <- TRUE
  [07:38:05.476]                       }
  [07:38:05.476]                       else if (inherits(cond, "warning")) {
  [07:38:05.476]                         invokeRestart("muffleWarning")
  [07:38:05.476]                         muffled <- TRUE
  [07:38:05.476]                       }
  [07:38:05.476]                       else if (inherits(cond, "condition")) {
  [07:38:05.476]                         computeRestarts <- base::computeRestarts
  [07:38:05.476]                         grepl <- base::grepl
  [07:38:05.476]                         is.null <- base::is.null
  [07:38:05.476]                         restarts <- computeRestarts(cond)
  [07:38:05.476]                         for (restart in restarts) {
  [07:38:05.476]                           name <- restart$name
  [07:38:05.476]                           if (is.null(name)) 
  [07:38:05.476]                             next
  [07:38:05.476]                           if (!grepl("^muffle", name)) 
  [07:38:05.476]                             next
  [07:38:05.476]                           invokeRestart(restart)
  [07:38:05.476]                           muffled <- TRUE
  [07:38:05.476]                           break
  [07:38:05.476]                         }
  [07:38:05.476]                       }
  [07:38:05.476]                       invisible(muffled)
  [07:38:05.476]                     }
  [07:38:05.476]                     muffleCondition(cond)
  [07:38:05.476]                   }
  [07:38:05.476]                 }
  [07:38:05.476]             }
  [07:38:05.476]         }))
  [07:38:05.476]     }, error = function(ex) {
  [07:38:05.476]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.476]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.476]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.476]     }, finally = {
  [07:38:05.476]         {
  [07:38:05.476]             NULL
  [07:38:05.476]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.476]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.476]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.476]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.476]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.476]                 ...) 
  [07:38:05.476]             {
  [07:38:05.476]                 if (substitute) 
  [07:38:05.476]                   expr <- substitute(expr)
  [07:38:05.476]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.476]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.476]                   globals = globals, persistent = persistent, 
  [07:38:05.476]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.476]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.476]                   label = label, ...)
  [07:38:05.476]                 if (!future$lazy) 
  [07:38:05.476]                   future <- run(future)
  [07:38:05.476]                 invisible(future)
  [07:38:05.476]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.476]         }
  [07:38:05.476]         base::options(...future.oldOptions)
  [07:38:05.476]     })
  [07:38:05.476]     Sys.time
  [07:38:05.476]     if (base::is.na(TRUE)) {
  [07:38:05.476]     }
  [07:38:05.476]     else {
  [07:38:05.476]         base::sink(type = "output", split = FALSE)
  [07:38:05.476]         if (TRUE) {
  [07:38:05.476]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.476]         }
  [07:38:05.476]         else {
  [07:38:05.476]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.476]         }
  [07:38:05.476]         base::close(...future.stdout)
  [07:38:05.476]         ...future.stdout <- NULL
  [07:38:05.476]     }
  [07:38:05.476]     ...future.result$conditions <- ...future.conditions
  [07:38:05.476]     ...future.result
  [07:38:05.476] }
  [07:38:05.482] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:05.507] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.508] - Validating connection of ClusterFuture
  [07:38:05.508] - received message: FutureResult
  [07:38:05.509] - Received FutureResult
  [07:38:05.509] - Erased future from FutureRegistry
  [07:38:05.510] result() for ClusterFuture ...
  [07:38:05.510] - result already collected: FutureResult
  [07:38:05.510] result() for ClusterFuture ... done
  [07:38:05.511] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:05.511] result() for ClusterFuture ...
  [07:38:05.512] - result already collected: FutureResult
  [07:38:05.512] result() for ClusterFuture ... done
  [07:38:05.513] result() for ClusterFuture ...
  [07:38:05.513] - result already collected: FutureResult
  [07:38:05.513] result() for ClusterFuture ... done
  [07:38:05.523] ClusterFuture started
  [07:38:05.524] getGlobalsAndPackages() ...
  [07:38:05.525] Searching for globals...
  [07:38:05.527] - globals found: [1] '{'
  [07:38:05.527] Searching for globals ... DONE
  [07:38:05.527] Resolving globals: FALSE
  [07:38:05.528] 
  [07:38:05.529] 
  [07:38:05.529] getGlobalsAndPackages() ... DONE
  [07:38:05.555] Packages needed by the future expression (n = 0): <none>
  [07:38:05.556] Packages needed by future strategies (n = 0): <none>
  [07:38:05.568] {
  [07:38:05.568]     {
  [07:38:05.568]         ...future.startTime <- base::Sys.time()
  [07:38:05.568]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.568]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.568]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.568]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.568]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.568]         {
  [07:38:05.568]             {
  [07:38:05.568]                 base::local({
  [07:38:05.568]                   has_future <- base::requireNamespace("future", 
  [07:38:05.568]                     quietly = TRUE)
  [07:38:05.568]                   version <- if (has_future) 
  [07:38:05.568]                     utils::packageVersion("future")
  [07:38:05.568]                   else NULL
  [07:38:05.568]                   if (!has_future || version < "1.8.0") {
  [07:38:05.568]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.568]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.568]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.568]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.568]                         "release", "version")], collapse = " "), 
  [07:38:05.568]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.568]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.568]                       info)
  [07:38:05.568]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.568]                     if (!has_future) {
  [07:38:05.568]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.568]                         info)
  [07:38:05.568]                     }
  [07:38:05.568]                     else {
  [07:38:05.568]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.568]                         info, version)
  [07:38:05.568]                     }
  [07:38:05.568]                     base::stop(msg)
  [07:38:05.568]                   }
  [07:38:05.568]                 })
  [07:38:05.568]             }
  [07:38:05.568]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.568]         }
  [07:38:05.568]     }
  [07:38:05.568]     if (base::is.na(TRUE)) {
  [07:38:05.568]     }
  [07:38:05.568]     else {
  [07:38:05.568]         if (TRUE) {
  [07:38:05.568]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.568]                 open = "w")
  [07:38:05.568]         }
  [07:38:05.568]         else {
  [07:38:05.568]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.568]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.568]         }
  [07:38:05.568]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.568]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.568]             base::sink(type = "output", split = FALSE)
  [07:38:05.568]             base::close(...future.stdout)
  [07:38:05.568]         }, add = TRUE)
  [07:38:05.568]     }
  [07:38:05.568]     ...future.frame <- base::sys.nframe()
  [07:38:05.568]     ...future.conditions <- base::list()
  [07:38:05.568]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.568]     ...future.result <- base::tryCatch({
  [07:38:05.568]         base::withCallingHandlers({
  [07:38:05.568]             ...future.value <- base::withVisible(base::local({
  [07:38:05.568]                 ...future.sendCondition <- local({
  [07:38:05.568]                   sendCondition <- NULL
  [07:38:05.568]                   function(frame = 1L) {
  [07:38:05.568]                     if (is.function(sendCondition)) 
  [07:38:05.568]                       return(sendCondition)
  [07:38:05.568]                     ns <- getNamespace("parallel")
  [07:38:05.568]                     if (exists("sendData", mode = "function", 
  [07:38:05.568]                       envir = ns)) {
  [07:38:05.568]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.568]                         envir = ns)
  [07:38:05.568]                       envir <- sys.frame(frame)
  [07:38:05.568]                       master <- NULL
  [07:38:05.568]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.568]                         !identical(envir, emptyenv())) {
  [07:38:05.568]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.568]                           inherits = FALSE)) {
  [07:38:05.568]                           master <- get("master", mode = "list", 
  [07:38:05.568]                             envir = envir, inherits = FALSE)
  [07:38:05.568]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.568]                             sendCondition <<- function(cond) {
  [07:38:05.568]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.568]                                 success = TRUE)
  [07:38:05.568]                               parallel_sendData(master, data)
  [07:38:05.568]                             }
  [07:38:05.568]                             return(sendCondition)
  [07:38:05.568]                           }
  [07:38:05.568]                         }
  [07:38:05.568]                         frame <- frame + 1L
  [07:38:05.568]                         envir <- sys.frame(frame)
  [07:38:05.568]                       }
  [07:38:05.568]                     }
  [07:38:05.568]                     sendCondition <<- function(cond) NULL
  [07:38:05.568]                   }
  [07:38:05.568]                 })
  [07:38:05.568]                 withCallingHandlers({
  [07:38:05.568]                   {
  [07:38:05.568]                     4
  [07:38:05.568]                   }
  [07:38:05.568]                 }, immediateCondition = function(cond) {
  [07:38:05.568]                   sendCondition <- ...future.sendCondition()
  [07:38:05.568]                   sendCondition(cond)
  [07:38:05.568]                   muffleCondition <- function (cond) 
  [07:38:05.568]                   {
  [07:38:05.568]                     inherits <- base::inherits
  [07:38:05.568]                     invokeRestart <- base::invokeRestart
  [07:38:05.568]                     muffled <- FALSE
  [07:38:05.568]                     if (inherits(cond, "message")) {
  [07:38:05.568]                       invokeRestart("muffleMessage")
  [07:38:05.568]                       muffled <- TRUE
  [07:38:05.568]                     }
  [07:38:05.568]                     else if (inherits(cond, "warning")) {
  [07:38:05.568]                       invokeRestart("muffleWarning")
  [07:38:05.568]                       muffled <- TRUE
  [07:38:05.568]                     }
  [07:38:05.568]                     else if (inherits(cond, "condition")) {
  [07:38:05.568]                       computeRestarts <- base::computeRestarts
  [07:38:05.568]                       grepl <- base::grepl
  [07:38:05.568]                       is.null <- base::is.null
  [07:38:05.568]                       restarts <- computeRestarts(cond)
  [07:38:05.568]                       for (restart in restarts) {
  [07:38:05.568]                         name <- restart$name
  [07:38:05.568]                         if (is.null(name)) 
  [07:38:05.568]                           next
  [07:38:05.568]                         if (!grepl("^muffle", name)) 
  [07:38:05.568]                           next
  [07:38:05.568]                         invokeRestart(restart)
  [07:38:05.568]                         muffled <- TRUE
  [07:38:05.568]                         break
  [07:38:05.568]                       }
  [07:38:05.568]                     }
  [07:38:05.568]                     invisible(muffled)
  [07:38:05.568]                   }
  [07:38:05.568]                   muffleCondition(cond)
  [07:38:05.568]                 })
  [07:38:05.568]             }))
  [07:38:05.568]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.568]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.568]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.568]                 version = "1.8")
  [07:38:05.568]         }, condition = base::local({
  [07:38:05.568]             c <- base::c
  [07:38:05.568]             inherits <- base::inherits
  [07:38:05.568]             invokeRestart <- base::invokeRestart
  [07:38:05.568]             length <- base::length
  [07:38:05.568]             list <- base::list
  [07:38:05.568]             seq.int <- base::seq.int
  [07:38:05.568]             signalCondition <- base::signalCondition
  [07:38:05.568]             sys.calls <- base::sys.calls
  [07:38:05.568]             Sys.time <- base::Sys.time
  [07:38:05.568]             `[[` <- base::`[[`
  [07:38:05.568]             `+` <- base::`+`
  [07:38:05.568]             `<<-` <- base::`<<-`
  [07:38:05.568]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.568]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.568]                   3L)]
  [07:38:05.568]             }
  [07:38:05.568]             function(cond) {
  [07:38:05.568]                 if (inherits(cond, "error")) {
  [07:38:05.568]                   sessionInformation <- function() {
  [07:38:05.568]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.568]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.568]                       search = base::search(), system = base::Sys.info())
  [07:38:05.568]                   }
  [07:38:05.568]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.568]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.568]                     cond$call), session = sessionInformation(), 
  [07:38:05.568]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.568]                   signalCondition(cond)
  [07:38:05.568]                 }
  [07:38:05.568]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.568]                 ))) {
  [07:38:05.568]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.568]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.568]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.568]                   if (!signal) {
  [07:38:05.568]                     muffleCondition <- function (cond) 
  [07:38:05.568]                     {
  [07:38:05.568]                       inherits <- base::inherits
  [07:38:05.568]                       invokeRestart <- base::invokeRestart
  [07:38:05.568]                       muffled <- FALSE
  [07:38:05.568]                       if (inherits(cond, "message")) {
  [07:38:05.568]                         invokeRestart("muffleMessage")
  [07:38:05.568]                         muffled <- TRUE
  [07:38:05.568]                       }
  [07:38:05.568]                       else if (inherits(cond, "warning")) {
  [07:38:05.568]                         invokeRestart("muffleWarning")
  [07:38:05.568]                         muffled <- TRUE
  [07:38:05.568]                       }
  [07:38:05.568]                       else if (inherits(cond, "condition")) {
  [07:38:05.568]                         computeRestarts <- base::computeRestarts
  [07:38:05.568]                         grepl <- base::grepl
  [07:38:05.568]                         is.null <- base::is.null
  [07:38:05.568]                         restarts <- computeRestarts(cond)
  [07:38:05.568]                         for (restart in restarts) {
  [07:38:05.568]                           name <- restart$name
  [07:38:05.568]                           if (is.null(name)) 
  [07:38:05.568]                             next
  [07:38:05.568]                           if (!grepl("^muffle", name)) 
  [07:38:05.568]                             next
  [07:38:05.568]                           invokeRestart(restart)
  [07:38:05.568]                           muffled <- TRUE
  [07:38:05.568]                           break
  [07:38:05.568]                         }
  [07:38:05.568]                       }
  [07:38:05.568]                       invisible(muffled)
  [07:38:05.568]                     }
  [07:38:05.568]                     muffleCondition(cond)
  [07:38:05.568]                   }
  [07:38:05.568]                 }
  [07:38:05.568]             }
  [07:38:05.568]         }))
  [07:38:05.568]     }, error = function(ex) {
  [07:38:05.568]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.568]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.568]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.568]     }, finally = {
  [07:38:05.568]         {
  [07:38:05.568]             NULL
  [07:38:05.568]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.568]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.568]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.568]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.568]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.568]                 ...) 
  [07:38:05.568]             {
  [07:38:05.568]                 if (substitute) 
  [07:38:05.568]                   expr <- substitute(expr)
  [07:38:05.568]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.568]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.568]                   globals = globals, persistent = persistent, 
  [07:38:05.568]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.568]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.568]                   label = label, ...)
  [07:38:05.568]                 if (!future$lazy) 
  [07:38:05.568]                   future <- run(future)
  [07:38:05.568]                 invisible(future)
  [07:38:05.568]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.568]         }
  [07:38:05.568]         base::options(...future.oldOptions)
  [07:38:05.568]     })
  [07:38:05.568]     Sys.time
  [07:38:05.568]     if (base::is.na(TRUE)) {
  [07:38:05.568]     }
  [07:38:05.568]     else {
  [07:38:05.568]         base::sink(type = "output", split = FALSE)
  [07:38:05.568]         if (TRUE) {
  [07:38:05.568]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.568]         }
  [07:38:05.568]         else {
  [07:38:05.568]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.568]         }
  [07:38:05.568]         base::close(...future.stdout)
  [07:38:05.568]         ...future.stdout <- NULL
  [07:38:05.568]     }
  [07:38:05.568]     ...future.result$conditions <- ...future.conditions
  [07:38:05.568]     ...future.result
  [07:38:05.568] }
  [07:38:05.574] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:05.587] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.587] - Validating connection of ClusterFuture
  [07:38:05.588] - received message: FutureResult
  [07:38:05.588] - Received FutureResult
  [07:38:05.589] - Erased future from FutureRegistry
  [07:38:05.589] result() for ClusterFuture ...
  [07:38:05.590] - result already collected: FutureResult
  [07:38:05.590] result() for ClusterFuture ... done
  [07:38:05.590] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:05.591] result() for ClusterFuture ...
  [07:38:05.591] - result already collected: FutureResult
  [07:38:05.592] result() for ClusterFuture ... done
  [07:38:05.592] result() for ClusterFuture ...
  [07:38:05.593] - result already collected: FutureResult
  [07:38:05.593] result() for ClusterFuture ... done
  [07:38:05.612] ClusterFuture started
  <environment: 0x5576d625e9c0> 
  <environment: 0x5576d62341a8> 
  [07:38:05.660] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.660] - Validating connection of ClusterFuture
  [07:38:05.661] - received message: FutureResult
  [07:38:05.661] - Received FutureResult
  [07:38:05.662] - Erased future from FutureRegistry
  [07:38:05.662] result() for ClusterFuture ...
  [07:38:05.663] - result already collected: FutureResult
  [07:38:05.663] result() for ClusterFuture ... done
  [07:38:05.663] receiveMessageFromWorker() for ClusterFuture ... done
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:05.667] resolve() on environment ...
  [07:38:05.668]  recursive: 0
  [07:38:05.669]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:05.670] signalConditionsASAP(numeric, pos=1) ...
  [07:38:05.670] - nx: 4
  [07:38:05.671] - relay: TRUE
  [07:38:05.671] - stdout: TRUE
  [07:38:05.671] - signal: TRUE
  [07:38:05.672] - resignal: FALSE
  [07:38:05.672] - force: TRUE
  [07:38:05.672] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.673] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.673]  - until=2
  [07:38:05.673]  - relaying element #2
  [07:38:05.674] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:05.674] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.674] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:05.675]  length: 3 (resolved future 1)
  [07:38:05.675] Future #2
  [07:38:05.675] result() for ClusterFuture ...
  [07:38:05.676] - result already collected: FutureResult
  [07:38:05.676] result() for ClusterFuture ... done
  [07:38:05.677] result() for ClusterFuture ...
  [07:38:05.677] - result already collected: FutureResult
  [07:38:05.677] result() for ClusterFuture ... done
  [07:38:05.678] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:05.678] - nx: 4
  [07:38:05.678] - relay: TRUE
  [07:38:05.679] - stdout: TRUE
  [07:38:05.679] - signal: TRUE
  [07:38:05.679] - resignal: FALSE
  [07:38:05.679] - force: TRUE
  [07:38:05.680] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:05.680] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:05.681]  - until=2
  [07:38:05.681]  - relaying element #2
  [07:38:05.681] result() for ClusterFuture ...
  [07:38:05.682] - result already collected: FutureResult
  [07:38:05.682] result() for ClusterFuture ... done
  [07:38:05.682] result() for ClusterFuture ...
  [07:38:05.683] - result already collected: FutureResult
  [07:38:05.683] result() for ClusterFuture ... done
  [07:38:05.683] result() for ClusterFuture ...
  [07:38:05.684] - result already collected: FutureResult
  [07:38:05.684] result() for ClusterFuture ... done
  [07:38:05.685] result() for ClusterFuture ...
  [07:38:05.685] - result already collected: FutureResult
  [07:38:05.685] result() for ClusterFuture ... done
  [07:38:05.686] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:05.686] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:05.686] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:05.703]  length: 2 (resolved future 2)
  [07:38:05.703] Future #3
  [07:38:05.704] result() for ClusterFuture ...
  [07:38:05.704] - result already collected: FutureResult
  [07:38:05.705] result() for ClusterFuture ... done
  [07:38:05.705] result() for ClusterFuture ...
  [07:38:05.705] - result already collected: FutureResult
  [07:38:05.706] result() for ClusterFuture ... done
  [07:38:05.706] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:05.706] - nx: 4
  [07:38:05.707] - relay: TRUE
  [07:38:05.707] - stdout: TRUE
  [07:38:05.708] - signal: TRUE
  [07:38:05.708] - resignal: FALSE
  [07:38:05.708] - force: TRUE
  [07:38:05.709] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:05.709] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:05.709]  - until=3
  [07:38:05.710]  - relaying element #3
  [07:38:05.710] result() for ClusterFuture ...
  [07:38:05.710] - result already collected: FutureResult
  [07:38:05.711] result() for ClusterFuture ... done
  [07:38:05.711] result() for ClusterFuture ...
  [07:38:05.712] - result already collected: FutureResult
  [07:38:05.712] result() for ClusterFuture ... done
  [07:38:05.713] result() for ClusterFuture ...
  [07:38:05.713] - result already collected: FutureResult
  [07:38:05.713] result() for ClusterFuture ... done
  [07:38:05.714] result() for ClusterFuture ...
  [07:38:05.714] - result already collected: FutureResult
  [07:38:05.714] result() for ClusterFuture ... done
  [07:38:05.715] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:05.715] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:05.715] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:05.716]  length: 1 (resolved future 3)
  [07:38:05.716] Future #4
  [07:38:05.716] result() for ClusterFuture ...
  [07:38:05.717] - result already collected: FutureResult
  [07:38:05.717] result() for ClusterFuture ... done
  [07:38:05.718] result() for ClusterFuture ...
  [07:38:05.718] - result already collected: FutureResult
  [07:38:05.718] result() for ClusterFuture ... done
  [07:38:05.735] signalConditionsASAP(ClusterFuture, pos=4) ...
  [07:38:05.735] - nx: 4
  [07:38:05.736] - relay: TRUE
  [07:38:05.736] - stdout: TRUE
  [07:38:05.736] - signal: TRUE
  [07:38:05.737] - resignal: FALSE
  [07:38:05.737] - force: TRUE
  [07:38:05.737] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:05.738] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:05.738]  - until=4
  [07:38:05.738]  - relaying element #4
  [07:38:05.739] result() for ClusterFuture ...
  [07:38:05.739] - result already collected: FutureResult
  [07:38:05.739] result() for ClusterFuture ... done
  [07:38:05.740] result() for ClusterFuture ...
  [07:38:05.740] - result already collected: FutureResult
  [07:38:05.740] result() for ClusterFuture ... done
  [07:38:05.741] result() for ClusterFuture ...
  [07:38:05.741] - result already collected: FutureResult
  [07:38:05.742] result() for ClusterFuture ... done
  [07:38:05.742] result() for ClusterFuture ...
  [07:38:05.742] - result already collected: FutureResult
  [07:38:05.743] result() for ClusterFuture ... done
  [07:38:05.743] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.743] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:05.744] signalConditionsASAP(ClusterFuture, pos=4) ... done
  [07:38:05.744]  length: 0 (resolved future 4)
  [07:38:05.745] Relaying remaining futures
  [07:38:05.745] signalConditionsASAP(NULL, pos=0) ...
  [07:38:05.745] - nx: 4
  [07:38:05.746] - relay: TRUE
  [07:38:05.746] - stdout: TRUE
  [07:38:05.746] - signal: TRUE
  [07:38:05.746] - resignal: FALSE
  [07:38:05.747] - force: TRUE
  [07:38:05.747] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.747] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:05.748] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:05.748] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:05.749] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:05.749] resolve() on environment ... DONE
  [07:38:05.750] result() for ClusterFuture ...
  [07:38:05.750] - result already collected: FutureResult
  [07:38:05.750] result() for ClusterFuture ... done
  [07:38:05.767] result() for ClusterFuture ...
  [07:38:05.767] - result already collected: FutureResult
  [07:38:05.768] result() for ClusterFuture ... done
  [07:38:05.768] result() for ClusterFuture ...
  [07:38:05.768] - result already collected: FutureResult
  [07:38:05.769] result() for ClusterFuture ... done
  [07:38:05.769] result() for ClusterFuture ...
  [07:38:05.770] - result already collected: FutureResult
  [07:38:05.770] result() for ClusterFuture ... done
  [07:38:05.770] result() for ClusterFuture ...
  [07:38:05.771] - result already collected: FutureResult
  [07:38:05.771] result() for ClusterFuture ... done
  [07:38:05.772] result() for ClusterFuture ...
  [07:38:05.772] - result already collected: FutureResult
  [07:38:05.772] result() for ClusterFuture ... done
  <environment: 0x5576d4d7da28> 
  Dimensions: c(2, 1, 3, 1)
  [07:38:05.774] getGlobalsAndPackages() ...
  [07:38:05.774] Searching for globals...
  [07:38:05.775] 
  [07:38:05.776] Searching for globals ... DONE
  [07:38:05.776] - globals: [0] <none>
  [07:38:05.776] getGlobalsAndPackages() ... DONE
  [07:38:05.798] Packages needed by the future expression (n = 0): <none>
  [07:38:05.799] Packages needed by future strategies (n = 0): <none>
  [07:38:05.806] {
  [07:38:05.806]     {
  [07:38:05.806]         ...future.startTime <- base::Sys.time()
  [07:38:05.806]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.806]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.806]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.806]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.806]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.806]         {
  [07:38:05.806]             {
  [07:38:05.806]                 base::local({
  [07:38:05.806]                   has_future <- base::requireNamespace("future", 
  [07:38:05.806]                     quietly = TRUE)
  [07:38:05.806]                   version <- if (has_future) 
  [07:38:05.806]                     utils::packageVersion("future")
  [07:38:05.806]                   else NULL
  [07:38:05.806]                   if (!has_future || version < "1.8.0") {
  [07:38:05.806]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.806]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.806]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.806]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.806]                         "release", "version")], collapse = " "), 
  [07:38:05.806]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.806]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.806]                       info)
  [07:38:05.806]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.806]                     if (!has_future) {
  [07:38:05.806]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.806]                         info)
  [07:38:05.806]                     }
  [07:38:05.806]                     else {
  [07:38:05.806]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.806]                         info, version)
  [07:38:05.806]                     }
  [07:38:05.806]                     base::stop(msg)
  [07:38:05.806]                   }
  [07:38:05.806]                 })
  [07:38:05.806]             }
  [07:38:05.806]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.806]         }
  [07:38:05.806]     }
  [07:38:05.806]     if (base::is.na(TRUE)) {
  [07:38:05.806]     }
  [07:38:05.806]     else {
  [07:38:05.806]         if (TRUE) {
  [07:38:05.806]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.806]                 open = "w")
  [07:38:05.806]         }
  [07:38:05.806]         else {
  [07:38:05.806]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.806]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.806]         }
  [07:38:05.806]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.806]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.806]             base::sink(type = "output", split = FALSE)
  [07:38:05.806]             base::close(...future.stdout)
  [07:38:05.806]         }, add = TRUE)
  [07:38:05.806]     }
  [07:38:05.806]     ...future.frame <- base::sys.nframe()
  [07:38:05.806]     ...future.conditions <- base::list()
  [07:38:05.806]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.806]     ...future.result <- base::tryCatch({
  [07:38:05.806]         base::withCallingHandlers({
  [07:38:05.806]             ...future.value <- base::withVisible(base::local({
  [07:38:05.806]                 ...future.sendCondition <- local({
  [07:38:05.806]                   sendCondition <- NULL
  [07:38:05.806]                   function(frame = 1L) {
  [07:38:05.806]                     if (is.function(sendCondition)) 
  [07:38:05.806]                       return(sendCondition)
  [07:38:05.806]                     ns <- getNamespace("parallel")
  [07:38:05.806]                     if (exists("sendData", mode = "function", 
  [07:38:05.806]                       envir = ns)) {
  [07:38:05.806]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.806]                         envir = ns)
  [07:38:05.806]                       envir <- sys.frame(frame)
  [07:38:05.806]                       master <- NULL
  [07:38:05.806]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.806]                         !identical(envir, emptyenv())) {
  [07:38:05.806]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.806]                           inherits = FALSE)) {
  [07:38:05.806]                           master <- get("master", mode = "list", 
  [07:38:05.806]                             envir = envir, inherits = FALSE)
  [07:38:05.806]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.806]                             sendCondition <<- function(cond) {
  [07:38:05.806]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.806]                                 success = TRUE)
  [07:38:05.806]                               parallel_sendData(master, data)
  [07:38:05.806]                             }
  [07:38:05.806]                             return(sendCondition)
  [07:38:05.806]                           }
  [07:38:05.806]                         }
  [07:38:05.806]                         frame <- frame + 1L
  [07:38:05.806]                         envir <- sys.frame(frame)
  [07:38:05.806]                       }
  [07:38:05.806]                     }
  [07:38:05.806]                     sendCondition <<- function(cond) NULL
  [07:38:05.806]                   }
  [07:38:05.806]                 })
  [07:38:05.806]                 withCallingHandlers({
  [07:38:05.806]                   2
  [07:38:05.806]                 }, immediateCondition = function(cond) {
  [07:38:05.806]                   sendCondition <- ...future.sendCondition()
  [07:38:05.806]                   sendCondition(cond)
  [07:38:05.806]                   muffleCondition <- function (cond) 
  [07:38:05.806]                   {
  [07:38:05.806]                     inherits <- base::inherits
  [07:38:05.806]                     invokeRestart <- base::invokeRestart
  [07:38:05.806]                     muffled <- FALSE
  [07:38:05.806]                     if (inherits(cond, "message")) {
  [07:38:05.806]                       invokeRestart("muffleMessage")
  [07:38:05.806]                       muffled <- TRUE
  [07:38:05.806]                     }
  [07:38:05.806]                     else if (inherits(cond, "warning")) {
  [07:38:05.806]                       invokeRestart("muffleWarning")
  [07:38:05.806]                       muffled <- TRUE
  [07:38:05.806]                     }
  [07:38:05.806]                     else if (inherits(cond, "condition")) {
  [07:38:05.806]                       computeRestarts <- base::computeRestarts
  [07:38:05.806]                       grepl <- base::grepl
  [07:38:05.806]                       is.null <- base::is.null
  [07:38:05.806]                       restarts <- computeRestarts(cond)
  [07:38:05.806]                       for (restart in restarts) {
  [07:38:05.806]                         name <- restart$name
  [07:38:05.806]                         if (is.null(name)) 
  [07:38:05.806]                           next
  [07:38:05.806]                         if (!grepl("^muffle", name)) 
  [07:38:05.806]                           next
  [07:38:05.806]                         invokeRestart(restart)
  [07:38:05.806]                         muffled <- TRUE
  [07:38:05.806]                         break
  [07:38:05.806]                       }
  [07:38:05.806]                     }
  [07:38:05.806]                     invisible(muffled)
  [07:38:05.806]                   }
  [07:38:05.806]                   muffleCondition(cond)
  [07:38:05.806]                 })
  [07:38:05.806]             }))
  [07:38:05.806]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.806]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.806]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.806]                 version = "1.8")
  [07:38:05.806]         }, condition = base::local({
  [07:38:05.806]             c <- base::c
  [07:38:05.806]             inherits <- base::inherits
  [07:38:05.806]             invokeRestart <- base::invokeRestart
  [07:38:05.806]             length <- base::length
  [07:38:05.806]             list <- base::list
  [07:38:05.806]             seq.int <- base::seq.int
  [07:38:05.806]             signalCondition <- base::signalCondition
  [07:38:05.806]             sys.calls <- base::sys.calls
  [07:38:05.806]             Sys.time <- base::Sys.time
  [07:38:05.806]             `[[` <- base::`[[`
  [07:38:05.806]             `+` <- base::`+`
  [07:38:05.806]             `<<-` <- base::`<<-`
  [07:38:05.806]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.806]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.806]                   3L)]
  [07:38:05.806]             }
  [07:38:05.806]             function(cond) {
  [07:38:05.806]                 if (inherits(cond, "error")) {
  [07:38:05.806]                   sessionInformation <- function() {
  [07:38:05.806]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.806]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.806]                       search = base::search(), system = base::Sys.info())
  [07:38:05.806]                   }
  [07:38:05.806]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.806]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.806]                     cond$call), session = sessionInformation(), 
  [07:38:05.806]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.806]                   signalCondition(cond)
  [07:38:05.806]                 }
  [07:38:05.806]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.806]                 ))) {
  [07:38:05.806]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.806]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.806]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.806]                   if (!signal) {
  [07:38:05.806]                     muffleCondition <- function (cond) 
  [07:38:05.806]                     {
  [07:38:05.806]                       inherits <- base::inherits
  [07:38:05.806]                       invokeRestart <- base::invokeRestart
  [07:38:05.806]                       muffled <- FALSE
  [07:38:05.806]                       if (inherits(cond, "message")) {
  [07:38:05.806]                         invokeRestart("muffleMessage")
  [07:38:05.806]                         muffled <- TRUE
  [07:38:05.806]                       }
  [07:38:05.806]                       else if (inherits(cond, "warning")) {
  [07:38:05.806]                         invokeRestart("muffleWarning")
  [07:38:05.806]                         muffled <- TRUE
  [07:38:05.806]                       }
  [07:38:05.806]                       else if (inherits(cond, "condition")) {
  [07:38:05.806]                         computeRestarts <- base::computeRestarts
  [07:38:05.806]                         grepl <- base::grepl
  [07:38:05.806]                         is.null <- base::is.null
  [07:38:05.806]                         restarts <- computeRestarts(cond)
  [07:38:05.806]                         for (restart in restarts) {
  [07:38:05.806]                           name <- restart$name
  [07:38:05.806]                           if (is.null(name)) 
  [07:38:05.806]                             next
  [07:38:05.806]                           if (!grepl("^muffle", name)) 
  [07:38:05.806]                             next
  [07:38:05.806]                           invokeRestart(restart)
  [07:38:05.806]                           muffled <- TRUE
  [07:38:05.806]                           break
  [07:38:05.806]                         }
  [07:38:05.806]                       }
  [07:38:05.806]                       invisible(muffled)
  [07:38:05.806]                     }
  [07:38:05.806]                     muffleCondition(cond)
  [07:38:05.806]                   }
  [07:38:05.806]                 }
  [07:38:05.806]             }
  [07:38:05.806]         }))
  [07:38:05.806]     }, error = function(ex) {
  [07:38:05.806]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.806]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.806]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.806]     }, finally = {
  [07:38:05.806]         {
  [07:38:05.806]             NULL
  [07:38:05.806]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.806]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.806]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.806]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.806]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.806]                 ...) 
  [07:38:05.806]             {
  [07:38:05.806]                 if (substitute) 
  [07:38:05.806]                   expr <- substitute(expr)
  [07:38:05.806]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.806]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.806]                   globals = globals, persistent = persistent, 
  [07:38:05.806]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.806]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.806]                   label = label, ...)
  [07:38:05.806]                 if (!future$lazy) 
  [07:38:05.806]                   future <- run(future)
  [07:38:05.806]                 invisible(future)
  [07:38:05.806]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.806]         }
  [07:38:05.806]         base::options(...future.oldOptions)
  [07:38:05.806]     })
  [07:38:05.806]     Sys.time
  [07:38:05.806]     if (base::is.na(TRUE)) {
  [07:38:05.806]     }
  [07:38:05.806]     else {
  [07:38:05.806]         base::sink(type = "output", split = FALSE)
  [07:38:05.806]         if (TRUE) {
  [07:38:05.806]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.806]         }
  [07:38:05.806]         else {
  [07:38:05.806]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.806]         }
  [07:38:05.806]         base::close(...future.stdout)
  [07:38:05.806]         ...future.stdout <- NULL
  [07:38:05.806]     }
  [07:38:05.806]     ...future.result$conditions <- ...future.conditions
  [07:38:05.806]     ...future.result
  [07:38:05.806] }
  [07:38:05.814] ClusterFuture started
  [07:38:05.814] getGlobalsAndPackages() ...
  [07:38:05.815] Searching for globals...
  [07:38:05.816] 
  [07:38:05.816] Searching for globals ... DONE
  [07:38:05.816] - globals: [0] <none>
  [07:38:05.817] getGlobalsAndPackages() ... DONE
  [07:38:05.823] Packages needed by the future expression (n = 0): <none>
  [07:38:05.823] Packages needed by future strategies (n = 0): <none>
  [07:38:05.830] {
  [07:38:05.830]     {
  [07:38:05.830]         ...future.startTime <- base::Sys.time()
  [07:38:05.830]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.830]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.830]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.830]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.830]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.830]         {
  [07:38:05.830]             {
  [07:38:05.830]                 base::local({
  [07:38:05.830]                   has_future <- base::requireNamespace("future", 
  [07:38:05.830]                     quietly = TRUE)
  [07:38:05.830]                   version <- if (has_future) 
  [07:38:05.830]                     utils::packageVersion("future")
  [07:38:05.830]                   else NULL
  [07:38:05.830]                   if (!has_future || version < "1.8.0") {
  [07:38:05.830]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.830]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.830]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.830]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.830]                         "release", "version")], collapse = " "), 
  [07:38:05.830]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.830]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.830]                       info)
  [07:38:05.830]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.830]                     if (!has_future) {
  [07:38:05.830]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.830]                         info)
  [07:38:05.830]                     }
  [07:38:05.830]                     else {
  [07:38:05.830]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.830]                         info, version)
  [07:38:05.830]                     }
  [07:38:05.830]                     base::stop(msg)
  [07:38:05.830]                   }
  [07:38:05.830]                 })
  [07:38:05.830]             }
  [07:38:05.830]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.830]         }
  [07:38:05.830]     }
  [07:38:05.830]     if (base::is.na(TRUE)) {
  [07:38:05.830]     }
  [07:38:05.830]     else {
  [07:38:05.830]         if (TRUE) {
  [07:38:05.830]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.830]                 open = "w")
  [07:38:05.830]         }
  [07:38:05.830]         else {
  [07:38:05.830]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.830]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.830]         }
  [07:38:05.830]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.830]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.830]             base::sink(type = "output", split = FALSE)
  [07:38:05.830]             base::close(...future.stdout)
  [07:38:05.830]         }, add = TRUE)
  [07:38:05.830]     }
  [07:38:05.830]     ...future.frame <- base::sys.nframe()
  [07:38:05.830]     ...future.conditions <- base::list()
  [07:38:05.830]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.830]     ...future.result <- base::tryCatch({
  [07:38:05.830]         base::withCallingHandlers({
  [07:38:05.830]             ...future.value <- base::withVisible(base::local({
  [07:38:05.830]                 ...future.sendCondition <- local({
  [07:38:05.830]                   sendCondition <- NULL
  [07:38:05.830]                   function(frame = 1L) {
  [07:38:05.830]                     if (is.function(sendCondition)) 
  [07:38:05.830]                       return(sendCondition)
  [07:38:05.830]                     ns <- getNamespace("parallel")
  [07:38:05.830]                     if (exists("sendData", mode = "function", 
  [07:38:05.830]                       envir = ns)) {
  [07:38:05.830]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.830]                         envir = ns)
  [07:38:05.830]                       envir <- sys.frame(frame)
  [07:38:05.830]                       master <- NULL
  [07:38:05.830]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.830]                         !identical(envir, emptyenv())) {
  [07:38:05.830]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.830]                           inherits = FALSE)) {
  [07:38:05.830]                           master <- get("master", mode = "list", 
  [07:38:05.830]                             envir = envir, inherits = FALSE)
  [07:38:05.830]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.830]                             sendCondition <<- function(cond) {
  [07:38:05.830]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.830]                                 success = TRUE)
  [07:38:05.830]                               parallel_sendData(master, data)
  [07:38:05.830]                             }
  [07:38:05.830]                             return(sendCondition)
  [07:38:05.830]                           }
  [07:38:05.830]                         }
  [07:38:05.830]                         frame <- frame + 1L
  [07:38:05.830]                         envir <- sys.frame(frame)
  [07:38:05.830]                       }
  [07:38:05.830]                     }
  [07:38:05.830]                     sendCondition <<- function(cond) NULL
  [07:38:05.830]                   }
  [07:38:05.830]                 })
  [07:38:05.830]                 withCallingHandlers({
  [07:38:05.830]                   NULL
  [07:38:05.830]                 }, immediateCondition = function(cond) {
  [07:38:05.830]                   sendCondition <- ...future.sendCondition()
  [07:38:05.830]                   sendCondition(cond)
  [07:38:05.830]                   muffleCondition <- function (cond) 
  [07:38:05.830]                   {
  [07:38:05.830]                     inherits <- base::inherits
  [07:38:05.830]                     invokeRestart <- base::invokeRestart
  [07:38:05.830]                     muffled <- FALSE
  [07:38:05.830]                     if (inherits(cond, "message")) {
  [07:38:05.830]                       invokeRestart("muffleMessage")
  [07:38:05.830]                       muffled <- TRUE
  [07:38:05.830]                     }
  [07:38:05.830]                     else if (inherits(cond, "warning")) {
  [07:38:05.830]                       invokeRestart("muffleWarning")
  [07:38:05.830]                       muffled <- TRUE
  [07:38:05.830]                     }
  [07:38:05.830]                     else if (inherits(cond, "condition")) {
  [07:38:05.830]                       computeRestarts <- base::computeRestarts
  [07:38:05.830]                       grepl <- base::grepl
  [07:38:05.830]                       is.null <- base::is.null
  [07:38:05.830]                       restarts <- computeRestarts(cond)
  [07:38:05.830]                       for (restart in restarts) {
  [07:38:05.830]                         name <- restart$name
  [07:38:05.830]                         if (is.null(name)) 
  [07:38:05.830]                           next
  [07:38:05.830]                         if (!grepl("^muffle", name)) 
  [07:38:05.830]                           next
  [07:38:05.830]                         invokeRestart(restart)
  [07:38:05.830]                         muffled <- TRUE
  [07:38:05.830]                         break
  [07:38:05.830]                       }
  [07:38:05.830]                     }
  [07:38:05.830]                     invisible(muffled)
  [07:38:05.830]                   }
  [07:38:05.830]                   muffleCondition(cond)
  [07:38:05.830]                 })
  [07:38:05.830]             }))
  [07:38:05.830]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.830]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.830]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.830]                 version = "1.8")
  [07:38:05.830]         }, condition = base::local({
  [07:38:05.830]             c <- base::c
  [07:38:05.830]             inherits <- base::inherits
  [07:38:05.830]             invokeRestart <- base::invokeRestart
  [07:38:05.830]             length <- base::length
  [07:38:05.830]             list <- base::list
  [07:38:05.830]             seq.int <- base::seq.int
  [07:38:05.830]             signalCondition <- base::signalCondition
  [07:38:05.830]             sys.calls <- base::sys.calls
  [07:38:05.830]             Sys.time <- base::Sys.time
  [07:38:05.830]             `[[` <- base::`[[`
  [07:38:05.830]             `+` <- base::`+`
  [07:38:05.830]             `<<-` <- base::`<<-`
  [07:38:05.830]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.830]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.830]                   3L)]
  [07:38:05.830]             }
  [07:38:05.830]             function(cond) {
  [07:38:05.830]                 if (inherits(cond, "error")) {
  [07:38:05.830]                   sessionInformation <- function() {
  [07:38:05.830]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.830]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.830]                       search = base::search(), system = base::Sys.info())
  [07:38:05.830]                   }
  [07:38:05.830]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.830]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.830]                     cond$call), session = sessionInformation(), 
  [07:38:05.830]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.830]                   signalCondition(cond)
  [07:38:05.830]                 }
  [07:38:05.830]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.830]                 ))) {
  [07:38:05.830]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.830]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.830]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.830]                   if (!signal) {
  [07:38:05.830]                     muffleCondition <- function (cond) 
  [07:38:05.830]                     {
  [07:38:05.830]                       inherits <- base::inherits
  [07:38:05.830]                       invokeRestart <- base::invokeRestart
  [07:38:05.830]                       muffled <- FALSE
  [07:38:05.830]                       if (inherits(cond, "message")) {
  [07:38:05.830]                         invokeRestart("muffleMessage")
  [07:38:05.830]                         muffled <- TRUE
  [07:38:05.830]                       }
  [07:38:05.830]                       else if (inherits(cond, "warning")) {
  [07:38:05.830]                         invokeRestart("muffleWarning")
  [07:38:05.830]                         muffled <- TRUE
  [07:38:05.830]                       }
  [07:38:05.830]                       else if (inherits(cond, "condition")) {
  [07:38:05.830]                         computeRestarts <- base::computeRestarts
  [07:38:05.830]                         grepl <- base::grepl
  [07:38:05.830]                         is.null <- base::is.null
  [07:38:05.830]                         restarts <- computeRestarts(cond)
  [07:38:05.830]                         for (restart in restarts) {
  [07:38:05.830]                           name <- restart$name
  [07:38:05.830]                           if (is.null(name)) 
  [07:38:05.830]                             next
  [07:38:05.830]                           if (!grepl("^muffle", name)) 
  [07:38:05.830]                             next
  [07:38:05.830]                           invokeRestart(restart)
  [07:38:05.830]                           muffled <- TRUE
  [07:38:05.830]                           break
  [07:38:05.830]                         }
  [07:38:05.830]                       }
  [07:38:05.830]                       invisible(muffled)
  [07:38:05.830]                     }
  [07:38:05.830]                     muffleCondition(cond)
  [07:38:05.830]                   }
  [07:38:05.830]                 }
  [07:38:05.830]             }
  [07:38:05.830]         }))
  [07:38:05.830]     }, error = function(ex) {
  [07:38:05.830]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.830]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.830]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.830]     }, finally = {
  [07:38:05.830]         {
  [07:38:05.830]             NULL
  [07:38:05.830]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.830]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.830]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.830]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.830]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.830]                 ...) 
  [07:38:05.830]             {
  [07:38:05.830]                 if (substitute) 
  [07:38:05.830]                   expr <- substitute(expr)
  [07:38:05.830]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.830]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.830]                   globals = globals, persistent = persistent, 
  [07:38:05.830]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.830]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.830]                   label = label, ...)
  [07:38:05.830]                 if (!future$lazy) 
  [07:38:05.830]                   future <- run(future)
  [07:38:05.830]                 invisible(future)
  [07:38:05.830]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.830]         }
  [07:38:05.830]         base::options(...future.oldOptions)
  [07:38:05.830]     })
  [07:38:05.830]     Sys.time
  [07:38:05.830]     if (base::is.na(TRUE)) {
  [07:38:05.830]     }
  [07:38:05.830]     else {
  [07:38:05.830]         base::sink(type = "output", split = FALSE)
  [07:38:05.830]         if (TRUE) {
  [07:38:05.830]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.830]         }
  [07:38:05.830]         else {
  [07:38:05.830]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.830]         }
  [07:38:05.830]         base::close(...future.stdout)
  [07:38:05.830]         ...future.stdout <- NULL
  [07:38:05.830]     }
  [07:38:05.830]     ...future.result$conditions <- ...future.conditions
  [07:38:05.830]     ...future.result
  [07:38:05.830] }
  [07:38:05.835] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:05.860] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.860] - Validating connection of ClusterFuture
  [07:38:05.861] - received message: FutureResult
  [07:38:05.861] - Received FutureResult
  [07:38:05.862] - Erased future from FutureRegistry
  [07:38:05.862] result() for ClusterFuture ...
  [07:38:05.862] - result already collected: FutureResult
  [07:38:05.863] result() for ClusterFuture ... done
  [07:38:05.863] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:05.864] result() for ClusterFuture ...
  [07:38:05.864] - result already collected: FutureResult
  [07:38:05.864] result() for ClusterFuture ... done
  [07:38:05.865] result() for ClusterFuture ...
  [07:38:05.865] - result already collected: FutureResult
  [07:38:05.866] result() for ClusterFuture ... done
  [07:38:05.868] ClusterFuture started
  [07:38:05.870] getGlobalsAndPackages() ...
  [07:38:05.870] Searching for globals...
  [07:38:05.872] - globals found: [1] '{'
  [07:38:05.872] Searching for globals ... DONE
  [07:38:05.873] Resolving globals: FALSE
  [07:38:05.873] 
  [07:38:05.874] 
  [07:38:05.874] getGlobalsAndPackages() ... DONE
  [07:38:05.896] Packages needed by the future expression (n = 0): <none>
  [07:38:05.897] Packages needed by future strategies (n = 0): <none>
  [07:38:05.903] {
  [07:38:05.903]     {
  [07:38:05.903]         ...future.startTime <- base::Sys.time()
  [07:38:05.903]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:05.903]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:05.903]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:05.903]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:05.903]             future.resolve.recursive = NULL, width = 80L)
  [07:38:05.903]         {
  [07:38:05.903]             {
  [07:38:05.903]                 base::local({
  [07:38:05.903]                   has_future <- base::requireNamespace("future", 
  [07:38:05.903]                     quietly = TRUE)
  [07:38:05.903]                   version <- if (has_future) 
  [07:38:05.903]                     utils::packageVersion("future")
  [07:38:05.903]                   else NULL
  [07:38:05.903]                   if (!has_future || version < "1.8.0") {
  [07:38:05.903]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:05.903]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:05.903]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:05.903]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:05.903]                         "release", "version")], collapse = " "), 
  [07:38:05.903]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:05.903]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:05.903]                       info)
  [07:38:05.903]                     info <- base::paste(info, collapse = "; ")
  [07:38:05.903]                     if (!has_future) {
  [07:38:05.903]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:05.903]                         info)
  [07:38:05.903]                     }
  [07:38:05.903]                     else {
  [07:38:05.903]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:05.903]                         info, version)
  [07:38:05.903]                     }
  [07:38:05.903]                     base::stop(msg)
  [07:38:05.903]                   }
  [07:38:05.903]                 })
  [07:38:05.903]             }
  [07:38:05.903]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:05.903]         }
  [07:38:05.903]     }
  [07:38:05.903]     if (base::is.na(TRUE)) {
  [07:38:05.903]     }
  [07:38:05.903]     else {
  [07:38:05.903]         if (TRUE) {
  [07:38:05.903]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:05.903]                 open = "w")
  [07:38:05.903]         }
  [07:38:05.903]         else {
  [07:38:05.903]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:05.903]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:05.903]         }
  [07:38:05.903]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:05.903]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:05.903]             base::sink(type = "output", split = FALSE)
  [07:38:05.903]             base::close(...future.stdout)
  [07:38:05.903]         }, add = TRUE)
  [07:38:05.903]     }
  [07:38:05.903]     ...future.frame <- base::sys.nframe()
  [07:38:05.903]     ...future.conditions <- base::list()
  [07:38:05.903]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:05.903]     ...future.result <- base::tryCatch({
  [07:38:05.903]         base::withCallingHandlers({
  [07:38:05.903]             ...future.value <- base::withVisible(base::local({
  [07:38:05.903]                 ...future.sendCondition <- local({
  [07:38:05.903]                   sendCondition <- NULL
  [07:38:05.903]                   function(frame = 1L) {
  [07:38:05.903]                     if (is.function(sendCondition)) 
  [07:38:05.903]                       return(sendCondition)
  [07:38:05.903]                     ns <- getNamespace("parallel")
  [07:38:05.903]                     if (exists("sendData", mode = "function", 
  [07:38:05.903]                       envir = ns)) {
  [07:38:05.903]                       parallel_sendData <- get("sendData", mode = "function", 
  [07:38:05.903]                         envir = ns)
  [07:38:05.903]                       envir <- sys.frame(frame)
  [07:38:05.903]                       master <- NULL
  [07:38:05.903]                       while (!identical(envir, .GlobalEnv) && 
  [07:38:05.903]                         !identical(envir, emptyenv())) {
  [07:38:05.903]                         if (exists("master", mode = "list", envir = envir, 
  [07:38:05.903]                           inherits = FALSE)) {
  [07:38:05.903]                           master <- get("master", mode = "list", 
  [07:38:05.903]                             envir = envir, inherits = FALSE)
  [07:38:05.903]                           if (inherits(master, "SOCKnode")) {
  [07:38:05.903]                             sendCondition <<- function(cond) {
  [07:38:05.903]                               data <- list(type = "VALUE", value = cond, 
  [07:38:05.903]                                 success = TRUE)
  [07:38:05.903]                               parallel_sendData(master, data)
  [07:38:05.903]                             }
  [07:38:05.903]                             return(sendCondition)
  [07:38:05.903]                           }
  [07:38:05.903]                         }
  [07:38:05.903]                         frame <- frame + 1L
  [07:38:05.903]                         envir <- sys.frame(frame)
  [07:38:05.903]                       }
  [07:38:05.903]                     }
  [07:38:05.903]                     sendCondition <<- function(cond) NULL
  [07:38:05.903]                   }
  [07:38:05.903]                 })
  [07:38:05.903]                 withCallingHandlers({
  [07:38:05.903]                   {
  [07:38:05.903]                     4
  [07:38:05.903]                   }
  [07:38:05.903]                 }, immediateCondition = function(cond) {
  [07:38:05.903]                   sendCondition <- ...future.sendCondition()
  [07:38:05.903]                   sendCondition(cond)
  [07:38:05.903]                   muffleCondition <- function (cond) 
  [07:38:05.903]                   {
  [07:38:05.903]                     inherits <- base::inherits
  [07:38:05.903]                     invokeRestart <- base::invokeRestart
  [07:38:05.903]                     muffled <- FALSE
  [07:38:05.903]                     if (inherits(cond, "message")) {
  [07:38:05.903]                       invokeRestart("muffleMessage")
  [07:38:05.903]                       muffled <- TRUE
  [07:38:05.903]                     }
  [07:38:05.903]                     else if (inherits(cond, "warning")) {
  [07:38:05.903]                       invokeRestart("muffleWarning")
  [07:38:05.903]                       muffled <- TRUE
  [07:38:05.903]                     }
  [07:38:05.903]                     else if (inherits(cond, "condition")) {
  [07:38:05.903]                       computeRestarts <- base::computeRestarts
  [07:38:05.903]                       grepl <- base::grepl
  [07:38:05.903]                       is.null <- base::is.null
  [07:38:05.903]                       restarts <- computeRestarts(cond)
  [07:38:05.903]                       for (restart in restarts) {
  [07:38:05.903]                         name <- restart$name
  [07:38:05.903]                         if (is.null(name)) 
  [07:38:05.903]                           next
  [07:38:05.903]                         if (!grepl("^muffle", name)) 
  [07:38:05.903]                           next
  [07:38:05.903]                         invokeRestart(restart)
  [07:38:05.903]                         muffled <- TRUE
  [07:38:05.903]                         break
  [07:38:05.903]                       }
  [07:38:05.903]                     }
  [07:38:05.903]                     invisible(muffled)
  [07:38:05.903]                   }
  [07:38:05.903]                   muffleCondition(cond)
  [07:38:05.903]                 })
  [07:38:05.903]             }))
  [07:38:05.903]             future::FutureResult(value = ...future.value$value, 
  [07:38:05.903]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.903]                   ...future.rng), started = ...future.startTime, 
  [07:38:05.903]                 version = "1.8")
  [07:38:05.903]         }, condition = base::local({
  [07:38:05.903]             c <- base::c
  [07:38:05.903]             inherits <- base::inherits
  [07:38:05.903]             invokeRestart <- base::invokeRestart
  [07:38:05.903]             length <- base::length
  [07:38:05.903]             list <- base::list
  [07:38:05.903]             seq.int <- base::seq.int
  [07:38:05.903]             signalCondition <- base::signalCondition
  [07:38:05.903]             sys.calls <- base::sys.calls
  [07:38:05.903]             Sys.time <- base::Sys.time
  [07:38:05.903]             `[[` <- base::`[[`
  [07:38:05.903]             `+` <- base::`+`
  [07:38:05.903]             `<<-` <- base::`<<-`
  [07:38:05.903]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:05.903]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:05.903]                   3L)]
  [07:38:05.903]             }
  [07:38:05.903]             function(cond) {
  [07:38:05.903]                 if (inherits(cond, "error")) {
  [07:38:05.903]                   sessionInformation <- function() {
  [07:38:05.903]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:05.903]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:05.903]                       search = base::search(), system = base::Sys.info())
  [07:38:05.903]                   }
  [07:38:05.903]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.903]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:05.903]                     cond$call), session = sessionInformation(), 
  [07:38:05.903]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:05.903]                   signalCondition(cond)
  [07:38:05.903]                 }
  [07:38:05.903]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:05.903]                 ))) {
  [07:38:05.903]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:05.903]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:05.903]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:05.903]                   if (!signal) {
  [07:38:05.903]                     muffleCondition <- function (cond) 
  [07:38:05.903]                     {
  [07:38:05.903]                       inherits <- base::inherits
  [07:38:05.903]                       invokeRestart <- base::invokeRestart
  [07:38:05.903]                       muffled <- FALSE
  [07:38:05.903]                       if (inherits(cond, "message")) {
  [07:38:05.903]                         invokeRestart("muffleMessage")
  [07:38:05.903]                         muffled <- TRUE
  [07:38:05.903]                       }
  [07:38:05.903]                       else if (inherits(cond, "warning")) {
  [07:38:05.903]                         invokeRestart("muffleWarning")
  [07:38:05.903]                         muffled <- TRUE
  [07:38:05.903]                       }
  [07:38:05.903]                       else if (inherits(cond, "condition")) {
  [07:38:05.903]                         computeRestarts <- base::computeRestarts
  [07:38:05.903]                         grepl <- base::grepl
  [07:38:05.903]                         is.null <- base::is.null
  [07:38:05.903]                         restarts <- computeRestarts(cond)
  [07:38:05.903]                         for (restart in restarts) {
  [07:38:05.903]                           name <- restart$name
  [07:38:05.903]                           if (is.null(name)) 
  [07:38:05.903]                             next
  [07:38:05.903]                           if (!grepl("^muffle", name)) 
  [07:38:05.903]                             next
  [07:38:05.903]                           invokeRestart(restart)
  [07:38:05.903]                           muffled <- TRUE
  [07:38:05.903]                           break
  [07:38:05.903]                         }
  [07:38:05.903]                       }
  [07:38:05.903]                       invisible(muffled)
  [07:38:05.903]                     }
  [07:38:05.903]                     muffleCondition(cond)
  [07:38:05.903]                   }
  [07:38:05.903]                 }
  [07:38:05.903]             }
  [07:38:05.903]         }))
  [07:38:05.903]     }, error = function(ex) {
  [07:38:05.903]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:05.903]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:05.903]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:05.903]     }, finally = {
  [07:38:05.903]         {
  [07:38:05.903]             NULL
  [07:38:05.903]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:05.903]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:05.903]                 globals = TRUE, persistent = FALSE, workers = availableWorkers(), 
  [07:38:05.903]                 user = NULL, revtunnel = TRUE, homogeneous = TRUE, 
  [07:38:05.903]                 gc = FALSE, earlySignal = FALSE, label = NULL, 
  [07:38:05.903]                 ...) 
  [07:38:05.903]             {
  [07:38:05.903]                 if (substitute) 
  [07:38:05.903]                   expr <- substitute(expr)
  [07:38:05.903]                 future <- ClusterFuture(expr = expr, envir = envir, 
  [07:38:05.903]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:05.903]                   globals = globals, persistent = persistent, 
  [07:38:05.903]                   workers = workers, user = user, revtunnel = revtunnel, 
  [07:38:05.903]                   homogeneous = homogeneous, gc = gc, earlySignal = earlySignal, 
  [07:38:05.903]                   label = label, ...)
  [07:38:05.903]                 if (!future$lazy) 
  [07:38:05.903]                   future <- run(future)
  [07:38:05.903]                 invisible(future)
  [07:38:05.903]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:05.903]         }
  [07:38:05.903]         base::options(...future.oldOptions)
  [07:38:05.903]     })
  [07:38:05.903]     Sys.time
  [07:38:05.903]     if (base::is.na(TRUE)) {
  [07:38:05.903]     }
  [07:38:05.903]     else {
  [07:38:05.903]         base::sink(type = "output", split = FALSE)
  [07:38:05.903]         if (TRUE) {
  [07:38:05.903]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:05.903]         }
  [07:38:05.903]         else {
  [07:38:05.903]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:05.903]         }
  [07:38:05.903]         base::close(...future.stdout)
  [07:38:05.903]         ...future.stdout <- NULL
  [07:38:05.903]     }
  [07:38:05.903]     ...future.result$conditions <- ...future.conditions
  [07:38:05.903]     ...future.result
  [07:38:05.903] }
  [07:38:05.921] Poll #1 (0): usedNodes() = 1, workers = 1
  [07:38:05.934] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:05.934] - Validating connection of ClusterFuture
  [07:38:05.935] - received message: FutureResult
  [07:38:05.935] - Received FutureResult
  [07:38:05.936] - Erased future from FutureRegistry
  [07:38:05.936] result() for ClusterFuture ...
  [07:38:05.937] - result already collected: FutureResult
  [07:38:05.937] result() for ClusterFuture ... done
  [07:38:05.938] receiveMessageFromWorker() for ClusterFuture ... done
  [07:38:05.938] result() for ClusterFuture ...
  [07:38:05.939] - result already collected: FutureResult
  [07:38:05.939] result() for ClusterFuture ... done
  [07:38:05.939] result() for ClusterFuture ...
  [07:38:05.940] - result already collected: FutureResult
  [07:38:05.940] result() for ClusterFuture ... done
  [07:38:05.964] ClusterFuture started
  <environment: 0x5576d6280dc0> 
  <environment: 0x5576d6315278> 
  [07:38:06.012] receiveMessageFromWorker() for ClusterFuture ...
  [07:38:06.012] - Validating connection of ClusterFuture
  [07:38:06.013] - received message: FutureResult
  [07:38:06.013] - Received FutureResult
  [07:38:06.013] - Erased future from FutureRegistry
  [07:38:06.014] result() for ClusterFuture ...
  [07:38:06.014] - result already collected: FutureResult
  [07:38:06.014] result() for ClusterFuture ... done
  [07:38:06.015] receiveMessageFromWorker() for ClusterFuture ... done
   Named logi [1:4] TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:4] "a" "b" "c" "d"
  [07:38:06.019] resolve() on environment ...
  [07:38:06.019]  recursive: 0
  [07:38:06.021]  elements: [4] 'a', 'b', 'c', 'd'
  [07:38:06.021] signalConditionsASAP(numeric, pos=1) ...
  [07:38:06.022] - nx: 4
  [07:38:06.022] - relay: TRUE
  [07:38:06.022] - stdout: TRUE
  [07:38:06.023] - signal: TRUE
  [07:38:06.023] - resignal: FALSE
  [07:38:06.023] - force: TRUE
  [07:38:06.024] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:06.024] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:06.024]  - until=2
  [07:38:06.025]  - relaying element #2
  [07:38:06.025] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:06.025] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:06.026] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:06.026]  length: 3 (resolved future 1)
  [07:38:06.027] Future #2
  [07:38:06.027] result() for ClusterFuture ...
  [07:38:06.027] - result already collected: FutureResult
  [07:38:06.028] result() for ClusterFuture ... done
  [07:38:06.028] result() for ClusterFuture ...
  [07:38:06.029] - result already collected: FutureResult
  [07:38:06.029] result() for ClusterFuture ... done
  [07:38:06.029] signalConditionsASAP(ClusterFuture, pos=2) ...
  [07:38:06.030] - nx: 4
  [07:38:06.030] - relay: TRUE
  [07:38:06.030] - stdout: TRUE
  [07:38:06.031] - signal: TRUE
  [07:38:06.031] - resignal: FALSE
  [07:38:06.031] - force: TRUE
  [07:38:06.032] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [07:38:06.032] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [07:38:06.033]  - until=2
  [07:38:06.033]  - relaying element #2
  [07:38:06.033] result() for ClusterFuture ...
  [07:38:06.034] - result already collected: FutureResult
  [07:38:06.034] result() for ClusterFuture ... done
  [07:38:06.034] result() for ClusterFuture ...
  [07:38:06.035] - result already collected: FutureResult
  [07:38:06.035] result() for ClusterFuture ... done
  [07:38:06.036] result() for ClusterFuture ...
  [07:38:06.036] - result already collected: FutureResult
  [07:38:06.036] result() for ClusterFuture ... done
  [07:38:06.037] result() for ClusterFuture ...
  [07:38:06.037] - result already collected: FutureResult
  [07:38:06.037] result() for ClusterFuture ... done
  [07:38:06.038] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:06.038] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:06.055] signalConditionsASAP(ClusterFuture, pos=2) ... done
  [07:38:06.055]  length: 2 (resolved future 2)
  [07:38:06.056] Future #3
  [07:38:06.056] result() for ClusterFuture ...
  [07:38:06.056] - result already collected: FutureResult
  [07:38:06.057] result() for ClusterFuture ... done
  [07:38:06.057] result() for ClusterFuture ...
  [07:38:06.058] - result already collected: FutureResult
  [07:38:06.058] result() for ClusterFuture ... done
  [07:38:06.058] signalConditionsASAP(ClusterFuture, pos=3) ...
  [07:38:06.059] - nx: 4
  [07:38:06.059] - relay: TRUE
  [07:38:06.059] - stdout: TRUE
  [07:38:06.060] - signal: TRUE
  [07:38:06.060] - resignal: FALSE
  [07:38:06.060] - force: TRUE
  [07:38:06.061] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [07:38:06.061] - queued futures: [n=4] FALSE, TRUE, FALSE, FALSE
  [07:38:06.062]  - until=3
  [07:38:06.062]  - relaying element #3
  [07:38:06.062] result() for ClusterFuture ...
  [07:38:06.063] - result already collected: FutureResult
  [07:38:06.063] result() for ClusterFuture ... done
  [07:38:06.063] result() for ClusterFuture ...
  [07:38:06.064] - result already collected: FutureResult
  [07:38:06.064] result() for ClusterFuture ... done
  [07:38:06.065] result() for ClusterFuture ...
  [07:38:06.065] - result already collected: FutureResult
  [07:38:06.065] result() for ClusterFuture ... done
  [07:38:06.066] result() for ClusterFuture ...
  [07:38:06.066] - result already collected: FutureResult
  [07:38:06.067] result() for ClusterFuture ... done
  [07:38:06.067] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:06.067] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:06.068] signalConditionsASAP(ClusterFuture, pos=3) ... done
  [07:38:06.068]  length: 1 (resolved future 3)
  [07:38:06.068] Future #4
  [07:38:06.069] result() for ClusterFuture ...
  [07:38:06.069] - result already collected: FutureResult
  [07:38:06.070] result() for ClusterFuture ... done
  [07:38:06.070] result() for ClusterFuture ...
  [07:38:06.070] - result already collected: FutureResult
  [07:38:06.074] result() for ClusterFuture ... done
  [07:38:06.074] signalConditionsASAP(ClusterFuture, pos=4) ...
  [07:38:06.075] - nx: 4
  [07:38:06.075] - relay: TRUE
  [07:38:06.075] - stdout: TRUE
  [07:38:06.076] - signal: TRUE
  [07:38:06.076] - resignal: FALSE
  [07:38:06.076] - force: TRUE
  [07:38:06.077] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [07:38:06.077] - queued futures: [n=4] FALSE, TRUE, TRUE, FALSE
  [07:38:06.077]  - until=4
  [07:38:06.078]  - relaying element #4
  [07:38:06.078] result() for ClusterFuture ...
  [07:38:06.078] - result already collected: FutureResult
  [07:38:06.079] result() for ClusterFuture ... done
  [07:38:06.079] result() for ClusterFuture ...
  [07:38:06.080] - result already collected: FutureResult
  [07:38:06.080] result() for ClusterFuture ... done
  [07:38:06.080] result() for ClusterFuture ...
  [07:38:06.081] - result already collected: FutureResult
  [07:38:06.081] result() for ClusterFuture ... done
  [07:38:06.082] result() for ClusterFuture ...
  [07:38:06.082] - result already collected: FutureResult
  [07:38:06.082] result() for ClusterFuture ... done
  [07:38:06.083] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:06.083] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:06.083] signalConditionsASAP(ClusterFuture, pos=4) ... done
  [07:38:06.084]  length: 0 (resolved future 4)
  [07:38:06.084] Relaying remaining futures
  [07:38:06.084] signalConditionsASAP(NULL, pos=0) ...
  [07:38:06.085] - nx: 4
  [07:38:06.085] - relay: TRUE
  [07:38:06.085] - stdout: TRUE
  [07:38:06.085] - signal: TRUE
  [07:38:06.086] - resignal: FALSE
  [07:38:06.086] - force: TRUE
  [07:38:06.086] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:06.087] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
   - flush all
  [07:38:06.087] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [07:38:06.088] - queued futures: [n=4] FALSE, TRUE, TRUE, TRUE
  [07:38:06.088] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:06.088] resolve() on environment ... DONE
  [07:38:06.089] result() for ClusterFuture ...
  [07:38:06.089] - result already collected: FutureResult
  [07:38:06.089] result() for ClusterFuture ... done
  [07:38:06.090] result() for ClusterFuture ...
  [07:38:06.090] - result already collected: FutureResult
  [07:38:06.090] result() for ClusterFuture ... done
  [07:38:06.091] result() for ClusterFuture ...
  [07:38:06.091] - result already collected: FutureResult
  [07:38:06.091] result() for ClusterFuture ... done
  [07:38:06.092] result() for ClusterFuture ...
  [07:38:06.092] - result already collected: FutureResult
  [07:38:06.092] result() for ClusterFuture ... done
  [07:38:06.093] result() for ClusterFuture ...
  [07:38:06.093] - result already collected: FutureResult
  [07:38:06.093] result() for ClusterFuture ... done
  [07:38:06.094] result() for ClusterFuture ...
  [07:38:06.094] - result already collected: FutureResult
  [07:38:06.094] result() for ClusterFuture ... done
  <environment: 0x5576d4979040> 
  *** futures() - environment ... DONE
  Type of object: listenv
  Type of future: sequential
  [07:38:06.097] plan(): Setting new future strategy stack:
  [07:38:06.097] List of future strategies:
  [07:38:06.097] 1. sequential:
  [07:38:06.097]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.097]    - tweaked: FALSE
  [07:38:06.097]    - call: plan(strategy)
  [07:38:06.099] plan(): nbrOfWorkers() = 1
  Dimensions: NULL
  [07:38:06.100] getGlobalsAndPackages() ...
  [07:38:06.101] Searching for globals...
  [07:38:06.105] 
  [07:38:06.106] Searching for globals ... DONE
  [07:38:06.106] - globals: [0] <none>
  [07:38:06.106] getGlobalsAndPackages() ... DONE
  [07:38:06.109] Packages needed by the future expression (n = 0): <none>
  [07:38:06.110] Packages needed by future strategies (n = 0): <none>
  [07:38:06.116] {
  [07:38:06.116]     {
  [07:38:06.116]         ...future.startTime <- base::Sys.time()
  [07:38:06.116]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.116]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.116]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.116]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.116]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.116]         {
  [07:38:06.116]             {
  [07:38:06.116]                 base::local({
  [07:38:06.116]                   has_future <- base::requireNamespace("future", 
  [07:38:06.116]                     quietly = TRUE)
  [07:38:06.116]                   version <- if (has_future) 
  [07:38:06.116]                     utils::packageVersion("future")
  [07:38:06.116]                   else NULL
  [07:38:06.116]                   if (!has_future || version < "1.8.0") {
  [07:38:06.116]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.116]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.116]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.116]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.116]                         "release", "version")], collapse = " "), 
  [07:38:06.116]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.116]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.116]                       info)
  [07:38:06.116]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.116]                     if (!has_future) {
  [07:38:06.116]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.116]                         info)
  [07:38:06.116]                     }
  [07:38:06.116]                     else {
  [07:38:06.116]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.116]                         info, version)
  [07:38:06.116]                     }
  [07:38:06.116]                     base::stop(msg)
  [07:38:06.116]                   }
  [07:38:06.116]                 })
  [07:38:06.116]             }
  [07:38:06.116]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.116]         }
  [07:38:06.116]     }
  [07:38:06.116]     if (base::is.na(TRUE)) {
  [07:38:06.116]     }
  [07:38:06.116]     else {
  [07:38:06.116]         if (TRUE) {
  [07:38:06.116]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.116]                 open = "w")
  [07:38:06.116]         }
  [07:38:06.116]         else {
  [07:38:06.116]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.116]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.116]         }
  [07:38:06.116]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.116]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.116]             base::sink(type = "output", split = FALSE)
  [07:38:06.116]             base::close(...future.stdout)
  [07:38:06.116]         }, add = TRUE)
  [07:38:06.116]     }
  [07:38:06.116]     ...future.frame <- base::sys.nframe()
  [07:38:06.116]     ...future.conditions <- base::list()
  [07:38:06.116]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.116]     ...future.result <- base::tryCatch({
  [07:38:06.116]         base::withCallingHandlers({
  [07:38:06.116]             ...future.value <- base::withVisible(base::local(2))
  [07:38:06.116]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.116]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.116]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.116]                 version = "1.8")
  [07:38:06.116]         }, condition = base::local({
  [07:38:06.116]             c <- base::c
  [07:38:06.116]             inherits <- base::inherits
  [07:38:06.116]             invokeRestart <- base::invokeRestart
  [07:38:06.116]             length <- base::length
  [07:38:06.116]             list <- base::list
  [07:38:06.116]             seq.int <- base::seq.int
  [07:38:06.116]             signalCondition <- base::signalCondition
  [07:38:06.116]             sys.calls <- base::sys.calls
  [07:38:06.116]             Sys.time <- base::Sys.time
  [07:38:06.116]             `[[` <- base::`[[`
  [07:38:06.116]             `+` <- base::`+`
  [07:38:06.116]             `<<-` <- base::`<<-`
  [07:38:06.116]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.116]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.116]                   3L)]
  [07:38:06.116]             }
  [07:38:06.116]             function(cond) {
  [07:38:06.116]                 if (inherits(cond, "error")) {
  [07:38:06.116]                   sessionInformation <- function() {
  [07:38:06.116]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.116]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.116]                       search = base::search(), system = base::Sys.info())
  [07:38:06.116]                   }
  [07:38:06.116]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.116]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.116]                     cond$call), session = sessionInformation(), 
  [07:38:06.116]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.116]                   signalCondition(cond)
  [07:38:06.116]                 }
  [07:38:06.116]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.116]                 ))) {
  [07:38:06.116]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.116]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.116]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.116]                   if (!signal) {
  [07:38:06.116]                     muffleCondition <- function (cond) 
  [07:38:06.116]                     {
  [07:38:06.116]                       inherits <- base::inherits
  [07:38:06.116]                       invokeRestart <- base::invokeRestart
  [07:38:06.116]                       muffled <- FALSE
  [07:38:06.116]                       if (inherits(cond, "message")) {
  [07:38:06.116]                         invokeRestart("muffleMessage")
  [07:38:06.116]                         muffled <- TRUE
  [07:38:06.116]                       }
  [07:38:06.116]                       else if (inherits(cond, "warning")) {
  [07:38:06.116]                         invokeRestart("muffleWarning")
  [07:38:06.116]                         muffled <- TRUE
  [07:38:06.116]                       }
  [07:38:06.116]                       else if (inherits(cond, "condition")) {
  [07:38:06.116]                         computeRestarts <- base::computeRestarts
  [07:38:06.116]                         grepl <- base::grepl
  [07:38:06.116]                         is.null <- base::is.null
  [07:38:06.116]                         restarts <- computeRestarts(cond)
  [07:38:06.116]                         for (restart in restarts) {
  [07:38:06.116]                           name <- restart$name
  [07:38:06.116]                           if (is.null(name)) 
  [07:38:06.116]                             next
  [07:38:06.116]                           if (!grepl("^muffle", name)) 
  [07:38:06.116]                             next
  [07:38:06.116]                           invokeRestart(restart)
  [07:38:06.116]                           muffled <- TRUE
  [07:38:06.116]                           break
  [07:38:06.116]                         }
  [07:38:06.116]                       }
  [07:38:06.116]                       invisible(muffled)
  [07:38:06.116]                     }
  [07:38:06.116]                     muffleCondition(cond)
  [07:38:06.116]                   }
  [07:38:06.116]                 }
  [07:38:06.116]             }
  [07:38:06.116]         }))
  [07:38:06.116]     }, error = function(ex) {
  [07:38:06.116]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.116]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.116]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.116]     }, finally = {
  [07:38:06.116]         {
  [07:38:06.116]             NULL
  [07:38:06.116]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.116]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.116]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.116]                 label = NULL, ...) 
  [07:38:06.116]             {
  [07:38:06.116]                 if (substitute) 
  [07:38:06.116]                   expr <- substitute(expr)
  [07:38:06.116]                 local <- as.logical(local)
  [07:38:06.116]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.116]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.116]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.116]                   label = label, ...)
  [07:38:06.116]                 if (!future$lazy) 
  [07:38:06.116]                   future <- run(future)
  [07:38:06.116]                 invisible(future)
  [07:38:06.116]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.116]         }
  [07:38:06.116]         base::options(...future.oldOptions)
  [07:38:06.116]     })
  [07:38:06.116]     Sys.time
  [07:38:06.116]     if (base::is.na(TRUE)) {
  [07:38:06.116]     }
  [07:38:06.116]     else {
  [07:38:06.116]         base::sink(type = "output", split = FALSE)
  [07:38:06.116]         if (TRUE) {
  [07:38:06.116]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.116]         }
  [07:38:06.116]         else {
  [07:38:06.116]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.116]         }
  [07:38:06.116]         base::close(...future.stdout)
  [07:38:06.116]         ...future.stdout <- NULL
  [07:38:06.116]     }
  [07:38:06.116]     ...future.result$conditions <- ...future.conditions
  [07:38:06.116]     ...future.result
  [07:38:06.116] }
  [07:38:06.122] plan(): Setting new future strategy stack:
  [07:38:06.122] List of future strategies:
  [07:38:06.122] 1. sequential:
  [07:38:06.122]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.122]    - tweaked: FALSE
  [07:38:06.122]    - call: NULL
  [07:38:06.123] plan(): nbrOfWorkers() = 1
  [07:38:06.125] plan(): Setting new future strategy stack:
  [07:38:06.125] List of future strategies:
  [07:38:06.125] 1. sequential:
  [07:38:06.125]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.125]    - tweaked: FALSE
  [07:38:06.125]    - call: plan(strategy)
  [07:38:06.140] plan(): nbrOfWorkers() = 1
  [07:38:06.141] SequentialFuture started (and completed)
  [07:38:06.142] getGlobalsAndPackages() ...
  [07:38:06.142] Searching for globals...
  [07:38:06.143] 
  [07:38:06.143] Searching for globals ... DONE
  [07:38:06.144] - globals: [0] <none>
  [07:38:06.144] getGlobalsAndPackages() ... DONE
  [07:38:06.147] Packages needed by the future expression (n = 0): <none>
  [07:38:06.147] Packages needed by future strategies (n = 0): <none>
  [07:38:06.153] {
  [07:38:06.153]     {
  [07:38:06.153]         ...future.startTime <- base::Sys.time()
  [07:38:06.153]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.153]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.153]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.153]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.153]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.153]         {
  [07:38:06.153]             {
  [07:38:06.153]                 base::local({
  [07:38:06.153]                   has_future <- base::requireNamespace("future", 
  [07:38:06.153]                     quietly = TRUE)
  [07:38:06.153]                   version <- if (has_future) 
  [07:38:06.153]                     utils::packageVersion("future")
  [07:38:06.153]                   else NULL
  [07:38:06.153]                   if (!has_future || version < "1.8.0") {
  [07:38:06.153]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.153]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.153]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.153]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.153]                         "release", "version")], collapse = " "), 
  [07:38:06.153]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.153]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.153]                       info)
  [07:38:06.153]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.153]                     if (!has_future) {
  [07:38:06.153]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.153]                         info)
  [07:38:06.153]                     }
  [07:38:06.153]                     else {
  [07:38:06.153]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.153]                         info, version)
  [07:38:06.153]                     }
  [07:38:06.153]                     base::stop(msg)
  [07:38:06.153]                   }
  [07:38:06.153]                 })
  [07:38:06.153]             }
  [07:38:06.153]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.153]         }
  [07:38:06.153]     }
  [07:38:06.153]     if (base::is.na(TRUE)) {
  [07:38:06.153]     }
  [07:38:06.153]     else {
  [07:38:06.153]         if (TRUE) {
  [07:38:06.153]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.153]                 open = "w")
  [07:38:06.153]         }
  [07:38:06.153]         else {
  [07:38:06.153]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.153]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.153]         }
  [07:38:06.153]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.153]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.153]             base::sink(type = "output", split = FALSE)
  [07:38:06.153]             base::close(...future.stdout)
  [07:38:06.153]         }, add = TRUE)
  [07:38:06.153]     }
  [07:38:06.153]     ...future.frame <- base::sys.nframe()
  [07:38:06.153]     ...future.conditions <- base::list()
  [07:38:06.153]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.153]     ...future.result <- base::tryCatch({
  [07:38:06.153]         base::withCallingHandlers({
  [07:38:06.153]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:06.153]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.153]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.153]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.153]                 version = "1.8")
  [07:38:06.153]         }, condition = base::local({
  [07:38:06.153]             c <- base::c
  [07:38:06.153]             inherits <- base::inherits
  [07:38:06.153]             invokeRestart <- base::invokeRestart
  [07:38:06.153]             length <- base::length
  [07:38:06.153]             list <- base::list
  [07:38:06.153]             seq.int <- base::seq.int
  [07:38:06.153]             signalCondition <- base::signalCondition
  [07:38:06.153]             sys.calls <- base::sys.calls
  [07:38:06.153]             Sys.time <- base::Sys.time
  [07:38:06.153]             `[[` <- base::`[[`
  [07:38:06.153]             `+` <- base::`+`
  [07:38:06.153]             `<<-` <- base::`<<-`
  [07:38:06.153]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.153]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.153]                   3L)]
  [07:38:06.153]             }
  [07:38:06.153]             function(cond) {
  [07:38:06.153]                 if (inherits(cond, "error")) {
  [07:38:06.153]                   sessionInformation <- function() {
  [07:38:06.153]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.153]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.153]                       search = base::search(), system = base::Sys.info())
  [07:38:06.153]                   }
  [07:38:06.153]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.153]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.153]                     cond$call), session = sessionInformation(), 
  [07:38:06.153]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.153]                   signalCondition(cond)
  [07:38:06.153]                 }
  [07:38:06.153]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.153]                 ))) {
  [07:38:06.153]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.153]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.153]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.153]                   if (!signal) {
  [07:38:06.153]                     muffleCondition <- function (cond) 
  [07:38:06.153]                     {
  [07:38:06.153]                       inherits <- base::inherits
  [07:38:06.153]                       invokeRestart <- base::invokeRestart
  [07:38:06.153]                       muffled <- FALSE
  [07:38:06.153]                       if (inherits(cond, "message")) {
  [07:38:06.153]                         invokeRestart("muffleMessage")
  [07:38:06.153]                         muffled <- TRUE
  [07:38:06.153]                       }
  [07:38:06.153]                       else if (inherits(cond, "warning")) {
  [07:38:06.153]                         invokeRestart("muffleWarning")
  [07:38:06.153]                         muffled <- TRUE
  [07:38:06.153]                       }
  [07:38:06.153]                       else if (inherits(cond, "condition")) {
  [07:38:06.153]                         computeRestarts <- base::computeRestarts
  [07:38:06.153]                         grepl <- base::grepl
  [07:38:06.153]                         is.null <- base::is.null
  [07:38:06.153]                         restarts <- computeRestarts(cond)
  [07:38:06.153]                         for (restart in restarts) {
  [07:38:06.153]                           name <- restart$name
  [07:38:06.153]                           if (is.null(name)) 
  [07:38:06.153]                             next
  [07:38:06.153]                           if (!grepl("^muffle", name)) 
  [07:38:06.153]                             next
  [07:38:06.153]                           invokeRestart(restart)
  [07:38:06.153]                           muffled <- TRUE
  [07:38:06.153]                           break
  [07:38:06.153]                         }
  [07:38:06.153]                       }
  [07:38:06.153]                       invisible(muffled)
  [07:38:06.153]                     }
  [07:38:06.153]                     muffleCondition(cond)
  [07:38:06.153]                   }
  [07:38:06.153]                 }
  [07:38:06.153]             }
  [07:38:06.153]         }))
  [07:38:06.153]     }, error = function(ex) {
  [07:38:06.153]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.153]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.153]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.153]     }, finally = {
  [07:38:06.153]         {
  [07:38:06.153]             NULL
  [07:38:06.153]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.153]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.153]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.153]                 label = NULL, ...) 
  [07:38:06.153]             {
  [07:38:06.153]                 if (substitute) 
  [07:38:06.153]                   expr <- substitute(expr)
  [07:38:06.153]                 local <- as.logical(local)
  [07:38:06.153]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.153]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.153]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.153]                   label = label, ...)
  [07:38:06.153]                 if (!future$lazy) 
  [07:38:06.153]                   future <- run(future)
  [07:38:06.153]                 invisible(future)
  [07:38:06.153]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.153]         }
  [07:38:06.153]         base::options(...future.oldOptions)
  [07:38:06.153]     })
  [07:38:06.153]     Sys.time
  [07:38:06.153]     if (base::is.na(TRUE)) {
  [07:38:06.153]     }
  [07:38:06.153]     else {
  [07:38:06.153]         base::sink(type = "output", split = FALSE)
  [07:38:06.153]         if (TRUE) {
  [07:38:06.153]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.153]         }
  [07:38:06.153]         else {
  [07:38:06.153]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.153]         }
  [07:38:06.153]         base::close(...future.stdout)
  [07:38:06.153]         ...future.stdout <- NULL
  [07:38:06.153]     }
  [07:38:06.153]     ...future.result$conditions <- ...future.conditions
  [07:38:06.153]     ...future.result
  [07:38:06.153] }
  [07:38:06.161] plan(): Setting new future strategy stack:
  [07:38:06.161] List of future strategies:
  [07:38:06.161] 1. sequential:
  [07:38:06.161]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.161]    - tweaked: FALSE
  [07:38:06.161]    - call: NULL
  [07:38:06.162] plan(): nbrOfWorkers() = 1
  [07:38:06.164] plan(): Setting new future strategy stack:
  [07:38:06.164] List of future strategies:
  [07:38:06.164] 1. sequential:
  [07:38:06.164]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.164]    - tweaked: FALSE
  [07:38:06.164]    - call: plan(strategy)
  [07:38:06.165] plan(): nbrOfWorkers() = 1
  [07:38:06.166] SequentialFuture started (and completed)
  [07:38:06.168] getGlobalsAndPackages() ...
  [07:38:06.168] Searching for globals...
  [07:38:06.170] - globals found: [1] '{'
  [07:38:06.170] Searching for globals ... DONE
  [07:38:06.171] Resolving globals: FALSE
  [07:38:06.171] 
  [07:38:06.172] 
  [07:38:06.172] getGlobalsAndPackages() ... DONE
  [07:38:06.175] Packages needed by the future expression (n = 0): <none>
  [07:38:06.175] Packages needed by future strategies (n = 0): <none>
  [07:38:06.181] {
  [07:38:06.181]     {
  [07:38:06.181]         ...future.startTime <- base::Sys.time()
  [07:38:06.181]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.181]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.181]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.181]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.181]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.181]         {
  [07:38:06.181]             {
  [07:38:06.181]                 base::local({
  [07:38:06.181]                   has_future <- base::requireNamespace("future", 
  [07:38:06.181]                     quietly = TRUE)
  [07:38:06.181]                   version <- if (has_future) 
  [07:38:06.181]                     utils::packageVersion("future")
  [07:38:06.181]                   else NULL
  [07:38:06.181]                   if (!has_future || version < "1.8.0") {
  [07:38:06.181]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.181]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.181]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.181]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.181]                         "release", "version")], collapse = " "), 
  [07:38:06.181]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.181]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.181]                       info)
  [07:38:06.181]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.181]                     if (!has_future) {
  [07:38:06.181]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.181]                         info)
  [07:38:06.181]                     }
  [07:38:06.181]                     else {
  [07:38:06.181]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.181]                         info, version)
  [07:38:06.181]                     }
  [07:38:06.181]                     base::stop(msg)
  [07:38:06.181]                   }
  [07:38:06.181]                 })
  [07:38:06.181]             }
  [07:38:06.181]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.181]         }
  [07:38:06.181]     }
  [07:38:06.181]     if (base::is.na(TRUE)) {
  [07:38:06.181]     }
  [07:38:06.181]     else {
  [07:38:06.181]         if (TRUE) {
  [07:38:06.181]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.181]                 open = "w")
  [07:38:06.181]         }
  [07:38:06.181]         else {
  [07:38:06.181]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.181]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.181]         }
  [07:38:06.181]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.181]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.181]             base::sink(type = "output", split = FALSE)
  [07:38:06.181]             base::close(...future.stdout)
  [07:38:06.181]         }, add = TRUE)
  [07:38:06.181]     }
  [07:38:06.181]     ...future.frame <- base::sys.nframe()
  [07:38:06.181]     ...future.conditions <- base::list()
  [07:38:06.181]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.181]     ...future.result <- base::tryCatch({
  [07:38:06.181]         base::withCallingHandlers({
  [07:38:06.181]             ...future.value <- base::withVisible(base::local({
  [07:38:06.181]                 4
  [07:38:06.181]             }))
  [07:38:06.181]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.181]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.181]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.181]                 version = "1.8")
  [07:38:06.181]         }, condition = base::local({
  [07:38:06.181]             c <- base::c
  [07:38:06.181]             inherits <- base::inherits
  [07:38:06.181]             invokeRestart <- base::invokeRestart
  [07:38:06.181]             length <- base::length
  [07:38:06.181]             list <- base::list
  [07:38:06.181]             seq.int <- base::seq.int
  [07:38:06.181]             signalCondition <- base::signalCondition
  [07:38:06.181]             sys.calls <- base::sys.calls
  [07:38:06.181]             Sys.time <- base::Sys.time
  [07:38:06.181]             `[[` <- base::`[[`
  [07:38:06.181]             `+` <- base::`+`
  [07:38:06.181]             `<<-` <- base::`<<-`
  [07:38:06.181]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.181]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.181]                   3L)]
  [07:38:06.181]             }
  [07:38:06.181]             function(cond) {
  [07:38:06.181]                 if (inherits(cond, "error")) {
  [07:38:06.181]                   sessionInformation <- function() {
  [07:38:06.181]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.181]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.181]                       search = base::search(), system = base::Sys.info())
  [07:38:06.181]                   }
  [07:38:06.181]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.181]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.181]                     cond$call), session = sessionInformation(), 
  [07:38:06.181]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.181]                   signalCondition(cond)
  [07:38:06.181]                 }
  [07:38:06.181]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.181]                 ))) {
  [07:38:06.181]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.181]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.181]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.181]                   if (!signal) {
  [07:38:06.181]                     muffleCondition <- function (cond) 
  [07:38:06.181]                     {
  [07:38:06.181]                       inherits <- base::inherits
  [07:38:06.181]                       invokeRestart <- base::invokeRestart
  [07:38:06.181]                       muffled <- FALSE
  [07:38:06.181]                       if (inherits(cond, "message")) {
  [07:38:06.181]                         invokeRestart("muffleMessage")
  [07:38:06.181]                         muffled <- TRUE
  [07:38:06.181]                       }
  [07:38:06.181]                       else if (inherits(cond, "warning")) {
  [07:38:06.181]                         invokeRestart("muffleWarning")
  [07:38:06.181]                         muffled <- TRUE
  [07:38:06.181]                       }
  [07:38:06.181]                       else if (inherits(cond, "condition")) {
  [07:38:06.181]                         computeRestarts <- base::computeRestarts
  [07:38:06.181]                         grepl <- base::grepl
  [07:38:06.181]                         is.null <- base::is.null
  [07:38:06.181]                         restarts <- computeRestarts(cond)
  [07:38:06.181]                         for (restart in restarts) {
  [07:38:06.181]                           name <- restart$name
  [07:38:06.181]                           if (is.null(name)) 
  [07:38:06.181]                             next
  [07:38:06.181]                           if (!grepl("^muffle", name)) 
  [07:38:06.181]                             next
  [07:38:06.181]                           invokeRestart(restart)
  [07:38:06.181]                           muffled <- TRUE
  [07:38:06.181]                           break
  [07:38:06.181]                         }
  [07:38:06.181]                       }
  [07:38:06.181]                       invisible(muffled)
  [07:38:06.181]                     }
  [07:38:06.181]                     muffleCondition(cond)
  [07:38:06.181]                   }
  [07:38:06.181]                 }
  [07:38:06.181]             }
  [07:38:06.181]         }))
  [07:38:06.181]     }, error = function(ex) {
  [07:38:06.181]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.181]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.181]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.181]     }, finally = {
  [07:38:06.181]         {
  [07:38:06.181]             NULL
  [07:38:06.181]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.181]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.181]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.181]                 label = NULL, ...) 
  [07:38:06.181]             {
  [07:38:06.181]                 if (substitute) 
  [07:38:06.181]                   expr <- substitute(expr)
  [07:38:06.181]                 local <- as.logical(local)
  [07:38:06.181]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.181]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.181]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.181]                   label = label, ...)
  [07:38:06.181]                 if (!future$lazy) 
  [07:38:06.181]                   future <- run(future)
  [07:38:06.181]                 invisible(future)
  [07:38:06.181]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.181]         }
  [07:38:06.181]         base::options(...future.oldOptions)
  [07:38:06.181]     })
  [07:38:06.181]     Sys.time
  [07:38:06.181]     if (base::is.na(TRUE)) {
  [07:38:06.181]     }
  [07:38:06.181]     else {
  [07:38:06.181]         base::sink(type = "output", split = FALSE)
  [07:38:06.181]         if (TRUE) {
  [07:38:06.181]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.181]         }
  [07:38:06.181]         else {
  [07:38:06.181]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.181]         }
  [07:38:06.181]         base::close(...future.stdout)
  [07:38:06.181]         ...future.stdout <- NULL
  [07:38:06.181]     }
  [07:38:06.181]     ...future.result$conditions <- ...future.conditions
  [07:38:06.181]     ...future.result
  [07:38:06.181] }
  [07:38:06.187] plan(): Setting new future strategy stack:
  [07:38:06.188] List of future strategies:
  [07:38:06.188] 1. sequential:
  [07:38:06.188]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.188]    - tweaked: FALSE
  [07:38:06.188]    - call: NULL
  [07:38:06.189] plan(): nbrOfWorkers() = 1
  [07:38:06.190] plan(): Setting new future strategy stack:
  [07:38:06.191] List of future strategies:
  [07:38:06.191] 1. sequential:
  [07:38:06.191]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.191]    - tweaked: FALSE
  [07:38:06.191]    - call: plan(strategy)
  [07:38:06.192] plan(): nbrOfWorkers() = 1
  [07:38:06.197] SequentialFuture started (and completed)
  Classes 'listenv', 'environment' <environment: 0x5576d63fd710> 
  Classes 'listenv', 'environment' <environment: 0x5576d4830810> 
   Named logi [1:6] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "names")= chr [1:6] "a" "b" "c" "d" ...
  [07:38:06.213] resolve() on list environment ...
  [07:38:06.214]  recursive: 0
  [07:38:06.217]  length: 6
  [07:38:06.217]  elements: 'a', 'b', 'c', 'd', '', ''
  [07:38:06.218] signalConditionsASAP(numeric, pos=1) ...
  [07:38:06.218] - nx: 6
  [07:38:06.218] - relay: TRUE
  [07:38:06.219] - stdout: TRUE
  [07:38:06.219] - signal: TRUE
  [07:38:06.219] - resignal: FALSE
  [07:38:06.220] - force: TRUE
  [07:38:06.220] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.220] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.221]  - until=2
  [07:38:06.221]  - relaying element #2
  [07:38:06.221] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.222] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.222] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:06.222]  length: 5 (resolved future 1)
  [07:38:06.223] Future #2
  [07:38:06.223] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:06.224] - nx: 6
  [07:38:06.224] - relay: TRUE
  [07:38:06.224] - stdout: TRUE
  [07:38:06.225] - signal: TRUE
  [07:38:06.225] - resignal: FALSE
  [07:38:06.225] - force: TRUE
  [07:38:06.226] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.226] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.226]  - until=2
  [07:38:06.227]  - relaying element #2
  [07:38:06.227] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.228] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.228] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:06.228]  length: 4 (resolved future 2)
  [07:38:06.229] Future #3
  [07:38:06.229] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:06.230] - nx: 6
  [07:38:06.230] - relay: TRUE
  [07:38:06.230] - stdout: TRUE
  [07:38:06.232] - signal: TRUE
  [07:38:06.232] - resignal: FALSE
  [07:38:06.232] - force: TRUE
  [07:38:06.232] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.233] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.233]  - until=3
  [07:38:06.234]  - relaying element #3
  [07:38:06.234] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.234] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.235] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:06.235]  length: 3 (resolved future 3)
  [07:38:06.236] Future #4
  [07:38:06.236] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:06.236] - nx: 6
  [07:38:06.237] - relay: TRUE
  [07:38:06.237] - stdout: TRUE
  [07:38:06.237] - signal: TRUE
  [07:38:06.238] - resignal: FALSE
  [07:38:06.238] - force: TRUE
  [07:38:06.238] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.238] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.239]  - until=4
  [07:38:06.239]  - relaying element #4
  [07:38:06.240] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.240] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.240] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:06.241]  length: 2 (resolved future 4)
  [07:38:06.241] signalConditionsASAP(NULL, pos=5) ...
  [07:38:06.241] - nx: 6
  [07:38:06.242] - relay: TRUE
  [07:38:06.242] - stdout: TRUE
  [07:38:06.242] - signal: TRUE
  [07:38:06.243] - resignal: FALSE
  [07:38:06.243] - force: TRUE
  [07:38:06.243] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.244] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.244]  - until=6
  [07:38:06.244]  - relaying element #6
  [07:38:06.245] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:06.245] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.245] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:06.246]  length: 1 (resolved future 5)
  [07:38:06.246] signalConditionsASAP(numeric, pos=6) ...
  [07:38:06.246] - nx: 6
  [07:38:06.247] - relay: TRUE
  [07:38:06.247] - stdout: TRUE
  [07:38:06.247] - signal: TRUE
  [07:38:06.248] - resignal: FALSE
  [07:38:06.248] - force: TRUE
  [07:38:06.248] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:06.249] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.249]  - until=6
  [07:38:06.249] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.250] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.250] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:06.250]  length: 0 (resolved future 6)
  [07:38:06.251] Relaying remaining futures
  [07:38:06.251] signalConditionsASAP(NULL, pos=0) ...
  [07:38:06.251] - nx: 6
  [07:38:06.252] - relay: TRUE
  [07:38:06.252] - stdout: TRUE
  [07:38:06.252] - signal: TRUE
  [07:38:06.252] - resignal: FALSE
  [07:38:06.253] - force: TRUE
  [07:38:06.253] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.253] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
   - flush all
  [07:38:06.254] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.254] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.255] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:06.255] resolve() on list environment ... DONE
  Classes 'listenv', 'environment' <environment: 0x5576d47e0070> 
  Dimensions: c(1, 6)
  [07:38:06.257] getGlobalsAndPackages() ...
  [07:38:06.258] Searching for globals...
  [07:38:06.259] 
  [07:38:06.259] Searching for globals ... DONE
  [07:38:06.259] - globals: [0] <none>
  [07:38:06.260] getGlobalsAndPackages() ... DONE
  [07:38:06.262] Packages needed by the future expression (n = 0): <none>
  [07:38:06.262] Packages needed by future strategies (n = 0): <none>
  [07:38:06.272] {
  [07:38:06.272]     {
  [07:38:06.272]         ...future.startTime <- base::Sys.time()
  [07:38:06.272]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.272]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.272]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.272]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.272]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.272]         {
  [07:38:06.272]             {
  [07:38:06.272]                 base::local({
  [07:38:06.272]                   has_future <- base::requireNamespace("future", 
  [07:38:06.272]                     quietly = TRUE)
  [07:38:06.272]                   version <- if (has_future) 
  [07:38:06.272]                     utils::packageVersion("future")
  [07:38:06.272]                   else NULL
  [07:38:06.272]                   if (!has_future || version < "1.8.0") {
  [07:38:06.272]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.272]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.272]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.272]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.272]                         "release", "version")], collapse = " "), 
  [07:38:06.272]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.272]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.272]                       info)
  [07:38:06.272]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.272]                     if (!has_future) {
  [07:38:06.272]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.272]                         info)
  [07:38:06.272]                     }
  [07:38:06.272]                     else {
  [07:38:06.272]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.272]                         info, version)
  [07:38:06.272]                     }
  [07:38:06.272]                     base::stop(msg)
  [07:38:06.272]                   }
  [07:38:06.272]                 })
  [07:38:06.272]             }
  [07:38:06.272]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.272]         }
  [07:38:06.272]     }
  [07:38:06.272]     if (base::is.na(TRUE)) {
  [07:38:06.272]     }
  [07:38:06.272]     else {
  [07:38:06.272]         if (TRUE) {
  [07:38:06.272]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.272]                 open = "w")
  [07:38:06.272]         }
  [07:38:06.272]         else {
  [07:38:06.272]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.272]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.272]         }
  [07:38:06.272]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.272]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.272]             base::sink(type = "output", split = FALSE)
  [07:38:06.272]             base::close(...future.stdout)
  [07:38:06.272]         }, add = TRUE)
  [07:38:06.272]     }
  [07:38:06.272]     ...future.frame <- base::sys.nframe()
  [07:38:06.272]     ...future.conditions <- base::list()
  [07:38:06.272]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.272]     ...future.result <- base::tryCatch({
  [07:38:06.272]         base::withCallingHandlers({
  [07:38:06.272]             ...future.value <- base::withVisible(base::local(2))
  [07:38:06.272]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.272]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.272]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.272]                 version = "1.8")
  [07:38:06.272]         }, condition = base::local({
  [07:38:06.272]             c <- base::c
  [07:38:06.272]             inherits <- base::inherits
  [07:38:06.272]             invokeRestart <- base::invokeRestart
  [07:38:06.272]             length <- base::length
  [07:38:06.272]             list <- base::list
  [07:38:06.272]             seq.int <- base::seq.int
  [07:38:06.272]             signalCondition <- base::signalCondition
  [07:38:06.272]             sys.calls <- base::sys.calls
  [07:38:06.272]             Sys.time <- base::Sys.time
  [07:38:06.272]             `[[` <- base::`[[`
  [07:38:06.272]             `+` <- base::`+`
  [07:38:06.272]             `<<-` <- base::`<<-`
  [07:38:06.272]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.272]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.272]                   3L)]
  [07:38:06.272]             }
  [07:38:06.272]             function(cond) {
  [07:38:06.272]                 if (inherits(cond, "error")) {
  [07:38:06.272]                   sessionInformation <- function() {
  [07:38:06.272]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.272]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.272]                       search = base::search(), system = base::Sys.info())
  [07:38:06.272]                   }
  [07:38:06.272]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.272]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.272]                     cond$call), session = sessionInformation(), 
  [07:38:06.272]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.272]                   signalCondition(cond)
  [07:38:06.272]                 }
  [07:38:06.272]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.272]                 ))) {
  [07:38:06.272]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.272]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.272]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.272]                   if (!signal) {
  [07:38:06.272]                     muffleCondition <- function (cond) 
  [07:38:06.272]                     {
  [07:38:06.272]                       inherits <- base::inherits
  [07:38:06.272]                       invokeRestart <- base::invokeRestart
  [07:38:06.272]                       muffled <- FALSE
  [07:38:06.272]                       if (inherits(cond, "message")) {
  [07:38:06.272]                         invokeRestart("muffleMessage")
  [07:38:06.272]                         muffled <- TRUE
  [07:38:06.272]                       }
  [07:38:06.272]                       else if (inherits(cond, "warning")) {
  [07:38:06.272]                         invokeRestart("muffleWarning")
  [07:38:06.272]                         muffled <- TRUE
  [07:38:06.272]                       }
  [07:38:06.272]                       else if (inherits(cond, "condition")) {
  [07:38:06.272]                         computeRestarts <- base::computeRestarts
  [07:38:06.272]                         grepl <- base::grepl
  [07:38:06.272]                         is.null <- base::is.null
  [07:38:06.272]                         restarts <- computeRestarts(cond)
  [07:38:06.272]                         for (restart in restarts) {
  [07:38:06.272]                           name <- restart$name
  [07:38:06.272]                           if (is.null(name)) 
  [07:38:06.272]                             next
  [07:38:06.272]                           if (!grepl("^muffle", name)) 
  [07:38:06.272]                             next
  [07:38:06.272]                           invokeRestart(restart)
  [07:38:06.272]                           muffled <- TRUE
  [07:38:06.272]                           break
  [07:38:06.272]                         }
  [07:38:06.272]                       }
  [07:38:06.272]                       invisible(muffled)
  [07:38:06.272]                     }
  [07:38:06.272]                     muffleCondition(cond)
  [07:38:06.272]                   }
  [07:38:06.272]                 }
  [07:38:06.272]             }
  [07:38:06.272]         }))
  [07:38:06.272]     }, error = function(ex) {
  [07:38:06.272]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.272]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.272]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.272]     }, finally = {
  [07:38:06.272]         {
  [07:38:06.272]             NULL
  [07:38:06.272]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.272]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.272]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.272]                 label = NULL, ...) 
  [07:38:06.272]             {
  [07:38:06.272]                 if (substitute) 
  [07:38:06.272]                   expr <- substitute(expr)
  [07:38:06.272]                 local <- as.logical(local)
  [07:38:06.272]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.272]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.272]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.272]                   label = label, ...)
  [07:38:06.272]                 if (!future$lazy) 
  [07:38:06.272]                   future <- run(future)
  [07:38:06.272]                 invisible(future)
  [07:38:06.272]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.272]         }
  [07:38:06.272]         base::options(...future.oldOptions)
  [07:38:06.272]     })
  [07:38:06.272]     Sys.time
  [07:38:06.272]     if (base::is.na(TRUE)) {
  [07:38:06.272]     }
  [07:38:06.272]     else {
  [07:38:06.272]         base::sink(type = "output", split = FALSE)
  [07:38:06.272]         if (TRUE) {
  [07:38:06.272]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.272]         }
  [07:38:06.272]         else {
  [07:38:06.272]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.272]         }
  [07:38:06.272]         base::close(...future.stdout)
  [07:38:06.272]         ...future.stdout <- NULL
  [07:38:06.272]     }
  [07:38:06.272]     ...future.result$conditions <- ...future.conditions
  [07:38:06.272]     ...future.result
  [07:38:06.272] }
  [07:38:06.278] plan(): Setting new future strategy stack:
  [07:38:06.279] List of future strategies:
  [07:38:06.279] 1. sequential:
  [07:38:06.279]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.279]    - tweaked: FALSE
  [07:38:06.279]    - call: NULL
  [07:38:06.280] plan(): nbrOfWorkers() = 1
  [07:38:06.281] plan(): Setting new future strategy stack:
  [07:38:06.282] List of future strategies:
  [07:38:06.282] 1. sequential:
  [07:38:06.282]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.282]    - tweaked: FALSE
  [07:38:06.282]    - call: plan(strategy)
  [07:38:06.283] plan(): nbrOfWorkers() = 1
  [07:38:06.283] SequentialFuture started (and completed)
  [07:38:06.284] getGlobalsAndPackages() ...
  [07:38:06.284] Searching for globals...
  [07:38:06.285] 
  [07:38:06.286] Searching for globals ... DONE
  [07:38:06.286] - globals: [0] <none>
  [07:38:06.286] getGlobalsAndPackages() ... DONE
  [07:38:06.289] Packages needed by the future expression (n = 0): <none>
  [07:38:06.289] Packages needed by future strategies (n = 0): <none>
  [07:38:06.295] {
  [07:38:06.295]     {
  [07:38:06.295]         ...future.startTime <- base::Sys.time()
  [07:38:06.295]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.295]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.295]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.295]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.295]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.295]         {
  [07:38:06.295]             {
  [07:38:06.295]                 base::local({
  [07:38:06.295]                   has_future <- base::requireNamespace("future", 
  [07:38:06.295]                     quietly = TRUE)
  [07:38:06.295]                   version <- if (has_future) 
  [07:38:06.295]                     utils::packageVersion("future")
  [07:38:06.295]                   else NULL
  [07:38:06.295]                   if (!has_future || version < "1.8.0") {
  [07:38:06.295]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.295]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.295]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.295]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.295]                         "release", "version")], collapse = " "), 
  [07:38:06.295]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.295]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.295]                       info)
  [07:38:06.295]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.295]                     if (!has_future) {
  [07:38:06.295]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.295]                         info)
  [07:38:06.295]                     }
  [07:38:06.295]                     else {
  [07:38:06.295]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.295]                         info, version)
  [07:38:06.295]                     }
  [07:38:06.295]                     base::stop(msg)
  [07:38:06.295]                   }
  [07:38:06.295]                 })
  [07:38:06.295]             }
  [07:38:06.295]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.295]         }
  [07:38:06.295]     }
  [07:38:06.295]     if (base::is.na(TRUE)) {
  [07:38:06.295]     }
  [07:38:06.295]     else {
  [07:38:06.295]         if (TRUE) {
  [07:38:06.295]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.295]                 open = "w")
  [07:38:06.295]         }
  [07:38:06.295]         else {
  [07:38:06.295]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.295]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.295]         }
  [07:38:06.295]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.295]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.295]             base::sink(type = "output", split = FALSE)
  [07:38:06.295]             base::close(...future.stdout)
  [07:38:06.295]         }, add = TRUE)
  [07:38:06.295]     }
  [07:38:06.295]     ...future.frame <- base::sys.nframe()
  [07:38:06.295]     ...future.conditions <- base::list()
  [07:38:06.295]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.295]     ...future.result <- base::tryCatch({
  [07:38:06.295]         base::withCallingHandlers({
  [07:38:06.295]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:06.295]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.295]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.295]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.295]                 version = "1.8")
  [07:38:06.295]         }, condition = base::local({
  [07:38:06.295]             c <- base::c
  [07:38:06.295]             inherits <- base::inherits
  [07:38:06.295]             invokeRestart <- base::invokeRestart
  [07:38:06.295]             length <- base::length
  [07:38:06.295]             list <- base::list
  [07:38:06.295]             seq.int <- base::seq.int
  [07:38:06.295]             signalCondition <- base::signalCondition
  [07:38:06.295]             sys.calls <- base::sys.calls
  [07:38:06.295]             Sys.time <- base::Sys.time
  [07:38:06.295]             `[[` <- base::`[[`
  [07:38:06.295]             `+` <- base::`+`
  [07:38:06.295]             `<<-` <- base::`<<-`
  [07:38:06.295]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.295]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.295]                   3L)]
  [07:38:06.295]             }
  [07:38:06.295]             function(cond) {
  [07:38:06.295]                 if (inherits(cond, "error")) {
  [07:38:06.295]                   sessionInformation <- function() {
  [07:38:06.295]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.295]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.295]                       search = base::search(), system = base::Sys.info())
  [07:38:06.295]                   }
  [07:38:06.295]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.295]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.295]                     cond$call), session = sessionInformation(), 
  [07:38:06.295]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.295]                   signalCondition(cond)
  [07:38:06.295]                 }
  [07:38:06.295]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.295]                 ))) {
  [07:38:06.295]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.295]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.295]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.295]                   if (!signal) {
  [07:38:06.295]                     muffleCondition <- function (cond) 
  [07:38:06.295]                     {
  [07:38:06.295]                       inherits <- base::inherits
  [07:38:06.295]                       invokeRestart <- base::invokeRestart
  [07:38:06.295]                       muffled <- FALSE
  [07:38:06.295]                       if (inherits(cond, "message")) {
  [07:38:06.295]                         invokeRestart("muffleMessage")
  [07:38:06.295]                         muffled <- TRUE
  [07:38:06.295]                       }
  [07:38:06.295]                       else if (inherits(cond, "warning")) {
  [07:38:06.295]                         invokeRestart("muffleWarning")
  [07:38:06.295]                         muffled <- TRUE
  [07:38:06.295]                       }
  [07:38:06.295]                       else if (inherits(cond, "condition")) {
  [07:38:06.295]                         computeRestarts <- base::computeRestarts
  [07:38:06.295]                         grepl <- base::grepl
  [07:38:06.295]                         is.null <- base::is.null
  [07:38:06.295]                         restarts <- computeRestarts(cond)
  [07:38:06.295]                         for (restart in restarts) {
  [07:38:06.295]                           name <- restart$name
  [07:38:06.295]                           if (is.null(name)) 
  [07:38:06.295]                             next
  [07:38:06.295]                           if (!grepl("^muffle", name)) 
  [07:38:06.295]                             next
  [07:38:06.295]                           invokeRestart(restart)
  [07:38:06.295]                           muffled <- TRUE
  [07:38:06.295]                           break
  [07:38:06.295]                         }
  [07:38:06.295]                       }
  [07:38:06.295]                       invisible(muffled)
  [07:38:06.295]                     }
  [07:38:06.295]                     muffleCondition(cond)
  [07:38:06.295]                   }
  [07:38:06.295]                 }
  [07:38:06.295]             }
  [07:38:06.295]         }))
  [07:38:06.295]     }, error = function(ex) {
  [07:38:06.295]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.295]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.295]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.295]     }, finally = {
  [07:38:06.295]         {
  [07:38:06.295]             NULL
  [07:38:06.295]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.295]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.295]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.295]                 label = NULL, ...) 
  [07:38:06.295]             {
  [07:38:06.295]                 if (substitute) 
  [07:38:06.295]                   expr <- substitute(expr)
  [07:38:06.295]                 local <- as.logical(local)
  [07:38:06.295]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.295]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.295]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.295]                   label = label, ...)
  [07:38:06.295]                 if (!future$lazy) 
  [07:38:06.295]                   future <- run(future)
  [07:38:06.295]                 invisible(future)
  [07:38:06.295]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.295]         }
  [07:38:06.295]         base::options(...future.oldOptions)
  [07:38:06.295]     })
  [07:38:06.295]     Sys.time
  [07:38:06.295]     if (base::is.na(TRUE)) {
  [07:38:06.295]     }
  [07:38:06.295]     else {
  [07:38:06.295]         base::sink(type = "output", split = FALSE)
  [07:38:06.295]         if (TRUE) {
  [07:38:06.295]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.295]         }
  [07:38:06.295]         else {
  [07:38:06.295]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.295]         }
  [07:38:06.295]         base::close(...future.stdout)
  [07:38:06.295]         ...future.stdout <- NULL
  [07:38:06.295]     }
  [07:38:06.295]     ...future.result$conditions <- ...future.conditions
  [07:38:06.295]     ...future.result
  [07:38:06.295] }
  [07:38:06.301] plan(): Setting new future strategy stack:
  [07:38:06.301] List of future strategies:
  [07:38:06.301] 1. sequential:
  [07:38:06.301]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.301]    - tweaked: FALSE
  [07:38:06.301]    - call: NULL
  [07:38:06.303] plan(): nbrOfWorkers() = 1
  [07:38:06.304] plan(): Setting new future strategy stack:
  [07:38:06.304] List of future strategies:
  [07:38:06.304] 1. sequential:
  [07:38:06.304]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.304]    - tweaked: FALSE
  [07:38:06.304]    - call: plan(strategy)
  [07:38:06.306] plan(): nbrOfWorkers() = 1
  [07:38:06.306] SequentialFuture started (and completed)
  [07:38:06.308] getGlobalsAndPackages() ...
  [07:38:06.308] Searching for globals...
  [07:38:06.310] - globals found: [1] '{'
  [07:38:06.310] Searching for globals ... DONE
  [07:38:06.311] Resolving globals: FALSE
  [07:38:06.312] 
  [07:38:06.312] 
  [07:38:06.312] getGlobalsAndPackages() ... DONE
  [07:38:06.315] Packages needed by the future expression (n = 0): <none>
  [07:38:06.315] Packages needed by future strategies (n = 0): <none>
  [07:38:06.322] {
  [07:38:06.322]     {
  [07:38:06.322]         ...future.startTime <- base::Sys.time()
  [07:38:06.322]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.322]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.322]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.322]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.322]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.322]         {
  [07:38:06.322]             {
  [07:38:06.322]                 base::local({
  [07:38:06.322]                   has_future <- base::requireNamespace("future", 
  [07:38:06.322]                     quietly = TRUE)
  [07:38:06.322]                   version <- if (has_future) 
  [07:38:06.322]                     utils::packageVersion("future")
  [07:38:06.322]                   else NULL
  [07:38:06.322]                   if (!has_future || version < "1.8.0") {
  [07:38:06.322]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.322]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.322]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.322]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.322]                         "release", "version")], collapse = " "), 
  [07:38:06.322]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.322]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.322]                       info)
  [07:38:06.322]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.322]                     if (!has_future) {
  [07:38:06.322]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.322]                         info)
  [07:38:06.322]                     }
  [07:38:06.322]                     else {
  [07:38:06.322]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.322]                         info, version)
  [07:38:06.322]                     }
  [07:38:06.322]                     base::stop(msg)
  [07:38:06.322]                   }
  [07:38:06.322]                 })
  [07:38:06.322]             }
  [07:38:06.322]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.322]         }
  [07:38:06.322]     }
  [07:38:06.322]     if (base::is.na(TRUE)) {
  [07:38:06.322]     }
  [07:38:06.322]     else {
  [07:38:06.322]         if (TRUE) {
  [07:38:06.322]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.322]                 open = "w")
  [07:38:06.322]         }
  [07:38:06.322]         else {
  [07:38:06.322]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.322]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.322]         }
  [07:38:06.322]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.322]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.322]             base::sink(type = "output", split = FALSE)
  [07:38:06.322]             base::close(...future.stdout)
  [07:38:06.322]         }, add = TRUE)
  [07:38:06.322]     }
  [07:38:06.322]     ...future.frame <- base::sys.nframe()
  [07:38:06.322]     ...future.conditions <- base::list()
  [07:38:06.322]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.322]     ...future.result <- base::tryCatch({
  [07:38:06.322]         base::withCallingHandlers({
  [07:38:06.322]             ...future.value <- base::withVisible(base::local({
  [07:38:06.322]                 4
  [07:38:06.322]             }))
  [07:38:06.322]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.322]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.322]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.322]                 version = "1.8")
  [07:38:06.322]         }, condition = base::local({
  [07:38:06.322]             c <- base::c
  [07:38:06.322]             inherits <- base::inherits
  [07:38:06.322]             invokeRestart <- base::invokeRestart
  [07:38:06.322]             length <- base::length
  [07:38:06.322]             list <- base::list
  [07:38:06.322]             seq.int <- base::seq.int
  [07:38:06.322]             signalCondition <- base::signalCondition
  [07:38:06.322]             sys.calls <- base::sys.calls
  [07:38:06.322]             Sys.time <- base::Sys.time
  [07:38:06.322]             `[[` <- base::`[[`
  [07:38:06.322]             `+` <- base::`+`
  [07:38:06.322]             `<<-` <- base::`<<-`
  [07:38:06.322]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.322]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.322]                   3L)]
  [07:38:06.322]             }
  [07:38:06.322]             function(cond) {
  [07:38:06.322]                 if (inherits(cond, "error")) {
  [07:38:06.322]                   sessionInformation <- function() {
  [07:38:06.322]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.322]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.322]                       search = base::search(), system = base::Sys.info())
  [07:38:06.322]                   }
  [07:38:06.322]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.322]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.322]                     cond$call), session = sessionInformation(), 
  [07:38:06.322]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.322]                   signalCondition(cond)
  [07:38:06.322]                 }
  [07:38:06.322]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.322]                 ))) {
  [07:38:06.322]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.322]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.322]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.322]                   if (!signal) {
  [07:38:06.322]                     muffleCondition <- function (cond) 
  [07:38:06.322]                     {
  [07:38:06.322]                       inherits <- base::inherits
  [07:38:06.322]                       invokeRestart <- base::invokeRestart
  [07:38:06.322]                       muffled <- FALSE
  [07:38:06.322]                       if (inherits(cond, "message")) {
  [07:38:06.322]                         invokeRestart("muffleMessage")
  [07:38:06.322]                         muffled <- TRUE
  [07:38:06.322]                       }
  [07:38:06.322]                       else if (inherits(cond, "warning")) {
  [07:38:06.322]                         invokeRestart("muffleWarning")
  [07:38:06.322]                         muffled <- TRUE
  [07:38:06.322]                       }
  [07:38:06.322]                       else if (inherits(cond, "condition")) {
  [07:38:06.322]                         computeRestarts <- base::computeRestarts
  [07:38:06.322]                         grepl <- base::grepl
  [07:38:06.322]                         is.null <- base::is.null
  [07:38:06.322]                         restarts <- computeRestarts(cond)
  [07:38:06.322]                         for (restart in restarts) {
  [07:38:06.322]                           name <- restart$name
  [07:38:06.322]                           if (is.null(name)) 
  [07:38:06.322]                             next
  [07:38:06.322]                           if (!grepl("^muffle", name)) 
  [07:38:06.322]                             next
  [07:38:06.322]                           invokeRestart(restart)
  [07:38:06.322]                           muffled <- TRUE
  [07:38:06.322]                           break
  [07:38:06.322]                         }
  [07:38:06.322]                       }
  [07:38:06.322]                       invisible(muffled)
  [07:38:06.322]                     }
  [07:38:06.322]                     muffleCondition(cond)
  [07:38:06.322]                   }
  [07:38:06.322]                 }
  [07:38:06.322]             }
  [07:38:06.322]         }))
  [07:38:06.322]     }, error = function(ex) {
  [07:38:06.322]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.322]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.322]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.322]     }, finally = {
  [07:38:06.322]         {
  [07:38:06.322]             NULL
  [07:38:06.322]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.322]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.322]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.322]                 label = NULL, ...) 
  [07:38:06.322]             {
  [07:38:06.322]                 if (substitute) 
  [07:38:06.322]                   expr <- substitute(expr)
  [07:38:06.322]                 local <- as.logical(local)
  [07:38:06.322]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.322]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.322]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.322]                   label = label, ...)
  [07:38:06.322]                 if (!future$lazy) 
  [07:38:06.322]                   future <- run(future)
  [07:38:06.322]                 invisible(future)
  [07:38:06.322]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.322]         }
  [07:38:06.322]         base::options(...future.oldOptions)
  [07:38:06.322]     })
  [07:38:06.322]     Sys.time
  [07:38:06.322]     if (base::is.na(TRUE)) {
  [07:38:06.322]     }
  [07:38:06.322]     else {
  [07:38:06.322]         base::sink(type = "output", split = FALSE)
  [07:38:06.322]         if (TRUE) {
  [07:38:06.322]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.322]         }
  [07:38:06.322]         else {
  [07:38:06.322]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.322]         }
  [07:38:06.322]         base::close(...future.stdout)
  [07:38:06.322]         ...future.stdout <- NULL
  [07:38:06.322]     }
  [07:38:06.322]     ...future.result$conditions <- ...future.conditions
  [07:38:06.322]     ...future.result
  [07:38:06.322] }
  [07:38:06.327] plan(): Setting new future strategy stack:
  [07:38:06.328] List of future strategies:
  [07:38:06.328] 1. sequential:
  [07:38:06.328]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.328]    - tweaked: FALSE
  [07:38:06.328]    - call: NULL
  [07:38:06.329] plan(): nbrOfWorkers() = 1
  [07:38:06.331] plan(): Setting new future strategy stack:
  [07:38:06.331] List of future strategies:
  [07:38:06.331] 1. sequential:
  [07:38:06.331]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.331]    - tweaked: FALSE
  [07:38:06.331]    - call: plan(strategy)
  [07:38:06.332] plan(): nbrOfWorkers() = 1
  [07:38:06.333] SequentialFuture started (and completed)
  Classes 'listenv', 'environment' <environment: 0x5576d6265e28> 
  Classes 'listenv', 'environment' <environment: 0x5576d63f5630> 
   - attr(*, "dim.")= int [1:2] 1 6
   - attr(*, "dimnames.")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
   logi [1, 1:6] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
   - attr(*, "names")= chr [1:6] "a" "b" "c" "d" ...
  [07:38:06.359] resolve() on list environment ...
  [07:38:06.360]  recursive: 0
  [07:38:06.363]  length: 6
  [07:38:06.364]  elements: 'a', 'b', 'c', 'd', '', ''
  [07:38:06.364] signalConditionsASAP(numeric, pos=1) ...
  [07:38:06.364] - nx: 6
  [07:38:06.365] - relay: TRUE
  [07:38:06.365] - stdout: TRUE
  [07:38:06.365] - signal: TRUE
  [07:38:06.366] - resignal: FALSE
  [07:38:06.366] - force: TRUE
  [07:38:06.366] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.367] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.367]  - until=2
  [07:38:06.367]  - relaying element #2
  [07:38:06.368] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.368] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.368] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:06.369]  length: 5 (resolved future 1)
  [07:38:06.369] Future #2
  [07:38:06.370] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:06.370] - nx: 6
  [07:38:06.370] - relay: TRUE
  [07:38:06.371] - stdout: TRUE
  [07:38:06.371] - signal: TRUE
  [07:38:06.371] - resignal: FALSE
  [07:38:06.371] - force: TRUE
  [07:38:06.372] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.372] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.372]  - until=2
  [07:38:06.373]  - relaying element #2
  [07:38:06.373] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.374] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.374] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:06.375]  length: 4 (resolved future 2)
  [07:38:06.375] Future #3
  [07:38:06.375] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:06.376] - nx: 6
  [07:38:06.376] - relay: TRUE
  [07:38:06.376] - stdout: TRUE
  [07:38:06.377] - signal: TRUE
  [07:38:06.377] - resignal: FALSE
  [07:38:06.377] - force: TRUE
  [07:38:06.378] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.378] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.380]  - until=3
  [07:38:06.381]  - relaying element #3
  [07:38:06.381] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.382] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.382] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:06.382]  length: 3 (resolved future 3)
  [07:38:06.383] Future #4
  [07:38:06.383] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:06.384] - nx: 6
  [07:38:06.384] - relay: TRUE
  [07:38:06.384] - stdout: TRUE
  [07:38:06.385] - signal: TRUE
  [07:38:06.385] - resignal: FALSE
  [07:38:06.385] - force: TRUE
  [07:38:06.386] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.386] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.386]  - until=4
  [07:38:06.387]  - relaying element #4
  [07:38:06.387] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.388] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.388] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:06.389]  length: 2 (resolved future 4)
  [07:38:06.389] signalConditionsASAP(NULL, pos=5) ...
  [07:38:06.389] - nx: 6
  [07:38:06.390] - relay: TRUE
  [07:38:06.390] - stdout: TRUE
  [07:38:06.390] - signal: TRUE
  [07:38:06.391] - resignal: FALSE
  [07:38:06.391] - force: TRUE
  [07:38:06.391] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.392] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.392]  - until=6
  [07:38:06.392]  - relaying element #6
  [07:38:06.393] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:06.393] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.393] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:06.394]  length: 1 (resolved future 5)
  [07:38:06.394] signalConditionsASAP(numeric, pos=6) ...
  [07:38:06.395] - nx: 6
  [07:38:06.395] - relay: TRUE
  [07:38:06.395] - stdout: TRUE
  [07:38:06.396] - signal: TRUE
  [07:38:06.396] - resignal: FALSE
  [07:38:06.396] - force: TRUE
  [07:38:06.397] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:06.397] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.397]  - until=6
  [07:38:06.398] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.398] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.398] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:06.399]  length: 0 (resolved future 6)
  [07:38:06.399] Relaying remaining futures
  [07:38:06.399] signalConditionsASAP(NULL, pos=0) ...
  [07:38:06.400] - nx: 6
  [07:38:06.400] - relay: TRUE
  [07:38:06.400] - stdout: TRUE
  [07:38:06.401] - signal: TRUE
  [07:38:06.401] - resignal: FALSE
  [07:38:06.401] - force: TRUE
  [07:38:06.402] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.402] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
   - flush all
  [07:38:06.403] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.403] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.403] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:06.404] resolve() on list environment ... DONE
  Classes 'listenv', 'environment' <environment: 0x5576d52b6f90> 
   - attr(*, "dim.")= int [1:2] 1 6
   - attr(*, "dimnames.")=List of 2
    ..$ : chr "a"
    ..$ : chr [1:6] "a" "b" "c" "d" ...
  Dimensions: c(2, 3)
  [07:38:06.425] getGlobalsAndPackages() ...
  [07:38:06.425] Searching for globals...
  [07:38:06.426] 
  [07:38:06.426] Searching for globals ... DONE
  [07:38:06.427] - globals: [0] <none>
  [07:38:06.427] getGlobalsAndPackages() ... DONE
  [07:38:06.430] Packages needed by the future expression (n = 0): <none>
  [07:38:06.430] Packages needed by future strategies (n = 0): <none>
  [07:38:06.437] {
  [07:38:06.437]     {
  [07:38:06.437]         ...future.startTime <- base::Sys.time()
  [07:38:06.437]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.437]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.437]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.437]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.437]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.437]         {
  [07:38:06.437]             {
  [07:38:06.437]                 base::local({
  [07:38:06.437]                   has_future <- base::requireNamespace("future", 
  [07:38:06.437]                     quietly = TRUE)
  [07:38:06.437]                   version <- if (has_future) 
  [07:38:06.437]                     utils::packageVersion("future")
  [07:38:06.437]                   else NULL
  [07:38:06.437]                   if (!has_future || version < "1.8.0") {
  [07:38:06.437]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.437]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.437]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.437]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.437]                         "release", "version")], collapse = " "), 
  [07:38:06.437]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.437]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.437]                       info)
  [07:38:06.437]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.437]                     if (!has_future) {
  [07:38:06.437]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.437]                         info)
  [07:38:06.437]                     }
  [07:38:06.437]                     else {
  [07:38:06.437]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.437]                         info, version)
  [07:38:06.437]                     }
  [07:38:06.437]                     base::stop(msg)
  [07:38:06.437]                   }
  [07:38:06.437]                 })
  [07:38:06.437]             }
  [07:38:06.437]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.437]         }
  [07:38:06.437]     }
  [07:38:06.437]     if (base::is.na(TRUE)) {
  [07:38:06.437]     }
  [07:38:06.437]     else {
  [07:38:06.437]         if (TRUE) {
  [07:38:06.437]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.437]                 open = "w")
  [07:38:06.437]         }
  [07:38:06.437]         else {
  [07:38:06.437]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.437]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.437]         }
  [07:38:06.437]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.437]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.437]             base::sink(type = "output", split = FALSE)
  [07:38:06.437]             base::close(...future.stdout)
  [07:38:06.437]         }, add = TRUE)
  [07:38:06.437]     }
  [07:38:06.437]     ...future.frame <- base::sys.nframe()
  [07:38:06.437]     ...future.conditions <- base::list()
  [07:38:06.437]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.437]     ...future.result <- base::tryCatch({
  [07:38:06.437]         base::withCallingHandlers({
  [07:38:06.437]             ...future.value <- base::withVisible(base::local(2))
  [07:38:06.437]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.437]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.437]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.437]                 version = "1.8")
  [07:38:06.437]         }, condition = base::local({
  [07:38:06.437]             c <- base::c
  [07:38:06.437]             inherits <- base::inherits
  [07:38:06.437]             invokeRestart <- base::invokeRestart
  [07:38:06.437]             length <- base::length
  [07:38:06.437]             list <- base::list
  [07:38:06.437]             seq.int <- base::seq.int
  [07:38:06.437]             signalCondition <- base::signalCondition
  [07:38:06.437]             sys.calls <- base::sys.calls
  [07:38:06.437]             Sys.time <- base::Sys.time
  [07:38:06.437]             `[[` <- base::`[[`
  [07:38:06.437]             `+` <- base::`+`
  [07:38:06.437]             `<<-` <- base::`<<-`
  [07:38:06.437]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.437]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.437]                   3L)]
  [07:38:06.437]             }
  [07:38:06.437]             function(cond) {
  [07:38:06.437]                 if (inherits(cond, "error")) {
  [07:38:06.437]                   sessionInformation <- function() {
  [07:38:06.437]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.437]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.437]                       search = base::search(), system = base::Sys.info())
  [07:38:06.437]                   }
  [07:38:06.437]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.437]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.437]                     cond$call), session = sessionInformation(), 
  [07:38:06.437]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.437]                   signalCondition(cond)
  [07:38:06.437]                 }
  [07:38:06.437]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.437]                 ))) {
  [07:38:06.437]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.437]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.437]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.437]                   if (!signal) {
  [07:38:06.437]                     muffleCondition <- function (cond) 
  [07:38:06.437]                     {
  [07:38:06.437]                       inherits <- base::inherits
  [07:38:06.437]                       invokeRestart <- base::invokeRestart
  [07:38:06.437]                       muffled <- FALSE
  [07:38:06.437]                       if (inherits(cond, "message")) {
  [07:38:06.437]                         invokeRestart("muffleMessage")
  [07:38:06.437]                         muffled <- TRUE
  [07:38:06.437]                       }
  [07:38:06.437]                       else if (inherits(cond, "warning")) {
  [07:38:06.437]                         invokeRestart("muffleWarning")
  [07:38:06.437]                         muffled <- TRUE
  [07:38:06.437]                       }
  [07:38:06.437]                       else if (inherits(cond, "condition")) {
  [07:38:06.437]                         computeRestarts <- base::computeRestarts
  [07:38:06.437]                         grepl <- base::grepl
  [07:38:06.437]                         is.null <- base::is.null
  [07:38:06.437]                         restarts <- computeRestarts(cond)
  [07:38:06.437]                         for (restart in restarts) {
  [07:38:06.437]                           name <- restart$name
  [07:38:06.437]                           if (is.null(name)) 
  [07:38:06.437]                             next
  [07:38:06.437]                           if (!grepl("^muffle", name)) 
  [07:38:06.437]                             next
  [07:38:06.437]                           invokeRestart(restart)
  [07:38:06.437]                           muffled <- TRUE
  [07:38:06.437]                           break
  [07:38:06.437]                         }
  [07:38:06.437]                       }
  [07:38:06.437]                       invisible(muffled)
  [07:38:06.437]                     }
  [07:38:06.437]                     muffleCondition(cond)
  [07:38:06.437]                   }
  [07:38:06.437]                 }
  [07:38:06.437]             }
  [07:38:06.437]         }))
  [07:38:06.437]     }, error = function(ex) {
  [07:38:06.437]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.437]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.437]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.437]     }, finally = {
  [07:38:06.437]         {
  [07:38:06.437]             NULL
  [07:38:06.437]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.437]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.437]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.437]                 label = NULL, ...) 
  [07:38:06.437]             {
  [07:38:06.437]                 if (substitute) 
  [07:38:06.437]                   expr <- substitute(expr)
  [07:38:06.437]                 local <- as.logical(local)
  [07:38:06.437]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.437]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.437]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.437]                   label = label, ...)
  [07:38:06.437]                 if (!future$lazy) 
  [07:38:06.437]                   future <- run(future)
  [07:38:06.437]                 invisible(future)
  [07:38:06.437]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.437]         }
  [07:38:06.437]         base::options(...future.oldOptions)
  [07:38:06.437]     })
  [07:38:06.437]     Sys.time
  [07:38:06.437]     if (base::is.na(TRUE)) {
  [07:38:06.437]     }
  [07:38:06.437]     else {
  [07:38:06.437]         base::sink(type = "output", split = FALSE)
  [07:38:06.437]         if (TRUE) {
  [07:38:06.437]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.437]         }
  [07:38:06.437]         else {
  [07:38:06.437]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.437]         }
  [07:38:06.437]         base::close(...future.stdout)
  [07:38:06.437]         ...future.stdout <- NULL
  [07:38:06.437]     }
  [07:38:06.437]     ...future.result$conditions <- ...future.conditions
  [07:38:06.437]     ...future.result
  [07:38:06.437] }
  [07:38:06.442] plan(): Setting new future strategy stack:
  [07:38:06.443] List of future strategies:
  [07:38:06.443] 1. sequential:
  [07:38:06.443]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.443]    - tweaked: FALSE
  [07:38:06.443]    - call: NULL
  [07:38:06.444] plan(): nbrOfWorkers() = 1
  [07:38:06.446] plan(): Setting new future strategy stack:
  [07:38:06.446] List of future strategies:
  [07:38:06.446] 1. sequential:
  [07:38:06.446]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.446]    - tweaked: FALSE
  [07:38:06.446]    - call: plan(strategy)
  [07:38:06.448] plan(): nbrOfWorkers() = 1
  [07:38:06.448] SequentialFuture started (and completed)
  [07:38:06.449] getGlobalsAndPackages() ...
  [07:38:06.449] Searching for globals...
  [07:38:06.450] 
  [07:38:06.451] Searching for globals ... DONE
  [07:38:06.451] - globals: [0] <none>
  [07:38:06.452] getGlobalsAndPackages() ... DONE
  [07:38:06.454] Packages needed by the future expression (n = 0): <none>
  [07:38:06.455] Packages needed by future strategies (n = 0): <none>
  [07:38:06.461] {
  [07:38:06.461]     {
  [07:38:06.461]         ...future.startTime <- base::Sys.time()
  [07:38:06.461]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.461]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.461]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.461]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.461]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.461]         {
  [07:38:06.461]             {
  [07:38:06.461]                 base::local({
  [07:38:06.461]                   has_future <- base::requireNamespace("future", 
  [07:38:06.461]                     quietly = TRUE)
  [07:38:06.461]                   version <- if (has_future) 
  [07:38:06.461]                     utils::packageVersion("future")
  [07:38:06.461]                   else NULL
  [07:38:06.461]                   if (!has_future || version < "1.8.0") {
  [07:38:06.461]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.461]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.461]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.461]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.461]                         "release", "version")], collapse = " "), 
  [07:38:06.461]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.461]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.461]                       info)
  [07:38:06.461]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.461]                     if (!has_future) {
  [07:38:06.461]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.461]                         info)
  [07:38:06.461]                     }
  [07:38:06.461]                     else {
  [07:38:06.461]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.461]                         info, version)
  [07:38:06.461]                     }
  [07:38:06.461]                     base::stop(msg)
  [07:38:06.461]                   }
  [07:38:06.461]                 })
  [07:38:06.461]             }
  [07:38:06.461]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.461]         }
  [07:38:06.461]     }
  [07:38:06.461]     if (base::is.na(TRUE)) {
  [07:38:06.461]     }
  [07:38:06.461]     else {
  [07:38:06.461]         if (TRUE) {
  [07:38:06.461]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.461]                 open = "w")
  [07:38:06.461]         }
  [07:38:06.461]         else {
  [07:38:06.461]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.461]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.461]         }
  [07:38:06.461]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.461]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.461]             base::sink(type = "output", split = FALSE)
  [07:38:06.461]             base::close(...future.stdout)
  [07:38:06.461]         }, add = TRUE)
  [07:38:06.461]     }
  [07:38:06.461]     ...future.frame <- base::sys.nframe()
  [07:38:06.461]     ...future.conditions <- base::list()
  [07:38:06.461]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.461]     ...future.result <- base::tryCatch({
  [07:38:06.461]         base::withCallingHandlers({
  [07:38:06.461]             ...future.value <- base::withVisible(base::local(NULL))
  [07:38:06.461]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.461]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.461]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.461]                 version = "1.8")
  [07:38:06.461]         }, condition = base::local({
  [07:38:06.461]             c <- base::c
  [07:38:06.461]             inherits <- base::inherits
  [07:38:06.461]             invokeRestart <- base::invokeRestart
  [07:38:06.461]             length <- base::length
  [07:38:06.461]             list <- base::list
  [07:38:06.461]             seq.int <- base::seq.int
  [07:38:06.461]             signalCondition <- base::signalCondition
  [07:38:06.461]             sys.calls <- base::sys.calls
  [07:38:06.461]             Sys.time <- base::Sys.time
  [07:38:06.461]             `[[` <- base::`[[`
  [07:38:06.461]             `+` <- base::`+`
  [07:38:06.461]             `<<-` <- base::`<<-`
  [07:38:06.461]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.461]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.461]                   3L)]
  [07:38:06.461]             }
  [07:38:06.461]             function(cond) {
  [07:38:06.461]                 if (inherits(cond, "error")) {
  [07:38:06.461]                   sessionInformation <- function() {
  [07:38:06.461]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.461]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.461]                       search = base::search(), system = base::Sys.info())
  [07:38:06.461]                   }
  [07:38:06.461]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.461]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.461]                     cond$call), session = sessionInformation(), 
  [07:38:06.461]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.461]                   signalCondition(cond)
  [07:38:06.461]                 }
  [07:38:06.461]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.461]                 ))) {
  [07:38:06.461]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.461]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.461]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.461]                   if (!signal) {
  [07:38:06.461]                     muffleCondition <- function (cond) 
  [07:38:06.461]                     {
  [07:38:06.461]                       inherits <- base::inherits
  [07:38:06.461]                       invokeRestart <- base::invokeRestart
  [07:38:06.461]                       muffled <- FALSE
  [07:38:06.461]                       if (inherits(cond, "message")) {
  [07:38:06.461]                         invokeRestart("muffleMessage")
  [07:38:06.461]                         muffled <- TRUE
  [07:38:06.461]                       }
  [07:38:06.461]                       else if (inherits(cond, "warning")) {
  [07:38:06.461]                         invokeRestart("muffleWarning")
  [07:38:06.461]                         muffled <- TRUE
  [07:38:06.461]                       }
  [07:38:06.461]                       else if (inherits(cond, "condition")) {
  [07:38:06.461]                         computeRestarts <- base::computeRestarts
  [07:38:06.461]                         grepl <- base::grepl
  [07:38:06.461]                         is.null <- base::is.null
  [07:38:06.461]                         restarts <- computeRestarts(cond)
  [07:38:06.461]                         for (restart in restarts) {
  [07:38:06.461]                           name <- restart$name
  [07:38:06.461]                           if (is.null(name)) 
  [07:38:06.461]                             next
  [07:38:06.461]                           if (!grepl("^muffle", name)) 
  [07:38:06.461]                             next
  [07:38:06.461]                           invokeRestart(restart)
  [07:38:06.461]                           muffled <- TRUE
  [07:38:06.461]                           break
  [07:38:06.461]                         }
  [07:38:06.461]                       }
  [07:38:06.461]                       invisible(muffled)
  [07:38:06.461]                     }
  [07:38:06.461]                     muffleCondition(cond)
  [07:38:06.461]                   }
  [07:38:06.461]                 }
  [07:38:06.461]             }
  [07:38:06.461]         }))
  [07:38:06.461]     }, error = function(ex) {
  [07:38:06.461]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.461]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.461]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.461]     }, finally = {
  [07:38:06.461]         {
  [07:38:06.461]             NULL
  [07:38:06.461]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.461]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.461]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.461]                 label = NULL, ...) 
  [07:38:06.461]             {
  [07:38:06.461]                 if (substitute) 
  [07:38:06.461]                   expr <- substitute(expr)
  [07:38:06.461]                 local <- as.logical(local)
  [07:38:06.461]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.461]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.461]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.461]                   label = label, ...)
  [07:38:06.461]                 if (!future$lazy) 
  [07:38:06.461]                   future <- run(future)
  [07:38:06.461]                 invisible(future)
  [07:38:06.461]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.461]         }
  [07:38:06.461]         base::options(...future.oldOptions)
  [07:38:06.461]     })
  [07:38:06.461]     Sys.time
  [07:38:06.461]     if (base::is.na(TRUE)) {
  [07:38:06.461]     }
  [07:38:06.461]     else {
  [07:38:06.461]         base::sink(type = "output", split = FALSE)
  [07:38:06.461]         if (TRUE) {
  [07:38:06.461]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.461]         }
  [07:38:06.461]         else {
  [07:38:06.461]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.461]         }
  [07:38:06.461]         base::close(...future.stdout)
  [07:38:06.461]         ...future.stdout <- NULL
  [07:38:06.461]     }
  [07:38:06.461]     ...future.result$conditions <- ...future.conditions
  [07:38:06.461]     ...future.result
  [07:38:06.461] }
  [07:38:06.467] plan(): Setting new future strategy stack:
  [07:38:06.467] List of future strategies:
  [07:38:06.467] 1. sequential:
  [07:38:06.467]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.467]    - tweaked: FALSE
  [07:38:06.467]    - call: NULL
  [07:38:06.469] plan(): nbrOfWorkers() = 1
  [07:38:06.470] plan(): Setting new future strategy stack:
  [07:38:06.470] List of future strategies:
  [07:38:06.470] 1. sequential:
  [07:38:06.470]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.470]    - tweaked: FALSE
  [07:38:06.470]    - call: plan(strategy)
  [07:38:06.472] plan(): nbrOfWorkers() = 1
  [07:38:06.472] SequentialFuture started (and completed)
  [07:38:06.474] getGlobalsAndPackages() ...
  [07:38:06.474] Searching for globals...
  [07:38:06.476] - globals found: [1] '{'
  [07:38:06.476] Searching for globals ... DONE
  [07:38:06.477] Resolving globals: FALSE
  [07:38:06.477] 
  [07:38:06.478] 
  [07:38:06.478] getGlobalsAndPackages() ... DONE
  [07:38:06.481] Packages needed by the future expression (n = 0): <none>
  [07:38:06.481] Packages needed by future strategies (n = 0): <none>
  [07:38:06.488] {
  [07:38:06.488]     {
  [07:38:06.488]         ...future.startTime <- base::Sys.time()
  [07:38:06.488]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.488]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.488]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.488]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.488]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.488]         {
  [07:38:06.488]             {
  [07:38:06.488]                 base::local({
  [07:38:06.488]                   has_future <- base::requireNamespace("future", 
  [07:38:06.488]                     quietly = TRUE)
  [07:38:06.488]                   version <- if (has_future) 
  [07:38:06.488]                     utils::packageVersion("future")
  [07:38:06.488]                   else NULL
  [07:38:06.488]                   if (!has_future || version < "1.8.0") {
  [07:38:06.488]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.488]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.488]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.488]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.488]                         "release", "version")], collapse = " "), 
  [07:38:06.488]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.488]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.488]                       info)
  [07:38:06.488]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.488]                     if (!has_future) {
  [07:38:06.488]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.488]                         info)
  [07:38:06.488]                     }
  [07:38:06.488]                     else {
  [07:38:06.488]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.488]                         info, version)
  [07:38:06.488]                     }
  [07:38:06.488]                     base::stop(msg)
  [07:38:06.488]                   }
  [07:38:06.488]                 })
  [07:38:06.488]             }
  [07:38:06.488]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.488]         }
  [07:38:06.488]     }
  [07:38:06.488]     if (base::is.na(TRUE)) {
  [07:38:06.488]     }
  [07:38:06.488]     else {
  [07:38:06.488]         if (TRUE) {
  [07:38:06.488]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.488]                 open = "w")
  [07:38:06.488]         }
  [07:38:06.488]         else {
  [07:38:06.488]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.488]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.488]         }
  [07:38:06.488]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.488]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.488]             base::sink(type = "output", split = FALSE)
  [07:38:06.488]             base::close(...future.stdout)
  [07:38:06.488]         }, add = TRUE)
  [07:38:06.488]     }
  [07:38:06.488]     ...future.frame <- base::sys.nframe()
  [07:38:06.488]     ...future.conditions <- base::list()
  [07:38:06.488]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.488]     ...future.result <- base::tryCatch({
  [07:38:06.488]         base::withCallingHandlers({
  [07:38:06.488]             ...future.value <- base::withVisible(base::local({
  [07:38:06.488]                 4
  [07:38:06.488]             }))
  [07:38:06.488]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.488]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.488]                   ...future.rng), started = ...future.startTime, 
  [07:38:06.488]                 version = "1.8")
  [07:38:06.488]         }, condition = base::local({
  [07:38:06.488]             c <- base::c
  [07:38:06.488]             inherits <- base::inherits
  [07:38:06.488]             invokeRestart <- base::invokeRestart
  [07:38:06.488]             length <- base::length
  [07:38:06.488]             list <- base::list
  [07:38:06.488]             seq.int <- base::seq.int
  [07:38:06.488]             signalCondition <- base::signalCondition
  [07:38:06.488]             sys.calls <- base::sys.calls
  [07:38:06.488]             Sys.time <- base::Sys.time
  [07:38:06.488]             `[[` <- base::`[[`
  [07:38:06.488]             `+` <- base::`+`
  [07:38:06.488]             `<<-` <- base::`<<-`
  [07:38:06.488]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [07:38:06.488]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [07:38:06.488]                   3L)]
  [07:38:06.488]             }
  [07:38:06.488]             function(cond) {
  [07:38:06.488]                 if (inherits(cond, "error")) {
  [07:38:06.488]                   sessionInformation <- function() {
  [07:38:06.488]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [07:38:06.488]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [07:38:06.488]                       search = base::search(), system = base::Sys.info())
  [07:38:06.488]                   }
  [07:38:06.488]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.488]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [07:38:06.488]                     cond$call), session = sessionInformation(), 
  [07:38:06.488]                     timestamp = Sys.time(), signaled = 0L)
  [07:38:06.488]                   signalCondition(cond)
  [07:38:06.488]                 }
  [07:38:06.488]                 else if (inherits(cond, c("condition", "immediateCondition"
  [07:38:06.488]                 ))) {
  [07:38:06.488]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [07:38:06.488]                   ...future.conditions[[length(...future.conditions) + 
  [07:38:06.488]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [07:38:06.488]                   if (!signal) {
  [07:38:06.488]                     muffleCondition <- function (cond) 
  [07:38:06.488]                     {
  [07:38:06.488]                       inherits <- base::inherits
  [07:38:06.488]                       invokeRestart <- base::invokeRestart
  [07:38:06.488]                       muffled <- FALSE
  [07:38:06.488]                       if (inherits(cond, "message")) {
  [07:38:06.488]                         invokeRestart("muffleMessage")
  [07:38:06.488]                         muffled <- TRUE
  [07:38:06.488]                       }
  [07:38:06.488]                       else if (inherits(cond, "warning")) {
  [07:38:06.488]                         invokeRestart("muffleWarning")
  [07:38:06.488]                         muffled <- TRUE
  [07:38:06.488]                       }
  [07:38:06.488]                       else if (inherits(cond, "condition")) {
  [07:38:06.488]                         computeRestarts <- base::computeRestarts
  [07:38:06.488]                         grepl <- base::grepl
  [07:38:06.488]                         is.null <- base::is.null
  [07:38:06.488]                         restarts <- computeRestarts(cond)
  [07:38:06.488]                         for (restart in restarts) {
  [07:38:06.488]                           name <- restart$name
  [07:38:06.488]                           if (is.null(name)) 
  [07:38:06.488]                             next
  [07:38:06.488]                           if (!grepl("^muffle", name)) 
  [07:38:06.488]                             next
  [07:38:06.488]                           invokeRestart(restart)
  [07:38:06.488]                           muffled <- TRUE
  [07:38:06.488]                           break
  [07:38:06.488]                         }
  [07:38:06.488]                       }
  [07:38:06.488]                       invisible(muffled)
  [07:38:06.488]                     }
  [07:38:06.488]                     muffleCondition(cond)
  [07:38:06.488]                   }
  [07:38:06.488]                 }
  [07:38:06.488]             }
  [07:38:06.488]         }))
  [07:38:06.488]     }, error = function(ex) {
  [07:38:06.488]         base::structure(base::list(value = NULL, visible = NULL, 
  [07:38:06.488]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [07:38:06.488]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [07:38:06.488]     }, finally = {
  [07:38:06.488]         {
  [07:38:06.488]             NULL
  [07:38:06.488]             future::plan(list(function (expr, envir = parent.frame(), 
  [07:38:06.488]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [07:38:06.488]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [07:38:06.488]                 label = NULL, ...) 
  [07:38:06.488]             {
  [07:38:06.488]                 if (substitute) 
  [07:38:06.488]                   expr <- substitute(expr)
  [07:38:06.488]                 local <- as.logical(local)
  [07:38:06.488]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [07:38:06.488]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [07:38:06.488]                   globals = globals, local = local, earlySignal = earlySignal, 
  [07:38:06.488]                   label = label, ...)
  [07:38:06.488]                 if (!future$lazy) 
  [07:38:06.488]                   future <- run(future)
  [07:38:06.488]                 invisible(future)
  [07:38:06.488]             }), .cleanup = FALSE, .init = FALSE)
  [07:38:06.488]         }
  [07:38:06.488]         base::options(...future.oldOptions)
  [07:38:06.488]     })
  [07:38:06.488]     Sys.time
  [07:38:06.488]     if (base::is.na(TRUE)) {
  [07:38:06.488]     }
  [07:38:06.488]     else {
  [07:38:06.488]         base::sink(type = "output", split = FALSE)
  [07:38:06.488]         if (TRUE) {
  [07:38:06.488]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [07:38:06.488]         }
  [07:38:06.488]         else {
  [07:38:06.488]             ...future.result["stdout"] <- base::list(NULL)
  [07:38:06.488]         }
  [07:38:06.488]         base::close(...future.stdout)
  [07:38:06.488]         ...future.stdout <- NULL
  [07:38:06.488]     }
  [07:38:06.488]     ...future.result$conditions <- ...future.conditions
  [07:38:06.488]     ...future.result
  [07:38:06.488] }
  [07:38:06.494] plan(): Setting new future strategy stack:
  [07:38:06.494] List of future strategies:
  [07:38:06.494] 1. sequential:
  [07:38:06.494]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.494]    - tweaked: FALSE
  [07:38:06.494]    - call: NULL
  [07:38:06.496] plan(): nbrOfWorkers() = 1
  [07:38:06.497] plan(): Setting new future strategy stack:
  [07:38:06.498] List of future strategies:
  [07:38:06.498] 1. sequential:
  [07:38:06.498]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [07:38:06.498]    - tweaked: FALSE
  [07:38:06.498]    - call: plan(strategy)
  [07:38:06.499] plan(): nbrOfWorkers() = 1
  [07:38:06.500] SequentialFuture started (and completed)
  Classes 'listenv', 'environment' <environment: 0x5576d4ee6950> 
  Classes 'listenv', 'environment' <environment: 0x5576d6075d18> 
   - attr(*, "dim.")= int [1:2] 2 3
   - attr(*, "dimnames.")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
   logi [1:2, 1:3] TRUE TRUE TRUE TRUE TRUE TRUE
   - attr(*, "dimnames")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
   - attr(*, "names")= chr [1:6] "a" "b" "c" "d" ...
  [07:38:06.527] resolve() on list environment ...
  [07:38:06.527]  recursive: 0
  [07:38:06.531]  length: 6
  [07:38:06.531]  elements: 'a', 'b', 'c', 'd', '', ''
  [07:38:06.531] signalConditionsASAP(numeric, pos=1) ...
  [07:38:06.532] - nx: 6
  [07:38:06.532] - relay: TRUE
  [07:38:06.532] - stdout: TRUE
  [07:38:06.533] - signal: TRUE
  [07:38:06.533] - resignal: FALSE
  [07:38:06.533] - force: TRUE
  [07:38:06.534] - relayed: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.534] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.534]  - until=2
  [07:38:06.535]  - relaying element #2
  [07:38:06.535] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.535] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.536] signalConditionsASAP(NULL, pos=1) ... done
  [07:38:06.536]  length: 5 (resolved future 1)
  [07:38:06.537] Future #2
  [07:38:06.537] signalConditionsASAP(SequentialFuture, pos=2) ...
  [07:38:06.537] - nx: 6
  [07:38:06.538] - relay: TRUE
  [07:38:06.538] - stdout: TRUE
  [07:38:06.538] - signal: TRUE
  [07:38:06.539] - resignal: FALSE
  [07:38:06.539] - force: TRUE
  [07:38:06.539] - relayed: [n=6] TRUE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.540] - queued futures: [n=6] FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.540]  - until=2
  [07:38:06.540]  - relaying element #2
  [07:38:06.541] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.541] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.542] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [07:38:06.542]  length: 4 (resolved future 2)
  [07:38:06.542] Future #3
  [07:38:06.543] signalConditionsASAP(SequentialFuture, pos=3) ...
  [07:38:06.543] - nx: 6
  [07:38:06.544] - relay: TRUE
  [07:38:06.544] - stdout: TRUE
  [07:38:06.544] - signal: TRUE
  [07:38:06.544] - resignal: FALSE
  [07:38:06.545] - force: TRUE
  [07:38:06.545] - relayed: [n=6] TRUE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.545] - queued futures: [n=6] FALSE, TRUE, FALSE, FALSE, FALSE, FALSE
  [07:38:06.546]  - until=3
  [07:38:06.546]  - relaying element #3
  [07:38:06.547] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.547] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.548] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [07:38:06.548]  length: 3 (resolved future 3)
  [07:38:06.549] Future #4
  [07:38:06.549] signalConditionsASAP(SequentialFuture, pos=4) ...
  [07:38:06.549] - nx: 6
  [07:38:06.550] - relay: TRUE
  [07:38:06.550] - stdout: TRUE
  [07:38:06.550] - signal: TRUE
  [07:38:06.551] - resignal: FALSE
  [07:38:06.551] - force: TRUE
  [07:38:06.551] - relayed: [n=6] TRUE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.552] - queued futures: [n=6] FALSE, TRUE, TRUE, FALSE, FALSE, FALSE
  [07:38:06.552]  - until=4
  [07:38:06.552]  - relaying element #4
  [07:38:06.553] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.553] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.554] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [07:38:06.554]  length: 2 (resolved future 4)
  [07:38:06.554] signalConditionsASAP(NULL, pos=5) ...
  [07:38:06.555] - nx: 6
  [07:38:06.555] - relay: TRUE
  [07:38:06.555] - stdout: TRUE
  [07:38:06.556] - signal: TRUE
  [07:38:06.556] - resignal: FALSE
  [07:38:06.556] - force: TRUE
  [07:38:06.556] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.557] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.557]  - until=6
  [07:38:06.557]  - relaying element #6
  [07:38:06.558] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:06.558] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.558] signalConditionsASAP(NULL, pos=5) ... done
  [07:38:06.559]  length: 1 (resolved future 5)
  [07:38:06.559] signalConditionsASAP(numeric, pos=6) ...
  [07:38:06.560] - nx: 6
  [07:38:06.560] - relay: TRUE
  [07:38:06.560] - stdout: TRUE
  [07:38:06.561] - signal: TRUE
  [07:38:06.561] - resignal: FALSE
  [07:38:06.561] - force: TRUE
  [07:38:06.561] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, FALSE
  [07:38:06.562] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.562]  - until=6
  [07:38:06.563] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.563] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.563] signalConditionsASAP(numeric, pos=6) ... done
  [07:38:06.564]  length: 0 (resolved future 6)
  [07:38:06.564] Relaying remaining futures
  [07:38:06.564] signalConditionsASAP(NULL, pos=0) ...
  [07:38:06.564] - nx: 6
  [07:38:06.565] - relay: TRUE
  [07:38:06.565] - stdout: TRUE
  [07:38:06.565] - signal: TRUE
  [07:38:06.566] - resignal: FALSE
  [07:38:06.566] - force: TRUE
  [07:38:06.566] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.567] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
   - flush all
  [07:38:06.567] - relayed: [n=6] TRUE, TRUE, TRUE, TRUE, TRUE, TRUE
  [07:38:06.567] - queued futures: [n=6] FALSE, TRUE, TRUE, TRUE, FALSE, FALSE
  [07:38:06.568] signalConditionsASAP(NULL, pos=0) ... done
  [07:38:06.568] resolve() on list environment ... DONE
  Classes 'listenv', 'environment' <environment: 0x5576d4599c88> 
   - attr(*, "dim.")= int [1:2] 2 3
   - attr(*, "dimnames.")=List of 2
    ..$ : chr [1:2] "a" "b"
    ..$ : chr [1:3] "a" "b" "c"
  Dimensions: c(2, 3, 1)
  [07:38:06.575] getGlobalsAndPackages() ...
  [07:38:06.575] Searching for globals...
  [07:38:06.580] 
  [07:38:06.581] Searching for globals ... DONE
  [07:38:06.581] - globals: [0] <none>
  [07:38:06.582] getGlobalsAndPackages() ... DONE
  [07:38:06.584] Packages needed by the future expression (n = 0): <none>
  [07:38:06.585] Packages needed by future strategies (n = 0): <none>
  [07:38:06.592] {
  [07:38:06.592]     {
  [07:38:06.592]         ...future.startTime <- base::Sys.time()
  [07:38:06.592]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [07:38:06.592]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [07:38:06.592]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [07:38:06.592]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [07:38:06.592]             future.resolve.recursive = NULL, width = 80L)
  [07:38:06.592]         {
  [07:38:06.592]             {
  [07:38:06.592]                 base::local({
  [07:38:06.592]                   has_future <- base::requireNamespace("future", 
  [07:38:06.592]                     quietly = TRUE)
  [07:38:06.592]                   version <- if (has_future) 
  [07:38:06.592]                     utils::packageVersion("future")
  [07:38:06.592]                   else NULL
  [07:38:06.592]                   if (!has_future || version < "1.8.0") {
  [07:38:06.592]                     info <- base::c(r_version = base::gsub("R version ", 
  [07:38:06.592]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [07:38:06.592]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [07:38:06.592]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [07:38:06.592]                         "release", "version")], collapse = " "), 
  [07:38:06.592]                       hostname = base::Sys.info()[["nodename"]])
  [07:38:06.592]                     info <- base::sprintf("%s: %s", base::names(info), 
  [07:38:06.592]                       info)
  [07:38:06.592]                     info <- base::paste(info, collapse = "; ")
  [07:38:06.592]                     if (!has_future) {
  [07:38:06.592]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [07:38:06.592]                         info)
  [07:38:06.592]                     }
  [07:38:06.592]                     else {
  [07:38:06.592]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [07:38:06.592]                         info, version)
  [07:38:06.592]                     }
  [07:38:06.592]                     base::stop(msg)
  [07:38:06.592]                   }
  [07:38:06.592]                 })
  [07:38:06.592]             }
  [07:38:06.592]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [07:38:06.592]         }
  [07:38:06.592]     }
  [07:38:06.592]     if (base::is.na(TRUE)) {
  [07:38:06.592]     }
  [07:38:06.592]     else {
  [07:38:06.592]         if (TRUE) {
  [07:38:06.592]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [07:38:06.592]                 open = "w")
  [07:38:06.592]         }
  [07:38:06.592]         else {
  [07:38:06.592]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [07:38:06.592]                 windows = "NUL", "/dev/null"), open = "w")
  [07:38:06.592]         }
  [07:38:06.592]         base::sink(...future.stdout, type = "output", split = FALSE)
  [07:38:06.592]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [07:38:06.592]             base::sink(type = "output", split = FALSE)
  [07:38:06.592]             base::close(...future.stdout)
  [07:38:06.592]         }, add = TRUE)
  [07:38:06.592]     }
  [07:38:06.592]     ...future.frame <- base::sys.nframe()
  [07:38:06.592]     ...future.conditions <- base::list()
  [07:38:06.592]     ...future.rng <- base::globalenv()$.Random.seed
  [07:38:06.592]     ...future.result <- base::tryCatch({
  [07:38:06.592]         base::withCallingHandlers({
  [07:38:06.592]             ...future.value <- base::withVisible(base::local(2))
  [07:38:06.592]             future::FutureResult(value = ...future.value$value, 
  [07:38:06.592]                 visible = ..