Running ‘000.sessionDetails.R’ [0s/1s]
  Running ‘ClusterRegistry.R’ [2s/12s]
  Running ‘Future-class.R’ [1s/5s]
  Running ‘FutureError.R’ [0s/1s]
  Running ‘FutureGlobals.R’ [0s/1s]
  Running ‘FutureRegistry.R’ [1s/1s]
  Running ‘as.cluster.R’ [1s/5s]
  Running ‘availableCores.R’ [0s/1s]
  Running ‘availableWorkers.R’ [0s/1s]
  Running ‘backtrace.R’ [1s/2s]
  Running ‘cluster-missing-future-pkg.R’ [1s/3s]
  Running ‘cluster.R’ [6s/36s]
  Running ‘constant.R’ [0s/1s]
  Running ‘demo.R’ [7s/16s]
  Running ‘dotdotdot.R’ [1s/6s]
  Running ‘early-signaling.R’ [2s/13s]
  Running ‘future,labels.R’ [1s/1s]
  Running ‘future.R’ [1s/1s]
  Running ‘futureAssign.R’ [2s/7s]
  Running ‘futureAssign_OP.R’ [3s/8s]
  Running ‘futureAssign_OP_with_environment.R’ [1s/1s]
  Running ‘futureAssign_OP_with_listenv.R’ [1s/2s]
  Running ‘futureCall.R’ [3s/10s]
  Running ‘futureOf.R’ [0s/1s]
  Running ‘futureOf_with_environment.R’ [1s/1s]
  Running ‘futureOf_with_listenv.R’ [1s/1s]
  Running ‘futures.R’ [15s/47s]
  Running ‘globals,NSE.R’ [1s/2s]
  Running ‘globals,formulas.R’ [3s/9s]
  Running ‘globals,manual.R’ [2s/3s]
  Running ‘globals,resolve.R’ [1s/5s]
  Running ‘globals,subassignment.R’ [3s/7s]
  Running ‘globals,toolarge.R’ [1s/5s]
  Running ‘globals,tricky.R’ [6s/14s]
  Running ‘globals,tricky_recursive.R’ [1s/1s]
  Running ‘globalsOf,tweaks.R’ [1s/1s]
  Running ‘immediateCondition.R’ [1s/2s]
  Running ‘invalid-owner.R’ [1s/6s]
  Running ‘makeClusterPSOCK.R’ [1s/3s]
  Running ‘mandelbrot.R’ [1s/1s]
  Running ‘mpi.R’ [0s/1s]
  Running ‘multicore,multithreading.R’ [1s/2s]
  Running ‘multicore.R’ [1s/2s]
  Running ‘multiprocess.R’ [1s/3s]
  Running ‘multisession.R’ [4s/15s]
  Running ‘nbrOfWorkers.R’ [3s/15s]
  Running ‘nested_futures,mc.cores.R’ [4s/29s]
  Running ‘nested_futures.R’ [1s/2s]
  Running ‘non-exportable,connections.R’ [1s/5s]
  Running ‘objectSize.R’ [1s/1s]
  Running ‘plan.R’ [2s/5s]
  Running ‘relaying.R’ [1s/3s]
  Running ‘remote.R’ [1s/5s]
  Running ‘requestCore.R’ [1s/3s]
  Running ‘requestNode.R’ [1s/11s]
  Running ‘reserved-keyword-functions.R’ [1s/1s]
  Running ‘resolve.R’ [2s/4s]
  Running ‘resolved-non-blocking-test.R’ [2s/35s]
  Running ‘rng.R’ [6s/11s]
  Running ‘sequential.R’ [1s/1s]
  Running ‘sessionDetails.R’ [1s/1s]
  Running ‘startup.R’ [2s/9s]
  Running ‘stdout.R’ [2s/6s]
  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/rng.R’ failed.
Complete output:
  > source("incl/start.R")
  [21:36:28.298] plan(): Setting new future strategy stack:
  [21:36:28.300] List of future strategies:
  [21:36:28.300] 1. sequential:
  [21:36:28.300]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.300]    - tweaked: FALSE
  [21:36:28.300]    - call: future::plan("sequential")
  [21:36:28.302] plan(): nbrOfWorkers() = 1
  > 
  > message("*** rng ...")
  *** rng ...
  > 
  > ## A valid regular seed
  > f <- Future(42, seed = 42L)
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: c(10407, -1871565002, 1968597656, -505666782, 1055078269, 658163990, 1090264187)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'Future', 'environment'
  > 
  > ## A valid L'Ecuyer-CMRG RNG seed
  > seed <- c(407L, 1420090545L, 65713854L, -990249945L,
  +           1780737596L, -1213437427L, 1082168682L)
  > f <- Future(42, seed = seed)
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: c(407, 1420090545, 65713854, -990249945, 1780737596, -1213437427, 1082168682)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'Future', 'environment'
  > 
  > f <- Future(42, seed = TRUE)
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: c(10407, 1510185822, 718231047, -1298087042, -350976648, 930317030, -1810308942)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'Future', 'environment'
  > 
  > f <- Future(42, seed = FALSE)
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'Future', 'environment'
  > 
  > f <- Future(42, seed = NULL)
  > print(f)
  Future:
  Label: '<none>'
  Expression:
  [1] 42
  Lazy evaluation: FALSE
  Asynchronous evaluation: TRUE
  Local evaluation: TRUE
  Environment: <environment: R_GlobalEnv>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: <none>
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: FALSE
  Value: <not collected>
  Conditions captured: <none>
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'Future', 'environment'
  > 
  > 
  > ## See Section 6 on 'Random-number generation' in
  > ## vignette("parallel", package = "parallel")
  > fsample <- function(x, size = 4L, seed = NULL, what = c("future", "%<-%")) {
  +   what <- match.arg(what)
  +   
  +   ## Must use session-specific '.GlobalEnv' here
  +   .GlobalEnv <- globalenv()
  +   
  +   oseed <- .GlobalEnv$.Random.seed
  +   orng <- RNGkind("L'Ecuyer-CMRG")[1L]
  +   on.exit(RNGkind(orng))
  + 
  +   if (isFALSE(seed) || isNA(seed) || is.null(seed)) {
  +     if (what == "future") {
  +       fs <- list()
  +       for (ii in seq_len(size)) {
  +         label <- sprintf("fsample_%d-%d", ii, sample.int(1e6, size=1L))
  +         fs[[ii]] <- future({ sample(x, size = 1L) }, seed = seed, label = label)
  + 	print(fs[[ii]])
  +       }
  +       res <- values(fs)
  +     } else {
  +       res <- listenv::listenv()
  +       for (ii in seq_len(size)) {
  +         label <- sprintf("fsample_%d-%d", ii, sample.int(1e6, size=1L))
  +         res[[ii]] %<-% { sample(x, size = 1L) } %seed% seed %label% label
  +       }
  +       res <- as.list(res)
  +     }
  +   } else {
  +     ## Reset state of random seed afterwards?
  +     on.exit({
  +       if (is.null(oseed)) {
  +         rm(list = ".Random.seed", envir = .GlobalEnv, inherits = FALSE)
  +       } else {
  +         .GlobalEnv$.Random.seed <- oseed
  +       }
  +     }, add = TRUE)
  + 
  +     set.seed(seed)
  + 
  +     .seed <- .Random.seed
  +   
  +     if (what == "future") {
  +       fs <- list()
  +       for (ii in seq_len(size)) {
  +         .seed <- parallel::nextRNGStream(.seed)
  +         fs[[ii]] <- future({ sample(x, size = 1L) }, seed = .seed)
  +       }
  +       res <- values(fs)
  +     } else {
  +       res <- listenv::listenv()
  +       for (ii in seq_len(size)) {
  +         .seed <- parallel::nextRNGStream(.seed)
  +         res[[ii]] %<-% { sample(x, size = 1L) } %seed% .seed
  +       }
  +       res <- as.list(res)
  +     }
  +   }
  +   
  +   res
  + } # fsample()
  > 
  > 
  > dummy <- sample(0:3, size = 1L)
  > seed0 <- .Random.seed
  > 
  > ## Reference sample with fixed random seed
  > plan("sequential")
  [21:36:28.377] plan(): Setting new future strategy stack:
  [21:36:28.377] List of future strategies:
  [21:36:28.377] 1. sequential:
  [21:36:28.377]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.377]    - tweaked: FALSE
  [21:36:28.377]    - call: plan("sequential")
  [21:36:28.419] plan(): nbrOfWorkers() = 1
  > y0 <- fsample(0:3, seed = 42L)
  [21:36:28.544] getGlobalsAndPackages() ...
  [21:36:28.544] Searching for globals...
  [21:36:28.553] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.553] Searching for globals ... DONE
  [21:36:28.570] Resolving globals: FALSE
  [21:36:28.572] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.572] - globals: [1] 'x'
  [21:36:28.572] 
  [21:36:28.573] getGlobalsAndPackages() ... DONE
  [21:36:28.576] Packages needed by the future expression (n = 0): <none>
  [21:36:28.576] Packages needed by future strategies (n = 0): <none>
  [21:36:28.581] {
  [21:36:28.581]     {
  [21:36:28.581]         ...future.startTime <- base::Sys.time()
  [21:36:28.581]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.581]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.581]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.581]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.581]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.581]         {
  [21:36:28.581]             {
  [21:36:28.581]                 {
  [21:36:28.581]                   base::local({
  [21:36:28.581]                     has_future <- base::requireNamespace("future", 
  [21:36:28.581]                       quietly = TRUE)
  [21:36:28.581]                     version <- if (has_future) 
  [21:36:28.581]                       utils::packageVersion("future")
  [21:36:28.581]                     else NULL
  [21:36:28.581]                     if (!has_future || version < "1.8.0") {
  [21:36:28.581]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.581]                         "", base::R.version$version.string), 
  [21:36:28.581]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.581]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.581]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.581]                           "release", "version")], collapse = " "), 
  [21:36:28.581]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.581]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.581]                         info)
  [21:36:28.581]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.581]                       if (!has_future) {
  [21:36:28.581]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.581]                           info)
  [21:36:28.581]                       }
  [21:36:28.581]                       else {
  [21:36:28.581]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.581]                           info, version)
  [21:36:28.581]                       }
  [21:36:28.581]                       base::stop(msg)
  [21:36:28.581]                     }
  [21:36:28.581]                   })
  [21:36:28.581]                 }
  [21:36:28.581]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:28.581]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:28.581]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.581]             }
  [21:36:28.581]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.581]         }
  [21:36:28.581]     }
  [21:36:28.581]     if (base::is.na(TRUE)) {
  [21:36:28.581]     }
  [21:36:28.581]     else {
  [21:36:28.581]         if (TRUE) {
  [21:36:28.581]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.581]                 open = "w")
  [21:36:28.581]         }
  [21:36:28.581]         else {
  [21:36:28.581]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.581]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.581]         }
  [21:36:28.581]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.581]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.581]             base::sink(type = "output", split = FALSE)
  [21:36:28.581]             base::close(...future.stdout)
  [21:36:28.581]         }, add = TRUE)
  [21:36:28.581]     }
  [21:36:28.581]     ...future.frame <- base::sys.nframe()
  [21:36:28.581]     ...future.conditions <- base::list()
  [21:36:28.581]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.581]     ...future.result <- base::tryCatch({
  [21:36:28.581]         base::withCallingHandlers({
  [21:36:28.581]             ...future.value <- base::withVisible(base::local({
  [21:36:28.581]                 sample(x, size = 1L)
  [21:36:28.581]             }))
  [21:36:28.581]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.581]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.581]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.581]                 version = "1.8")
  [21:36:28.581]         }, condition = base::local({
  [21:36:28.581]             c <- base::c
  [21:36:28.581]             inherits <- base::inherits
  [21:36:28.581]             invokeRestart <- base::invokeRestart
  [21:36:28.581]             length <- base::length
  [21:36:28.581]             list <- base::list
  [21:36:28.581]             seq.int <- base::seq.int
  [21:36:28.581]             signalCondition <- base::signalCondition
  [21:36:28.581]             sys.calls <- base::sys.calls
  [21:36:28.581]             Sys.time <- base::Sys.time
  [21:36:28.581]             `[[` <- base::`[[`
  [21:36:28.581]             `+` <- base::`+`
  [21:36:28.581]             `<<-` <- base::`<<-`
  [21:36:28.581]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.581]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.581]                   3L)]
  [21:36:28.581]             }
  [21:36:28.581]             function(cond) {
  [21:36:28.581]                 if (inherits(cond, "error")) {
  [21:36:28.581]                   sessionInformation <- function() {
  [21:36:28.581]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.581]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.581]                       search = base::search(), system = base::Sys.info())
  [21:36:28.581]                   }
  [21:36:28.581]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.581]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.581]                     cond$call), session = sessionInformation(), 
  [21:36:28.581]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.581]                   signalCondition(cond)
  [21:36:28.581]                 }
  [21:36:28.581]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.581]                 ))) {
  [21:36:28.581]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.581]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.581]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.581]                   if (!signal) {
  [21:36:28.581]                     muffleCondition <- function (cond) 
  [21:36:28.581]                     {
  [21:36:28.581]                       inherits <- base::inherits
  [21:36:28.581]                       invokeRestart <- base::invokeRestart
  [21:36:28.581]                       muffled <- FALSE
  [21:36:28.581]                       if (inherits(cond, "message")) {
  [21:36:28.581]                         invokeRestart("muffleMessage")
  [21:36:28.581]                         muffled <- TRUE
  [21:36:28.581]                       }
  [21:36:28.581]                       else if (inherits(cond, "warning")) {
  [21:36:28.581]                         invokeRestart("muffleWarning")
  [21:36:28.581]                         muffled <- TRUE
  [21:36:28.581]                       }
  [21:36:28.581]                       else if (inherits(cond, "condition")) {
  [21:36:28.581]                         computeRestarts <- base::computeRestarts
  [21:36:28.581]                         grepl <- base::grepl
  [21:36:28.581]                         is.null <- base::is.null
  [21:36:28.581]                         restarts <- computeRestarts(cond)
  [21:36:28.581]                         for (restart in restarts) {
  [21:36:28.581]                           name <- restart$name
  [21:36:28.581]                           if (is.null(name)) 
  [21:36:28.581]                             next
  [21:36:28.581]                           if (!grepl("^muffle", name)) 
  [21:36:28.581]                             next
  [21:36:28.581]                           invokeRestart(restart)
  [21:36:28.581]                           muffled <- TRUE
  [21:36:28.581]                           break
  [21:36:28.581]                         }
  [21:36:28.581]                       }
  [21:36:28.581]                       invisible(muffled)
  [21:36:28.581]                     }
  [21:36:28.581]                     muffleCondition(cond)
  [21:36:28.581]                   }
  [21:36:28.581]                 }
  [21:36:28.581]             }
  [21:36:28.581]         }))
  [21:36:28.581]     }, error = function(ex) {
  [21:36:28.581]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.581]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.581]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.581]     }, finally = {
  [21:36:28.581]         {
  [21:36:28.581]             NULL
  [21:36:28.581]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.581]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.581]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.581]                 label = NULL, ...) 
  [21:36:28.581]             {
  [21:36:28.581]                 if (substitute) 
  [21:36:28.581]                   expr <- substitute(expr)
  [21:36:28.581]                 local <- as.logical(local)
  [21:36:28.581]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.581]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.581]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.581]                   label = label, ...)
  [21:36:28.581]                 if (!future$lazy) 
  [21:36:28.581]                   future <- run(future)
  [21:36:28.581]                 invisible(future)
  [21:36:28.581]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.581]         }
  [21:36:28.581]         base::options(...future.oldOptions)
  [21:36:28.581]     })
  [21:36:28.581]     Sys.time
  [21:36:28.581]     if (base::is.na(TRUE)) {
  [21:36:28.581]     }
  [21:36:28.581]     else {
  [21:36:28.581]         base::sink(type = "output", split = FALSE)
  [21:36:28.581]         if (TRUE) {
  [21:36:28.581]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.581]         }
  [21:36:28.581]         else {
  [21:36:28.581]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.581]         }
  [21:36:28.581]         base::close(...future.stdout)
  [21:36:28.581]         ...future.stdout <- NULL
  [21:36:28.581]     }
  [21:36:28.581]     ...future.result$conditions <- ...future.conditions
  [21:36:28.581]     ...future.result
  [21:36:28.581] }
  [21:36:28.594] plan(): Setting new future strategy stack:
  [21:36:28.595] List of future strategies:
  [21:36:28.595] 1. sequential:
  [21:36:28.595]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.595]    - tweaked: FALSE
  [21:36:28.595]    - call: NULL
  [21:36:28.595] plan(): nbrOfWorkers() = 1
  [21:36:28.597] plan(): Setting new future strategy stack:
  [21:36:28.597] List of future strategies:
  [21:36:28.597] 1. sequential:
  [21:36:28.597]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.597]    - tweaked: FALSE
  [21:36:28.597]    - call: plan("sequential")
  [21:36:28.598] plan(): nbrOfWorkers() = 1
  [21:36:28.599] SequentialFuture started (and completed)
  [21:36:28.600] getGlobalsAndPackages() ...
  [21:36:28.600] Searching for globals...
  [21:36:28.602] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.602] Searching for globals ... DONE
  [21:36:28.603] Resolving globals: FALSE
  [21:36:28.604] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.604] - globals: [1] 'x'
  [21:36:28.605] 
  [21:36:28.605] getGlobalsAndPackages() ... DONE
  [21:36:28.608] Packages needed by the future expression (n = 0): <none>
  [21:36:28.608] Packages needed by future strategies (n = 0): <none>
  [21:36:28.612] {
  [21:36:28.612]     {
  [21:36:28.612]         ...future.startTime <- base::Sys.time()
  [21:36:28.612]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.612]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.612]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.612]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.612]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.612]         {
  [21:36:28.612]             {
  [21:36:28.612]                 {
  [21:36:28.612]                   base::local({
  [21:36:28.612]                     has_future <- base::requireNamespace("future", 
  [21:36:28.612]                       quietly = TRUE)
  [21:36:28.612]                     version <- if (has_future) 
  [21:36:28.612]                       utils::packageVersion("future")
  [21:36:28.612]                     else NULL
  [21:36:28.612]                     if (!has_future || version < "1.8.0") {
  [21:36:28.612]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.612]                         "", base::R.version$version.string), 
  [21:36:28.612]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.612]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.612]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.612]                           "release", "version")], collapse = " "), 
  [21:36:28.612]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.612]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.612]                         info)
  [21:36:28.612]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.612]                       if (!has_future) {
  [21:36:28.612]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.612]                           info)
  [21:36:28.612]                       }
  [21:36:28.612]                       else {
  [21:36:28.612]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.612]                           info, version)
  [21:36:28.612]                       }
  [21:36:28.612]                       base::stop(msg)
  [21:36:28.612]                     }
  [21:36:28.612]                   })
  [21:36:28.612]                 }
  [21:36:28.612]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:28.612]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:28.612]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.612]             }
  [21:36:28.612]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.612]         }
  [21:36:28.612]     }
  [21:36:28.612]     if (base::is.na(TRUE)) {
  [21:36:28.612]     }
  [21:36:28.612]     else {
  [21:36:28.612]         if (TRUE) {
  [21:36:28.612]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.612]                 open = "w")
  [21:36:28.612]         }
  [21:36:28.612]         else {
  [21:36:28.612]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.612]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.612]         }
  [21:36:28.612]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.612]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.612]             base::sink(type = "output", split = FALSE)
  [21:36:28.612]             base::close(...future.stdout)
  [21:36:28.612]         }, add = TRUE)
  [21:36:28.612]     }
  [21:36:28.612]     ...future.frame <- base::sys.nframe()
  [21:36:28.612]     ...future.conditions <- base::list()
  [21:36:28.612]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.612]     ...future.result <- base::tryCatch({
  [21:36:28.612]         base::withCallingHandlers({
  [21:36:28.612]             ...future.value <- base::withVisible(base::local({
  [21:36:28.612]                 sample(x, size = 1L)
  [21:36:28.612]             }))
  [21:36:28.612]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.612]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.612]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.612]                 version = "1.8")
  [21:36:28.612]         }, condition = base::local({
  [21:36:28.612]             c <- base::c
  [21:36:28.612]             inherits <- base::inherits
  [21:36:28.612]             invokeRestart <- base::invokeRestart
  [21:36:28.612]             length <- base::length
  [21:36:28.612]             list <- base::list
  [21:36:28.612]             seq.int <- base::seq.int
  [21:36:28.612]             signalCondition <- base::signalCondition
  [21:36:28.612]             sys.calls <- base::sys.calls
  [21:36:28.612]             Sys.time <- base::Sys.time
  [21:36:28.612]             `[[` <- base::`[[`
  [21:36:28.612]             `+` <- base::`+`
  [21:36:28.612]             `<<-` <- base::`<<-`
  [21:36:28.612]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.612]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.612]                   3L)]
  [21:36:28.612]             }
  [21:36:28.612]             function(cond) {
  [21:36:28.612]                 if (inherits(cond, "error")) {
  [21:36:28.612]                   sessionInformation <- function() {
  [21:36:28.612]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.612]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.612]                       search = base::search(), system = base::Sys.info())
  [21:36:28.612]                   }
  [21:36:28.612]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.612]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.612]                     cond$call), session = sessionInformation(), 
  [21:36:28.612]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.612]                   signalCondition(cond)
  [21:36:28.612]                 }
  [21:36:28.612]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.612]                 ))) {
  [21:36:28.612]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.612]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.612]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.612]                   if (!signal) {
  [21:36:28.612]                     muffleCondition <- function (cond) 
  [21:36:28.612]                     {
  [21:36:28.612]                       inherits <- base::inherits
  [21:36:28.612]                       invokeRestart <- base::invokeRestart
  [21:36:28.612]                       muffled <- FALSE
  [21:36:28.612]                       if (inherits(cond, "message")) {
  [21:36:28.612]                         invokeRestart("muffleMessage")
  [21:36:28.612]                         muffled <- TRUE
  [21:36:28.612]                       }
  [21:36:28.612]                       else if (inherits(cond, "warning")) {
  [21:36:28.612]                         invokeRestart("muffleWarning")
  [21:36:28.612]                         muffled <- TRUE
  [21:36:28.612]                       }
  [21:36:28.612]                       else if (inherits(cond, "condition")) {
  [21:36:28.612]                         computeRestarts <- base::computeRestarts
  [21:36:28.612]                         grepl <- base::grepl
  [21:36:28.612]                         is.null <- base::is.null
  [21:36:28.612]                         restarts <- computeRestarts(cond)
  [21:36:28.612]                         for (restart in restarts) {
  [21:36:28.612]                           name <- restart$name
  [21:36:28.612]                           if (is.null(name)) 
  [21:36:28.612]                             next
  [21:36:28.612]                           if (!grepl("^muffle", name)) 
  [21:36:28.612]                             next
  [21:36:28.612]                           invokeRestart(restart)
  [21:36:28.612]                           muffled <- TRUE
  [21:36:28.612]                           break
  [21:36:28.612]                         }
  [21:36:28.612]                       }
  [21:36:28.612]                       invisible(muffled)
  [21:36:28.612]                     }
  [21:36:28.612]                     muffleCondition(cond)
  [21:36:28.612]                   }
  [21:36:28.612]                 }
  [21:36:28.612]             }
  [21:36:28.612]         }))
  [21:36:28.612]     }, error = function(ex) {
  [21:36:28.612]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.612]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.612]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.612]     }, finally = {
  [21:36:28.612]         {
  [21:36:28.612]             NULL
  [21:36:28.612]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.612]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.612]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.612]                 label = NULL, ...) 
  [21:36:28.612]             {
  [21:36:28.612]                 if (substitute) 
  [21:36:28.612]                   expr <- substitute(expr)
  [21:36:28.612]                 local <- as.logical(local)
  [21:36:28.612]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.612]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.612]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.612]                   label = label, ...)
  [21:36:28.612]                 if (!future$lazy) 
  [21:36:28.612]                   future <- run(future)
  [21:36:28.612]                 invisible(future)
  [21:36:28.612]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.612]         }
  [21:36:28.612]         base::options(...future.oldOptions)
  [21:36:28.612]     })
  [21:36:28.612]     Sys.time
  [21:36:28.612]     if (base::is.na(TRUE)) {
  [21:36:28.612]     }
  [21:36:28.612]     else {
  [21:36:28.612]         base::sink(type = "output", split = FALSE)
  [21:36:28.612]         if (TRUE) {
  [21:36:28.612]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.612]         }
  [21:36:28.612]         else {
  [21:36:28.612]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.612]         }
  [21:36:28.612]         base::close(...future.stdout)
  [21:36:28.612]         ...future.stdout <- NULL
  [21:36:28.612]     }
  [21:36:28.612]     ...future.result$conditions <- ...future.conditions
  [21:36:28.612]     ...future.result
  [21:36:28.612] }
  [21:36:28.616] plan(): Setting new future strategy stack:
  [21:36:28.617] List of future strategies:
  [21:36:28.617] 1. sequential:
  [21:36:28.617]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.617]    - tweaked: FALSE
  [21:36:28.617]    - call: NULL
  [21:36:28.617] plan(): nbrOfWorkers() = 1
  [21:36:28.618] plan(): Setting new future strategy stack:
  [21:36:28.619] List of future strategies:
  [21:36:28.619] 1. sequential:
  [21:36:28.619]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.619]    - tweaked: FALSE
  [21:36:28.619]    - call: plan("sequential")
  [21:36:28.620] plan(): nbrOfWorkers() = 1
  [21:36:28.620] SequentialFuture started (and completed)
  [21:36:28.621] getGlobalsAndPackages() ...
  [21:36:28.621] Searching for globals...
  [21:36:28.623] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.623] Searching for globals ... DONE
  [21:36:28.623] Resolving globals: FALSE
  [21:36:28.624] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.624] - globals: [1] 'x'
  [21:36:28.625] 
  [21:36:28.625] getGlobalsAndPackages() ... DONE
  [21:36:28.627] Packages needed by the future expression (n = 0): <none>
  [21:36:28.627] Packages needed by future strategies (n = 0): <none>
  [21:36:28.631] {
  [21:36:28.631]     {
  [21:36:28.631]         ...future.startTime <- base::Sys.time()
  [21:36:28.631]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.631]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.631]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.631]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.631]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.631]         {
  [21:36:28.631]             {
  [21:36:28.631]                 {
  [21:36:28.631]                   base::local({
  [21:36:28.631]                     has_future <- base::requireNamespace("future", 
  [21:36:28.631]                       quietly = TRUE)
  [21:36:28.631]                     version <- if (has_future) 
  [21:36:28.631]                       utils::packageVersion("future")
  [21:36:28.631]                     else NULL
  [21:36:28.631]                     if (!has_future || version < "1.8.0") {
  [21:36:28.631]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.631]                         "", base::R.version$version.string), 
  [21:36:28.631]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.631]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.631]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.631]                           "release", "version")], collapse = " "), 
  [21:36:28.631]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.631]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.631]                         info)
  [21:36:28.631]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.631]                       if (!has_future) {
  [21:36:28.631]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.631]                           info)
  [21:36:28.631]                       }
  [21:36:28.631]                       else {
  [21:36:28.631]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.631]                           info, version)
  [21:36:28.631]                       }
  [21:36:28.631]                       base::stop(msg)
  [21:36:28.631]                     }
  [21:36:28.631]                   })
  [21:36:28.631]                 }
  [21:36:28.631]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:28.631]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:28.631]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.631]             }
  [21:36:28.631]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.631]         }
  [21:36:28.631]     }
  [21:36:28.631]     if (base::is.na(TRUE)) {
  [21:36:28.631]     }
  [21:36:28.631]     else {
  [21:36:28.631]         if (TRUE) {
  [21:36:28.631]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.631]                 open = "w")
  [21:36:28.631]         }
  [21:36:28.631]         else {
  [21:36:28.631]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.631]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.631]         }
  [21:36:28.631]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.631]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.631]             base::sink(type = "output", split = FALSE)
  [21:36:28.631]             base::close(...future.stdout)
  [21:36:28.631]         }, add = TRUE)
  [21:36:28.631]     }
  [21:36:28.631]     ...future.frame <- base::sys.nframe()
  [21:36:28.631]     ...future.conditions <- base::list()
  [21:36:28.631]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.631]     ...future.result <- base::tryCatch({
  [21:36:28.631]         base::withCallingHandlers({
  [21:36:28.631]             ...future.value <- base::withVisible(base::local({
  [21:36:28.631]                 sample(x, size = 1L)
  [21:36:28.631]             }))
  [21:36:28.631]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.631]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.631]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.631]                 version = "1.8")
  [21:36:28.631]         }, condition = base::local({
  [21:36:28.631]             c <- base::c
  [21:36:28.631]             inherits <- base::inherits
  [21:36:28.631]             invokeRestart <- base::invokeRestart
  [21:36:28.631]             length <- base::length
  [21:36:28.631]             list <- base::list
  [21:36:28.631]             seq.int <- base::seq.int
  [21:36:28.631]             signalCondition <- base::signalCondition
  [21:36:28.631]             sys.calls <- base::sys.calls
  [21:36:28.631]             Sys.time <- base::Sys.time
  [21:36:28.631]             `[[` <- base::`[[`
  [21:36:28.631]             `+` <- base::`+`
  [21:36:28.631]             `<<-` <- base::`<<-`
  [21:36:28.631]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.631]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.631]                   3L)]
  [21:36:28.631]             }
  [21:36:28.631]             function(cond) {
  [21:36:28.631]                 if (inherits(cond, "error")) {
  [21:36:28.631]                   sessionInformation <- function() {
  [21:36:28.631]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.631]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.631]                       search = base::search(), system = base::Sys.info())
  [21:36:28.631]                   }
  [21:36:28.631]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.631]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.631]                     cond$call), session = sessionInformation(), 
  [21:36:28.631]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.631]                   signalCondition(cond)
  [21:36:28.631]                 }
  [21:36:28.631]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.631]                 ))) {
  [21:36:28.631]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.631]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.631]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.631]                   if (!signal) {
  [21:36:28.631]                     muffleCondition <- function (cond) 
  [21:36:28.631]                     {
  [21:36:28.631]                       inherits <- base::inherits
  [21:36:28.631]                       invokeRestart <- base::invokeRestart
  [21:36:28.631]                       muffled <- FALSE
  [21:36:28.631]                       if (inherits(cond, "message")) {
  [21:36:28.631]                         invokeRestart("muffleMessage")
  [21:36:28.631]                         muffled <- TRUE
  [21:36:28.631]                       }
  [21:36:28.631]                       else if (inherits(cond, "warning")) {
  [21:36:28.631]                         invokeRestart("muffleWarning")
  [21:36:28.631]                         muffled <- TRUE
  [21:36:28.631]                       }
  [21:36:28.631]                       else if (inherits(cond, "condition")) {
  [21:36:28.631]                         computeRestarts <- base::computeRestarts
  [21:36:28.631]                         grepl <- base::grepl
  [21:36:28.631]                         is.null <- base::is.null
  [21:36:28.631]                         restarts <- computeRestarts(cond)
  [21:36:28.631]                         for (restart in restarts) {
  [21:36:28.631]                           name <- restart$name
  [21:36:28.631]                           if (is.null(name)) 
  [21:36:28.631]                             next
  [21:36:28.631]                           if (!grepl("^muffle", name)) 
  [21:36:28.631]                             next
  [21:36:28.631]                           invokeRestart(restart)
  [21:36:28.631]                           muffled <- TRUE
  [21:36:28.631]                           break
  [21:36:28.631]                         }
  [21:36:28.631]                       }
  [21:36:28.631]                       invisible(muffled)
  [21:36:28.631]                     }
  [21:36:28.631]                     muffleCondition(cond)
  [21:36:28.631]                   }
  [21:36:28.631]                 }
  [21:36:28.631]             }
  [21:36:28.631]         }))
  [21:36:28.631]     }, error = function(ex) {
  [21:36:28.631]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.631]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.631]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.631]     }, finally = {
  [21:36:28.631]         {
  [21:36:28.631]             NULL
  [21:36:28.631]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.631]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.631]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.631]                 label = NULL, ...) 
  [21:36:28.631]             {
  [21:36:28.631]                 if (substitute) 
  [21:36:28.631]                   expr <- substitute(expr)
  [21:36:28.631]                 local <- as.logical(local)
  [21:36:28.631]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.631]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.631]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.631]                   label = label, ...)
  [21:36:28.631]                 if (!future$lazy) 
  [21:36:28.631]                   future <- run(future)
  [21:36:28.631]                 invisible(future)
  [21:36:28.631]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.631]         }
  [21:36:28.631]         base::options(...future.oldOptions)
  [21:36:28.631]     })
  [21:36:28.631]     Sys.time
  [21:36:28.631]     if (base::is.na(TRUE)) {
  [21:36:28.631]     }
  [21:36:28.631]     else {
  [21:36:28.631]         base::sink(type = "output", split = FALSE)
  [21:36:28.631]         if (TRUE) {
  [21:36:28.631]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.631]         }
  [21:36:28.631]         else {
  [21:36:28.631]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.631]         }
  [21:36:28.631]         base::close(...future.stdout)
  [21:36:28.631]         ...future.stdout <- NULL
  [21:36:28.631]     }
  [21:36:28.631]     ...future.result$conditions <- ...future.conditions
  [21:36:28.631]     ...future.result
  [21:36:28.631] }
  [21:36:28.636] plan(): Setting new future strategy stack:
  [21:36:28.637] List of future strategies:
  [21:36:28.637] 1. sequential:
  [21:36:28.637]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.637]    - tweaked: FALSE
  [21:36:28.637]    - call: NULL
  [21:36:28.638] plan(): nbrOfWorkers() = 1
  [21:36:28.639] plan(): Setting new future strategy stack:
  [21:36:28.639] List of future strategies:
  [21:36:28.639] 1. sequential:
  [21:36:28.639]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.639]    - tweaked: FALSE
  [21:36:28.639]    - call: plan("sequential")
  [21:36:28.640] plan(): nbrOfWorkers() = 1
  [21:36:28.640] SequentialFuture started (and completed)
  [21:36:28.641] getGlobalsAndPackages() ...
  [21:36:28.641] Searching for globals...
  [21:36:28.643] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.643] Searching for globals ... DONE
  [21:36:28.643] Resolving globals: FALSE
  [21:36:28.644] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.644] - globals: [1] 'x'
  [21:36:28.645] 
  [21:36:28.645] getGlobalsAndPackages() ... DONE
  [21:36:28.647] Packages needed by the future expression (n = 0): <none>
  [21:36:28.647] Packages needed by future strategies (n = 0): <none>
  [21:36:28.651] {
  [21:36:28.651]     {
  [21:36:28.651]         ...future.startTime <- base::Sys.time()
  [21:36:28.651]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.651]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.651]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.651]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.651]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.651]         {
  [21:36:28.651]             {
  [21:36:28.651]                 {
  [21:36:28.651]                   base::local({
  [21:36:28.651]                     has_future <- base::requireNamespace("future", 
  [21:36:28.651]                       quietly = TRUE)
  [21:36:28.651]                     version <- if (has_future) 
  [21:36:28.651]                       utils::packageVersion("future")
  [21:36:28.651]                     else NULL
  [21:36:28.651]                     if (!has_future || version < "1.8.0") {
  [21:36:28.651]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.651]                         "", base::R.version$version.string), 
  [21:36:28.651]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.651]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.651]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.651]                           "release", "version")], collapse = " "), 
  [21:36:28.651]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.651]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.651]                         info)
  [21:36:28.651]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.651]                       if (!has_future) {
  [21:36:28.651]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.651]                           info)
  [21:36:28.651]                       }
  [21:36:28.651]                       else {
  [21:36:28.651]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.651]                           info, version)
  [21:36:28.651]                       }
  [21:36:28.651]                       base::stop(msg)
  [21:36:28.651]                     }
  [21:36:28.651]                   })
  [21:36:28.651]                 }
  [21:36:28.651]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:28.651]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:28.651]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.651]             }
  [21:36:28.651]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.651]         }
  [21:36:28.651]     }
  [21:36:28.651]     if (base::is.na(TRUE)) {
  [21:36:28.651]     }
  [21:36:28.651]     else {
  [21:36:28.651]         if (TRUE) {
  [21:36:28.651]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.651]                 open = "w")
  [21:36:28.651]         }
  [21:36:28.651]         else {
  [21:36:28.651]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.651]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.651]         }
  [21:36:28.651]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.651]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.651]             base::sink(type = "output", split = FALSE)
  [21:36:28.651]             base::close(...future.stdout)
  [21:36:28.651]         }, add = TRUE)
  [21:36:28.651]     }
  [21:36:28.651]     ...future.frame <- base::sys.nframe()
  [21:36:28.651]     ...future.conditions <- base::list()
  [21:36:28.651]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.651]     ...future.result <- base::tryCatch({
  [21:36:28.651]         base::withCallingHandlers({
  [21:36:28.651]             ...future.value <- base::withVisible(base::local({
  [21:36:28.651]                 sample(x, size = 1L)
  [21:36:28.651]             }))
  [21:36:28.651]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.651]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.651]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.651]                 version = "1.8")
  [21:36:28.651]         }, condition = base::local({
  [21:36:28.651]             c <- base::c
  [21:36:28.651]             inherits <- base::inherits
  [21:36:28.651]             invokeRestart <- base::invokeRestart
  [21:36:28.651]             length <- base::length
  [21:36:28.651]             list <- base::list
  [21:36:28.651]             seq.int <- base::seq.int
  [21:36:28.651]             signalCondition <- base::signalCondition
  [21:36:28.651]             sys.calls <- base::sys.calls
  [21:36:28.651]             Sys.time <- base::Sys.time
  [21:36:28.651]             `[[` <- base::`[[`
  [21:36:28.651]             `+` <- base::`+`
  [21:36:28.651]             `<<-` <- base::`<<-`
  [21:36:28.651]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.651]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.651]                   3L)]
  [21:36:28.651]             }
  [21:36:28.651]             function(cond) {
  [21:36:28.651]                 if (inherits(cond, "error")) {
  [21:36:28.651]                   sessionInformation <- function() {
  [21:36:28.651]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.651]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.651]                       search = base::search(), system = base::Sys.info())
  [21:36:28.651]                   }
  [21:36:28.651]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.651]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.651]                     cond$call), session = sessionInformation(), 
  [21:36:28.651]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.651]                   signalCondition(cond)
  [21:36:28.651]                 }
  [21:36:28.651]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.651]                 ))) {
  [21:36:28.651]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.651]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.651]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.651]                   if (!signal) {
  [21:36:28.651]                     muffleCondition <- function (cond) 
  [21:36:28.651]                     {
  [21:36:28.651]                       inherits <- base::inherits
  [21:36:28.651]                       invokeRestart <- base::invokeRestart
  [21:36:28.651]                       muffled <- FALSE
  [21:36:28.651]                       if (inherits(cond, "message")) {
  [21:36:28.651]                         invokeRestart("muffleMessage")
  [21:36:28.651]                         muffled <- TRUE
  [21:36:28.651]                       }
  [21:36:28.651]                       else if (inherits(cond, "warning")) {
  [21:36:28.651]                         invokeRestart("muffleWarning")
  [21:36:28.651]                         muffled <- TRUE
  [21:36:28.651]                       }
  [21:36:28.651]                       else if (inherits(cond, "condition")) {
  [21:36:28.651]                         computeRestarts <- base::computeRestarts
  [21:36:28.651]                         grepl <- base::grepl
  [21:36:28.651]                         is.null <- base::is.null
  [21:36:28.651]                         restarts <- computeRestarts(cond)
  [21:36:28.651]                         for (restart in restarts) {
  [21:36:28.651]                           name <- restart$name
  [21:36:28.651]                           if (is.null(name)) 
  [21:36:28.651]                             next
  [21:36:28.651]                           if (!grepl("^muffle", name)) 
  [21:36:28.651]                             next
  [21:36:28.651]                           invokeRestart(restart)
  [21:36:28.651]                           muffled <- TRUE
  [21:36:28.651]                           break
  [21:36:28.651]                         }
  [21:36:28.651]                       }
  [21:36:28.651]                       invisible(muffled)
  [21:36:28.651]                     }
  [21:36:28.651]                     muffleCondition(cond)
  [21:36:28.651]                   }
  [21:36:28.651]                 }
  [21:36:28.651]             }
  [21:36:28.651]         }))
  [21:36:28.651]     }, error = function(ex) {
  [21:36:28.651]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.651]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.651]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.651]     }, finally = {
  [21:36:28.651]         {
  [21:36:28.651]             NULL
  [21:36:28.651]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.651]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.651]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.651]                 label = NULL, ...) 
  [21:36:28.651]             {
  [21:36:28.651]                 if (substitute) 
  [21:36:28.651]                   expr <- substitute(expr)
  [21:36:28.651]                 local <- as.logical(local)
  [21:36:28.651]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.651]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.651]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.651]                   label = label, ...)
  [21:36:28.651]                 if (!future$lazy) 
  [21:36:28.651]                   future <- run(future)
  [21:36:28.651]                 invisible(future)
  [21:36:28.651]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.651]         }
  [21:36:28.651]         base::options(...future.oldOptions)
  [21:36:28.651]     })
  [21:36:28.651]     Sys.time
  [21:36:28.651]     if (base::is.na(TRUE)) {
  [21:36:28.651]     }
  [21:36:28.651]     else {
  [21:36:28.651]         base::sink(type = "output", split = FALSE)
  [21:36:28.651]         if (TRUE) {
  [21:36:28.651]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.651]         }
  [21:36:28.651]         else {
  [21:36:28.651]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.651]         }
  [21:36:28.651]         base::close(...future.stdout)
  [21:36:28.651]         ...future.stdout <- NULL
  [21:36:28.651]     }
  [21:36:28.651]     ...future.result$conditions <- ...future.conditions
  [21:36:28.651]     ...future.result
  [21:36:28.651] }
  [21:36:28.656] plan(): Setting new future strategy stack:
  [21:36:28.656] List of future strategies:
  [21:36:28.656] 1. sequential:
  [21:36:28.656]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.656]    - tweaked: FALSE
  [21:36:28.656]    - call: NULL
  [21:36:28.657] plan(): nbrOfWorkers() = 1
  [21:36:28.658] plan(): Setting new future strategy stack:
  [21:36:28.659] List of future strategies:
  [21:36:28.659] 1. sequential:
  [21:36:28.659]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.659]    - tweaked: FALSE
  [21:36:28.659]    - call: plan("sequential")
  [21:36:28.659] plan(): nbrOfWorkers() = 1
  [21:36:28.660] SequentialFuture started (and completed)
  [21:36:28.661] resolve() on list ...
  [21:36:28.661]  recursive: 0
  [21:36:28.662]  length: 4
  [21:36:28.662] 
  [21:36:28.663] Future #1
  [21:36:28.663] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:28.664] - nx: 4
  [21:36:28.664] - relay: TRUE
  [21:36:28.664] - stdout: TRUE
  [21:36:28.664] - signal: TRUE
  [21:36:28.665] - resignal: FALSE
  [21:36:28.665] - force: TRUE
  [21:36:28.665] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:28.665] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:28.665]  - until=1
  [21:36:28.666]  - relaying element #1
  [21:36:28.666] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.666] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.667] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:28.667]  length: 3 (resolved future 1)
  [21:36:28.668] Future #2
  [21:36:28.668] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:28.668] - nx: 4
  [21:36:28.668] - relay: TRUE
  [21:36:28.669] - stdout: TRUE
  [21:36:28.669] - signal: TRUE
  [21:36:28.669] - resignal: FALSE
  [21:36:28.669] - force: TRUE
  [21:36:28.673] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.673] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.673]  - until=2
  [21:36:28.674]  - relaying element #2
  [21:36:28.674] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.674] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.675] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:28.675]  length: 2 (resolved future 2)
  [21:36:28.675] Future #3
  [21:36:28.676] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:28.676] - nx: 4
  [21:36:28.676] - relay: TRUE
  [21:36:28.676] - stdout: TRUE
  [21:36:28.677] - signal: TRUE
  [21:36:28.677] - resignal: FALSE
  [21:36:28.677] - force: TRUE
  [21:36:28.677] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.677] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.678]  - until=3
  [21:36:28.678]  - relaying element #3
  [21:36:28.678] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.679] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.679] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:28.679]  length: 1 (resolved future 3)
  [21:36:28.680] Future #4
  [21:36:28.680] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:28.680] - nx: 4
  [21:36:28.680] - relay: TRUE
  [21:36:28.681] - stdout: TRUE
  [21:36:28.681] - signal: TRUE
  [21:36:28.681] - resignal: FALSE
  [21:36:28.681] - force: TRUE
  [21:36:28.681] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.682] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.682]  - until=4
  [21:36:28.682]  - relaying element #4
  [21:36:28.683] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.683] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.683] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:28.684]  length: 0 (resolved future 4)
  [21:36:28.684] Relaying remaining futures
  [21:36:28.684] signalConditionsASAP(NULL, pos=0) ...
  [21:36:28.684] - nx: 4
  [21:36:28.684] - relay: TRUE
  [21:36:28.685] - stdout: TRUE
  [21:36:28.685] - signal: TRUE
  [21:36:28.685] - resignal: FALSE
  [21:36:28.685] - force: TRUE
  [21:36:28.686] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.686] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:28.686] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.686] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.687] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:28.687] resolve() on list ... DONE
  > 
  > ## Assert that random seed is reset
  > stopifnot(identical(.GlobalEnv$.Random.seed, seed0))
  > 
  > 
  > for (cores in 1:availCores) {
  +   ## Speed up CRAN checks: Skip on CRAN Windows 32-bit
  +   if (!fullTest && isWin32) next
  +   
  +   message(sprintf("Testing with %d cores ...", cores))
  +   options(mc.cores = cores)
  + 
  +   for (strategy in supportedStrategies(cores)) {
  +     message(sprintf("%s ...", strategy))
  + 
  +     plan(strategy)
  + 
  +     for (what in c("future", "%<-%")) {
  +       .GlobalEnv$.Random.seed <- seed0
  + 
  +       ## Fixed random seed
  +       y1 <- fsample(0:3, seed = 42L, what = what)
  +       print(y1)
  +       stopifnot(identical(y1, y0))
  +   
  +       ## Assert that random seed is reset
  +       stopifnot(identical(.GlobalEnv$.Random.seed, seed0))
  +   
  +       ## Fixed random seed
  +       y2 <- fsample(0:3, seed = 42L, what = what)
  +       print(y2)
  +       stopifnot(identical(y2, y1))
  +       stopifnot(identical(y2, y0))
  +   
  +       ## Assert that random seed is reset
  +       stopifnot(identical(.GlobalEnv$.Random.seed, seed0))
  +   
  +       ## No seed
  +       for (misuse in c("ignore", "warning", "error")) {
  +         options(future.rng.onMisuse = misuse)
  + 
  +         y3 <- tryCatch({
  + 	  ## WORKAROUND: fsample() triggers a R_FUTURE_GLOBALS_ONREFERENCE
  + 	  ##             warning.  Not sure why. /HB 2019-12-27
  + 	  ovalue <- Sys.getenv("R_FUTURE_GLOBALS_ONREFERENCE")
  + 	  on.exit(Sys.setenv("R_FUTURE_GLOBALS_ONREFERENCE" = ovalue))
  + 	  Sys.setenv("R_FUTURE_GLOBALS_ONREFERENCE" = "ignore")
  + 	  
  +           fsample(0:3, what = what, seed = FALSE)
  +         }, warning = identity, error = identity)
  +         print(y3)
  +         if (misuse %in% c("warning", "error")) {
  +           stopifnot(inherits(y3, misuse))
  +         }
  + 
  +         ## seed = NULL equals seed = FALSE but without the check of misuse
  +         y4 <- fsample(0:3, what = what, seed = NULL)
  +         print(y4)
  +       }
  +       
  +       options(future.rng.onMisuse = "ignore")
  +     }
  + 
  +     message(sprintf("%s ... done", strategy))
  +   }
  + 
  +   message(sprintf("Testing with %d cores ... DONE", cores))
  + } ## for (cores ...)
  Testing with 1 cores ...
  sequential ...
  [21:36:28.748] plan(): Setting new future strategy stack:
  [21:36:28.748] List of future strategies:
  [21:36:28.748] 1. sequential:
  [21:36:28.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.748]    - tweaked: FALSE
  [21:36:28.748]    - call: plan(strategy)
  [21:36:28.749] plan(): nbrOfWorkers() = 1
  [21:36:28.749] getGlobalsAndPackages() ...
  [21:36:28.749] Searching for globals...
  [21:36:28.751] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.752] Searching for globals ... DONE
  [21:36:28.752] Resolving globals: FALSE
  [21:36:28.753] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.753] - globals: [1] 'x'
  [21:36:28.753] 
  [21:36:28.754] getGlobalsAndPackages() ... DONE
  [21:36:28.756] Packages needed by the future expression (n = 0): <none>
  [21:36:28.757] Packages needed by future strategies (n = 0): <none>
  [21:36:28.761] {
  [21:36:28.761]     {
  [21:36:28.761]         ...future.startTime <- base::Sys.time()
  [21:36:28.761]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.761]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.761]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.761]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.761]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.761]         {
  [21:36:28.761]             {
  [21:36:28.761]                 {
  [21:36:28.761]                   base::local({
  [21:36:28.761]                     has_future <- base::requireNamespace("future", 
  [21:36:28.761]                       quietly = TRUE)
  [21:36:28.761]                     version <- if (has_future) 
  [21:36:28.761]                       utils::packageVersion("future")
  [21:36:28.761]                     else NULL
  [21:36:28.761]                     if (!has_future || version < "1.8.0") {
  [21:36:28.761]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.761]                         "", base::R.version$version.string), 
  [21:36:28.761]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.761]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.761]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.761]                           "release", "version")], collapse = " "), 
  [21:36:28.761]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.761]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.761]                         info)
  [21:36:28.761]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.761]                       if (!has_future) {
  [21:36:28.761]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.761]                           info)
  [21:36:28.761]                       }
  [21:36:28.761]                       else {
  [21:36:28.761]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.761]                           info, version)
  [21:36:28.761]                       }
  [21:36:28.761]                       base::stop(msg)
  [21:36:28.761]                     }
  [21:36:28.761]                   })
  [21:36:28.761]                 }
  [21:36:28.761]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:28.761]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:28.761]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.761]             }
  [21:36:28.761]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.761]         }
  [21:36:28.761]     }
  [21:36:28.761]     if (base::is.na(TRUE)) {
  [21:36:28.761]     }
  [21:36:28.761]     else {
  [21:36:28.761]         if (TRUE) {
  [21:36:28.761]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.761]                 open = "w")
  [21:36:28.761]         }
  [21:36:28.761]         else {
  [21:36:28.761]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.761]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.761]         }
  [21:36:28.761]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.761]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.761]             base::sink(type = "output", split = FALSE)
  [21:36:28.761]             base::close(...future.stdout)
  [21:36:28.761]         }, add = TRUE)
  [21:36:28.761]     }
  [21:36:28.761]     ...future.frame <- base::sys.nframe()
  [21:36:28.761]     ...future.conditions <- base::list()
  [21:36:28.761]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.761]     ...future.result <- base::tryCatch({
  [21:36:28.761]         base::withCallingHandlers({
  [21:36:28.761]             ...future.value <- base::withVisible(base::local({
  [21:36:28.761]                 sample(x, size = 1L)
  [21:36:28.761]             }))
  [21:36:28.761]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.761]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.761]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.761]                 version = "1.8")
  [21:36:28.761]         }, condition = base::local({
  [21:36:28.761]             c <- base::c
  [21:36:28.761]             inherits <- base::inherits
  [21:36:28.761]             invokeRestart <- base::invokeRestart
  [21:36:28.761]             length <- base::length
  [21:36:28.761]             list <- base::list
  [21:36:28.761]             seq.int <- base::seq.int
  [21:36:28.761]             signalCondition <- base::signalCondition
  [21:36:28.761]             sys.calls <- base::sys.calls
  [21:36:28.761]             Sys.time <- base::Sys.time
  [21:36:28.761]             `[[` <- base::`[[`
  [21:36:28.761]             `+` <- base::`+`
  [21:36:28.761]             `<<-` <- base::`<<-`
  [21:36:28.761]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.761]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.761]                   3L)]
  [21:36:28.761]             }
  [21:36:28.761]             function(cond) {
  [21:36:28.761]                 if (inherits(cond, "error")) {
  [21:36:28.761]                   sessionInformation <- function() {
  [21:36:28.761]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.761]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.761]                       search = base::search(), system = base::Sys.info())
  [21:36:28.761]                   }
  [21:36:28.761]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.761]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.761]                     cond$call), session = sessionInformation(), 
  [21:36:28.761]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.761]                   signalCondition(cond)
  [21:36:28.761]                 }
  [21:36:28.761]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.761]                 ))) {
  [21:36:28.761]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.761]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.761]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.761]                   if (!signal) {
  [21:36:28.761]                     muffleCondition <- function (cond) 
  [21:36:28.761]                     {
  [21:36:28.761]                       inherits <- base::inherits
  [21:36:28.761]                       invokeRestart <- base::invokeRestart
  [21:36:28.761]                       muffled <- FALSE
  [21:36:28.761]                       if (inherits(cond, "message")) {
  [21:36:28.761]                         invokeRestart("muffleMessage")
  [21:36:28.761]                         muffled <- TRUE
  [21:36:28.761]                       }
  [21:36:28.761]                       else if (inherits(cond, "warning")) {
  [21:36:28.761]                         invokeRestart("muffleWarning")
  [21:36:28.761]                         muffled <- TRUE
  [21:36:28.761]                       }
  [21:36:28.761]                       else if (inherits(cond, "condition")) {
  [21:36:28.761]                         computeRestarts <- base::computeRestarts
  [21:36:28.761]                         grepl <- base::grepl
  [21:36:28.761]                         is.null <- base::is.null
  [21:36:28.761]                         restarts <- computeRestarts(cond)
  [21:36:28.761]                         for (restart in restarts) {
  [21:36:28.761]                           name <- restart$name
  [21:36:28.761]                           if (is.null(name)) 
  [21:36:28.761]                             next
  [21:36:28.761]                           if (!grepl("^muffle", name)) 
  [21:36:28.761]                             next
  [21:36:28.761]                           invokeRestart(restart)
  [21:36:28.761]                           muffled <- TRUE
  [21:36:28.761]                           break
  [21:36:28.761]                         }
  [21:36:28.761]                       }
  [21:36:28.761]                       invisible(muffled)
  [21:36:28.761]                     }
  [21:36:28.761]                     muffleCondition(cond)
  [21:36:28.761]                   }
  [21:36:28.761]                 }
  [21:36:28.761]             }
  [21:36:28.761]         }))
  [21:36:28.761]     }, error = function(ex) {
  [21:36:28.761]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.761]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.761]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.761]     }, finally = {
  [21:36:28.761]         {
  [21:36:28.761]             NULL
  [21:36:28.761]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.761]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.761]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.761]                 label = NULL, ...) 
  [21:36:28.761]             {
  [21:36:28.761]                 if (substitute) 
  [21:36:28.761]                   expr <- substitute(expr)
  [21:36:28.761]                 local <- as.logical(local)
  [21:36:28.761]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.761]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.761]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.761]                   label = label, ...)
  [21:36:28.761]                 if (!future$lazy) 
  [21:36:28.761]                   future <- run(future)
  [21:36:28.761]                 invisible(future)
  [21:36:28.761]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.761]         }
  [21:36:28.761]         base::options(...future.oldOptions)
  [21:36:28.761]     })
  [21:36:28.761]     Sys.time
  [21:36:28.761]     if (base::is.na(TRUE)) {
  [21:36:28.761]     }
  [21:36:28.761]     else {
  [21:36:28.761]         base::sink(type = "output", split = FALSE)
  [21:36:28.761]         if (TRUE) {
  [21:36:28.761]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.761]         }
  [21:36:28.761]         else {
  [21:36:28.761]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.761]         }
  [21:36:28.761]         base::close(...future.stdout)
  [21:36:28.761]         ...future.stdout <- NULL
  [21:36:28.761]     }
  [21:36:28.761]     ...future.result$conditions <- ...future.conditions
  [21:36:28.761]     ...future.result
  [21:36:28.761] }
  [21:36:28.765] plan(): Setting new future strategy stack:
  [21:36:28.765] List of future strategies:
  [21:36:28.765] 1. sequential:
  [21:36:28.765]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.765]    - tweaked: FALSE
  [21:36:28.765]    - call: NULL
  [21:36:28.766] plan(): nbrOfWorkers() = 1
  [21:36:28.767] plan(): Setting new future strategy stack:
  [21:36:28.768] List of future strategies:
  [21:36:28.768] 1. sequential:
  [21:36:28.768]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.768]    - tweaked: FALSE
  [21:36:28.768]    - call: plan(strategy)
  [21:36:28.768] plan(): nbrOfWorkers() = 1
  [21:36:28.769] SequentialFuture started (and completed)
  [21:36:28.769] getGlobalsAndPackages() ...
  [21:36:28.770] Searching for globals...
  [21:36:28.772] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.772] Searching for globals ... DONE
  [21:36:28.772] Resolving globals: FALSE
  [21:36:28.773] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.773] - globals: [1] 'x'
  [21:36:28.774] 
  [21:36:28.774] getGlobalsAndPackages() ... DONE
  [21:36:28.776] Packages needed by the future expression (n = 0): <none>
  [21:36:28.776] Packages needed by future strategies (n = 0): <none>
  [21:36:28.780] {
  [21:36:28.780]     {
  [21:36:28.780]         ...future.startTime <- base::Sys.time()
  [21:36:28.780]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.780]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.780]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.780]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.780]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.780]         {
  [21:36:28.780]             {
  [21:36:28.780]                 {
  [21:36:28.780]                   base::local({
  [21:36:28.780]                     has_future <- base::requireNamespace("future", 
  [21:36:28.780]                       quietly = TRUE)
  [21:36:28.780]                     version <- if (has_future) 
  [21:36:28.780]                       utils::packageVersion("future")
  [21:36:28.780]                     else NULL
  [21:36:28.780]                     if (!has_future || version < "1.8.0") {
  [21:36:28.780]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.780]                         "", base::R.version$version.string), 
  [21:36:28.780]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.780]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.780]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.780]                           "release", "version")], collapse = " "), 
  [21:36:28.780]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.780]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.780]                         info)
  [21:36:28.780]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.780]                       if (!has_future) {
  [21:36:28.780]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.780]                           info)
  [21:36:28.780]                       }
  [21:36:28.780]                       else {
  [21:36:28.780]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.780]                           info, version)
  [21:36:28.780]                       }
  [21:36:28.780]                       base::stop(msg)
  [21:36:28.780]                     }
  [21:36:28.780]                   })
  [21:36:28.780]                 }
  [21:36:28.780]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:28.780]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:28.780]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.780]             }
  [21:36:28.780]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.780]         }
  [21:36:28.780]     }
  [21:36:28.780]     if (base::is.na(TRUE)) {
  [21:36:28.780]     }
  [21:36:28.780]     else {
  [21:36:28.780]         if (TRUE) {
  [21:36:28.780]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.780]                 open = "w")
  [21:36:28.780]         }
  [21:36:28.780]         else {
  [21:36:28.780]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.780]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.780]         }
  [21:36:28.780]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.780]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.780]             base::sink(type = "output", split = FALSE)
  [21:36:28.780]             base::close(...future.stdout)
  [21:36:28.780]         }, add = TRUE)
  [21:36:28.780]     }
  [21:36:28.780]     ...future.frame <- base::sys.nframe()
  [21:36:28.780]     ...future.conditions <- base::list()
  [21:36:28.780]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.780]     ...future.result <- base::tryCatch({
  [21:36:28.780]         base::withCallingHandlers({
  [21:36:28.780]             ...future.value <- base::withVisible(base::local({
  [21:36:28.780]                 sample(x, size = 1L)
  [21:36:28.780]             }))
  [21:36:28.780]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.780]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.780]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.780]                 version = "1.8")
  [21:36:28.780]         }, condition = base::local({
  [21:36:28.780]             c <- base::c
  [21:36:28.780]             inherits <- base::inherits
  [21:36:28.780]             invokeRestart <- base::invokeRestart
  [21:36:28.780]             length <- base::length
  [21:36:28.780]             list <- base::list
  [21:36:28.780]             seq.int <- base::seq.int
  [21:36:28.780]             signalCondition <- base::signalCondition
  [21:36:28.780]             sys.calls <- base::sys.calls
  [21:36:28.780]             Sys.time <- base::Sys.time
  [21:36:28.780]             `[[` <- base::`[[`
  [21:36:28.780]             `+` <- base::`+`
  [21:36:28.780]             `<<-` <- base::`<<-`
  [21:36:28.780]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.780]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.780]                   3L)]
  [21:36:28.780]             }
  [21:36:28.780]             function(cond) {
  [21:36:28.780]                 if (inherits(cond, "error")) {
  [21:36:28.780]                   sessionInformation <- function() {
  [21:36:28.780]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.780]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.780]                       search = base::search(), system = base::Sys.info())
  [21:36:28.780]                   }
  [21:36:28.780]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.780]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.780]                     cond$call), session = sessionInformation(), 
  [21:36:28.780]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.780]                   signalCondition(cond)
  [21:36:28.780]                 }
  [21:36:28.780]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.780]                 ))) {
  [21:36:28.780]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.780]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.780]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.780]                   if (!signal) {
  [21:36:28.780]                     muffleCondition <- function (cond) 
  [21:36:28.780]                     {
  [21:36:28.780]                       inherits <- base::inherits
  [21:36:28.780]                       invokeRestart <- base::invokeRestart
  [21:36:28.780]                       muffled <- FALSE
  [21:36:28.780]                       if (inherits(cond, "message")) {
  [21:36:28.780]                         invokeRestart("muffleMessage")
  [21:36:28.780]                         muffled <- TRUE
  [21:36:28.780]                       }
  [21:36:28.780]                       else if (inherits(cond, "warning")) {
  [21:36:28.780]                         invokeRestart("muffleWarning")
  [21:36:28.780]                         muffled <- TRUE
  [21:36:28.780]                       }
  [21:36:28.780]                       else if (inherits(cond, "condition")) {
  [21:36:28.780]                         computeRestarts <- base::computeRestarts
  [21:36:28.780]                         grepl <- base::grepl
  [21:36:28.780]                         is.null <- base::is.null
  [21:36:28.780]                         restarts <- computeRestarts(cond)
  [21:36:28.780]                         for (restart in restarts) {
  [21:36:28.780]                           name <- restart$name
  [21:36:28.780]                           if (is.null(name)) 
  [21:36:28.780]                             next
  [21:36:28.780]                           if (!grepl("^muffle", name)) 
  [21:36:28.780]                             next
  [21:36:28.780]                           invokeRestart(restart)
  [21:36:28.780]                           muffled <- TRUE
  [21:36:28.780]                           break
  [21:36:28.780]                         }
  [21:36:28.780]                       }
  [21:36:28.780]                       invisible(muffled)
  [21:36:28.780]                     }
  [21:36:28.780]                     muffleCondition(cond)
  [21:36:28.780]                   }
  [21:36:28.780]                 }
  [21:36:28.780]             }
  [21:36:28.780]         }))
  [21:36:28.780]     }, error = function(ex) {
  [21:36:28.780]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.780]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.780]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.780]     }, finally = {
  [21:36:28.780]         {
  [21:36:28.780]             NULL
  [21:36:28.780]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.780]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.780]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.780]                 label = NULL, ...) 
  [21:36:28.780]             {
  [21:36:28.780]                 if (substitute) 
  [21:36:28.780]                   expr <- substitute(expr)
  [21:36:28.780]                 local <- as.logical(local)
  [21:36:28.780]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.780]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.780]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.780]                   label = label, ...)
  [21:36:28.780]                 if (!future$lazy) 
  [21:36:28.780]                   future <- run(future)
  [21:36:28.780]                 invisible(future)
  [21:36:28.780]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.780]         }
  [21:36:28.780]         base::options(...future.oldOptions)
  [21:36:28.780]     })
  [21:36:28.780]     Sys.time
  [21:36:28.780]     if (base::is.na(TRUE)) {
  [21:36:28.780]     }
  [21:36:28.780]     else {
  [21:36:28.780]         base::sink(type = "output", split = FALSE)
  [21:36:28.780]         if (TRUE) {
  [21:36:28.780]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.780]         }
  [21:36:28.780]         else {
  [21:36:28.780]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.780]         }
  [21:36:28.780]         base::close(...future.stdout)
  [21:36:28.780]         ...future.stdout <- NULL
  [21:36:28.780]     }
  [21:36:28.780]     ...future.result$conditions <- ...future.conditions
  [21:36:28.780]     ...future.result
  [21:36:28.780] }
  [21:36:28.785] plan(): Setting new future strategy stack:
  [21:36:28.785] List of future strategies:
  [21:36:28.785] 1. sequential:
  [21:36:28.785]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.785]    - tweaked: FALSE
  [21:36:28.785]    - call: NULL
  [21:36:28.786] plan(): nbrOfWorkers() = 1
  [21:36:28.787] plan(): Setting new future strategy stack:
  [21:36:28.787] List of future strategies:
  [21:36:28.787] 1. sequential:
  [21:36:28.787]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.787]    - tweaked: FALSE
  [21:36:28.787]    - call: plan(strategy)
  [21:36:28.788] plan(): nbrOfWorkers() = 1
  [21:36:28.789] SequentialFuture started (and completed)
  [21:36:28.789] getGlobalsAndPackages() ...
  [21:36:28.789] Searching for globals...
  [21:36:28.791] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.791] Searching for globals ... DONE
  [21:36:28.792] Resolving globals: FALSE
  [21:36:28.792] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.793] - globals: [1] 'x'
  [21:36:28.793] 
  [21:36:28.793] getGlobalsAndPackages() ... DONE
  [21:36:28.795] Packages needed by the future expression (n = 0): <none>
  [21:36:28.795] Packages needed by future strategies (n = 0): <none>
  [21:36:28.799] {
  [21:36:28.799]     {
  [21:36:28.799]         ...future.startTime <- base::Sys.time()
  [21:36:28.799]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.799]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.799]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.799]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.799]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.799]         {
  [21:36:28.799]             {
  [21:36:28.799]                 {
  [21:36:28.799]                   base::local({
  [21:36:28.799]                     has_future <- base::requireNamespace("future", 
  [21:36:28.799]                       quietly = TRUE)
  [21:36:28.799]                     version <- if (has_future) 
  [21:36:28.799]                       utils::packageVersion("future")
  [21:36:28.799]                     else NULL
  [21:36:28.799]                     if (!has_future || version < "1.8.0") {
  [21:36:28.799]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.799]                         "", base::R.version$version.string), 
  [21:36:28.799]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.799]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.799]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.799]                           "release", "version")], collapse = " "), 
  [21:36:28.799]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.799]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.799]                         info)
  [21:36:28.799]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.799]                       if (!has_future) {
  [21:36:28.799]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.799]                           info)
  [21:36:28.799]                       }
  [21:36:28.799]                       else {
  [21:36:28.799]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.799]                           info, version)
  [21:36:28.799]                       }
  [21:36:28.799]                       base::stop(msg)
  [21:36:28.799]                     }
  [21:36:28.799]                   })
  [21:36:28.799]                 }
  [21:36:28.799]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:28.799]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:28.799]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.799]             }
  [21:36:28.799]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.799]         }
  [21:36:28.799]     }
  [21:36:28.799]     if (base::is.na(TRUE)) {
  [21:36:28.799]     }
  [21:36:28.799]     else {
  [21:36:28.799]         if (TRUE) {
  [21:36:28.799]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.799]                 open = "w")
  [21:36:28.799]         }
  [21:36:28.799]         else {
  [21:36:28.799]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.799]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.799]         }
  [21:36:28.799]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.799]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.799]             base::sink(type = "output", split = FALSE)
  [21:36:28.799]             base::close(...future.stdout)
  [21:36:28.799]         }, add = TRUE)
  [21:36:28.799]     }
  [21:36:28.799]     ...future.frame <- base::sys.nframe()
  [21:36:28.799]     ...future.conditions <- base::list()
  [21:36:28.799]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.799]     ...future.result <- base::tryCatch({
  [21:36:28.799]         base::withCallingHandlers({
  [21:36:28.799]             ...future.value <- base::withVisible(base::local({
  [21:36:28.799]                 sample(x, size = 1L)
  [21:36:28.799]             }))
  [21:36:28.799]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.799]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.799]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.799]                 version = "1.8")
  [21:36:28.799]         }, condition = base::local({
  [21:36:28.799]             c <- base::c
  [21:36:28.799]             inherits <- base::inherits
  [21:36:28.799]             invokeRestart <- base::invokeRestart
  [21:36:28.799]             length <- base::length
  [21:36:28.799]             list <- base::list
  [21:36:28.799]             seq.int <- base::seq.int
  [21:36:28.799]             signalCondition <- base::signalCondition
  [21:36:28.799]             sys.calls <- base::sys.calls
  [21:36:28.799]             Sys.time <- base::Sys.time
  [21:36:28.799]             `[[` <- base::`[[`
  [21:36:28.799]             `+` <- base::`+`
  [21:36:28.799]             `<<-` <- base::`<<-`
  [21:36:28.799]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.799]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.799]                   3L)]
  [21:36:28.799]             }
  [21:36:28.799]             function(cond) {
  [21:36:28.799]                 if (inherits(cond, "error")) {
  [21:36:28.799]                   sessionInformation <- function() {
  [21:36:28.799]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.799]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.799]                       search = base::search(), system = base::Sys.info())
  [21:36:28.799]                   }
  [21:36:28.799]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.799]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.799]                     cond$call), session = sessionInformation(), 
  [21:36:28.799]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.799]                   signalCondition(cond)
  [21:36:28.799]                 }
  [21:36:28.799]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.799]                 ))) {
  [21:36:28.799]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.799]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.799]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.799]                   if (!signal) {
  [21:36:28.799]                     muffleCondition <- function (cond) 
  [21:36:28.799]                     {
  [21:36:28.799]                       inherits <- base::inherits
  [21:36:28.799]                       invokeRestart <- base::invokeRestart
  [21:36:28.799]                       muffled <- FALSE
  [21:36:28.799]                       if (inherits(cond, "message")) {
  [21:36:28.799]                         invokeRestart("muffleMessage")
  [21:36:28.799]                         muffled <- TRUE
  [21:36:28.799]                       }
  [21:36:28.799]                       else if (inherits(cond, "warning")) {
  [21:36:28.799]                         invokeRestart("muffleWarning")
  [21:36:28.799]                         muffled <- TRUE
  [21:36:28.799]                       }
  [21:36:28.799]                       else if (inherits(cond, "condition")) {
  [21:36:28.799]                         computeRestarts <- base::computeRestarts
  [21:36:28.799]                         grepl <- base::grepl
  [21:36:28.799]                         is.null <- base::is.null
  [21:36:28.799]                         restarts <- computeRestarts(cond)
  [21:36:28.799]                         for (restart in restarts) {
  [21:36:28.799]                           name <- restart$name
  [21:36:28.799]                           if (is.null(name)) 
  [21:36:28.799]                             next
  [21:36:28.799]                           if (!grepl("^muffle", name)) 
  [21:36:28.799]                             next
  [21:36:28.799]                           invokeRestart(restart)
  [21:36:28.799]                           muffled <- TRUE
  [21:36:28.799]                           break
  [21:36:28.799]                         }
  [21:36:28.799]                       }
  [21:36:28.799]                       invisible(muffled)
  [21:36:28.799]                     }
  [21:36:28.799]                     muffleCondition(cond)
  [21:36:28.799]                   }
  [21:36:28.799]                 }
  [21:36:28.799]             }
  [21:36:28.799]         }))
  [21:36:28.799]     }, error = function(ex) {
  [21:36:28.799]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.799]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.799]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.799]     }, finally = {
  [21:36:28.799]         {
  [21:36:28.799]             NULL
  [21:36:28.799]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.799]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.799]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.799]                 label = NULL, ...) 
  [21:36:28.799]             {
  [21:36:28.799]                 if (substitute) 
  [21:36:28.799]                   expr <- substitute(expr)
  [21:36:28.799]                 local <- as.logical(local)
  [21:36:28.799]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.799]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.799]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.799]                   label = label, ...)
  [21:36:28.799]                 if (!future$lazy) 
  [21:36:28.799]                   future <- run(future)
  [21:36:28.799]                 invisible(future)
  [21:36:28.799]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.799]         }
  [21:36:28.799]         base::options(...future.oldOptions)
  [21:36:28.799]     })
  [21:36:28.799]     Sys.time
  [21:36:28.799]     if (base::is.na(TRUE)) {
  [21:36:28.799]     }
  [21:36:28.799]     else {
  [21:36:28.799]         base::sink(type = "output", split = FALSE)
  [21:36:28.799]         if (TRUE) {
  [21:36:28.799]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.799]         }
  [21:36:28.799]         else {
  [21:36:28.799]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.799]         }
  [21:36:28.799]         base::close(...future.stdout)
  [21:36:28.799]         ...future.stdout <- NULL
  [21:36:28.799]     }
  [21:36:28.799]     ...future.result$conditions <- ...future.conditions
  [21:36:28.799]     ...future.result
  [21:36:28.799] }
  [21:36:28.804] plan(): Setting new future strategy stack:
  [21:36:28.804] List of future strategies:
  [21:36:28.804] 1. sequential:
  [21:36:28.804]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.804]    - tweaked: FALSE
  [21:36:28.804]    - call: NULL
  [21:36:28.805] plan(): nbrOfWorkers() = 1
  [21:36:28.806] plan(): Setting new future strategy stack:
  [21:36:28.806] List of future strategies:
  [21:36:28.806] 1. sequential:
  [21:36:28.806]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.806]    - tweaked: FALSE
  [21:36:28.806]    - call: plan(strategy)
  [21:36:28.807] plan(): nbrOfWorkers() = 1
  [21:36:28.808] SequentialFuture started (and completed)
  [21:36:28.808] getGlobalsAndPackages() ...
  [21:36:28.808] Searching for globals...
  [21:36:28.810] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.810] Searching for globals ... DONE
  [21:36:28.811] Resolving globals: FALSE
  [21:36:28.811] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.812] - globals: [1] 'x'
  [21:36:28.812] 
  [21:36:28.812] getGlobalsAndPackages() ... DONE
  [21:36:28.816] Packages needed by the future expression (n = 0): <none>
  [21:36:28.816] Packages needed by future strategies (n = 0): <none>
  [21:36:28.820] {
  [21:36:28.820]     {
  [21:36:28.820]         ...future.startTime <- base::Sys.time()
  [21:36:28.820]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.820]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.820]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.820]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.820]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.820]         {
  [21:36:28.820]             {
  [21:36:28.820]                 {
  [21:36:28.820]                   base::local({
  [21:36:28.820]                     has_future <- base::requireNamespace("future", 
  [21:36:28.820]                       quietly = TRUE)
  [21:36:28.820]                     version <- if (has_future) 
  [21:36:28.820]                       utils::packageVersion("future")
  [21:36:28.820]                     else NULL
  [21:36:28.820]                     if (!has_future || version < "1.8.0") {
  [21:36:28.820]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.820]                         "", base::R.version$version.string), 
  [21:36:28.820]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.820]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.820]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.820]                           "release", "version")], collapse = " "), 
  [21:36:28.820]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.820]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.820]                         info)
  [21:36:28.820]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.820]                       if (!has_future) {
  [21:36:28.820]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.820]                           info)
  [21:36:28.820]                       }
  [21:36:28.820]                       else {
  [21:36:28.820]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.820]                           info, version)
  [21:36:28.820]                       }
  [21:36:28.820]                       base::stop(msg)
  [21:36:28.820]                     }
  [21:36:28.820]                   })
  [21:36:28.820]                 }
  [21:36:28.820]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:28.820]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:28.820]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.820]             }
  [21:36:28.820]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.820]         }
  [21:36:28.820]     }
  [21:36:28.820]     if (base::is.na(TRUE)) {
  [21:36:28.820]     }
  [21:36:28.820]     else {
  [21:36:28.820]         if (TRUE) {
  [21:36:28.820]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.820]                 open = "w")
  [21:36:28.820]         }
  [21:36:28.820]         else {
  [21:36:28.820]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.820]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.820]         }
  [21:36:28.820]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.820]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.820]             base::sink(type = "output", split = FALSE)
  [21:36:28.820]             base::close(...future.stdout)
  [21:36:28.820]         }, add = TRUE)
  [21:36:28.820]     }
  [21:36:28.820]     ...future.frame <- base::sys.nframe()
  [21:36:28.820]     ...future.conditions <- base::list()
  [21:36:28.820]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.820]     ...future.result <- base::tryCatch({
  [21:36:28.820]         base::withCallingHandlers({
  [21:36:28.820]             ...future.value <- base::withVisible(base::local({
  [21:36:28.820]                 sample(x, size = 1L)
  [21:36:28.820]             }))
  [21:36:28.820]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.820]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.820]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.820]                 version = "1.8")
  [21:36:28.820]         }, condition = base::local({
  [21:36:28.820]             c <- base::c
  [21:36:28.820]             inherits <- base::inherits
  [21:36:28.820]             invokeRestart <- base::invokeRestart
  [21:36:28.820]             length <- base::length
  [21:36:28.820]             list <- base::list
  [21:36:28.820]             seq.int <- base::seq.int
  [21:36:28.820]             signalCondition <- base::signalCondition
  [21:36:28.820]             sys.calls <- base::sys.calls
  [21:36:28.820]             Sys.time <- base::Sys.time
  [21:36:28.820]             `[[` <- base::`[[`
  [21:36:28.820]             `+` <- base::`+`
  [21:36:28.820]             `<<-` <- base::`<<-`
  [21:36:28.820]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.820]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.820]                   3L)]
  [21:36:28.820]             }
  [21:36:28.820]             function(cond) {
  [21:36:28.820]                 if (inherits(cond, "error")) {
  [21:36:28.820]                   sessionInformation <- function() {
  [21:36:28.820]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.820]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.820]                       search = base::search(), system = base::Sys.info())
  [21:36:28.820]                   }
  [21:36:28.820]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.820]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.820]                     cond$call), session = sessionInformation(), 
  [21:36:28.820]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.820]                   signalCondition(cond)
  [21:36:28.820]                 }
  [21:36:28.820]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.820]                 ))) {
  [21:36:28.820]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.820]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.820]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.820]                   if (!signal) {
  [21:36:28.820]                     muffleCondition <- function (cond) 
  [21:36:28.820]                     {
  [21:36:28.820]                       inherits <- base::inherits
  [21:36:28.820]                       invokeRestart <- base::invokeRestart
  [21:36:28.820]                       muffled <- FALSE
  [21:36:28.820]                       if (inherits(cond, "message")) {
  [21:36:28.820]                         invokeRestart("muffleMessage")
  [21:36:28.820]                         muffled <- TRUE
  [21:36:28.820]                       }
  [21:36:28.820]                       else if (inherits(cond, "warning")) {
  [21:36:28.820]                         invokeRestart("muffleWarning")
  [21:36:28.820]                         muffled <- TRUE
  [21:36:28.820]                       }
  [21:36:28.820]                       else if (inherits(cond, "condition")) {
  [21:36:28.820]                         computeRestarts <- base::computeRestarts
  [21:36:28.820]                         grepl <- base::grepl
  [21:36:28.820]                         is.null <- base::is.null
  [21:36:28.820]                         restarts <- computeRestarts(cond)
  [21:36:28.820]                         for (restart in restarts) {
  [21:36:28.820]                           name <- restart$name
  [21:36:28.820]                           if (is.null(name)) 
  [21:36:28.820]                             next
  [21:36:28.820]                           if (!grepl("^muffle", name)) 
  [21:36:28.820]                             next
  [21:36:28.820]                           invokeRestart(restart)
  [21:36:28.820]                           muffled <- TRUE
  [21:36:28.820]                           break
  [21:36:28.820]                         }
  [21:36:28.820]                       }
  [21:36:28.820]                       invisible(muffled)
  [21:36:28.820]                     }
  [21:36:28.820]                     muffleCondition(cond)
  [21:36:28.820]                   }
  [21:36:28.820]                 }
  [21:36:28.820]             }
  [21:36:28.820]         }))
  [21:36:28.820]     }, error = function(ex) {
  [21:36:28.820]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.820]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.820]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.820]     }, finally = {
  [21:36:28.820]         {
  [21:36:28.820]             NULL
  [21:36:28.820]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.820]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.820]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.820]                 label = NULL, ...) 
  [21:36:28.820]             {
  [21:36:28.820]                 if (substitute) 
  [21:36:28.820]                   expr <- substitute(expr)
  [21:36:28.820]                 local <- as.logical(local)
  [21:36:28.820]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.820]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.820]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.820]                   label = label, ...)
  [21:36:28.820]                 if (!future$lazy) 
  [21:36:28.820]                   future <- run(future)
  [21:36:28.820]                 invisible(future)
  [21:36:28.820]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.820]         }
  [21:36:28.820]         base::options(...future.oldOptions)
  [21:36:28.820]     })
  [21:36:28.820]     Sys.time
  [21:36:28.820]     if (base::is.na(TRUE)) {
  [21:36:28.820]     }
  [21:36:28.820]     else {
  [21:36:28.820]         base::sink(type = "output", split = FALSE)
  [21:36:28.820]         if (TRUE) {
  [21:36:28.820]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.820]         }
  [21:36:28.820]         else {
  [21:36:28.820]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.820]         }
  [21:36:28.820]         base::close(...future.stdout)
  [21:36:28.820]         ...future.stdout <- NULL
  [21:36:28.820]     }
  [21:36:28.820]     ...future.result$conditions <- ...future.conditions
  [21:36:28.820]     ...future.result
  [21:36:28.820] }
  [21:36:28.824] plan(): Setting new future strategy stack:
  [21:36:28.824] List of future strategies:
  [21:36:28.824] 1. sequential:
  [21:36:28.824]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.824]    - tweaked: FALSE
  [21:36:28.824]    - call: NULL
  [21:36:28.825] plan(): nbrOfWorkers() = 1
  [21:36:28.826] plan(): Setting new future strategy stack:
  [21:36:28.827] List of future strategies:
  [21:36:28.827] 1. sequential:
  [21:36:28.827]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.827]    - tweaked: FALSE
  [21:36:28.827]    - call: plan(strategy)
  [21:36:28.827] plan(): nbrOfWorkers() = 1
  [21:36:28.828] SequentialFuture started (and completed)
  [21:36:28.828] resolve() on list ...
  [21:36:28.829]  recursive: 0
  [21:36:28.829]  length: 4
  [21:36:28.829] 
  [21:36:28.829] Future #1
  [21:36:28.830] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:28.830] - nx: 4
  [21:36:28.830] - relay: TRUE
  [21:36:28.830] - stdout: TRUE
  [21:36:28.831] - signal: TRUE
  [21:36:28.831] - resignal: FALSE
  [21:36:28.831] - force: TRUE
  [21:36:28.831] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:28.832] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:28.832]  - until=1
  [21:36:28.832]  - relaying element #1
  [21:36:28.833] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.833] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.833] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:28.833]  length: 3 (resolved future 1)
  [21:36:28.834] Future #2
  [21:36:28.834] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:28.834] - nx: 4
  [21:36:28.835] - relay: TRUE
  [21:36:28.835] - stdout: TRUE
  [21:36:28.835] - signal: TRUE
  [21:36:28.835] - resignal: FALSE
  [21:36:28.836] - force: TRUE
  [21:36:28.836] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.836] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.836]  - until=2
  [21:36:28.837]  - relaying element #2
  [21:36:28.837] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.837] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.838] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:28.838]  length: 2 (resolved future 2)
  [21:36:28.838] Future #3
  [21:36:28.839] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:28.839] - nx: 4
  [21:36:28.839] - relay: TRUE
  [21:36:28.839] - stdout: TRUE
  [21:36:28.840] - signal: TRUE
  [21:36:28.840] - resignal: FALSE
  [21:36:28.840] - force: TRUE
  [21:36:28.840] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.841] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.841]  - until=3
  [21:36:28.841]  - relaying element #3
  [21:36:28.842] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.842] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.842] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:28.842]  length: 1 (resolved future 3)
  [21:36:28.843] Future #4
  [21:36:28.843] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:28.843] - nx: 4
  [21:36:28.843] - relay: TRUE
  [21:36:28.844] - stdout: TRUE
  [21:36:28.844] - signal: TRUE
  [21:36:28.844] - resignal: FALSE
  [21:36:28.844] - force: TRUE
  [21:36:28.844] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.845] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.845]  - until=4
  [21:36:28.845]  - relaying element #4
  [21:36:28.845] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.846] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.846] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:28.846]  length: 0 (resolved future 4)
  [21:36:28.847] Relaying remaining futures
  [21:36:28.847] signalConditionsASAP(NULL, pos=0) ...
  [21:36:28.847] - nx: 4
  [21:36:28.847] - relay: TRUE
  [21:36:28.847] - stdout: TRUE
  [21:36:28.848] - signal: TRUE
  [21:36:28.848] - resignal: FALSE
  [21:36:28.848] - force: TRUE
  [21:36:28.848] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.848] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:28.849] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.849] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.849] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:28.849] resolve() on list ... DONE
  [[1]]
  [1] 2
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 1
  
  [21:36:28.850] getGlobalsAndPackages() ...
  [21:36:28.851] Searching for globals...
  [21:36:28.852] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.853] Searching for globals ... DONE
  [21:36:28.853] Resolving globals: FALSE
  [21:36:28.854] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.854] - globals: [1] 'x'
  [21:36:28.854] 
  [21:36:28.854] getGlobalsAndPackages() ... DONE
  [21:36:28.856] Packages needed by the future expression (n = 0): <none>
  [21:36:28.856] Packages needed by future strategies (n = 0): <none>
  [21:36:28.860] {
  [21:36:28.860]     {
  [21:36:28.860]         ...future.startTime <- base::Sys.time()
  [21:36:28.860]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.860]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.860]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.860]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.860]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.860]         {
  [21:36:28.860]             {
  [21:36:28.860]                 {
  [21:36:28.860]                   base::local({
  [21:36:28.860]                     has_future <- base::requireNamespace("future", 
  [21:36:28.860]                       quietly = TRUE)
  [21:36:28.860]                     version <- if (has_future) 
  [21:36:28.860]                       utils::packageVersion("future")
  [21:36:28.860]                     else NULL
  [21:36:28.860]                     if (!has_future || version < "1.8.0") {
  [21:36:28.860]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.860]                         "", base::R.version$version.string), 
  [21:36:28.860]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.860]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.860]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.860]                           "release", "version")], collapse = " "), 
  [21:36:28.860]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.860]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.860]                         info)
  [21:36:28.860]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.860]                       if (!has_future) {
  [21:36:28.860]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.860]                           info)
  [21:36:28.860]                       }
  [21:36:28.860]                       else {
  [21:36:28.860]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.860]                           info, version)
  [21:36:28.860]                       }
  [21:36:28.860]                       base::stop(msg)
  [21:36:28.860]                     }
  [21:36:28.860]                   })
  [21:36:28.860]                 }
  [21:36:28.860]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:28.860]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:28.860]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.860]             }
  [21:36:28.860]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.860]         }
  [21:36:28.860]     }
  [21:36:28.860]     if (base::is.na(TRUE)) {
  [21:36:28.860]     }
  [21:36:28.860]     else {
  [21:36:28.860]         if (TRUE) {
  [21:36:28.860]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.860]                 open = "w")
  [21:36:28.860]         }
  [21:36:28.860]         else {
  [21:36:28.860]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.860]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.860]         }
  [21:36:28.860]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.860]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.860]             base::sink(type = "output", split = FALSE)
  [21:36:28.860]             base::close(...future.stdout)
  [21:36:28.860]         }, add = TRUE)
  [21:36:28.860]     }
  [21:36:28.860]     ...future.frame <- base::sys.nframe()
  [21:36:28.860]     ...future.conditions <- base::list()
  [21:36:28.860]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.860]     ...future.result <- base::tryCatch({
  [21:36:28.860]         base::withCallingHandlers({
  [21:36:28.860]             ...future.value <- base::withVisible(base::local({
  [21:36:28.860]                 sample(x, size = 1L)
  [21:36:28.860]             }))
  [21:36:28.860]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.860]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.860]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.860]                 version = "1.8")
  [21:36:28.860]         }, condition = base::local({
  [21:36:28.860]             c <- base::c
  [21:36:28.860]             inherits <- base::inherits
  [21:36:28.860]             invokeRestart <- base::invokeRestart
  [21:36:28.860]             length <- base::length
  [21:36:28.860]             list <- base::list
  [21:36:28.860]             seq.int <- base::seq.int
  [21:36:28.860]             signalCondition <- base::signalCondition
  [21:36:28.860]             sys.calls <- base::sys.calls
  [21:36:28.860]             Sys.time <- base::Sys.time
  [21:36:28.860]             `[[` <- base::`[[`
  [21:36:28.860]             `+` <- base::`+`
  [21:36:28.860]             `<<-` <- base::`<<-`
  [21:36:28.860]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.860]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.860]                   3L)]
  [21:36:28.860]             }
  [21:36:28.860]             function(cond) {
  [21:36:28.860]                 if (inherits(cond, "error")) {
  [21:36:28.860]                   sessionInformation <- function() {
  [21:36:28.860]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.860]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.860]                       search = base::search(), system = base::Sys.info())
  [21:36:28.860]                   }
  [21:36:28.860]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.860]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.860]                     cond$call), session = sessionInformation(), 
  [21:36:28.860]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.860]                   signalCondition(cond)
  [21:36:28.860]                 }
  [21:36:28.860]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.860]                 ))) {
  [21:36:28.860]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.860]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.860]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.860]                   if (!signal) {
  [21:36:28.860]                     muffleCondition <- function (cond) 
  [21:36:28.860]                     {
  [21:36:28.860]                       inherits <- base::inherits
  [21:36:28.860]                       invokeRestart <- base::invokeRestart
  [21:36:28.860]                       muffled <- FALSE
  [21:36:28.860]                       if (inherits(cond, "message")) {
  [21:36:28.860]                         invokeRestart("muffleMessage")
  [21:36:28.860]                         muffled <- TRUE
  [21:36:28.860]                       }
  [21:36:28.860]                       else if (inherits(cond, "warning")) {
  [21:36:28.860]                         invokeRestart("muffleWarning")
  [21:36:28.860]                         muffled <- TRUE
  [21:36:28.860]                       }
  [21:36:28.860]                       else if (inherits(cond, "condition")) {
  [21:36:28.860]                         computeRestarts <- base::computeRestarts
  [21:36:28.860]                         grepl <- base::grepl
  [21:36:28.860]                         is.null <- base::is.null
  [21:36:28.860]                         restarts <- computeRestarts(cond)
  [21:36:28.860]                         for (restart in restarts) {
  [21:36:28.860]                           name <- restart$name
  [21:36:28.860]                           if (is.null(name)) 
  [21:36:28.860]                             next
  [21:36:28.860]                           if (!grepl("^muffle", name)) 
  [21:36:28.860]                             next
  [21:36:28.860]                           invokeRestart(restart)
  [21:36:28.860]                           muffled <- TRUE
  [21:36:28.860]                           break
  [21:36:28.860]                         }
  [21:36:28.860]                       }
  [21:36:28.860]                       invisible(muffled)
  [21:36:28.860]                     }
  [21:36:28.860]                     muffleCondition(cond)
  [21:36:28.860]                   }
  [21:36:28.860]                 }
  [21:36:28.860]             }
  [21:36:28.860]         }))
  [21:36:28.860]     }, error = function(ex) {
  [21:36:28.860]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.860]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.860]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.860]     }, finally = {
  [21:36:28.860]         {
  [21:36:28.860]             NULL
  [21:36:28.860]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.860]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.860]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.860]                 label = NULL, ...) 
  [21:36:28.860]             {
  [21:36:28.860]                 if (substitute) 
  [21:36:28.860]                   expr <- substitute(expr)
  [21:36:28.860]                 local <- as.logical(local)
  [21:36:28.860]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.860]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.860]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.860]                   label = label, ...)
  [21:36:28.860]                 if (!future$lazy) 
  [21:36:28.860]                   future <- run(future)
  [21:36:28.860]                 invisible(future)
  [21:36:28.860]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.860]         }
  [21:36:28.860]         base::options(...future.oldOptions)
  [21:36:28.860]     })
  [21:36:28.860]     Sys.time
  [21:36:28.860]     if (base::is.na(TRUE)) {
  [21:36:28.860]     }
  [21:36:28.860]     else {
  [21:36:28.860]         base::sink(type = "output", split = FALSE)
  [21:36:28.860]         if (TRUE) {
  [21:36:28.860]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.860]         }
  [21:36:28.860]         else {
  [21:36:28.860]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.860]         }
  [21:36:28.860]         base::close(...future.stdout)
  [21:36:28.860]         ...future.stdout <- NULL
  [21:36:28.860]     }
  [21:36:28.860]     ...future.result$conditions <- ...future.conditions
  [21:36:28.860]     ...future.result
  [21:36:28.860] }
  [21:36:28.865] plan(): Setting new future strategy stack:
  [21:36:28.865] List of future strategies:
  [21:36:28.865] 1. sequential:
  [21:36:28.865]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.865]    - tweaked: FALSE
  [21:36:28.865]    - call: NULL
  [21:36:28.866] plan(): nbrOfWorkers() = 1
  [21:36:28.867] plan(): Setting new future strategy stack:
  [21:36:28.867] List of future strategies:
  [21:36:28.867] 1. sequential:
  [21:36:28.867]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.867]    - tweaked: FALSE
  [21:36:28.867]    - call: plan(strategy)
  [21:36:28.868] plan(): nbrOfWorkers() = 1
  [21:36:28.868] SequentialFuture started (and completed)
  [21:36:28.869] getGlobalsAndPackages() ...
  [21:36:28.869] Searching for globals...
  [21:36:28.871] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.871] Searching for globals ... DONE
  [21:36:28.871] Resolving globals: FALSE
  [21:36:28.872] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.872] - globals: [1] 'x'
  [21:36:28.873] 
  [21:36:28.873] getGlobalsAndPackages() ... DONE
  [21:36:28.875] Packages needed by the future expression (n = 0): <none>
  [21:36:28.875] Packages needed by future strategies (n = 0): <none>
  [21:36:28.881] {
  [21:36:28.881]     {
  [21:36:28.881]         ...future.startTime <- base::Sys.time()
  [21:36:28.881]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.881]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.881]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.881]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.881]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.881]         {
  [21:36:28.881]             {
  [21:36:28.881]                 {
  [21:36:28.881]                   base::local({
  [21:36:28.881]                     has_future <- base::requireNamespace("future", 
  [21:36:28.881]                       quietly = TRUE)
  [21:36:28.881]                     version <- if (has_future) 
  [21:36:28.881]                       utils::packageVersion("future")
  [21:36:28.881]                     else NULL
  [21:36:28.881]                     if (!has_future || version < "1.8.0") {
  [21:36:28.881]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.881]                         "", base::R.version$version.string), 
  [21:36:28.881]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.881]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.881]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.881]                           "release", "version")], collapse = " "), 
  [21:36:28.881]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.881]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.881]                         info)
  [21:36:28.881]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.881]                       if (!has_future) {
  [21:36:28.881]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.881]                           info)
  [21:36:28.881]                       }
  [21:36:28.881]                       else {
  [21:36:28.881]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.881]                           info, version)
  [21:36:28.881]                       }
  [21:36:28.881]                       base::stop(msg)
  [21:36:28.881]                     }
  [21:36:28.881]                   })
  [21:36:28.881]                 }
  [21:36:28.881]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:28.881]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:28.881]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.881]             }
  [21:36:28.881]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.881]         }
  [21:36:28.881]     }
  [21:36:28.881]     if (base::is.na(TRUE)) {
  [21:36:28.881]     }
  [21:36:28.881]     else {
  [21:36:28.881]         if (TRUE) {
  [21:36:28.881]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.881]                 open = "w")
  [21:36:28.881]         }
  [21:36:28.881]         else {
  [21:36:28.881]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.881]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.881]         }
  [21:36:28.881]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.881]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.881]             base::sink(type = "output", split = FALSE)
  [21:36:28.881]             base::close(...future.stdout)
  [21:36:28.881]         }, add = TRUE)
  [21:36:28.881]     }
  [21:36:28.881]     ...future.frame <- base::sys.nframe()
  [21:36:28.881]     ...future.conditions <- base::list()
  [21:36:28.881]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.881]     ...future.result <- base::tryCatch({
  [21:36:28.881]         base::withCallingHandlers({
  [21:36:28.881]             ...future.value <- base::withVisible(base::local({
  [21:36:28.881]                 sample(x, size = 1L)
  [21:36:28.881]             }))
  [21:36:28.881]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.881]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.881]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.881]                 version = "1.8")
  [21:36:28.881]         }, condition = base::local({
  [21:36:28.881]             c <- base::c
  [21:36:28.881]             inherits <- base::inherits
  [21:36:28.881]             invokeRestart <- base::invokeRestart
  [21:36:28.881]             length <- base::length
  [21:36:28.881]             list <- base::list
  [21:36:28.881]             seq.int <- base::seq.int
  [21:36:28.881]             signalCondition <- base::signalCondition
  [21:36:28.881]             sys.calls <- base::sys.calls
  [21:36:28.881]             Sys.time <- base::Sys.time
  [21:36:28.881]             `[[` <- base::`[[`
  [21:36:28.881]             `+` <- base::`+`
  [21:36:28.881]             `<<-` <- base::`<<-`
  [21:36:28.881]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.881]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.881]                   3L)]
  [21:36:28.881]             }
  [21:36:28.881]             function(cond) {
  [21:36:28.881]                 if (inherits(cond, "error")) {
  [21:36:28.881]                   sessionInformation <- function() {
  [21:36:28.881]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.881]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.881]                       search = base::search(), system = base::Sys.info())
  [21:36:28.881]                   }
  [21:36:28.881]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.881]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.881]                     cond$call), session = sessionInformation(), 
  [21:36:28.881]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.881]                   signalCondition(cond)
  [21:36:28.881]                 }
  [21:36:28.881]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.881]                 ))) {
  [21:36:28.881]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.881]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.881]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.881]                   if (!signal) {
  [21:36:28.881]                     muffleCondition <- function (cond) 
  [21:36:28.881]                     {
  [21:36:28.881]                       inherits <- base::inherits
  [21:36:28.881]                       invokeRestart <- base::invokeRestart
  [21:36:28.881]                       muffled <- FALSE
  [21:36:28.881]                       if (inherits(cond, "message")) {
  [21:36:28.881]                         invokeRestart("muffleMessage")
  [21:36:28.881]                         muffled <- TRUE
  [21:36:28.881]                       }
  [21:36:28.881]                       else if (inherits(cond, "warning")) {
  [21:36:28.881]                         invokeRestart("muffleWarning")
  [21:36:28.881]                         muffled <- TRUE
  [21:36:28.881]                       }
  [21:36:28.881]                       else if (inherits(cond, "condition")) {
  [21:36:28.881]                         computeRestarts <- base::computeRestarts
  [21:36:28.881]                         grepl <- base::grepl
  [21:36:28.881]                         is.null <- base::is.null
  [21:36:28.881]                         restarts <- computeRestarts(cond)
  [21:36:28.881]                         for (restart in restarts) {
  [21:36:28.881]                           name <- restart$name
  [21:36:28.881]                           if (is.null(name)) 
  [21:36:28.881]                             next
  [21:36:28.881]                           if (!grepl("^muffle", name)) 
  [21:36:28.881]                             next
  [21:36:28.881]                           invokeRestart(restart)
  [21:36:28.881]                           muffled <- TRUE
  [21:36:28.881]                           break
  [21:36:28.881]                         }
  [21:36:28.881]                       }
  [21:36:28.881]                       invisible(muffled)
  [21:36:28.881]                     }
  [21:36:28.881]                     muffleCondition(cond)
  [21:36:28.881]                   }
  [21:36:28.881]                 }
  [21:36:28.881]             }
  [21:36:28.881]         }))
  [21:36:28.881]     }, error = function(ex) {
  [21:36:28.881]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.881]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.881]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.881]     }, finally = {
  [21:36:28.881]         {
  [21:36:28.881]             NULL
  [21:36:28.881]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.881]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.881]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.881]                 label = NULL, ...) 
  [21:36:28.881]             {
  [21:36:28.881]                 if (substitute) 
  [21:36:28.881]                   expr <- substitute(expr)
  [21:36:28.881]                 local <- as.logical(local)
  [21:36:28.881]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.881]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.881]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.881]                   label = label, ...)
  [21:36:28.881]                 if (!future$lazy) 
  [21:36:28.881]                   future <- run(future)
  [21:36:28.881]                 invisible(future)
  [21:36:28.881]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.881]         }
  [21:36:28.881]         base::options(...future.oldOptions)
  [21:36:28.881]     })
  [21:36:28.881]     Sys.time
  [21:36:28.881]     if (base::is.na(TRUE)) {
  [21:36:28.881]     }
  [21:36:28.881]     else {
  [21:36:28.881]         base::sink(type = "output", split = FALSE)
  [21:36:28.881]         if (TRUE) {
  [21:36:28.881]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.881]         }
  [21:36:28.881]         else {
  [21:36:28.881]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.881]         }
  [21:36:28.881]         base::close(...future.stdout)
  [21:36:28.881]         ...future.stdout <- NULL
  [21:36:28.881]     }
  [21:36:28.881]     ...future.result$conditions <- ...future.conditions
  [21:36:28.881]     ...future.result
  [21:36:28.881] }
  [21:36:28.885] plan(): Setting new future strategy stack:
  [21:36:28.885] List of future strategies:
  [21:36:28.885] 1. sequential:
  [21:36:28.885]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.885]    - tweaked: FALSE
  [21:36:28.885]    - call: NULL
  [21:36:28.886] plan(): nbrOfWorkers() = 1
  [21:36:28.887] plan(): Setting new future strategy stack:
  [21:36:28.887] List of future strategies:
  [21:36:28.887] 1. sequential:
  [21:36:28.887]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.887]    - tweaked: FALSE
  [21:36:28.887]    - call: plan(strategy)
  [21:36:28.890] plan(): nbrOfWorkers() = 1
  [21:36:28.890] SequentialFuture started (and completed)
  [21:36:28.891] getGlobalsAndPackages() ...
  [21:36:28.891] Searching for globals...
  [21:36:28.893] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.893] Searching for globals ... DONE
  [21:36:28.893] Resolving globals: FALSE
  [21:36:28.894] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.895] - globals: [1] 'x'
  [21:36:28.895] 
  [21:36:28.895] getGlobalsAndPackages() ... DONE
  [21:36:28.897] Packages needed by the future expression (n = 0): <none>
  [21:36:28.897] Packages needed by future strategies (n = 0): <none>
  [21:36:28.901] {
  [21:36:28.901]     {
  [21:36:28.901]         ...future.startTime <- base::Sys.time()
  [21:36:28.901]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.901]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.901]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.901]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.901]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.901]         {
  [21:36:28.901]             {
  [21:36:28.901]                 {
  [21:36:28.901]                   base::local({
  [21:36:28.901]                     has_future <- base::requireNamespace("future", 
  [21:36:28.901]                       quietly = TRUE)
  [21:36:28.901]                     version <- if (has_future) 
  [21:36:28.901]                       utils::packageVersion("future")
  [21:36:28.901]                     else NULL
  [21:36:28.901]                     if (!has_future || version < "1.8.0") {
  [21:36:28.901]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.901]                         "", base::R.version$version.string), 
  [21:36:28.901]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.901]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.901]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.901]                           "release", "version")], collapse = " "), 
  [21:36:28.901]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.901]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.901]                         info)
  [21:36:28.901]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.901]                       if (!has_future) {
  [21:36:28.901]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.901]                           info)
  [21:36:28.901]                       }
  [21:36:28.901]                       else {
  [21:36:28.901]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.901]                           info, version)
  [21:36:28.901]                       }
  [21:36:28.901]                       base::stop(msg)
  [21:36:28.901]                     }
  [21:36:28.901]                   })
  [21:36:28.901]                 }
  [21:36:28.901]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:28.901]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:28.901]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.901]             }
  [21:36:28.901]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.901]         }
  [21:36:28.901]     }
  [21:36:28.901]     if (base::is.na(TRUE)) {
  [21:36:28.901]     }
  [21:36:28.901]     else {
  [21:36:28.901]         if (TRUE) {
  [21:36:28.901]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.901]                 open = "w")
  [21:36:28.901]         }
  [21:36:28.901]         else {
  [21:36:28.901]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.901]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.901]         }
  [21:36:28.901]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.901]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.901]             base::sink(type = "output", split = FALSE)
  [21:36:28.901]             base::close(...future.stdout)
  [21:36:28.901]         }, add = TRUE)
  [21:36:28.901]     }
  [21:36:28.901]     ...future.frame <- base::sys.nframe()
  [21:36:28.901]     ...future.conditions <- base::list()
  [21:36:28.901]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.901]     ...future.result <- base::tryCatch({
  [21:36:28.901]         base::withCallingHandlers({
  [21:36:28.901]             ...future.value <- base::withVisible(base::local({
  [21:36:28.901]                 sample(x, size = 1L)
  [21:36:28.901]             }))
  [21:36:28.901]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.901]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.901]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.901]                 version = "1.8")
  [21:36:28.901]         }, condition = base::local({
  [21:36:28.901]             c <- base::c
  [21:36:28.901]             inherits <- base::inherits
  [21:36:28.901]             invokeRestart <- base::invokeRestart
  [21:36:28.901]             length <- base::length
  [21:36:28.901]             list <- base::list
  [21:36:28.901]             seq.int <- base::seq.int
  [21:36:28.901]             signalCondition <- base::signalCondition
  [21:36:28.901]             sys.calls <- base::sys.calls
  [21:36:28.901]             Sys.time <- base::Sys.time
  [21:36:28.901]             `[[` <- base::`[[`
  [21:36:28.901]             `+` <- base::`+`
  [21:36:28.901]             `<<-` <- base::`<<-`
  [21:36:28.901]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.901]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.901]                   3L)]
  [21:36:28.901]             }
  [21:36:28.901]             function(cond) {
  [21:36:28.901]                 if (inherits(cond, "error")) {
  [21:36:28.901]                   sessionInformation <- function() {
  [21:36:28.901]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.901]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.901]                       search = base::search(), system = base::Sys.info())
  [21:36:28.901]                   }
  [21:36:28.901]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.901]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.901]                     cond$call), session = sessionInformation(), 
  [21:36:28.901]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.901]                   signalCondition(cond)
  [21:36:28.901]                 }
  [21:36:28.901]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.901]                 ))) {
  [21:36:28.901]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.901]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.901]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.901]                   if (!signal) {
  [21:36:28.901]                     muffleCondition <- function (cond) 
  [21:36:28.901]                     {
  [21:36:28.901]                       inherits <- base::inherits
  [21:36:28.901]                       invokeRestart <- base::invokeRestart
  [21:36:28.901]                       muffled <- FALSE
  [21:36:28.901]                       if (inherits(cond, "message")) {
  [21:36:28.901]                         invokeRestart("muffleMessage")
  [21:36:28.901]                         muffled <- TRUE
  [21:36:28.901]                       }
  [21:36:28.901]                       else if (inherits(cond, "warning")) {
  [21:36:28.901]                         invokeRestart("muffleWarning")
  [21:36:28.901]                         muffled <- TRUE
  [21:36:28.901]                       }
  [21:36:28.901]                       else if (inherits(cond, "condition")) {
  [21:36:28.901]                         computeRestarts <- base::computeRestarts
  [21:36:28.901]                         grepl <- base::grepl
  [21:36:28.901]                         is.null <- base::is.null
  [21:36:28.901]                         restarts <- computeRestarts(cond)
  [21:36:28.901]                         for (restart in restarts) {
  [21:36:28.901]                           name <- restart$name
  [21:36:28.901]                           if (is.null(name)) 
  [21:36:28.901]                             next
  [21:36:28.901]                           if (!grepl("^muffle", name)) 
  [21:36:28.901]                             next
  [21:36:28.901]                           invokeRestart(restart)
  [21:36:28.901]                           muffled <- TRUE
  [21:36:28.901]                           break
  [21:36:28.901]                         }
  [21:36:28.901]                       }
  [21:36:28.901]                       invisible(muffled)
  [21:36:28.901]                     }
  [21:36:28.901]                     muffleCondition(cond)
  [21:36:28.901]                   }
  [21:36:28.901]                 }
  [21:36:28.901]             }
  [21:36:28.901]         }))
  [21:36:28.901]     }, error = function(ex) {
  [21:36:28.901]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.901]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.901]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.901]     }, finally = {
  [21:36:28.901]         {
  [21:36:28.901]             NULL
  [21:36:28.901]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.901]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.901]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.901]                 label = NULL, ...) 
  [21:36:28.901]             {
  [21:36:28.901]                 if (substitute) 
  [21:36:28.901]                   expr <- substitute(expr)
  [21:36:28.901]                 local <- as.logical(local)
  [21:36:28.901]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.901]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.901]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.901]                   label = label, ...)
  [21:36:28.901]                 if (!future$lazy) 
  [21:36:28.901]                   future <- run(future)
  [21:36:28.901]                 invisible(future)
  [21:36:28.901]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.901]         }
  [21:36:28.901]         base::options(...future.oldOptions)
  [21:36:28.901]     })
  [21:36:28.901]     Sys.time
  [21:36:28.901]     if (base::is.na(TRUE)) {
  [21:36:28.901]     }
  [21:36:28.901]     else {
  [21:36:28.901]         base::sink(type = "output", split = FALSE)
  [21:36:28.901]         if (TRUE) {
  [21:36:28.901]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.901]         }
  [21:36:28.901]         else {
  [21:36:28.901]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.901]         }
  [21:36:28.901]         base::close(...future.stdout)
  [21:36:28.901]         ...future.stdout <- NULL
  [21:36:28.901]     }
  [21:36:28.901]     ...future.result$conditions <- ...future.conditions
  [21:36:28.901]     ...future.result
  [21:36:28.901] }
  [21:36:28.906] plan(): Setting new future strategy stack:
  [21:36:28.906] List of future strategies:
  [21:36:28.906] 1. sequential:
  [21:36:28.906]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.906]    - tweaked: FALSE
  [21:36:28.906]    - call: NULL
  [21:36:28.907] plan(): nbrOfWorkers() = 1
  [21:36:28.908] plan(): Setting new future strategy stack:
  [21:36:28.908] List of future strategies:
  [21:36:28.908] 1. sequential:
  [21:36:28.908]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.908]    - tweaked: FALSE
  [21:36:28.908]    - call: plan(strategy)
  [21:36:28.909] plan(): nbrOfWorkers() = 1
  [21:36:28.909] SequentialFuture started (and completed)
  [21:36:28.910] getGlobalsAndPackages() ...
  [21:36:28.910] Searching for globals...
  [21:36:28.912] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.912] Searching for globals ... DONE
  [21:36:28.912] Resolving globals: FALSE
  [21:36:28.913] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.913] - globals: [1] 'x'
  [21:36:28.913] 
  [21:36:28.914] getGlobalsAndPackages() ... DONE
  [21:36:28.915] Packages needed by the future expression (n = 0): <none>
  [21:36:28.916] Packages needed by future strategies (n = 0): <none>
  [21:36:28.919] {
  [21:36:28.919]     {
  [21:36:28.919]         ...future.startTime <- base::Sys.time()
  [21:36:28.919]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.919]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.919]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.919]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.919]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.919]         {
  [21:36:28.919]             {
  [21:36:28.919]                 {
  [21:36:28.919]                   base::local({
  [21:36:28.919]                     has_future <- base::requireNamespace("future", 
  [21:36:28.919]                       quietly = TRUE)
  [21:36:28.919]                     version <- if (has_future) 
  [21:36:28.919]                       utils::packageVersion("future")
  [21:36:28.919]                     else NULL
  [21:36:28.919]                     if (!has_future || version < "1.8.0") {
  [21:36:28.919]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.919]                         "", base::R.version$version.string), 
  [21:36:28.919]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.919]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.919]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.919]                           "release", "version")], collapse = " "), 
  [21:36:28.919]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:28.919]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.919]                         info)
  [21:36:28.919]                       info <- base::paste(info, collapse = "; ")
  [21:36:28.919]                       if (!has_future) {
  [21:36:28.919]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.919]                           info)
  [21:36:28.919]                       }
  [21:36:28.919]                       else {
  [21:36:28.919]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.919]                           info, version)
  [21:36:28.919]                       }
  [21:36:28.919]                       base::stop(msg)
  [21:36:28.919]                     }
  [21:36:28.919]                   })
  [21:36:28.919]                 }
  [21:36:28.919]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:28.919]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:28.919]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:28.919]             }
  [21:36:28.919]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.919]         }
  [21:36:28.919]     }
  [21:36:28.919]     if (base::is.na(TRUE)) {
  [21:36:28.919]     }
  [21:36:28.919]     else {
  [21:36:28.919]         if (TRUE) {
  [21:36:28.919]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.919]                 open = "w")
  [21:36:28.919]         }
  [21:36:28.919]         else {
  [21:36:28.919]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.919]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.919]         }
  [21:36:28.919]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.919]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.919]             base::sink(type = "output", split = FALSE)
  [21:36:28.919]             base::close(...future.stdout)
  [21:36:28.919]         }, add = TRUE)
  [21:36:28.919]     }
  [21:36:28.919]     ...future.frame <- base::sys.nframe()
  [21:36:28.919]     ...future.conditions <- base::list()
  [21:36:28.919]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.919]     ...future.result <- base::tryCatch({
  [21:36:28.919]         base::withCallingHandlers({
  [21:36:28.919]             ...future.value <- base::withVisible(base::local({
  [21:36:28.919]                 sample(x, size = 1L)
  [21:36:28.919]             }))
  [21:36:28.919]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.919]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.919]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.919]                 version = "1.8")
  [21:36:28.919]         }, condition = base::local({
  [21:36:28.919]             c <- base::c
  [21:36:28.919]             inherits <- base::inherits
  [21:36:28.919]             invokeRestart <- base::invokeRestart
  [21:36:28.919]             length <- base::length
  [21:36:28.919]             list <- base::list
  [21:36:28.919]             seq.int <- base::seq.int
  [21:36:28.919]             signalCondition <- base::signalCondition
  [21:36:28.919]             sys.calls <- base::sys.calls
  [21:36:28.919]             Sys.time <- base::Sys.time
  [21:36:28.919]             `[[` <- base::`[[`
  [21:36:28.919]             `+` <- base::`+`
  [21:36:28.919]             `<<-` <- base::`<<-`
  [21:36:28.919]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.919]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.919]                   3L)]
  [21:36:28.919]             }
  [21:36:28.919]             function(cond) {
  [21:36:28.919]                 if (inherits(cond, "error")) {
  [21:36:28.919]                   sessionInformation <- function() {
  [21:36:28.919]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.919]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.919]                       search = base::search(), system = base::Sys.info())
  [21:36:28.919]                   }
  [21:36:28.919]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.919]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.919]                     cond$call), session = sessionInformation(), 
  [21:36:28.919]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.919]                   signalCondition(cond)
  [21:36:28.919]                 }
  [21:36:28.919]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.919]                 ))) {
  [21:36:28.919]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.919]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.919]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.919]                   if (!signal) {
  [21:36:28.919]                     muffleCondition <- function (cond) 
  [21:36:28.919]                     {
  [21:36:28.919]                       inherits <- base::inherits
  [21:36:28.919]                       invokeRestart <- base::invokeRestart
  [21:36:28.919]                       muffled <- FALSE
  [21:36:28.919]                       if (inherits(cond, "message")) {
  [21:36:28.919]                         invokeRestart("muffleMessage")
  [21:36:28.919]                         muffled <- TRUE
  [21:36:28.919]                       }
  [21:36:28.919]                       else if (inherits(cond, "warning")) {
  [21:36:28.919]                         invokeRestart("muffleWarning")
  [21:36:28.919]                         muffled <- TRUE
  [21:36:28.919]                       }
  [21:36:28.919]                       else if (inherits(cond, "condition")) {
  [21:36:28.919]                         computeRestarts <- base::computeRestarts
  [21:36:28.919]                         grepl <- base::grepl
  [21:36:28.919]                         is.null <- base::is.null
  [21:36:28.919]                         restarts <- computeRestarts(cond)
  [21:36:28.919]                         for (restart in restarts) {
  [21:36:28.919]                           name <- restart$name
  [21:36:28.919]                           if (is.null(name)) 
  [21:36:28.919]                             next
  [21:36:28.919]                           if (!grepl("^muffle", name)) 
  [21:36:28.919]                             next
  [21:36:28.919]                           invokeRestart(restart)
  [21:36:28.919]                           muffled <- TRUE
  [21:36:28.919]                           break
  [21:36:28.919]                         }
  [21:36:28.919]                       }
  [21:36:28.919]                       invisible(muffled)
  [21:36:28.919]                     }
  [21:36:28.919]                     muffleCondition(cond)
  [21:36:28.919]                   }
  [21:36:28.919]                 }
  [21:36:28.919]             }
  [21:36:28.919]         }))
  [21:36:28.919]     }, error = function(ex) {
  [21:36:28.919]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.919]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.919]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.919]     }, finally = {
  [21:36:28.919]         {
  [21:36:28.919]             NULL
  [21:36:28.919]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.919]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.919]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.919]                 label = NULL, ...) 
  [21:36:28.919]             {
  [21:36:28.919]                 if (substitute) 
  [21:36:28.919]                   expr <- substitute(expr)
  [21:36:28.919]                 local <- as.logical(local)
  [21:36:28.919]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.919]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.919]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.919]                   label = label, ...)
  [21:36:28.919]                 if (!future$lazy) 
  [21:36:28.919]                   future <- run(future)
  [21:36:28.919]                 invisible(future)
  [21:36:28.919]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.919]         }
  [21:36:28.919]         base::options(...future.oldOptions)
  [21:36:28.919]     })
  [21:36:28.919]     Sys.time
  [21:36:28.919]     if (base::is.na(TRUE)) {
  [21:36:28.919]     }
  [21:36:28.919]     else {
  [21:36:28.919]         base::sink(type = "output", split = FALSE)
  [21:36:28.919]         if (TRUE) {
  [21:36:28.919]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.919]         }
  [21:36:28.919]         else {
  [21:36:28.919]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.919]         }
  [21:36:28.919]         base::close(...future.stdout)
  [21:36:28.919]         ...future.stdout <- NULL
  [21:36:28.919]     }
  [21:36:28.919]     ...future.result$conditions <- ...future.conditions
  [21:36:28.919]     ...future.result
  [21:36:28.919] }
  [21:36:28.923] plan(): Setting new future strategy stack:
  [21:36:28.924] List of future strategies:
  [21:36:28.924] 1. sequential:
  [21:36:28.924]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.924]    - tweaked: FALSE
  [21:36:28.924]    - call: NULL
  [21:36:28.924] plan(): nbrOfWorkers() = 1
  [21:36:28.925] plan(): Setting new future strategy stack:
  [21:36:28.926] List of future strategies:
  [21:36:28.926] 1. sequential:
  [21:36:28.926]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.926]    - tweaked: FALSE
  [21:36:28.926]    - call: plan(strategy)
  [21:36:28.927] plan(): nbrOfWorkers() = 1
  [21:36:28.927] SequentialFuture started (and completed)
  [21:36:28.927] resolve() on list ...
  [21:36:28.928]  recursive: 0
  [21:36:28.928]  length: 4
  [21:36:28.928] 
  [21:36:28.928] Future #1
  [21:36:28.929] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:28.929] - nx: 4
  [21:36:28.929] - relay: TRUE
  [21:36:28.929] - stdout: TRUE
  [21:36:28.930] - signal: TRUE
  [21:36:28.930] - resignal: FALSE
  [21:36:28.930] - force: TRUE
  [21:36:28.930] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:28.931] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:28.931]  - until=1
  [21:36:28.931]  - relaying element #1
  [21:36:28.932] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.932] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.932] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:28.933]  length: 3 (resolved future 1)
  [21:36:28.933] Future #2
  [21:36:28.933] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:28.933] - nx: 4
  [21:36:28.934] - relay: TRUE
  [21:36:28.934] - stdout: TRUE
  [21:36:28.934] - signal: TRUE
  [21:36:28.934] - resignal: FALSE
  [21:36:28.935] - force: TRUE
  [21:36:28.935] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.935] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:28.935]  - until=2
  [21:36:28.936]  - relaying element #2
  [21:36:28.936] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.936] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.937] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:28.937]  length: 2 (resolved future 2)
  [21:36:28.937] Future #3
  [21:36:28.939] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:28.939] - nx: 4
  [21:36:28.939] - relay: TRUE
  [21:36:28.939] - stdout: TRUE
  [21:36:28.939] - signal: TRUE
  [21:36:28.940] - resignal: FALSE
  [21:36:28.940] - force: TRUE
  [21:36:28.940] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.940] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:28.941]  - until=3
  [21:36:28.941]  - relaying element #3
  [21:36:28.941] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.941] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.942] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:28.942]  length: 1 (resolved future 3)
  [21:36:28.942] Future #4
  [21:36:28.942] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:28.943] - nx: 4
  [21:36:28.943] - relay: TRUE
  [21:36:28.943] - stdout: TRUE
  [21:36:28.943] - signal: TRUE
  [21:36:28.943] - resignal: FALSE
  [21:36:28.944] - force: TRUE
  [21:36:28.944] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.944] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:28.944]  - until=4
  [21:36:28.945]  - relaying element #4
  [21:36:28.945] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.945] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.945] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:28.946]  length: 0 (resolved future 4)
  [21:36:28.946] Relaying remaining futures
  [21:36:28.946] signalConditionsASAP(NULL, pos=0) ...
  [21:36:28.946] - nx: 4
  [21:36:28.947] - relay: TRUE
  [21:36:28.947] - stdout: TRUE
  [21:36:28.947] - signal: TRUE
  [21:36:28.947] - resignal: FALSE
  [21:36:28.947] - force: TRUE
  [21:36:28.948] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.948] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:28.948] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.948] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:28.949] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:28.949] resolve() on list ... DONE
  [[1]]
  [1] 2
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 1
  
  [21:36:28.950] getGlobalsAndPackages() ...
  [21:36:28.950] Searching for globals...
  [21:36:28.963] - globals found: [3] '{', 'sample', 'x'
  [21:36:28.964] Searching for globals ... DONE
  [21:36:28.964] Resolving globals: FALSE
  [21:36:28.965] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:28.965] - globals: [1] 'x'
  [21:36:28.965] 
  [21:36:28.965] getGlobalsAndPackages() ... DONE
  [21:36:28.967] Packages needed by the future expression (n = 0): <none>
  [21:36:28.968] Packages needed by future strategies (n = 0): <none>
  [21:36:28.981] {
  [21:36:28.981]     {
  [21:36:28.981]         ...future.startTime <- base::Sys.time()
  [21:36:28.981]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:28.981]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:28.981]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:28.981]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:28.981]             future.resolve.recursive = NULL, width = 80L)
  [21:36:28.981]         {
  [21:36:28.981]             {
  [21:36:28.981]                 base::local({
  [21:36:28.981]                   has_future <- base::requireNamespace("future", 
  [21:36:28.981]                     quietly = TRUE)
  [21:36:28.981]                   version <- if (has_future) 
  [21:36:28.981]                     utils::packageVersion("future")
  [21:36:28.981]                   else NULL
  [21:36:28.981]                   if (!has_future || version < "1.8.0") {
  [21:36:28.981]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:28.981]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:28.981]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:28.981]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:28.981]                         "release", "version")], collapse = " "), 
  [21:36:28.981]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:28.981]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:28.981]                       info)
  [21:36:28.981]                     info <- base::paste(info, collapse = "; ")
  [21:36:28.981]                     if (!has_future) {
  [21:36:28.981]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:28.981]                         info)
  [21:36:28.981]                     }
  [21:36:28.981]                     else {
  [21:36:28.981]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:28.981]                         info, version)
  [21:36:28.981]                     }
  [21:36:28.981]                     base::stop(msg)
  [21:36:28.981]                   }
  [21:36:28.981]                 })
  [21:36:28.981]             }
  [21:36:28.981]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:28.981]         }
  [21:36:28.981]     }
  [21:36:28.981]     if (base::is.na(TRUE)) {
  [21:36:28.981]     }
  [21:36:28.981]     else {
  [21:36:28.981]         if (TRUE) {
  [21:36:28.981]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:28.981]                 open = "w")
  [21:36:28.981]         }
  [21:36:28.981]         else {
  [21:36:28.981]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:28.981]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:28.981]         }
  [21:36:28.981]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:28.981]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:28.981]             base::sink(type = "output", split = FALSE)
  [21:36:28.981]             base::close(...future.stdout)
  [21:36:28.981]         }, add = TRUE)
  [21:36:28.981]     }
  [21:36:28.981]     ...future.frame <- base::sys.nframe()
  [21:36:28.981]     ...future.conditions <- base::list()
  [21:36:28.981]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:28.981]     ...future.result <- base::tryCatch({
  [21:36:28.981]         base::withCallingHandlers({
  [21:36:28.981]             ...future.value <- base::withVisible(base::local({
  [21:36:28.981]                 sample(x, size = 1L)
  [21:36:28.981]             }))
  [21:36:28.981]             future::FutureResult(value = ...future.value$value, 
  [21:36:28.981]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.981]                   ...future.rng), started = ...future.startTime, 
  [21:36:28.981]                 version = "1.8")
  [21:36:28.981]         }, condition = base::local({
  [21:36:28.981]             c <- base::c
  [21:36:28.981]             inherits <- base::inherits
  [21:36:28.981]             invokeRestart <- base::invokeRestart
  [21:36:28.981]             length <- base::length
  [21:36:28.981]             list <- base::list
  [21:36:28.981]             seq.int <- base::seq.int
  [21:36:28.981]             signalCondition <- base::signalCondition
  [21:36:28.981]             sys.calls <- base::sys.calls
  [21:36:28.981]             Sys.time <- base::Sys.time
  [21:36:28.981]             `[[` <- base::`[[`
  [21:36:28.981]             `+` <- base::`+`
  [21:36:28.981]             `<<-` <- base::`<<-`
  [21:36:28.981]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:28.981]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:28.981]                   3L)]
  [21:36:28.981]             }
  [21:36:28.981]             function(cond) {
  [21:36:28.981]                 if (inherits(cond, "error")) {
  [21:36:28.981]                   sessionInformation <- function() {
  [21:36:28.981]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:28.981]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:28.981]                       search = base::search(), system = base::Sys.info())
  [21:36:28.981]                   }
  [21:36:28.981]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.981]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:28.981]                     cond$call), session = sessionInformation(), 
  [21:36:28.981]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:28.981]                   signalCondition(cond)
  [21:36:28.981]                 }
  [21:36:28.981]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:28.981]                 ))) {
  [21:36:28.981]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:28.981]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:28.981]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:28.981]                   if (!signal) {
  [21:36:28.981]                     muffleCondition <- function (cond) 
  [21:36:28.981]                     {
  [21:36:28.981]                       inherits <- base::inherits
  [21:36:28.981]                       invokeRestart <- base::invokeRestart
  [21:36:28.981]                       muffled <- FALSE
  [21:36:28.981]                       if (inherits(cond, "message")) {
  [21:36:28.981]                         invokeRestart("muffleMessage")
  [21:36:28.981]                         muffled <- TRUE
  [21:36:28.981]                       }
  [21:36:28.981]                       else if (inherits(cond, "warning")) {
  [21:36:28.981]                         invokeRestart("muffleWarning")
  [21:36:28.981]                         muffled <- TRUE
  [21:36:28.981]                       }
  [21:36:28.981]                       else if (inherits(cond, "condition")) {
  [21:36:28.981]                         computeRestarts <- base::computeRestarts
  [21:36:28.981]                         grepl <- base::grepl
  [21:36:28.981]                         is.null <- base::is.null
  [21:36:28.981]                         restarts <- computeRestarts(cond)
  [21:36:28.981]                         for (restart in restarts) {
  [21:36:28.981]                           name <- restart$name
  [21:36:28.981]                           if (is.null(name)) 
  [21:36:28.981]                             next
  [21:36:28.981]                           if (!grepl("^muffle", name)) 
  [21:36:28.981]                             next
  [21:36:28.981]                           invokeRestart(restart)
  [21:36:28.981]                           muffled <- TRUE
  [21:36:28.981]                           break
  [21:36:28.981]                         }
  [21:36:28.981]                       }
  [21:36:28.981]                       invisible(muffled)
  [21:36:28.981]                     }
  [21:36:28.981]                     muffleCondition(cond)
  [21:36:28.981]                   }
  [21:36:28.981]                 }
  [21:36:28.981]             }
  [21:36:28.981]         }))
  [21:36:28.981]     }, error = function(ex) {
  [21:36:28.981]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:28.981]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:28.981]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:28.981]     }, finally = {
  [21:36:28.981]         {
  [21:36:28.981]             NULL
  [21:36:28.981]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:28.981]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:28.981]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:28.981]                 label = NULL, ...) 
  [21:36:28.981]             {
  [21:36:28.981]                 if (substitute) 
  [21:36:28.981]                   expr <- substitute(expr)
  [21:36:28.981]                 local <- as.logical(local)
  [21:36:28.981]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:28.981]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:28.981]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:28.981]                   label = label, ...)
  [21:36:28.981]                 if (!future$lazy) 
  [21:36:28.981]                   future <- run(future)
  [21:36:28.981]                 invisible(future)
  [21:36:28.981]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:28.981]         }
  [21:36:28.981]         base::options(...future.oldOptions)
  [21:36:28.981]     })
  [21:36:28.981]     Sys.time
  [21:36:28.981]     if (base::is.na(TRUE)) {
  [21:36:28.981]     }
  [21:36:28.981]     else {
  [21:36:28.981]         base::sink(type = "output", split = FALSE)
  [21:36:28.981]         if (TRUE) {
  [21:36:28.981]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:28.981]         }
  [21:36:28.981]         else {
  [21:36:28.981]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:28.981]         }
  [21:36:28.981]         base::close(...future.stdout)
  [21:36:28.981]         ...future.stdout <- NULL
  [21:36:28.981]     }
  [21:36:28.981]     ...future.result$conditions <- ...future.conditions
  [21:36:28.981]     ...future.result
  [21:36:28.981] }
  [21:36:28.994] plan(): Setting new future strategy stack:
  [21:36:28.995] List of future strategies:
  [21:36:28.995] 1. sequential:
  [21:36:28.995]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.995]    - tweaked: FALSE
  [21:36:28.995]    - call: NULL
  [21:36:28.996] plan(): nbrOfWorkers() = 1
  [21:36:28.997] plan(): Setting new future strategy stack:
  [21:36:28.997] List of future strategies:
  [21:36:28.997] 1. sequential:
  [21:36:28.997]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:28.997]    - tweaked: FALSE
  [21:36:28.997]    - call: plan(strategy)
  [21:36:28.998] plan(): nbrOfWorkers() = 1
  [21:36:28.998] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_1-623611'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x5616705b2b00>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.001] getGlobalsAndPackages() ...
  [21:36:29.001] Searching for globals...
  [21:36:29.011] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.012] Searching for globals ... DONE
  [21:36:29.012] Resolving globals: FALSE
  [21:36:29.013] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.013] - globals: [1] 'x'
  [21:36:29.013] 
  [21:36:29.014] getGlobalsAndPackages() ... DONE
  [21:36:29.015] Packages needed by the future expression (n = 0): <none>
  [21:36:29.015] Packages needed by future strategies (n = 0): <none>
  [21:36:29.032] {
  [21:36:29.032]     {
  [21:36:29.032]         ...future.startTime <- base::Sys.time()
  [21:36:29.032]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.032]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.032]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.032]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.032]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.032]         {
  [21:36:29.032]             {
  [21:36:29.032]                 base::local({
  [21:36:29.032]                   has_future <- base::requireNamespace("future", 
  [21:36:29.032]                     quietly = TRUE)
  [21:36:29.032]                   version <- if (has_future) 
  [21:36:29.032]                     utils::packageVersion("future")
  [21:36:29.032]                   else NULL
  [21:36:29.032]                   if (!has_future || version < "1.8.0") {
  [21:36:29.032]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.032]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.032]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.032]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.032]                         "release", "version")], collapse = " "), 
  [21:36:29.032]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.032]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.032]                       info)
  [21:36:29.032]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.032]                     if (!has_future) {
  [21:36:29.032]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.032]                         info)
  [21:36:29.032]                     }
  [21:36:29.032]                     else {
  [21:36:29.032]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.032]                         info, version)
  [21:36:29.032]                     }
  [21:36:29.032]                     base::stop(msg)
  [21:36:29.032]                   }
  [21:36:29.032]                 })
  [21:36:29.032]             }
  [21:36:29.032]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.032]         }
  [21:36:29.032]     }
  [21:36:29.032]     if (base::is.na(TRUE)) {
  [21:36:29.032]     }
  [21:36:29.032]     else {
  [21:36:29.032]         if (TRUE) {
  [21:36:29.032]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.032]                 open = "w")
  [21:36:29.032]         }
  [21:36:29.032]         else {
  [21:36:29.032]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.032]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.032]         }
  [21:36:29.032]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.032]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.032]             base::sink(type = "output", split = FALSE)
  [21:36:29.032]             base::close(...future.stdout)
  [21:36:29.032]         }, add = TRUE)
  [21:36:29.032]     }
  [21:36:29.032]     ...future.frame <- base::sys.nframe()
  [21:36:29.032]     ...future.conditions <- base::list()
  [21:36:29.032]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.032]     ...future.result <- base::tryCatch({
  [21:36:29.032]         base::withCallingHandlers({
  [21:36:29.032]             ...future.value <- base::withVisible(base::local({
  [21:36:29.032]                 sample(x, size = 1L)
  [21:36:29.032]             }))
  [21:36:29.032]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.032]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.032]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.032]                 version = "1.8")
  [21:36:29.032]         }, condition = base::local({
  [21:36:29.032]             c <- base::c
  [21:36:29.032]             inherits <- base::inherits
  [21:36:29.032]             invokeRestart <- base::invokeRestart
  [21:36:29.032]             length <- base::length
  [21:36:29.032]             list <- base::list
  [21:36:29.032]             seq.int <- base::seq.int
  [21:36:29.032]             signalCondition <- base::signalCondition
  [21:36:29.032]             sys.calls <- base::sys.calls
  [21:36:29.032]             Sys.time <- base::Sys.time
  [21:36:29.032]             `[[` <- base::`[[`
  [21:36:29.032]             `+` <- base::`+`
  [21:36:29.032]             `<<-` <- base::`<<-`
  [21:36:29.032]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.032]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.032]                   3L)]
  [21:36:29.032]             }
  [21:36:29.032]             function(cond) {
  [21:36:29.032]                 if (inherits(cond, "error")) {
  [21:36:29.032]                   sessionInformation <- function() {
  [21:36:29.032]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.032]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.032]                       search = base::search(), system = base::Sys.info())
  [21:36:29.032]                   }
  [21:36:29.032]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.032]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.032]                     cond$call), session = sessionInformation(), 
  [21:36:29.032]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.032]                   signalCondition(cond)
  [21:36:29.032]                 }
  [21:36:29.032]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.032]                 ))) {
  [21:36:29.032]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.032]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.032]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.032]                   if (!signal) {
  [21:36:29.032]                     muffleCondition <- function (cond) 
  [21:36:29.032]                     {
  [21:36:29.032]                       inherits <- base::inherits
  [21:36:29.032]                       invokeRestart <- base::invokeRestart
  [21:36:29.032]                       muffled <- FALSE
  [21:36:29.032]                       if (inherits(cond, "message")) {
  [21:36:29.032]                         invokeRestart("muffleMessage")
  [21:36:29.032]                         muffled <- TRUE
  [21:36:29.032]                       }
  [21:36:29.032]                       else if (inherits(cond, "warning")) {
  [21:36:29.032]                         invokeRestart("muffleWarning")
  [21:36:29.032]                         muffled <- TRUE
  [21:36:29.032]                       }
  [21:36:29.032]                       else if (inherits(cond, "condition")) {
  [21:36:29.032]                         computeRestarts <- base::computeRestarts
  [21:36:29.032]                         grepl <- base::grepl
  [21:36:29.032]                         is.null <- base::is.null
  [21:36:29.032]                         restarts <- computeRestarts(cond)
  [21:36:29.032]                         for (restart in restarts) {
  [21:36:29.032]                           name <- restart$name
  [21:36:29.032]                           if (is.null(name)) 
  [21:36:29.032]                             next
  [21:36:29.032]                           if (!grepl("^muffle", name)) 
  [21:36:29.032]                             next
  [21:36:29.032]                           invokeRestart(restart)
  [21:36:29.032]                           muffled <- TRUE
  [21:36:29.032]                           break
  [21:36:29.032]                         }
  [21:36:29.032]                       }
  [21:36:29.032]                       invisible(muffled)
  [21:36:29.032]                     }
  [21:36:29.032]                     muffleCondition(cond)
  [21:36:29.032]                   }
  [21:36:29.032]                 }
  [21:36:29.032]             }
  [21:36:29.032]         }))
  [21:36:29.032]     }, error = function(ex) {
  [21:36:29.032]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.032]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.032]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.032]     }, finally = {
  [21:36:29.032]         {
  [21:36:29.032]             NULL
  [21:36:29.032]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.032]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.032]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.032]                 label = NULL, ...) 
  [21:36:29.032]             {
  [21:36:29.032]                 if (substitute) 
  [21:36:29.032]                   expr <- substitute(expr)
  [21:36:29.032]                 local <- as.logical(local)
  [21:36:29.032]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.032]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.032]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.032]                   label = label, ...)
  [21:36:29.032]                 if (!future$lazy) 
  [21:36:29.032]                   future <- run(future)
  [21:36:29.032]                 invisible(future)
  [21:36:29.032]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.032]         }
  [21:36:29.032]         base::options(...future.oldOptions)
  [21:36:29.032]     })
  [21:36:29.032]     Sys.time
  [21:36:29.032]     if (base::is.na(TRUE)) {
  [21:36:29.032]     }
  [21:36:29.032]     else {
  [21:36:29.032]         base::sink(type = "output", split = FALSE)
  [21:36:29.032]         if (TRUE) {
  [21:36:29.032]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.032]         }
  [21:36:29.032]         else {
  [21:36:29.032]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.032]         }
  [21:36:29.032]         base::close(...future.stdout)
  [21:36:29.032]         ...future.stdout <- NULL
  [21:36:29.032]     }
  [21:36:29.032]     ...future.result$conditions <- ...future.conditions
  [21:36:29.032]     ...future.result
  [21:36:29.032] }
  [21:36:29.036] plan(): Setting new future strategy stack:
  [21:36:29.037] List of future strategies:
  [21:36:29.037] 1. sequential:
  [21:36:29.037]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.037]    - tweaked: FALSE
  [21:36:29.037]    - call: NULL
  [21:36:29.038] plan(): nbrOfWorkers() = 1
  [21:36:29.039] plan(): Setting new future strategy stack:
  [21:36:29.039] List of future strategies:
  [21:36:29.039] 1. sequential:
  [21:36:29.039]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.039]    - tweaked: FALSE
  [21:36:29.039]    - call: plan(strategy)
  [21:36:29.040] plan(): nbrOfWorkers() = 1
  [21:36:29.040] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_2-328814'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x5616705b2b00>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.042] getGlobalsAndPackages() ...
  [21:36:29.042] Searching for globals...
  [21:36:29.044] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.045] Searching for globals ... DONE
  [21:36:29.045] Resolving globals: FALSE
  [21:36:29.062] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.062] - globals: [1] 'x'
  [21:36:29.063] 
  [21:36:29.063] getGlobalsAndPackages() ... DONE
  [21:36:29.065] Packages needed by the future expression (n = 0): <none>
  [21:36:29.065] Packages needed by future strategies (n = 0): <none>
  [21:36:29.069] {
  [21:36:29.069]     {
  [21:36:29.069]         ...future.startTime <- base::Sys.time()
  [21:36:29.069]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.069]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.069]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.069]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.069]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.069]         {
  [21:36:29.069]             {
  [21:36:29.069]                 base::local({
  [21:36:29.069]                   has_future <- base::requireNamespace("future", 
  [21:36:29.069]                     quietly = TRUE)
  [21:36:29.069]                   version <- if (has_future) 
  [21:36:29.069]                     utils::packageVersion("future")
  [21:36:29.069]                   else NULL
  [21:36:29.069]                   if (!has_future || version < "1.8.0") {
  [21:36:29.069]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.069]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.069]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.069]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.069]                         "release", "version")], collapse = " "), 
  [21:36:29.069]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.069]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.069]                       info)
  [21:36:29.069]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.069]                     if (!has_future) {
  [21:36:29.069]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.069]                         info)
  [21:36:29.069]                     }
  [21:36:29.069]                     else {
  [21:36:29.069]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.069]                         info, version)
  [21:36:29.069]                     }
  [21:36:29.069]                     base::stop(msg)
  [21:36:29.069]                   }
  [21:36:29.069]                 })
  [21:36:29.069]             }
  [21:36:29.069]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.069]         }
  [21:36:29.069]     }
  [21:36:29.069]     if (base::is.na(TRUE)) {
  [21:36:29.069]     }
  [21:36:29.069]     else {
  [21:36:29.069]         if (TRUE) {
  [21:36:29.069]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.069]                 open = "w")
  [21:36:29.069]         }
  [21:36:29.069]         else {
  [21:36:29.069]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.069]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.069]         }
  [21:36:29.069]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.069]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.069]             base::sink(type = "output", split = FALSE)
  [21:36:29.069]             base::close(...future.stdout)
  [21:36:29.069]         }, add = TRUE)
  [21:36:29.069]     }
  [21:36:29.069]     ...future.frame <- base::sys.nframe()
  [21:36:29.069]     ...future.conditions <- base::list()
  [21:36:29.069]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.069]     ...future.result <- base::tryCatch({
  [21:36:29.069]         base::withCallingHandlers({
  [21:36:29.069]             ...future.value <- base::withVisible(base::local({
  [21:36:29.069]                 sample(x, size = 1L)
  [21:36:29.069]             }))
  [21:36:29.069]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.069]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.069]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.069]                 version = "1.8")
  [21:36:29.069]         }, condition = base::local({
  [21:36:29.069]             c <- base::c
  [21:36:29.069]             inherits <- base::inherits
  [21:36:29.069]             invokeRestart <- base::invokeRestart
  [21:36:29.069]             length <- base::length
  [21:36:29.069]             list <- base::list
  [21:36:29.069]             seq.int <- base::seq.int
  [21:36:29.069]             signalCondition <- base::signalCondition
  [21:36:29.069]             sys.calls <- base::sys.calls
  [21:36:29.069]             Sys.time <- base::Sys.time
  [21:36:29.069]             `[[` <- base::`[[`
  [21:36:29.069]             `+` <- base::`+`
  [21:36:29.069]             `<<-` <- base::`<<-`
  [21:36:29.069]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.069]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.069]                   3L)]
  [21:36:29.069]             }
  [21:36:29.069]             function(cond) {
  [21:36:29.069]                 if (inherits(cond, "error")) {
  [21:36:29.069]                   sessionInformation <- function() {
  [21:36:29.069]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.069]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.069]                       search = base::search(), system = base::Sys.info())
  [21:36:29.069]                   }
  [21:36:29.069]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.069]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.069]                     cond$call), session = sessionInformation(), 
  [21:36:29.069]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.069]                   signalCondition(cond)
  [21:36:29.069]                 }
  [21:36:29.069]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.069]                 ))) {
  [21:36:29.069]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.069]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.069]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.069]                   if (!signal) {
  [21:36:29.069]                     muffleCondition <- function (cond) 
  [21:36:29.069]                     {
  [21:36:29.069]                       inherits <- base::inherits
  [21:36:29.069]                       invokeRestart <- base::invokeRestart
  [21:36:29.069]                       muffled <- FALSE
  [21:36:29.069]                       if (inherits(cond, "message")) {
  [21:36:29.069]                         invokeRestart("muffleMessage")
  [21:36:29.069]                         muffled <- TRUE
  [21:36:29.069]                       }
  [21:36:29.069]                       else if (inherits(cond, "warning")) {
  [21:36:29.069]                         invokeRestart("muffleWarning")
  [21:36:29.069]                         muffled <- TRUE
  [21:36:29.069]                       }
  [21:36:29.069]                       else if (inherits(cond, "condition")) {
  [21:36:29.069]                         computeRestarts <- base::computeRestarts
  [21:36:29.069]                         grepl <- base::grepl
  [21:36:29.069]                         is.null <- base::is.null
  [21:36:29.069]                         restarts <- computeRestarts(cond)
  [21:36:29.069]                         for (restart in restarts) {
  [21:36:29.069]                           name <- restart$name
  [21:36:29.069]                           if (is.null(name)) 
  [21:36:29.069]                             next
  [21:36:29.069]                           if (!grepl("^muffle", name)) 
  [21:36:29.069]                             next
  [21:36:29.069]                           invokeRestart(restart)
  [21:36:29.069]                           muffled <- TRUE
  [21:36:29.069]                           break
  [21:36:29.069]                         }
  [21:36:29.069]                       }
  [21:36:29.069]                       invisible(muffled)
  [21:36:29.069]                     }
  [21:36:29.069]                     muffleCondition(cond)
  [21:36:29.069]                   }
  [21:36:29.069]                 }
  [21:36:29.069]             }
  [21:36:29.069]         }))
  [21:36:29.069]     }, error = function(ex) {
  [21:36:29.069]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.069]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.069]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.069]     }, finally = {
  [21:36:29.069]         {
  [21:36:29.069]             NULL
  [21:36:29.069]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.069]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.069]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.069]                 label = NULL, ...) 
  [21:36:29.069]             {
  [21:36:29.069]                 if (substitute) 
  [21:36:29.069]                   expr <- substitute(expr)
  [21:36:29.069]                 local <- as.logical(local)
  [21:36:29.069]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.069]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.069]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.069]                   label = label, ...)
  [21:36:29.069]                 if (!future$lazy) 
  [21:36:29.069]                   future <- run(future)
  [21:36:29.069]                 invisible(future)
  [21:36:29.069]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.069]         }
  [21:36:29.069]         base::options(...future.oldOptions)
  [21:36:29.069]     })
  [21:36:29.069]     Sys.time
  [21:36:29.069]     if (base::is.na(TRUE)) {
  [21:36:29.069]     }
  [21:36:29.069]     else {
  [21:36:29.069]         base::sink(type = "output", split = FALSE)
  [21:36:29.069]         if (TRUE) {
  [21:36:29.069]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.069]         }
  [21:36:29.069]         else {
  [21:36:29.069]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.069]         }
  [21:36:29.069]         base::close(...future.stdout)
  [21:36:29.069]         ...future.stdout <- NULL
  [21:36:29.069]     }
  [21:36:29.069]     ...future.result$conditions <- ...future.conditions
  [21:36:29.069]     ...future.result
  [21:36:29.069] }
  [21:36:29.074] plan(): Setting new future strategy stack:
  [21:36:29.074] List of future strategies:
  [21:36:29.074] 1. sequential:
  [21:36:29.074]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.074]    - tweaked: FALSE
  [21:36:29.074]    - call: NULL
  [21:36:29.075] plan(): nbrOfWorkers() = 1
  [21:36:29.076] plan(): Setting new future strategy stack:
  [21:36:29.076] List of future strategies:
  [21:36:29.076] 1. sequential:
  [21:36:29.076]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.076]    - tweaked: FALSE
  [21:36:29.076]    - call: plan(strategy)
  [21:36:29.077] plan(): nbrOfWorkers() = 1
  [21:36:29.094] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_3-719479'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x5616705b2b00>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.096] getGlobalsAndPackages() ...
  [21:36:29.096] Searching for globals...
  [21:36:29.098] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.099] Searching for globals ... DONE
  [21:36:29.099] Resolving globals: FALSE
  [21:36:29.100] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.100] - globals: [1] 'x'
  [21:36:29.100] 
  [21:36:29.101] getGlobalsAndPackages() ... DONE
  [21:36:29.102] Packages needed by the future expression (n = 0): <none>
  [21:36:29.103] Packages needed by future strategies (n = 0): <none>
  [21:36:29.126] {
  [21:36:29.126]     {
  [21:36:29.126]         ...future.startTime <- base::Sys.time()
  [21:36:29.126]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.126]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.126]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.126]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.126]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.126]         {
  [21:36:29.126]             {
  [21:36:29.126]                 base::local({
  [21:36:29.126]                   has_future <- base::requireNamespace("future", 
  [21:36:29.126]                     quietly = TRUE)
  [21:36:29.126]                   version <- if (has_future) 
  [21:36:29.126]                     utils::packageVersion("future")
  [21:36:29.126]                   else NULL
  [21:36:29.126]                   if (!has_future || version < "1.8.0") {
  [21:36:29.126]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.126]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.126]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.126]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.126]                         "release", "version")], collapse = " "), 
  [21:36:29.126]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.126]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.126]                       info)
  [21:36:29.126]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.126]                     if (!has_future) {
  [21:36:29.126]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.126]                         info)
  [21:36:29.126]                     }
  [21:36:29.126]                     else {
  [21:36:29.126]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.126]                         info, version)
  [21:36:29.126]                     }
  [21:36:29.126]                     base::stop(msg)
  [21:36:29.126]                   }
  [21:36:29.126]                 })
  [21:36:29.126]             }
  [21:36:29.126]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.126]         }
  [21:36:29.126]     }
  [21:36:29.126]     if (base::is.na(TRUE)) {
  [21:36:29.126]     }
  [21:36:29.126]     else {
  [21:36:29.126]         if (TRUE) {
  [21:36:29.126]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.126]                 open = "w")
  [21:36:29.126]         }
  [21:36:29.126]         else {
  [21:36:29.126]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.126]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.126]         }
  [21:36:29.126]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.126]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.126]             base::sink(type = "output", split = FALSE)
  [21:36:29.126]             base::close(...future.stdout)
  [21:36:29.126]         }, add = TRUE)
  [21:36:29.126]     }
  [21:36:29.126]     ...future.frame <- base::sys.nframe()
  [21:36:29.126]     ...future.conditions <- base::list()
  [21:36:29.126]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.126]     ...future.result <- base::tryCatch({
  [21:36:29.126]         base::withCallingHandlers({
  [21:36:29.126]             ...future.value <- base::withVisible(base::local({
  [21:36:29.126]                 sample(x, size = 1L)
  [21:36:29.126]             }))
  [21:36:29.126]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.126]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.126]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.126]                 version = "1.8")
  [21:36:29.126]         }, condition = base::local({
  [21:36:29.126]             c <- base::c
  [21:36:29.126]             inherits <- base::inherits
  [21:36:29.126]             invokeRestart <- base::invokeRestart
  [21:36:29.126]             length <- base::length
  [21:36:29.126]             list <- base::list
  [21:36:29.126]             seq.int <- base::seq.int
  [21:36:29.126]             signalCondition <- base::signalCondition
  [21:36:29.126]             sys.calls <- base::sys.calls
  [21:36:29.126]             Sys.time <- base::Sys.time
  [21:36:29.126]             `[[` <- base::`[[`
  [21:36:29.126]             `+` <- base::`+`
  [21:36:29.126]             `<<-` <- base::`<<-`
  [21:36:29.126]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.126]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.126]                   3L)]
  [21:36:29.126]             }
  [21:36:29.126]             function(cond) {
  [21:36:29.126]                 if (inherits(cond, "error")) {
  [21:36:29.126]                   sessionInformation <- function() {
  [21:36:29.126]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.126]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.126]                       search = base::search(), system = base::Sys.info())
  [21:36:29.126]                   }
  [21:36:29.126]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.126]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.126]                     cond$call), session = sessionInformation(), 
  [21:36:29.126]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.126]                   signalCondition(cond)
  [21:36:29.126]                 }
  [21:36:29.126]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.126]                 ))) {
  [21:36:29.126]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.126]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.126]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.126]                   if (!signal) {
  [21:36:29.126]                     muffleCondition <- function (cond) 
  [21:36:29.126]                     {
  [21:36:29.126]                       inherits <- base::inherits
  [21:36:29.126]                       invokeRestart <- base::invokeRestart
  [21:36:29.126]                       muffled <- FALSE
  [21:36:29.126]                       if (inherits(cond, "message")) {
  [21:36:29.126]                         invokeRestart("muffleMessage")
  [21:36:29.126]                         muffled <- TRUE
  [21:36:29.126]                       }
  [21:36:29.126]                       else if (inherits(cond, "warning")) {
  [21:36:29.126]                         invokeRestart("muffleWarning")
  [21:36:29.126]                         muffled <- TRUE
  [21:36:29.126]                       }
  [21:36:29.126]                       else if (inherits(cond, "condition")) {
  [21:36:29.126]                         computeRestarts <- base::computeRestarts
  [21:36:29.126]                         grepl <- base::grepl
  [21:36:29.126]                         is.null <- base::is.null
  [21:36:29.126]                         restarts <- computeRestarts(cond)
  [21:36:29.126]                         for (restart in restarts) {
  [21:36:29.126]                           name <- restart$name
  [21:36:29.126]                           if (is.null(name)) 
  [21:36:29.126]                             next
  [21:36:29.126]                           if (!grepl("^muffle", name)) 
  [21:36:29.126]                             next
  [21:36:29.126]                           invokeRestart(restart)
  [21:36:29.126]                           muffled <- TRUE
  [21:36:29.126]                           break
  [21:36:29.126]                         }
  [21:36:29.126]                       }
  [21:36:29.126]                       invisible(muffled)
  [21:36:29.126]                     }
  [21:36:29.126]                     muffleCondition(cond)
  [21:36:29.126]                   }
  [21:36:29.126]                 }
  [21:36:29.126]             }
  [21:36:29.126]         }))
  [21:36:29.126]     }, error = function(ex) {
  [21:36:29.126]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.126]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.126]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.126]     }, finally = {
  [21:36:29.126]         {
  [21:36:29.126]             NULL
  [21:36:29.126]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.126]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.126]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.126]                 label = NULL, ...) 
  [21:36:29.126]             {
  [21:36:29.126]                 if (substitute) 
  [21:36:29.126]                   expr <- substitute(expr)
  [21:36:29.126]                 local <- as.logical(local)
  [21:36:29.126]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.126]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.126]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.126]                   label = label, ...)
  [21:36:29.126]                 if (!future$lazy) 
  [21:36:29.126]                   future <- run(future)
  [21:36:29.126]                 invisible(future)
  [21:36:29.126]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.126]         }
  [21:36:29.126]         base::options(...future.oldOptions)
  [21:36:29.126]     })
  [21:36:29.126]     Sys.time
  [21:36:29.126]     if (base::is.na(TRUE)) {
  [21:36:29.126]     }
  [21:36:29.126]     else {
  [21:36:29.126]         base::sink(type = "output", split = FALSE)
  [21:36:29.126]         if (TRUE) {
  [21:36:29.126]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.126]         }
  [21:36:29.126]         else {
  [21:36:29.126]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.126]         }
  [21:36:29.126]         base::close(...future.stdout)
  [21:36:29.126]         ...future.stdout <- NULL
  [21:36:29.126]     }
  [21:36:29.126]     ...future.result$conditions <- ...future.conditions
  [21:36:29.126]     ...future.result
  [21:36:29.126] }
  [21:36:29.131] plan(): Setting new future strategy stack:
  [21:36:29.131] List of future strategies:
  [21:36:29.131] 1. sequential:
  [21:36:29.131]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.131]    - tweaked: FALSE
  [21:36:29.131]    - call: NULL
  [21:36:29.132] plan(): nbrOfWorkers() = 1
  [21:36:29.133] plan(): Setting new future strategy stack:
  [21:36:29.134] List of future strategies:
  [21:36:29.134] 1. sequential:
  [21:36:29.134]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.134]    - tweaked: FALSE
  [21:36:29.134]    - call: plan(strategy)
  [21:36:29.134] plan(): nbrOfWorkers() = 1
  [21:36:29.135] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_4-405829'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x5616705b2b00>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.137] resolve() on list ...
  [21:36:29.137]  recursive: 0
  [21:36:29.137]  length: 4
  [21:36:29.138] 
  [21:36:29.138] Future #1
  [21:36:29.139] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:29.139] - nx: 4
  [21:36:29.139] - relay: TRUE
  [21:36:29.139] - stdout: TRUE
  [21:36:29.140] - signal: TRUE
  [21:36:29.140] - resignal: FALSE
  [21:36:29.140] - force: TRUE
  [21:36:29.141] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.141] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.141]  - until=1
  [21:36:29.141]  - relaying element #1
  [21:36:29.158] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.158] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.159] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:29.159]  length: 3 (resolved future 1)
  [21:36:29.159] Future #2
  [21:36:29.160] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:29.160] - nx: 4
  [21:36:29.160] - relay: TRUE
  [21:36:29.161] - stdout: TRUE
  [21:36:29.161] - signal: TRUE
  [21:36:29.161] - resignal: FALSE
  [21:36:29.162] - force: TRUE
  [21:36:29.162] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.162] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.162]  - until=2
  [21:36:29.163]  - relaying element #2
  [21:36:29.163] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.164] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.164] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:29.164]  length: 2 (resolved future 2)
  [21:36:29.165] Future #3
  [21:36:29.165] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:29.165] - nx: 4
  [21:36:29.166] - relay: TRUE
  [21:36:29.166] - stdout: TRUE
  [21:36:29.166] - signal: TRUE
  [21:36:29.167] - resignal: FALSE
  [21:36:29.167] - force: TRUE
  [21:36:29.167] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.167] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.168]  - until=3
  [21:36:29.168]  - relaying element #3
  [21:36:29.169] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.169] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.169] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:29.169]  length: 1 (resolved future 3)
  [21:36:29.170] Future #4
  [21:36:29.170] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:29.171] - nx: 4
  [21:36:29.171] - relay: TRUE
  [21:36:29.171] - stdout: TRUE
  [21:36:29.171] - signal: TRUE
  [21:36:29.172] - resignal: FALSE
  [21:36:29.172] - force: TRUE
  [21:36:29.172] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.173] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.173]  - until=4
  [21:36:29.173]  - relaying element #4
  [21:36:29.190] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.190] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.191] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:29.191]  length: 0 (resolved future 4)
  [21:36:29.191] Relaying remaining futures
  [21:36:29.191] signalConditionsASAP(NULL, pos=0) ...
  [21:36:29.192] - nx: 4
  [21:36:29.192] - relay: TRUE
  [21:36:29.192] - stdout: TRUE
  [21:36:29.193] - signal: TRUE
  [21:36:29.193] - resignal: FALSE
  [21:36:29.193] - force: TRUE
  [21:36:29.193] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.194] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:29.194] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.195] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.195] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:29.195] resolve() on list ... DONE
  [[1]]
  [1] 0
  
  [[2]]
  [1] 1
  
  [[3]]
  [1] 1
  
  [[4]]
  [1] 2
  
  [21:36:29.196] getGlobalsAndPackages() ...
  [21:36:29.196] Searching for globals...
  [21:36:29.198] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.199] Searching for globals ... DONE
  [21:36:29.199] Resolving globals: FALSE
  [21:36:29.200] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.200] - globals: [1] 'x'
  [21:36:29.201] 
  [21:36:29.201] getGlobalsAndPackages() ... DONE
  [21:36:29.202] Packages needed by the future expression (n = 0): <none>
  [21:36:29.203] Packages needed by future strategies (n = 0): <none>
  [21:36:29.223] {
  [21:36:29.223]     {
  [21:36:29.223]         ...future.startTime <- base::Sys.time()
  [21:36:29.223]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.223]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.223]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.223]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.223]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.223]         {
  [21:36:29.223]             {
  [21:36:29.223]                 base::local({
  [21:36:29.223]                   has_future <- base::requireNamespace("future", 
  [21:36:29.223]                     quietly = TRUE)
  [21:36:29.223]                   version <- if (has_future) 
  [21:36:29.223]                     utils::packageVersion("future")
  [21:36:29.223]                   else NULL
  [21:36:29.223]                   if (!has_future || version < "1.8.0") {
  [21:36:29.223]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.223]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.223]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.223]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.223]                         "release", "version")], collapse = " "), 
  [21:36:29.223]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.223]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.223]                       info)
  [21:36:29.223]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.223]                     if (!has_future) {
  [21:36:29.223]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.223]                         info)
  [21:36:29.223]                     }
  [21:36:29.223]                     else {
  [21:36:29.223]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.223]                         info, version)
  [21:36:29.223]                     }
  [21:36:29.223]                     base::stop(msg)
  [21:36:29.223]                   }
  [21:36:29.223]                 })
  [21:36:29.223]             }
  [21:36:29.223]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.223]         }
  [21:36:29.223]     }
  [21:36:29.223]     if (base::is.na(TRUE)) {
  [21:36:29.223]     }
  [21:36:29.223]     else {
  [21:36:29.223]         if (TRUE) {
  [21:36:29.223]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.223]                 open = "w")
  [21:36:29.223]         }
  [21:36:29.223]         else {
  [21:36:29.223]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.223]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.223]         }
  [21:36:29.223]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.223]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.223]             base::sink(type = "output", split = FALSE)
  [21:36:29.223]             base::close(...future.stdout)
  [21:36:29.223]         }, add = TRUE)
  [21:36:29.223]     }
  [21:36:29.223]     ...future.frame <- base::sys.nframe()
  [21:36:29.223]     ...future.conditions <- base::list()
  [21:36:29.223]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.223]     ...future.result <- base::tryCatch({
  [21:36:29.223]         base::withCallingHandlers({
  [21:36:29.223]             ...future.value <- base::withVisible(base::local({
  [21:36:29.223]                 sample(x, size = 1L)
  [21:36:29.223]             }))
  [21:36:29.223]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.223]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.223]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.223]                 version = "1.8")
  [21:36:29.223]         }, condition = base::local({
  [21:36:29.223]             c <- base::c
  [21:36:29.223]             inherits <- base::inherits
  [21:36:29.223]             invokeRestart <- base::invokeRestart
  [21:36:29.223]             length <- base::length
  [21:36:29.223]             list <- base::list
  [21:36:29.223]             seq.int <- base::seq.int
  [21:36:29.223]             signalCondition <- base::signalCondition
  [21:36:29.223]             sys.calls <- base::sys.calls
  [21:36:29.223]             Sys.time <- base::Sys.time
  [21:36:29.223]             `[[` <- base::`[[`
  [21:36:29.223]             `+` <- base::`+`
  [21:36:29.223]             `<<-` <- base::`<<-`
  [21:36:29.223]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.223]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.223]                   3L)]
  [21:36:29.223]             }
  [21:36:29.223]             function(cond) {
  [21:36:29.223]                 if (inherits(cond, "error")) {
  [21:36:29.223]                   sessionInformation <- function() {
  [21:36:29.223]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.223]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.223]                       search = base::search(), system = base::Sys.info())
  [21:36:29.223]                   }
  [21:36:29.223]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.223]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.223]                     cond$call), session = sessionInformation(), 
  [21:36:29.223]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.223]                   signalCondition(cond)
  [21:36:29.223]                 }
  [21:36:29.223]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.223]                 ))) {
  [21:36:29.223]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.223]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.223]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.223]                   if (!signal) {
  [21:36:29.223]                     muffleCondition <- function (cond) 
  [21:36:29.223]                     {
  [21:36:29.223]                       inherits <- base::inherits
  [21:36:29.223]                       invokeRestart <- base::invokeRestart
  [21:36:29.223]                       muffled <- FALSE
  [21:36:29.223]                       if (inherits(cond, "message")) {
  [21:36:29.223]                         invokeRestart("muffleMessage")
  [21:36:29.223]                         muffled <- TRUE
  [21:36:29.223]                       }
  [21:36:29.223]                       else if (inherits(cond, "warning")) {
  [21:36:29.223]                         invokeRestart("muffleWarning")
  [21:36:29.223]                         muffled <- TRUE
  [21:36:29.223]                       }
  [21:36:29.223]                       else if (inherits(cond, "condition")) {
  [21:36:29.223]                         computeRestarts <- base::computeRestarts
  [21:36:29.223]                         grepl <- base::grepl
  [21:36:29.223]                         is.null <- base::is.null
  [21:36:29.223]                         restarts <- computeRestarts(cond)
  [21:36:29.223]                         for (restart in restarts) {
  [21:36:29.223]                           name <- restart$name
  [21:36:29.223]                           if (is.null(name)) 
  [21:36:29.223]                             next
  [21:36:29.223]                           if (!grepl("^muffle", name)) 
  [21:36:29.223]                             next
  [21:36:29.223]                           invokeRestart(restart)
  [21:36:29.223]                           muffled <- TRUE
  [21:36:29.223]                           break
  [21:36:29.223]                         }
  [21:36:29.223]                       }
  [21:36:29.223]                       invisible(muffled)
  [21:36:29.223]                     }
  [21:36:29.223]                     muffleCondition(cond)
  [21:36:29.223]                   }
  [21:36:29.223]                 }
  [21:36:29.223]             }
  [21:36:29.223]         }))
  [21:36:29.223]     }, error = function(ex) {
  [21:36:29.223]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.223]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.223]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.223]     }, finally = {
  [21:36:29.223]         {
  [21:36:29.223]             NULL
  [21:36:29.223]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.223]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.223]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.223]                 label = NULL, ...) 
  [21:36:29.223]             {
  [21:36:29.223]                 if (substitute) 
  [21:36:29.223]                   expr <- substitute(expr)
  [21:36:29.223]                 local <- as.logical(local)
  [21:36:29.223]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.223]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.223]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.223]                   label = label, ...)
  [21:36:29.223]                 if (!future$lazy) 
  [21:36:29.223]                   future <- run(future)
  [21:36:29.223]                 invisible(future)
  [21:36:29.223]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.223]         }
  [21:36:29.223]         base::options(...future.oldOptions)
  [21:36:29.223]     })
  [21:36:29.223]     Sys.time
  [21:36:29.223]     if (base::is.na(TRUE)) {
  [21:36:29.223]     }
  [21:36:29.223]     else {
  [21:36:29.223]         base::sink(type = "output", split = FALSE)
  [21:36:29.223]         if (TRUE) {
  [21:36:29.223]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.223]         }
  [21:36:29.223]         else {
  [21:36:29.223]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.223]         }
  [21:36:29.223]         base::close(...future.stdout)
  [21:36:29.223]         ...future.stdout <- NULL
  [21:36:29.223]     }
  [21:36:29.223]     ...future.result$conditions <- ...future.conditions
  [21:36:29.223]     ...future.result
  [21:36:29.223] }
  [21:36:29.227] plan(): Setting new future strategy stack:
  [21:36:29.228] List of future strategies:
  [21:36:29.228] 1. sequential:
  [21:36:29.228]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.228]    - tweaked: FALSE
  [21:36:29.228]    - call: NULL
  [21:36:29.229] plan(): nbrOfWorkers() = 1
  [21:36:29.230] plan(): Setting new future strategy stack:
  [21:36:29.230] List of future strategies:
  [21:36:29.230] 1. sequential:
  [21:36:29.230]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.230]    - tweaked: FALSE
  [21:36:29.230]    - call: plan(strategy)
  [21:36:29.231] plan(): nbrOfWorkers() = 1
  [21:36:29.231] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_1-661991'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166fbbdf78>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.233] getGlobalsAndPackages() ...
  [21:36:29.233] Searching for globals...
  [21:36:29.235] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.235] Searching for globals ... DONE
  [21:36:29.236] Resolving globals: FALSE
  [21:36:29.236] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.237] - globals: [1] 'x'
  [21:36:29.237] 
  [21:36:29.237] getGlobalsAndPackages() ... DONE
  [21:36:29.255] Packages needed by the future expression (n = 0): <none>
  [21:36:29.255] Packages needed by future strategies (n = 0): <none>
  [21:36:29.262] {
  [21:36:29.262]     {
  [21:36:29.262]         ...future.startTime <- base::Sys.time()
  [21:36:29.262]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.262]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.262]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.262]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.262]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.262]         {
  [21:36:29.262]             {
  [21:36:29.262]                 base::local({
  [21:36:29.262]                   has_future <- base::requireNamespace("future", 
  [21:36:29.262]                     quietly = TRUE)
  [21:36:29.262]                   version <- if (has_future) 
  [21:36:29.262]                     utils::packageVersion("future")
  [21:36:29.262]                   else NULL
  [21:36:29.262]                   if (!has_future || version < "1.8.0") {
  [21:36:29.262]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.262]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.262]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.262]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.262]                         "release", "version")], collapse = " "), 
  [21:36:29.262]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.262]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.262]                       info)
  [21:36:29.262]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.262]                     if (!has_future) {
  [21:36:29.262]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.262]                         info)
  [21:36:29.262]                     }
  [21:36:29.262]                     else {
  [21:36:29.262]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.262]                         info, version)
  [21:36:29.262]                     }
  [21:36:29.262]                     base::stop(msg)
  [21:36:29.262]                   }
  [21:36:29.262]                 })
  [21:36:29.262]             }
  [21:36:29.262]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.262]         }
  [21:36:29.262]     }
  [21:36:29.262]     if (base::is.na(TRUE)) {
  [21:36:29.262]     }
  [21:36:29.262]     else {
  [21:36:29.262]         if (TRUE) {
  [21:36:29.262]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.262]                 open = "w")
  [21:36:29.262]         }
  [21:36:29.262]         else {
  [21:36:29.262]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.262]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.262]         }
  [21:36:29.262]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.262]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.262]             base::sink(type = "output", split = FALSE)
  [21:36:29.262]             base::close(...future.stdout)
  [21:36:29.262]         }, add = TRUE)
  [21:36:29.262]     }
  [21:36:29.262]     ...future.frame <- base::sys.nframe()
  [21:36:29.262]     ...future.conditions <- base::list()
  [21:36:29.262]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.262]     ...future.result <- base::tryCatch({
  [21:36:29.262]         base::withCallingHandlers({
  [21:36:29.262]             ...future.value <- base::withVisible(base::local({
  [21:36:29.262]                 sample(x, size = 1L)
  [21:36:29.262]             }))
  [21:36:29.262]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.262]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.262]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.262]                 version = "1.8")
  [21:36:29.262]         }, condition = base::local({
  [21:36:29.262]             c <- base::c
  [21:36:29.262]             inherits <- base::inherits
  [21:36:29.262]             invokeRestart <- base::invokeRestart
  [21:36:29.262]             length <- base::length
  [21:36:29.262]             list <- base::list
  [21:36:29.262]             seq.int <- base::seq.int
  [21:36:29.262]             signalCondition <- base::signalCondition
  [21:36:29.262]             sys.calls <- base::sys.calls
  [21:36:29.262]             Sys.time <- base::Sys.time
  [21:36:29.262]             `[[` <- base::`[[`
  [21:36:29.262]             `+` <- base::`+`
  [21:36:29.262]             `<<-` <- base::`<<-`
  [21:36:29.262]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.262]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.262]                   3L)]
  [21:36:29.262]             }
  [21:36:29.262]             function(cond) {
  [21:36:29.262]                 if (inherits(cond, "error")) {
  [21:36:29.262]                   sessionInformation <- function() {
  [21:36:29.262]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.262]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.262]                       search = base::search(), system = base::Sys.info())
  [21:36:29.262]                   }
  [21:36:29.262]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.262]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.262]                     cond$call), session = sessionInformation(), 
  [21:36:29.262]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.262]                   signalCondition(cond)
  [21:36:29.262]                 }
  [21:36:29.262]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.262]                 ))) {
  [21:36:29.262]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.262]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.262]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.262]                   if (!signal) {
  [21:36:29.262]                     muffleCondition <- function (cond) 
  [21:36:29.262]                     {
  [21:36:29.262]                       inherits <- base::inherits
  [21:36:29.262]                       invokeRestart <- base::invokeRestart
  [21:36:29.262]                       muffled <- FALSE
  [21:36:29.262]                       if (inherits(cond, "message")) {
  [21:36:29.262]                         invokeRestart("muffleMessage")
  [21:36:29.262]                         muffled <- TRUE
  [21:36:29.262]                       }
  [21:36:29.262]                       else if (inherits(cond, "warning")) {
  [21:36:29.262]                         invokeRestart("muffleWarning")
  [21:36:29.262]                         muffled <- TRUE
  [21:36:29.262]                       }
  [21:36:29.262]                       else if (inherits(cond, "condition")) {
  [21:36:29.262]                         computeRestarts <- base::computeRestarts
  [21:36:29.262]                         grepl <- base::grepl
  [21:36:29.262]                         is.null <- base::is.null
  [21:36:29.262]                         restarts <- computeRestarts(cond)
  [21:36:29.262]                         for (restart in restarts) {
  [21:36:29.262]                           name <- restart$name
  [21:36:29.262]                           if (is.null(name)) 
  [21:36:29.262]                             next
  [21:36:29.262]                           if (!grepl("^muffle", name)) 
  [21:36:29.262]                             next
  [21:36:29.262]                           invokeRestart(restart)
  [21:36:29.262]                           muffled <- TRUE
  [21:36:29.262]                           break
  [21:36:29.262]                         }
  [21:36:29.262]                       }
  [21:36:29.262]                       invisible(muffled)
  [21:36:29.262]                     }
  [21:36:29.262]                     muffleCondition(cond)
  [21:36:29.262]                   }
  [21:36:29.262]                 }
  [21:36:29.262]             }
  [21:36:29.262]         }))
  [21:36:29.262]     }, error = function(ex) {
  [21:36:29.262]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.262]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.262]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.262]     }, finally = {
  [21:36:29.262]         {
  [21:36:29.262]             NULL
  [21:36:29.262]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.262]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.262]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.262]                 label = NULL, ...) 
  [21:36:29.262]             {
  [21:36:29.262]                 if (substitute) 
  [21:36:29.262]                   expr <- substitute(expr)
  [21:36:29.262]                 local <- as.logical(local)
  [21:36:29.262]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.262]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.262]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.262]                   label = label, ...)
  [21:36:29.262]                 if (!future$lazy) 
  [21:36:29.262]                   future <- run(future)
  [21:36:29.262]                 invisible(future)
  [21:36:29.262]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.262]         }
  [21:36:29.262]         base::options(...future.oldOptions)
  [21:36:29.262]     })
  [21:36:29.262]     Sys.time
  [21:36:29.262]     if (base::is.na(TRUE)) {
  [21:36:29.262]     }
  [21:36:29.262]     else {
  [21:36:29.262]         base::sink(type = "output", split = FALSE)
  [21:36:29.262]         if (TRUE) {
  [21:36:29.262]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.262]         }
  [21:36:29.262]         else {
  [21:36:29.262]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.262]         }
  [21:36:29.262]         base::close(...future.stdout)
  [21:36:29.262]         ...future.stdout <- NULL
  [21:36:29.262]     }
  [21:36:29.262]     ...future.result$conditions <- ...future.conditions
  [21:36:29.262]     ...future.result
  [21:36:29.262] }
  [21:36:29.267] plan(): Setting new future strategy stack:
  [21:36:29.267] List of future strategies:
  [21:36:29.267] 1. sequential:
  [21:36:29.267]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.267]    - tweaked: FALSE
  [21:36:29.267]    - call: NULL
  [21:36:29.268] plan(): nbrOfWorkers() = 1
  [21:36:29.269] plan(): Setting new future strategy stack:
  [21:36:29.269] List of future strategies:
  [21:36:29.269] 1. sequential:
  [21:36:29.269]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.269]    - tweaked: FALSE
  [21:36:29.269]    - call: plan(strategy)
  [21:36:29.286] plan(): nbrOfWorkers() = 1
  [21:36:29.287] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_2-272140'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166fbbdf78>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.289] getGlobalsAndPackages() ...
  [21:36:29.289] Searching for globals...
  [21:36:29.290] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.291] Searching for globals ... DONE
  [21:36:29.291] Resolving globals: FALSE
  [21:36:29.292] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.292] - globals: [1] 'x'
  [21:36:29.292] 
  [21:36:29.292] getGlobalsAndPackages() ... DONE
  [21:36:29.294] Packages needed by the future expression (n = 0): <none>
  [21:36:29.294] Packages needed by future strategies (n = 0): <none>
  [21:36:29.298] {
  [21:36:29.298]     {
  [21:36:29.298]         ...future.startTime <- base::Sys.time()
  [21:36:29.298]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.298]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.298]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.298]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.298]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.298]         {
  [21:36:29.298]             {
  [21:36:29.298]                 base::local({
  [21:36:29.298]                   has_future <- base::requireNamespace("future", 
  [21:36:29.298]                     quietly = TRUE)
  [21:36:29.298]                   version <- if (has_future) 
  [21:36:29.298]                     utils::packageVersion("future")
  [21:36:29.298]                   else NULL
  [21:36:29.298]                   if (!has_future || version < "1.8.0") {
  [21:36:29.298]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.298]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.298]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.298]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.298]                         "release", "version")], collapse = " "), 
  [21:36:29.298]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.298]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.298]                       info)
  [21:36:29.298]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.298]                     if (!has_future) {
  [21:36:29.298]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.298]                         info)
  [21:36:29.298]                     }
  [21:36:29.298]                     else {
  [21:36:29.298]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.298]                         info, version)
  [21:36:29.298]                     }
  [21:36:29.298]                     base::stop(msg)
  [21:36:29.298]                   }
  [21:36:29.298]                 })
  [21:36:29.298]             }
  [21:36:29.298]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.298]         }
  [21:36:29.298]     }
  [21:36:29.298]     if (base::is.na(TRUE)) {
  [21:36:29.298]     }
  [21:36:29.298]     else {
  [21:36:29.298]         if (TRUE) {
  [21:36:29.298]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.298]                 open = "w")
  [21:36:29.298]         }
  [21:36:29.298]         else {
  [21:36:29.298]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.298]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.298]         }
  [21:36:29.298]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.298]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.298]             base::sink(type = "output", split = FALSE)
  [21:36:29.298]             base::close(...future.stdout)
  [21:36:29.298]         }, add = TRUE)
  [21:36:29.298]     }
  [21:36:29.298]     ...future.frame <- base::sys.nframe()
  [21:36:29.298]     ...future.conditions <- base::list()
  [21:36:29.298]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.298]     ...future.result <- base::tryCatch({
  [21:36:29.298]         base::withCallingHandlers({
  [21:36:29.298]             ...future.value <- base::withVisible(base::local({
  [21:36:29.298]                 sample(x, size = 1L)
  [21:36:29.298]             }))
  [21:36:29.298]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.298]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.298]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.298]                 version = "1.8")
  [21:36:29.298]         }, condition = base::local({
  [21:36:29.298]             c <- base::c
  [21:36:29.298]             inherits <- base::inherits
  [21:36:29.298]             invokeRestart <- base::invokeRestart
  [21:36:29.298]             length <- base::length
  [21:36:29.298]             list <- base::list
  [21:36:29.298]             seq.int <- base::seq.int
  [21:36:29.298]             signalCondition <- base::signalCondition
  [21:36:29.298]             sys.calls <- base::sys.calls
  [21:36:29.298]             Sys.time <- base::Sys.time
  [21:36:29.298]             `[[` <- base::`[[`
  [21:36:29.298]             `+` <- base::`+`
  [21:36:29.298]             `<<-` <- base::`<<-`
  [21:36:29.298]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.298]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.298]                   3L)]
  [21:36:29.298]             }
  [21:36:29.298]             function(cond) {
  [21:36:29.298]                 if (inherits(cond, "error")) {
  [21:36:29.298]                   sessionInformation <- function() {
  [21:36:29.298]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.298]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.298]                       search = base::search(), system = base::Sys.info())
  [21:36:29.298]                   }
  [21:36:29.298]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.298]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.298]                     cond$call), session = sessionInformation(), 
  [21:36:29.298]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.298]                   signalCondition(cond)
  [21:36:29.298]                 }
  [21:36:29.298]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.298]                 ))) {
  [21:36:29.298]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.298]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.298]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.298]                   if (!signal) {
  [21:36:29.298]                     muffleCondition <- function (cond) 
  [21:36:29.298]                     {
  [21:36:29.298]                       inherits <- base::inherits
  [21:36:29.298]                       invokeRestart <- base::invokeRestart
  [21:36:29.298]                       muffled <- FALSE
  [21:36:29.298]                       if (inherits(cond, "message")) {
  [21:36:29.298]                         invokeRestart("muffleMessage")
  [21:36:29.298]                         muffled <- TRUE
  [21:36:29.298]                       }
  [21:36:29.298]                       else if (inherits(cond, "warning")) {
  [21:36:29.298]                         invokeRestart("muffleWarning")
  [21:36:29.298]                         muffled <- TRUE
  [21:36:29.298]                       }
  [21:36:29.298]                       else if (inherits(cond, "condition")) {
  [21:36:29.298]                         computeRestarts <- base::computeRestarts
  [21:36:29.298]                         grepl <- base::grepl
  [21:36:29.298]                         is.null <- base::is.null
  [21:36:29.298]                         restarts <- computeRestarts(cond)
  [21:36:29.298]                         for (restart in restarts) {
  [21:36:29.298]                           name <- restart$name
  [21:36:29.298]                           if (is.null(name)) 
  [21:36:29.298]                             next
  [21:36:29.298]                           if (!grepl("^muffle", name)) 
  [21:36:29.298]                             next
  [21:36:29.298]                           invokeRestart(restart)
  [21:36:29.298]                           muffled <- TRUE
  [21:36:29.298]                           break
  [21:36:29.298]                         }
  [21:36:29.298]                       }
  [21:36:29.298]                       invisible(muffled)
  [21:36:29.298]                     }
  [21:36:29.298]                     muffleCondition(cond)
  [21:36:29.298]                   }
  [21:36:29.298]                 }
  [21:36:29.298]             }
  [21:36:29.298]         }))
  [21:36:29.298]     }, error = function(ex) {
  [21:36:29.298]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.298]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.298]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.298]     }, finally = {
  [21:36:29.298]         {
  [21:36:29.298]             NULL
  [21:36:29.298]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.298]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.298]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.298]                 label = NULL, ...) 
  [21:36:29.298]             {
  [21:36:29.298]                 if (substitute) 
  [21:36:29.298]                   expr <- substitute(expr)
  [21:36:29.298]                 local <- as.logical(local)
  [21:36:29.298]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.298]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.298]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.298]                   label = label, ...)
  [21:36:29.298]                 if (!future$lazy) 
  [21:36:29.298]                   future <- run(future)
  [21:36:29.298]                 invisible(future)
  [21:36:29.298]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.298]         }
  [21:36:29.298]         base::options(...future.oldOptions)
  [21:36:29.298]     })
  [21:36:29.298]     Sys.time
  [21:36:29.298]     if (base::is.na(TRUE)) {
  [21:36:29.298]     }
  [21:36:29.298]     else {
  [21:36:29.298]         base::sink(type = "output", split = FALSE)
  [21:36:29.298]         if (TRUE) {
  [21:36:29.298]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.298]         }
  [21:36:29.298]         else {
  [21:36:29.298]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.298]         }
  [21:36:29.298]         base::close(...future.stdout)
  [21:36:29.298]         ...future.stdout <- NULL
  [21:36:29.298]     }
  [21:36:29.298]     ...future.result$conditions <- ...future.conditions
  [21:36:29.298]     ...future.result
  [21:36:29.298] }
  [21:36:29.318] plan(): Setting new future strategy stack:
  [21:36:29.318] List of future strategies:
  [21:36:29.318] 1. sequential:
  [21:36:29.318]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.318]    - tweaked: FALSE
  [21:36:29.318]    - call: NULL
  [21:36:29.319] plan(): nbrOfWorkers() = 1
  [21:36:29.321] plan(): Setting new future strategy stack:
  [21:36:29.321] List of future strategies:
  [21:36:29.321] 1. sequential:
  [21:36:29.321]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.321]    - tweaked: FALSE
  [21:36:29.321]    - call: plan(strategy)
  [21:36:29.322] plan(): nbrOfWorkers() = 1
  [21:36:29.323] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_3-69837'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166fbbdf78>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.325] getGlobalsAndPackages() ...
  [21:36:29.326] Searching for globals...
  [21:36:29.328] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.329] Searching for globals ... DONE
  [21:36:29.329] Resolving globals: FALSE
  [21:36:29.330] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.330] - globals: [1] 'x'
  [21:36:29.330] 
  [21:36:29.331] getGlobalsAndPackages() ... DONE
  [21:36:29.332] Packages needed by the future expression (n = 0): <none>
  [21:36:29.332] Packages needed by future strategies (n = 0): <none>
  [21:36:29.353] {
  [21:36:29.353]     {
  [21:36:29.353]         ...future.startTime <- base::Sys.time()
  [21:36:29.353]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.353]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.353]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.353]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.353]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.353]         {
  [21:36:29.353]             {
  [21:36:29.353]                 base::local({
  [21:36:29.353]                   has_future <- base::requireNamespace("future", 
  [21:36:29.353]                     quietly = TRUE)
  [21:36:29.353]                   version <- if (has_future) 
  [21:36:29.353]                     utils::packageVersion("future")
  [21:36:29.353]                   else NULL
  [21:36:29.353]                   if (!has_future || version < "1.8.0") {
  [21:36:29.353]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.353]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.353]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.353]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.353]                         "release", "version")], collapse = " "), 
  [21:36:29.353]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.353]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.353]                       info)
  [21:36:29.353]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.353]                     if (!has_future) {
  [21:36:29.353]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.353]                         info)
  [21:36:29.353]                     }
  [21:36:29.353]                     else {
  [21:36:29.353]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.353]                         info, version)
  [21:36:29.353]                     }
  [21:36:29.353]                     base::stop(msg)
  [21:36:29.353]                   }
  [21:36:29.353]                 })
  [21:36:29.353]             }
  [21:36:29.353]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.353]         }
  [21:36:29.353]     }
  [21:36:29.353]     if (base::is.na(TRUE)) {
  [21:36:29.353]     }
  [21:36:29.353]     else {
  [21:36:29.353]         if (TRUE) {
  [21:36:29.353]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.353]                 open = "w")
  [21:36:29.353]         }
  [21:36:29.353]         else {
  [21:36:29.353]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.353]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.353]         }
  [21:36:29.353]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.353]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.353]             base::sink(type = "output", split = FALSE)
  [21:36:29.353]             base::close(...future.stdout)
  [21:36:29.353]         }, add = TRUE)
  [21:36:29.353]     }
  [21:36:29.353]     ...future.frame <- base::sys.nframe()
  [21:36:29.353]     ...future.conditions <- base::list()
  [21:36:29.353]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.353]     ...future.result <- base::tryCatch({
  [21:36:29.353]         base::withCallingHandlers({
  [21:36:29.353]             ...future.value <- base::withVisible(base::local({
  [21:36:29.353]                 sample(x, size = 1L)
  [21:36:29.353]             }))
  [21:36:29.353]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.353]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.353]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.353]                 version = "1.8")
  [21:36:29.353]         }, condition = base::local({
  [21:36:29.353]             c <- base::c
  [21:36:29.353]             inherits <- base::inherits
  [21:36:29.353]             invokeRestart <- base::invokeRestart
  [21:36:29.353]             length <- base::length
  [21:36:29.353]             list <- base::list
  [21:36:29.353]             seq.int <- base::seq.int
  [21:36:29.353]             signalCondition <- base::signalCondition
  [21:36:29.353]             sys.calls <- base::sys.calls
  [21:36:29.353]             Sys.time <- base::Sys.time
  [21:36:29.353]             `[[` <- base::`[[`
  [21:36:29.353]             `+` <- base::`+`
  [21:36:29.353]             `<<-` <- base::`<<-`
  [21:36:29.353]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.353]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.353]                   3L)]
  [21:36:29.353]             }
  [21:36:29.353]             function(cond) {
  [21:36:29.353]                 if (inherits(cond, "error")) {
  [21:36:29.353]                   sessionInformation <- function() {
  [21:36:29.353]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.353]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.353]                       search = base::search(), system = base::Sys.info())
  [21:36:29.353]                   }
  [21:36:29.353]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.353]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.353]                     cond$call), session = sessionInformation(), 
  [21:36:29.353]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.353]                   signalCondition(cond)
  [21:36:29.353]                 }
  [21:36:29.353]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.353]                 ))) {
  [21:36:29.353]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.353]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.353]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.353]                   if (!signal) {
  [21:36:29.353]                     muffleCondition <- function (cond) 
  [21:36:29.353]                     {
  [21:36:29.353]                       inherits <- base::inherits
  [21:36:29.353]                       invokeRestart <- base::invokeRestart
  [21:36:29.353]                       muffled <- FALSE
  [21:36:29.353]                       if (inherits(cond, "message")) {
  [21:36:29.353]                         invokeRestart("muffleMessage")
  [21:36:29.353]                         muffled <- TRUE
  [21:36:29.353]                       }
  [21:36:29.353]                       else if (inherits(cond, "warning")) {
  [21:36:29.353]                         invokeRestart("muffleWarning")
  [21:36:29.353]                         muffled <- TRUE
  [21:36:29.353]                       }
  [21:36:29.353]                       else if (inherits(cond, "condition")) {
  [21:36:29.353]                         computeRestarts <- base::computeRestarts
  [21:36:29.353]                         grepl <- base::grepl
  [21:36:29.353]                         is.null <- base::is.null
  [21:36:29.353]                         restarts <- computeRestarts(cond)
  [21:36:29.353]                         for (restart in restarts) {
  [21:36:29.353]                           name <- restart$name
  [21:36:29.353]                           if (is.null(name)) 
  [21:36:29.353]                             next
  [21:36:29.353]                           if (!grepl("^muffle", name)) 
  [21:36:29.353]                             next
  [21:36:29.353]                           invokeRestart(restart)
  [21:36:29.353]                           muffled <- TRUE
  [21:36:29.353]                           break
  [21:36:29.353]                         }
  [21:36:29.353]                       }
  [21:36:29.353]                       invisible(muffled)
  [21:36:29.353]                     }
  [21:36:29.353]                     muffleCondition(cond)
  [21:36:29.353]                   }
  [21:36:29.353]                 }
  [21:36:29.353]             }
  [21:36:29.353]         }))
  [21:36:29.353]     }, error = function(ex) {
  [21:36:29.353]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.353]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.353]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.353]     }, finally = {
  [21:36:29.353]         {
  [21:36:29.353]             NULL
  [21:36:29.353]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.353]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.353]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.353]                 label = NULL, ...) 
  [21:36:29.353]             {
  [21:36:29.353]                 if (substitute) 
  [21:36:29.353]                   expr <- substitute(expr)
  [21:36:29.353]                 local <- as.logical(local)
  [21:36:29.353]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.353]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.353]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.353]                   label = label, ...)
  [21:36:29.353]                 if (!future$lazy) 
  [21:36:29.353]                   future <- run(future)
  [21:36:29.353]                 invisible(future)
  [21:36:29.353]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.353]         }
  [21:36:29.353]         base::options(...future.oldOptions)
  [21:36:29.353]     })
  [21:36:29.353]     Sys.time
  [21:36:29.353]     if (base::is.na(TRUE)) {
  [21:36:29.353]     }
  [21:36:29.353]     else {
  [21:36:29.353]         base::sink(type = "output", split = FALSE)
  [21:36:29.353]         if (TRUE) {
  [21:36:29.353]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.353]         }
  [21:36:29.353]         else {
  [21:36:29.353]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.353]         }
  [21:36:29.353]         base::close(...future.stdout)
  [21:36:29.353]         ...future.stdout <- NULL
  [21:36:29.353]     }
  [21:36:29.353]     ...future.result$conditions <- ...future.conditions
  [21:36:29.353]     ...future.result
  [21:36:29.353] }
  [21:36:29.357] plan(): Setting new future strategy stack:
  [21:36:29.357] List of future strategies:
  [21:36:29.357] 1. sequential:
  [21:36:29.357]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.357]    - tweaked: FALSE
  [21:36:29.357]    - call: NULL
  [21:36:29.358] plan(): nbrOfWorkers() = 1
  [21:36:29.359] plan(): Setting new future strategy stack:
  [21:36:29.360] List of future strategies:
  [21:36:29.360] 1. sequential:
  [21:36:29.360]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.360]    - tweaked: FALSE
  [21:36:29.360]    - call: plan(strategy)
  [21:36:29.361] plan(): nbrOfWorkers() = 1
  [21:36:29.361] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_4-406927'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166fbbdf78>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.363] resolve() on list ...
  [21:36:29.363]  recursive: 0
  [21:36:29.363]  length: 4
  [21:36:29.364] 
  [21:36:29.364] Future #1
  [21:36:29.364] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:29.365] - nx: 4
  [21:36:29.365] - relay: TRUE
  [21:36:29.365] - stdout: TRUE
  [21:36:29.365] - signal: TRUE
  [21:36:29.382] - resignal: FALSE
  [21:36:29.382] - force: TRUE
  [21:36:29.382] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.383] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.383]  - until=1
  [21:36:29.383]  - relaying element #1
  [21:36:29.384] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.384] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.384] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:29.384]  length: 3 (resolved future 1)
  [21:36:29.385] Future #2
  [21:36:29.385] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:29.385] - nx: 4
  [21:36:29.386] - relay: TRUE
  [21:36:29.386] - stdout: TRUE
  [21:36:29.386] - signal: TRUE
  [21:36:29.386] - resignal: FALSE
  [21:36:29.387] - force: TRUE
  [21:36:29.387] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.387] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.387]  - until=2
  [21:36:29.388]  - relaying element #2
  [21:36:29.388] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.388] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.389] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:29.389]  length: 2 (resolved future 2)
  [21:36:29.389] Future #3
  [21:36:29.390] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:29.390] - nx: 4
  [21:36:29.390] - relay: TRUE
  [21:36:29.390] - stdout: TRUE
  [21:36:29.391] - signal: TRUE
  [21:36:29.391] - resignal: FALSE
  [21:36:29.391] - force: TRUE
  [21:36:29.391] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.392] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.392]  - until=3
  [21:36:29.392]  - relaying element #3
  [21:36:29.392] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.393] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.393] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:29.393]  length: 1 (resolved future 3)
  [21:36:29.394] Future #4
  [21:36:29.394] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:29.394] - nx: 4
  [21:36:29.394] - relay: TRUE
  [21:36:29.395] - stdout: TRUE
  [21:36:29.395] - signal: TRUE
  [21:36:29.395] - resignal: FALSE
  [21:36:29.395] - force: TRUE
  [21:36:29.396] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.396] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.396]  - until=4
  [21:36:29.396]  - relaying element #4
  [21:36:29.397] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.397] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.397] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:29.417]  length: 0 (resolved future 4)
  [21:36:29.418] Relaying remaining futures
  [21:36:29.418] signalConditionsASAP(NULL, pos=0) ...
  [21:36:29.418] - nx: 4
  [21:36:29.418] - relay: TRUE
  [21:36:29.419] - stdout: TRUE
  [21:36:29.419] - signal: TRUE
  [21:36:29.419] - resignal: FALSE
  [21:36:29.419] - force: TRUE
  [21:36:29.419] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.420] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:29.420] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.420] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.421] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:29.421] resolve() on list ... DONE
  [[1]]
  [1] 3
  
  [[2]]
  [1] 3
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 0
  
  [21:36:29.422] getGlobalsAndPackages() ...
  [21:36:29.422] Searching for globals...
  [21:36:29.424] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.425] Searching for globals ... DONE
  [21:36:29.425] Resolving globals: FALSE
  [21:36:29.426] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.426] - globals: [1] 'x'
  [21:36:29.426] 
  [21:36:29.427] getGlobalsAndPackages() ... DONE
  [21:36:29.428] Packages needed by the future expression (n = 0): <none>
  [21:36:29.429] Packages needed by future strategies (n = 0): <none>
  [21:36:29.449] {
  [21:36:29.449]     {
  [21:36:29.449]         ...future.startTime <- base::Sys.time()
  [21:36:29.449]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.449]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.449]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.449]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.449]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.449]         {
  [21:36:29.449]             {
  [21:36:29.449]                 base::local({
  [21:36:29.449]                   has_future <- base::requireNamespace("future", 
  [21:36:29.449]                     quietly = TRUE)
  [21:36:29.449]                   version <- if (has_future) 
  [21:36:29.449]                     utils::packageVersion("future")
  [21:36:29.449]                   else NULL
  [21:36:29.449]                   if (!has_future || version < "1.8.0") {
  [21:36:29.449]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.449]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.449]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.449]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.449]                         "release", "version")], collapse = " "), 
  [21:36:29.449]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.449]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.449]                       info)
  [21:36:29.449]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.449]                     if (!has_future) {
  [21:36:29.449]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.449]                         info)
  [21:36:29.449]                     }
  [21:36:29.449]                     else {
  [21:36:29.449]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.449]                         info, version)
  [21:36:29.449]                     }
  [21:36:29.449]                     base::stop(msg)
  [21:36:29.449]                   }
  [21:36:29.449]                 })
  [21:36:29.449]             }
  [21:36:29.449]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.449]         }
  [21:36:29.449]     }
  [21:36:29.449]     if (base::is.na(TRUE)) {
  [21:36:29.449]     }
  [21:36:29.449]     else {
  [21:36:29.449]         if (TRUE) {
  [21:36:29.449]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.449]                 open = "w")
  [21:36:29.449]         }
  [21:36:29.449]         else {
  [21:36:29.449]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.449]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.449]         }
  [21:36:29.449]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.449]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.449]             base::sink(type = "output", split = FALSE)
  [21:36:29.449]             base::close(...future.stdout)
  [21:36:29.449]         }, add = TRUE)
  [21:36:29.449]     }
  [21:36:29.449]     ...future.frame <- base::sys.nframe()
  [21:36:29.449]     ...future.conditions <- base::list()
  [21:36:29.449]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.449]     ...future.result <- base::tryCatch({
  [21:36:29.449]         base::withCallingHandlers({
  [21:36:29.449]             ...future.value <- base::withVisible(base::local({
  [21:36:29.449]                 sample(x, size = 1L)
  [21:36:29.449]             }))
  [21:36:29.449]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.449]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.449]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.449]                 version = "1.8")
  [21:36:29.449]         }, condition = base::local({
  [21:36:29.449]             c <- base::c
  [21:36:29.449]             inherits <- base::inherits
  [21:36:29.449]             invokeRestart <- base::invokeRestart
  [21:36:29.449]             length <- base::length
  [21:36:29.449]             list <- base::list
  [21:36:29.449]             seq.int <- base::seq.int
  [21:36:29.449]             signalCondition <- base::signalCondition
  [21:36:29.449]             sys.calls <- base::sys.calls
  [21:36:29.449]             Sys.time <- base::Sys.time
  [21:36:29.449]             `[[` <- base::`[[`
  [21:36:29.449]             `+` <- base::`+`
  [21:36:29.449]             `<<-` <- base::`<<-`
  [21:36:29.449]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.449]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.449]                   3L)]
  [21:36:29.449]             }
  [21:36:29.449]             function(cond) {
  [21:36:29.449]                 if (inherits(cond, "error")) {
  [21:36:29.449]                   sessionInformation <- function() {
  [21:36:29.449]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.449]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.449]                       search = base::search(), system = base::Sys.info())
  [21:36:29.449]                   }
  [21:36:29.449]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.449]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.449]                     cond$call), session = sessionInformation(), 
  [21:36:29.449]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.449]                   signalCondition(cond)
  [21:36:29.449]                 }
  [21:36:29.449]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.449]                 ))) {
  [21:36:29.449]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.449]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.449]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.449]                   if (!signal) {
  [21:36:29.449]                     muffleCondition <- function (cond) 
  [21:36:29.449]                     {
  [21:36:29.449]                       inherits <- base::inherits
  [21:36:29.449]                       invokeRestart <- base::invokeRestart
  [21:36:29.449]                       muffled <- FALSE
  [21:36:29.449]                       if (inherits(cond, "message")) {
  [21:36:29.449]                         invokeRestart("muffleMessage")
  [21:36:29.449]                         muffled <- TRUE
  [21:36:29.449]                       }
  [21:36:29.449]                       else if (inherits(cond, "warning")) {
  [21:36:29.449]                         invokeRestart("muffleWarning")
  [21:36:29.449]                         muffled <- TRUE
  [21:36:29.449]                       }
  [21:36:29.449]                       else if (inherits(cond, "condition")) {
  [21:36:29.449]                         computeRestarts <- base::computeRestarts
  [21:36:29.449]                         grepl <- base::grepl
  [21:36:29.449]                         is.null <- base::is.null
  [21:36:29.449]                         restarts <- computeRestarts(cond)
  [21:36:29.449]                         for (restart in restarts) {
  [21:36:29.449]                           name <- restart$name
  [21:36:29.449]                           if (is.null(name)) 
  [21:36:29.449]                             next
  [21:36:29.449]                           if (!grepl("^muffle", name)) 
  [21:36:29.449]                             next
  [21:36:29.449]                           invokeRestart(restart)
  [21:36:29.449]                           muffled <- TRUE
  [21:36:29.449]                           break
  [21:36:29.449]                         }
  [21:36:29.449]                       }
  [21:36:29.449]                       invisible(muffled)
  [21:36:29.449]                     }
  [21:36:29.449]                     muffleCondition(cond)
  [21:36:29.449]                   }
  [21:36:29.449]                 }
  [21:36:29.449]             }
  [21:36:29.449]         }))
  [21:36:29.449]     }, error = function(ex) {
  [21:36:29.449]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.449]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.449]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.449]     }, finally = {
  [21:36:29.449]         {
  [21:36:29.449]             NULL
  [21:36:29.449]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.449]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.449]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.449]                 label = NULL, ...) 
  [21:36:29.449]             {
  [21:36:29.449]                 if (substitute) 
  [21:36:29.449]                   expr <- substitute(expr)
  [21:36:29.449]                 local <- as.logical(local)
  [21:36:29.449]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.449]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.449]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.449]                   label = label, ...)
  [21:36:29.449]                 if (!future$lazy) 
  [21:36:29.449]                   future <- run(future)
  [21:36:29.449]                 invisible(future)
  [21:36:29.449]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.449]         }
  [21:36:29.449]         base::options(...future.oldOptions)
  [21:36:29.449]     })
  [21:36:29.449]     Sys.time
  [21:36:29.449]     if (base::is.na(TRUE)) {
  [21:36:29.449]     }
  [21:36:29.449]     else {
  [21:36:29.449]         base::sink(type = "output", split = FALSE)
  [21:36:29.449]         if (TRUE) {
  [21:36:29.449]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.449]         }
  [21:36:29.449]         else {
  [21:36:29.449]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.449]         }
  [21:36:29.449]         base::close(...future.stdout)
  [21:36:29.449]         ...future.stdout <- NULL
  [21:36:29.449]     }
  [21:36:29.449]     ...future.result$conditions <- ...future.conditions
  [21:36:29.449]     ...future.result
  [21:36:29.449] }
  [21:36:29.453] plan(): Setting new future strategy stack:
  [21:36:29.454] List of future strategies:
  [21:36:29.454] 1. sequential:
  [21:36:29.454]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.454]    - tweaked: FALSE
  [21:36:29.454]    - call: NULL
  [21:36:29.454] plan(): nbrOfWorkers() = 1
  [21:36:29.455] plan(): Setting new future strategy stack:
  [21:36:29.456] List of future strategies:
  [21:36:29.456] 1. sequential:
  [21:36:29.456]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.456]    - tweaked: FALSE
  [21:36:29.456]    - call: plan(strategy)
  [21:36:29.457] plan(): nbrOfWorkers() = 1
  [21:36:29.457] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_1-473010'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166eaef840>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.459] getGlobalsAndPackages() ...
  [21:36:29.459] Searching for globals...
  [21:36:29.461] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.478] Searching for globals ... DONE
  [21:36:29.478] Resolving globals: FALSE
  [21:36:29.479] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.479] - globals: [1] 'x'
  [21:36:29.480] 
  [21:36:29.480] getGlobalsAndPackages() ... DONE
  [21:36:29.482] Packages needed by the future expression (n = 0): <none>
  [21:36:29.482] Packages needed by future strategies (n = 0): <none>
  [21:36:29.487] {
  [21:36:29.487]     {
  [21:36:29.487]         ...future.startTime <- base::Sys.time()
  [21:36:29.487]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.487]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.487]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.487]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.487]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.487]         {
  [21:36:29.487]             {
  [21:36:29.487]                 base::local({
  [21:36:29.487]                   has_future <- base::requireNamespace("future", 
  [21:36:29.487]                     quietly = TRUE)
  [21:36:29.487]                   version <- if (has_future) 
  [21:36:29.487]                     utils::packageVersion("future")
  [21:36:29.487]                   else NULL
  [21:36:29.487]                   if (!has_future || version < "1.8.0") {
  [21:36:29.487]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.487]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.487]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.487]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.487]                         "release", "version")], collapse = " "), 
  [21:36:29.487]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.487]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.487]                       info)
  [21:36:29.487]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.487]                     if (!has_future) {
  [21:36:29.487]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.487]                         info)
  [21:36:29.487]                     }
  [21:36:29.487]                     else {
  [21:36:29.487]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.487]                         info, version)
  [21:36:29.487]                     }
  [21:36:29.487]                     base::stop(msg)
  [21:36:29.487]                   }
  [21:36:29.487]                 })
  [21:36:29.487]             }
  [21:36:29.487]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.487]         }
  [21:36:29.487]     }
  [21:36:29.487]     if (base::is.na(TRUE)) {
  [21:36:29.487]     }
  [21:36:29.487]     else {
  [21:36:29.487]         if (TRUE) {
  [21:36:29.487]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.487]                 open = "w")
  [21:36:29.487]         }
  [21:36:29.487]         else {
  [21:36:29.487]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.487]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.487]         }
  [21:36:29.487]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.487]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.487]             base::sink(type = "output", split = FALSE)
  [21:36:29.487]             base::close(...future.stdout)
  [21:36:29.487]         }, add = TRUE)
  [21:36:29.487]     }
  [21:36:29.487]     ...future.frame <- base::sys.nframe()
  [21:36:29.487]     ...future.conditions <- base::list()
  [21:36:29.487]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.487]     ...future.result <- base::tryCatch({
  [21:36:29.487]         base::withCallingHandlers({
  [21:36:29.487]             ...future.value <- base::withVisible(base::local({
  [21:36:29.487]                 sample(x, size = 1L)
  [21:36:29.487]             }))
  [21:36:29.487]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.487]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.487]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.487]                 version = "1.8")
  [21:36:29.487]         }, condition = base::local({
  [21:36:29.487]             c <- base::c
  [21:36:29.487]             inherits <- base::inherits
  [21:36:29.487]             invokeRestart <- base::invokeRestart
  [21:36:29.487]             length <- base::length
  [21:36:29.487]             list <- base::list
  [21:36:29.487]             seq.int <- base::seq.int
  [21:36:29.487]             signalCondition <- base::signalCondition
  [21:36:29.487]             sys.calls <- base::sys.calls
  [21:36:29.487]             Sys.time <- base::Sys.time
  [21:36:29.487]             `[[` <- base::`[[`
  [21:36:29.487]             `+` <- base::`+`
  [21:36:29.487]             `<<-` <- base::`<<-`
  [21:36:29.487]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.487]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.487]                   3L)]
  [21:36:29.487]             }
  [21:36:29.487]             function(cond) {
  [21:36:29.487]                 if (inherits(cond, "error")) {
  [21:36:29.487]                   sessionInformation <- function() {
  [21:36:29.487]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.487]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.487]                       search = base::search(), system = base::Sys.info())
  [21:36:29.487]                   }
  [21:36:29.487]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.487]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.487]                     cond$call), session = sessionInformation(), 
  [21:36:29.487]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.487]                   signalCondition(cond)
  [21:36:29.487]                 }
  [21:36:29.487]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.487]                 ))) {
  [21:36:29.487]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.487]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.487]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.487]                   if (!signal) {
  [21:36:29.487]                     muffleCondition <- function (cond) 
  [21:36:29.487]                     {
  [21:36:29.487]                       inherits <- base::inherits
  [21:36:29.487]                       invokeRestart <- base::invokeRestart
  [21:36:29.487]                       muffled <- FALSE
  [21:36:29.487]                       if (inherits(cond, "message")) {
  [21:36:29.487]                         invokeRestart("muffleMessage")
  [21:36:29.487]                         muffled <- TRUE
  [21:36:29.487]                       }
  [21:36:29.487]                       else if (inherits(cond, "warning")) {
  [21:36:29.487]                         invokeRestart("muffleWarning")
  [21:36:29.487]                         muffled <- TRUE
  [21:36:29.487]                       }
  [21:36:29.487]                       else if (inherits(cond, "condition")) {
  [21:36:29.487]                         computeRestarts <- base::computeRestarts
  [21:36:29.487]                         grepl <- base::grepl
  [21:36:29.487]                         is.null <- base::is.null
  [21:36:29.487]                         restarts <- computeRestarts(cond)
  [21:36:29.487]                         for (restart in restarts) {
  [21:36:29.487]                           name <- restart$name
  [21:36:29.487]                           if (is.null(name)) 
  [21:36:29.487]                             next
  [21:36:29.487]                           if (!grepl("^muffle", name)) 
  [21:36:29.487]                             next
  [21:36:29.487]                           invokeRestart(restart)
  [21:36:29.487]                           muffled <- TRUE
  [21:36:29.487]                           break
  [21:36:29.487]                         }
  [21:36:29.487]                       }
  [21:36:29.487]                       invisible(muffled)
  [21:36:29.487]                     }
  [21:36:29.487]                     muffleCondition(cond)
  [21:36:29.487]                   }
  [21:36:29.487]                 }
  [21:36:29.487]             }
  [21:36:29.487]         }))
  [21:36:29.487]     }, error = function(ex) {
  [21:36:29.487]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.487]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.487]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.487]     }, finally = {
  [21:36:29.487]         {
  [21:36:29.487]             NULL
  [21:36:29.487]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.487]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.487]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.487]                 label = NULL, ...) 
  [21:36:29.487]             {
  [21:36:29.487]                 if (substitute) 
  [21:36:29.487]                   expr <- substitute(expr)
  [21:36:29.487]                 local <- as.logical(local)
  [21:36:29.487]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.487]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.487]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.487]                   label = label, ...)
  [21:36:29.487]                 if (!future$lazy) 
  [21:36:29.487]                   future <- run(future)
  [21:36:29.487]                 invisible(future)
  [21:36:29.487]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.487]         }
  [21:36:29.487]         base::options(...future.oldOptions)
  [21:36:29.487]     })
  [21:36:29.487]     Sys.time
  [21:36:29.487]     if (base::is.na(TRUE)) {
  [21:36:29.487]     }
  [21:36:29.487]     else {
  [21:36:29.487]         base::sink(type = "output", split = FALSE)
  [21:36:29.487]         if (TRUE) {
  [21:36:29.487]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.487]         }
  [21:36:29.487]         else {
  [21:36:29.487]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.487]         }
  [21:36:29.487]         base::close(...future.stdout)
  [21:36:29.487]         ...future.stdout <- NULL
  [21:36:29.487]     }
  [21:36:29.487]     ...future.result$conditions <- ...future.conditions
  [21:36:29.487]     ...future.result
  [21:36:29.487] }
  [21:36:29.491] plan(): Setting new future strategy stack:
  [21:36:29.491] List of future strategies:
  [21:36:29.491] 1. sequential:
  [21:36:29.491]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.491]    - tweaked: FALSE
  [21:36:29.491]    - call: NULL
  [21:36:29.492] plan(): nbrOfWorkers() = 1
  [21:36:29.493] plan(): Setting new future strategy stack:
  [21:36:29.510] List of future strategies:
  [21:36:29.510] 1. sequential:
  [21:36:29.510]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.510]    - tweaked: FALSE
  [21:36:29.510]    - call: plan(strategy)
  [21:36:29.511] plan(): nbrOfWorkers() = 1
  [21:36:29.511] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_2-315309'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166eaef840>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.513] getGlobalsAndPackages() ...
  [21:36:29.514] Searching for globals...
  [21:36:29.516] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.516] Searching for globals ... DONE
  [21:36:29.516] Resolving globals: FALSE
  [21:36:29.517] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.518] - globals: [1] 'x'
  [21:36:29.518] 
  [21:36:29.518] getGlobalsAndPackages() ... DONE
  [21:36:29.520] Packages needed by the future expression (n = 0): <none>
  [21:36:29.520] Packages needed by future strategies (n = 0): <none>
  [21:36:29.525] {
  [21:36:29.525]     {
  [21:36:29.525]         ...future.startTime <- base::Sys.time()
  [21:36:29.525]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.525]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.525]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.525]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.525]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.525]         {
  [21:36:29.525]             {
  [21:36:29.525]                 base::local({
  [21:36:29.525]                   has_future <- base::requireNamespace("future", 
  [21:36:29.525]                     quietly = TRUE)
  [21:36:29.525]                   version <- if (has_future) 
  [21:36:29.525]                     utils::packageVersion("future")
  [21:36:29.525]                   else NULL
  [21:36:29.525]                   if (!has_future || version < "1.8.0") {
  [21:36:29.525]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.525]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.525]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.525]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.525]                         "release", "version")], collapse = " "), 
  [21:36:29.525]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.525]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.525]                       info)
  [21:36:29.525]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.525]                     if (!has_future) {
  [21:36:29.525]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.525]                         info)
  [21:36:29.525]                     }
  [21:36:29.525]                     else {
  [21:36:29.525]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.525]                         info, version)
  [21:36:29.525]                     }
  [21:36:29.525]                     base::stop(msg)
  [21:36:29.525]                   }
  [21:36:29.525]                 })
  [21:36:29.525]             }
  [21:36:29.525]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.525]         }
  [21:36:29.525]     }
  [21:36:29.525]     if (base::is.na(TRUE)) {
  [21:36:29.525]     }
  [21:36:29.525]     else {
  [21:36:29.525]         if (TRUE) {
  [21:36:29.525]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.525]                 open = "w")
  [21:36:29.525]         }
  [21:36:29.525]         else {
  [21:36:29.525]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.525]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.525]         }
  [21:36:29.525]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.525]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.525]             base::sink(type = "output", split = FALSE)
  [21:36:29.525]             base::close(...future.stdout)
  [21:36:29.525]         }, add = TRUE)
  [21:36:29.525]     }
  [21:36:29.525]     ...future.frame <- base::sys.nframe()
  [21:36:29.525]     ...future.conditions <- base::list()
  [21:36:29.525]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.525]     ...future.result <- base::tryCatch({
  [21:36:29.525]         base::withCallingHandlers({
  [21:36:29.525]             ...future.value <- base::withVisible(base::local({
  [21:36:29.525]                 sample(x, size = 1L)
  [21:36:29.525]             }))
  [21:36:29.525]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.525]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.525]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.525]                 version = "1.8")
  [21:36:29.525]         }, condition = base::local({
  [21:36:29.525]             c <- base::c
  [21:36:29.525]             inherits <- base::inherits
  [21:36:29.525]             invokeRestart <- base::invokeRestart
  [21:36:29.525]             length <- base::length
  [21:36:29.525]             list <- base::list
  [21:36:29.525]             seq.int <- base::seq.int
  [21:36:29.525]             signalCondition <- base::signalCondition
  [21:36:29.525]             sys.calls <- base::sys.calls
  [21:36:29.525]             Sys.time <- base::Sys.time
  [21:36:29.525]             `[[` <- base::`[[`
  [21:36:29.525]             `+` <- base::`+`
  [21:36:29.525]             `<<-` <- base::`<<-`
  [21:36:29.525]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.525]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.525]                   3L)]
  [21:36:29.525]             }
  [21:36:29.525]             function(cond) {
  [21:36:29.525]                 if (inherits(cond, "error")) {
  [21:36:29.525]                   sessionInformation <- function() {
  [21:36:29.525]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.525]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.525]                       search = base::search(), system = base::Sys.info())
  [21:36:29.525]                   }
  [21:36:29.525]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.525]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.525]                     cond$call), session = sessionInformation(), 
  [21:36:29.525]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.525]                   signalCondition(cond)
  [21:36:29.525]                 }
  [21:36:29.525]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.525]                 ))) {
  [21:36:29.525]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.525]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.525]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.525]                   if (!signal) {
  [21:36:29.525]                     muffleCondition <- function (cond) 
  [21:36:29.525]                     {
  [21:36:29.525]                       inherits <- base::inherits
  [21:36:29.525]                       invokeRestart <- base::invokeRestart
  [21:36:29.525]                       muffled <- FALSE
  [21:36:29.525]                       if (inherits(cond, "message")) {
  [21:36:29.525]                         invokeRestart("muffleMessage")
  [21:36:29.525]                         muffled <- TRUE
  [21:36:29.525]                       }
  [21:36:29.525]                       else if (inherits(cond, "warning")) {
  [21:36:29.525]                         invokeRestart("muffleWarning")
  [21:36:29.525]                         muffled <- TRUE
  [21:36:29.525]                       }
  [21:36:29.525]                       else if (inherits(cond, "condition")) {
  [21:36:29.525]                         computeRestarts <- base::computeRestarts
  [21:36:29.525]                         grepl <- base::grepl
  [21:36:29.525]                         is.null <- base::is.null
  [21:36:29.525]                         restarts <- computeRestarts(cond)
  [21:36:29.525]                         for (restart in restarts) {
  [21:36:29.525]                           name <- restart$name
  [21:36:29.525]                           if (is.null(name)) 
  [21:36:29.525]                             next
  [21:36:29.525]                           if (!grepl("^muffle", name)) 
  [21:36:29.525]                             next
  [21:36:29.525]                           invokeRestart(restart)
  [21:36:29.525]                           muffled <- TRUE
  [21:36:29.525]                           break
  [21:36:29.525]                         }
  [21:36:29.525]                       }
  [21:36:29.525]                       invisible(muffled)
  [21:36:29.525]                     }
  [21:36:29.525]                     muffleCondition(cond)
  [21:36:29.525]                   }
  [21:36:29.525]                 }
  [21:36:29.525]             }
  [21:36:29.525]         }))
  [21:36:29.525]     }, error = function(ex) {
  [21:36:29.525]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.525]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.525]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.525]     }, finally = {
  [21:36:29.525]         {
  [21:36:29.525]             NULL
  [21:36:29.525]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.525]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.525]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.525]                 label = NULL, ...) 
  [21:36:29.525]             {
  [21:36:29.525]                 if (substitute) 
  [21:36:29.525]                   expr <- substitute(expr)
  [21:36:29.525]                 local <- as.logical(local)
  [21:36:29.525]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.525]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.525]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.525]                   label = label, ...)
  [21:36:29.525]                 if (!future$lazy) 
  [21:36:29.525]                   future <- run(future)
  [21:36:29.525]                 invisible(future)
  [21:36:29.525]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.525]         }
  [21:36:29.525]         base::options(...future.oldOptions)
  [21:36:29.525]     })
  [21:36:29.525]     Sys.time
  [21:36:29.525]     if (base::is.na(TRUE)) {
  [21:36:29.525]     }
  [21:36:29.525]     else {
  [21:36:29.525]         base::sink(type = "output", split = FALSE)
  [21:36:29.525]         if (TRUE) {
  [21:36:29.525]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.525]         }
  [21:36:29.525]         else {
  [21:36:29.525]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.525]         }
  [21:36:29.525]         base::close(...future.stdout)
  [21:36:29.525]         ...future.stdout <- NULL
  [21:36:29.525]     }
  [21:36:29.525]     ...future.result$conditions <- ...future.conditions
  [21:36:29.525]     ...future.result
  [21:36:29.525] }
  [21:36:29.545] plan(): Setting new future strategy stack:
  [21:36:29.546] List of future strategies:
  [21:36:29.546] 1. sequential:
  [21:36:29.546]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.546]    - tweaked: FALSE
  [21:36:29.546]    - call: NULL
  [21:36:29.547] plan(): nbrOfWorkers() = 1
  [21:36:29.548] plan(): Setting new future strategy stack:
  [21:36:29.548] List of future strategies:
  [21:36:29.548] 1. sequential:
  [21:36:29.548]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.548]    - tweaked: FALSE
  [21:36:29.548]    - call: plan(strategy)
  [21:36:29.549] plan(): nbrOfWorkers() = 1
  [21:36:29.549] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_3-198010'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166eaef840>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.554] getGlobalsAndPackages() ...
  [21:36:29.555] Searching for globals...
  [21:36:29.557] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.557] Searching for globals ... DONE
  [21:36:29.558] Resolving globals: FALSE
  [21:36:29.575] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.575] - globals: [1] 'x'
  [21:36:29.575] 
  [21:36:29.576] getGlobalsAndPackages() ... DONE
  [21:36:29.577] Packages needed by the future expression (n = 0): <none>
  [21:36:29.578] Packages needed by future strategies (n = 0): <none>
  [21:36:29.582] {
  [21:36:29.582]     {
  [21:36:29.582]         ...future.startTime <- base::Sys.time()
  [21:36:29.582]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.582]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.582]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.582]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.582]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.582]         {
  [21:36:29.582]             {
  [21:36:29.582]                 base::local({
  [21:36:29.582]                   has_future <- base::requireNamespace("future", 
  [21:36:29.582]                     quietly = TRUE)
  [21:36:29.582]                   version <- if (has_future) 
  [21:36:29.582]                     utils::packageVersion("future")
  [21:36:29.582]                   else NULL
  [21:36:29.582]                   if (!has_future || version < "1.8.0") {
  [21:36:29.582]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.582]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.582]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.582]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.582]                         "release", "version")], collapse = " "), 
  [21:36:29.582]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.582]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.582]                       info)
  [21:36:29.582]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.582]                     if (!has_future) {
  [21:36:29.582]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.582]                         info)
  [21:36:29.582]                     }
  [21:36:29.582]                     else {
  [21:36:29.582]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.582]                         info, version)
  [21:36:29.582]                     }
  [21:36:29.582]                     base::stop(msg)
  [21:36:29.582]                   }
  [21:36:29.582]                 })
  [21:36:29.582]             }
  [21:36:29.582]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.582]         }
  [21:36:29.582]     }
  [21:36:29.582]     if (base::is.na(TRUE)) {
  [21:36:29.582]     }
  [21:36:29.582]     else {
  [21:36:29.582]         if (TRUE) {
  [21:36:29.582]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.582]                 open = "w")
  [21:36:29.582]         }
  [21:36:29.582]         else {
  [21:36:29.582]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.582]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.582]         }
  [21:36:29.582]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.582]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.582]             base::sink(type = "output", split = FALSE)
  [21:36:29.582]             base::close(...future.stdout)
  [21:36:29.582]         }, add = TRUE)
  [21:36:29.582]     }
  [21:36:29.582]     ...future.frame <- base::sys.nframe()
  [21:36:29.582]     ...future.conditions <- base::list()
  [21:36:29.582]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.582]     ...future.result <- base::tryCatch({
  [21:36:29.582]         base::withCallingHandlers({
  [21:36:29.582]             ...future.value <- base::withVisible(base::local({
  [21:36:29.582]                 sample(x, size = 1L)
  [21:36:29.582]             }))
  [21:36:29.582]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.582]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.582]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.582]                 version = "1.8")
  [21:36:29.582]         }, condition = base::local({
  [21:36:29.582]             c <- base::c
  [21:36:29.582]             inherits <- base::inherits
  [21:36:29.582]             invokeRestart <- base::invokeRestart
  [21:36:29.582]             length <- base::length
  [21:36:29.582]             list <- base::list
  [21:36:29.582]             seq.int <- base::seq.int
  [21:36:29.582]             signalCondition <- base::signalCondition
  [21:36:29.582]             sys.calls <- base::sys.calls
  [21:36:29.582]             Sys.time <- base::Sys.time
  [21:36:29.582]             `[[` <- base::`[[`
  [21:36:29.582]             `+` <- base::`+`
  [21:36:29.582]             `<<-` <- base::`<<-`
  [21:36:29.582]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.582]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.582]                   3L)]
  [21:36:29.582]             }
  [21:36:29.582]             function(cond) {
  [21:36:29.582]                 if (inherits(cond, "error")) {
  [21:36:29.582]                   sessionInformation <- function() {
  [21:36:29.582]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.582]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.582]                       search = base::search(), system = base::Sys.info())
  [21:36:29.582]                   }
  [21:36:29.582]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.582]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.582]                     cond$call), session = sessionInformation(), 
  [21:36:29.582]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.582]                   signalCondition(cond)
  [21:36:29.582]                 }
  [21:36:29.582]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.582]                 ))) {
  [21:36:29.582]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.582]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.582]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.582]                   if (!signal) {
  [21:36:29.582]                     muffleCondition <- function (cond) 
  [21:36:29.582]                     {
  [21:36:29.582]                       inherits <- base::inherits
  [21:36:29.582]                       invokeRestart <- base::invokeRestart
  [21:36:29.582]                       muffled <- FALSE
  [21:36:29.582]                       if (inherits(cond, "message")) {
  [21:36:29.582]                         invokeRestart("muffleMessage")
  [21:36:29.582]                         muffled <- TRUE
  [21:36:29.582]                       }
  [21:36:29.582]                       else if (inherits(cond, "warning")) {
  [21:36:29.582]                         invokeRestart("muffleWarning")
  [21:36:29.582]                         muffled <- TRUE
  [21:36:29.582]                       }
  [21:36:29.582]                       else if (inherits(cond, "condition")) {
  [21:36:29.582]                         computeRestarts <- base::computeRestarts
  [21:36:29.582]                         grepl <- base::grepl
  [21:36:29.582]                         is.null <- base::is.null
  [21:36:29.582]                         restarts <- computeRestarts(cond)
  [21:36:29.582]                         for (restart in restarts) {
  [21:36:29.582]                           name <- restart$name
  [21:36:29.582]                           if (is.null(name)) 
  [21:36:29.582]                             next
  [21:36:29.582]                           if (!grepl("^muffle", name)) 
  [21:36:29.582]                             next
  [21:36:29.582]                           invokeRestart(restart)
  [21:36:29.582]                           muffled <- TRUE
  [21:36:29.582]                           break
  [21:36:29.582]                         }
  [21:36:29.582]                       }
  [21:36:29.582]                       invisible(muffled)
  [21:36:29.582]                     }
  [21:36:29.582]                     muffleCondition(cond)
  [21:36:29.582]                   }
  [21:36:29.582]                 }
  [21:36:29.582]             }
  [21:36:29.582]         }))
  [21:36:29.582]     }, error = function(ex) {
  [21:36:29.582]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.582]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.582]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.582]     }, finally = {
  [21:36:29.582]         {
  [21:36:29.582]             NULL
  [21:36:29.582]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.582]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.582]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.582]                 label = NULL, ...) 
  [21:36:29.582]             {
  [21:36:29.582]                 if (substitute) 
  [21:36:29.582]                   expr <- substitute(expr)
  [21:36:29.582]                 local <- as.logical(local)
  [21:36:29.582]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.582]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.582]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.582]                   label = label, ...)
  [21:36:29.582]                 if (!future$lazy) 
  [21:36:29.582]                   future <- run(future)
  [21:36:29.582]                 invisible(future)
  [21:36:29.582]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.582]         }
  [21:36:29.582]         base::options(...future.oldOptions)
  [21:36:29.582]     })
  [21:36:29.582]     Sys.time
  [21:36:29.582]     if (base::is.na(TRUE)) {
  [21:36:29.582]     }
  [21:36:29.582]     else {
  [21:36:29.582]         base::sink(type = "output", split = FALSE)
  [21:36:29.582]         if (TRUE) {
  [21:36:29.582]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.582]         }
  [21:36:29.582]         else {
  [21:36:29.582]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.582]         }
  [21:36:29.582]         base::close(...future.stdout)
  [21:36:29.582]         ...future.stdout <- NULL
  [21:36:29.582]     }
  [21:36:29.582]     ...future.result$conditions <- ...future.conditions
  [21:36:29.582]     ...future.result
  [21:36:29.582] }
  [21:36:29.586] plan(): Setting new future strategy stack:
  [21:36:29.587] List of future strategies:
  [21:36:29.587] 1. sequential:
  [21:36:29.587]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.587]    - tweaked: FALSE
  [21:36:29.587]    - call: NULL
  [21:36:29.587] plan(): nbrOfWorkers() = 1
  [21:36:29.589] plan(): Setting new future strategy stack:
  [21:36:29.589] List of future strategies:
  [21:36:29.589] 1. sequential:
  [21:36:29.589]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.589]    - tweaked: FALSE
  [21:36:29.589]    - call: plan(strategy)
  [21:36:29.606] plan(): nbrOfWorkers() = 1
  [21:36:29.606] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_4-499332'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166eaef840>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.608] resolve() on list ...
  [21:36:29.609]  recursive: 0
  [21:36:29.609]  length: 4
  [21:36:29.609] 
  [21:36:29.610] Future #1
  [21:36:29.610] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:29.611] - nx: 4
  [21:36:29.611] - relay: TRUE
  [21:36:29.611] - stdout: TRUE
  [21:36:29.611] - signal: TRUE
  [21:36:29.612] - resignal: FALSE
  [21:36:29.612] - force: TRUE
  [21:36:29.612] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.613] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.613]  - until=1
  [21:36:29.613]  - relaying element #1
  [21:36:29.614] signalConditions() ...
  [21:36:29.614]  - include = 'immediateCondition'
  [21:36:29.614]  - exclude = 
  [21:36:29.614]  - resignal = FALSE
  [21:36:29.615]  - Number of conditions: 1
  [21:36:29.615] signalConditions() ... done
  [21:36:29.615] signalConditions() ...
  [21:36:29.616]  - include = 'immediateCondition'
  [21:36:29.616]  - exclude = 
  [21:36:29.616]  - resignal = FALSE
  [21:36:29.617]  - Number of conditions: 1
  [21:36:29.617] signalConditions() ... done
  [21:36:29.617] signalConditions() ...
  [21:36:29.618]  - include = 'condition'
  [21:36:29.618]  - exclude = 'immediateCondition'
  [21:36:29.618]  - resignal = TRUE
  [21:36:29.618]  - Number of conditions: 1
  [21:36:29.619]  - Condition #1: 'simpleWarning', 'warning', 'condition'
  [21:36:29.619] signalConditions() ... done
  [21:36:29.620] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.620] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.620] signalConditionsASAP(SequentialFuture, pos=1) ... done
  <simpleWarning: UNRELIABLE VALUE: Future ('fsample_1-473010') unexpectedly generated random numbers without specifying argument '[future.]seed'. There is a risk that those random numbers are not statistically sound and the overall results might be invalid. To fix this, specify argument argument '[future.]seed', e.g. 'seed=TRUE'. This ensures that proper, parallel-safe random numbers are produced via the L'Ecuyer-CMRG method. To disable this check, set option 'future.rng.onMisuse' to "ignore".>
  [21:36:29.621] getGlobalsAndPackages() ...
  [21:36:29.621] Searching for globals...
  [21:36:29.639] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.640] Searching for globals ... DONE
  [21:36:29.640] Resolving globals: FALSE
  [21:36:29.641] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.641] - globals: [1] 'x'
  [21:36:29.642] 
  [21:36:29.642] getGlobalsAndPackages() ... DONE
  [21:36:29.643] Packages needed by the future expression (n = 0): <none>
  [21:36:29.644] Packages needed by future strategies (n = 0): <none>
  [21:36:29.648] {
  [21:36:29.648]     {
  [21:36:29.648]         ...future.startTime <- base::Sys.time()
  [21:36:29.648]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.648]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.648]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.648]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.648]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.648]         {
  [21:36:29.648]             {
  [21:36:29.648]                 base::local({
  [21:36:29.648]                   has_future <- base::requireNamespace("future", 
  [21:36:29.648]                     quietly = TRUE)
  [21:36:29.648]                   version <- if (has_future) 
  [21:36:29.648]                     utils::packageVersion("future")
  [21:36:29.648]                   else NULL
  [21:36:29.648]                   if (!has_future || version < "1.8.0") {
  [21:36:29.648]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.648]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.648]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.648]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.648]                         "release", "version")], collapse = " "), 
  [21:36:29.648]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.648]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.648]                       info)
  [21:36:29.648]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.648]                     if (!has_future) {
  [21:36:29.648]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.648]                         info)
  [21:36:29.648]                     }
  [21:36:29.648]                     else {
  [21:36:29.648]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.648]                         info, version)
  [21:36:29.648]                     }
  [21:36:29.648]                     base::stop(msg)
  [21:36:29.648]                   }
  [21:36:29.648]                 })
  [21:36:29.648]             }
  [21:36:29.648]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.648]         }
  [21:36:29.648]     }
  [21:36:29.648]     if (base::is.na(TRUE)) {
  [21:36:29.648]     }
  [21:36:29.648]     else {
  [21:36:29.648]         if (TRUE) {
  [21:36:29.648]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.648]                 open = "w")
  [21:36:29.648]         }
  [21:36:29.648]         else {
  [21:36:29.648]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.648]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.648]         }
  [21:36:29.648]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.648]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.648]             base::sink(type = "output", split = FALSE)
  [21:36:29.648]             base::close(...future.stdout)
  [21:36:29.648]         }, add = TRUE)
  [21:36:29.648]     }
  [21:36:29.648]     ...future.frame <- base::sys.nframe()
  [21:36:29.648]     ...future.conditions <- base::list()
  [21:36:29.648]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.648]     ...future.result <- base::tryCatch({
  [21:36:29.648]         base::withCallingHandlers({
  [21:36:29.648]             ...future.value <- base::withVisible(base::local({
  [21:36:29.648]                 sample(x, size = 1L)
  [21:36:29.648]             }))
  [21:36:29.648]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.648]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.648]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.648]                 version = "1.8")
  [21:36:29.648]         }, condition = base::local({
  [21:36:29.648]             c <- base::c
  [21:36:29.648]             inherits <- base::inherits
  [21:36:29.648]             invokeRestart <- base::invokeRestart
  [21:36:29.648]             length <- base::length
  [21:36:29.648]             list <- base::list
  [21:36:29.648]             seq.int <- base::seq.int
  [21:36:29.648]             signalCondition <- base::signalCondition
  [21:36:29.648]             sys.calls <- base::sys.calls
  [21:36:29.648]             Sys.time <- base::Sys.time
  [21:36:29.648]             `[[` <- base::`[[`
  [21:36:29.648]             `+` <- base::`+`
  [21:36:29.648]             `<<-` <- base::`<<-`
  [21:36:29.648]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.648]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.648]                   3L)]
  [21:36:29.648]             }
  [21:36:29.648]             function(cond) {
  [21:36:29.648]                 if (inherits(cond, "error")) {
  [21:36:29.648]                   sessionInformation <- function() {
  [21:36:29.648]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.648]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.648]                       search = base::search(), system = base::Sys.info())
  [21:36:29.648]                   }
  [21:36:29.648]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.648]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.648]                     cond$call), session = sessionInformation(), 
  [21:36:29.648]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.648]                   signalCondition(cond)
  [21:36:29.648]                 }
  [21:36:29.648]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.648]                 ))) {
  [21:36:29.648]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.648]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.648]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.648]                   if (!signal) {
  [21:36:29.648]                     muffleCondition <- function (cond) 
  [21:36:29.648]                     {
  [21:36:29.648]                       inherits <- base::inherits
  [21:36:29.648]                       invokeRestart <- base::invokeRestart
  [21:36:29.648]                       muffled <- FALSE
  [21:36:29.648]                       if (inherits(cond, "message")) {
  [21:36:29.648]                         invokeRestart("muffleMessage")
  [21:36:29.648]                         muffled <- TRUE
  [21:36:29.648]                       }
  [21:36:29.648]                       else if (inherits(cond, "warning")) {
  [21:36:29.648]                         invokeRestart("muffleWarning")
  [21:36:29.648]                         muffled <- TRUE
  [21:36:29.648]                       }
  [21:36:29.648]                       else if (inherits(cond, "condition")) {
  [21:36:29.648]                         computeRestarts <- base::computeRestarts
  [21:36:29.648]                         grepl <- base::grepl
  [21:36:29.648]                         is.null <- base::is.null
  [21:36:29.648]                         restarts <- computeRestarts(cond)
  [21:36:29.648]                         for (restart in restarts) {
  [21:36:29.648]                           name <- restart$name
  [21:36:29.648]                           if (is.null(name)) 
  [21:36:29.648]                             next
  [21:36:29.648]                           if (!grepl("^muffle", name)) 
  [21:36:29.648]                             next
  [21:36:29.648]                           invokeRestart(restart)
  [21:36:29.648]                           muffled <- TRUE
  [21:36:29.648]                           break
  [21:36:29.648]                         }
  [21:36:29.648]                       }
  [21:36:29.648]                       invisible(muffled)
  [21:36:29.648]                     }
  [21:36:29.648]                     muffleCondition(cond)
  [21:36:29.648]                   }
  [21:36:29.648]                 }
  [21:36:29.648]             }
  [21:36:29.648]         }))
  [21:36:29.648]     }, error = function(ex) {
  [21:36:29.648]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.648]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.648]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.648]     }, finally = {
  [21:36:29.648]         {
  [21:36:29.648]             NULL
  [21:36:29.648]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.648]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.648]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.648]                 label = NULL, ...) 
  [21:36:29.648]             {
  [21:36:29.648]                 if (substitute) 
  [21:36:29.648]                   expr <- substitute(expr)
  [21:36:29.648]                 local <- as.logical(local)
  [21:36:29.648]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.648]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.648]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.648]                   label = label, ...)
  [21:36:29.648]                 if (!future$lazy) 
  [21:36:29.648]                   future <- run(future)
  [21:36:29.648]                 invisible(future)
  [21:36:29.648]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.648]         }
  [21:36:29.648]         base::options(...future.oldOptions)
  [21:36:29.648]     })
  [21:36:29.648]     Sys.time
  [21:36:29.648]     if (base::is.na(TRUE)) {
  [21:36:29.648]     }
  [21:36:29.648]     else {
  [21:36:29.648]         base::sink(type = "output", split = FALSE)
  [21:36:29.648]         if (TRUE) {
  [21:36:29.648]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.648]         }
  [21:36:29.648]         else {
  [21:36:29.648]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.648]         }
  [21:36:29.648]         base::close(...future.stdout)
  [21:36:29.648]         ...future.stdout <- NULL
  [21:36:29.648]     }
  [21:36:29.648]     ...future.result$conditions <- ...future.conditions
  [21:36:29.648]     ...future.result
  [21:36:29.648] }
  [21:36:29.652] plan(): Setting new future strategy stack:
  [21:36:29.653] List of future strategies:
  [21:36:29.653] 1. sequential:
  [21:36:29.653]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.653]    - tweaked: FALSE
  [21:36:29.653]    - call: NULL
  [21:36:29.670] plan(): nbrOfWorkers() = 1
  [21:36:29.671] plan(): Setting new future strategy stack:
  [21:36:29.671] List of future strategies:
  [21:36:29.671] 1. sequential:
  [21:36:29.671]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.671]    - tweaked: FALSE
  [21:36:29.671]    - call: plan(strategy)
  [21:36:29.672] plan(): nbrOfWorkers() = 1
  [21:36:29.673] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_1-842192'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9d04f8>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.675] getGlobalsAndPackages() ...
  [21:36:29.675] Searching for globals...
  [21:36:29.677] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.677] Searching for globals ... DONE
  [21:36:29.678] Resolving globals: FALSE
  [21:36:29.678] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.679] - globals: [1] 'x'
  [21:36:29.679] 
  [21:36:29.679] getGlobalsAndPackages() ... DONE
  [21:36:29.681] Packages needed by the future expression (n = 0): <none>
  [21:36:29.681] Packages needed by future strategies (n = 0): <none>
  [21:36:29.702] {
  [21:36:29.702]     {
  [21:36:29.702]         ...future.startTime <- base::Sys.time()
  [21:36:29.702]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.702]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.702]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.702]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.702]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.702]         {
  [21:36:29.702]             {
  [21:36:29.702]                 base::local({
  [21:36:29.702]                   has_future <- base::requireNamespace("future", 
  [21:36:29.702]                     quietly = TRUE)
  [21:36:29.702]                   version <- if (has_future) 
  [21:36:29.702]                     utils::packageVersion("future")
  [21:36:29.702]                   else NULL
  [21:36:29.702]                   if (!has_future || version < "1.8.0") {
  [21:36:29.702]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.702]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.702]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.702]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.702]                         "release", "version")], collapse = " "), 
  [21:36:29.702]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.702]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.702]                       info)
  [21:36:29.702]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.702]                     if (!has_future) {
  [21:36:29.702]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.702]                         info)
  [21:36:29.702]                     }
  [21:36:29.702]                     else {
  [21:36:29.702]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.702]                         info, version)
  [21:36:29.702]                     }
  [21:36:29.702]                     base::stop(msg)
  [21:36:29.702]                   }
  [21:36:29.702]                 })
  [21:36:29.702]             }
  [21:36:29.702]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.702]         }
  [21:36:29.702]     }
  [21:36:29.702]     if (base::is.na(TRUE)) {
  [21:36:29.702]     }
  [21:36:29.702]     else {
  [21:36:29.702]         if (TRUE) {
  [21:36:29.702]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.702]                 open = "w")
  [21:36:29.702]         }
  [21:36:29.702]         else {
  [21:36:29.702]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.702]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.702]         }
  [21:36:29.702]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.702]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.702]             base::sink(type = "output", split = FALSE)
  [21:36:29.702]             base::close(...future.stdout)
  [21:36:29.702]         }, add = TRUE)
  [21:36:29.702]     }
  [21:36:29.702]     ...future.frame <- base::sys.nframe()
  [21:36:29.702]     ...future.conditions <- base::list()
  [21:36:29.702]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.702]     ...future.result <- base::tryCatch({
  [21:36:29.702]         base::withCallingHandlers({
  [21:36:29.702]             ...future.value <- base::withVisible(base::local({
  [21:36:29.702]                 sample(x, size = 1L)
  [21:36:29.702]             }))
  [21:36:29.702]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.702]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.702]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.702]                 version = "1.8")
  [21:36:29.702]         }, condition = base::local({
  [21:36:29.702]             c <- base::c
  [21:36:29.702]             inherits <- base::inherits
  [21:36:29.702]             invokeRestart <- base::invokeRestart
  [21:36:29.702]             length <- base::length
  [21:36:29.702]             list <- base::list
  [21:36:29.702]             seq.int <- base::seq.int
  [21:36:29.702]             signalCondition <- base::signalCondition
  [21:36:29.702]             sys.calls <- base::sys.calls
  [21:36:29.702]             Sys.time <- base::Sys.time
  [21:36:29.702]             `[[` <- base::`[[`
  [21:36:29.702]             `+` <- base::`+`
  [21:36:29.702]             `<<-` <- base::`<<-`
  [21:36:29.702]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.702]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.702]                   3L)]
  [21:36:29.702]             }
  [21:36:29.702]             function(cond) {
  [21:36:29.702]                 if (inherits(cond, "error")) {
  [21:36:29.702]                   sessionInformation <- function() {
  [21:36:29.702]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.702]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.702]                       search = base::search(), system = base::Sys.info())
  [21:36:29.702]                   }
  [21:36:29.702]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.702]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.702]                     cond$call), session = sessionInformation(), 
  [21:36:29.702]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.702]                   signalCondition(cond)
  [21:36:29.702]                 }
  [21:36:29.702]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.702]                 ))) {
  [21:36:29.702]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.702]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.702]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.702]                   if (!signal) {
  [21:36:29.702]                     muffleCondition <- function (cond) 
  [21:36:29.702]                     {
  [21:36:29.702]                       inherits <- base::inherits
  [21:36:29.702]                       invokeRestart <- base::invokeRestart
  [21:36:29.702]                       muffled <- FALSE
  [21:36:29.702]                       if (inherits(cond, "message")) {
  [21:36:29.702]                         invokeRestart("muffleMessage")
  [21:36:29.702]                         muffled <- TRUE
  [21:36:29.702]                       }
  [21:36:29.702]                       else if (inherits(cond, "warning")) {
  [21:36:29.702]                         invokeRestart("muffleWarning")
  [21:36:29.702]                         muffled <- TRUE
  [21:36:29.702]                       }
  [21:36:29.702]                       else if (inherits(cond, "condition")) {
  [21:36:29.702]                         computeRestarts <- base::computeRestarts
  [21:36:29.702]                         grepl <- base::grepl
  [21:36:29.702]                         is.null <- base::is.null
  [21:36:29.702]                         restarts <- computeRestarts(cond)
  [21:36:29.702]                         for (restart in restarts) {
  [21:36:29.702]                           name <- restart$name
  [21:36:29.702]                           if (is.null(name)) 
  [21:36:29.702]                             next
  [21:36:29.702]                           if (!grepl("^muffle", name)) 
  [21:36:29.702]                             next
  [21:36:29.702]                           invokeRestart(restart)
  [21:36:29.702]                           muffled <- TRUE
  [21:36:29.702]                           break
  [21:36:29.702]                         }
  [21:36:29.702]                       }
  [21:36:29.702]                       invisible(muffled)
  [21:36:29.702]                     }
  [21:36:29.702]                     muffleCondition(cond)
  [21:36:29.702]                   }
  [21:36:29.702]                 }
  [21:36:29.702]             }
  [21:36:29.702]         }))
  [21:36:29.702]     }, error = function(ex) {
  [21:36:29.702]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.702]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.702]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.702]     }, finally = {
  [21:36:29.702]         {
  [21:36:29.702]             NULL
  [21:36:29.702]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.702]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.702]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.702]                 label = NULL, ...) 
  [21:36:29.702]             {
  [21:36:29.702]                 if (substitute) 
  [21:36:29.702]                   expr <- substitute(expr)
  [21:36:29.702]                 local <- as.logical(local)
  [21:36:29.702]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.702]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.702]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.702]                   label = label, ...)
  [21:36:29.702]                 if (!future$lazy) 
  [21:36:29.702]                   future <- run(future)
  [21:36:29.702]                 invisible(future)
  [21:36:29.702]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.702]         }
  [21:36:29.702]         base::options(...future.oldOptions)
  [21:36:29.702]     })
  [21:36:29.702]     Sys.time
  [21:36:29.702]     if (base::is.na(TRUE)) {
  [21:36:29.702]     }
  [21:36:29.702]     else {
  [21:36:29.702]         base::sink(type = "output", split = FALSE)
  [21:36:29.702]         if (TRUE) {
  [21:36:29.702]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.702]         }
  [21:36:29.702]         else {
  [21:36:29.702]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.702]         }
  [21:36:29.702]         base::close(...future.stdout)
  [21:36:29.702]         ...future.stdout <- NULL
  [21:36:29.702]     }
  [21:36:29.702]     ...future.result$conditions <- ...future.conditions
  [21:36:29.702]     ...future.result
  [21:36:29.702] }
  [21:36:29.710] plan(): Setting new future strategy stack:
  [21:36:29.710] List of future strategies:
  [21:36:29.710] 1. sequential:
  [21:36:29.710]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.710]    - tweaked: FALSE
  [21:36:29.710]    - call: NULL
  [21:36:29.711] plan(): nbrOfWorkers() = 1
  [21:36:29.712] plan(): Setting new future strategy stack:
  [21:36:29.712] List of future strategies:
  [21:36:29.712] 1. sequential:
  [21:36:29.712]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.712]    - tweaked: FALSE
  [21:36:29.712]    - call: plan(strategy)
  [21:36:29.713] plan(): nbrOfWorkers() = 1
  [21:36:29.713] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_2-962282'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9d04f8>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.737] getGlobalsAndPackages() ...
  [21:36:29.737] Searching for globals...
  [21:36:29.739] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.739] Searching for globals ... DONE
  [21:36:29.739] Resolving globals: FALSE
  [21:36:29.740] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.741] - globals: [1] 'x'
  [21:36:29.741] 
  [21:36:29.741] getGlobalsAndPackages() ... DONE
  [21:36:29.743] Packages needed by the future expression (n = 0): <none>
  [21:36:29.743] Packages needed by future strategies (n = 0): <none>
  [21:36:29.753] {
  [21:36:29.753]     {
  [21:36:29.753]         ...future.startTime <- base::Sys.time()
  [21:36:29.753]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.753]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.753]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.753]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.753]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.753]         {
  [21:36:29.753]             {
  [21:36:29.753]                 base::local({
  [21:36:29.753]                   has_future <- base::requireNamespace("future", 
  [21:36:29.753]                     quietly = TRUE)
  [21:36:29.753]                   version <- if (has_future) 
  [21:36:29.753]                     utils::packageVersion("future")
  [21:36:29.753]                   else NULL
  [21:36:29.753]                   if (!has_future || version < "1.8.0") {
  [21:36:29.753]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.753]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.753]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.753]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.753]                         "release", "version")], collapse = " "), 
  [21:36:29.753]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.753]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.753]                       info)
  [21:36:29.753]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.753]                     if (!has_future) {
  [21:36:29.753]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.753]                         info)
  [21:36:29.753]                     }
  [21:36:29.753]                     else {
  [21:36:29.753]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.753]                         info, version)
  [21:36:29.753]                     }
  [21:36:29.753]                     base::stop(msg)
  [21:36:29.753]                   }
  [21:36:29.753]                 })
  [21:36:29.753]             }
  [21:36:29.753]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.753]         }
  [21:36:29.753]     }
  [21:36:29.753]     if (base::is.na(TRUE)) {
  [21:36:29.753]     }
  [21:36:29.753]     else {
  [21:36:29.753]         if (TRUE) {
  [21:36:29.753]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.753]                 open = "w")
  [21:36:29.753]         }
  [21:36:29.753]         else {
  [21:36:29.753]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.753]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.753]         }
  [21:36:29.753]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.753]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.753]             base::sink(type = "output", split = FALSE)
  [21:36:29.753]             base::close(...future.stdout)
  [21:36:29.753]         }, add = TRUE)
  [21:36:29.753]     }
  [21:36:29.753]     ...future.frame <- base::sys.nframe()
  [21:36:29.753]     ...future.conditions <- base::list()
  [21:36:29.753]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.753]     ...future.result <- base::tryCatch({
  [21:36:29.753]         base::withCallingHandlers({
  [21:36:29.753]             ...future.value <- base::withVisible(base::local({
  [21:36:29.753]                 sample(x, size = 1L)
  [21:36:29.753]             }))
  [21:36:29.753]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.753]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.753]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.753]                 version = "1.8")
  [21:36:29.753]         }, condition = base::local({
  [21:36:29.753]             c <- base::c
  [21:36:29.753]             inherits <- base::inherits
  [21:36:29.753]             invokeRestart <- base::invokeRestart
  [21:36:29.753]             length <- base::length
  [21:36:29.753]             list <- base::list
  [21:36:29.753]             seq.int <- base::seq.int
  [21:36:29.753]             signalCondition <- base::signalCondition
  [21:36:29.753]             sys.calls <- base::sys.calls
  [21:36:29.753]             Sys.time <- base::Sys.time
  [21:36:29.753]             `[[` <- base::`[[`
  [21:36:29.753]             `+` <- base::`+`
  [21:36:29.753]             `<<-` <- base::`<<-`
  [21:36:29.753]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.753]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.753]                   3L)]
  [21:36:29.753]             }
  [21:36:29.753]             function(cond) {
  [21:36:29.753]                 if (inherits(cond, "error")) {
  [21:36:29.753]                   sessionInformation <- function() {
  [21:36:29.753]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.753]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.753]                       search = base::search(), system = base::Sys.info())
  [21:36:29.753]                   }
  [21:36:29.753]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.753]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.753]                     cond$call), session = sessionInformation(), 
  [21:36:29.753]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.753]                   signalCondition(cond)
  [21:36:29.753]                 }
  [21:36:29.753]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.753]                 ))) {
  [21:36:29.753]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.753]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.753]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.753]                   if (!signal) {
  [21:36:29.753]                     muffleCondition <- function (cond) 
  [21:36:29.753]                     {
  [21:36:29.753]                       inherits <- base::inherits
  [21:36:29.753]                       invokeRestart <- base::invokeRestart
  [21:36:29.753]                       muffled <- FALSE
  [21:36:29.753]                       if (inherits(cond, "message")) {
  [21:36:29.753]                         invokeRestart("muffleMessage")
  [21:36:29.753]                         muffled <- TRUE
  [21:36:29.753]                       }
  [21:36:29.753]                       else if (inherits(cond, "warning")) {
  [21:36:29.753]                         invokeRestart("muffleWarning")
  [21:36:29.753]                         muffled <- TRUE
  [21:36:29.753]                       }
  [21:36:29.753]                       else if (inherits(cond, "condition")) {
  [21:36:29.753]                         computeRestarts <- base::computeRestarts
  [21:36:29.753]                         grepl <- base::grepl
  [21:36:29.753]                         is.null <- base::is.null
  [21:36:29.753]                         restarts <- computeRestarts(cond)
  [21:36:29.753]                         for (restart in restarts) {
  [21:36:29.753]                           name <- restart$name
  [21:36:29.753]                           if (is.null(name)) 
  [21:36:29.753]                             next
  [21:36:29.753]                           if (!grepl("^muffle", name)) 
  [21:36:29.753]                             next
  [21:36:29.753]                           invokeRestart(restart)
  [21:36:29.753]                           muffled <- TRUE
  [21:36:29.753]                           break
  [21:36:29.753]                         }
  [21:36:29.753]                       }
  [21:36:29.753]                       invisible(muffled)
  [21:36:29.753]                     }
  [21:36:29.753]                     muffleCondition(cond)
  [21:36:29.753]                   }
  [21:36:29.753]                 }
  [21:36:29.753]             }
  [21:36:29.753]         }))
  [21:36:29.753]     }, error = function(ex) {
  [21:36:29.753]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.753]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.753]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.753]     }, finally = {
  [21:36:29.753]         {
  [21:36:29.753]             NULL
  [21:36:29.753]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.753]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.753]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.753]                 label = NULL, ...) 
  [21:36:29.753]             {
  [21:36:29.753]                 if (substitute) 
  [21:36:29.753]                   expr <- substitute(expr)
  [21:36:29.753]                 local <- as.logical(local)
  [21:36:29.753]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.753]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.753]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.753]                   label = label, ...)
  [21:36:29.753]                 if (!future$lazy) 
  [21:36:29.753]                   future <- run(future)
  [21:36:29.753]                 invisible(future)
  [21:36:29.753]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.753]         }
  [21:36:29.753]         base::options(...future.oldOptions)
  [21:36:29.753]     })
  [21:36:29.753]     Sys.time
  [21:36:29.753]     if (base::is.na(TRUE)) {
  [21:36:29.753]     }
  [21:36:29.753]     else {
  [21:36:29.753]         base::sink(type = "output", split = FALSE)
  [21:36:29.753]         if (TRUE) {
  [21:36:29.753]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.753]         }
  [21:36:29.753]         else {
  [21:36:29.753]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.753]         }
  [21:36:29.753]         base::close(...future.stdout)
  [21:36:29.753]         ...future.stdout <- NULL
  [21:36:29.753]     }
  [21:36:29.753]     ...future.result$conditions <- ...future.conditions
  [21:36:29.753]     ...future.result
  [21:36:29.753] }
  [21:36:29.757] plan(): Setting new future strategy stack:
  [21:36:29.758] List of future strategies:
  [21:36:29.758] 1. sequential:
  [21:36:29.758]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.758]    - tweaked: FALSE
  [21:36:29.758]    - call: NULL
  [21:36:29.758] plan(): nbrOfWorkers() = 1
  [21:36:29.760] plan(): Setting new future strategy stack:
  [21:36:29.760] List of future strategies:
  [21:36:29.760] 1. sequential:
  [21:36:29.760]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.760]    - tweaked: FALSE
  [21:36:29.760]    - call: plan(strategy)
  [21:36:29.761] plan(): nbrOfWorkers() = 1
  [21:36:29.761] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_3-374758'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9d04f8>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.763] getGlobalsAndPackages() ...
  [21:36:29.763] Searching for globals...
  [21:36:29.765] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.766] Searching for globals ... DONE
  [21:36:29.766] Resolving globals: FALSE
  [21:36:29.767] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.767] - globals: [1] 'x'
  [21:36:29.767] 
  [21:36:29.768] getGlobalsAndPackages() ... DONE
  [21:36:29.769] Packages needed by the future expression (n = 0): <none>
  [21:36:29.770] Packages needed by future strategies (n = 0): <none>
  [21:36:29.774] {
  [21:36:29.774]     {
  [21:36:29.774]         ...future.startTime <- base::Sys.time()
  [21:36:29.774]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.774]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.774]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.774]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.774]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.774]         {
  [21:36:29.774]             {
  [21:36:29.774]                 base::local({
  [21:36:29.774]                   has_future <- base::requireNamespace("future", 
  [21:36:29.774]                     quietly = TRUE)
  [21:36:29.774]                   version <- if (has_future) 
  [21:36:29.774]                     utils::packageVersion("future")
  [21:36:29.774]                   else NULL
  [21:36:29.774]                   if (!has_future || version < "1.8.0") {
  [21:36:29.774]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.774]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.774]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.774]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.774]                         "release", "version")], collapse = " "), 
  [21:36:29.774]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.774]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.774]                       info)
  [21:36:29.774]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.774]                     if (!has_future) {
  [21:36:29.774]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.774]                         info)
  [21:36:29.774]                     }
  [21:36:29.774]                     else {
  [21:36:29.774]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.774]                         info, version)
  [21:36:29.774]                     }
  [21:36:29.774]                     base::stop(msg)
  [21:36:29.774]                   }
  [21:36:29.774]                 })
  [21:36:29.774]             }
  [21:36:29.774]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.774]         }
  [21:36:29.774]     }
  [21:36:29.774]     if (base::is.na(TRUE)) {
  [21:36:29.774]     }
  [21:36:29.774]     else {
  [21:36:29.774]         if (TRUE) {
  [21:36:29.774]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.774]                 open = "w")
  [21:36:29.774]         }
  [21:36:29.774]         else {
  [21:36:29.774]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.774]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.774]         }
  [21:36:29.774]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.774]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.774]             base::sink(type = "output", split = FALSE)
  [21:36:29.774]             base::close(...future.stdout)
  [21:36:29.774]         }, add = TRUE)
  [21:36:29.774]     }
  [21:36:29.774]     ...future.frame <- base::sys.nframe()
  [21:36:29.774]     ...future.conditions <- base::list()
  [21:36:29.774]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.774]     ...future.result <- base::tryCatch({
  [21:36:29.774]         base::withCallingHandlers({
  [21:36:29.774]             ...future.value <- base::withVisible(base::local({
  [21:36:29.774]                 sample(x, size = 1L)
  [21:36:29.774]             }))
  [21:36:29.774]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.774]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.774]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.774]                 version = "1.8")
  [21:36:29.774]         }, condition = base::local({
  [21:36:29.774]             c <- base::c
  [21:36:29.774]             inherits <- base::inherits
  [21:36:29.774]             invokeRestart <- base::invokeRestart
  [21:36:29.774]             length <- base::length
  [21:36:29.774]             list <- base::list
  [21:36:29.774]             seq.int <- base::seq.int
  [21:36:29.774]             signalCondition <- base::signalCondition
  [21:36:29.774]             sys.calls <- base::sys.calls
  [21:36:29.774]             Sys.time <- base::Sys.time
  [21:36:29.774]             `[[` <- base::`[[`
  [21:36:29.774]             `+` <- base::`+`
  [21:36:29.774]             `<<-` <- base::`<<-`
  [21:36:29.774]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.774]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.774]                   3L)]
  [21:36:29.774]             }
  [21:36:29.774]             function(cond) {
  [21:36:29.774]                 if (inherits(cond, "error")) {
  [21:36:29.774]                   sessionInformation <- function() {
  [21:36:29.774]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.774]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.774]                       search = base::search(), system = base::Sys.info())
  [21:36:29.774]                   }
  [21:36:29.774]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.774]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.774]                     cond$call), session = sessionInformation(), 
  [21:36:29.774]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.774]                   signalCondition(cond)
  [21:36:29.774]                 }
  [21:36:29.774]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.774]                 ))) {
  [21:36:29.774]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.774]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.774]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.774]                   if (!signal) {
  [21:36:29.774]                     muffleCondition <- function (cond) 
  [21:36:29.774]                     {
  [21:36:29.774]                       inherits <- base::inherits
  [21:36:29.774]                       invokeRestart <- base::invokeRestart
  [21:36:29.774]                       muffled <- FALSE
  [21:36:29.774]                       if (inherits(cond, "message")) {
  [21:36:29.774]                         invokeRestart("muffleMessage")
  [21:36:29.774]                         muffled <- TRUE
  [21:36:29.774]                       }
  [21:36:29.774]                       else if (inherits(cond, "warning")) {
  [21:36:29.774]                         invokeRestart("muffleWarning")
  [21:36:29.774]                         muffled <- TRUE
  [21:36:29.774]                       }
  [21:36:29.774]                       else if (inherits(cond, "condition")) {
  [21:36:29.774]                         computeRestarts <- base::computeRestarts
  [21:36:29.774]                         grepl <- base::grepl
  [21:36:29.774]                         is.null <- base::is.null
  [21:36:29.774]                         restarts <- computeRestarts(cond)
  [21:36:29.774]                         for (restart in restarts) {
  [21:36:29.774]                           name <- restart$name
  [21:36:29.774]                           if (is.null(name)) 
  [21:36:29.774]                             next
  [21:36:29.774]                           if (!grepl("^muffle", name)) 
  [21:36:29.774]                             next
  [21:36:29.774]                           invokeRestart(restart)
  [21:36:29.774]                           muffled <- TRUE
  [21:36:29.774]                           break
  [21:36:29.774]                         }
  [21:36:29.774]                       }
  [21:36:29.774]                       invisible(muffled)
  [21:36:29.774]                     }
  [21:36:29.774]                     muffleCondition(cond)
  [21:36:29.774]                   }
  [21:36:29.774]                 }
  [21:36:29.774]             }
  [21:36:29.774]         }))
  [21:36:29.774]     }, error = function(ex) {
  [21:36:29.774]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.774]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.774]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.774]     }, finally = {
  [21:36:29.774]         {
  [21:36:29.774]             NULL
  [21:36:29.774]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.774]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.774]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.774]                 label = NULL, ...) 
  [21:36:29.774]             {
  [21:36:29.774]                 if (substitute) 
  [21:36:29.774]                   expr <- substitute(expr)
  [21:36:29.774]                 local <- as.logical(local)
  [21:36:29.774]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.774]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.774]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.774]                   label = label, ...)
  [21:36:29.774]                 if (!future$lazy) 
  [21:36:29.774]                   future <- run(future)
  [21:36:29.774]                 invisible(future)
  [21:36:29.774]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.774]         }
  [21:36:29.774]         base::options(...future.oldOptions)
  [21:36:29.774]     })
  [21:36:29.774]     Sys.time
  [21:36:29.774]     if (base::is.na(TRUE)) {
  [21:36:29.774]     }
  [21:36:29.774]     else {
  [21:36:29.774]         base::sink(type = "output", split = FALSE)
  [21:36:29.774]         if (TRUE) {
  [21:36:29.774]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.774]         }
  [21:36:29.774]         else {
  [21:36:29.774]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.774]         }
  [21:36:29.774]         base::close(...future.stdout)
  [21:36:29.774]         ...future.stdout <- NULL
  [21:36:29.774]     }
  [21:36:29.774]     ...future.result$conditions <- ...future.conditions
  [21:36:29.774]     ...future.result
  [21:36:29.774] }
  [21:36:29.778] plan(): Setting new future strategy stack:
  [21:36:29.778] List of future strategies:
  [21:36:29.778] 1. sequential:
  [21:36:29.778]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.778]    - tweaked: FALSE
  [21:36:29.778]    - call: NULL
  [21:36:29.779] plan(): nbrOfWorkers() = 1
  [21:36:29.780] plan(): Setting new future strategy stack:
  [21:36:29.780] List of future strategies:
  [21:36:29.780] 1. sequential:
  [21:36:29.780]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.780]    - tweaked: FALSE
  [21:36:29.780]    - call: plan(strategy)
  [21:36:29.781] plan(): nbrOfWorkers() = 1
  [21:36:29.782] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_4-773449'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9d04f8>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.783] resolve() on list ...
  [21:36:29.784]  recursive: 0
  [21:36:29.784]  length: 4
  [21:36:29.784] 
  [21:36:29.785] Future #1
  [21:36:29.785] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:29.785] - nx: 4
  [21:36:29.785] - relay: TRUE
  [21:36:29.786] - stdout: TRUE
  [21:36:29.786] - signal: TRUE
  [21:36:29.786] - resignal: FALSE
  [21:36:29.786] - force: TRUE
  [21:36:29.787] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.787] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.787]  - until=1
  [21:36:29.787]  - relaying element #1
  [21:36:29.788] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.788] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.788] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:29.789]  length: 3 (resolved future 1)
  [21:36:29.789] Future #2
  [21:36:29.789] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:29.790] - nx: 4
  [21:36:29.790] - relay: TRUE
  [21:36:29.790] - stdout: TRUE
  [21:36:29.790] - signal: TRUE
  [21:36:29.791] - resignal: FALSE
  [21:36:29.791] - force: TRUE
  [21:36:29.791] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.791] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.792]  - until=2
  [21:36:29.792]  - relaying element #2
  [21:36:29.792] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.793] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.793] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:29.793]  length: 2 (resolved future 2)
  [21:36:29.793] Future #3
  [21:36:29.794] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:29.794] - nx: 4
  [21:36:29.794] - relay: TRUE
  [21:36:29.795] - stdout: TRUE
  [21:36:29.796] - signal: TRUE
  [21:36:29.796] - resignal: FALSE
  [21:36:29.796] - force: TRUE
  [21:36:29.796] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.797] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:29.797]  - until=3
  [21:36:29.797]  - relaying element #3
  [21:36:29.798] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.798] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.798] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:29.799]  length: 1 (resolved future 3)
  [21:36:29.799] Future #4
  [21:36:29.799] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:29.799] - nx: 4
  [21:36:29.800] - relay: TRUE
  [21:36:29.800] - stdout: TRUE
  [21:36:29.800] - signal: TRUE
  [21:36:29.800] - resignal: FALSE
  [21:36:29.801] - force: TRUE
  [21:36:29.801] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.801] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:29.801]  - until=4
  [21:36:29.802]  - relaying element #4
  [21:36:29.802] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.802] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.803] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:29.803]  length: 0 (resolved future 4)
  [21:36:29.803] Relaying remaining futures
  [21:36:29.803] signalConditionsASAP(NULL, pos=0) ...
  [21:36:29.804] - nx: 4
  [21:36:29.804] - relay: TRUE
  [21:36:29.804] - stdout: TRUE
  [21:36:29.808] - signal: TRUE
  [21:36:29.808] - resignal: FALSE
  [21:36:29.808] - force: TRUE
  [21:36:29.809] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.809] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:29.809] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.809] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:29.810] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:29.810] resolve() on list ... DONE
  [[1]]
  [1] 3
  
  [[2]]
  [1] 1
  
  [[3]]
  [1] 2
  
  [[4]]
  [1] 0
  
  [21:36:29.811] getGlobalsAndPackages() ...
  [21:36:29.811] Searching for globals...
  [21:36:29.813] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.814] Searching for globals ... DONE
  [21:36:29.814] Resolving globals: FALSE
  [21:36:29.815] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.815] - globals: [1] 'x'
  [21:36:29.815] 
  [21:36:29.816] getGlobalsAndPackages() ... DONE
  [21:36:29.817] Packages needed by the future expression (n = 0): <none>
  [21:36:29.818] Packages needed by future strategies (n = 0): <none>
  [21:36:29.822] {
  [21:36:29.822]     {
  [21:36:29.822]         ...future.startTime <- base::Sys.time()
  [21:36:29.822]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.822]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.822]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.822]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.822]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.822]         {
  [21:36:29.822]             {
  [21:36:29.822]                 base::local({
  [21:36:29.822]                   has_future <- base::requireNamespace("future", 
  [21:36:29.822]                     quietly = TRUE)
  [21:36:29.822]                   version <- if (has_future) 
  [21:36:29.822]                     utils::packageVersion("future")
  [21:36:29.822]                   else NULL
  [21:36:29.822]                   if (!has_future || version < "1.8.0") {
  [21:36:29.822]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.822]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.822]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.822]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.822]                         "release", "version")], collapse = " "), 
  [21:36:29.822]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.822]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.822]                       info)
  [21:36:29.822]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.822]                     if (!has_future) {
  [21:36:29.822]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.822]                         info)
  [21:36:29.822]                     }
  [21:36:29.822]                     else {
  [21:36:29.822]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.822]                         info, version)
  [21:36:29.822]                     }
  [21:36:29.822]                     base::stop(msg)
  [21:36:29.822]                   }
  [21:36:29.822]                 })
  [21:36:29.822]             }
  [21:36:29.822]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.822]         }
  [21:36:29.822]     }
  [21:36:29.822]     if (base::is.na(TRUE)) {
  [21:36:29.822]     }
  [21:36:29.822]     else {
  [21:36:29.822]         if (TRUE) {
  [21:36:29.822]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.822]                 open = "w")
  [21:36:29.822]         }
  [21:36:29.822]         else {
  [21:36:29.822]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.822]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.822]         }
  [21:36:29.822]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.822]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.822]             base::sink(type = "output", split = FALSE)
  [21:36:29.822]             base::close(...future.stdout)
  [21:36:29.822]         }, add = TRUE)
  [21:36:29.822]     }
  [21:36:29.822]     ...future.frame <- base::sys.nframe()
  [21:36:29.822]     ...future.conditions <- base::list()
  [21:36:29.822]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.822]     ...future.result <- base::tryCatch({
  [21:36:29.822]         base::withCallingHandlers({
  [21:36:29.822]             ...future.value <- base::withVisible(base::local({
  [21:36:29.822]                 sample(x, size = 1L)
  [21:36:29.822]             }))
  [21:36:29.822]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.822]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.822]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.822]                 version = "1.8")
  [21:36:29.822]         }, condition = base::local({
  [21:36:29.822]             c <- base::c
  [21:36:29.822]             inherits <- base::inherits
  [21:36:29.822]             invokeRestart <- base::invokeRestart
  [21:36:29.822]             length <- base::length
  [21:36:29.822]             list <- base::list
  [21:36:29.822]             seq.int <- base::seq.int
  [21:36:29.822]             signalCondition <- base::signalCondition
  [21:36:29.822]             sys.calls <- base::sys.calls
  [21:36:29.822]             Sys.time <- base::Sys.time
  [21:36:29.822]             `[[` <- base::`[[`
  [21:36:29.822]             `+` <- base::`+`
  [21:36:29.822]             `<<-` <- base::`<<-`
  [21:36:29.822]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.822]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.822]                   3L)]
  [21:36:29.822]             }
  [21:36:29.822]             function(cond) {
  [21:36:29.822]                 if (inherits(cond, "error")) {
  [21:36:29.822]                   sessionInformation <- function() {
  [21:36:29.822]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.822]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.822]                       search = base::search(), system = base::Sys.info())
  [21:36:29.822]                   }
  [21:36:29.822]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.822]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.822]                     cond$call), session = sessionInformation(), 
  [21:36:29.822]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.822]                   signalCondition(cond)
  [21:36:29.822]                 }
  [21:36:29.822]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.822]                 ))) {
  [21:36:29.822]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.822]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.822]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.822]                   if (!signal) {
  [21:36:29.822]                     muffleCondition <- function (cond) 
  [21:36:29.822]                     {
  [21:36:29.822]                       inherits <- base::inherits
  [21:36:29.822]                       invokeRestart <- base::invokeRestart
  [21:36:29.822]                       muffled <- FALSE
  [21:36:29.822]                       if (inherits(cond, "message")) {
  [21:36:29.822]                         invokeRestart("muffleMessage")
  [21:36:29.822]                         muffled <- TRUE
  [21:36:29.822]                       }
  [21:36:29.822]                       else if (inherits(cond, "warning")) {
  [21:36:29.822]                         invokeRestart("muffleWarning")
  [21:36:29.822]                         muffled <- TRUE
  [21:36:29.822]                       }
  [21:36:29.822]                       else if (inherits(cond, "condition")) {
  [21:36:29.822]                         computeRestarts <- base::computeRestarts
  [21:36:29.822]                         grepl <- base::grepl
  [21:36:29.822]                         is.null <- base::is.null
  [21:36:29.822]                         restarts <- computeRestarts(cond)
  [21:36:29.822]                         for (restart in restarts) {
  [21:36:29.822]                           name <- restart$name
  [21:36:29.822]                           if (is.null(name)) 
  [21:36:29.822]                             next
  [21:36:29.822]                           if (!grepl("^muffle", name)) 
  [21:36:29.822]                             next
  [21:36:29.822]                           invokeRestart(restart)
  [21:36:29.822]                           muffled <- TRUE
  [21:36:29.822]                           break
  [21:36:29.822]                         }
  [21:36:29.822]                       }
  [21:36:29.822]                       invisible(muffled)
  [21:36:29.822]                     }
  [21:36:29.822]                     muffleCondition(cond)
  [21:36:29.822]                   }
  [21:36:29.822]                 }
  [21:36:29.822]             }
  [21:36:29.822]         }))
  [21:36:29.822]     }, error = function(ex) {
  [21:36:29.822]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.822]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.822]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.822]     }, finally = {
  [21:36:29.822]         {
  [21:36:29.822]             NULL
  [21:36:29.822]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.822]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.822]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.822]                 label = NULL, ...) 
  [21:36:29.822]             {
  [21:36:29.822]                 if (substitute) 
  [21:36:29.822]                   expr <- substitute(expr)
  [21:36:29.822]                 local <- as.logical(local)
  [21:36:29.822]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.822]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.822]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.822]                   label = label, ...)
  [21:36:29.822]                 if (!future$lazy) 
  [21:36:29.822]                   future <- run(future)
  [21:36:29.822]                 invisible(future)
  [21:36:29.822]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.822]         }
  [21:36:29.822]         base::options(...future.oldOptions)
  [21:36:29.822]     })
  [21:36:29.822]     Sys.time
  [21:36:29.822]     if (base::is.na(TRUE)) {
  [21:36:29.822]     }
  [21:36:29.822]     else {
  [21:36:29.822]         base::sink(type = "output", split = FALSE)
  [21:36:29.822]         if (TRUE) {
  [21:36:29.822]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.822]         }
  [21:36:29.822]         else {
  [21:36:29.822]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.822]         }
  [21:36:29.822]         base::close(...future.stdout)
  [21:36:29.822]         ...future.stdout <- NULL
  [21:36:29.822]     }
  [21:36:29.822]     ...future.result$conditions <- ...future.conditions
  [21:36:29.822]     ...future.result
  [21:36:29.822] }
  [21:36:29.826] plan(): Setting new future strategy stack:
  [21:36:29.827] List of future strategies:
  [21:36:29.827] 1. sequential:
  [21:36:29.827]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.827]    - tweaked: FALSE
  [21:36:29.827]    - call: NULL
  [21:36:29.828] plan(): nbrOfWorkers() = 1
  [21:36:29.829] plan(): Setting new future strategy stack:
  [21:36:29.829] List of future strategies:
  [21:36:29.829] 1. sequential:
  [21:36:29.829]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.829]    - tweaked: FALSE
  [21:36:29.829]    - call: plan(strategy)
  [21:36:29.830] plan(): nbrOfWorkers() = 1
  [21:36:29.830] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_1-12240'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166ebf2cb0>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.832] getGlobalsAndPackages() ...
  [21:36:29.832] Searching for globals...
  [21:36:29.834] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.835] Searching for globals ... DONE
  [21:36:29.835] Resolving globals: FALSE
  [21:36:29.836] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.836] - globals: [1] 'x'
  [21:36:29.836] 
  [21:36:29.837] getGlobalsAndPackages() ... DONE
  [21:36:29.838] Packages needed by the future expression (n = 0): <none>
  [21:36:29.839] Packages needed by future strategies (n = 0): <none>
  [21:36:29.843] {
  [21:36:29.843]     {
  [21:36:29.843]         ...future.startTime <- base::Sys.time()
  [21:36:29.843]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.843]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.843]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.843]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.843]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.843]         {
  [21:36:29.843]             {
  [21:36:29.843]                 base::local({
  [21:36:29.843]                   has_future <- base::requireNamespace("future", 
  [21:36:29.843]                     quietly = TRUE)
  [21:36:29.843]                   version <- if (has_future) 
  [21:36:29.843]                     utils::packageVersion("future")
  [21:36:29.843]                   else NULL
  [21:36:29.843]                   if (!has_future || version < "1.8.0") {
  [21:36:29.843]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.843]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.843]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.843]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.843]                         "release", "version")], collapse = " "), 
  [21:36:29.843]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.843]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.843]                       info)
  [21:36:29.843]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.843]                     if (!has_future) {
  [21:36:29.843]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.843]                         info)
  [21:36:29.843]                     }
  [21:36:29.843]                     else {
  [21:36:29.843]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.843]                         info, version)
  [21:36:29.843]                     }
  [21:36:29.843]                     base::stop(msg)
  [21:36:29.843]                   }
  [21:36:29.843]                 })
  [21:36:29.843]             }
  [21:36:29.843]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.843]         }
  [21:36:29.843]     }
  [21:36:29.843]     if (base::is.na(TRUE)) {
  [21:36:29.843]     }
  [21:36:29.843]     else {
  [21:36:29.843]         if (TRUE) {
  [21:36:29.843]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.843]                 open = "w")
  [21:36:29.843]         }
  [21:36:29.843]         else {
  [21:36:29.843]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.843]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.843]         }
  [21:36:29.843]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.843]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.843]             base::sink(type = "output", split = FALSE)
  [21:36:29.843]             base::close(...future.stdout)
  [21:36:29.843]         }, add = TRUE)
  [21:36:29.843]     }
  [21:36:29.843]     ...future.frame <- base::sys.nframe()
  [21:36:29.843]     ...future.conditions <- base::list()
  [21:36:29.843]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.843]     ...future.result <- base::tryCatch({
  [21:36:29.843]         base::withCallingHandlers({
  [21:36:29.843]             ...future.value <- base::withVisible(base::local({
  [21:36:29.843]                 sample(x, size = 1L)
  [21:36:29.843]             }))
  [21:36:29.843]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.843]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.843]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.843]                 version = "1.8")
  [21:36:29.843]         }, condition = base::local({
  [21:36:29.843]             c <- base::c
  [21:36:29.843]             inherits <- base::inherits
  [21:36:29.843]             invokeRestart <- base::invokeRestart
  [21:36:29.843]             length <- base::length
  [21:36:29.843]             list <- base::list
  [21:36:29.843]             seq.int <- base::seq.int
  [21:36:29.843]             signalCondition <- base::signalCondition
  [21:36:29.843]             sys.calls <- base::sys.calls
  [21:36:29.843]             Sys.time <- base::Sys.time
  [21:36:29.843]             `[[` <- base::`[[`
  [21:36:29.843]             `+` <- base::`+`
  [21:36:29.843]             `<<-` <- base::`<<-`
  [21:36:29.843]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.843]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.843]                   3L)]
  [21:36:29.843]             }
  [21:36:29.843]             function(cond) {
  [21:36:29.843]                 if (inherits(cond, "error")) {
  [21:36:29.843]                   sessionInformation <- function() {
  [21:36:29.843]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.843]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.843]                       search = base::search(), system = base::Sys.info())
  [21:36:29.843]                   }
  [21:36:29.843]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.843]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.843]                     cond$call), session = sessionInformation(), 
  [21:36:29.843]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.843]                   signalCondition(cond)
  [21:36:29.843]                 }
  [21:36:29.843]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.843]                 ))) {
  [21:36:29.843]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.843]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.843]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.843]                   if (!signal) {
  [21:36:29.843]                     muffleCondition <- function (cond) 
  [21:36:29.843]                     {
  [21:36:29.843]                       inherits <- base::inherits
  [21:36:29.843]                       invokeRestart <- base::invokeRestart
  [21:36:29.843]                       muffled <- FALSE
  [21:36:29.843]                       if (inherits(cond, "message")) {
  [21:36:29.843]                         invokeRestart("muffleMessage")
  [21:36:29.843]                         muffled <- TRUE
  [21:36:29.843]                       }
  [21:36:29.843]                       else if (inherits(cond, "warning")) {
  [21:36:29.843]                         invokeRestart("muffleWarning")
  [21:36:29.843]                         muffled <- TRUE
  [21:36:29.843]                       }
  [21:36:29.843]                       else if (inherits(cond, "condition")) {
  [21:36:29.843]                         computeRestarts <- base::computeRestarts
  [21:36:29.843]                         grepl <- base::grepl
  [21:36:29.843]                         is.null <- base::is.null
  [21:36:29.843]                         restarts <- computeRestarts(cond)
  [21:36:29.843]                         for (restart in restarts) {
  [21:36:29.843]                           name <- restart$name
  [21:36:29.843]                           if (is.null(name)) 
  [21:36:29.843]                             next
  [21:36:29.843]                           if (!grepl("^muffle", name)) 
  [21:36:29.843]                             next
  [21:36:29.843]                           invokeRestart(restart)
  [21:36:29.843]                           muffled <- TRUE
  [21:36:29.843]                           break
  [21:36:29.843]                         }
  [21:36:29.843]                       }
  [21:36:29.843]                       invisible(muffled)
  [21:36:29.843]                     }
  [21:36:29.843]                     muffleCondition(cond)
  [21:36:29.843]                   }
  [21:36:29.843]                 }
  [21:36:29.843]             }
  [21:36:29.843]         }))
  [21:36:29.843]     }, error = function(ex) {
  [21:36:29.843]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.843]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.843]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.843]     }, finally = {
  [21:36:29.843]         {
  [21:36:29.843]             NULL
  [21:36:29.843]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.843]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.843]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.843]                 label = NULL, ...) 
  [21:36:29.843]             {
  [21:36:29.843]                 if (substitute) 
  [21:36:29.843]                   expr <- substitute(expr)
  [21:36:29.843]                 local <- as.logical(local)
  [21:36:29.843]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.843]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.843]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.843]                   label = label, ...)
  [21:36:29.843]                 if (!future$lazy) 
  [21:36:29.843]                   future <- run(future)
  [21:36:29.843]                 invisible(future)
  [21:36:29.843]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.843]         }
  [21:36:29.843]         base::options(...future.oldOptions)
  [21:36:29.843]     })
  [21:36:29.843]     Sys.time
  [21:36:29.843]     if (base::is.na(TRUE)) {
  [21:36:29.843]     }
  [21:36:29.843]     else {
  [21:36:29.843]         base::sink(type = "output", split = FALSE)
  [21:36:29.843]         if (TRUE) {
  [21:36:29.843]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.843]         }
  [21:36:29.843]         else {
  [21:36:29.843]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.843]         }
  [21:36:29.843]         base::close(...future.stdout)
  [21:36:29.843]         ...future.stdout <- NULL
  [21:36:29.843]     }
  [21:36:29.843]     ...future.result$conditions <- ...future.conditions
  [21:36:29.843]     ...future.result
  [21:36:29.843] }
  [21:36:29.847] plan(): Setting new future strategy stack:
  [21:36:29.848] List of future strategies:
  [21:36:29.848] 1. sequential:
  [21:36:29.848]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.848]    - tweaked: FALSE
  [21:36:29.848]    - call: NULL
  [21:36:29.848] plan(): nbrOfWorkers() = 1
  [21:36:29.849] plan(): Setting new future strategy stack:
  [21:36:29.855] List of future strategies:
  [21:36:29.855] 1. sequential:
  [21:36:29.855]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.855]    - tweaked: FALSE
  [21:36:29.855]    - call: plan(strategy)
  [21:36:29.856] plan(): nbrOfWorkers() = 1
  [21:36:29.857] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_2-987312'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166ebf2cb0>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.859] getGlobalsAndPackages() ...
  [21:36:29.859] Searching for globals...
  [21:36:29.861] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.861] Searching for globals ... DONE
  [21:36:29.862] Resolving globals: FALSE
  [21:36:29.863] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.863] - globals: [1] 'x'
  [21:36:29.863] 
  [21:36:29.863] getGlobalsAndPackages() ... DONE
  [21:36:29.865] Packages needed by the future expression (n = 0): <none>
  [21:36:29.865] Packages needed by future strategies (n = 0): <none>
  [21:36:29.886] {
  [21:36:29.886]     {
  [21:36:29.886]         ...future.startTime <- base::Sys.time()
  [21:36:29.886]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.886]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.886]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.886]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.886]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.886]         {
  [21:36:29.886]             {
  [21:36:29.886]                 base::local({
  [21:36:29.886]                   has_future <- base::requireNamespace("future", 
  [21:36:29.886]                     quietly = TRUE)
  [21:36:29.886]                   version <- if (has_future) 
  [21:36:29.886]                     utils::packageVersion("future")
  [21:36:29.886]                   else NULL
  [21:36:29.886]                   if (!has_future || version < "1.8.0") {
  [21:36:29.886]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.886]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.886]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.886]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.886]                         "release", "version")], collapse = " "), 
  [21:36:29.886]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.886]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.886]                       info)
  [21:36:29.886]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.886]                     if (!has_future) {
  [21:36:29.886]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.886]                         info)
  [21:36:29.886]                     }
  [21:36:29.886]                     else {
  [21:36:29.886]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.886]                         info, version)
  [21:36:29.886]                     }
  [21:36:29.886]                     base::stop(msg)
  [21:36:29.886]                   }
  [21:36:29.886]                 })
  [21:36:29.886]             }
  [21:36:29.886]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.886]         }
  [21:36:29.886]     }
  [21:36:29.886]     if (base::is.na(TRUE)) {
  [21:36:29.886]     }
  [21:36:29.886]     else {
  [21:36:29.886]         if (TRUE) {
  [21:36:29.886]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.886]                 open = "w")
  [21:36:29.886]         }
  [21:36:29.886]         else {
  [21:36:29.886]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.886]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.886]         }
  [21:36:29.886]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.886]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.886]             base::sink(type = "output", split = FALSE)
  [21:36:29.886]             base::close(...future.stdout)
  [21:36:29.886]         }, add = TRUE)
  [21:36:29.886]     }
  [21:36:29.886]     ...future.frame <- base::sys.nframe()
  [21:36:29.886]     ...future.conditions <- base::list()
  [21:36:29.886]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.886]     ...future.result <- base::tryCatch({
  [21:36:29.886]         base::withCallingHandlers({
  [21:36:29.886]             ...future.value <- base::withVisible(base::local({
  [21:36:29.886]                 sample(x, size = 1L)
  [21:36:29.886]             }))
  [21:36:29.886]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.886]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.886]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.886]                 version = "1.8")
  [21:36:29.886]         }, condition = base::local({
  [21:36:29.886]             c <- base::c
  [21:36:29.886]             inherits <- base::inherits
  [21:36:29.886]             invokeRestart <- base::invokeRestart
  [21:36:29.886]             length <- base::length
  [21:36:29.886]             list <- base::list
  [21:36:29.886]             seq.int <- base::seq.int
  [21:36:29.886]             signalCondition <- base::signalCondition
  [21:36:29.886]             sys.calls <- base::sys.calls
  [21:36:29.886]             Sys.time <- base::Sys.time
  [21:36:29.886]             `[[` <- base::`[[`
  [21:36:29.886]             `+` <- base::`+`
  [21:36:29.886]             `<<-` <- base::`<<-`
  [21:36:29.886]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.886]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.886]                   3L)]
  [21:36:29.886]             }
  [21:36:29.886]             function(cond) {
  [21:36:29.886]                 if (inherits(cond, "error")) {
  [21:36:29.886]                   sessionInformation <- function() {
  [21:36:29.886]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.886]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.886]                       search = base::search(), system = base::Sys.info())
  [21:36:29.886]                   }
  [21:36:29.886]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.886]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.886]                     cond$call), session = sessionInformation(), 
  [21:36:29.886]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.886]                   signalCondition(cond)
  [21:36:29.886]                 }
  [21:36:29.886]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.886]                 ))) {
  [21:36:29.886]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.886]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.886]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.886]                   if (!signal) {
  [21:36:29.886]                     muffleCondition <- function (cond) 
  [21:36:29.886]                     {
  [21:36:29.886]                       inherits <- base::inherits
  [21:36:29.886]                       invokeRestart <- base::invokeRestart
  [21:36:29.886]                       muffled <- FALSE
  [21:36:29.886]                       if (inherits(cond, "message")) {
  [21:36:29.886]                         invokeRestart("muffleMessage")
  [21:36:29.886]                         muffled <- TRUE
  [21:36:29.886]                       }
  [21:36:29.886]                       else if (inherits(cond, "warning")) {
  [21:36:29.886]                         invokeRestart("muffleWarning")
  [21:36:29.886]                         muffled <- TRUE
  [21:36:29.886]                       }
  [21:36:29.886]                       else if (inherits(cond, "condition")) {
  [21:36:29.886]                         computeRestarts <- base::computeRestarts
  [21:36:29.886]                         grepl <- base::grepl
  [21:36:29.886]                         is.null <- base::is.null
  [21:36:29.886]                         restarts <- computeRestarts(cond)
  [21:36:29.886]                         for (restart in restarts) {
  [21:36:29.886]                           name <- restart$name
  [21:36:29.886]                           if (is.null(name)) 
  [21:36:29.886]                             next
  [21:36:29.886]                           if (!grepl("^muffle", name)) 
  [21:36:29.886]                             next
  [21:36:29.886]                           invokeRestart(restart)
  [21:36:29.886]                           muffled <- TRUE
  [21:36:29.886]                           break
  [21:36:29.886]                         }
  [21:36:29.886]                       }
  [21:36:29.886]                       invisible(muffled)
  [21:36:29.886]                     }
  [21:36:29.886]                     muffleCondition(cond)
  [21:36:29.886]                   }
  [21:36:29.886]                 }
  [21:36:29.886]             }
  [21:36:29.886]         }))
  [21:36:29.886]     }, error = function(ex) {
  [21:36:29.886]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.886]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.886]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.886]     }, finally = {
  [21:36:29.886]         {
  [21:36:29.886]             NULL
  [21:36:29.886]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.886]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.886]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.886]                 label = NULL, ...) 
  [21:36:29.886]             {
  [21:36:29.886]                 if (substitute) 
  [21:36:29.886]                   expr <- substitute(expr)
  [21:36:29.886]                 local <- as.logical(local)
  [21:36:29.886]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.886]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.886]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.886]                   label = label, ...)
  [21:36:29.886]                 if (!future$lazy) 
  [21:36:29.886]                   future <- run(future)
  [21:36:29.886]                 invisible(future)
  [21:36:29.886]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.886]         }
  [21:36:29.886]         base::options(...future.oldOptions)
  [21:36:29.886]     })
  [21:36:29.886]     Sys.time
  [21:36:29.886]     if (base::is.na(TRUE)) {
  [21:36:29.886]     }
  [21:36:29.886]     else {
  [21:36:29.886]         base::sink(type = "output", split = FALSE)
  [21:36:29.886]         if (TRUE) {
  [21:36:29.886]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.886]         }
  [21:36:29.886]         else {
  [21:36:29.886]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.886]         }
  [21:36:29.886]         base::close(...future.stdout)
  [21:36:29.886]         ...future.stdout <- NULL
  [21:36:29.886]     }
  [21:36:29.886]     ...future.result$conditions <- ...future.conditions
  [21:36:29.886]     ...future.result
  [21:36:29.886] }
  [21:36:29.890] plan(): Setting new future strategy stack:
  [21:36:29.891] List of future strategies:
  [21:36:29.891] 1. sequential:
  [21:36:29.891]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.891]    - tweaked: FALSE
  [21:36:29.891]    - call: NULL
  [21:36:29.892] plan(): nbrOfWorkers() = 1
  [21:36:29.893] plan(): Setting new future strategy stack:
  [21:36:29.893] List of future strategies:
  [21:36:29.893] 1. sequential:
  [21:36:29.893]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.893]    - tweaked: FALSE
  [21:36:29.893]    - call: plan(strategy)
  [21:36:29.894] plan(): nbrOfWorkers() = 1
  [21:36:29.894] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_3-672951'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166ebf2cb0>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.900] getGlobalsAndPackages() ...
  [21:36:29.900] Searching for globals...
  [21:36:29.918] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.919] Searching for globals ... DONE
  [21:36:29.919] Resolving globals: FALSE
  [21:36:29.920] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.920] - globals: [1] 'x'
  [21:36:29.920] 
  [21:36:29.921] getGlobalsAndPackages() ... DONE
  [21:36:29.922] Packages needed by the future expression (n = 0): <none>
  [21:36:29.923] Packages needed by future strategies (n = 0): <none>
  [21:36:29.927] {
  [21:36:29.927]     {
  [21:36:29.927]         ...future.startTime <- base::Sys.time()
  [21:36:29.927]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.927]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.927]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.927]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.927]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.927]         {
  [21:36:29.927]             {
  [21:36:29.927]                 base::local({
  [21:36:29.927]                   has_future <- base::requireNamespace("future", 
  [21:36:29.927]                     quietly = TRUE)
  [21:36:29.927]                   version <- if (has_future) 
  [21:36:29.927]                     utils::packageVersion("future")
  [21:36:29.927]                   else NULL
  [21:36:29.927]                   if (!has_future || version < "1.8.0") {
  [21:36:29.927]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.927]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.927]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.927]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.927]                         "release", "version")], collapse = " "), 
  [21:36:29.927]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.927]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.927]                       info)
  [21:36:29.927]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.927]                     if (!has_future) {
  [21:36:29.927]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.927]                         info)
  [21:36:29.927]                     }
  [21:36:29.927]                     else {
  [21:36:29.927]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.927]                         info, version)
  [21:36:29.927]                     }
  [21:36:29.927]                     base::stop(msg)
  [21:36:29.927]                   }
  [21:36:29.927]                 })
  [21:36:29.927]             }
  [21:36:29.927]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.927]         }
  [21:36:29.927]     }
  [21:36:29.927]     if (base::is.na(TRUE)) {
  [21:36:29.927]     }
  [21:36:29.927]     else {
  [21:36:29.927]         if (TRUE) {
  [21:36:29.927]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.927]                 open = "w")
  [21:36:29.927]         }
  [21:36:29.927]         else {
  [21:36:29.927]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.927]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.927]         }
  [21:36:29.927]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.927]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.927]             base::sink(type = "output", split = FALSE)
  [21:36:29.927]             base::close(...future.stdout)
  [21:36:29.927]         }, add = TRUE)
  [21:36:29.927]     }
  [21:36:29.927]     ...future.frame <- base::sys.nframe()
  [21:36:29.927]     ...future.conditions <- base::list()
  [21:36:29.927]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.927]     ...future.result <- base::tryCatch({
  [21:36:29.927]         base::withCallingHandlers({
  [21:36:29.927]             ...future.value <- base::withVisible(base::local({
  [21:36:29.927]                 sample(x, size = 1L)
  [21:36:29.927]             }))
  [21:36:29.927]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.927]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.927]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.927]                 version = "1.8")
  [21:36:29.927]         }, condition = base::local({
  [21:36:29.927]             c <- base::c
  [21:36:29.927]             inherits <- base::inherits
  [21:36:29.927]             invokeRestart <- base::invokeRestart
  [21:36:29.927]             length <- base::length
  [21:36:29.927]             list <- base::list
  [21:36:29.927]             seq.int <- base::seq.int
  [21:36:29.927]             signalCondition <- base::signalCondition
  [21:36:29.927]             sys.calls <- base::sys.calls
  [21:36:29.927]             Sys.time <- base::Sys.time
  [21:36:29.927]             `[[` <- base::`[[`
  [21:36:29.927]             `+` <- base::`+`
  [21:36:29.927]             `<<-` <- base::`<<-`
  [21:36:29.927]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.927]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.927]                   3L)]
  [21:36:29.927]             }
  [21:36:29.927]             function(cond) {
  [21:36:29.927]                 if (inherits(cond, "error")) {
  [21:36:29.927]                   sessionInformation <- function() {
  [21:36:29.927]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.927]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.927]                       search = base::search(), system = base::Sys.info())
  [21:36:29.927]                   }
  [21:36:29.927]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.927]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.927]                     cond$call), session = sessionInformation(), 
  [21:36:29.927]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.927]                   signalCondition(cond)
  [21:36:29.927]                 }
  [21:36:29.927]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.927]                 ))) {
  [21:36:29.927]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.927]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.927]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.927]                   if (!signal) {
  [21:36:29.927]                     muffleCondition <- function (cond) 
  [21:36:29.927]                     {
  [21:36:29.927]                       inherits <- base::inherits
  [21:36:29.927]                       invokeRestart <- base::invokeRestart
  [21:36:29.927]                       muffled <- FALSE
  [21:36:29.927]                       if (inherits(cond, "message")) {
  [21:36:29.927]                         invokeRestart("muffleMessage")
  [21:36:29.927]                         muffled <- TRUE
  [21:36:29.927]                       }
  [21:36:29.927]                       else if (inherits(cond, "warning")) {
  [21:36:29.927]                         invokeRestart("muffleWarning")
  [21:36:29.927]                         muffled <- TRUE
  [21:36:29.927]                       }
  [21:36:29.927]                       else if (inherits(cond, "condition")) {
  [21:36:29.927]                         computeRestarts <- base::computeRestarts
  [21:36:29.927]                         grepl <- base::grepl
  [21:36:29.927]                         is.null <- base::is.null
  [21:36:29.927]                         restarts <- computeRestarts(cond)
  [21:36:29.927]                         for (restart in restarts) {
  [21:36:29.927]                           name <- restart$name
  [21:36:29.927]                           if (is.null(name)) 
  [21:36:29.927]                             next
  [21:36:29.927]                           if (!grepl("^muffle", name)) 
  [21:36:29.927]                             next
  [21:36:29.927]                           invokeRestart(restart)
  [21:36:29.927]                           muffled <- TRUE
  [21:36:29.927]                           break
  [21:36:29.927]                         }
  [21:36:29.927]                       }
  [21:36:29.927]                       invisible(muffled)
  [21:36:29.927]                     }
  [21:36:29.927]                     muffleCondition(cond)
  [21:36:29.927]                   }
  [21:36:29.927]                 }
  [21:36:29.927]             }
  [21:36:29.927]         }))
  [21:36:29.927]     }, error = function(ex) {
  [21:36:29.927]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.927]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.927]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.927]     }, finally = {
  [21:36:29.927]         {
  [21:36:29.927]             NULL
  [21:36:29.927]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.927]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.927]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.927]                 label = NULL, ...) 
  [21:36:29.927]             {
  [21:36:29.927]                 if (substitute) 
  [21:36:29.927]                   expr <- substitute(expr)
  [21:36:29.927]                 local <- as.logical(local)
  [21:36:29.927]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.927]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.927]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.927]                   label = label, ...)
  [21:36:29.927]                 if (!future$lazy) 
  [21:36:29.927]                   future <- run(future)
  [21:36:29.927]                 invisible(future)
  [21:36:29.927]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.927]         }
  [21:36:29.927]         base::options(...future.oldOptions)
  [21:36:29.927]     })
  [21:36:29.927]     Sys.time
  [21:36:29.927]     if (base::is.na(TRUE)) {
  [21:36:29.927]     }
  [21:36:29.927]     else {
  [21:36:29.927]         base::sink(type = "output", split = FALSE)
  [21:36:29.927]         if (TRUE) {
  [21:36:29.927]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.927]         }
  [21:36:29.927]         else {
  [21:36:29.927]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.927]         }
  [21:36:29.927]         base::close(...future.stdout)
  [21:36:29.927]         ...future.stdout <- NULL
  [21:36:29.927]     }
  [21:36:29.927]     ...future.result$conditions <- ...future.conditions
  [21:36:29.927]     ...future.result
  [21:36:29.927] }
  [21:36:29.931] plan(): Setting new future strategy stack:
  [21:36:29.931] List of future strategies:
  [21:36:29.931] 1. sequential:
  [21:36:29.931]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.931]    - tweaked: FALSE
  [21:36:29.931]    - call: NULL
  [21:36:29.932] plan(): nbrOfWorkers() = 1
  [21:36:29.933] plan(): Setting new future strategy stack:
  [21:36:29.950] List of future strategies:
  [21:36:29.950] 1. sequential:
  [21:36:29.950]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.950]    - tweaked: FALSE
  [21:36:29.950]    - call: plan(strategy)
  [21:36:29.951] plan(): nbrOfWorkers() = 1
  [21:36:29.952] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_4-771639'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166ebf2cb0>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = FALSE)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.954] resolve() on list ...
  [21:36:29.954]  recursive: 0
  [21:36:29.954]  length: 4
  [21:36:29.954] 
  [21:36:29.955] Future #1
  [21:36:29.955] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:29.956] - nx: 4
  [21:36:29.956] - relay: TRUE
  [21:36:29.956] - stdout: TRUE
  [21:36:29.956] - signal: TRUE
  [21:36:29.957] - resignal: FALSE
  [21:36:29.957] - force: TRUE
  [21:36:29.957] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.957] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.958]  - until=1
  [21:36:29.958]  - relaying element #1
  [21:36:29.958] signalConditions() ...
  [21:36:29.959]  - include = 'immediateCondition'
  [21:36:29.959]  - exclude = 
  [21:36:29.959]  - resignal = FALSE
  [21:36:29.959]  - Number of conditions: 1
  [21:36:29.960] signalConditions() ... done
  [21:36:29.960] signalConditions() ...
  [21:36:29.960]  - include = 'immediateCondition'
  [21:36:29.961]  - exclude = 
  [21:36:29.961]  - resignal = FALSE
  [21:36:29.961]  - Number of conditions: 1
  [21:36:29.961] signalConditions() ... done
  [21:36:29.962] signalConditions() ...
  [21:36:29.962]  - include = 'condition'
  [21:36:29.962]  - exclude = 'immediateCondition'
  [21:36:29.962]  - resignal = TRUE
  [21:36:29.963]  - Number of conditions: 1
  [21:36:29.963]  - Condition #1: 'simpleError', 'error', 'condition'
  [21:36:29.963] signalConditions() ... done
  [21:36:29.964] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:29.964] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:29.964] signalConditionsASAP(SequentialFuture, pos=1) ... done
  <simpleError: UNRELIABLE VALUE: Future ('fsample_1-12240') unexpectedly generated random numbers without specifying argument '[future.]seed'. There is a risk that those random numbers are not statistically sound and the overall results might be invalid. To fix this, specify argument argument '[future.]seed', e.g. 'seed=TRUE'. This ensures that proper, parallel-safe random numbers are produced via the L'Ecuyer-CMRG method. To disable this check, set option 'future.rng.onMisuse' to "ignore".>
  [21:36:29.965] getGlobalsAndPackages() ...
  [21:36:29.965] Searching for globals...
  [21:36:29.971] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.971] Searching for globals ... DONE
  [21:36:29.972] Resolving globals: FALSE
  [21:36:29.973] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.973] - globals: [1] 'x'
  [21:36:29.973] 
  [21:36:29.973] getGlobalsAndPackages() ... DONE
  [21:36:29.975] Packages needed by the future expression (n = 0): <none>
  [21:36:29.975] Packages needed by future strategies (n = 0): <none>
  [21:36:29.980] {
  [21:36:29.980]     {
  [21:36:29.980]         ...future.startTime <- base::Sys.time()
  [21:36:29.980]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:29.980]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:29.980]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:29.980]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:29.980]             future.resolve.recursive = NULL, width = 80L)
  [21:36:29.980]         {
  [21:36:29.980]             {
  [21:36:29.980]                 base::local({
  [21:36:29.980]                   has_future <- base::requireNamespace("future", 
  [21:36:29.980]                     quietly = TRUE)
  [21:36:29.980]                   version <- if (has_future) 
  [21:36:29.980]                     utils::packageVersion("future")
  [21:36:29.980]                   else NULL
  [21:36:29.980]                   if (!has_future || version < "1.8.0") {
  [21:36:29.980]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:29.980]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:29.980]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:29.980]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:29.980]                         "release", "version")], collapse = " "), 
  [21:36:29.980]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:29.980]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:29.980]                       info)
  [21:36:29.980]                     info <- base::paste(info, collapse = "; ")
  [21:36:29.980]                     if (!has_future) {
  [21:36:29.980]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:29.980]                         info)
  [21:36:29.980]                     }
  [21:36:29.980]                     else {
  [21:36:29.980]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:29.980]                         info, version)
  [21:36:29.980]                     }
  [21:36:29.980]                     base::stop(msg)
  [21:36:29.980]                   }
  [21:36:29.980]                 })
  [21:36:29.980]             }
  [21:36:29.980]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:29.980]         }
  [21:36:29.980]     }
  [21:36:29.980]     if (base::is.na(TRUE)) {
  [21:36:29.980]     }
  [21:36:29.980]     else {
  [21:36:29.980]         if (TRUE) {
  [21:36:29.980]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:29.980]                 open = "w")
  [21:36:29.980]         }
  [21:36:29.980]         else {
  [21:36:29.980]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:29.980]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:29.980]         }
  [21:36:29.980]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:29.980]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:29.980]             base::sink(type = "output", split = FALSE)
  [21:36:29.980]             base::close(...future.stdout)
  [21:36:29.980]         }, add = TRUE)
  [21:36:29.980]     }
  [21:36:29.980]     ...future.frame <- base::sys.nframe()
  [21:36:29.980]     ...future.conditions <- base::list()
  [21:36:29.980]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:29.980]     ...future.result <- base::tryCatch({
  [21:36:29.980]         base::withCallingHandlers({
  [21:36:29.980]             ...future.value <- base::withVisible(base::local({
  [21:36:29.980]                 sample(x, size = 1L)
  [21:36:29.980]             }))
  [21:36:29.980]             future::FutureResult(value = ...future.value$value, 
  [21:36:29.980]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.980]                   ...future.rng), started = ...future.startTime, 
  [21:36:29.980]                 version = "1.8")
  [21:36:29.980]         }, condition = base::local({
  [21:36:29.980]             c <- base::c
  [21:36:29.980]             inherits <- base::inherits
  [21:36:29.980]             invokeRestart <- base::invokeRestart
  [21:36:29.980]             length <- base::length
  [21:36:29.980]             list <- base::list
  [21:36:29.980]             seq.int <- base::seq.int
  [21:36:29.980]             signalCondition <- base::signalCondition
  [21:36:29.980]             sys.calls <- base::sys.calls
  [21:36:29.980]             Sys.time <- base::Sys.time
  [21:36:29.980]             `[[` <- base::`[[`
  [21:36:29.980]             `+` <- base::`+`
  [21:36:29.980]             `<<-` <- base::`<<-`
  [21:36:29.980]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:29.980]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:29.980]                   3L)]
  [21:36:29.980]             }
  [21:36:29.980]             function(cond) {
  [21:36:29.980]                 if (inherits(cond, "error")) {
  [21:36:29.980]                   sessionInformation <- function() {
  [21:36:29.980]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:29.980]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:29.980]                       search = base::search(), system = base::Sys.info())
  [21:36:29.980]                   }
  [21:36:29.980]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.980]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:29.980]                     cond$call), session = sessionInformation(), 
  [21:36:29.980]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:29.980]                   signalCondition(cond)
  [21:36:29.980]                 }
  [21:36:29.980]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:29.980]                 ))) {
  [21:36:29.980]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:29.980]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:29.980]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:29.980]                   if (!signal) {
  [21:36:29.980]                     muffleCondition <- function (cond) 
  [21:36:29.980]                     {
  [21:36:29.980]                       inherits <- base::inherits
  [21:36:29.980]                       invokeRestart <- base::invokeRestart
  [21:36:29.980]                       muffled <- FALSE
  [21:36:29.980]                       if (inherits(cond, "message")) {
  [21:36:29.980]                         invokeRestart("muffleMessage")
  [21:36:29.980]                         muffled <- TRUE
  [21:36:29.980]                       }
  [21:36:29.980]                       else if (inherits(cond, "warning")) {
  [21:36:29.980]                         invokeRestart("muffleWarning")
  [21:36:29.980]                         muffled <- TRUE
  [21:36:29.980]                       }
  [21:36:29.980]                       else if (inherits(cond, "condition")) {
  [21:36:29.980]                         computeRestarts <- base::computeRestarts
  [21:36:29.980]                         grepl <- base::grepl
  [21:36:29.980]                         is.null <- base::is.null
  [21:36:29.980]                         restarts <- computeRestarts(cond)
  [21:36:29.980]                         for (restart in restarts) {
  [21:36:29.980]                           name <- restart$name
  [21:36:29.980]                           if (is.null(name)) 
  [21:36:29.980]                             next
  [21:36:29.980]                           if (!grepl("^muffle", name)) 
  [21:36:29.980]                             next
  [21:36:29.980]                           invokeRestart(restart)
  [21:36:29.980]                           muffled <- TRUE
  [21:36:29.980]                           break
  [21:36:29.980]                         }
  [21:36:29.980]                       }
  [21:36:29.980]                       invisible(muffled)
  [21:36:29.980]                     }
  [21:36:29.980]                     muffleCondition(cond)
  [21:36:29.980]                   }
  [21:36:29.980]                 }
  [21:36:29.980]             }
  [21:36:29.980]         }))
  [21:36:29.980]     }, error = function(ex) {
  [21:36:29.980]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:29.980]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:29.980]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:29.980]     }, finally = {
  [21:36:29.980]         {
  [21:36:29.980]             NULL
  [21:36:29.980]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:29.980]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:29.980]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:29.980]                 label = NULL, ...) 
  [21:36:29.980]             {
  [21:36:29.980]                 if (substitute) 
  [21:36:29.980]                   expr <- substitute(expr)
  [21:36:29.980]                 local <- as.logical(local)
  [21:36:29.980]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:29.980]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:29.980]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:29.980]                   label = label, ...)
  [21:36:29.980]                 if (!future$lazy) 
  [21:36:29.980]                   future <- run(future)
  [21:36:29.980]                 invisible(future)
  [21:36:29.980]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:29.980]         }
  [21:36:29.980]         base::options(...future.oldOptions)
  [21:36:29.980]     })
  [21:36:29.980]     Sys.time
  [21:36:29.980]     if (base::is.na(TRUE)) {
  [21:36:29.980]     }
  [21:36:29.980]     else {
  [21:36:29.980]         base::sink(type = "output", split = FALSE)
  [21:36:29.980]         if (TRUE) {
  [21:36:29.980]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:29.980]         }
  [21:36:29.980]         else {
  [21:36:29.980]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:29.980]         }
  [21:36:29.980]         base::close(...future.stdout)
  [21:36:29.980]         ...future.stdout <- NULL
  [21:36:29.980]     }
  [21:36:29.980]     ...future.result$conditions <- ...future.conditions
  [21:36:29.980]     ...future.result
  [21:36:29.980] }
  [21:36:29.984] plan(): Setting new future strategy stack:
  [21:36:29.984] List of future strategies:
  [21:36:29.984] 1. sequential:
  [21:36:29.984]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.984]    - tweaked: FALSE
  [21:36:29.984]    - call: NULL
  [21:36:29.985] plan(): nbrOfWorkers() = 1
  [21:36:29.986] plan(): Setting new future strategy stack:
  [21:36:29.987] List of future strategies:
  [21:36:29.987] 1. sequential:
  [21:36:29.987]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:29.987]    - tweaked: FALSE
  [21:36:29.987]    - call: plan(strategy)
  [21:36:29.988] plan(): nbrOfWorkers() = 1
  [21:36:29.988] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_1-189119'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9daf88>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:29.990] getGlobalsAndPackages() ...
  [21:36:29.990] Searching for globals...
  [21:36:29.992] - globals found: [3] '{', 'sample', 'x'
  [21:36:29.992] Searching for globals ... DONE
  [21:36:29.993] Resolving globals: FALSE
  [21:36:29.994] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:29.994] - globals: [1] 'x'
  [21:36:29.994] 
  [21:36:29.994] getGlobalsAndPackages() ... DONE
  [21:36:29.996] Packages needed by the future expression (n = 0): <none>
  [21:36:29.996] Packages needed by future strategies (n = 0): <none>
  [21:36:30.005] {
  [21:36:30.005]     {
  [21:36:30.005]         ...future.startTime <- base::Sys.time()
  [21:36:30.005]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.005]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.005]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.005]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.005]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.005]         {
  [21:36:30.005]             {
  [21:36:30.005]                 base::local({
  [21:36:30.005]                   has_future <- base::requireNamespace("future", 
  [21:36:30.005]                     quietly = TRUE)
  [21:36:30.005]                   version <- if (has_future) 
  [21:36:30.005]                     utils::packageVersion("future")
  [21:36:30.005]                   else NULL
  [21:36:30.005]                   if (!has_future || version < "1.8.0") {
  [21:36:30.005]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.005]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.005]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.005]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.005]                         "release", "version")], collapse = " "), 
  [21:36:30.005]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.005]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.005]                       info)
  [21:36:30.005]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.005]                     if (!has_future) {
  [21:36:30.005]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.005]                         info)
  [21:36:30.005]                     }
  [21:36:30.005]                     else {
  [21:36:30.005]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.005]                         info, version)
  [21:36:30.005]                     }
  [21:36:30.005]                     base::stop(msg)
  [21:36:30.005]                   }
  [21:36:30.005]                 })
  [21:36:30.005]             }
  [21:36:30.005]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.005]         }
  [21:36:30.005]     }
  [21:36:30.005]     if (base::is.na(TRUE)) {
  [21:36:30.005]     }
  [21:36:30.005]     else {
  [21:36:30.005]         if (TRUE) {
  [21:36:30.005]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.005]                 open = "w")
  [21:36:30.005]         }
  [21:36:30.005]         else {
  [21:36:30.005]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.005]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.005]         }
  [21:36:30.005]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.005]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.005]             base::sink(type = "output", split = FALSE)
  [21:36:30.005]             base::close(...future.stdout)
  [21:36:30.005]         }, add = TRUE)
  [21:36:30.005]     }
  [21:36:30.005]     ...future.frame <- base::sys.nframe()
  [21:36:30.005]     ...future.conditions <- base::list()
  [21:36:30.005]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.005]     ...future.result <- base::tryCatch({
  [21:36:30.005]         base::withCallingHandlers({
  [21:36:30.005]             ...future.value <- base::withVisible(base::local({
  [21:36:30.005]                 sample(x, size = 1L)
  [21:36:30.005]             }))
  [21:36:30.005]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.005]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.005]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.005]                 version = "1.8")
  [21:36:30.005]         }, condition = base::local({
  [21:36:30.005]             c <- base::c
  [21:36:30.005]             inherits <- base::inherits
  [21:36:30.005]             invokeRestart <- base::invokeRestart
  [21:36:30.005]             length <- base::length
  [21:36:30.005]             list <- base::list
  [21:36:30.005]             seq.int <- base::seq.int
  [21:36:30.005]             signalCondition <- base::signalCondition
  [21:36:30.005]             sys.calls <- base::sys.calls
  [21:36:30.005]             Sys.time <- base::Sys.time
  [21:36:30.005]             `[[` <- base::`[[`
  [21:36:30.005]             `+` <- base::`+`
  [21:36:30.005]             `<<-` <- base::`<<-`
  [21:36:30.005]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.005]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.005]                   3L)]
  [21:36:30.005]             }
  [21:36:30.005]             function(cond) {
  [21:36:30.005]                 if (inherits(cond, "error")) {
  [21:36:30.005]                   sessionInformation <- function() {
  [21:36:30.005]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.005]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.005]                       search = base::search(), system = base::Sys.info())
  [21:36:30.005]                   }
  [21:36:30.005]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.005]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.005]                     cond$call), session = sessionInformation(), 
  [21:36:30.005]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.005]                   signalCondition(cond)
  [21:36:30.005]                 }
  [21:36:30.005]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.005]                 ))) {
  [21:36:30.005]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.005]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.005]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.005]                   if (!signal) {
  [21:36:30.005]                     muffleCondition <- function (cond) 
  [21:36:30.005]                     {
  [21:36:30.005]                       inherits <- base::inherits
  [21:36:30.005]                       invokeRestart <- base::invokeRestart
  [21:36:30.005]                       muffled <- FALSE
  [21:36:30.005]                       if (inherits(cond, "message")) {
  [21:36:30.005]                         invokeRestart("muffleMessage")
  [21:36:30.005]                         muffled <- TRUE
  [21:36:30.005]                       }
  [21:36:30.005]                       else if (inherits(cond, "warning")) {
  [21:36:30.005]                         invokeRestart("muffleWarning")
  [21:36:30.005]                         muffled <- TRUE
  [21:36:30.005]                       }
  [21:36:30.005]                       else if (inherits(cond, "condition")) {
  [21:36:30.005]                         computeRestarts <- base::computeRestarts
  [21:36:30.005]                         grepl <- base::grepl
  [21:36:30.005]                         is.null <- base::is.null
  [21:36:30.005]                         restarts <- computeRestarts(cond)
  [21:36:30.005]                         for (restart in restarts) {
  [21:36:30.005]                           name <- restart$name
  [21:36:30.005]                           if (is.null(name)) 
  [21:36:30.005]                             next
  [21:36:30.005]                           if (!grepl("^muffle", name)) 
  [21:36:30.005]                             next
  [21:36:30.005]                           invokeRestart(restart)
  [21:36:30.005]                           muffled <- TRUE
  [21:36:30.005]                           break
  [21:36:30.005]                         }
  [21:36:30.005]                       }
  [21:36:30.005]                       invisible(muffled)
  [21:36:30.005]                     }
  [21:36:30.005]                     muffleCondition(cond)
  [21:36:30.005]                   }
  [21:36:30.005]                 }
  [21:36:30.005]             }
  [21:36:30.005]         }))
  [21:36:30.005]     }, error = function(ex) {
  [21:36:30.005]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.005]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.005]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.005]     }, finally = {
  [21:36:30.005]         {
  [21:36:30.005]             NULL
  [21:36:30.005]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.005]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.005]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.005]                 label = NULL, ...) 
  [21:36:30.005]             {
  [21:36:30.005]                 if (substitute) 
  [21:36:30.005]                   expr <- substitute(expr)
  [21:36:30.005]                 local <- as.logical(local)
  [21:36:30.005]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.005]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.005]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.005]                   label = label, ...)
  [21:36:30.005]                 if (!future$lazy) 
  [21:36:30.005]                   future <- run(future)
  [21:36:30.005]                 invisible(future)
  [21:36:30.005]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.005]         }
  [21:36:30.005]         base::options(...future.oldOptions)
  [21:36:30.005]     })
  [21:36:30.005]     Sys.time
  [21:36:30.005]     if (base::is.na(TRUE)) {
  [21:36:30.005]     }
  [21:36:30.005]     else {
  [21:36:30.005]         base::sink(type = "output", split = FALSE)
  [21:36:30.005]         if (TRUE) {
  [21:36:30.005]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.005]         }
  [21:36:30.005]         else {
  [21:36:30.005]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.005]         }
  [21:36:30.005]         base::close(...future.stdout)
  [21:36:30.005]         ...future.stdout <- NULL
  [21:36:30.005]     }
  [21:36:30.005]     ...future.result$conditions <- ...future.conditions
  [21:36:30.005]     ...future.result
  [21:36:30.005] }
  [21:36:30.009] plan(): Setting new future strategy stack:
  [21:36:30.009] List of future strategies:
  [21:36:30.009] 1. sequential:
  [21:36:30.009]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.009]    - tweaked: FALSE
  [21:36:30.009]    - call: NULL
  [21:36:30.010] plan(): nbrOfWorkers() = 1
  [21:36:30.011] plan(): Setting new future strategy stack:
  [21:36:30.011] List of future strategies:
  [21:36:30.011] 1. sequential:
  [21:36:30.011]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.011]    - tweaked: FALSE
  [21:36:30.011]    - call: plan(strategy)
  [21:36:30.012] plan(): nbrOfWorkers() = 1
  [21:36:30.013] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_2-851247'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9daf88>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:30.014] getGlobalsAndPackages() ...
  [21:36:30.015] Searching for globals...
  [21:36:30.017] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.017] Searching for globals ... DONE
  [21:36:30.017] Resolving globals: FALSE
  [21:36:30.018] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.019] - globals: [1] 'x'
  [21:36:30.019] 
  [21:36:30.019] getGlobalsAndPackages() ... DONE
  [21:36:30.021] Packages needed by the future expression (n = 0): <none>
  [21:36:30.021] Packages needed by future strategies (n = 0): <none>
  [21:36:30.025] {
  [21:36:30.025]     {
  [21:36:30.025]         ...future.startTime <- base::Sys.time()
  [21:36:30.025]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.025]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.025]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.025]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.025]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.025]         {
  [21:36:30.025]             {
  [21:36:30.025]                 base::local({
  [21:36:30.025]                   has_future <- base::requireNamespace("future", 
  [21:36:30.025]                     quietly = TRUE)
  [21:36:30.025]                   version <- if (has_future) 
  [21:36:30.025]                     utils::packageVersion("future")
  [21:36:30.025]                   else NULL
  [21:36:30.025]                   if (!has_future || version < "1.8.0") {
  [21:36:30.025]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.025]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.025]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.025]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.025]                         "release", "version")], collapse = " "), 
  [21:36:30.025]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.025]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.025]                       info)
  [21:36:30.025]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.025]                     if (!has_future) {
  [21:36:30.025]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.025]                         info)
  [21:36:30.025]                     }
  [21:36:30.025]                     else {
  [21:36:30.025]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.025]                         info, version)
  [21:36:30.025]                     }
  [21:36:30.025]                     base::stop(msg)
  [21:36:30.025]                   }
  [21:36:30.025]                 })
  [21:36:30.025]             }
  [21:36:30.025]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.025]         }
  [21:36:30.025]     }
  [21:36:30.025]     if (base::is.na(TRUE)) {
  [21:36:30.025]     }
  [21:36:30.025]     else {
  [21:36:30.025]         if (TRUE) {
  [21:36:30.025]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.025]                 open = "w")
  [21:36:30.025]         }
  [21:36:30.025]         else {
  [21:36:30.025]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.025]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.025]         }
  [21:36:30.025]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.025]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.025]             base::sink(type = "output", split = FALSE)
  [21:36:30.025]             base::close(...future.stdout)
  [21:36:30.025]         }, add = TRUE)
  [21:36:30.025]     }
  [21:36:30.025]     ...future.frame <- base::sys.nframe()
  [21:36:30.025]     ...future.conditions <- base::list()
  [21:36:30.025]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.025]     ...future.result <- base::tryCatch({
  [21:36:30.025]         base::withCallingHandlers({
  [21:36:30.025]             ...future.value <- base::withVisible(base::local({
  [21:36:30.025]                 sample(x, size = 1L)
  [21:36:30.025]             }))
  [21:36:30.025]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.025]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.025]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.025]                 version = "1.8")
  [21:36:30.025]         }, condition = base::local({
  [21:36:30.025]             c <- base::c
  [21:36:30.025]             inherits <- base::inherits
  [21:36:30.025]             invokeRestart <- base::invokeRestart
  [21:36:30.025]             length <- base::length
  [21:36:30.025]             list <- base::list
  [21:36:30.025]             seq.int <- base::seq.int
  [21:36:30.025]             signalCondition <- base::signalCondition
  [21:36:30.025]             sys.calls <- base::sys.calls
  [21:36:30.025]             Sys.time <- base::Sys.time
  [21:36:30.025]             `[[` <- base::`[[`
  [21:36:30.025]             `+` <- base::`+`
  [21:36:30.025]             `<<-` <- base::`<<-`
  [21:36:30.025]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.025]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.025]                   3L)]
  [21:36:30.025]             }
  [21:36:30.025]             function(cond) {
  [21:36:30.025]                 if (inherits(cond, "error")) {
  [21:36:30.025]                   sessionInformation <- function() {
  [21:36:30.025]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.025]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.025]                       search = base::search(), system = base::Sys.info())
  [21:36:30.025]                   }
  [21:36:30.025]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.025]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.025]                     cond$call), session = sessionInformation(), 
  [21:36:30.025]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.025]                   signalCondition(cond)
  [21:36:30.025]                 }
  [21:36:30.025]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.025]                 ))) {
  [21:36:30.025]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.025]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.025]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.025]                   if (!signal) {
  [21:36:30.025]                     muffleCondition <- function (cond) 
  [21:36:30.025]                     {
  [21:36:30.025]                       inherits <- base::inherits
  [21:36:30.025]                       invokeRestart <- base::invokeRestart
  [21:36:30.025]                       muffled <- FALSE
  [21:36:30.025]                       if (inherits(cond, "message")) {
  [21:36:30.025]                         invokeRestart("muffleMessage")
  [21:36:30.025]                         muffled <- TRUE
  [21:36:30.025]                       }
  [21:36:30.025]                       else if (inherits(cond, "warning")) {
  [21:36:30.025]                         invokeRestart("muffleWarning")
  [21:36:30.025]                         muffled <- TRUE
  [21:36:30.025]                       }
  [21:36:30.025]                       else if (inherits(cond, "condition")) {
  [21:36:30.025]                         computeRestarts <- base::computeRestarts
  [21:36:30.025]                         grepl <- base::grepl
  [21:36:30.025]                         is.null <- base::is.null
  [21:36:30.025]                         restarts <- computeRestarts(cond)
  [21:36:30.025]                         for (restart in restarts) {
  [21:36:30.025]                           name <- restart$name
  [21:36:30.025]                           if (is.null(name)) 
  [21:36:30.025]                             next
  [21:36:30.025]                           if (!grepl("^muffle", name)) 
  [21:36:30.025]                             next
  [21:36:30.025]                           invokeRestart(restart)
  [21:36:30.025]                           muffled <- TRUE
  [21:36:30.025]                           break
  [21:36:30.025]                         }
  [21:36:30.025]                       }
  [21:36:30.025]                       invisible(muffled)
  [21:36:30.025]                     }
  [21:36:30.025]                     muffleCondition(cond)
  [21:36:30.025]                   }
  [21:36:30.025]                 }
  [21:36:30.025]             }
  [21:36:30.025]         }))
  [21:36:30.025]     }, error = function(ex) {
  [21:36:30.025]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.025]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.025]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.025]     }, finally = {
  [21:36:30.025]         {
  [21:36:30.025]             NULL
  [21:36:30.025]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.025]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.025]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.025]                 label = NULL, ...) 
  [21:36:30.025]             {
  [21:36:30.025]                 if (substitute) 
  [21:36:30.025]                   expr <- substitute(expr)
  [21:36:30.025]                 local <- as.logical(local)
  [21:36:30.025]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.025]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.025]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.025]                   label = label, ...)
  [21:36:30.025]                 if (!future$lazy) 
  [21:36:30.025]                   future <- run(future)
  [21:36:30.025]                 invisible(future)
  [21:36:30.025]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.025]         }
  [21:36:30.025]         base::options(...future.oldOptions)
  [21:36:30.025]     })
  [21:36:30.025]     Sys.time
  [21:36:30.025]     if (base::is.na(TRUE)) {
  [21:36:30.025]     }
  [21:36:30.025]     else {
  [21:36:30.025]         base::sink(type = "output", split = FALSE)
  [21:36:30.025]         if (TRUE) {
  [21:36:30.025]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.025]         }
  [21:36:30.025]         else {
  [21:36:30.025]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.025]         }
  [21:36:30.025]         base::close(...future.stdout)
  [21:36:30.025]         ...future.stdout <- NULL
  [21:36:30.025]     }
  [21:36:30.025]     ...future.result$conditions <- ...future.conditions
  [21:36:30.025]     ...future.result
  [21:36:30.025] }
  [21:36:30.031] plan(): Setting new future strategy stack:
  [21:36:30.031] List of future strategies:
  [21:36:30.031] 1. sequential:
  [21:36:30.031]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.031]    - tweaked: FALSE
  [21:36:30.031]    - call: NULL
  [21:36:30.032] plan(): nbrOfWorkers() = 1
  [21:36:30.033] plan(): Setting new future strategy stack:
  [21:36:30.033] List of future strategies:
  [21:36:30.033] 1. sequential:
  [21:36:30.033]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.033]    - tweaked: FALSE
  [21:36:30.033]    - call: plan(strategy)
  [21:36:30.034] plan(): nbrOfWorkers() = 1
  [21:36:30.035] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_3-120986'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9daf88>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:30.037] getGlobalsAndPackages() ...
  [21:36:30.037] Searching for globals...
  [21:36:30.039] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.039] Searching for globals ... DONE
  [21:36:30.040] Resolving globals: FALSE
  [21:36:30.040] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.041] - globals: [1] 'x'
  [21:36:30.041] 
  [21:36:30.041] getGlobalsAndPackages() ... DONE
  [21:36:30.043] Packages needed by the future expression (n = 0): <none>
  [21:36:30.043] Packages needed by future strategies (n = 0): <none>
  [21:36:30.048] {
  [21:36:30.048]     {
  [21:36:30.048]         ...future.startTime <- base::Sys.time()
  [21:36:30.048]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.048]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.048]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.048]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.048]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.048]         {
  [21:36:30.048]             {
  [21:36:30.048]                 base::local({
  [21:36:30.048]                   has_future <- base::requireNamespace("future", 
  [21:36:30.048]                     quietly = TRUE)
  [21:36:30.048]                   version <- if (has_future) 
  [21:36:30.048]                     utils::packageVersion("future")
  [21:36:30.048]                   else NULL
  [21:36:30.048]                   if (!has_future || version < "1.8.0") {
  [21:36:30.048]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.048]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.048]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.048]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.048]                         "release", "version")], collapse = " "), 
  [21:36:30.048]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.048]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.048]                       info)
  [21:36:30.048]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.048]                     if (!has_future) {
  [21:36:30.048]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.048]                         info)
  [21:36:30.048]                     }
  [21:36:30.048]                     else {
  [21:36:30.048]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.048]                         info, version)
  [21:36:30.048]                     }
  [21:36:30.048]                     base::stop(msg)
  [21:36:30.048]                   }
  [21:36:30.048]                 })
  [21:36:30.048]             }
  [21:36:30.048]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.048]         }
  [21:36:30.048]     }
  [21:36:30.048]     if (base::is.na(TRUE)) {
  [21:36:30.048]     }
  [21:36:30.048]     else {
  [21:36:30.048]         if (TRUE) {
  [21:36:30.048]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.048]                 open = "w")
  [21:36:30.048]         }
  [21:36:30.048]         else {
  [21:36:30.048]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.048]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.048]         }
  [21:36:30.048]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.048]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.048]             base::sink(type = "output", split = FALSE)
  [21:36:30.048]             base::close(...future.stdout)
  [21:36:30.048]         }, add = TRUE)
  [21:36:30.048]     }
  [21:36:30.048]     ...future.frame <- base::sys.nframe()
  [21:36:30.048]     ...future.conditions <- base::list()
  [21:36:30.048]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.048]     ...future.result <- base::tryCatch({
  [21:36:30.048]         base::withCallingHandlers({
  [21:36:30.048]             ...future.value <- base::withVisible(base::local({
  [21:36:30.048]                 sample(x, size = 1L)
  [21:36:30.048]             }))
  [21:36:30.048]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.048]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.048]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.048]                 version = "1.8")
  [21:36:30.048]         }, condition = base::local({
  [21:36:30.048]             c <- base::c
  [21:36:30.048]             inherits <- base::inherits
  [21:36:30.048]             invokeRestart <- base::invokeRestart
  [21:36:30.048]             length <- base::length
  [21:36:30.048]             list <- base::list
  [21:36:30.048]             seq.int <- base::seq.int
  [21:36:30.048]             signalCondition <- base::signalCondition
  [21:36:30.048]             sys.calls <- base::sys.calls
  [21:36:30.048]             Sys.time <- base::Sys.time
  [21:36:30.048]             `[[` <- base::`[[`
  [21:36:30.048]             `+` <- base::`+`
  [21:36:30.048]             `<<-` <- base::`<<-`
  [21:36:30.048]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.048]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.048]                   3L)]
  [21:36:30.048]             }
  [21:36:30.048]             function(cond) {
  [21:36:30.048]                 if (inherits(cond, "error")) {
  [21:36:30.048]                   sessionInformation <- function() {
  [21:36:30.048]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.048]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.048]                       search = base::search(), system = base::Sys.info())
  [21:36:30.048]                   }
  [21:36:30.048]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.048]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.048]                     cond$call), session = sessionInformation(), 
  [21:36:30.048]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.048]                   signalCondition(cond)
  [21:36:30.048]                 }
  [21:36:30.048]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.048]                 ))) {
  [21:36:30.048]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.048]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.048]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.048]                   if (!signal) {
  [21:36:30.048]                     muffleCondition <- function (cond) 
  [21:36:30.048]                     {
  [21:36:30.048]                       inherits <- base::inherits
  [21:36:30.048]                       invokeRestart <- base::invokeRestart
  [21:36:30.048]                       muffled <- FALSE
  [21:36:30.048]                       if (inherits(cond, "message")) {
  [21:36:30.048]                         invokeRestart("muffleMessage")
  [21:36:30.048]                         muffled <- TRUE
  [21:36:30.048]                       }
  [21:36:30.048]                       else if (inherits(cond, "warning")) {
  [21:36:30.048]                         invokeRestart("muffleWarning")
  [21:36:30.048]                         muffled <- TRUE
  [21:36:30.048]                       }
  [21:36:30.048]                       else if (inherits(cond, "condition")) {
  [21:36:30.048]                         computeRestarts <- base::computeRestarts
  [21:36:30.048]                         grepl <- base::grepl
  [21:36:30.048]                         is.null <- base::is.null
  [21:36:30.048]                         restarts <- computeRestarts(cond)
  [21:36:30.048]                         for (restart in restarts) {
  [21:36:30.048]                           name <- restart$name
  [21:36:30.048]                           if (is.null(name)) 
  [21:36:30.048]                             next
  [21:36:30.048]                           if (!grepl("^muffle", name)) 
  [21:36:30.048]                             next
  [21:36:30.048]                           invokeRestart(restart)
  [21:36:30.048]                           muffled <- TRUE
  [21:36:30.048]                           break
  [21:36:30.048]                         }
  [21:36:30.048]                       }
  [21:36:30.048]                       invisible(muffled)
  [21:36:30.048]                     }
  [21:36:30.048]                     muffleCondition(cond)
  [21:36:30.048]                   }
  [21:36:30.048]                 }
  [21:36:30.048]             }
  [21:36:30.048]         }))
  [21:36:30.048]     }, error = function(ex) {
  [21:36:30.048]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.048]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.048]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.048]     }, finally = {
  [21:36:30.048]         {
  [21:36:30.048]             NULL
  [21:36:30.048]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.048]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.048]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.048]                 label = NULL, ...) 
  [21:36:30.048]             {
  [21:36:30.048]                 if (substitute) 
  [21:36:30.048]                   expr <- substitute(expr)
  [21:36:30.048]                 local <- as.logical(local)
  [21:36:30.048]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.048]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.048]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.048]                   label = label, ...)
  [21:36:30.048]                 if (!future$lazy) 
  [21:36:30.048]                   future <- run(future)
  [21:36:30.048]                 invisible(future)
  [21:36:30.048]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.048]         }
  [21:36:30.048]         base::options(...future.oldOptions)
  [21:36:30.048]     })
  [21:36:30.048]     Sys.time
  [21:36:30.048]     if (base::is.na(TRUE)) {
  [21:36:30.048]     }
  [21:36:30.048]     else {
  [21:36:30.048]         base::sink(type = "output", split = FALSE)
  [21:36:30.048]         if (TRUE) {
  [21:36:30.048]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.048]         }
  [21:36:30.048]         else {
  [21:36:30.048]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.048]         }
  [21:36:30.048]         base::close(...future.stdout)
  [21:36:30.048]         ...future.stdout <- NULL
  [21:36:30.048]     }
  [21:36:30.048]     ...future.result$conditions <- ...future.conditions
  [21:36:30.048]     ...future.result
  [21:36:30.048] }
  [21:36:30.067] plan(): Setting new future strategy stack:
  [21:36:30.068] List of future strategies:
  [21:36:30.068] 1. sequential:
  [21:36:30.068]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.068]    - tweaked: FALSE
  [21:36:30.068]    - call: NULL
  [21:36:30.069] plan(): nbrOfWorkers() = 1
  [21:36:30.070] plan(): Setting new future strategy stack:
  [21:36:30.070] List of future strategies:
  [21:36:30.070] 1. sequential:
  [21:36:30.070]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.070]    - tweaked: FALSE
  [21:36:30.070]    - call: plan(strategy)
  [21:36:30.071] plan(): nbrOfWorkers() = 1
  [21:36:30.071] SequentialFuture started (and completed)
  SequentialFuture:
  Label: 'fsample_4-465679'
  Expression:
  {
      sample(x, size = 1L)
  }
  Lazy evaluation: FALSE
  Asynchronous evaluation: FALSE
  Local evaluation: TRUE
  Environment: <environment: 0x56166f9daf88>
  Capture standard output: TRUE
  Capture condition classes: 'condition'
  Globals: 1 objects totaling 64 bytes (integer 'x' of 64 bytes)
  Packages: <none>
  L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
  Resolved: TRUE
  Value: 56 bytes of class 'integer'
  Early signaling: FALSE
  Owner process: 493162bc-e703-9a54-388b-5bf753d43ab3
  Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
  [21:36:30.073] resolve() on list ...
  [21:36:30.073]  recursive: 0
  [21:36:30.074]  length: 4
  [21:36:30.074] 
  [21:36:30.074] Future #1
  [21:36:30.074] signalConditionsASAP(SequentialFuture, pos=1) ...
  [21:36:30.075] - nx: 4
  [21:36:30.075] - relay: TRUE
  [21:36:30.075] - stdout: TRUE
  [21:36:30.075] - signal: TRUE
  [21:36:30.076] - resignal: FALSE
  [21:36:30.076] - force: TRUE
  [21:36:30.076] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:30.076] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:30.077]  - until=1
  [21:36:30.077]  - relaying element #1
  [21:36:30.077] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:30.078] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:30.078] signalConditionsASAP(SequentialFuture, pos=1) ... done
  [21:36:30.078]  length: 3 (resolved future 1)
  [21:36:30.078] Future #2
  [21:36:30.079] signalConditionsASAP(SequentialFuture, pos=2) ...
  [21:36:30.079] - nx: 4
  [21:36:30.079] - relay: TRUE
  [21:36:30.079] - stdout: TRUE
  [21:36:30.080] - signal: TRUE
  [21:36:30.080] - resignal: FALSE
  [21:36:30.080] - force: TRUE
  [21:36:30.080] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:30.081] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:30.081]  - until=2
  [21:36:30.081]  - relaying element #2
  [21:36:30.098] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:30.098] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:30.098] signalConditionsASAP(SequentialFuture, pos=2) ... done
  [21:36:30.099]  length: 2 (resolved future 2)
  [21:36:30.099] Future #3
  [21:36:30.099] signalConditionsASAP(SequentialFuture, pos=3) ...
  [21:36:30.100] - nx: 4
  [21:36:30.100] - relay: TRUE
  [21:36:30.100] - stdout: TRUE
  [21:36:30.100] - signal: TRUE
  [21:36:30.101] - resignal: FALSE
  [21:36:30.101] - force: TRUE
  [21:36:30.101] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:30.101] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:30.102]  - until=3
  [21:36:30.102]  - relaying element #3
  [21:36:30.102] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:30.103] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:30.103] signalConditionsASAP(SequentialFuture, pos=3) ... done
  [21:36:30.103]  length: 1 (resolved future 3)
  [21:36:30.103] Future #4
  [21:36:30.104] signalConditionsASAP(SequentialFuture, pos=4) ...
  [21:36:30.104] - nx: 4
  [21:36:30.104] - relay: TRUE
  [21:36:30.105] - stdout: TRUE
  [21:36:30.105] - signal: TRUE
  [21:36:30.105] - resignal: FALSE
  [21:36:30.105] - force: TRUE
  [21:36:30.105] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:30.106] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:30.109]  - until=4
  [21:36:30.109]  - relaying element #4
  [21:36:30.110] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:30.110] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:30.110] signalConditionsASAP(SequentialFuture, pos=4) ... done
  [21:36:30.111]  length: 0 (resolved future 4)
  [21:36:30.111] Relaying remaining futures
  [21:36:30.111] signalConditionsASAP(NULL, pos=0) ...
  [21:36:30.112] - nx: 4
  [21:36:30.112] - relay: TRUE
  [21:36:30.112] - stdout: TRUE
  [21:36:30.112] - signal: TRUE
  [21:36:30.112] - resignal: FALSE
  [21:36:30.113] - force: TRUE
  [21:36:30.113] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:30.113] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:30.130] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:30.130] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:30.130] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:30.131] resolve() on list ... DONE
  [[1]]
  [1] 1
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 3
  
  [21:36:30.135] getGlobalsAndPackages() ...
  [21:36:30.135] Searching for globals...
  [21:36:30.137] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.137] Searching for globals ... DONE
  [21:36:30.138] Resolving globals: FALSE
  [21:36:30.138] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.139] - globals: [1] 'x'
  [21:36:30.139] 
  [21:36:30.139] getGlobalsAndPackages() ... DONE
  [21:36:30.141] Packages needed by the future expression (n = 0): <none>
  [21:36:30.142] Packages needed by future strategies (n = 0): <none>
  [21:36:30.162] {
  [21:36:30.162]     {
  [21:36:30.162]         ...future.startTime <- base::Sys.time()
  [21:36:30.162]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.162]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.162]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.162]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.162]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.162]         {
  [21:36:30.162]             {
  [21:36:30.162]                 {
  [21:36:30.162]                   base::local({
  [21:36:30.162]                     has_future <- base::requireNamespace("future", 
  [21:36:30.162]                       quietly = TRUE)
  [21:36:30.162]                     version <- if (has_future) 
  [21:36:30.162]                       utils::packageVersion("future")
  [21:36:30.162]                     else NULL
  [21:36:30.162]                     if (!has_future || version < "1.8.0") {
  [21:36:30.162]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.162]                         "", base::R.version$version.string), 
  [21:36:30.162]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.162]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.162]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.162]                           "release", "version")], collapse = " "), 
  [21:36:30.162]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.162]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.162]                         info)
  [21:36:30.162]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.162]                       if (!has_future) {
  [21:36:30.162]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.162]                           info)
  [21:36:30.162]                       }
  [21:36:30.162]                       else {
  [21:36:30.162]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.162]                           info, version)
  [21:36:30.162]                       }
  [21:36:30.162]                       base::stop(msg)
  [21:36:30.162]                     }
  [21:36:30.162]                   })
  [21:36:30.162]                 }
  [21:36:30.162]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:30.162]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:30.162]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.162]             }
  [21:36:30.162]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.162]         }
  [21:36:30.162]     }
  [21:36:30.162]     if (base::is.na(TRUE)) {
  [21:36:30.162]     }
  [21:36:30.162]     else {
  [21:36:30.162]         if (TRUE) {
  [21:36:30.162]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.162]                 open = "w")
  [21:36:30.162]         }
  [21:36:30.162]         else {
  [21:36:30.162]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.162]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.162]         }
  [21:36:30.162]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.162]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.162]             base::sink(type = "output", split = FALSE)
  [21:36:30.162]             base::close(...future.stdout)
  [21:36:30.162]         }, add = TRUE)
  [21:36:30.162]     }
  [21:36:30.162]     ...future.frame <- base::sys.nframe()
  [21:36:30.162]     ...future.conditions <- base::list()
  [21:36:30.162]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.162]     ...future.result <- base::tryCatch({
  [21:36:30.162]         base::withCallingHandlers({
  [21:36:30.162]             ...future.value <- base::withVisible(base::local({
  [21:36:30.162]                 sample(x, size = 1L)
  [21:36:30.162]             }))
  [21:36:30.162]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.162]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.162]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.162]                 version = "1.8")
  [21:36:30.162]         }, condition = base::local({
  [21:36:30.162]             c <- base::c
  [21:36:30.162]             inherits <- base::inherits
  [21:36:30.162]             invokeRestart <- base::invokeRestart
  [21:36:30.162]             length <- base::length
  [21:36:30.162]             list <- base::list
  [21:36:30.162]             seq.int <- base::seq.int
  [21:36:30.162]             signalCondition <- base::signalCondition
  [21:36:30.162]             sys.calls <- base::sys.calls
  [21:36:30.162]             Sys.time <- base::Sys.time
  [21:36:30.162]             `[[` <- base::`[[`
  [21:36:30.162]             `+` <- base::`+`
  [21:36:30.162]             `<<-` <- base::`<<-`
  [21:36:30.162]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.162]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.162]                   3L)]
  [21:36:30.162]             }
  [21:36:30.162]             function(cond) {
  [21:36:30.162]                 if (inherits(cond, "error")) {
  [21:36:30.162]                   sessionInformation <- function() {
  [21:36:30.162]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.162]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.162]                       search = base::search(), system = base::Sys.info())
  [21:36:30.162]                   }
  [21:36:30.162]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.162]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.162]                     cond$call), session = sessionInformation(), 
  [21:36:30.162]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.162]                   signalCondition(cond)
  [21:36:30.162]                 }
  [21:36:30.162]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.162]                 ))) {
  [21:36:30.162]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.162]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.162]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.162]                   if (!signal) {
  [21:36:30.162]                     muffleCondition <- function (cond) 
  [21:36:30.162]                     {
  [21:36:30.162]                       inherits <- base::inherits
  [21:36:30.162]                       invokeRestart <- base::invokeRestart
  [21:36:30.162]                       muffled <- FALSE
  [21:36:30.162]                       if (inherits(cond, "message")) {
  [21:36:30.162]                         invokeRestart("muffleMessage")
  [21:36:30.162]                         muffled <- TRUE
  [21:36:30.162]                       }
  [21:36:30.162]                       else if (inherits(cond, "warning")) {
  [21:36:30.162]                         invokeRestart("muffleWarning")
  [21:36:30.162]                         muffled <- TRUE
  [21:36:30.162]                       }
  [21:36:30.162]                       else if (inherits(cond, "condition")) {
  [21:36:30.162]                         computeRestarts <- base::computeRestarts
  [21:36:30.162]                         grepl <- base::grepl
  [21:36:30.162]                         is.null <- base::is.null
  [21:36:30.162]                         restarts <- computeRestarts(cond)
  [21:36:30.162]                         for (restart in restarts) {
  [21:36:30.162]                           name <- restart$name
  [21:36:30.162]                           if (is.null(name)) 
  [21:36:30.162]                             next
  [21:36:30.162]                           if (!grepl("^muffle", name)) 
  [21:36:30.162]                             next
  [21:36:30.162]                           invokeRestart(restart)
  [21:36:30.162]                           muffled <- TRUE
  [21:36:30.162]                           break
  [21:36:30.162]                         }
  [21:36:30.162]                       }
  [21:36:30.162]                       invisible(muffled)
  [21:36:30.162]                     }
  [21:36:30.162]                     muffleCondition(cond)
  [21:36:30.162]                   }
  [21:36:30.162]                 }
  [21:36:30.162]             }
  [21:36:30.162]         }))
  [21:36:30.162]     }, error = function(ex) {
  [21:36:30.162]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.162]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.162]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.162]     }, finally = {
  [21:36:30.162]         {
  [21:36:30.162]             NULL
  [21:36:30.162]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.162]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.162]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.162]                 label = NULL, ...) 
  [21:36:30.162]             {
  [21:36:30.162]                 if (substitute) 
  [21:36:30.162]                   expr <- substitute(expr)
  [21:36:30.162]                 local <- as.logical(local)
  [21:36:30.162]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.162]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.162]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.162]                   label = label, ...)
  [21:36:30.162]                 if (!future$lazy) 
  [21:36:30.162]                   future <- run(future)
  [21:36:30.162]                 invisible(future)
  [21:36:30.162]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.162]         }
  [21:36:30.162]         base::options(...future.oldOptions)
  [21:36:30.162]     })
  [21:36:30.162]     Sys.time
  [21:36:30.162]     if (base::is.na(TRUE)) {
  [21:36:30.162]     }
  [21:36:30.162]     else {
  [21:36:30.162]         base::sink(type = "output", split = FALSE)
  [21:36:30.162]         if (TRUE) {
  [21:36:30.162]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.162]         }
  [21:36:30.162]         else {
  [21:36:30.162]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.162]         }
  [21:36:30.162]         base::close(...future.stdout)
  [21:36:30.162]         ...future.stdout <- NULL
  [21:36:30.162]     }
  [21:36:30.162]     ...future.result$conditions <- ...future.conditions
  [21:36:30.162]     ...future.result
  [21:36:30.162] }
  [21:36:30.167] plan(): Setting new future strategy stack:
  [21:36:30.167] List of future strategies:
  [21:36:30.167] 1. sequential:
  [21:36:30.167]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.167]    - tweaked: FALSE
  [21:36:30.167]    - call: NULL
  [21:36:30.168] plan(): nbrOfWorkers() = 1
  [21:36:30.169] plan(): Setting new future strategy stack:
  [21:36:30.169] List of future strategies:
  [21:36:30.169] 1. sequential:
  [21:36:30.169]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.169]    - tweaked: FALSE
  [21:36:30.169]    - call: plan(strategy)
  [21:36:30.170] plan(): nbrOfWorkers() = 1
  [21:36:30.171] SequentialFuture started (and completed)
  [21:36:30.172] getGlobalsAndPackages() ...
  [21:36:30.172] Searching for globals...
  [21:36:30.174] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.174] Searching for globals ... DONE
  [21:36:30.175] Resolving globals: FALSE
  [21:36:30.175] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.176] - globals: [1] 'x'
  [21:36:30.176] 
  [21:36:30.176] getGlobalsAndPackages() ... DONE
  [21:36:30.178] Packages needed by the future expression (n = 0): <none>
  [21:36:30.179] Packages needed by future strategies (n = 0): <none>
  [21:36:30.183] {
  [21:36:30.183]     {
  [21:36:30.183]         ...future.startTime <- base::Sys.time()
  [21:36:30.183]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.183]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.183]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.183]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.183]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.183]         {
  [21:36:30.183]             {
  [21:36:30.183]                 {
  [21:36:30.183]                   base::local({
  [21:36:30.183]                     has_future <- base::requireNamespace("future", 
  [21:36:30.183]                       quietly = TRUE)
  [21:36:30.183]                     version <- if (has_future) 
  [21:36:30.183]                       utils::packageVersion("future")
  [21:36:30.183]                     else NULL
  [21:36:30.183]                     if (!has_future || version < "1.8.0") {
  [21:36:30.183]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.183]                         "", base::R.version$version.string), 
  [21:36:30.183]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.183]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.183]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.183]                           "release", "version")], collapse = " "), 
  [21:36:30.183]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.183]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.183]                         info)
  [21:36:30.183]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.183]                       if (!has_future) {
  [21:36:30.183]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.183]                           info)
  [21:36:30.183]                       }
  [21:36:30.183]                       else {
  [21:36:30.183]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.183]                           info, version)
  [21:36:30.183]                       }
  [21:36:30.183]                       base::stop(msg)
  [21:36:30.183]                     }
  [21:36:30.183]                   })
  [21:36:30.183]                 }
  [21:36:30.183]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:30.183]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:30.183]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.183]             }
  [21:36:30.183]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.183]         }
  [21:36:30.183]     }
  [21:36:30.183]     if (base::is.na(TRUE)) {
  [21:36:30.183]     }
  [21:36:30.183]     else {
  [21:36:30.183]         if (TRUE) {
  [21:36:30.183]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.183]                 open = "w")
  [21:36:30.183]         }
  [21:36:30.183]         else {
  [21:36:30.183]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.183]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.183]         }
  [21:36:30.183]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.183]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.183]             base::sink(type = "output", split = FALSE)
  [21:36:30.183]             base::close(...future.stdout)
  [21:36:30.183]         }, add = TRUE)
  [21:36:30.183]     }
  [21:36:30.183]     ...future.frame <- base::sys.nframe()
  [21:36:30.183]     ...future.conditions <- base::list()
  [21:36:30.183]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.183]     ...future.result <- base::tryCatch({
  [21:36:30.183]         base::withCallingHandlers({
  [21:36:30.183]             ...future.value <- base::withVisible(base::local({
  [21:36:30.183]                 sample(x, size = 1L)
  [21:36:30.183]             }))
  [21:36:30.183]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.183]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.183]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.183]                 version = "1.8")
  [21:36:30.183]         }, condition = base::local({
  [21:36:30.183]             c <- base::c
  [21:36:30.183]             inherits <- base::inherits
  [21:36:30.183]             invokeRestart <- base::invokeRestart
  [21:36:30.183]             length <- base::length
  [21:36:30.183]             list <- base::list
  [21:36:30.183]             seq.int <- base::seq.int
  [21:36:30.183]             signalCondition <- base::signalCondition
  [21:36:30.183]             sys.calls <- base::sys.calls
  [21:36:30.183]             Sys.time <- base::Sys.time
  [21:36:30.183]             `[[` <- base::`[[`
  [21:36:30.183]             `+` <- base::`+`
  [21:36:30.183]             `<<-` <- base::`<<-`
  [21:36:30.183]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.183]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.183]                   3L)]
  [21:36:30.183]             }
  [21:36:30.183]             function(cond) {
  [21:36:30.183]                 if (inherits(cond, "error")) {
  [21:36:30.183]                   sessionInformation <- function() {
  [21:36:30.183]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.183]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.183]                       search = base::search(), system = base::Sys.info())
  [21:36:30.183]                   }
  [21:36:30.183]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.183]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.183]                     cond$call), session = sessionInformation(), 
  [21:36:30.183]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.183]                   signalCondition(cond)
  [21:36:30.183]                 }
  [21:36:30.183]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.183]                 ))) {
  [21:36:30.183]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.183]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.183]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.183]                   if (!signal) {
  [21:36:30.183]                     muffleCondition <- function (cond) 
  [21:36:30.183]                     {
  [21:36:30.183]                       inherits <- base::inherits
  [21:36:30.183]                       invokeRestart <- base::invokeRestart
  [21:36:30.183]                       muffled <- FALSE
  [21:36:30.183]                       if (inherits(cond, "message")) {
  [21:36:30.183]                         invokeRestart("muffleMessage")
  [21:36:30.183]                         muffled <- TRUE
  [21:36:30.183]                       }
  [21:36:30.183]                       else if (inherits(cond, "warning")) {
  [21:36:30.183]                         invokeRestart("muffleWarning")
  [21:36:30.183]                         muffled <- TRUE
  [21:36:30.183]                       }
  [21:36:30.183]                       else if (inherits(cond, "condition")) {
  [21:36:30.183]                         computeRestarts <- base::computeRestarts
  [21:36:30.183]                         grepl <- base::grepl
  [21:36:30.183]                         is.null <- base::is.null
  [21:36:30.183]                         restarts <- computeRestarts(cond)
  [21:36:30.183]                         for (restart in restarts) {
  [21:36:30.183]                           name <- restart$name
  [21:36:30.183]                           if (is.null(name)) 
  [21:36:30.183]                             next
  [21:36:30.183]                           if (!grepl("^muffle", name)) 
  [21:36:30.183]                             next
  [21:36:30.183]                           invokeRestart(restart)
  [21:36:30.183]                           muffled <- TRUE
  [21:36:30.183]                           break
  [21:36:30.183]                         }
  [21:36:30.183]                       }
  [21:36:30.183]                       invisible(muffled)
  [21:36:30.183]                     }
  [21:36:30.183]                     muffleCondition(cond)
  [21:36:30.183]                   }
  [21:36:30.183]                 }
  [21:36:30.183]             }
  [21:36:30.183]         }))
  [21:36:30.183]     }, error = function(ex) {
  [21:36:30.183]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.183]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.183]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.183]     }, finally = {
  [21:36:30.183]         {
  [21:36:30.183]             NULL
  [21:36:30.183]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.183]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.183]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.183]                 label = NULL, ...) 
  [21:36:30.183]             {
  [21:36:30.183]                 if (substitute) 
  [21:36:30.183]                   expr <- substitute(expr)
  [21:36:30.183]                 local <- as.logical(local)
  [21:36:30.183]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.183]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.183]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.183]                   label = label, ...)
  [21:36:30.183]                 if (!future$lazy) 
  [21:36:30.183]                   future <- run(future)
  [21:36:30.183]                 invisible(future)
  [21:36:30.183]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.183]         }
  [21:36:30.183]         base::options(...future.oldOptions)
  [21:36:30.183]     })
  [21:36:30.183]     Sys.time
  [21:36:30.183]     if (base::is.na(TRUE)) {
  [21:36:30.183]     }
  [21:36:30.183]     else {
  [21:36:30.183]         base::sink(type = "output", split = FALSE)
  [21:36:30.183]         if (TRUE) {
  [21:36:30.183]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.183]         }
  [21:36:30.183]         else {
  [21:36:30.183]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.183]         }
  [21:36:30.183]         base::close(...future.stdout)
  [21:36:30.183]         ...future.stdout <- NULL
  [21:36:30.183]     }
  [21:36:30.183]     ...future.result$conditions <- ...future.conditions
  [21:36:30.183]     ...future.result
  [21:36:30.183] }
  [21:36:30.188] plan(): Setting new future strategy stack:
  [21:36:30.188] List of future strategies:
  [21:36:30.188] 1. sequential:
  [21:36:30.188]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.188]    - tweaked: FALSE
  [21:36:30.188]    - call: NULL
  [21:36:30.189] plan(): nbrOfWorkers() = 1
  [21:36:30.190] plan(): Setting new future strategy stack:
  [21:36:30.191] List of future strategies:
  [21:36:30.191] 1. sequential:
  [21:36:30.191]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.191]    - tweaked: FALSE
  [21:36:30.191]    - call: plan(strategy)
  [21:36:30.192] plan(): nbrOfWorkers() = 1
  [21:36:30.192] SequentialFuture started (and completed)
  [21:36:30.193] getGlobalsAndPackages() ...
  [21:36:30.193] Searching for globals...
  [21:36:30.195] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.196] Searching for globals ... DONE
  [21:36:30.196] Resolving globals: FALSE
  [21:36:30.197] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.197] - globals: [1] 'x'
  [21:36:30.197] 
  [21:36:30.198] getGlobalsAndPackages() ... DONE
  [21:36:30.200] Packages needed by the future expression (n = 0): <none>
  [21:36:30.200] Packages needed by future strategies (n = 0): <none>
  [21:36:30.205] {
  [21:36:30.205]     {
  [21:36:30.205]         ...future.startTime <- base::Sys.time()
  [21:36:30.205]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.205]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.205]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.205]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.205]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.205]         {
  [21:36:30.205]             {
  [21:36:30.205]                 {
  [21:36:30.205]                   base::local({
  [21:36:30.205]                     has_future <- base::requireNamespace("future", 
  [21:36:30.205]                       quietly = TRUE)
  [21:36:30.205]                     version <- if (has_future) 
  [21:36:30.205]                       utils::packageVersion("future")
  [21:36:30.205]                     else NULL
  [21:36:30.205]                     if (!has_future || version < "1.8.0") {
  [21:36:30.205]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.205]                         "", base::R.version$version.string), 
  [21:36:30.205]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.205]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.205]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.205]                           "release", "version")], collapse = " "), 
  [21:36:30.205]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.205]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.205]                         info)
  [21:36:30.205]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.205]                       if (!has_future) {
  [21:36:30.205]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.205]                           info)
  [21:36:30.205]                       }
  [21:36:30.205]                       else {
  [21:36:30.205]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.205]                           info, version)
  [21:36:30.205]                       }
  [21:36:30.205]                       base::stop(msg)
  [21:36:30.205]                     }
  [21:36:30.205]                   })
  [21:36:30.205]                 }
  [21:36:30.205]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:30.205]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:30.205]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.205]             }
  [21:36:30.205]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.205]         }
  [21:36:30.205]     }
  [21:36:30.205]     if (base::is.na(TRUE)) {
  [21:36:30.205]     }
  [21:36:30.205]     else {
  [21:36:30.205]         if (TRUE) {
  [21:36:30.205]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.205]                 open = "w")
  [21:36:30.205]         }
  [21:36:30.205]         else {
  [21:36:30.205]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.205]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.205]         }
  [21:36:30.205]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.205]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.205]             base::sink(type = "output", split = FALSE)
  [21:36:30.205]             base::close(...future.stdout)
  [21:36:30.205]         }, add = TRUE)
  [21:36:30.205]     }
  [21:36:30.205]     ...future.frame <- base::sys.nframe()
  [21:36:30.205]     ...future.conditions <- base::list()
  [21:36:30.205]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.205]     ...future.result <- base::tryCatch({
  [21:36:30.205]         base::withCallingHandlers({
  [21:36:30.205]             ...future.value <- base::withVisible(base::local({
  [21:36:30.205]                 sample(x, size = 1L)
  [21:36:30.205]             }))
  [21:36:30.205]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.205]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.205]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.205]                 version = "1.8")
  [21:36:30.205]         }, condition = base::local({
  [21:36:30.205]             c <- base::c
  [21:36:30.205]             inherits <- base::inherits
  [21:36:30.205]             invokeRestart <- base::invokeRestart
  [21:36:30.205]             length <- base::length
  [21:36:30.205]             list <- base::list
  [21:36:30.205]             seq.int <- base::seq.int
  [21:36:30.205]             signalCondition <- base::signalCondition
  [21:36:30.205]             sys.calls <- base::sys.calls
  [21:36:30.205]             Sys.time <- base::Sys.time
  [21:36:30.205]             `[[` <- base::`[[`
  [21:36:30.205]             `+` <- base::`+`
  [21:36:30.205]             `<<-` <- base::`<<-`
  [21:36:30.205]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.205]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.205]                   3L)]
  [21:36:30.205]             }
  [21:36:30.205]             function(cond) {
  [21:36:30.205]                 if (inherits(cond, "error")) {
  [21:36:30.205]                   sessionInformation <- function() {
  [21:36:30.205]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.205]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.205]                       search = base::search(), system = base::Sys.info())
  [21:36:30.205]                   }
  [21:36:30.205]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.205]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.205]                     cond$call), session = sessionInformation(), 
  [21:36:30.205]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.205]                   signalCondition(cond)
  [21:36:30.205]                 }
  [21:36:30.205]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.205]                 ))) {
  [21:36:30.205]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.205]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.205]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.205]                   if (!signal) {
  [21:36:30.205]                     muffleCondition <- function (cond) 
  [21:36:30.205]                     {
  [21:36:30.205]                       inherits <- base::inherits
  [21:36:30.205]                       invokeRestart <- base::invokeRestart
  [21:36:30.205]                       muffled <- FALSE
  [21:36:30.205]                       if (inherits(cond, "message")) {
  [21:36:30.205]                         invokeRestart("muffleMessage")
  [21:36:30.205]                         muffled <- TRUE
  [21:36:30.205]                       }
  [21:36:30.205]                       else if (inherits(cond, "warning")) {
  [21:36:30.205]                         invokeRestart("muffleWarning")
  [21:36:30.205]                         muffled <- TRUE
  [21:36:30.205]                       }
  [21:36:30.205]                       else if (inherits(cond, "condition")) {
  [21:36:30.205]                         computeRestarts <- base::computeRestarts
  [21:36:30.205]                         grepl <- base::grepl
  [21:36:30.205]                         is.null <- base::is.null
  [21:36:30.205]                         restarts <- computeRestarts(cond)
  [21:36:30.205]                         for (restart in restarts) {
  [21:36:30.205]                           name <- restart$name
  [21:36:30.205]                           if (is.null(name)) 
  [21:36:30.205]                             next
  [21:36:30.205]                           if (!grepl("^muffle", name)) 
  [21:36:30.205]                             next
  [21:36:30.205]                           invokeRestart(restart)
  [21:36:30.205]                           muffled <- TRUE
  [21:36:30.205]                           break
  [21:36:30.205]                         }
  [21:36:30.205]                       }
  [21:36:30.205]                       invisible(muffled)
  [21:36:30.205]                     }
  [21:36:30.205]                     muffleCondition(cond)
  [21:36:30.205]                   }
  [21:36:30.205]                 }
  [21:36:30.205]             }
  [21:36:30.205]         }))
  [21:36:30.205]     }, error = function(ex) {
  [21:36:30.205]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.205]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.205]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.205]     }, finally = {
  [21:36:30.205]         {
  [21:36:30.205]             NULL
  [21:36:30.205]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.205]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.205]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.205]                 label = NULL, ...) 
  [21:36:30.205]             {
  [21:36:30.205]                 if (substitute) 
  [21:36:30.205]                   expr <- substitute(expr)
  [21:36:30.205]                 local <- as.logical(local)
  [21:36:30.205]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.205]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.205]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.205]                   label = label, ...)
  [21:36:30.205]                 if (!future$lazy) 
  [21:36:30.205]                   future <- run(future)
  [21:36:30.205]                 invisible(future)
  [21:36:30.205]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.205]         }
  [21:36:30.205]         base::options(...future.oldOptions)
  [21:36:30.205]     })
  [21:36:30.205]     Sys.time
  [21:36:30.205]     if (base::is.na(TRUE)) {
  [21:36:30.205]     }
  [21:36:30.205]     else {
  [21:36:30.205]         base::sink(type = "output", split = FALSE)
  [21:36:30.205]         if (TRUE) {
  [21:36:30.205]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.205]         }
  [21:36:30.205]         else {
  [21:36:30.205]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.205]         }
  [21:36:30.205]         base::close(...future.stdout)
  [21:36:30.205]         ...future.stdout <- NULL
  [21:36:30.205]     }
  [21:36:30.205]     ...future.result$conditions <- ...future.conditions
  [21:36:30.205]     ...future.result
  [21:36:30.205] }
  [21:36:30.214] plan(): Setting new future strategy stack:
  [21:36:30.214] List of future strategies:
  [21:36:30.214] 1. sequential:
  [21:36:30.214]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.214]    - tweaked: FALSE
  [21:36:30.214]    - call: NULL
  [21:36:30.215] plan(): nbrOfWorkers() = 1
  [21:36:30.216] plan(): Setting new future strategy stack:
  [21:36:30.216] List of future strategies:
  [21:36:30.216] 1. sequential:
  [21:36:30.216]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.216]    - tweaked: FALSE
  [21:36:30.216]    - call: plan(strategy)
  [21:36:30.217] plan(): nbrOfWorkers() = 1
  [21:36:30.218] SequentialFuture started (and completed)
  [21:36:30.219] getGlobalsAndPackages() ...
  [21:36:30.219] Searching for globals...
  [21:36:30.221] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.222] Searching for globals ... DONE
  [21:36:30.222] Resolving globals: FALSE
  [21:36:30.223] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.223] - globals: [1] 'x'
  [21:36:30.223] 
  [21:36:30.224] getGlobalsAndPackages() ... DONE
  [21:36:30.225] Packages needed by the future expression (n = 0): <none>
  [21:36:30.226] Packages needed by future strategies (n = 0): <none>
  [21:36:30.230] {
  [21:36:30.230]     {
  [21:36:30.230]         ...future.startTime <- base::Sys.time()
  [21:36:30.230]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.230]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.230]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.230]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.230]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.230]         {
  [21:36:30.230]             {
  [21:36:30.230]                 {
  [21:36:30.230]                   base::local({
  [21:36:30.230]                     has_future <- base::requireNamespace("future", 
  [21:36:30.230]                       quietly = TRUE)
  [21:36:30.230]                     version <- if (has_future) 
  [21:36:30.230]                       utils::packageVersion("future")
  [21:36:30.230]                     else NULL
  [21:36:30.230]                     if (!has_future || version < "1.8.0") {
  [21:36:30.230]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.230]                         "", base::R.version$version.string), 
  [21:36:30.230]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.230]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.230]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.230]                           "release", "version")], collapse = " "), 
  [21:36:30.230]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.230]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.230]                         info)
  [21:36:30.230]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.230]                       if (!has_future) {
  [21:36:30.230]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.230]                           info)
  [21:36:30.230]                       }
  [21:36:30.230]                       else {
  [21:36:30.230]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.230]                           info, version)
  [21:36:30.230]                       }
  [21:36:30.230]                       base::stop(msg)
  [21:36:30.230]                     }
  [21:36:30.230]                   })
  [21:36:30.230]                 }
  [21:36:30.230]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:30.230]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:30.230]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.230]             }
  [21:36:30.230]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.230]         }
  [21:36:30.230]     }
  [21:36:30.230]     if (base::is.na(TRUE)) {
  [21:36:30.230]     }
  [21:36:30.230]     else {
  [21:36:30.230]         if (TRUE) {
  [21:36:30.230]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.230]                 open = "w")
  [21:36:30.230]         }
  [21:36:30.230]         else {
  [21:36:30.230]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.230]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.230]         }
  [21:36:30.230]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.230]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.230]             base::sink(type = "output", split = FALSE)
  [21:36:30.230]             base::close(...future.stdout)
  [21:36:30.230]         }, add = TRUE)
  [21:36:30.230]     }
  [21:36:30.230]     ...future.frame <- base::sys.nframe()
  [21:36:30.230]     ...future.conditions <- base::list()
  [21:36:30.230]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.230]     ...future.result <- base::tryCatch({
  [21:36:30.230]         base::withCallingHandlers({
  [21:36:30.230]             ...future.value <- base::withVisible(base::local({
  [21:36:30.230]                 sample(x, size = 1L)
  [21:36:30.230]             }))
  [21:36:30.230]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.230]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.230]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.230]                 version = "1.8")
  [21:36:30.230]         }, condition = base::local({
  [21:36:30.230]             c <- base::c
  [21:36:30.230]             inherits <- base::inherits
  [21:36:30.230]             invokeRestart <- base::invokeRestart
  [21:36:30.230]             length <- base::length
  [21:36:30.230]             list <- base::list
  [21:36:30.230]             seq.int <- base::seq.int
  [21:36:30.230]             signalCondition <- base::signalCondition
  [21:36:30.230]             sys.calls <- base::sys.calls
  [21:36:30.230]             Sys.time <- base::Sys.time
  [21:36:30.230]             `[[` <- base::`[[`
  [21:36:30.230]             `+` <- base::`+`
  [21:36:30.230]             `<<-` <- base::`<<-`
  [21:36:30.230]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.230]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.230]                   3L)]
  [21:36:30.230]             }
  [21:36:30.230]             function(cond) {
  [21:36:30.230]                 if (inherits(cond, "error")) {
  [21:36:30.230]                   sessionInformation <- function() {
  [21:36:30.230]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.230]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.230]                       search = base::search(), system = base::Sys.info())
  [21:36:30.230]                   }
  [21:36:30.230]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.230]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.230]                     cond$call), session = sessionInformation(), 
  [21:36:30.230]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.230]                   signalCondition(cond)
  [21:36:30.230]                 }
  [21:36:30.230]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.230]                 ))) {
  [21:36:30.230]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.230]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.230]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.230]                   if (!signal) {
  [21:36:30.230]                     muffleCondition <- function (cond) 
  [21:36:30.230]                     {
  [21:36:30.230]                       inherits <- base::inherits
  [21:36:30.230]                       invokeRestart <- base::invokeRestart
  [21:36:30.230]                       muffled <- FALSE
  [21:36:30.230]                       if (inherits(cond, "message")) {
  [21:36:30.230]                         invokeRestart("muffleMessage")
  [21:36:30.230]                         muffled <- TRUE
  [21:36:30.230]                       }
  [21:36:30.230]                       else if (inherits(cond, "warning")) {
  [21:36:30.230]                         invokeRestart("muffleWarning")
  [21:36:30.230]                         muffled <- TRUE
  [21:36:30.230]                       }
  [21:36:30.230]                       else if (inherits(cond, "condition")) {
  [21:36:30.230]                         computeRestarts <- base::computeRestarts
  [21:36:30.230]                         grepl <- base::grepl
  [21:36:30.230]                         is.null <- base::is.null
  [21:36:30.230]                         restarts <- computeRestarts(cond)
  [21:36:30.230]                         for (restart in restarts) {
  [21:36:30.230]                           name <- restart$name
  [21:36:30.230]                           if (is.null(name)) 
  [21:36:30.230]                             next
  [21:36:30.230]                           if (!grepl("^muffle", name)) 
  [21:36:30.230]                             next
  [21:36:30.230]                           invokeRestart(restart)
  [21:36:30.230]                           muffled <- TRUE
  [21:36:30.230]                           break
  [21:36:30.230]                         }
  [21:36:30.230]                       }
  [21:36:30.230]                       invisible(muffled)
  [21:36:30.230]                     }
  [21:36:30.230]                     muffleCondition(cond)
  [21:36:30.230]                   }
  [21:36:30.230]                 }
  [21:36:30.230]             }
  [21:36:30.230]         }))
  [21:36:30.230]     }, error = function(ex) {
  [21:36:30.230]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.230]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.230]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.230]     }, finally = {
  [21:36:30.230]         {
  [21:36:30.230]             NULL
  [21:36:30.230]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.230]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.230]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.230]                 label = NULL, ...) 
  [21:36:30.230]             {
  [21:36:30.230]                 if (substitute) 
  [21:36:30.230]                   expr <- substitute(expr)
  [21:36:30.230]                 local <- as.logical(local)
  [21:36:30.230]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.230]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.230]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.230]                   label = label, ...)
  [21:36:30.230]                 if (!future$lazy) 
  [21:36:30.230]                   future <- run(future)
  [21:36:30.230]                 invisible(future)
  [21:36:30.230]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.230]         }
  [21:36:30.230]         base::options(...future.oldOptions)
  [21:36:30.230]     })
  [21:36:30.230]     Sys.time
  [21:36:30.230]     if (base::is.na(TRUE)) {
  [21:36:30.230]     }
  [21:36:30.230]     else {
  [21:36:30.230]         base::sink(type = "output", split = FALSE)
  [21:36:30.230]         if (TRUE) {
  [21:36:30.230]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.230]         }
  [21:36:30.230]         else {
  [21:36:30.230]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.230]         }
  [21:36:30.230]         base::close(...future.stdout)
  [21:36:30.230]         ...future.stdout <- NULL
  [21:36:30.230]     }
  [21:36:30.230]     ...future.result$conditions <- ...future.conditions
  [21:36:30.230]     ...future.result
  [21:36:30.230] }
  [21:36:30.235] plan(): Setting new future strategy stack:
  [21:36:30.235] List of future strategies:
  [21:36:30.235] 1. sequential:
  [21:36:30.235]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.235]    - tweaked: FALSE
  [21:36:30.235]    - call: NULL
  [21:36:30.236] plan(): nbrOfWorkers() = 1
  [21:36:30.237] plan(): Setting new future strategy stack:
  [21:36:30.239] List of future strategies:
  [21:36:30.239] 1. sequential:
  [21:36:30.239]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.239]    - tweaked: FALSE
  [21:36:30.239]    - call: plan(strategy)
  [21:36:30.240] plan(): nbrOfWorkers() = 1
  [21:36:30.241] SequentialFuture started (and completed)
  [[1]]
  [1] 2
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 1
  
  [21:36:30.243] getGlobalsAndPackages() ...
  [21:36:30.244] Searching for globals...
  [21:36:30.246] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.246] Searching for globals ... DONE
  [21:36:30.246] Resolving globals: FALSE
  [21:36:30.247] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.248] - globals: [1] 'x'
  [21:36:30.248] 
  [21:36:30.248] getGlobalsAndPackages() ... DONE
  [21:36:30.250] Packages needed by the future expression (n = 0): <none>
  [21:36:30.250] Packages needed by future strategies (n = 0): <none>
  [21:36:30.255] {
  [21:36:30.255]     {
  [21:36:30.255]         ...future.startTime <- base::Sys.time()
  [21:36:30.255]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.255]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.255]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.255]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.255]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.255]         {
  [21:36:30.255]             {
  [21:36:30.255]                 {
  [21:36:30.255]                   base::local({
  [21:36:30.255]                     has_future <- base::requireNamespace("future", 
  [21:36:30.255]                       quietly = TRUE)
  [21:36:30.255]                     version <- if (has_future) 
  [21:36:30.255]                       utils::packageVersion("future")
  [21:36:30.255]                     else NULL
  [21:36:30.255]                     if (!has_future || version < "1.8.0") {
  [21:36:30.255]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.255]                         "", base::R.version$version.string), 
  [21:36:30.255]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.255]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.255]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.255]                           "release", "version")], collapse = " "), 
  [21:36:30.255]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.255]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.255]                         info)
  [21:36:30.255]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.255]                       if (!has_future) {
  [21:36:30.255]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.255]                           info)
  [21:36:30.255]                       }
  [21:36:30.255]                       else {
  [21:36:30.255]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.255]                           info, version)
  [21:36:30.255]                       }
  [21:36:30.255]                       base::stop(msg)
  [21:36:30.255]                     }
  [21:36:30.255]                   })
  [21:36:30.255]                 }
  [21:36:30.255]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:30.255]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:30.255]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.255]             }
  [21:36:30.255]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.255]         }
  [21:36:30.255]     }
  [21:36:30.255]     if (base::is.na(TRUE)) {
  [21:36:30.255]     }
  [21:36:30.255]     else {
  [21:36:30.255]         if (TRUE) {
  [21:36:30.255]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.255]                 open = "w")
  [21:36:30.255]         }
  [21:36:30.255]         else {
  [21:36:30.255]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.255]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.255]         }
  [21:36:30.255]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.255]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.255]             base::sink(type = "output", split = FALSE)
  [21:36:30.255]             base::close(...future.stdout)
  [21:36:30.255]         }, add = TRUE)
  [21:36:30.255]     }
  [21:36:30.255]     ...future.frame <- base::sys.nframe()
  [21:36:30.255]     ...future.conditions <- base::list()
  [21:36:30.255]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.255]     ...future.result <- base::tryCatch({
  [21:36:30.255]         base::withCallingHandlers({
  [21:36:30.255]             ...future.value <- base::withVisible(base::local({
  [21:36:30.255]                 sample(x, size = 1L)
  [21:36:30.255]             }))
  [21:36:30.255]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.255]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.255]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.255]                 version = "1.8")
  [21:36:30.255]         }, condition = base::local({
  [21:36:30.255]             c <- base::c
  [21:36:30.255]             inherits <- base::inherits
  [21:36:30.255]             invokeRestart <- base::invokeRestart
  [21:36:30.255]             length <- base::length
  [21:36:30.255]             list <- base::list
  [21:36:30.255]             seq.int <- base::seq.int
  [21:36:30.255]             signalCondition <- base::signalCondition
  [21:36:30.255]             sys.calls <- base::sys.calls
  [21:36:30.255]             Sys.time <- base::Sys.time
  [21:36:30.255]             `[[` <- base::`[[`
  [21:36:30.255]             `+` <- base::`+`
  [21:36:30.255]             `<<-` <- base::`<<-`
  [21:36:30.255]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.255]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.255]                   3L)]
  [21:36:30.255]             }
  [21:36:30.255]             function(cond) {
  [21:36:30.255]                 if (inherits(cond, "error")) {
  [21:36:30.255]                   sessionInformation <- function() {
  [21:36:30.255]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.255]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.255]                       search = base::search(), system = base::Sys.info())
  [21:36:30.255]                   }
  [21:36:30.255]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.255]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.255]                     cond$call), session = sessionInformation(), 
  [21:36:30.255]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.255]                   signalCondition(cond)
  [21:36:30.255]                 }
  [21:36:30.255]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.255]                 ))) {
  [21:36:30.255]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.255]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.255]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.255]                   if (!signal) {
  [21:36:30.255]                     muffleCondition <- function (cond) 
  [21:36:30.255]                     {
  [21:36:30.255]                       inherits <- base::inherits
  [21:36:30.255]                       invokeRestart <- base::invokeRestart
  [21:36:30.255]                       muffled <- FALSE
  [21:36:30.255]                       if (inherits(cond, "message")) {
  [21:36:30.255]                         invokeRestart("muffleMessage")
  [21:36:30.255]                         muffled <- TRUE
  [21:36:30.255]                       }
  [21:36:30.255]                       else if (inherits(cond, "warning")) {
  [21:36:30.255]                         invokeRestart("muffleWarning")
  [21:36:30.255]                         muffled <- TRUE
  [21:36:30.255]                       }
  [21:36:30.255]                       else if (inherits(cond, "condition")) {
  [21:36:30.255]                         computeRestarts <- base::computeRestarts
  [21:36:30.255]                         grepl <- base::grepl
  [21:36:30.255]                         is.null <- base::is.null
  [21:36:30.255]                         restarts <- computeRestarts(cond)
  [21:36:30.255]                         for (restart in restarts) {
  [21:36:30.255]                           name <- restart$name
  [21:36:30.255]                           if (is.null(name)) 
  [21:36:30.255]                             next
  [21:36:30.255]                           if (!grepl("^muffle", name)) 
  [21:36:30.255]                             next
  [21:36:30.255]                           invokeRestart(restart)
  [21:36:30.255]                           muffled <- TRUE
  [21:36:30.255]                           break
  [21:36:30.255]                         }
  [21:36:30.255]                       }
  [21:36:30.255]                       invisible(muffled)
  [21:36:30.255]                     }
  [21:36:30.255]                     muffleCondition(cond)
  [21:36:30.255]                   }
  [21:36:30.255]                 }
  [21:36:30.255]             }
  [21:36:30.255]         }))
  [21:36:30.255]     }, error = function(ex) {
  [21:36:30.255]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.255]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.255]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.255]     }, finally = {
  [21:36:30.255]         {
  [21:36:30.255]             NULL
  [21:36:30.255]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.255]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.255]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.255]                 label = NULL, ...) 
  [21:36:30.255]             {
  [21:36:30.255]                 if (substitute) 
  [21:36:30.255]                   expr <- substitute(expr)
  [21:36:30.255]                 local <- as.logical(local)
  [21:36:30.255]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.255]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.255]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.255]                   label = label, ...)
  [21:36:30.255]                 if (!future$lazy) 
  [21:36:30.255]                   future <- run(future)
  [21:36:30.255]                 invisible(future)
  [21:36:30.255]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.255]         }
  [21:36:30.255]         base::options(...future.oldOptions)
  [21:36:30.255]     })
  [21:36:30.255]     Sys.time
  [21:36:30.255]     if (base::is.na(TRUE)) {
  [21:36:30.255]     }
  [21:36:30.255]     else {
  [21:36:30.255]         base::sink(type = "output", split = FALSE)
  [21:36:30.255]         if (TRUE) {
  [21:36:30.255]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.255]         }
  [21:36:30.255]         else {
  [21:36:30.255]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.255]         }
  [21:36:30.255]         base::close(...future.stdout)
  [21:36:30.255]         ...future.stdout <- NULL
  [21:36:30.255]     }
  [21:36:30.255]     ...future.result$conditions <- ...future.conditions
  [21:36:30.255]     ...future.result
  [21:36:30.255] }
  [21:36:30.259] plan(): Setting new future strategy stack:
  [21:36:30.260] List of future strategies:
  [21:36:30.260] 1. sequential:
  [21:36:30.260]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.260]    - tweaked: FALSE
  [21:36:30.260]    - call: NULL
  [21:36:30.261] plan(): nbrOfWorkers() = 1
  [21:36:30.262] plan(): Setting new future strategy stack:
  [21:36:30.262] List of future strategies:
  [21:36:30.262] 1. sequential:
  [21:36:30.262]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.262]    - tweaked: FALSE
  [21:36:30.262]    - call: plan(strategy)
  [21:36:30.263] plan(): nbrOfWorkers() = 1
  [21:36:30.263] SequentialFuture started (and completed)
  [21:36:30.264] getGlobalsAndPackages() ...
  [21:36:30.265] Searching for globals...
  [21:36:30.267] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.267] Searching for globals ... DONE
  [21:36:30.267] Resolving globals: FALSE
  [21:36:30.268] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.268] - globals: [1] 'x'
  [21:36:30.269] 
  [21:36:30.269] getGlobalsAndPackages() ... DONE
  [21:36:30.271] Packages needed by the future expression (n = 0): <none>
  [21:36:30.271] Packages needed by future strategies (n = 0): <none>
  [21:36:30.291] {
  [21:36:30.291]     {
  [21:36:30.291]         ...future.startTime <- base::Sys.time()
  [21:36:30.291]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.291]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.291]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.291]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.291]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.291]         {
  [21:36:30.291]             {
  [21:36:30.291]                 {
  [21:36:30.291]                   base::local({
  [21:36:30.291]                     has_future <- base::requireNamespace("future", 
  [21:36:30.291]                       quietly = TRUE)
  [21:36:30.291]                     version <- if (has_future) 
  [21:36:30.291]                       utils::packageVersion("future")
  [21:36:30.291]                     else NULL
  [21:36:30.291]                     if (!has_future || version < "1.8.0") {
  [21:36:30.291]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.291]                         "", base::R.version$version.string), 
  [21:36:30.291]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.291]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.291]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.291]                           "release", "version")], collapse = " "), 
  [21:36:30.291]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.291]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.291]                         info)
  [21:36:30.291]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.291]                       if (!has_future) {
  [21:36:30.291]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.291]                           info)
  [21:36:30.291]                       }
  [21:36:30.291]                       else {
  [21:36:30.291]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.291]                           info, version)
  [21:36:30.291]                       }
  [21:36:30.291]                       base::stop(msg)
  [21:36:30.291]                     }
  [21:36:30.291]                   })
  [21:36:30.291]                 }
  [21:36:30.291]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:30.291]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:30.291]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.291]             }
  [21:36:30.291]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.291]         }
  [21:36:30.291]     }
  [21:36:30.291]     if (base::is.na(TRUE)) {
  [21:36:30.291]     }
  [21:36:30.291]     else {
  [21:36:30.291]         if (TRUE) {
  [21:36:30.291]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.291]                 open = "w")
  [21:36:30.291]         }
  [21:36:30.291]         else {
  [21:36:30.291]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.291]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.291]         }
  [21:36:30.291]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.291]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.291]             base::sink(type = "output", split = FALSE)
  [21:36:30.291]             base::close(...future.stdout)
  [21:36:30.291]         }, add = TRUE)
  [21:36:30.291]     }
  [21:36:30.291]     ...future.frame <- base::sys.nframe()
  [21:36:30.291]     ...future.conditions <- base::list()
  [21:36:30.291]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.291]     ...future.result <- base::tryCatch({
  [21:36:30.291]         base::withCallingHandlers({
  [21:36:30.291]             ...future.value <- base::withVisible(base::local({
  [21:36:30.291]                 sample(x, size = 1L)
  [21:36:30.291]             }))
  [21:36:30.291]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.291]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.291]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.291]                 version = "1.8")
  [21:36:30.291]         }, condition = base::local({
  [21:36:30.291]             c <- base::c
  [21:36:30.291]             inherits <- base::inherits
  [21:36:30.291]             invokeRestart <- base::invokeRestart
  [21:36:30.291]             length <- base::length
  [21:36:30.291]             list <- base::list
  [21:36:30.291]             seq.int <- base::seq.int
  [21:36:30.291]             signalCondition <- base::signalCondition
  [21:36:30.291]             sys.calls <- base::sys.calls
  [21:36:30.291]             Sys.time <- base::Sys.time
  [21:36:30.291]             `[[` <- base::`[[`
  [21:36:30.291]             `+` <- base::`+`
  [21:36:30.291]             `<<-` <- base::`<<-`
  [21:36:30.291]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.291]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.291]                   3L)]
  [21:36:30.291]             }
  [21:36:30.291]             function(cond) {
  [21:36:30.291]                 if (inherits(cond, "error")) {
  [21:36:30.291]                   sessionInformation <- function() {
  [21:36:30.291]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.291]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.291]                       search = base::search(), system = base::Sys.info())
  [21:36:30.291]                   }
  [21:36:30.291]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.291]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.291]                     cond$call), session = sessionInformation(), 
  [21:36:30.291]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.291]                   signalCondition(cond)
  [21:36:30.291]                 }
  [21:36:30.291]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.291]                 ))) {
  [21:36:30.291]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.291]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.291]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.291]                   if (!signal) {
  [21:36:30.291]                     muffleCondition <- function (cond) 
  [21:36:30.291]                     {
  [21:36:30.291]                       inherits <- base::inherits
  [21:36:30.291]                       invokeRestart <- base::invokeRestart
  [21:36:30.291]                       muffled <- FALSE
  [21:36:30.291]                       if (inherits(cond, "message")) {
  [21:36:30.291]                         invokeRestart("muffleMessage")
  [21:36:30.291]                         muffled <- TRUE
  [21:36:30.291]                       }
  [21:36:30.291]                       else if (inherits(cond, "warning")) {
  [21:36:30.291]                         invokeRestart("muffleWarning")
  [21:36:30.291]                         muffled <- TRUE
  [21:36:30.291]                       }
  [21:36:30.291]                       else if (inherits(cond, "condition")) {
  [21:36:30.291]                         computeRestarts <- base::computeRestarts
  [21:36:30.291]                         grepl <- base::grepl
  [21:36:30.291]                         is.null <- base::is.null
  [21:36:30.291]                         restarts <- computeRestarts(cond)
  [21:36:30.291]                         for (restart in restarts) {
  [21:36:30.291]                           name <- restart$name
  [21:36:30.291]                           if (is.null(name)) 
  [21:36:30.291]                             next
  [21:36:30.291]                           if (!grepl("^muffle", name)) 
  [21:36:30.291]                             next
  [21:36:30.291]                           invokeRestart(restart)
  [21:36:30.291]                           muffled <- TRUE
  [21:36:30.291]                           break
  [21:36:30.291]                         }
  [21:36:30.291]                       }
  [21:36:30.291]                       invisible(muffled)
  [21:36:30.291]                     }
  [21:36:30.291]                     muffleCondition(cond)
  [21:36:30.291]                   }
  [21:36:30.291]                 }
  [21:36:30.291]             }
  [21:36:30.291]         }))
  [21:36:30.291]     }, error = function(ex) {
  [21:36:30.291]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.291]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.291]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.291]     }, finally = {
  [21:36:30.291]         {
  [21:36:30.291]             NULL
  [21:36:30.291]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.291]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.291]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.291]                 label = NULL, ...) 
  [21:36:30.291]             {
  [21:36:30.291]                 if (substitute) 
  [21:36:30.291]                   expr <- substitute(expr)
  [21:36:30.291]                 local <- as.logical(local)
  [21:36:30.291]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.291]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.291]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.291]                   label = label, ...)
  [21:36:30.291]                 if (!future$lazy) 
  [21:36:30.291]                   future <- run(future)
  [21:36:30.291]                 invisible(future)
  [21:36:30.291]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.291]         }
  [21:36:30.291]         base::options(...future.oldOptions)
  [21:36:30.291]     })
  [21:36:30.291]     Sys.time
  [21:36:30.291]     if (base::is.na(TRUE)) {
  [21:36:30.291]     }
  [21:36:30.291]     else {
  [21:36:30.291]         base::sink(type = "output", split = FALSE)
  [21:36:30.291]         if (TRUE) {
  [21:36:30.291]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.291]         }
  [21:36:30.291]         else {
  [21:36:30.291]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.291]         }
  [21:36:30.291]         base::close(...future.stdout)
  [21:36:30.291]         ...future.stdout <- NULL
  [21:36:30.291]     }
  [21:36:30.291]     ...future.result$conditions <- ...future.conditions
  [21:36:30.291]     ...future.result
  [21:36:30.291] }
  [21:36:30.300] plan(): Setting new future strategy stack:
  [21:36:30.300] List of future strategies:
  [21:36:30.300] 1. sequential:
  [21:36:30.300]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.300]    - tweaked: FALSE
  [21:36:30.300]    - call: NULL
  [21:36:30.301] plan(): nbrOfWorkers() = 1
  [21:36:30.302] plan(): Setting new future strategy stack:
  [21:36:30.303] List of future strategies:
  [21:36:30.303] 1. sequential:
  [21:36:30.303]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.303]    - tweaked: FALSE
  [21:36:30.303]    - call: plan(strategy)
  [21:36:30.304] plan(): nbrOfWorkers() = 1
  [21:36:30.304] SequentialFuture started (and completed)
  [21:36:30.305] getGlobalsAndPackages() ...
  [21:36:30.306] Searching for globals...
  [21:36:30.324] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.324] Searching for globals ... DONE
  [21:36:30.325] Resolving globals: FALSE
  [21:36:30.325] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.326] - globals: [1] 'x'
  [21:36:30.326] 
  [21:36:30.327] getGlobalsAndPackages() ... DONE
  [21:36:30.328] Packages needed by the future expression (n = 0): <none>
  [21:36:30.329] Packages needed by future strategies (n = 0): <none>
  [21:36:30.333] {
  [21:36:30.333]     {
  [21:36:30.333]         ...future.startTime <- base::Sys.time()
  [21:36:30.333]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.333]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.333]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.333]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.333]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.333]         {
  [21:36:30.333]             {
  [21:36:30.333]                 {
  [21:36:30.333]                   base::local({
  [21:36:30.333]                     has_future <- base::requireNamespace("future", 
  [21:36:30.333]                       quietly = TRUE)
  [21:36:30.333]                     version <- if (has_future) 
  [21:36:30.333]                       utils::packageVersion("future")
  [21:36:30.333]                     else NULL
  [21:36:30.333]                     if (!has_future || version < "1.8.0") {
  [21:36:30.333]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.333]                         "", base::R.version$version.string), 
  [21:36:30.333]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.333]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.333]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.333]                           "release", "version")], collapse = " "), 
  [21:36:30.333]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.333]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.333]                         info)
  [21:36:30.333]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.333]                       if (!has_future) {
  [21:36:30.333]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.333]                           info)
  [21:36:30.333]                       }
  [21:36:30.333]                       else {
  [21:36:30.333]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.333]                           info, version)
  [21:36:30.333]                       }
  [21:36:30.333]                       base::stop(msg)
  [21:36:30.333]                     }
  [21:36:30.333]                   })
  [21:36:30.333]                 }
  [21:36:30.333]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:30.333]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:30.333]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.333]             }
  [21:36:30.333]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.333]         }
  [21:36:30.333]     }
  [21:36:30.333]     if (base::is.na(TRUE)) {
  [21:36:30.333]     }
  [21:36:30.333]     else {
  [21:36:30.333]         if (TRUE) {
  [21:36:30.333]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.333]                 open = "w")
  [21:36:30.333]         }
  [21:36:30.333]         else {
  [21:36:30.333]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.333]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.333]         }
  [21:36:30.333]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.333]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.333]             base::sink(type = "output", split = FALSE)
  [21:36:30.333]             base::close(...future.stdout)
  [21:36:30.333]         }, add = TRUE)
  [21:36:30.333]     }
  [21:36:30.333]     ...future.frame <- base::sys.nframe()
  [21:36:30.333]     ...future.conditions <- base::list()
  [21:36:30.333]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.333]     ...future.result <- base::tryCatch({
  [21:36:30.333]         base::withCallingHandlers({
  [21:36:30.333]             ...future.value <- base::withVisible(base::local({
  [21:36:30.333]                 sample(x, size = 1L)
  [21:36:30.333]             }))
  [21:36:30.333]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.333]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.333]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.333]                 version = "1.8")
  [21:36:30.333]         }, condition = base::local({
  [21:36:30.333]             c <- base::c
  [21:36:30.333]             inherits <- base::inherits
  [21:36:30.333]             invokeRestart <- base::invokeRestart
  [21:36:30.333]             length <- base::length
  [21:36:30.333]             list <- base::list
  [21:36:30.333]             seq.int <- base::seq.int
  [21:36:30.333]             signalCondition <- base::signalCondition
  [21:36:30.333]             sys.calls <- base::sys.calls
  [21:36:30.333]             Sys.time <- base::Sys.time
  [21:36:30.333]             `[[` <- base::`[[`
  [21:36:30.333]             `+` <- base::`+`
  [21:36:30.333]             `<<-` <- base::`<<-`
  [21:36:30.333]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.333]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.333]                   3L)]
  [21:36:30.333]             }
  [21:36:30.333]             function(cond) {
  [21:36:30.333]                 if (inherits(cond, "error")) {
  [21:36:30.333]                   sessionInformation <- function() {
  [21:36:30.333]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.333]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.333]                       search = base::search(), system = base::Sys.info())
  [21:36:30.333]                   }
  [21:36:30.333]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.333]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.333]                     cond$call), session = sessionInformation(), 
  [21:36:30.333]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.333]                   signalCondition(cond)
  [21:36:30.333]                 }
  [21:36:30.333]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.333]                 ))) {
  [21:36:30.333]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.333]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.333]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.333]                   if (!signal) {
  [21:36:30.333]                     muffleCondition <- function (cond) 
  [21:36:30.333]                     {
  [21:36:30.333]                       inherits <- base::inherits
  [21:36:30.333]                       invokeRestart <- base::invokeRestart
  [21:36:30.333]                       muffled <- FALSE
  [21:36:30.333]                       if (inherits(cond, "message")) {
  [21:36:30.333]                         invokeRestart("muffleMessage")
  [21:36:30.333]                         muffled <- TRUE
  [21:36:30.333]                       }
  [21:36:30.333]                       else if (inherits(cond, "warning")) {
  [21:36:30.333]                         invokeRestart("muffleWarning")
  [21:36:30.333]                         muffled <- TRUE
  [21:36:30.333]                       }
  [21:36:30.333]                       else if (inherits(cond, "condition")) {
  [21:36:30.333]                         computeRestarts <- base::computeRestarts
  [21:36:30.333]                         grepl <- base::grepl
  [21:36:30.333]                         is.null <- base::is.null
  [21:36:30.333]                         restarts <- computeRestarts(cond)
  [21:36:30.333]                         for (restart in restarts) {
  [21:36:30.333]                           name <- restart$name
  [21:36:30.333]                           if (is.null(name)) 
  [21:36:30.333]                             next
  [21:36:30.333]                           if (!grepl("^muffle", name)) 
  [21:36:30.333]                             next
  [21:36:30.333]                           invokeRestart(restart)
  [21:36:30.333]                           muffled <- TRUE
  [21:36:30.333]                           break
  [21:36:30.333]                         }
  [21:36:30.333]                       }
  [21:36:30.333]                       invisible(muffled)
  [21:36:30.333]                     }
  [21:36:30.333]                     muffleCondition(cond)
  [21:36:30.333]                   }
  [21:36:30.333]                 }
  [21:36:30.333]             }
  [21:36:30.333]         }))
  [21:36:30.333]     }, error = function(ex) {
  [21:36:30.333]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.333]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.333]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.333]     }, finally = {
  [21:36:30.333]         {
  [21:36:30.333]             NULL
  [21:36:30.333]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.333]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.333]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.333]                 label = NULL, ...) 
  [21:36:30.333]             {
  [21:36:30.333]                 if (substitute) 
  [21:36:30.333]                   expr <- substitute(expr)
  [21:36:30.333]                 local <- as.logical(local)
  [21:36:30.333]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.333]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.333]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.333]                   label = label, ...)
  [21:36:30.333]                 if (!future$lazy) 
  [21:36:30.333]                   future <- run(future)
  [21:36:30.333]                 invisible(future)
  [21:36:30.333]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.333]         }
  [21:36:30.333]         base::options(...future.oldOptions)
  [21:36:30.333]     })
  [21:36:30.333]     Sys.time
  [21:36:30.333]     if (base::is.na(TRUE)) {
  [21:36:30.333]     }
  [21:36:30.333]     else {
  [21:36:30.333]         base::sink(type = "output", split = FALSE)
  [21:36:30.333]         if (TRUE) {
  [21:36:30.333]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.333]         }
  [21:36:30.333]         else {
  [21:36:30.333]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.333]         }
  [21:36:30.333]         base::close(...future.stdout)
  [21:36:30.333]         ...future.stdout <- NULL
  [21:36:30.333]     }
  [21:36:30.333]     ...future.result$conditions <- ...future.conditions
  [21:36:30.333]     ...future.result
  [21:36:30.333] }
  [21:36:30.354] plan(): Setting new future strategy stack:
  [21:36:30.354] List of future strategies:
  [21:36:30.354] 1. sequential:
  [21:36:30.354]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.354]    - tweaked: FALSE
  [21:36:30.354]    - call: NULL
  [21:36:30.355] plan(): nbrOfWorkers() = 1
  [21:36:30.356] plan(): Setting new future strategy stack:
  [21:36:30.357] List of future strategies:
  [21:36:30.357] 1. sequential:
  [21:36:30.357]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.357]    - tweaked: FALSE
  [21:36:30.357]    - call: plan(strategy)
  [21:36:30.358] plan(): nbrOfWorkers() = 1
  [21:36:30.358] SequentialFuture started (and completed)
  [21:36:30.359] getGlobalsAndPackages() ...
  [21:36:30.359] Searching for globals...
  [21:36:30.361] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.362] Searching for globals ... DONE
  [21:36:30.362] Resolving globals: FALSE
  [21:36:30.363] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.363] - globals: [1] 'x'
  [21:36:30.363] 
  [21:36:30.364] getGlobalsAndPackages() ... DONE
  [21:36:30.366] Packages needed by the future expression (n = 0): <none>
  [21:36:30.366] Packages needed by future strategies (n = 0): <none>
  [21:36:30.386] {
  [21:36:30.386]     {
  [21:36:30.386]         ...future.startTime <- base::Sys.time()
  [21:36:30.386]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.386]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.386]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.386]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.386]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.386]         {
  [21:36:30.386]             {
  [21:36:30.386]                 {
  [21:36:30.386]                   base::local({
  [21:36:30.386]                     has_future <- base::requireNamespace("future", 
  [21:36:30.386]                       quietly = TRUE)
  [21:36:30.386]                     version <- if (has_future) 
  [21:36:30.386]                       utils::packageVersion("future")
  [21:36:30.386]                     else NULL
  [21:36:30.386]                     if (!has_future || version < "1.8.0") {
  [21:36:30.386]                       info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.386]                         "", base::R.version$version.string), 
  [21:36:30.386]                         platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.386]                           base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.386]                         os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.386]                           "release", "version")], collapse = " "), 
  [21:36:30.386]                         hostname = base::Sys.info()[["nodename"]])
  [21:36:30.386]                       info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.386]                         info)
  [21:36:30.386]                       info <- base::paste(info, collapse = "; ")
  [21:36:30.386]                       if (!has_future) {
  [21:36:30.386]                         msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.386]                           info)
  [21:36:30.386]                       }
  [21:36:30.386]                       else {
  [21:36:30.386]                         msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.386]                           info, version)
  [21:36:30.386]                       }
  [21:36:30.386]                       base::stop(msg)
  [21:36:30.386]                     }
  [21:36:30.386]                   })
  [21:36:30.386]                 }
  [21:36:30.386]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:30.386]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:30.386]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:30.386]             }
  [21:36:30.386]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.386]         }
  [21:36:30.386]     }
  [21:36:30.386]     if (base::is.na(TRUE)) {
  [21:36:30.386]     }
  [21:36:30.386]     else {
  [21:36:30.386]         if (TRUE) {
  [21:36:30.386]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.386]                 open = "w")
  [21:36:30.386]         }
  [21:36:30.386]         else {
  [21:36:30.386]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.386]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.386]         }
  [21:36:30.386]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.386]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.386]             base::sink(type = "output", split = FALSE)
  [21:36:30.386]             base::close(...future.stdout)
  [21:36:30.386]         }, add = TRUE)
  [21:36:30.386]     }
  [21:36:30.386]     ...future.frame <- base::sys.nframe()
  [21:36:30.386]     ...future.conditions <- base::list()
  [21:36:30.386]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.386]     ...future.result <- base::tryCatch({
  [21:36:30.386]         base::withCallingHandlers({
  [21:36:30.386]             ...future.value <- base::withVisible(base::local({
  [21:36:30.386]                 sample(x, size = 1L)
  [21:36:30.386]             }))
  [21:36:30.386]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.386]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.386]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.386]                 version = "1.8")
  [21:36:30.386]         }, condition = base::local({
  [21:36:30.386]             c <- base::c
  [21:36:30.386]             inherits <- base::inherits
  [21:36:30.386]             invokeRestart <- base::invokeRestart
  [21:36:30.386]             length <- base::length
  [21:36:30.386]             list <- base::list
  [21:36:30.386]             seq.int <- base::seq.int
  [21:36:30.386]             signalCondition <- base::signalCondition
  [21:36:30.386]             sys.calls <- base::sys.calls
  [21:36:30.386]             Sys.time <- base::Sys.time
  [21:36:30.386]             `[[` <- base::`[[`
  [21:36:30.386]             `+` <- base::`+`
  [21:36:30.386]             `<<-` <- base::`<<-`
  [21:36:30.386]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.386]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.386]                   3L)]
  [21:36:30.386]             }
  [21:36:30.386]             function(cond) {
  [21:36:30.386]                 if (inherits(cond, "error")) {
  [21:36:30.386]                   sessionInformation <- function() {
  [21:36:30.386]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.386]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.386]                       search = base::search(), system = base::Sys.info())
  [21:36:30.386]                   }
  [21:36:30.386]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.386]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.386]                     cond$call), session = sessionInformation(), 
  [21:36:30.386]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.386]                   signalCondition(cond)
  [21:36:30.386]                 }
  [21:36:30.386]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.386]                 ))) {
  [21:36:30.386]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.386]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.386]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.386]                   if (!signal) {
  [21:36:30.386]                     muffleCondition <- function (cond) 
  [21:36:30.386]                     {
  [21:36:30.386]                       inherits <- base::inherits
  [21:36:30.386]                       invokeRestart <- base::invokeRestart
  [21:36:30.386]                       muffled <- FALSE
  [21:36:30.386]                       if (inherits(cond, "message")) {
  [21:36:30.386]                         invokeRestart("muffleMessage")
  [21:36:30.386]                         muffled <- TRUE
  [21:36:30.386]                       }
  [21:36:30.386]                       else if (inherits(cond, "warning")) {
  [21:36:30.386]                         invokeRestart("muffleWarning")
  [21:36:30.386]                         muffled <- TRUE
  [21:36:30.386]                       }
  [21:36:30.386]                       else if (inherits(cond, "condition")) {
  [21:36:30.386]                         computeRestarts <- base::computeRestarts
  [21:36:30.386]                         grepl <- base::grepl
  [21:36:30.386]                         is.null <- base::is.null
  [21:36:30.386]                         restarts <- computeRestarts(cond)
  [21:36:30.386]                         for (restart in restarts) {
  [21:36:30.386]                           name <- restart$name
  [21:36:30.386]                           if (is.null(name)) 
  [21:36:30.386]                             next
  [21:36:30.386]                           if (!grepl("^muffle", name)) 
  [21:36:30.386]                             next
  [21:36:30.386]                           invokeRestart(restart)
  [21:36:30.386]                           muffled <- TRUE
  [21:36:30.386]                           break
  [21:36:30.386]                         }
  [21:36:30.386]                       }
  [21:36:30.386]                       invisible(muffled)
  [21:36:30.386]                     }
  [21:36:30.386]                     muffleCondition(cond)
  [21:36:30.386]                   }
  [21:36:30.386]                 }
  [21:36:30.386]             }
  [21:36:30.386]         }))
  [21:36:30.386]     }, error = function(ex) {
  [21:36:30.386]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.386]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.386]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.386]     }, finally = {
  [21:36:30.386]         {
  [21:36:30.386]             NULL
  [21:36:30.386]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.386]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.386]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.386]                 label = NULL, ...) 
  [21:36:30.386]             {
  [21:36:30.386]                 if (substitute) 
  [21:36:30.386]                   expr <- substitute(expr)
  [21:36:30.386]                 local <- as.logical(local)
  [21:36:30.386]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.386]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.386]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.386]                   label = label, ...)
  [21:36:30.386]                 if (!future$lazy) 
  [21:36:30.386]                   future <- run(future)
  [21:36:30.386]                 invisible(future)
  [21:36:30.386]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.386]         }
  [21:36:30.386]         base::options(...future.oldOptions)
  [21:36:30.386]     })
  [21:36:30.386]     Sys.time
  [21:36:30.386]     if (base::is.na(TRUE)) {
  [21:36:30.386]     }
  [21:36:30.386]     else {
  [21:36:30.386]         base::sink(type = "output", split = FALSE)
  [21:36:30.386]         if (TRUE) {
  [21:36:30.386]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.386]         }
  [21:36:30.386]         else {
  [21:36:30.386]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.386]         }
  [21:36:30.386]         base::close(...future.stdout)
  [21:36:30.386]         ...future.stdout <- NULL
  [21:36:30.386]     }
  [21:36:30.386]     ...future.result$conditions <- ...future.conditions
  [21:36:30.386]     ...future.result
  [21:36:30.386] }
  [21:36:30.391] plan(): Setting new future strategy stack:
  [21:36:30.391] List of future strategies:
  [21:36:30.391] 1. sequential:
  [21:36:30.391]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.391]    - tweaked: FALSE
  [21:36:30.391]    - call: NULL
  [21:36:30.392] plan(): nbrOfWorkers() = 1
  [21:36:30.393] plan(): Setting new future strategy stack:
  [21:36:30.393] List of future strategies:
  [21:36:30.393] 1. sequential:
  [21:36:30.393]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.393]    - tweaked: FALSE
  [21:36:30.393]    - call: plan(strategy)
  [21:36:30.394] plan(): nbrOfWorkers() = 1
  [21:36:30.395] SequentialFuture started (and completed)
  [[1]]
  [1] 2
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 1
  
  [21:36:30.397] getGlobalsAndPackages() ...
  [21:36:30.397] Searching for globals...
  [21:36:30.399] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.399] Searching for globals ... DONE
  [21:36:30.400] Resolving globals: FALSE
  [21:36:30.401] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.401] - globals: [1] 'x'
  [21:36:30.401] 
  [21:36:30.422] getGlobalsAndPackages() ... DONE
  [21:36:30.424] Packages needed by the future expression (n = 0): <none>
  [21:36:30.424] Packages needed by future strategies (n = 0): <none>
  [21:36:30.432] {
  [21:36:30.432]     {
  [21:36:30.432]         ...future.startTime <- base::Sys.time()
  [21:36:30.432]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.432]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.432]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.432]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.432]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.432]         {
  [21:36:30.432]             {
  [21:36:30.432]                 base::local({
  [21:36:30.432]                   has_future <- base::requireNamespace("future", 
  [21:36:30.432]                     quietly = TRUE)
  [21:36:30.432]                   version <- if (has_future) 
  [21:36:30.432]                     utils::packageVersion("future")
  [21:36:30.432]                   else NULL
  [21:36:30.432]                   if (!has_future || version < "1.8.0") {
  [21:36:30.432]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.432]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.432]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.432]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.432]                         "release", "version")], collapse = " "), 
  [21:36:30.432]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.432]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.432]                       info)
  [21:36:30.432]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.432]                     if (!has_future) {
  [21:36:30.432]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.432]                         info)
  [21:36:30.432]                     }
  [21:36:30.432]                     else {
  [21:36:30.432]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.432]                         info, version)
  [21:36:30.432]                     }
  [21:36:30.432]                     base::stop(msg)
  [21:36:30.432]                   }
  [21:36:30.432]                 })
  [21:36:30.432]             }
  [21:36:30.432]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.432]         }
  [21:36:30.432]     }
  [21:36:30.432]     if (base::is.na(TRUE)) {
  [21:36:30.432]     }
  [21:36:30.432]     else {
  [21:36:30.432]         if (TRUE) {
  [21:36:30.432]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.432]                 open = "w")
  [21:36:30.432]         }
  [21:36:30.432]         else {
  [21:36:30.432]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.432]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.432]         }
  [21:36:30.432]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.432]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.432]             base::sink(type = "output", split = FALSE)
  [21:36:30.432]             base::close(...future.stdout)
  [21:36:30.432]         }, add = TRUE)
  [21:36:30.432]     }
  [21:36:30.432]     ...future.frame <- base::sys.nframe()
  [21:36:30.432]     ...future.conditions <- base::list()
  [21:36:30.432]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.432]     ...future.result <- base::tryCatch({
  [21:36:30.432]         base::withCallingHandlers({
  [21:36:30.432]             ...future.value <- base::withVisible(base::local({
  [21:36:30.432]                 sample(x, size = 1L)
  [21:36:30.432]             }))
  [21:36:30.432]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.432]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.432]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.432]                 version = "1.8")
  [21:36:30.432]         }, condition = base::local({
  [21:36:30.432]             c <- base::c
  [21:36:30.432]             inherits <- base::inherits
  [21:36:30.432]             invokeRestart <- base::invokeRestart
  [21:36:30.432]             length <- base::length
  [21:36:30.432]             list <- base::list
  [21:36:30.432]             seq.int <- base::seq.int
  [21:36:30.432]             signalCondition <- base::signalCondition
  [21:36:30.432]             sys.calls <- base::sys.calls
  [21:36:30.432]             Sys.time <- base::Sys.time
  [21:36:30.432]             `[[` <- base::`[[`
  [21:36:30.432]             `+` <- base::`+`
  [21:36:30.432]             `<<-` <- base::`<<-`
  [21:36:30.432]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.432]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.432]                   3L)]
  [21:36:30.432]             }
  [21:36:30.432]             function(cond) {
  [21:36:30.432]                 if (inherits(cond, "error")) {
  [21:36:30.432]                   sessionInformation <- function() {
  [21:36:30.432]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.432]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.432]                       search = base::search(), system = base::Sys.info())
  [21:36:30.432]                   }
  [21:36:30.432]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.432]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.432]                     cond$call), session = sessionInformation(), 
  [21:36:30.432]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.432]                   signalCondition(cond)
  [21:36:30.432]                 }
  [21:36:30.432]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.432]                 ))) {
  [21:36:30.432]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.432]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.432]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.432]                   if (!signal) {
  [21:36:30.432]                     muffleCondition <- function (cond) 
  [21:36:30.432]                     {
  [21:36:30.432]                       inherits <- base::inherits
  [21:36:30.432]                       invokeRestart <- base::invokeRestart
  [21:36:30.432]                       muffled <- FALSE
  [21:36:30.432]                       if (inherits(cond, "message")) {
  [21:36:30.432]                         invokeRestart("muffleMessage")
  [21:36:30.432]                         muffled <- TRUE
  [21:36:30.432]                       }
  [21:36:30.432]                       else if (inherits(cond, "warning")) {
  [21:36:30.432]                         invokeRestart("muffleWarning")
  [21:36:30.432]                         muffled <- TRUE
  [21:36:30.432]                       }
  [21:36:30.432]                       else if (inherits(cond, "condition")) {
  [21:36:30.432]                         computeRestarts <- base::computeRestarts
  [21:36:30.432]                         grepl <- base::grepl
  [21:36:30.432]                         is.null <- base::is.null
  [21:36:30.432]                         restarts <- computeRestarts(cond)
  [21:36:30.432]                         for (restart in restarts) {
  [21:36:30.432]                           name <- restart$name
  [21:36:30.432]                           if (is.null(name)) 
  [21:36:30.432]                             next
  [21:36:30.432]                           if (!grepl("^muffle", name)) 
  [21:36:30.432]                             next
  [21:36:30.432]                           invokeRestart(restart)
  [21:36:30.432]                           muffled <- TRUE
  [21:36:30.432]                           break
  [21:36:30.432]                         }
  [21:36:30.432]                       }
  [21:36:30.432]                       invisible(muffled)
  [21:36:30.432]                     }
  [21:36:30.432]                     muffleCondition(cond)
  [21:36:30.432]                   }
  [21:36:30.432]                 }
  [21:36:30.432]             }
  [21:36:30.432]         }))
  [21:36:30.432]     }, error = function(ex) {
  [21:36:30.432]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.432]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.432]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.432]     }, finally = {
  [21:36:30.432]         {
  [21:36:30.432]             NULL
  [21:36:30.432]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.432]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.432]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.432]                 label = NULL, ...) 
  [21:36:30.432]             {
  [21:36:30.432]                 if (substitute) 
  [21:36:30.432]                   expr <- substitute(expr)
  [21:36:30.432]                 local <- as.logical(local)
  [21:36:30.432]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.432]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.432]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.432]                   label = label, ...)
  [21:36:30.432]                 if (!future$lazy) 
  [21:36:30.432]                   future <- run(future)
  [21:36:30.432]                 invisible(future)
  [21:36:30.432]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.432]         }
  [21:36:30.432]         base::options(...future.oldOptions)
  [21:36:30.432]     })
  [21:36:30.432]     Sys.time
  [21:36:30.432]     if (base::is.na(TRUE)) {
  [21:36:30.432]     }
  [21:36:30.432]     else {
  [21:36:30.432]         base::sink(type = "output", split = FALSE)
  [21:36:30.432]         if (TRUE) {
  [21:36:30.432]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.432]         }
  [21:36:30.432]         else {
  [21:36:30.432]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.432]         }
  [21:36:30.432]         base::close(...future.stdout)
  [21:36:30.432]         ...future.stdout <- NULL
  [21:36:30.432]     }
  [21:36:30.432]     ...future.result$conditions <- ...future.conditions
  [21:36:30.432]     ...future.result
  [21:36:30.432] }
  [21:36:30.436] plan(): Setting new future strategy stack:
  [21:36:30.437] List of future strategies:
  [21:36:30.437] 1. sequential:
  [21:36:30.437]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.437]    - tweaked: FALSE
  [21:36:30.437]    - call: NULL
  [21:36:30.447] plan(): nbrOfWorkers() = 1
  [21:36:30.448] plan(): Setting new future strategy stack:
  [21:36:30.448] List of future strategies:
  [21:36:30.448] 1. sequential:
  [21:36:30.448]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.448]    - tweaked: FALSE
  [21:36:30.448]    - call: plan(strategy)
  [21:36:30.449] plan(): nbrOfWorkers() = 1
  [21:36:30.450] SequentialFuture started (and completed)
  [21:36:30.451] getGlobalsAndPackages() ...
  [21:36:30.451] Searching for globals...
  [21:36:30.453] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.453] Searching for globals ... DONE
  [21:36:30.454] Resolving globals: FALSE
  [21:36:30.455] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.455] - globals: [1] 'x'
  [21:36:30.455] 
  [21:36:30.456] getGlobalsAndPackages() ... DONE
  [21:36:30.457] Packages needed by the future expression (n = 0): <none>
  [21:36:30.458] Packages needed by future strategies (n = 0): <none>
  [21:36:30.478] {
  [21:36:30.478]     {
  [21:36:30.478]         ...future.startTime <- base::Sys.time()
  [21:36:30.478]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.478]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.478]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.478]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.478]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.478]         {
  [21:36:30.478]             {
  [21:36:30.478]                 base::local({
  [21:36:30.478]                   has_future <- base::requireNamespace("future", 
  [21:36:30.478]                     quietly = TRUE)
  [21:36:30.478]                   version <- if (has_future) 
  [21:36:30.478]                     utils::packageVersion("future")
  [21:36:30.478]                   else NULL
  [21:36:30.478]                   if (!has_future || version < "1.8.0") {
  [21:36:30.478]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.478]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.478]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.478]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.478]                         "release", "version")], collapse = " "), 
  [21:36:30.478]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.478]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.478]                       info)
  [21:36:30.478]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.478]                     if (!has_future) {
  [21:36:30.478]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.478]                         info)
  [21:36:30.478]                     }
  [21:36:30.478]                     else {
  [21:36:30.478]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.478]                         info, version)
  [21:36:30.478]                     }
  [21:36:30.478]                     base::stop(msg)
  [21:36:30.478]                   }
  [21:36:30.478]                 })
  [21:36:30.478]             }
  [21:36:30.478]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.478]         }
  [21:36:30.478]     }
  [21:36:30.478]     if (base::is.na(TRUE)) {
  [21:36:30.478]     }
  [21:36:30.478]     else {
  [21:36:30.478]         if (TRUE) {
  [21:36:30.478]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.478]                 open = "w")
  [21:36:30.478]         }
  [21:36:30.478]         else {
  [21:36:30.478]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.478]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.478]         }
  [21:36:30.478]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.478]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.478]             base::sink(type = "output", split = FALSE)
  [21:36:30.478]             base::close(...future.stdout)
  [21:36:30.478]         }, add = TRUE)
  [21:36:30.478]     }
  [21:36:30.478]     ...future.frame <- base::sys.nframe()
  [21:36:30.478]     ...future.conditions <- base::list()
  [21:36:30.478]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.478]     ...future.result <- base::tryCatch({
  [21:36:30.478]         base::withCallingHandlers({
  [21:36:30.478]             ...future.value <- base::withVisible(base::local({
  [21:36:30.478]                 sample(x, size = 1L)
  [21:36:30.478]             }))
  [21:36:30.478]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.478]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.478]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.478]                 version = "1.8")
  [21:36:30.478]         }, condition = base::local({
  [21:36:30.478]             c <- base::c
  [21:36:30.478]             inherits <- base::inherits
  [21:36:30.478]             invokeRestart <- base::invokeRestart
  [21:36:30.478]             length <- base::length
  [21:36:30.478]             list <- base::list
  [21:36:30.478]             seq.int <- base::seq.int
  [21:36:30.478]             signalCondition <- base::signalCondition
  [21:36:30.478]             sys.calls <- base::sys.calls
  [21:36:30.478]             Sys.time <- base::Sys.time
  [21:36:30.478]             `[[` <- base::`[[`
  [21:36:30.478]             `+` <- base::`+`
  [21:36:30.478]             `<<-` <- base::`<<-`
  [21:36:30.478]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.478]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.478]                   3L)]
  [21:36:30.478]             }
  [21:36:30.478]             function(cond) {
  [21:36:30.478]                 if (inherits(cond, "error")) {
  [21:36:30.478]                   sessionInformation <- function() {
  [21:36:30.478]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.478]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.478]                       search = base::search(), system = base::Sys.info())
  [21:36:30.478]                   }
  [21:36:30.478]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.478]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.478]                     cond$call), session = sessionInformation(), 
  [21:36:30.478]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.478]                   signalCondition(cond)
  [21:36:30.478]                 }
  [21:36:30.478]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.478]                 ))) {
  [21:36:30.478]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.478]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.478]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.478]                   if (!signal) {
  [21:36:30.478]                     muffleCondition <- function (cond) 
  [21:36:30.478]                     {
  [21:36:30.478]                       inherits <- base::inherits
  [21:36:30.478]                       invokeRestart <- base::invokeRestart
  [21:36:30.478]                       muffled <- FALSE
  [21:36:30.478]                       if (inherits(cond, "message")) {
  [21:36:30.478]                         invokeRestart("muffleMessage")
  [21:36:30.478]                         muffled <- TRUE
  [21:36:30.478]                       }
  [21:36:30.478]                       else if (inherits(cond, "warning")) {
  [21:36:30.478]                         invokeRestart("muffleWarning")
  [21:36:30.478]                         muffled <- TRUE
  [21:36:30.478]                       }
  [21:36:30.478]                       else if (inherits(cond, "condition")) {
  [21:36:30.478]                         computeRestarts <- base::computeRestarts
  [21:36:30.478]                         grepl <- base::grepl
  [21:36:30.478]                         is.null <- base::is.null
  [21:36:30.478]                         restarts <- computeRestarts(cond)
  [21:36:30.478]                         for (restart in restarts) {
  [21:36:30.478]                           name <- restart$name
  [21:36:30.478]                           if (is.null(name)) 
  [21:36:30.478]                             next
  [21:36:30.478]                           if (!grepl("^muffle", name)) 
  [21:36:30.478]                             next
  [21:36:30.478]                           invokeRestart(restart)
  [21:36:30.478]                           muffled <- TRUE
  [21:36:30.478]                           break
  [21:36:30.478]                         }
  [21:36:30.478]                       }
  [21:36:30.478]                       invisible(muffled)
  [21:36:30.478]                     }
  [21:36:30.478]                     muffleCondition(cond)
  [21:36:30.478]                   }
  [21:36:30.478]                 }
  [21:36:30.478]             }
  [21:36:30.478]         }))
  [21:36:30.478]     }, error = function(ex) {
  [21:36:30.478]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.478]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.478]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.478]     }, finally = {
  [21:36:30.478]         {
  [21:36:30.478]             NULL
  [21:36:30.478]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.478]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.478]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.478]                 label = NULL, ...) 
  [21:36:30.478]             {
  [21:36:30.478]                 if (substitute) 
  [21:36:30.478]                   expr <- substitute(expr)
  [21:36:30.478]                 local <- as.logical(local)
  [21:36:30.478]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.478]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.478]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.478]                   label = label, ...)
  [21:36:30.478]                 if (!future$lazy) 
  [21:36:30.478]                   future <- run(future)
  [21:36:30.478]                 invisible(future)
  [21:36:30.478]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.478]         }
  [21:36:30.478]         base::options(...future.oldOptions)
  [21:36:30.478]     })
  [21:36:30.478]     Sys.time
  [21:36:30.478]     if (base::is.na(TRUE)) {
  [21:36:30.478]     }
  [21:36:30.478]     else {
  [21:36:30.478]         base::sink(type = "output", split = FALSE)
  [21:36:30.478]         if (TRUE) {
  [21:36:30.478]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.478]         }
  [21:36:30.478]         else {
  [21:36:30.478]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.478]         }
  [21:36:30.478]         base::close(...future.stdout)
  [21:36:30.478]         ...future.stdout <- NULL
  [21:36:30.478]     }
  [21:36:30.478]     ...future.result$conditions <- ...future.conditions
  [21:36:30.478]     ...future.result
  [21:36:30.478] }
  [21:36:30.482] plan(): Setting new future strategy stack:
  [21:36:30.483] List of future strategies:
  [21:36:30.483] 1. sequential:
  [21:36:30.483]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.483]    - tweaked: FALSE
  [21:36:30.483]    - call: NULL
  [21:36:30.484] plan(): nbrOfWorkers() = 1
  [21:36:30.485] plan(): Setting new future strategy stack:
  [21:36:30.485] List of future strategies:
  [21:36:30.485] 1. sequential:
  [21:36:30.485]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.485]    - tweaked: FALSE
  [21:36:30.485]    - call: plan(strategy)
  [21:36:30.486] plan(): nbrOfWorkers() = 1
  [21:36:30.487] SequentialFuture started (and completed)
  [21:36:30.488] getGlobalsAndPackages() ...
  [21:36:30.488] Searching for globals...
  [21:36:30.490] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.491] Searching for globals ... DONE
  [21:36:30.491] Resolving globals: FALSE
  [21:36:30.492] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.492] - globals: [1] 'x'
  [21:36:30.493] 
  [21:36:30.493] getGlobalsAndPackages() ... DONE
  [21:36:30.498] Packages needed by the future expression (n = 0): <none>
  [21:36:30.499] Packages needed by future strategies (n = 0): <none>
  [21:36:30.503] {
  [21:36:30.503]     {
  [21:36:30.503]         ...future.startTime <- base::Sys.time()
  [21:36:30.503]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.503]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.503]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.503]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.503]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.503]         {
  [21:36:30.503]             {
  [21:36:30.503]                 base::local({
  [21:36:30.503]                   has_future <- base::requireNamespace("future", 
  [21:36:30.503]                     quietly = TRUE)
  [21:36:30.503]                   version <- if (has_future) 
  [21:36:30.503]                     utils::packageVersion("future")
  [21:36:30.503]                   else NULL
  [21:36:30.503]                   if (!has_future || version < "1.8.0") {
  [21:36:30.503]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.503]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.503]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.503]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.503]                         "release", "version")], collapse = " "), 
  [21:36:30.503]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.503]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.503]                       info)
  [21:36:30.503]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.503]                     if (!has_future) {
  [21:36:30.503]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.503]                         info)
  [21:36:30.503]                     }
  [21:36:30.503]                     else {
  [21:36:30.503]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.503]                         info, version)
  [21:36:30.503]                     }
  [21:36:30.503]                     base::stop(msg)
  [21:36:30.503]                   }
  [21:36:30.503]                 })
  [21:36:30.503]             }
  [21:36:30.503]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.503]         }
  [21:36:30.503]     }
  [21:36:30.503]     if (base::is.na(TRUE)) {
  [21:36:30.503]     }
  [21:36:30.503]     else {
  [21:36:30.503]         if (TRUE) {
  [21:36:30.503]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.503]                 open = "w")
  [21:36:30.503]         }
  [21:36:30.503]         else {
  [21:36:30.503]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.503]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.503]         }
  [21:36:30.503]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.503]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.503]             base::sink(type = "output", split = FALSE)
  [21:36:30.503]             base::close(...future.stdout)
  [21:36:30.503]         }, add = TRUE)
  [21:36:30.503]     }
  [21:36:30.503]     ...future.frame <- base::sys.nframe()
  [21:36:30.503]     ...future.conditions <- base::list()
  [21:36:30.503]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.503]     ...future.result <- base::tryCatch({
  [21:36:30.503]         base::withCallingHandlers({
  [21:36:30.503]             ...future.value <- base::withVisible(base::local({
  [21:36:30.503]                 sample(x, size = 1L)
  [21:36:30.503]             }))
  [21:36:30.503]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.503]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.503]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.503]                 version = "1.8")
  [21:36:30.503]         }, condition = base::local({
  [21:36:30.503]             c <- base::c
  [21:36:30.503]             inherits <- base::inherits
  [21:36:30.503]             invokeRestart <- base::invokeRestart
  [21:36:30.503]             length <- base::length
  [21:36:30.503]             list <- base::list
  [21:36:30.503]             seq.int <- base::seq.int
  [21:36:30.503]             signalCondition <- base::signalCondition
  [21:36:30.503]             sys.calls <- base::sys.calls
  [21:36:30.503]             Sys.time <- base::Sys.time
  [21:36:30.503]             `[[` <- base::`[[`
  [21:36:30.503]             `+` <- base::`+`
  [21:36:30.503]             `<<-` <- base::`<<-`
  [21:36:30.503]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.503]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.503]                   3L)]
  [21:36:30.503]             }
  [21:36:30.503]             function(cond) {
  [21:36:30.503]                 if (inherits(cond, "error")) {
  [21:36:30.503]                   sessionInformation <- function() {
  [21:36:30.503]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.503]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.503]                       search = base::search(), system = base::Sys.info())
  [21:36:30.503]                   }
  [21:36:30.503]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.503]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.503]                     cond$call), session = sessionInformation(), 
  [21:36:30.503]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.503]                   signalCondition(cond)
  [21:36:30.503]                 }
  [21:36:30.503]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.503]                 ))) {
  [21:36:30.503]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.503]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.503]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.503]                   if (!signal) {
  [21:36:30.503]                     muffleCondition <- function (cond) 
  [21:36:30.503]                     {
  [21:36:30.503]                       inherits <- base::inherits
  [21:36:30.503]                       invokeRestart <- base::invokeRestart
  [21:36:30.503]                       muffled <- FALSE
  [21:36:30.503]                       if (inherits(cond, "message")) {
  [21:36:30.503]                         invokeRestart("muffleMessage")
  [21:36:30.503]                         muffled <- TRUE
  [21:36:30.503]                       }
  [21:36:30.503]                       else if (inherits(cond, "warning")) {
  [21:36:30.503]                         invokeRestart("muffleWarning")
  [21:36:30.503]                         muffled <- TRUE
  [21:36:30.503]                       }
  [21:36:30.503]                       else if (inherits(cond, "condition")) {
  [21:36:30.503]                         computeRestarts <- base::computeRestarts
  [21:36:30.503]                         grepl <- base::grepl
  [21:36:30.503]                         is.null <- base::is.null
  [21:36:30.503]                         restarts <- computeRestarts(cond)
  [21:36:30.503]                         for (restart in restarts) {
  [21:36:30.503]                           name <- restart$name
  [21:36:30.503]                           if (is.null(name)) 
  [21:36:30.503]                             next
  [21:36:30.503]                           if (!grepl("^muffle", name)) 
  [21:36:30.503]                             next
  [21:36:30.503]                           invokeRestart(restart)
  [21:36:30.503]                           muffled <- TRUE
  [21:36:30.503]                           break
  [21:36:30.503]                         }
  [21:36:30.503]                       }
  [21:36:30.503]                       invisible(muffled)
  [21:36:30.503]                     }
  [21:36:30.503]                     muffleCondition(cond)
  [21:36:30.503]                   }
  [21:36:30.503]                 }
  [21:36:30.503]             }
  [21:36:30.503]         }))
  [21:36:30.503]     }, error = function(ex) {
  [21:36:30.503]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.503]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.503]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.503]     }, finally = {
  [21:36:30.503]         {
  [21:36:30.503]             NULL
  [21:36:30.503]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.503]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.503]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.503]                 label = NULL, ...) 
  [21:36:30.503]             {
  [21:36:30.503]                 if (substitute) 
  [21:36:30.503]                   expr <- substitute(expr)
  [21:36:30.503]                 local <- as.logical(local)
  [21:36:30.503]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.503]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.503]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.503]                   label = label, ...)
  [21:36:30.503]                 if (!future$lazy) 
  [21:36:30.503]                   future <- run(future)
  [21:36:30.503]                 invisible(future)
  [21:36:30.503]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.503]         }
  [21:36:30.503]         base::options(...future.oldOptions)
  [21:36:30.503]     })
  [21:36:30.503]     Sys.time
  [21:36:30.503]     if (base::is.na(TRUE)) {
  [21:36:30.503]     }
  [21:36:30.503]     else {
  [21:36:30.503]         base::sink(type = "output", split = FALSE)
  [21:36:30.503]         if (TRUE) {
  [21:36:30.503]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.503]         }
  [21:36:30.503]         else {
  [21:36:30.503]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.503]         }
  [21:36:30.503]         base::close(...future.stdout)
  [21:36:30.503]         ...future.stdout <- NULL
  [21:36:30.503]     }
  [21:36:30.503]     ...future.result$conditions <- ...future.conditions
  [21:36:30.503]     ...future.result
  [21:36:30.503] }
  [21:36:30.508] plan(): Setting new future strategy stack:
  [21:36:30.508] List of future strategies:
  [21:36:30.508] 1. sequential:
  [21:36:30.508]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.508]    - tweaked: FALSE
  [21:36:30.508]    - call: NULL
  [21:36:30.509] plan(): nbrOfWorkers() = 1
  [21:36:30.511] plan(): Setting new future strategy stack:
  [21:36:30.511] List of future strategies:
  [21:36:30.511] 1. sequential:
  [21:36:30.511]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.511]    - tweaked: FALSE
  [21:36:30.511]    - call: plan(strategy)
  [21:36:30.512] plan(): nbrOfWorkers() = 1
  [21:36:30.512] SequentialFuture started (and completed)
  [21:36:30.514] getGlobalsAndPackages() ...
  [21:36:30.514] Searching for globals...
  [21:36:30.516] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.516] Searching for globals ... DONE
  [21:36:30.517] Resolving globals: FALSE
  [21:36:30.517] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.518] - globals: [1] 'x'
  [21:36:30.518] 
  [21:36:30.519] getGlobalsAndPackages() ... DONE
  [21:36:30.520] Packages needed by the future expression (n = 0): <none>
  [21:36:30.521] Packages needed by future strategies (n = 0): <none>
  [21:36:30.565] {
  [21:36:30.565]     {
  [21:36:30.565]         ...future.startTime <- base::Sys.time()
  [21:36:30.565]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.565]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.565]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.565]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.565]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.565]         {
  [21:36:30.565]             {
  [21:36:30.565]                 base::local({
  [21:36:30.565]                   has_future <- base::requireNamespace("future", 
  [21:36:30.565]                     quietly = TRUE)
  [21:36:30.565]                   version <- if (has_future) 
  [21:36:30.565]                     utils::packageVersion("future")
  [21:36:30.565]                   else NULL
  [21:36:30.565]                   if (!has_future || version < "1.8.0") {
  [21:36:30.565]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.565]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.565]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.565]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.565]                         "release", "version")], collapse = " "), 
  [21:36:30.565]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.565]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.565]                       info)
  [21:36:30.565]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.565]                     if (!has_future) {
  [21:36:30.565]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.565]                         info)
  [21:36:30.565]                     }
  [21:36:30.565]                     else {
  [21:36:30.565]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.565]                         info, version)
  [21:36:30.565]                     }
  [21:36:30.565]                     base::stop(msg)
  [21:36:30.565]                   }
  [21:36:30.565]                 })
  [21:36:30.565]             }
  [21:36:30.565]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.565]         }
  [21:36:30.565]     }
  [21:36:30.565]     if (base::is.na(TRUE)) {
  [21:36:30.565]     }
  [21:36:30.565]     else {
  [21:36:30.565]         if (TRUE) {
  [21:36:30.565]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.565]                 open = "w")
  [21:36:30.565]         }
  [21:36:30.565]         else {
  [21:36:30.565]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.565]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.565]         }
  [21:36:30.565]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.565]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.565]             base::sink(type = "output", split = FALSE)
  [21:36:30.565]             base::close(...future.stdout)
  [21:36:30.565]         }, add = TRUE)
  [21:36:30.565]     }
  [21:36:30.565]     ...future.frame <- base::sys.nframe()
  [21:36:30.565]     ...future.conditions <- base::list()
  [21:36:30.565]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.565]     ...future.result <- base::tryCatch({
  [21:36:30.565]         base::withCallingHandlers({
  [21:36:30.565]             ...future.value <- base::withVisible(base::local({
  [21:36:30.565]                 sample(x, size = 1L)
  [21:36:30.565]             }))
  [21:36:30.565]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.565]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.565]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.565]                 version = "1.8")
  [21:36:30.565]         }, condition = base::local({
  [21:36:30.565]             c <- base::c
  [21:36:30.565]             inherits <- base::inherits
  [21:36:30.565]             invokeRestart <- base::invokeRestart
  [21:36:30.565]             length <- base::length
  [21:36:30.565]             list <- base::list
  [21:36:30.565]             seq.int <- base::seq.int
  [21:36:30.565]             signalCondition <- base::signalCondition
  [21:36:30.565]             sys.calls <- base::sys.calls
  [21:36:30.565]             Sys.time <- base::Sys.time
  [21:36:30.565]             `[[` <- base::`[[`
  [21:36:30.565]             `+` <- base::`+`
  [21:36:30.565]             `<<-` <- base::`<<-`
  [21:36:30.565]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.565]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.565]                   3L)]
  [21:36:30.565]             }
  [21:36:30.565]             function(cond) {
  [21:36:30.565]                 if (inherits(cond, "error")) {
  [21:36:30.565]                   sessionInformation <- function() {
  [21:36:30.565]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.565]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.565]                       search = base::search(), system = base::Sys.info())
  [21:36:30.565]                   }
  [21:36:30.565]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.565]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.565]                     cond$call), session = sessionInformation(), 
  [21:36:30.565]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.565]                   signalCondition(cond)
  [21:36:30.565]                 }
  [21:36:30.565]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.565]                 ))) {
  [21:36:30.565]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.565]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.565]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.565]                   if (!signal) {
  [21:36:30.565]                     muffleCondition <- function (cond) 
  [21:36:30.565]                     {
  [21:36:30.565]                       inherits <- base::inherits
  [21:36:30.565]                       invokeRestart <- base::invokeRestart
  [21:36:30.565]                       muffled <- FALSE
  [21:36:30.565]                       if (inherits(cond, "message")) {
  [21:36:30.565]                         invokeRestart("muffleMessage")
  [21:36:30.565]                         muffled <- TRUE
  [21:36:30.565]                       }
  [21:36:30.565]                       else if (inherits(cond, "warning")) {
  [21:36:30.565]                         invokeRestart("muffleWarning")
  [21:36:30.565]                         muffled <- TRUE
  [21:36:30.565]                       }
  [21:36:30.565]                       else if (inherits(cond, "condition")) {
  [21:36:30.565]                         computeRestarts <- base::computeRestarts
  [21:36:30.565]                         grepl <- base::grepl
  [21:36:30.565]                         is.null <- base::is.null
  [21:36:30.565]                         restarts <- computeRestarts(cond)
  [21:36:30.565]                         for (restart in restarts) {
  [21:36:30.565]                           name <- restart$name
  [21:36:30.565]                           if (is.null(name)) 
  [21:36:30.565]                             next
  [21:36:30.565]                           if (!grepl("^muffle", name)) 
  [21:36:30.565]                             next
  [21:36:30.565]                           invokeRestart(restart)
  [21:36:30.565]                           muffled <- TRUE
  [21:36:30.565]                           break
  [21:36:30.565]                         }
  [21:36:30.565]                       }
  [21:36:30.565]                       invisible(muffled)
  [21:36:30.565]                     }
  [21:36:30.565]                     muffleCondition(cond)
  [21:36:30.565]                   }
  [21:36:30.565]                 }
  [21:36:30.565]             }
  [21:36:30.565]         }))
  [21:36:30.565]     }, error = function(ex) {
  [21:36:30.565]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.565]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.565]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.565]     }, finally = {
  [21:36:30.565]         {
  [21:36:30.565]             NULL
  [21:36:30.565]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.565]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.565]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.565]                 label = NULL, ...) 
  [21:36:30.565]             {
  [21:36:30.565]                 if (substitute) 
  [21:36:30.565]                   expr <- substitute(expr)
  [21:36:30.565]                 local <- as.logical(local)
  [21:36:30.565]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.565]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.565]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.565]                   label = label, ...)
  [21:36:30.565]                 if (!future$lazy) 
  [21:36:30.565]                   future <- run(future)
  [21:36:30.565]                 invisible(future)
  [21:36:30.565]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.565]         }
  [21:36:30.565]         base::options(...future.oldOptions)
  [21:36:30.565]     })
  [21:36:30.565]     Sys.time
  [21:36:30.565]     if (base::is.na(TRUE)) {
  [21:36:30.565]     }
  [21:36:30.565]     else {
  [21:36:30.565]         base::sink(type = "output", split = FALSE)
  [21:36:30.565]         if (TRUE) {
  [21:36:30.565]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.565]         }
  [21:36:30.565]         else {
  [21:36:30.565]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.565]         }
  [21:36:30.565]         base::close(...future.stdout)
  [21:36:30.565]         ...future.stdout <- NULL
  [21:36:30.565]     }
  [21:36:30.565]     ...future.result$conditions <- ...future.conditions
  [21:36:30.565]     ...future.result
  [21:36:30.565] }
  [21:36:30.570] plan(): Setting new future strategy stack:
  [21:36:30.570] List of future strategies:
  [21:36:30.570] 1. sequential:
  [21:36:30.570]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.570]    - tweaked: FALSE
  [21:36:30.570]    - call: NULL
  [21:36:30.571] plan(): nbrOfWorkers() = 1
  [21:36:30.573] plan(): Setting new future strategy stack:
  [21:36:30.573] List of future strategies:
  [21:36:30.573] 1. sequential:
  [21:36:30.573]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.573]    - tweaked: FALSE
  [21:36:30.573]    - call: plan(strategy)
  [21:36:30.574] plan(): nbrOfWorkers() = 1
  [21:36:30.574] SequentialFuture started (and completed)
  [[1]]
  [1] 0
  
  [[2]]
  [1] 1
  
  [[3]]
  [1] 1
  
  [[4]]
  [1] 2
  
  [21:36:30.577] getGlobalsAndPackages() ...
  [21:36:30.578] Searching for globals...
  [21:36:30.579] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.580] Searching for globals ... DONE
  [21:36:30.580] Resolving globals: FALSE
  [21:36:30.581] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.581] - globals: [1] 'x'
  [21:36:30.582] 
  [21:36:30.582] getGlobalsAndPackages() ... DONE
  [21:36:30.584] Packages needed by the future expression (n = 0): <none>
  [21:36:30.584] Packages needed by future strategies (n = 0): <none>
  [21:36:30.588] {
  [21:36:30.588]     {
  [21:36:30.588]         ...future.startTime <- base::Sys.time()
  [21:36:30.588]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.588]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.588]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.588]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.588]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.588]         {
  [21:36:30.588]             {
  [21:36:30.588]                 base::local({
  [21:36:30.588]                   has_future <- base::requireNamespace("future", 
  [21:36:30.588]                     quietly = TRUE)
  [21:36:30.588]                   version <- if (has_future) 
  [21:36:30.588]                     utils::packageVersion("future")
  [21:36:30.588]                   else NULL
  [21:36:30.588]                   if (!has_future || version < "1.8.0") {
  [21:36:30.588]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.588]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.588]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.588]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.588]                         "release", "version")], collapse = " "), 
  [21:36:30.588]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.588]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.588]                       info)
  [21:36:30.588]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.588]                     if (!has_future) {
  [21:36:30.588]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.588]                         info)
  [21:36:30.588]                     }
  [21:36:30.588]                     else {
  [21:36:30.588]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.588]                         info, version)
  [21:36:30.588]                     }
  [21:36:30.588]                     base::stop(msg)
  [21:36:30.588]                   }
  [21:36:30.588]                 })
  [21:36:30.588]             }
  [21:36:30.588]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.588]         }
  [21:36:30.588]     }
  [21:36:30.588]     if (base::is.na(TRUE)) {
  [21:36:30.588]     }
  [21:36:30.588]     else {
  [21:36:30.588]         if (TRUE) {
  [21:36:30.588]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.588]                 open = "w")
  [21:36:30.588]         }
  [21:36:30.588]         else {
  [21:36:30.588]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.588]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.588]         }
  [21:36:30.588]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.588]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.588]             base::sink(type = "output", split = FALSE)
  [21:36:30.588]             base::close(...future.stdout)
  [21:36:30.588]         }, add = TRUE)
  [21:36:30.588]     }
  [21:36:30.588]     ...future.frame <- base::sys.nframe()
  [21:36:30.588]     ...future.conditions <- base::list()
  [21:36:30.588]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.588]     ...future.result <- base::tryCatch({
  [21:36:30.588]         base::withCallingHandlers({
  [21:36:30.588]             ...future.value <- base::withVisible(base::local({
  [21:36:30.588]                 sample(x, size = 1L)
  [21:36:30.588]             }))
  [21:36:30.588]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.588]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.588]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.588]                 version = "1.8")
  [21:36:30.588]         }, condition = base::local({
  [21:36:30.588]             c <- base::c
  [21:36:30.588]             inherits <- base::inherits
  [21:36:30.588]             invokeRestart <- base::invokeRestart
  [21:36:30.588]             length <- base::length
  [21:36:30.588]             list <- base::list
  [21:36:30.588]             seq.int <- base::seq.int
  [21:36:30.588]             signalCondition <- base::signalCondition
  [21:36:30.588]             sys.calls <- base::sys.calls
  [21:36:30.588]             Sys.time <- base::Sys.time
  [21:36:30.588]             `[[` <- base::`[[`
  [21:36:30.588]             `+` <- base::`+`
  [21:36:30.588]             `<<-` <- base::`<<-`
  [21:36:30.588]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.588]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.588]                   3L)]
  [21:36:30.588]             }
  [21:36:30.588]             function(cond) {
  [21:36:30.588]                 if (inherits(cond, "error")) {
  [21:36:30.588]                   sessionInformation <- function() {
  [21:36:30.588]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.588]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.588]                       search = base::search(), system = base::Sys.info())
  [21:36:30.588]                   }
  [21:36:30.588]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.588]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.588]                     cond$call), session = sessionInformation(), 
  [21:36:30.588]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.588]                   signalCondition(cond)
  [21:36:30.588]                 }
  [21:36:30.588]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.588]                 ))) {
  [21:36:30.588]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.588]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.588]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.588]                   if (!signal) {
  [21:36:30.588]                     muffleCondition <- function (cond) 
  [21:36:30.588]                     {
  [21:36:30.588]                       inherits <- base::inherits
  [21:36:30.588]                       invokeRestart <- base::invokeRestart
  [21:36:30.588]                       muffled <- FALSE
  [21:36:30.588]                       if (inherits(cond, "message")) {
  [21:36:30.588]                         invokeRestart("muffleMessage")
  [21:36:30.588]                         muffled <- TRUE
  [21:36:30.588]                       }
  [21:36:30.588]                       else if (inherits(cond, "warning")) {
  [21:36:30.588]                         invokeRestart("muffleWarning")
  [21:36:30.588]                         muffled <- TRUE
  [21:36:30.588]                       }
  [21:36:30.588]                       else if (inherits(cond, "condition")) {
  [21:36:30.588]                         computeRestarts <- base::computeRestarts
  [21:36:30.588]                         grepl <- base::grepl
  [21:36:30.588]                         is.null <- base::is.null
  [21:36:30.588]                         restarts <- computeRestarts(cond)
  [21:36:30.588]                         for (restart in restarts) {
  [21:36:30.588]                           name <- restart$name
  [21:36:30.588]                           if (is.null(name)) 
  [21:36:30.588]                             next
  [21:36:30.588]                           if (!grepl("^muffle", name)) 
  [21:36:30.588]                             next
  [21:36:30.588]                           invokeRestart(restart)
  [21:36:30.588]                           muffled <- TRUE
  [21:36:30.588]                           break
  [21:36:30.588]                         }
  [21:36:30.588]                       }
  [21:36:30.588]                       invisible(muffled)
  [21:36:30.588]                     }
  [21:36:30.588]                     muffleCondition(cond)
  [21:36:30.588]                   }
  [21:36:30.588]                 }
  [21:36:30.588]             }
  [21:36:30.588]         }))
  [21:36:30.588]     }, error = function(ex) {
  [21:36:30.588]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.588]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.588]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.588]     }, finally = {
  [21:36:30.588]         {
  [21:36:30.588]             NULL
  [21:36:30.588]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.588]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.588]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.588]                 label = NULL, ...) 
  [21:36:30.588]             {
  [21:36:30.588]                 if (substitute) 
  [21:36:30.588]                   expr <- substitute(expr)
  [21:36:30.588]                 local <- as.logical(local)
  [21:36:30.588]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.588]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.588]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.588]                   label = label, ...)
  [21:36:30.588]                 if (!future$lazy) 
  [21:36:30.588]                   future <- run(future)
  [21:36:30.588]                 invisible(future)
  [21:36:30.588]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.588]         }
  [21:36:30.588]         base::options(...future.oldOptions)
  [21:36:30.588]     })
  [21:36:30.588]     Sys.time
  [21:36:30.588]     if (base::is.na(TRUE)) {
  [21:36:30.588]     }
  [21:36:30.588]     else {
  [21:36:30.588]         base::sink(type = "output", split = FALSE)
  [21:36:30.588]         if (TRUE) {
  [21:36:30.588]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.588]         }
  [21:36:30.588]         else {
  [21:36:30.588]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.588]         }
  [21:36:30.588]         base::close(...future.stdout)
  [21:36:30.588]         ...future.stdout <- NULL
  [21:36:30.588]     }
  [21:36:30.588]     ...future.result$conditions <- ...future.conditions
  [21:36:30.588]     ...future.result
  [21:36:30.588] }
  [21:36:30.593] plan(): Setting new future strategy stack:
  [21:36:30.593] List of future strategies:
  [21:36:30.593] 1. sequential:
  [21:36:30.593]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.593]    - tweaked: FALSE
  [21:36:30.593]    - call: NULL
  [21:36:30.594] plan(): nbrOfWorkers() = 1
  [21:36:30.595] plan(): Setting new future strategy stack:
  [21:36:30.595] List of future strategies:
  [21:36:30.595] 1. sequential:
  [21:36:30.595]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.595]    - tweaked: FALSE
  [21:36:30.595]    - call: plan(strategy)
  [21:36:30.596] plan(): nbrOfWorkers() = 1
  [21:36:30.597] SequentialFuture started (and completed)
  [21:36:30.598] getGlobalsAndPackages() ...
  [21:36:30.598] Searching for globals...
  [21:36:30.600] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.601] Searching for globals ... DONE
  [21:36:30.601] Resolving globals: FALSE
  [21:36:30.602] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.602] - globals: [1] 'x'
  [21:36:30.603] 
  [21:36:30.603] getGlobalsAndPackages() ... DONE
  [21:36:30.605] Packages needed by the future expression (n = 0): <none>
  [21:36:30.605] Packages needed by future strategies (n = 0): <none>
  [21:36:30.609] {
  [21:36:30.609]     {
  [21:36:30.609]         ...future.startTime <- base::Sys.time()
  [21:36:30.609]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.609]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.609]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.609]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.609]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.609]         {
  [21:36:30.609]             {
  [21:36:30.609]                 base::local({
  [21:36:30.609]                   has_future <- base::requireNamespace("future", 
  [21:36:30.609]                     quietly = TRUE)
  [21:36:30.609]                   version <- if (has_future) 
  [21:36:30.609]                     utils::packageVersion("future")
  [21:36:30.609]                   else NULL
  [21:36:30.609]                   if (!has_future || version < "1.8.0") {
  [21:36:30.609]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.609]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.609]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.609]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.609]                         "release", "version")], collapse = " "), 
  [21:36:30.609]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.609]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.609]                       info)
  [21:36:30.609]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.609]                     if (!has_future) {
  [21:36:30.609]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.609]                         info)
  [21:36:30.609]                     }
  [21:36:30.609]                     else {
  [21:36:30.609]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.609]                         info, version)
  [21:36:30.609]                     }
  [21:36:30.609]                     base::stop(msg)
  [21:36:30.609]                   }
  [21:36:30.609]                 })
  [21:36:30.609]             }
  [21:36:30.609]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.609]         }
  [21:36:30.609]     }
  [21:36:30.609]     if (base::is.na(TRUE)) {
  [21:36:30.609]     }
  [21:36:30.609]     else {
  [21:36:30.609]         if (TRUE) {
  [21:36:30.609]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.609]                 open = "w")
  [21:36:30.609]         }
  [21:36:30.609]         else {
  [21:36:30.609]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.609]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.609]         }
  [21:36:30.609]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.609]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.609]             base::sink(type = "output", split = FALSE)
  [21:36:30.609]             base::close(...future.stdout)
  [21:36:30.609]         }, add = TRUE)
  [21:36:30.609]     }
  [21:36:30.609]     ...future.frame <- base::sys.nframe()
  [21:36:30.609]     ...future.conditions <- base::list()
  [21:36:30.609]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.609]     ...future.result <- base::tryCatch({
  [21:36:30.609]         base::withCallingHandlers({
  [21:36:30.609]             ...future.value <- base::withVisible(base::local({
  [21:36:30.609]                 sample(x, size = 1L)
  [21:36:30.609]             }))
  [21:36:30.609]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.609]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.609]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.609]                 version = "1.8")
  [21:36:30.609]         }, condition = base::local({
  [21:36:30.609]             c <- base::c
  [21:36:30.609]             inherits <- base::inherits
  [21:36:30.609]             invokeRestart <- base::invokeRestart
  [21:36:30.609]             length <- base::length
  [21:36:30.609]             list <- base::list
  [21:36:30.609]             seq.int <- base::seq.int
  [21:36:30.609]             signalCondition <- base::signalCondition
  [21:36:30.609]             sys.calls <- base::sys.calls
  [21:36:30.609]             Sys.time <- base::Sys.time
  [21:36:30.609]             `[[` <- base::`[[`
  [21:36:30.609]             `+` <- base::`+`
  [21:36:30.609]             `<<-` <- base::`<<-`
  [21:36:30.609]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.609]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.609]                   3L)]
  [21:36:30.609]             }
  [21:36:30.609]             function(cond) {
  [21:36:30.609]                 if (inherits(cond, "error")) {
  [21:36:30.609]                   sessionInformation <- function() {
  [21:36:30.609]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.609]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.609]                       search = base::search(), system = base::Sys.info())
  [21:36:30.609]                   }
  [21:36:30.609]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.609]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.609]                     cond$call), session = sessionInformation(), 
  [21:36:30.609]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.609]                   signalCondition(cond)
  [21:36:30.609]                 }
  [21:36:30.609]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.609]                 ))) {
  [21:36:30.609]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.609]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.609]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.609]                   if (!signal) {
  [21:36:30.609]                     muffleCondition <- function (cond) 
  [21:36:30.609]                     {
  [21:36:30.609]                       inherits <- base::inherits
  [21:36:30.609]                       invokeRestart <- base::invokeRestart
  [21:36:30.609]                       muffled <- FALSE
  [21:36:30.609]                       if (inherits(cond, "message")) {
  [21:36:30.609]                         invokeRestart("muffleMessage")
  [21:36:30.609]                         muffled <- TRUE
  [21:36:30.609]                       }
  [21:36:30.609]                       else if (inherits(cond, "warning")) {
  [21:36:30.609]                         invokeRestart("muffleWarning")
  [21:36:30.609]                         muffled <- TRUE
  [21:36:30.609]                       }
  [21:36:30.609]                       else if (inherits(cond, "condition")) {
  [21:36:30.609]                         computeRestarts <- base::computeRestarts
  [21:36:30.609]                         grepl <- base::grepl
  [21:36:30.609]                         is.null <- base::is.null
  [21:36:30.609]                         restarts <- computeRestarts(cond)
  [21:36:30.609]                         for (restart in restarts) {
  [21:36:30.609]                           name <- restart$name
  [21:36:30.609]                           if (is.null(name)) 
  [21:36:30.609]                             next
  [21:36:30.609]                           if (!grepl("^muffle", name)) 
  [21:36:30.609]                             next
  [21:36:30.609]                           invokeRestart(restart)
  [21:36:30.609]                           muffled <- TRUE
  [21:36:30.609]                           break
  [21:36:30.609]                         }
  [21:36:30.609]                       }
  [21:36:30.609]                       invisible(muffled)
  [21:36:30.609]                     }
  [21:36:30.609]                     muffleCondition(cond)
  [21:36:30.609]                   }
  [21:36:30.609]                 }
  [21:36:30.609]             }
  [21:36:30.609]         }))
  [21:36:30.609]     }, error = function(ex) {
  [21:36:30.609]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.609]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.609]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.609]     }, finally = {
  [21:36:30.609]         {
  [21:36:30.609]             NULL
  [21:36:30.609]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.609]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.609]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.609]                 label = NULL, ...) 
  [21:36:30.609]             {
  [21:36:30.609]                 if (substitute) 
  [21:36:30.609]                   expr <- substitute(expr)
  [21:36:30.609]                 local <- as.logical(local)
  [21:36:30.609]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.609]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.609]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.609]                   label = label, ...)
  [21:36:30.609]                 if (!future$lazy) 
  [21:36:30.609]                   future <- run(future)
  [21:36:30.609]                 invisible(future)
  [21:36:30.609]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.609]         }
  [21:36:30.609]         base::options(...future.oldOptions)
  [21:36:30.609]     })
  [21:36:30.609]     Sys.time
  [21:36:30.609]     if (base::is.na(TRUE)) {
  [21:36:30.609]     }
  [21:36:30.609]     else {
  [21:36:30.609]         base::sink(type = "output", split = FALSE)
  [21:36:30.609]         if (TRUE) {
  [21:36:30.609]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.609]         }
  [21:36:30.609]         else {
  [21:36:30.609]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.609]         }
  [21:36:30.609]         base::close(...future.stdout)
  [21:36:30.609]         ...future.stdout <- NULL
  [21:36:30.609]     }
  [21:36:30.609]     ...future.result$conditions <- ...future.conditions
  [21:36:30.609]     ...future.result
  [21:36:30.609] }
  [21:36:30.630] plan(): Setting new future strategy stack:
  [21:36:30.630] List of future strategies:
  [21:36:30.630] 1. sequential:
  [21:36:30.630]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.630]    - tweaked: FALSE
  [21:36:30.630]    - call: NULL
  [21:36:30.631] plan(): nbrOfWorkers() = 1
  [21:36:30.632] plan(): Setting new future strategy stack:
  [21:36:30.633] List of future strategies:
  [21:36:30.633] 1. sequential:
  [21:36:30.633]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.633]    - tweaked: FALSE
  [21:36:30.633]    - call: plan(strategy)
  [21:36:30.634] plan(): nbrOfWorkers() = 1
  [21:36:30.634] SequentialFuture started (and completed)
  [21:36:30.635] getGlobalsAndPackages() ...
  [21:36:30.636] Searching for globals...
  [21:36:30.638] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.638] Searching for globals ... DONE
  [21:36:30.638] Resolving globals: FALSE
  [21:36:30.639] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.639] - globals: [1] 'x'
  [21:36:30.640] 
  [21:36:30.640] getGlobalsAndPackages() ... DONE
  [21:36:30.642] Packages needed by the future expression (n = 0): <none>
  [21:36:30.642] Packages needed by future strategies (n = 0): <none>
  [21:36:30.647] {
  [21:36:30.647]     {
  [21:36:30.647]         ...future.startTime <- base::Sys.time()
  [21:36:30.647]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.647]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.647]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.647]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.647]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.647]         {
  [21:36:30.647]             {
  [21:36:30.647]                 base::local({
  [21:36:30.647]                   has_future <- base::requireNamespace("future", 
  [21:36:30.647]                     quietly = TRUE)
  [21:36:30.647]                   version <- if (has_future) 
  [21:36:30.647]                     utils::packageVersion("future")
  [21:36:30.647]                   else NULL
  [21:36:30.647]                   if (!has_future || version < "1.8.0") {
  [21:36:30.647]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.647]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.647]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.647]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.647]                         "release", "version")], collapse = " "), 
  [21:36:30.647]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.647]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.647]                       info)
  [21:36:30.647]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.647]                     if (!has_future) {
  [21:36:30.647]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.647]                         info)
  [21:36:30.647]                     }
  [21:36:30.647]                     else {
  [21:36:30.647]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.647]                         info, version)
  [21:36:30.647]                     }
  [21:36:30.647]                     base::stop(msg)
  [21:36:30.647]                   }
  [21:36:30.647]                 })
  [21:36:30.647]             }
  [21:36:30.647]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.647]         }
  [21:36:30.647]     }
  [21:36:30.647]     if (base::is.na(TRUE)) {
  [21:36:30.647]     }
  [21:36:30.647]     else {
  [21:36:30.647]         if (TRUE) {
  [21:36:30.647]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.647]                 open = "w")
  [21:36:30.647]         }
  [21:36:30.647]         else {
  [21:36:30.647]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.647]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.647]         }
  [21:36:30.647]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.647]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.647]             base::sink(type = "output", split = FALSE)
  [21:36:30.647]             base::close(...future.stdout)
  [21:36:30.647]         }, add = TRUE)
  [21:36:30.647]     }
  [21:36:30.647]     ...future.frame <- base::sys.nframe()
  [21:36:30.647]     ...future.conditions <- base::list()
  [21:36:30.647]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.647]     ...future.result <- base::tryCatch({
  [21:36:30.647]         base::withCallingHandlers({
  [21:36:30.647]             ...future.value <- base::withVisible(base::local({
  [21:36:30.647]                 sample(x, size = 1L)
  [21:36:30.647]             }))
  [21:36:30.647]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.647]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.647]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.647]                 version = "1.8")
  [21:36:30.647]         }, condition = base::local({
  [21:36:30.647]             c <- base::c
  [21:36:30.647]             inherits <- base::inherits
  [21:36:30.647]             invokeRestart <- base::invokeRestart
  [21:36:30.647]             length <- base::length
  [21:36:30.647]             list <- base::list
  [21:36:30.647]             seq.int <- base::seq.int
  [21:36:30.647]             signalCondition <- base::signalCondition
  [21:36:30.647]             sys.calls <- base::sys.calls
  [21:36:30.647]             Sys.time <- base::Sys.time
  [21:36:30.647]             `[[` <- base::`[[`
  [21:36:30.647]             `+` <- base::`+`
  [21:36:30.647]             `<<-` <- base::`<<-`
  [21:36:30.647]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.647]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.647]                   3L)]
  [21:36:30.647]             }
  [21:36:30.647]             function(cond) {
  [21:36:30.647]                 if (inherits(cond, "error")) {
  [21:36:30.647]                   sessionInformation <- function() {
  [21:36:30.647]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.647]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.647]                       search = base::search(), system = base::Sys.info())
  [21:36:30.647]                   }
  [21:36:30.647]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.647]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.647]                     cond$call), session = sessionInformation(), 
  [21:36:30.647]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.647]                   signalCondition(cond)
  [21:36:30.647]                 }
  [21:36:30.647]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.647]                 ))) {
  [21:36:30.647]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.647]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.647]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.647]                   if (!signal) {
  [21:36:30.647]                     muffleCondition <- function (cond) 
  [21:36:30.647]                     {
  [21:36:30.647]                       inherits <- base::inherits
  [21:36:30.647]                       invokeRestart <- base::invokeRestart
  [21:36:30.647]                       muffled <- FALSE
  [21:36:30.647]                       if (inherits(cond, "message")) {
  [21:36:30.647]                         invokeRestart("muffleMessage")
  [21:36:30.647]                         muffled <- TRUE
  [21:36:30.647]                       }
  [21:36:30.647]                       else if (inherits(cond, "warning")) {
  [21:36:30.647]                         invokeRestart("muffleWarning")
  [21:36:30.647]                         muffled <- TRUE
  [21:36:30.647]                       }
  [21:36:30.647]                       else if (inherits(cond, "condition")) {
  [21:36:30.647]                         computeRestarts <- base::computeRestarts
  [21:36:30.647]                         grepl <- base::grepl
  [21:36:30.647]                         is.null <- base::is.null
  [21:36:30.647]                         restarts <- computeRestarts(cond)
  [21:36:30.647]                         for (restart in restarts) {
  [21:36:30.647]                           name <- restart$name
  [21:36:30.647]                           if (is.null(name)) 
  [21:36:30.647]                             next
  [21:36:30.647]                           if (!grepl("^muffle", name)) 
  [21:36:30.647]                             next
  [21:36:30.647]                           invokeRestart(restart)
  [21:36:30.647]                           muffled <- TRUE
  [21:36:30.647]                           break
  [21:36:30.647]                         }
  [21:36:30.647]                       }
  [21:36:30.647]                       invisible(muffled)
  [21:36:30.647]                     }
  [21:36:30.647]                     muffleCondition(cond)
  [21:36:30.647]                   }
  [21:36:30.647]                 }
  [21:36:30.647]             }
  [21:36:30.647]         }))
  [21:36:30.647]     }, error = function(ex) {
  [21:36:30.647]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.647]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.647]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.647]     }, finally = {
  [21:36:30.647]         {
  [21:36:30.647]             NULL
  [21:36:30.647]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.647]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.647]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.647]                 label = NULL, ...) 
  [21:36:30.647]             {
  [21:36:30.647]                 if (substitute) 
  [21:36:30.647]                   expr <- substitute(expr)
  [21:36:30.647]                 local <- as.logical(local)
  [21:36:30.647]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.647]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.647]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.647]                   label = label, ...)
  [21:36:30.647]                 if (!future$lazy) 
  [21:36:30.647]                   future <- run(future)
  [21:36:30.647]                 invisible(future)
  [21:36:30.647]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.647]         }
  [21:36:30.647]         base::options(...future.oldOptions)
  [21:36:30.647]     })
  [21:36:30.647]     Sys.time
  [21:36:30.647]     if (base::is.na(TRUE)) {
  [21:36:30.647]     }
  [21:36:30.647]     else {
  [21:36:30.647]         base::sink(type = "output", split = FALSE)
  [21:36:30.647]         if (TRUE) {
  [21:36:30.647]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.647]         }
  [21:36:30.647]         else {
  [21:36:30.647]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.647]         }
  [21:36:30.647]         base::close(...future.stdout)
  [21:36:30.647]         ...future.stdout <- NULL
  [21:36:30.647]     }
  [21:36:30.647]     ...future.result$conditions <- ...future.conditions
  [21:36:30.647]     ...future.result
  [21:36:30.647] }
  [21:36:30.651] plan(): Setting new future strategy stack:
  [21:36:30.652] List of future strategies:
  [21:36:30.652] 1. sequential:
  [21:36:30.652]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.652]    - tweaked: FALSE
  [21:36:30.652]    - call: NULL
  [21:36:30.652] plan(): nbrOfWorkers() = 1
  [21:36:30.654] plan(): Setting new future strategy stack:
  [21:36:30.654] List of future strategies:
  [21:36:30.654] 1. sequential:
  [21:36:30.654]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.654]    - tweaked: FALSE
  [21:36:30.654]    - call: plan(strategy)
  [21:36:30.655] plan(): nbrOfWorkers() = 1
  [21:36:30.655] SequentialFuture started (and completed)
  [21:36:30.659] getGlobalsAndPackages() ...
  [21:36:30.660] Searching for globals...
  [21:36:30.662] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.662] Searching for globals ... DONE
  [21:36:30.663] Resolving globals: FALSE
  [21:36:30.664] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.664] - globals: [1] 'x'
  [21:36:30.664] 
  [21:36:30.665] getGlobalsAndPackages() ... DONE
  [21:36:30.666] Packages needed by the future expression (n = 0): <none>
  [21:36:30.667] Packages needed by future strategies (n = 0): <none>
  [21:36:30.671] {
  [21:36:30.671]     {
  [21:36:30.671]         ...future.startTime <- base::Sys.time()
  [21:36:30.671]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.671]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.671]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.671]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.671]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.671]         {
  [21:36:30.671]             {
  [21:36:30.671]                 base::local({
  [21:36:30.671]                   has_future <- base::requireNamespace("future", 
  [21:36:30.671]                     quietly = TRUE)
  [21:36:30.671]                   version <- if (has_future) 
  [21:36:30.671]                     utils::packageVersion("future")
  [21:36:30.671]                   else NULL
  [21:36:30.671]                   if (!has_future || version < "1.8.0") {
  [21:36:30.671]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.671]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.671]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.671]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.671]                         "release", "version")], collapse = " "), 
  [21:36:30.671]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.671]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.671]                       info)
  [21:36:30.671]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.671]                     if (!has_future) {
  [21:36:30.671]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.671]                         info)
  [21:36:30.671]                     }
  [21:36:30.671]                     else {
  [21:36:30.671]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.671]                         info, version)
  [21:36:30.671]                     }
  [21:36:30.671]                     base::stop(msg)
  [21:36:30.671]                   }
  [21:36:30.671]                 })
  [21:36:30.671]             }
  [21:36:30.671]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.671]         }
  [21:36:30.671]     }
  [21:36:30.671]     if (base::is.na(TRUE)) {
  [21:36:30.671]     }
  [21:36:30.671]     else {
  [21:36:30.671]         if (TRUE) {
  [21:36:30.671]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.671]                 open = "w")
  [21:36:30.671]         }
  [21:36:30.671]         else {
  [21:36:30.671]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.671]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.671]         }
  [21:36:30.671]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.671]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.671]             base::sink(type = "output", split = FALSE)
  [21:36:30.671]             base::close(...future.stdout)
  [21:36:30.671]         }, add = TRUE)
  [21:36:30.671]     }
  [21:36:30.671]     ...future.frame <- base::sys.nframe()
  [21:36:30.671]     ...future.conditions <- base::list()
  [21:36:30.671]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.671]     ...future.result <- base::tryCatch({
  [21:36:30.671]         base::withCallingHandlers({
  [21:36:30.671]             ...future.value <- base::withVisible(base::local({
  [21:36:30.671]                 sample(x, size = 1L)
  [21:36:30.671]             }))
  [21:36:30.671]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.671]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.671]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.671]                 version = "1.8")
  [21:36:30.671]         }, condition = base::local({
  [21:36:30.671]             c <- base::c
  [21:36:30.671]             inherits <- base::inherits
  [21:36:30.671]             invokeRestart <- base::invokeRestart
  [21:36:30.671]             length <- base::length
  [21:36:30.671]             list <- base::list
  [21:36:30.671]             seq.int <- base::seq.int
  [21:36:30.671]             signalCondition <- base::signalCondition
  [21:36:30.671]             sys.calls <- base::sys.calls
  [21:36:30.671]             Sys.time <- base::Sys.time
  [21:36:30.671]             `[[` <- base::`[[`
  [21:36:30.671]             `+` <- base::`+`
  [21:36:30.671]             `<<-` <- base::`<<-`
  [21:36:30.671]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.671]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.671]                   3L)]
  [21:36:30.671]             }
  [21:36:30.671]             function(cond) {
  [21:36:30.671]                 if (inherits(cond, "error")) {
  [21:36:30.671]                   sessionInformation <- function() {
  [21:36:30.671]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.671]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.671]                       search = base::search(), system = base::Sys.info())
  [21:36:30.671]                   }
  [21:36:30.671]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.671]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.671]                     cond$call), session = sessionInformation(), 
  [21:36:30.671]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.671]                   signalCondition(cond)
  [21:36:30.671]                 }
  [21:36:30.671]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.671]                 ))) {
  [21:36:30.671]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.671]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.671]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.671]                   if (!signal) {
  [21:36:30.671]                     muffleCondition <- function (cond) 
  [21:36:30.671]                     {
  [21:36:30.671]                       inherits <- base::inherits
  [21:36:30.671]                       invokeRestart <- base::invokeRestart
  [21:36:30.671]                       muffled <- FALSE
  [21:36:30.671]                       if (inherits(cond, "message")) {
  [21:36:30.671]                         invokeRestart("muffleMessage")
  [21:36:30.671]                         muffled <- TRUE
  [21:36:30.671]                       }
  [21:36:30.671]                       else if (inherits(cond, "warning")) {
  [21:36:30.671]                         invokeRestart("muffleWarning")
  [21:36:30.671]                         muffled <- TRUE
  [21:36:30.671]                       }
  [21:36:30.671]                       else if (inherits(cond, "condition")) {
  [21:36:30.671]                         computeRestarts <- base::computeRestarts
  [21:36:30.671]                         grepl <- base::grepl
  [21:36:30.671]                         is.null <- base::is.null
  [21:36:30.671]                         restarts <- computeRestarts(cond)
  [21:36:30.671]                         for (restart in restarts) {
  [21:36:30.671]                           name <- restart$name
  [21:36:30.671]                           if (is.null(name)) 
  [21:36:30.671]                             next
  [21:36:30.671]                           if (!grepl("^muffle", name)) 
  [21:36:30.671]                             next
  [21:36:30.671]                           invokeRestart(restart)
  [21:36:30.671]                           muffled <- TRUE
  [21:36:30.671]                           break
  [21:36:30.671]                         }
  [21:36:30.671]                       }
  [21:36:30.671]                       invisible(muffled)
  [21:36:30.671]                     }
  [21:36:30.671]                     muffleCondition(cond)
  [21:36:30.671]                   }
  [21:36:30.671]                 }
  [21:36:30.671]             }
  [21:36:30.671]         }))
  [21:36:30.671]     }, error = function(ex) {
  [21:36:30.671]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.671]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.671]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.671]     }, finally = {
  [21:36:30.671]         {
  [21:36:30.671]             NULL
  [21:36:30.671]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.671]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.671]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.671]                 label = NULL, ...) 
  [21:36:30.671]             {
  [21:36:30.671]                 if (substitute) 
  [21:36:30.671]                   expr <- substitute(expr)
  [21:36:30.671]                 local <- as.logical(local)
  [21:36:30.671]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.671]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.671]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.671]                   label = label, ...)
  [21:36:30.671]                 if (!future$lazy) 
  [21:36:30.671]                   future <- run(future)
  [21:36:30.671]                 invisible(future)
  [21:36:30.671]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.671]         }
  [21:36:30.671]         base::options(...future.oldOptions)
  [21:36:30.671]     })
  [21:36:30.671]     Sys.time
  [21:36:30.671]     if (base::is.na(TRUE)) {
  [21:36:30.671]     }
  [21:36:30.671]     else {
  [21:36:30.671]         base::sink(type = "output", split = FALSE)
  [21:36:30.671]         if (TRUE) {
  [21:36:30.671]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.671]         }
  [21:36:30.671]         else {
  [21:36:30.671]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.671]         }
  [21:36:30.671]         base::close(...future.stdout)
  [21:36:30.671]         ...future.stdout <- NULL
  [21:36:30.671]     }
  [21:36:30.671]     ...future.result$conditions <- ...future.conditions
  [21:36:30.671]     ...future.result
  [21:36:30.671] }
  [21:36:30.675] plan(): Setting new future strategy stack:
  [21:36:30.676] List of future strategies:
  [21:36:30.676] 1. sequential:
  [21:36:30.676]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.676]    - tweaked: FALSE
  [21:36:30.676]    - call: NULL
  [21:36:30.677] plan(): nbrOfWorkers() = 1
  [21:36:30.678] plan(): Setting new future strategy stack:
  [21:36:30.678] List of future strategies:
  [21:36:30.678] 1. sequential:
  [21:36:30.678]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.678]    - tweaked: FALSE
  [21:36:30.678]    - call: plan(strategy)
  [21:36:30.679] plan(): nbrOfWorkers() = 1
  [21:36:30.680] SequentialFuture started (and completed)
  [[1]]
  [1] 3
  
  [[2]]
  [1] 3
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 0
  
  [21:36:30.682] getGlobalsAndPackages() ...
  [21:36:30.682] Searching for globals...
  [21:36:30.685] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.685] Searching for globals ... DONE
  [21:36:30.685] Resolving globals: FALSE
  [21:36:30.686] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.687] - globals: [1] 'x'
  [21:36:30.687] 
  [21:36:30.687] getGlobalsAndPackages() ... DONE
  [21:36:30.689] Packages needed by the future expression (n = 0): <none>
  [21:36:30.689] Packages needed by future strategies (n = 0): <none>
  [21:36:30.694] {
  [21:36:30.694]     {
  [21:36:30.694]         ...future.startTime <- base::Sys.time()
  [21:36:30.694]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.694]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.694]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.694]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.694]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.694]         {
  [21:36:30.694]             {
  [21:36:30.694]                 base::local({
  [21:36:30.694]                   has_future <- base::requireNamespace("future", 
  [21:36:30.694]                     quietly = TRUE)
  [21:36:30.694]                   version <- if (has_future) 
  [21:36:30.694]                     utils::packageVersion("future")
  [21:36:30.694]                   else NULL
  [21:36:30.694]                   if (!has_future || version < "1.8.0") {
  [21:36:30.694]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.694]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.694]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.694]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.694]                         "release", "version")], collapse = " "), 
  [21:36:30.694]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.694]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.694]                       info)
  [21:36:30.694]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.694]                     if (!has_future) {
  [21:36:30.694]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.694]                         info)
  [21:36:30.694]                     }
  [21:36:30.694]                     else {
  [21:36:30.694]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.694]                         info, version)
  [21:36:30.694]                     }
  [21:36:30.694]                     base::stop(msg)
  [21:36:30.694]                   }
  [21:36:30.694]                 })
  [21:36:30.694]             }
  [21:36:30.694]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.694]         }
  [21:36:30.694]     }
  [21:36:30.694]     if (base::is.na(TRUE)) {
  [21:36:30.694]     }
  [21:36:30.694]     else {
  [21:36:30.694]         if (TRUE) {
  [21:36:30.694]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.694]                 open = "w")
  [21:36:30.694]         }
  [21:36:30.694]         else {
  [21:36:30.694]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.694]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.694]         }
  [21:36:30.694]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.694]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.694]             base::sink(type = "output", split = FALSE)
  [21:36:30.694]             base::close(...future.stdout)
  [21:36:30.694]         }, add = TRUE)
  [21:36:30.694]     }
  [21:36:30.694]     ...future.frame <- base::sys.nframe()
  [21:36:30.694]     ...future.conditions <- base::list()
  [21:36:30.694]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.694]     ...future.result <- base::tryCatch({
  [21:36:30.694]         base::withCallingHandlers({
  [21:36:30.694]             ...future.value <- base::withVisible(base::local({
  [21:36:30.694]                 sample(x, size = 1L)
  [21:36:30.694]             }))
  [21:36:30.694]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.694]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.694]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.694]                 version = "1.8")
  [21:36:30.694]         }, condition = base::local({
  [21:36:30.694]             c <- base::c
  [21:36:30.694]             inherits <- base::inherits
  [21:36:30.694]             invokeRestart <- base::invokeRestart
  [21:36:30.694]             length <- base::length
  [21:36:30.694]             list <- base::list
  [21:36:30.694]             seq.int <- base::seq.int
  [21:36:30.694]             signalCondition <- base::signalCondition
  [21:36:30.694]             sys.calls <- base::sys.calls
  [21:36:30.694]             Sys.time <- base::Sys.time
  [21:36:30.694]             `[[` <- base::`[[`
  [21:36:30.694]             `+` <- base::`+`
  [21:36:30.694]             `<<-` <- base::`<<-`
  [21:36:30.694]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.694]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.694]                   3L)]
  [21:36:30.694]             }
  [21:36:30.694]             function(cond) {
  [21:36:30.694]                 if (inherits(cond, "error")) {
  [21:36:30.694]                   sessionInformation <- function() {
  [21:36:30.694]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.694]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.694]                       search = base::search(), system = base::Sys.info())
  [21:36:30.694]                   }
  [21:36:30.694]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.694]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.694]                     cond$call), session = sessionInformation(), 
  [21:36:30.694]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.694]                   signalCondition(cond)
  [21:36:30.694]                 }
  [21:36:30.694]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.694]                 ))) {
  [21:36:30.694]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.694]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.694]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.694]                   if (!signal) {
  [21:36:30.694]                     muffleCondition <- function (cond) 
  [21:36:30.694]                     {
  [21:36:30.694]                       inherits <- base::inherits
  [21:36:30.694]                       invokeRestart <- base::invokeRestart
  [21:36:30.694]                       muffled <- FALSE
  [21:36:30.694]                       if (inherits(cond, "message")) {
  [21:36:30.694]                         invokeRestart("muffleMessage")
  [21:36:30.694]                         muffled <- TRUE
  [21:36:30.694]                       }
  [21:36:30.694]                       else if (inherits(cond, "warning")) {
  [21:36:30.694]                         invokeRestart("muffleWarning")
  [21:36:30.694]                         muffled <- TRUE
  [21:36:30.694]                       }
  [21:36:30.694]                       else if (inherits(cond, "condition")) {
  [21:36:30.694]                         computeRestarts <- base::computeRestarts
  [21:36:30.694]                         grepl <- base::grepl
  [21:36:30.694]                         is.null <- base::is.null
  [21:36:30.694]                         restarts <- computeRestarts(cond)
  [21:36:30.694]                         for (restart in restarts) {
  [21:36:30.694]                           name <- restart$name
  [21:36:30.694]                           if (is.null(name)) 
  [21:36:30.694]                             next
  [21:36:30.694]                           if (!grepl("^muffle", name)) 
  [21:36:30.694]                             next
  [21:36:30.694]                           invokeRestart(restart)
  [21:36:30.694]                           muffled <- TRUE
  [21:36:30.694]                           break
  [21:36:30.694]                         }
  [21:36:30.694]                       }
  [21:36:30.694]                       invisible(muffled)
  [21:36:30.694]                     }
  [21:36:30.694]                     muffleCondition(cond)
  [21:36:30.694]                   }
  [21:36:30.694]                 }
  [21:36:30.694]             }
  [21:36:30.694]         }))
  [21:36:30.694]     }, error = function(ex) {
  [21:36:30.694]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.694]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.694]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.694]     }, finally = {
  [21:36:30.694]         {
  [21:36:30.694]             NULL
  [21:36:30.694]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.694]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.694]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.694]                 label = NULL, ...) 
  [21:36:30.694]             {
  [21:36:30.694]                 if (substitute) 
  [21:36:30.694]                   expr <- substitute(expr)
  [21:36:30.694]                 local <- as.logical(local)
  [21:36:30.694]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.694]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.694]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.694]                   label = label, ...)
  [21:36:30.694]                 if (!future$lazy) 
  [21:36:30.694]                   future <- run(future)
  [21:36:30.694]                 invisible(future)
  [21:36:30.694]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.694]         }
  [21:36:30.694]         base::options(...future.oldOptions)
  [21:36:30.694]     })
  [21:36:30.694]     Sys.time
  [21:36:30.694]     if (base::is.na(TRUE)) {
  [21:36:30.694]     }
  [21:36:30.694]     else {
  [21:36:30.694]         base::sink(type = "output", split = FALSE)
  [21:36:30.694]         if (TRUE) {
  [21:36:30.694]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.694]         }
  [21:36:30.694]         else {
  [21:36:30.694]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.694]         }
  [21:36:30.694]         base::close(...future.stdout)
  [21:36:30.694]         ...future.stdout <- NULL
  [21:36:30.694]     }
  [21:36:30.694]     ...future.result$conditions <- ...future.conditions
  [21:36:30.694]     ...future.result
  [21:36:30.694] }
  [21:36:30.699] plan(): Setting new future strategy stack:
  [21:36:30.699] List of future strategies:
  [21:36:30.699] 1. sequential:
  [21:36:30.699]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.699]    - tweaked: FALSE
  [21:36:30.699]    - call: NULL
  [21:36:30.700] plan(): nbrOfWorkers() = 1
  [21:36:30.702] plan(): Setting new future strategy stack:
  [21:36:30.702] List of future strategies:
  [21:36:30.702] 1. sequential:
  [21:36:30.702]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.702]    - tweaked: FALSE
  [21:36:30.702]    - call: plan(strategy)
  [21:36:30.703] plan(): nbrOfWorkers() = 1
  [21:36:30.703] SequentialFuture started (and completed)
  [21:36:30.705] getGlobalsAndPackages() ...
  [21:36:30.705] Searching for globals...
  [21:36:30.707] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.707] Searching for globals ... DONE
  [21:36:30.708] Resolving globals: FALSE
  [21:36:30.709] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.709] - globals: [1] 'x'
  [21:36:30.709] 
  [21:36:30.710] getGlobalsAndPackages() ... DONE
  [21:36:30.711] Packages needed by the future expression (n = 0): <none>
  [21:36:30.712] Packages needed by future strategies (n = 0): <none>
  [21:36:30.743] {
  [21:36:30.743]     {
  [21:36:30.743]         ...future.startTime <- base::Sys.time()
  [21:36:30.743]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.743]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.743]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.743]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.743]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.743]         {
  [21:36:30.743]             {
  [21:36:30.743]                 base::local({
  [21:36:30.743]                   has_future <- base::requireNamespace("future", 
  [21:36:30.743]                     quietly = TRUE)
  [21:36:30.743]                   version <- if (has_future) 
  [21:36:30.743]                     utils::packageVersion("future")
  [21:36:30.743]                   else NULL
  [21:36:30.743]                   if (!has_future || version < "1.8.0") {
  [21:36:30.743]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.743]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.743]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.743]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.743]                         "release", "version")], collapse = " "), 
  [21:36:30.743]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.743]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.743]                       info)
  [21:36:30.743]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.743]                     if (!has_future) {
  [21:36:30.743]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.743]                         info)
  [21:36:30.743]                     }
  [21:36:30.743]                     else {
  [21:36:30.743]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.743]                         info, version)
  [21:36:30.743]                     }
  [21:36:30.743]                     base::stop(msg)
  [21:36:30.743]                   }
  [21:36:30.743]                 })
  [21:36:30.743]             }
  [21:36:30.743]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.743]         }
  [21:36:30.743]     }
  [21:36:30.743]     if (base::is.na(TRUE)) {
  [21:36:30.743]     }
  [21:36:30.743]     else {
  [21:36:30.743]         if (TRUE) {
  [21:36:30.743]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.743]                 open = "w")
  [21:36:30.743]         }
  [21:36:30.743]         else {
  [21:36:30.743]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.743]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.743]         }
  [21:36:30.743]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.743]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.743]             base::sink(type = "output", split = FALSE)
  [21:36:30.743]             base::close(...future.stdout)
  [21:36:30.743]         }, add = TRUE)
  [21:36:30.743]     }
  [21:36:30.743]     ...future.frame <- base::sys.nframe()
  [21:36:30.743]     ...future.conditions <- base::list()
  [21:36:30.743]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.743]     ...future.result <- base::tryCatch({
  [21:36:30.743]         base::withCallingHandlers({
  [21:36:30.743]             ...future.value <- base::withVisible(base::local({
  [21:36:30.743]                 sample(x, size = 1L)
  [21:36:30.743]             }))
  [21:36:30.743]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.743]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.743]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.743]                 version = "1.8")
  [21:36:30.743]         }, condition = base::local({
  [21:36:30.743]             c <- base::c
  [21:36:30.743]             inherits <- base::inherits
  [21:36:30.743]             invokeRestart <- base::invokeRestart
  [21:36:30.743]             length <- base::length
  [21:36:30.743]             list <- base::list
  [21:36:30.743]             seq.int <- base::seq.int
  [21:36:30.743]             signalCondition <- base::signalCondition
  [21:36:30.743]             sys.calls <- base::sys.calls
  [21:36:30.743]             Sys.time <- base::Sys.time
  [21:36:30.743]             `[[` <- base::`[[`
  [21:36:30.743]             `+` <- base::`+`
  [21:36:30.743]             `<<-` <- base::`<<-`
  [21:36:30.743]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.743]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.743]                   3L)]
  [21:36:30.743]             }
  [21:36:30.743]             function(cond) {
  [21:36:30.743]                 if (inherits(cond, "error")) {
  [21:36:30.743]                   sessionInformation <- function() {
  [21:36:30.743]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.743]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.743]                       search = base::search(), system = base::Sys.info())
  [21:36:30.743]                   }
  [21:36:30.743]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.743]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.743]                     cond$call), session = sessionInformation(), 
  [21:36:30.743]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.743]                   signalCondition(cond)
  [21:36:30.743]                 }
  [21:36:30.743]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.743]                 ))) {
  [21:36:30.743]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.743]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.743]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.743]                   if (!signal) {
  [21:36:30.743]                     muffleCondition <- function (cond) 
  [21:36:30.743]                     {
  [21:36:30.743]                       inherits <- base::inherits
  [21:36:30.743]                       invokeRestart <- base::invokeRestart
  [21:36:30.743]                       muffled <- FALSE
  [21:36:30.743]                       if (inherits(cond, "message")) {
  [21:36:30.743]                         invokeRestart("muffleMessage")
  [21:36:30.743]                         muffled <- TRUE
  [21:36:30.743]                       }
  [21:36:30.743]                       else if (inherits(cond, "warning")) {
  [21:36:30.743]                         invokeRestart("muffleWarning")
  [21:36:30.743]                         muffled <- TRUE
  [21:36:30.743]                       }
  [21:36:30.743]                       else if (inherits(cond, "condition")) {
  [21:36:30.743]                         computeRestarts <- base::computeRestarts
  [21:36:30.743]                         grepl <- base::grepl
  [21:36:30.743]                         is.null <- base::is.null
  [21:36:30.743]                         restarts <- computeRestarts(cond)
  [21:36:30.743]                         for (restart in restarts) {
  [21:36:30.743]                           name <- restart$name
  [21:36:30.743]                           if (is.null(name)) 
  [21:36:30.743]                             next
  [21:36:30.743]                           if (!grepl("^muffle", name)) 
  [21:36:30.743]                             next
  [21:36:30.743]                           invokeRestart(restart)
  [21:36:30.743]                           muffled <- TRUE
  [21:36:30.743]                           break
  [21:36:30.743]                         }
  [21:36:30.743]                       }
  [21:36:30.743]                       invisible(muffled)
  [21:36:30.743]                     }
  [21:36:30.743]                     muffleCondition(cond)
  [21:36:30.743]                   }
  [21:36:30.743]                 }
  [21:36:30.743]             }
  [21:36:30.743]         }))
  [21:36:30.743]     }, error = function(ex) {
  [21:36:30.743]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.743]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.743]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.743]     }, finally = {
  [21:36:30.743]         {
  [21:36:30.743]             NULL
  [21:36:30.743]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.743]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.743]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.743]                 label = NULL, ...) 
  [21:36:30.743]             {
  [21:36:30.743]                 if (substitute) 
  [21:36:30.743]                   expr <- substitute(expr)
  [21:36:30.743]                 local <- as.logical(local)
  [21:36:30.743]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.743]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.743]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.743]                   label = label, ...)
  [21:36:30.743]                 if (!future$lazy) 
  [21:36:30.743]                   future <- run(future)
  [21:36:30.743]                 invisible(future)
  [21:36:30.743]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.743]         }
  [21:36:30.743]         base::options(...future.oldOptions)
  [21:36:30.743]     })
  [21:36:30.743]     Sys.time
  [21:36:30.743]     if (base::is.na(TRUE)) {
  [21:36:30.743]     }
  [21:36:30.743]     else {
  [21:36:30.743]         base::sink(type = "output", split = FALSE)
  [21:36:30.743]         if (TRUE) {
  [21:36:30.743]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.743]         }
  [21:36:30.743]         else {
  [21:36:30.743]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.743]         }
  [21:36:30.743]         base::close(...future.stdout)
  [21:36:30.743]         ...future.stdout <- NULL
  [21:36:30.743]     }
  [21:36:30.743]     ...future.result$conditions <- ...future.conditions
  [21:36:30.743]     ...future.result
  [21:36:30.743] }
  [21:36:30.747] plan(): Setting new future strategy stack:
  [21:36:30.748] List of future strategies:
  [21:36:30.748] 1. sequential:
  [21:36:30.748]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.748]    - tweaked: FALSE
  [21:36:30.748]    - call: NULL
  [21:36:30.749] plan(): nbrOfWorkers() = 1
  [21:36:30.750] plan(): Setting new future strategy stack:
  [21:36:30.750] List of future strategies:
  [21:36:30.750] 1. sequential:
  [21:36:30.750]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.750]    - tweaked: FALSE
  [21:36:30.750]    - call: plan(strategy)
  [21:36:30.751] plan(): nbrOfWorkers() = 1
  [21:36:30.751] SequentialFuture started (and completed)
  [21:36:30.753] getGlobalsAndPackages() ...
  [21:36:30.753] Searching for globals...
  [21:36:30.755] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.755] Searching for globals ... DONE
  [21:36:30.756] Resolving globals: FALSE
  [21:36:30.757] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.757] - globals: [1] 'x'
  [21:36:30.757] 
  [21:36:30.774] getGlobalsAndPackages() ... DONE
  [21:36:30.778] Packages needed by the future expression (n = 0): <none>
  [21:36:30.779] Packages needed by future strategies (n = 0): <none>
  [21:36:30.784] {
  [21:36:30.784]     {
  [21:36:30.784]         ...future.startTime <- base::Sys.time()
  [21:36:30.784]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.784]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.784]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.784]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.784]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.784]         {
  [21:36:30.784]             {
  [21:36:30.784]                 base::local({
  [21:36:30.784]                   has_future <- base::requireNamespace("future", 
  [21:36:30.784]                     quietly = TRUE)
  [21:36:30.784]                   version <- if (has_future) 
  [21:36:30.784]                     utils::packageVersion("future")
  [21:36:30.784]                   else NULL
  [21:36:30.784]                   if (!has_future || version < "1.8.0") {
  [21:36:30.784]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.784]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.784]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.784]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.784]                         "release", "version")], collapse = " "), 
  [21:36:30.784]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.784]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.784]                       info)
  [21:36:30.784]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.784]                     if (!has_future) {
  [21:36:30.784]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.784]                         info)
  [21:36:30.784]                     }
  [21:36:30.784]                     else {
  [21:36:30.784]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.784]                         info, version)
  [21:36:30.784]                     }
  [21:36:30.784]                     base::stop(msg)
  [21:36:30.784]                   }
  [21:36:30.784]                 })
  [21:36:30.784]             }
  [21:36:30.784]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.784]         }
  [21:36:30.784]     }
  [21:36:30.784]     if (base::is.na(TRUE)) {
  [21:36:30.784]     }
  [21:36:30.784]     else {
  [21:36:30.784]         if (TRUE) {
  [21:36:30.784]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.784]                 open = "w")
  [21:36:30.784]         }
  [21:36:30.784]         else {
  [21:36:30.784]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.784]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.784]         }
  [21:36:30.784]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.784]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.784]             base::sink(type = "output", split = FALSE)
  [21:36:30.784]             base::close(...future.stdout)
  [21:36:30.784]         }, add = TRUE)
  [21:36:30.784]     }
  [21:36:30.784]     ...future.frame <- base::sys.nframe()
  [21:36:30.784]     ...future.conditions <- base::list()
  [21:36:30.784]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.784]     ...future.result <- base::tryCatch({
  [21:36:30.784]         base::withCallingHandlers({
  [21:36:30.784]             ...future.value <- base::withVisible(base::local({
  [21:36:30.784]                 sample(x, size = 1L)
  [21:36:30.784]             }))
  [21:36:30.784]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.784]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.784]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.784]                 version = "1.8")
  [21:36:30.784]         }, condition = base::local({
  [21:36:30.784]             c <- base::c
  [21:36:30.784]             inherits <- base::inherits
  [21:36:30.784]             invokeRestart <- base::invokeRestart
  [21:36:30.784]             length <- base::length
  [21:36:30.784]             list <- base::list
  [21:36:30.784]             seq.int <- base::seq.int
  [21:36:30.784]             signalCondition <- base::signalCondition
  [21:36:30.784]             sys.calls <- base::sys.calls
  [21:36:30.784]             Sys.time <- base::Sys.time
  [21:36:30.784]             `[[` <- base::`[[`
  [21:36:30.784]             `+` <- base::`+`
  [21:36:30.784]             `<<-` <- base::`<<-`
  [21:36:30.784]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.784]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.784]                   3L)]
  [21:36:30.784]             }
  [21:36:30.784]             function(cond) {
  [21:36:30.784]                 if (inherits(cond, "error")) {
  [21:36:30.784]                   sessionInformation <- function() {
  [21:36:30.784]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.784]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.784]                       search = base::search(), system = base::Sys.info())
  [21:36:30.784]                   }
  [21:36:30.784]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.784]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.784]                     cond$call), session = sessionInformation(), 
  [21:36:30.784]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.784]                   signalCondition(cond)
  [21:36:30.784]                 }
  [21:36:30.784]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.784]                 ))) {
  [21:36:30.784]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.784]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.784]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.784]                   if (!signal) {
  [21:36:30.784]                     muffleCondition <- function (cond) 
  [21:36:30.784]                     {
  [21:36:30.784]                       inherits <- base::inherits
  [21:36:30.784]                       invokeRestart <- base::invokeRestart
  [21:36:30.784]                       muffled <- FALSE
  [21:36:30.784]                       if (inherits(cond, "message")) {
  [21:36:30.784]                         invokeRestart("muffleMessage")
  [21:36:30.784]                         muffled <- TRUE
  [21:36:30.784]                       }
  [21:36:30.784]                       else if (inherits(cond, "warning")) {
  [21:36:30.784]                         invokeRestart("muffleWarning")
  [21:36:30.784]                         muffled <- TRUE
  [21:36:30.784]                       }
  [21:36:30.784]                       else if (inherits(cond, "condition")) {
  [21:36:30.784]                         computeRestarts <- base::computeRestarts
  [21:36:30.784]                         grepl <- base::grepl
  [21:36:30.784]                         is.null <- base::is.null
  [21:36:30.784]                         restarts <- computeRestarts(cond)
  [21:36:30.784]                         for (restart in restarts) {
  [21:36:30.784]                           name <- restart$name
  [21:36:30.784]                           if (is.null(name)) 
  [21:36:30.784]                             next
  [21:36:30.784]                           if (!grepl("^muffle", name)) 
  [21:36:30.784]                             next
  [21:36:30.784]                           invokeRestart(restart)
  [21:36:30.784]                           muffled <- TRUE
  [21:36:30.784]                           break
  [21:36:30.784]                         }
  [21:36:30.784]                       }
  [21:36:30.784]                       invisible(muffled)
  [21:36:30.784]                     }
  [21:36:30.784]                     muffleCondition(cond)
  [21:36:30.784]                   }
  [21:36:30.784]                 }
  [21:36:30.784]             }
  [21:36:30.784]         }))
  [21:36:30.784]     }, error = function(ex) {
  [21:36:30.784]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.784]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.784]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.784]     }, finally = {
  [21:36:30.784]         {
  [21:36:30.784]             NULL
  [21:36:30.784]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.784]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.784]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.784]                 label = NULL, ...) 
  [21:36:30.784]             {
  [21:36:30.784]                 if (substitute) 
  [21:36:30.784]                   expr <- substitute(expr)
  [21:36:30.784]                 local <- as.logical(local)
  [21:36:30.784]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.784]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.784]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.784]                   label = label, ...)
  [21:36:30.784]                 if (!future$lazy) 
  [21:36:30.784]                   future <- run(future)
  [21:36:30.784]                 invisible(future)
  [21:36:30.784]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.784]         }
  [21:36:30.784]         base::options(...future.oldOptions)
  [21:36:30.784]     })
  [21:36:30.784]     Sys.time
  [21:36:30.784]     if (base::is.na(TRUE)) {
  [21:36:30.784]     }
  [21:36:30.784]     else {
  [21:36:30.784]         base::sink(type = "output", split = FALSE)
  [21:36:30.784]         if (TRUE) {
  [21:36:30.784]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.784]         }
  [21:36:30.784]         else {
  [21:36:30.784]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.784]         }
  [21:36:30.784]         base::close(...future.stdout)
  [21:36:30.784]         ...future.stdout <- NULL
  [21:36:30.784]     }
  [21:36:30.784]     ...future.result$conditions <- ...future.conditions
  [21:36:30.784]     ...future.result
  [21:36:30.784] }
  [21:36:30.788] plan(): Setting new future strategy stack:
  [21:36:30.789] List of future strategies:
  [21:36:30.789] 1. sequential:
  [21:36:30.789]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.789]    - tweaked: FALSE
  [21:36:30.789]    - call: NULL
  [21:36:30.789] plan(): nbrOfWorkers() = 1
  [21:36:30.802] plan(): Setting new future strategy stack:
  [21:36:30.802] List of future strategies:
  [21:36:30.802] 1. sequential:
  [21:36:30.802]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.802]    - tweaked: FALSE
  [21:36:30.802]    - call: plan(strategy)
  [21:36:30.803] plan(): nbrOfWorkers() = 1
  [21:36:30.804] SequentialFuture started (and completed)
  [21:36:30.805] getGlobalsAndPackages() ...
  [21:36:30.805] Searching for globals...
  [21:36:30.807] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.808] Searching for globals ... DONE
  [21:36:30.808] Resolving globals: FALSE
  [21:36:30.809] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.809] - globals: [1] 'x'
  [21:36:30.810] 
  [21:36:30.810] getGlobalsAndPackages() ... DONE
  [21:36:30.812] Packages needed by the future expression (n = 0): <none>
  [21:36:30.812] Packages needed by future strategies (n = 0): <none>
  [21:36:30.834] {
  [21:36:30.834]     {
  [21:36:30.834]         ...future.startTime <- base::Sys.time()
  [21:36:30.834]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.834]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.834]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.834]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.834]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.834]         {
  [21:36:30.834]             {
  [21:36:30.834]                 base::local({
  [21:36:30.834]                   has_future <- base::requireNamespace("future", 
  [21:36:30.834]                     quietly = TRUE)
  [21:36:30.834]                   version <- if (has_future) 
  [21:36:30.834]                     utils::packageVersion("future")
  [21:36:30.834]                   else NULL
  [21:36:30.834]                   if (!has_future || version < "1.8.0") {
  [21:36:30.834]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.834]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.834]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.834]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.834]                         "release", "version")], collapse = " "), 
  [21:36:30.834]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.834]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.834]                       info)
  [21:36:30.834]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.834]                     if (!has_future) {
  [21:36:30.834]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.834]                         info)
  [21:36:30.834]                     }
  [21:36:30.834]                     else {
  [21:36:30.834]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.834]                         info, version)
  [21:36:30.834]                     }
  [21:36:30.834]                     base::stop(msg)
  [21:36:30.834]                   }
  [21:36:30.834]                 })
  [21:36:30.834]             }
  [21:36:30.834]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.834]         }
  [21:36:30.834]     }
  [21:36:30.834]     if (base::is.na(TRUE)) {
  [21:36:30.834]     }
  [21:36:30.834]     else {
  [21:36:30.834]         if (TRUE) {
  [21:36:30.834]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.834]                 open = "w")
  [21:36:30.834]         }
  [21:36:30.834]         else {
  [21:36:30.834]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.834]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.834]         }
  [21:36:30.834]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.834]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.834]             base::sink(type = "output", split = FALSE)
  [21:36:30.834]             base::close(...future.stdout)
  [21:36:30.834]         }, add = TRUE)
  [21:36:30.834]     }
  [21:36:30.834]     ...future.frame <- base::sys.nframe()
  [21:36:30.834]     ...future.conditions <- base::list()
  [21:36:30.834]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.834]     ...future.result <- base::tryCatch({
  [21:36:30.834]         base::withCallingHandlers({
  [21:36:30.834]             ...future.value <- base::withVisible(base::local({
  [21:36:30.834]                 sample(x, size = 1L)
  [21:36:30.834]             }))
  [21:36:30.834]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.834]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.834]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.834]                 version = "1.8")
  [21:36:30.834]         }, condition = base::local({
  [21:36:30.834]             c <- base::c
  [21:36:30.834]             inherits <- base::inherits
  [21:36:30.834]             invokeRestart <- base::invokeRestart
  [21:36:30.834]             length <- base::length
  [21:36:30.834]             list <- base::list
  [21:36:30.834]             seq.int <- base::seq.int
  [21:36:30.834]             signalCondition <- base::signalCondition
  [21:36:30.834]             sys.calls <- base::sys.calls
  [21:36:30.834]             Sys.time <- base::Sys.time
  [21:36:30.834]             `[[` <- base::`[[`
  [21:36:30.834]             `+` <- base::`+`
  [21:36:30.834]             `<<-` <- base::`<<-`
  [21:36:30.834]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.834]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.834]                   3L)]
  [21:36:30.834]             }
  [21:36:30.834]             function(cond) {
  [21:36:30.834]                 if (inherits(cond, "error")) {
  [21:36:30.834]                   sessionInformation <- function() {
  [21:36:30.834]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.834]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.834]                       search = base::search(), system = base::Sys.info())
  [21:36:30.834]                   }
  [21:36:30.834]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.834]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.834]                     cond$call), session = sessionInformation(), 
  [21:36:30.834]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.834]                   signalCondition(cond)
  [21:36:30.834]                 }
  [21:36:30.834]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.834]                 ))) {
  [21:36:30.834]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.834]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.834]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.834]                   if (!signal) {
  [21:36:30.834]                     muffleCondition <- function (cond) 
  [21:36:30.834]                     {
  [21:36:30.834]                       inherits <- base::inherits
  [21:36:30.834]                       invokeRestart <- base::invokeRestart
  [21:36:30.834]                       muffled <- FALSE
  [21:36:30.834]                       if (inherits(cond, "message")) {
  [21:36:30.834]                         invokeRestart("muffleMessage")
  [21:36:30.834]                         muffled <- TRUE
  [21:36:30.834]                       }
  [21:36:30.834]                       else if (inherits(cond, "warning")) {
  [21:36:30.834]                         invokeRestart("muffleWarning")
  [21:36:30.834]                         muffled <- TRUE
  [21:36:30.834]                       }
  [21:36:30.834]                       else if (inherits(cond, "condition")) {
  [21:36:30.834]                         computeRestarts <- base::computeRestarts
  [21:36:30.834]                         grepl <- base::grepl
  [21:36:30.834]                         is.null <- base::is.null
  [21:36:30.834]                         restarts <- computeRestarts(cond)
  [21:36:30.834]                         for (restart in restarts) {
  [21:36:30.834]                           name <- restart$name
  [21:36:30.834]                           if (is.null(name)) 
  [21:36:30.834]                             next
  [21:36:30.834]                           if (!grepl("^muffle", name)) 
  [21:36:30.834]                             next
  [21:36:30.834]                           invokeRestart(restart)
  [21:36:30.834]                           muffled <- TRUE
  [21:36:30.834]                           break
  [21:36:30.834]                         }
  [21:36:30.834]                       }
  [21:36:30.834]                       invisible(muffled)
  [21:36:30.834]                     }
  [21:36:30.834]                     muffleCondition(cond)
  [21:36:30.834]                   }
  [21:36:30.834]                 }
  [21:36:30.834]             }
  [21:36:30.834]         }))
  [21:36:30.834]     }, error = function(ex) {
  [21:36:30.834]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.834]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.834]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.834]     }, finally = {
  [21:36:30.834]         {
  [21:36:30.834]             NULL
  [21:36:30.834]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.834]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.834]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.834]                 label = NULL, ...) 
  [21:36:30.834]             {
  [21:36:30.834]                 if (substitute) 
  [21:36:30.834]                   expr <- substitute(expr)
  [21:36:30.834]                 local <- as.logical(local)
  [21:36:30.834]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.834]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.834]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.834]                   label = label, ...)
  [21:36:30.834]                 if (!future$lazy) 
  [21:36:30.834]                   future <- run(future)
  [21:36:30.834]                 invisible(future)
  [21:36:30.834]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.834]         }
  [21:36:30.834]         base::options(...future.oldOptions)
  [21:36:30.834]     })
  [21:36:30.834]     Sys.time
  [21:36:30.834]     if (base::is.na(TRUE)) {
  [21:36:30.834]     }
  [21:36:30.834]     else {
  [21:36:30.834]         base::sink(type = "output", split = FALSE)
  [21:36:30.834]         if (TRUE) {
  [21:36:30.834]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.834]         }
  [21:36:30.834]         else {
  [21:36:30.834]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.834]         }
  [21:36:30.834]         base::close(...future.stdout)
  [21:36:30.834]         ...future.stdout <- NULL
  [21:36:30.834]     }
  [21:36:30.834]     ...future.result$conditions <- ...future.conditions
  [21:36:30.834]     ...future.result
  [21:36:30.834] }
  [21:36:30.838] plan(): Setting new future strategy stack:
  [21:36:30.839] List of future strategies:
  [21:36:30.839] 1. sequential:
  [21:36:30.839]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.839]    - tweaked: FALSE
  [21:36:30.839]    - call: NULL
  [21:36:30.840] plan(): nbrOfWorkers() = 1
  [21:36:30.841] plan(): Setting new future strategy stack:
  [21:36:30.841] List of future strategies:
  [21:36:30.841] 1. sequential:
  [21:36:30.841]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.841]    - tweaked: FALSE
  [21:36:30.841]    - call: plan(strategy)
  [21:36:30.842] plan(): nbrOfWorkers() = 1
  [21:36:30.843] SequentialFuture started (and completed)
  [21:36:30.844] Future state: 'finished'
  [21:36:30.844] signalConditions() ...
  [21:36:30.844]  - include = 'condition'
  [21:36:30.845]  - exclude = 'immediateCondition'
  [21:36:30.845]  - resignal = TRUE
  [21:36:30.845]  - Number of conditions: 1
  [21:36:30.846]  - Condition #1: 'simpleWarning', 'warning', 'condition'
  [21:36:30.862] signalConditions() ... done
  <simpleWarning: UNRELIABLE VALUE: Future ('fsample_1-473010') unexpectedly generated random numbers without specifying argument '[future.]seed'. There is a risk that those random numbers are not statistically sound and the overall results might be invalid. To fix this, specify argument argument '[future.]seed', e.g. 'seed=TRUE'. This ensures that proper, parallel-safe random numbers are produced via the L'Ecuyer-CMRG method. To disable this check, set option 'future.rng.onMisuse' to "ignore".>
  [21:36:30.864] getGlobalsAndPackages() ...
  [21:36:30.864] Searching for globals...
  [21:36:30.866] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.866] Searching for globals ... DONE
  [21:36:30.867] Resolving globals: FALSE
  [21:36:30.867] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.868] - globals: [1] 'x'
  [21:36:30.868] 
  [21:36:30.868] getGlobalsAndPackages() ... DONE
  [21:36:30.870] Packages needed by the future expression (n = 0): <none>
  [21:36:30.870] Packages needed by future strategies (n = 0): <none>
  [21:36:30.875] {
  [21:36:30.875]     {
  [21:36:30.875]         ...future.startTime <- base::Sys.time()
  [21:36:30.875]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.875]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.875]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.875]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.875]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.875]         {
  [21:36:30.875]             {
  [21:36:30.875]                 base::local({
  [21:36:30.875]                   has_future <- base::requireNamespace("future", 
  [21:36:30.875]                     quietly = TRUE)
  [21:36:30.875]                   version <- if (has_future) 
  [21:36:30.875]                     utils::packageVersion("future")
  [21:36:30.875]                   else NULL
  [21:36:30.875]                   if (!has_future || version < "1.8.0") {
  [21:36:30.875]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.875]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.875]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.875]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.875]                         "release", "version")], collapse = " "), 
  [21:36:30.875]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.875]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.875]                       info)
  [21:36:30.875]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.875]                     if (!has_future) {
  [21:36:30.875]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.875]                         info)
  [21:36:30.875]                     }
  [21:36:30.875]                     else {
  [21:36:30.875]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.875]                         info, version)
  [21:36:30.875]                     }
  [21:36:30.875]                     base::stop(msg)
  [21:36:30.875]                   }
  [21:36:30.875]                 })
  [21:36:30.875]             }
  [21:36:30.875]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.875]         }
  [21:36:30.875]     }
  [21:36:30.875]     if (base::is.na(TRUE)) {
  [21:36:30.875]     }
  [21:36:30.875]     else {
  [21:36:30.875]         if (TRUE) {
  [21:36:30.875]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.875]                 open = "w")
  [21:36:30.875]         }
  [21:36:30.875]         else {
  [21:36:30.875]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.875]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.875]         }
  [21:36:30.875]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.875]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.875]             base::sink(type = "output", split = FALSE)
  [21:36:30.875]             base::close(...future.stdout)
  [21:36:30.875]         }, add = TRUE)
  [21:36:30.875]     }
  [21:36:30.875]     ...future.frame <- base::sys.nframe()
  [21:36:30.875]     ...future.conditions <- base::list()
  [21:36:30.875]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.875]     ...future.result <- base::tryCatch({
  [21:36:30.875]         base::withCallingHandlers({
  [21:36:30.875]             ...future.value <- base::withVisible(base::local({
  [21:36:30.875]                 sample(x, size = 1L)
  [21:36:30.875]             }))
  [21:36:30.875]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.875]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.875]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.875]                 version = "1.8")
  [21:36:30.875]         }, condition = base::local({
  [21:36:30.875]             c <- base::c
  [21:36:30.875]             inherits <- base::inherits
  [21:36:30.875]             invokeRestart <- base::invokeRestart
  [21:36:30.875]             length <- base::length
  [21:36:30.875]             list <- base::list
  [21:36:30.875]             seq.int <- base::seq.int
  [21:36:30.875]             signalCondition <- base::signalCondition
  [21:36:30.875]             sys.calls <- base::sys.calls
  [21:36:30.875]             Sys.time <- base::Sys.time
  [21:36:30.875]             `[[` <- base::`[[`
  [21:36:30.875]             `+` <- base::`+`
  [21:36:30.875]             `<<-` <- base::`<<-`
  [21:36:30.875]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.875]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.875]                   3L)]
  [21:36:30.875]             }
  [21:36:30.875]             function(cond) {
  [21:36:30.875]                 if (inherits(cond, "error")) {
  [21:36:30.875]                   sessionInformation <- function() {
  [21:36:30.875]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.875]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.875]                       search = base::search(), system = base::Sys.info())
  [21:36:30.875]                   }
  [21:36:30.875]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.875]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.875]                     cond$call), session = sessionInformation(), 
  [21:36:30.875]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.875]                   signalCondition(cond)
  [21:36:30.875]                 }
  [21:36:30.875]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.875]                 ))) {
  [21:36:30.875]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.875]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.875]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.875]                   if (!signal) {
  [21:36:30.875]                     muffleCondition <- function (cond) 
  [21:36:30.875]                     {
  [21:36:30.875]                       inherits <- base::inherits
  [21:36:30.875]                       invokeRestart <- base::invokeRestart
  [21:36:30.875]                       muffled <- FALSE
  [21:36:30.875]                       if (inherits(cond, "message")) {
  [21:36:30.875]                         invokeRestart("muffleMessage")
  [21:36:30.875]                         muffled <- TRUE
  [21:36:30.875]                       }
  [21:36:30.875]                       else if (inherits(cond, "warning")) {
  [21:36:30.875]                         invokeRestart("muffleWarning")
  [21:36:30.875]                         muffled <- TRUE
  [21:36:30.875]                       }
  [21:36:30.875]                       else if (inherits(cond, "condition")) {
  [21:36:30.875]                         computeRestarts <- base::computeRestarts
  [21:36:30.875]                         grepl <- base::grepl
  [21:36:30.875]                         is.null <- base::is.null
  [21:36:30.875]                         restarts <- computeRestarts(cond)
  [21:36:30.875]                         for (restart in restarts) {
  [21:36:30.875]                           name <- restart$name
  [21:36:30.875]                           if (is.null(name)) 
  [21:36:30.875]                             next
  [21:36:30.875]                           if (!grepl("^muffle", name)) 
  [21:36:30.875]                             next
  [21:36:30.875]                           invokeRestart(restart)
  [21:36:30.875]                           muffled <- TRUE
  [21:36:30.875]                           break
  [21:36:30.875]                         }
  [21:36:30.875]                       }
  [21:36:30.875]                       invisible(muffled)
  [21:36:30.875]                     }
  [21:36:30.875]                     muffleCondition(cond)
  [21:36:30.875]                   }
  [21:36:30.875]                 }
  [21:36:30.875]             }
  [21:36:30.875]         }))
  [21:36:30.875]     }, error = function(ex) {
  [21:36:30.875]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.875]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.875]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.875]     }, finally = {
  [21:36:30.875]         {
  [21:36:30.875]             NULL
  [21:36:30.875]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.875]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.875]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.875]                 label = NULL, ...) 
  [21:36:30.875]             {
  [21:36:30.875]                 if (substitute) 
  [21:36:30.875]                   expr <- substitute(expr)
  [21:36:30.875]                 local <- as.logical(local)
  [21:36:30.875]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.875]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.875]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.875]                   label = label, ...)
  [21:36:30.875]                 if (!future$lazy) 
  [21:36:30.875]                   future <- run(future)
  [21:36:30.875]                 invisible(future)
  [21:36:30.875]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.875]         }
  [21:36:30.875]         base::options(...future.oldOptions)
  [21:36:30.875]     })
  [21:36:30.875]     Sys.time
  [21:36:30.875]     if (base::is.na(TRUE)) {
  [21:36:30.875]     }
  [21:36:30.875]     else {
  [21:36:30.875]         base::sink(type = "output", split = FALSE)
  [21:36:30.875]         if (TRUE) {
  [21:36:30.875]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.875]         }
  [21:36:30.875]         else {
  [21:36:30.875]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.875]         }
  [21:36:30.875]         base::close(...future.stdout)
  [21:36:30.875]         ...future.stdout <- NULL
  [21:36:30.875]     }
  [21:36:30.875]     ...future.result$conditions <- ...future.conditions
  [21:36:30.875]     ...future.result
  [21:36:30.875] }
  [21:36:30.895] plan(): Setting new future strategy stack:
  [21:36:30.896] List of future strategies:
  [21:36:30.896] 1. sequential:
  [21:36:30.896]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.896]    - tweaked: FALSE
  [21:36:30.896]    - call: NULL
  [21:36:30.897] plan(): nbrOfWorkers() = 1
  [21:36:30.898] plan(): Setting new future strategy stack:
  [21:36:30.898] List of future strategies:
  [21:36:30.898] 1. sequential:
  [21:36:30.898]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.898]    - tweaked: FALSE
  [21:36:30.898]    - call: plan(strategy)
  [21:36:30.899] plan(): nbrOfWorkers() = 1
  [21:36:30.899] SequentialFuture started (and completed)
  [21:36:30.901] getGlobalsAndPackages() ...
  [21:36:30.901] Searching for globals...
  [21:36:30.903] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.903] Searching for globals ... DONE
  [21:36:30.904] Resolving globals: FALSE
  [21:36:30.904] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.905] - globals: [1] 'x'
  [21:36:30.905] 
  [21:36:30.905] getGlobalsAndPackages() ... DONE
  [21:36:30.907] Packages needed by the future expression (n = 0): <none>
  [21:36:30.908] Packages needed by future strategies (n = 0): <none>
  [21:36:30.931] {
  [21:36:30.931]     {
  [21:36:30.931]         ...future.startTime <- base::Sys.time()
  [21:36:30.931]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.931]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.931]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.931]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.931]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.931]         {
  [21:36:30.931]             {
  [21:36:30.931]                 base::local({
  [21:36:30.931]                   has_future <- base::requireNamespace("future", 
  [21:36:30.931]                     quietly = TRUE)
  [21:36:30.931]                   version <- if (has_future) 
  [21:36:30.931]                     utils::packageVersion("future")
  [21:36:30.931]                   else NULL
  [21:36:30.931]                   if (!has_future || version < "1.8.0") {
  [21:36:30.931]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.931]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.931]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.931]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.931]                         "release", "version")], collapse = " "), 
  [21:36:30.931]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.931]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.931]                       info)
  [21:36:30.931]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.931]                     if (!has_future) {
  [21:36:30.931]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.931]                         info)
  [21:36:30.931]                     }
  [21:36:30.931]                     else {
  [21:36:30.931]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.931]                         info, version)
  [21:36:30.931]                     }
  [21:36:30.931]                     base::stop(msg)
  [21:36:30.931]                   }
  [21:36:30.931]                 })
  [21:36:30.931]             }
  [21:36:30.931]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.931]         }
  [21:36:30.931]     }
  [21:36:30.931]     if (base::is.na(TRUE)) {
  [21:36:30.931]     }
  [21:36:30.931]     else {
  [21:36:30.931]         if (TRUE) {
  [21:36:30.931]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.931]                 open = "w")
  [21:36:30.931]         }
  [21:36:30.931]         else {
  [21:36:30.931]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.931]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.931]         }
  [21:36:30.931]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.931]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.931]             base::sink(type = "output", split = FALSE)
  [21:36:30.931]             base::close(...future.stdout)
  [21:36:30.931]         }, add = TRUE)
  [21:36:30.931]     }
  [21:36:30.931]     ...future.frame <- base::sys.nframe()
  [21:36:30.931]     ...future.conditions <- base::list()
  [21:36:30.931]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.931]     ...future.result <- base::tryCatch({
  [21:36:30.931]         base::withCallingHandlers({
  [21:36:30.931]             ...future.value <- base::withVisible(base::local({
  [21:36:30.931]                 sample(x, size = 1L)
  [21:36:30.931]             }))
  [21:36:30.931]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.931]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.931]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.931]                 version = "1.8")
  [21:36:30.931]         }, condition = base::local({
  [21:36:30.931]             c <- base::c
  [21:36:30.931]             inherits <- base::inherits
  [21:36:30.931]             invokeRestart <- base::invokeRestart
  [21:36:30.931]             length <- base::length
  [21:36:30.931]             list <- base::list
  [21:36:30.931]             seq.int <- base::seq.int
  [21:36:30.931]             signalCondition <- base::signalCondition
  [21:36:30.931]             sys.calls <- base::sys.calls
  [21:36:30.931]             Sys.time <- base::Sys.time
  [21:36:30.931]             `[[` <- base::`[[`
  [21:36:30.931]             `+` <- base::`+`
  [21:36:30.931]             `<<-` <- base::`<<-`
  [21:36:30.931]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.931]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.931]                   3L)]
  [21:36:30.931]             }
  [21:36:30.931]             function(cond) {
  [21:36:30.931]                 if (inherits(cond, "error")) {
  [21:36:30.931]                   sessionInformation <- function() {
  [21:36:30.931]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.931]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.931]                       search = base::search(), system = base::Sys.info())
  [21:36:30.931]                   }
  [21:36:30.931]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.931]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.931]                     cond$call), session = sessionInformation(), 
  [21:36:30.931]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.931]                   signalCondition(cond)
  [21:36:30.931]                 }
  [21:36:30.931]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.931]                 ))) {
  [21:36:30.931]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.931]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.931]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.931]                   if (!signal) {
  [21:36:30.931]                     muffleCondition <- function (cond) 
  [21:36:30.931]                     {
  [21:36:30.931]                       inherits <- base::inherits
  [21:36:30.931]                       invokeRestart <- base::invokeRestart
  [21:36:30.931]                       muffled <- FALSE
  [21:36:30.931]                       if (inherits(cond, "message")) {
  [21:36:30.931]                         invokeRestart("muffleMessage")
  [21:36:30.931]                         muffled <- TRUE
  [21:36:30.931]                       }
  [21:36:30.931]                       else if (inherits(cond, "warning")) {
  [21:36:30.931]                         invokeRestart("muffleWarning")
  [21:36:30.931]                         muffled <- TRUE
  [21:36:30.931]                       }
  [21:36:30.931]                       else if (inherits(cond, "condition")) {
  [21:36:30.931]                         computeRestarts <- base::computeRestarts
  [21:36:30.931]                         grepl <- base::grepl
  [21:36:30.931]                         is.null <- base::is.null
  [21:36:30.931]                         restarts <- computeRestarts(cond)
  [21:36:30.931]                         for (restart in restarts) {
  [21:36:30.931]                           name <- restart$name
  [21:36:30.931]                           if (is.null(name)) 
  [21:36:30.931]                             next
  [21:36:30.931]                           if (!grepl("^muffle", name)) 
  [21:36:30.931]                             next
  [21:36:30.931]                           invokeRestart(restart)
  [21:36:30.931]                           muffled <- TRUE
  [21:36:30.931]                           break
  [21:36:30.931]                         }
  [21:36:30.931]                       }
  [21:36:30.931]                       invisible(muffled)
  [21:36:30.931]                     }
  [21:36:30.931]                     muffleCondition(cond)
  [21:36:30.931]                   }
  [21:36:30.931]                 }
  [21:36:30.931]             }
  [21:36:30.931]         }))
  [21:36:30.931]     }, error = function(ex) {
  [21:36:30.931]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.931]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.931]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.931]     }, finally = {
  [21:36:30.931]         {
  [21:36:30.931]             NULL
  [21:36:30.931]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.931]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.931]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.931]                 label = NULL, ...) 
  [21:36:30.931]             {
  [21:36:30.931]                 if (substitute) 
  [21:36:30.931]                   expr <- substitute(expr)
  [21:36:30.931]                 local <- as.logical(local)
  [21:36:30.931]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.931]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.931]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.931]                   label = label, ...)
  [21:36:30.931]                 if (!future$lazy) 
  [21:36:30.931]                   future <- run(future)
  [21:36:30.931]                 invisible(future)
  [21:36:30.931]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.931]         }
  [21:36:30.931]         base::options(...future.oldOptions)
  [21:36:30.931]     })
  [21:36:30.931]     Sys.time
  [21:36:30.931]     if (base::is.na(TRUE)) {
  [21:36:30.931]     }
  [21:36:30.931]     else {
  [21:36:30.931]         base::sink(type = "output", split = FALSE)
  [21:36:30.931]         if (TRUE) {
  [21:36:30.931]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.931]         }
  [21:36:30.931]         else {
  [21:36:30.931]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.931]         }
  [21:36:30.931]         base::close(...future.stdout)
  [21:36:30.931]         ...future.stdout <- NULL
  [21:36:30.931]     }
  [21:36:30.931]     ...future.result$conditions <- ...future.conditions
  [21:36:30.931]     ...future.result
  [21:36:30.931] }
  [21:36:30.935] plan(): Setting new future strategy stack:
  [21:36:30.936] List of future strategies:
  [21:36:30.936] 1. sequential:
  [21:36:30.936]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.936]    - tweaked: FALSE
  [21:36:30.936]    - call: NULL
  [21:36:30.937] plan(): nbrOfWorkers() = 1
  [21:36:30.938] plan(): Setting new future strategy stack:
  [21:36:30.938] List of future strategies:
  [21:36:30.938] 1. sequential:
  [21:36:30.938]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.938]    - tweaked: FALSE
  [21:36:30.938]    - call: plan(strategy)
  [21:36:30.939] plan(): nbrOfWorkers() = 1
  [21:36:30.940] SequentialFuture started (and completed)
  [21:36:30.941] getGlobalsAndPackages() ...
  [21:36:30.941] Searching for globals...
  [21:36:30.958] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.959] Searching for globals ... DONE
  [21:36:30.959] Resolving globals: FALSE
  [21:36:30.960] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.960] - globals: [1] 'x'
  [21:36:30.961] 
  [21:36:30.961] getGlobalsAndPackages() ... DONE
  [21:36:30.963] Packages needed by the future expression (n = 0): <none>
  [21:36:30.963] Packages needed by future strategies (n = 0): <none>
  [21:36:30.967] {
  [21:36:30.967]     {
  [21:36:30.967]         ...future.startTime <- base::Sys.time()
  [21:36:30.967]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.967]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.967]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.967]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.967]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.967]         {
  [21:36:30.967]             {
  [21:36:30.967]                 base::local({
  [21:36:30.967]                   has_future <- base::requireNamespace("future", 
  [21:36:30.967]                     quietly = TRUE)
  [21:36:30.967]                   version <- if (has_future) 
  [21:36:30.967]                     utils::packageVersion("future")
  [21:36:30.967]                   else NULL
  [21:36:30.967]                   if (!has_future || version < "1.8.0") {
  [21:36:30.967]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.967]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.967]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.967]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.967]                         "release", "version")], collapse = " "), 
  [21:36:30.967]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.967]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.967]                       info)
  [21:36:30.967]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.967]                     if (!has_future) {
  [21:36:30.967]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.967]                         info)
  [21:36:30.967]                     }
  [21:36:30.967]                     else {
  [21:36:30.967]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.967]                         info, version)
  [21:36:30.967]                     }
  [21:36:30.967]                     base::stop(msg)
  [21:36:30.967]                   }
  [21:36:30.967]                 })
  [21:36:30.967]             }
  [21:36:30.967]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.967]         }
  [21:36:30.967]     }
  [21:36:30.967]     if (base::is.na(TRUE)) {
  [21:36:30.967]     }
  [21:36:30.967]     else {
  [21:36:30.967]         if (TRUE) {
  [21:36:30.967]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.967]                 open = "w")
  [21:36:30.967]         }
  [21:36:30.967]         else {
  [21:36:30.967]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.967]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.967]         }
  [21:36:30.967]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.967]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.967]             base::sink(type = "output", split = FALSE)
  [21:36:30.967]             base::close(...future.stdout)
  [21:36:30.967]         }, add = TRUE)
  [21:36:30.967]     }
  [21:36:30.967]     ...future.frame <- base::sys.nframe()
  [21:36:30.967]     ...future.conditions <- base::list()
  [21:36:30.967]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.967]     ...future.result <- base::tryCatch({
  [21:36:30.967]         base::withCallingHandlers({
  [21:36:30.967]             ...future.value <- base::withVisible(base::local({
  [21:36:30.967]                 sample(x, size = 1L)
  [21:36:30.967]             }))
  [21:36:30.967]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.967]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.967]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.967]                 version = "1.8")
  [21:36:30.967]         }, condition = base::local({
  [21:36:30.967]             c <- base::c
  [21:36:30.967]             inherits <- base::inherits
  [21:36:30.967]             invokeRestart <- base::invokeRestart
  [21:36:30.967]             length <- base::length
  [21:36:30.967]             list <- base::list
  [21:36:30.967]             seq.int <- base::seq.int
  [21:36:30.967]             signalCondition <- base::signalCondition
  [21:36:30.967]             sys.calls <- base::sys.calls
  [21:36:30.967]             Sys.time <- base::Sys.time
  [21:36:30.967]             `[[` <- base::`[[`
  [21:36:30.967]             `+` <- base::`+`
  [21:36:30.967]             `<<-` <- base::`<<-`
  [21:36:30.967]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.967]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.967]                   3L)]
  [21:36:30.967]             }
  [21:36:30.967]             function(cond) {
  [21:36:30.967]                 if (inherits(cond, "error")) {
  [21:36:30.967]                   sessionInformation <- function() {
  [21:36:30.967]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.967]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.967]                       search = base::search(), system = base::Sys.info())
  [21:36:30.967]                   }
  [21:36:30.967]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.967]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.967]                     cond$call), session = sessionInformation(), 
  [21:36:30.967]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.967]                   signalCondition(cond)
  [21:36:30.967]                 }
  [21:36:30.967]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.967]                 ))) {
  [21:36:30.967]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.967]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.967]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.967]                   if (!signal) {
  [21:36:30.967]                     muffleCondition <- function (cond) 
  [21:36:30.967]                     {
  [21:36:30.967]                       inherits <- base::inherits
  [21:36:30.967]                       invokeRestart <- base::invokeRestart
  [21:36:30.967]                       muffled <- FALSE
  [21:36:30.967]                       if (inherits(cond, "message")) {
  [21:36:30.967]                         invokeRestart("muffleMessage")
  [21:36:30.967]                         muffled <- TRUE
  [21:36:30.967]                       }
  [21:36:30.967]                       else if (inherits(cond, "warning")) {
  [21:36:30.967]                         invokeRestart("muffleWarning")
  [21:36:30.967]                         muffled <- TRUE
  [21:36:30.967]                       }
  [21:36:30.967]                       else if (inherits(cond, "condition")) {
  [21:36:30.967]                         computeRestarts <- base::computeRestarts
  [21:36:30.967]                         grepl <- base::grepl
  [21:36:30.967]                         is.null <- base::is.null
  [21:36:30.967]                         restarts <- computeRestarts(cond)
  [21:36:30.967]                         for (restart in restarts) {
  [21:36:30.967]                           name <- restart$name
  [21:36:30.967]                           if (is.null(name)) 
  [21:36:30.967]                             next
  [21:36:30.967]                           if (!grepl("^muffle", name)) 
  [21:36:30.967]                             next
  [21:36:30.967]                           invokeRestart(restart)
  [21:36:30.967]                           muffled <- TRUE
  [21:36:30.967]                           break
  [21:36:30.967]                         }
  [21:36:30.967]                       }
  [21:36:30.967]                       invisible(muffled)
  [21:36:30.967]                     }
  [21:36:30.967]                     muffleCondition(cond)
  [21:36:30.967]                   }
  [21:36:30.967]                 }
  [21:36:30.967]             }
  [21:36:30.967]         }))
  [21:36:30.967]     }, error = function(ex) {
  [21:36:30.967]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.967]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.967]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.967]     }, finally = {
  [21:36:30.967]         {
  [21:36:30.967]             NULL
  [21:36:30.967]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.967]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.967]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.967]                 label = NULL, ...) 
  [21:36:30.967]             {
  [21:36:30.967]                 if (substitute) 
  [21:36:30.967]                   expr <- substitute(expr)
  [21:36:30.967]                 local <- as.logical(local)
  [21:36:30.967]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.967]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.967]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.967]                   label = label, ...)
  [21:36:30.967]                 if (!future$lazy) 
  [21:36:30.967]                   future <- run(future)
  [21:36:30.967]                 invisible(future)
  [21:36:30.967]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.967]         }
  [21:36:30.967]         base::options(...future.oldOptions)
  [21:36:30.967]     })
  [21:36:30.967]     Sys.time
  [21:36:30.967]     if (base::is.na(TRUE)) {
  [21:36:30.967]     }
  [21:36:30.967]     else {
  [21:36:30.967]         base::sink(type = "output", split = FALSE)
  [21:36:30.967]         if (TRUE) {
  [21:36:30.967]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.967]         }
  [21:36:30.967]         else {
  [21:36:30.967]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.967]         }
  [21:36:30.967]         base::close(...future.stdout)
  [21:36:30.967]         ...future.stdout <- NULL
  [21:36:30.967]     }
  [21:36:30.967]     ...future.result$conditions <- ...future.conditions
  [21:36:30.967]     ...future.result
  [21:36:30.967] }
  [21:36:30.972] plan(): Setting new future strategy stack:
  [21:36:30.972] List of future strategies:
  [21:36:30.972] 1. sequential:
  [21:36:30.972]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.972]    - tweaked: FALSE
  [21:36:30.972]    - call: NULL
  [21:36:30.973] plan(): nbrOfWorkers() = 1
  [21:36:30.974] plan(): Setting new future strategy stack:
  [21:36:30.974] List of future strategies:
  [21:36:30.974] 1. sequential:
  [21:36:30.974]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.974]    - tweaked: FALSE
  [21:36:30.974]    - call: plan(strategy)
  [21:36:30.975] plan(): nbrOfWorkers() = 1
  [21:36:30.976] SequentialFuture started (and completed)
  [21:36:30.977] getGlobalsAndPackages() ...
  [21:36:30.977] Searching for globals...
  [21:36:30.979] - globals found: [3] '{', 'sample', 'x'
  [21:36:30.979] Searching for globals ... DONE
  [21:36:30.980] Resolving globals: FALSE
  [21:36:30.981] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:30.981] - globals: [1] 'x'
  [21:36:30.981] 
  [21:36:30.982] getGlobalsAndPackages() ... DONE
  [21:36:30.983] Packages needed by the future expression (n = 0): <none>
  [21:36:30.984] Packages needed by future strategies (n = 0): <none>
  [21:36:30.988] {
  [21:36:30.988]     {
  [21:36:30.988]         ...future.startTime <- base::Sys.time()
  [21:36:30.988]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:30.988]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:30.988]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:30.988]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:30.988]             future.resolve.recursive = NULL, width = 80L)
  [21:36:30.988]         {
  [21:36:30.988]             {
  [21:36:30.988]                 base::local({
  [21:36:30.988]                   has_future <- base::requireNamespace("future", 
  [21:36:30.988]                     quietly = TRUE)
  [21:36:30.988]                   version <- if (has_future) 
  [21:36:30.988]                     utils::packageVersion("future")
  [21:36:30.988]                   else NULL
  [21:36:30.988]                   if (!has_future || version < "1.8.0") {
  [21:36:30.988]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:30.988]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:30.988]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:30.988]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:30.988]                         "release", "version")], collapse = " "), 
  [21:36:30.988]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:30.988]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:30.988]                       info)
  [21:36:30.988]                     info <- base::paste(info, collapse = "; ")
  [21:36:30.988]                     if (!has_future) {
  [21:36:30.988]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:30.988]                         info)
  [21:36:30.988]                     }
  [21:36:30.988]                     else {
  [21:36:30.988]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:30.988]                         info, version)
  [21:36:30.988]                     }
  [21:36:30.988]                     base::stop(msg)
  [21:36:30.988]                   }
  [21:36:30.988]                 })
  [21:36:30.988]             }
  [21:36:30.988]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:30.988]         }
  [21:36:30.988]     }
  [21:36:30.988]     if (base::is.na(TRUE)) {
  [21:36:30.988]     }
  [21:36:30.988]     else {
  [21:36:30.988]         if (TRUE) {
  [21:36:30.988]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:30.988]                 open = "w")
  [21:36:30.988]         }
  [21:36:30.988]         else {
  [21:36:30.988]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:30.988]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:30.988]         }
  [21:36:30.988]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:30.988]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:30.988]             base::sink(type = "output", split = FALSE)
  [21:36:30.988]             base::close(...future.stdout)
  [21:36:30.988]         }, add = TRUE)
  [21:36:30.988]     }
  [21:36:30.988]     ...future.frame <- base::sys.nframe()
  [21:36:30.988]     ...future.conditions <- base::list()
  [21:36:30.988]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:30.988]     ...future.result <- base::tryCatch({
  [21:36:30.988]         base::withCallingHandlers({
  [21:36:30.988]             ...future.value <- base::withVisible(base::local({
  [21:36:30.988]                 sample(x, size = 1L)
  [21:36:30.988]             }))
  [21:36:30.988]             future::FutureResult(value = ...future.value$value, 
  [21:36:30.988]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.988]                   ...future.rng), started = ...future.startTime, 
  [21:36:30.988]                 version = "1.8")
  [21:36:30.988]         }, condition = base::local({
  [21:36:30.988]             c <- base::c
  [21:36:30.988]             inherits <- base::inherits
  [21:36:30.988]             invokeRestart <- base::invokeRestart
  [21:36:30.988]             length <- base::length
  [21:36:30.988]             list <- base::list
  [21:36:30.988]             seq.int <- base::seq.int
  [21:36:30.988]             signalCondition <- base::signalCondition
  [21:36:30.988]             sys.calls <- base::sys.calls
  [21:36:30.988]             Sys.time <- base::Sys.time
  [21:36:30.988]             `[[` <- base::`[[`
  [21:36:30.988]             `+` <- base::`+`
  [21:36:30.988]             `<<-` <- base::`<<-`
  [21:36:30.988]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:30.988]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:30.988]                   3L)]
  [21:36:30.988]             }
  [21:36:30.988]             function(cond) {
  [21:36:30.988]                 if (inherits(cond, "error")) {
  [21:36:30.988]                   sessionInformation <- function() {
  [21:36:30.988]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:30.988]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:30.988]                       search = base::search(), system = base::Sys.info())
  [21:36:30.988]                   }
  [21:36:30.988]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.988]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:30.988]                     cond$call), session = sessionInformation(), 
  [21:36:30.988]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:30.988]                   signalCondition(cond)
  [21:36:30.988]                 }
  [21:36:30.988]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:30.988]                 ))) {
  [21:36:30.988]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:30.988]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:30.988]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:30.988]                   if (!signal) {
  [21:36:30.988]                     muffleCondition <- function (cond) 
  [21:36:30.988]                     {
  [21:36:30.988]                       inherits <- base::inherits
  [21:36:30.988]                       invokeRestart <- base::invokeRestart
  [21:36:30.988]                       muffled <- FALSE
  [21:36:30.988]                       if (inherits(cond, "message")) {
  [21:36:30.988]                         invokeRestart("muffleMessage")
  [21:36:30.988]                         muffled <- TRUE
  [21:36:30.988]                       }
  [21:36:30.988]                       else if (inherits(cond, "warning")) {
  [21:36:30.988]                         invokeRestart("muffleWarning")
  [21:36:30.988]                         muffled <- TRUE
  [21:36:30.988]                       }
  [21:36:30.988]                       else if (inherits(cond, "condition")) {
  [21:36:30.988]                         computeRestarts <- base::computeRestarts
  [21:36:30.988]                         grepl <- base::grepl
  [21:36:30.988]                         is.null <- base::is.null
  [21:36:30.988]                         restarts <- computeRestarts(cond)
  [21:36:30.988]                         for (restart in restarts) {
  [21:36:30.988]                           name <- restart$name
  [21:36:30.988]                           if (is.null(name)) 
  [21:36:30.988]                             next
  [21:36:30.988]                           if (!grepl("^muffle", name)) 
  [21:36:30.988]                             next
  [21:36:30.988]                           invokeRestart(restart)
  [21:36:30.988]                           muffled <- TRUE
  [21:36:30.988]                           break
  [21:36:30.988]                         }
  [21:36:30.988]                       }
  [21:36:30.988]                       invisible(muffled)
  [21:36:30.988]                     }
  [21:36:30.988]                     muffleCondition(cond)
  [21:36:30.988]                   }
  [21:36:30.988]                 }
  [21:36:30.988]             }
  [21:36:30.988]         }))
  [21:36:30.988]     }, error = function(ex) {
  [21:36:30.988]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:30.988]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:30.988]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:30.988]     }, finally = {
  [21:36:30.988]         {
  [21:36:30.988]             NULL
  [21:36:30.988]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:30.988]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:30.988]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:30.988]                 label = NULL, ...) 
  [21:36:30.988]             {
  [21:36:30.988]                 if (substitute) 
  [21:36:30.988]                   expr <- substitute(expr)
  [21:36:30.988]                 local <- as.logical(local)
  [21:36:30.988]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:30.988]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:30.988]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:30.988]                   label = label, ...)
  [21:36:30.988]                 if (!future$lazy) 
  [21:36:30.988]                   future <- run(future)
  [21:36:30.988]                 invisible(future)
  [21:36:30.988]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:30.988]         }
  [21:36:30.988]         base::options(...future.oldOptions)
  [21:36:30.988]     })
  [21:36:30.988]     Sys.time
  [21:36:30.988]     if (base::is.na(TRUE)) {
  [21:36:30.988]     }
  [21:36:30.988]     else {
  [21:36:30.988]         base::sink(type = "output", split = FALSE)
  [21:36:30.988]         if (TRUE) {
  [21:36:30.988]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:30.988]         }
  [21:36:30.988]         else {
  [21:36:30.988]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:30.988]         }
  [21:36:30.988]         base::close(...future.stdout)
  [21:36:30.988]         ...future.stdout <- NULL
  [21:36:30.988]     }
  [21:36:30.988]     ...future.result$conditions <- ...future.conditions
  [21:36:30.988]     ...future.result
  [21:36:30.988] }
  [21:36:30.992] plan(): Setting new future strategy stack:
  [21:36:30.992] List of future strategies:
  [21:36:30.992] 1. sequential:
  [21:36:30.992]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.992]    - tweaked: FALSE
  [21:36:30.992]    - call: NULL
  [21:36:30.993] plan(): nbrOfWorkers() = 1
  [21:36:30.994] plan(): Setting new future strategy stack:
  [21:36:30.995] List of future strategies:
  [21:36:30.995] 1. sequential:
  [21:36:30.995]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:30.995]    - tweaked: FALSE
  [21:36:30.995]    - call: plan(strategy)
  [21:36:30.996] plan(): nbrOfWorkers() = 1
  [21:36:30.996] SequentialFuture started (and completed)
  [[1]]
  [1] 3
  
  [[2]]
  [1] 1
  
  [[3]]
  [1] 2
  
  [[4]]
  [1] 0
  
  [21:36:30.999] getGlobalsAndPackages() ...
  [21:36:30.999] Searching for globals...
  [21:36:31.001] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.001] Searching for globals ... DONE
  [21:36:31.002] Resolving globals: FALSE
  [21:36:31.002] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.003] - globals: [1] 'x'
  [21:36:31.003] 
  [21:36:31.004] getGlobalsAndPackages() ... DONE
  [21:36:31.005] Packages needed by the future expression (n = 0): <none>
  [21:36:31.006] Packages needed by future strategies (n = 0): <none>
  [21:36:31.010] {
  [21:36:31.010]     {
  [21:36:31.010]         ...future.startTime <- base::Sys.time()
  [21:36:31.010]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.010]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.010]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.010]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.010]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.010]         {
  [21:36:31.010]             {
  [21:36:31.010]                 base::local({
  [21:36:31.010]                   has_future <- base::requireNamespace("future", 
  [21:36:31.010]                     quietly = TRUE)
  [21:36:31.010]                   version <- if (has_future) 
  [21:36:31.010]                     utils::packageVersion("future")
  [21:36:31.010]                   else NULL
  [21:36:31.010]                   if (!has_future || version < "1.8.0") {
  [21:36:31.010]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.010]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.010]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.010]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.010]                         "release", "version")], collapse = " "), 
  [21:36:31.010]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.010]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.010]                       info)
  [21:36:31.010]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.010]                     if (!has_future) {
  [21:36:31.010]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.010]                         info)
  [21:36:31.010]                     }
  [21:36:31.010]                     else {
  [21:36:31.010]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.010]                         info, version)
  [21:36:31.010]                     }
  [21:36:31.010]                     base::stop(msg)
  [21:36:31.010]                   }
  [21:36:31.010]                 })
  [21:36:31.010]             }
  [21:36:31.010]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.010]         }
  [21:36:31.010]     }
  [21:36:31.010]     if (base::is.na(TRUE)) {
  [21:36:31.010]     }
  [21:36:31.010]     else {
  [21:36:31.010]         if (TRUE) {
  [21:36:31.010]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.010]                 open = "w")
  [21:36:31.010]         }
  [21:36:31.010]         else {
  [21:36:31.010]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.010]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.010]         }
  [21:36:31.010]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.010]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.010]             base::sink(type = "output", split = FALSE)
  [21:36:31.010]             base::close(...future.stdout)
  [21:36:31.010]         }, add = TRUE)
  [21:36:31.010]     }
  [21:36:31.010]     ...future.frame <- base::sys.nframe()
  [21:36:31.010]     ...future.conditions <- base::list()
  [21:36:31.010]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.010]     ...future.result <- base::tryCatch({
  [21:36:31.010]         base::withCallingHandlers({
  [21:36:31.010]             ...future.value <- base::withVisible(base::local({
  [21:36:31.010]                 sample(x, size = 1L)
  [21:36:31.010]             }))
  [21:36:31.010]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.010]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.010]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.010]                 version = "1.8")
  [21:36:31.010]         }, condition = base::local({
  [21:36:31.010]             c <- base::c
  [21:36:31.010]             inherits <- base::inherits
  [21:36:31.010]             invokeRestart <- base::invokeRestart
  [21:36:31.010]             length <- base::length
  [21:36:31.010]             list <- base::list
  [21:36:31.010]             seq.int <- base::seq.int
  [21:36:31.010]             signalCondition <- base::signalCondition
  [21:36:31.010]             sys.calls <- base::sys.calls
  [21:36:31.010]             Sys.time <- base::Sys.time
  [21:36:31.010]             `[[` <- base::`[[`
  [21:36:31.010]             `+` <- base::`+`
  [21:36:31.010]             `<<-` <- base::`<<-`
  [21:36:31.010]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.010]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.010]                   3L)]
  [21:36:31.010]             }
  [21:36:31.010]             function(cond) {
  [21:36:31.010]                 if (inherits(cond, "error")) {
  [21:36:31.010]                   sessionInformation <- function() {
  [21:36:31.010]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.010]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.010]                       search = base::search(), system = base::Sys.info())
  [21:36:31.010]                   }
  [21:36:31.010]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.010]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.010]                     cond$call), session = sessionInformation(), 
  [21:36:31.010]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.010]                   signalCondition(cond)
  [21:36:31.010]                 }
  [21:36:31.010]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.010]                 ))) {
  [21:36:31.010]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.010]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.010]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.010]                   if (!signal) {
  [21:36:31.010]                     muffleCondition <- function (cond) 
  [21:36:31.010]                     {
  [21:36:31.010]                       inherits <- base::inherits
  [21:36:31.010]                       invokeRestart <- base::invokeRestart
  [21:36:31.010]                       muffled <- FALSE
  [21:36:31.010]                       if (inherits(cond, "message")) {
  [21:36:31.010]                         invokeRestart("muffleMessage")
  [21:36:31.010]                         muffled <- TRUE
  [21:36:31.010]                       }
  [21:36:31.010]                       else if (inherits(cond, "warning")) {
  [21:36:31.010]                         invokeRestart("muffleWarning")
  [21:36:31.010]                         muffled <- TRUE
  [21:36:31.010]                       }
  [21:36:31.010]                       else if (inherits(cond, "condition")) {
  [21:36:31.010]                         computeRestarts <- base::computeRestarts
  [21:36:31.010]                         grepl <- base::grepl
  [21:36:31.010]                         is.null <- base::is.null
  [21:36:31.010]                         restarts <- computeRestarts(cond)
  [21:36:31.010]                         for (restart in restarts) {
  [21:36:31.010]                           name <- restart$name
  [21:36:31.010]                           if (is.null(name)) 
  [21:36:31.010]                             next
  [21:36:31.010]                           if (!grepl("^muffle", name)) 
  [21:36:31.010]                             next
  [21:36:31.010]                           invokeRestart(restart)
  [21:36:31.010]                           muffled <- TRUE
  [21:36:31.010]                           break
  [21:36:31.010]                         }
  [21:36:31.010]                       }
  [21:36:31.010]                       invisible(muffled)
  [21:36:31.010]                     }
  [21:36:31.010]                     muffleCondition(cond)
  [21:36:31.010]                   }
  [21:36:31.010]                 }
  [21:36:31.010]             }
  [21:36:31.010]         }))
  [21:36:31.010]     }, error = function(ex) {
  [21:36:31.010]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.010]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.010]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.010]     }, finally = {
  [21:36:31.010]         {
  [21:36:31.010]             NULL
  [21:36:31.010]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.010]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.010]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.010]                 label = NULL, ...) 
  [21:36:31.010]             {
  [21:36:31.010]                 if (substitute) 
  [21:36:31.010]                   expr <- substitute(expr)
  [21:36:31.010]                 local <- as.logical(local)
  [21:36:31.010]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.010]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.010]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.010]                   label = label, ...)
  [21:36:31.010]                 if (!future$lazy) 
  [21:36:31.010]                   future <- run(future)
  [21:36:31.010]                 invisible(future)
  [21:36:31.010]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.010]         }
  [21:36:31.010]         base::options(...future.oldOptions)
  [21:36:31.010]     })
  [21:36:31.010]     Sys.time
  [21:36:31.010]     if (base::is.na(TRUE)) {
  [21:36:31.010]     }
  [21:36:31.010]     else {
  [21:36:31.010]         base::sink(type = "output", split = FALSE)
  [21:36:31.010]         if (TRUE) {
  [21:36:31.010]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.010]         }
  [21:36:31.010]         else {
  [21:36:31.010]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.010]         }
  [21:36:31.010]         base::close(...future.stdout)
  [21:36:31.010]         ...future.stdout <- NULL
  [21:36:31.010]     }
  [21:36:31.010]     ...future.result$conditions <- ...future.conditions
  [21:36:31.010]     ...future.result
  [21:36:31.010] }
  [21:36:31.014] plan(): Setting new future strategy stack:
  [21:36:31.015] List of future strategies:
  [21:36:31.015] 1. sequential:
  [21:36:31.015]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.015]    - tweaked: FALSE
  [21:36:31.015]    - call: NULL
  [21:36:31.015] plan(): nbrOfWorkers() = 1
  [21:36:31.019] plan(): Setting new future strategy stack:
  [21:36:31.020] List of future strategies:
  [21:36:31.020] 1. sequential:
  [21:36:31.020]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.020]    - tweaked: FALSE
  [21:36:31.020]    - call: plan(strategy)
  [21:36:31.021] plan(): nbrOfWorkers() = 1
  [21:36:31.022] SequentialFuture started (and completed)
  [21:36:31.023] getGlobalsAndPackages() ...
  [21:36:31.023] Searching for globals...
  [21:36:31.025] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.026] Searching for globals ... DONE
  [21:36:31.026] Resolving globals: FALSE
  [21:36:31.027] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.027] - globals: [1] 'x'
  [21:36:31.028] 
  [21:36:31.028] getGlobalsAndPackages() ... DONE
  [21:36:31.029] Packages needed by the future expression (n = 0): <none>
  [21:36:31.030] Packages needed by future strategies (n = 0): <none>
  [21:36:31.034] {
  [21:36:31.034]     {
  [21:36:31.034]         ...future.startTime <- base::Sys.time()
  [21:36:31.034]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.034]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.034]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.034]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.034]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.034]         {
  [21:36:31.034]             {
  [21:36:31.034]                 base::local({
  [21:36:31.034]                   has_future <- base::requireNamespace("future", 
  [21:36:31.034]                     quietly = TRUE)
  [21:36:31.034]                   version <- if (has_future) 
  [21:36:31.034]                     utils::packageVersion("future")
  [21:36:31.034]                   else NULL
  [21:36:31.034]                   if (!has_future || version < "1.8.0") {
  [21:36:31.034]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.034]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.034]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.034]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.034]                         "release", "version")], collapse = " "), 
  [21:36:31.034]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.034]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.034]                       info)
  [21:36:31.034]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.034]                     if (!has_future) {
  [21:36:31.034]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.034]                         info)
  [21:36:31.034]                     }
  [21:36:31.034]                     else {
  [21:36:31.034]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.034]                         info, version)
  [21:36:31.034]                     }
  [21:36:31.034]                     base::stop(msg)
  [21:36:31.034]                   }
  [21:36:31.034]                 })
  [21:36:31.034]             }
  [21:36:31.034]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.034]         }
  [21:36:31.034]     }
  [21:36:31.034]     if (base::is.na(TRUE)) {
  [21:36:31.034]     }
  [21:36:31.034]     else {
  [21:36:31.034]         if (TRUE) {
  [21:36:31.034]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.034]                 open = "w")
  [21:36:31.034]         }
  [21:36:31.034]         else {
  [21:36:31.034]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.034]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.034]         }
  [21:36:31.034]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.034]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.034]             base::sink(type = "output", split = FALSE)
  [21:36:31.034]             base::close(...future.stdout)
  [21:36:31.034]         }, add = TRUE)
  [21:36:31.034]     }
  [21:36:31.034]     ...future.frame <- base::sys.nframe()
  [21:36:31.034]     ...future.conditions <- base::list()
  [21:36:31.034]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.034]     ...future.result <- base::tryCatch({
  [21:36:31.034]         base::withCallingHandlers({
  [21:36:31.034]             ...future.value <- base::withVisible(base::local({
  [21:36:31.034]                 sample(x, size = 1L)
  [21:36:31.034]             }))
  [21:36:31.034]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.034]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.034]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.034]                 version = "1.8")
  [21:36:31.034]         }, condition = base::local({
  [21:36:31.034]             c <- base::c
  [21:36:31.034]             inherits <- base::inherits
  [21:36:31.034]             invokeRestart <- base::invokeRestart
  [21:36:31.034]             length <- base::length
  [21:36:31.034]             list <- base::list
  [21:36:31.034]             seq.int <- base::seq.int
  [21:36:31.034]             signalCondition <- base::signalCondition
  [21:36:31.034]             sys.calls <- base::sys.calls
  [21:36:31.034]             Sys.time <- base::Sys.time
  [21:36:31.034]             `[[` <- base::`[[`
  [21:36:31.034]             `+` <- base::`+`
  [21:36:31.034]             `<<-` <- base::`<<-`
  [21:36:31.034]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.034]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.034]                   3L)]
  [21:36:31.034]             }
  [21:36:31.034]             function(cond) {
  [21:36:31.034]                 if (inherits(cond, "error")) {
  [21:36:31.034]                   sessionInformation <- function() {
  [21:36:31.034]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.034]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.034]                       search = base::search(), system = base::Sys.info())
  [21:36:31.034]                   }
  [21:36:31.034]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.034]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.034]                     cond$call), session = sessionInformation(), 
  [21:36:31.034]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.034]                   signalCondition(cond)
  [21:36:31.034]                 }
  [21:36:31.034]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.034]                 ))) {
  [21:36:31.034]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.034]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.034]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.034]                   if (!signal) {
  [21:36:31.034]                     muffleCondition <- function (cond) 
  [21:36:31.034]                     {
  [21:36:31.034]                       inherits <- base::inherits
  [21:36:31.034]                       invokeRestart <- base::invokeRestart
  [21:36:31.034]                       muffled <- FALSE
  [21:36:31.034]                       if (inherits(cond, "message")) {
  [21:36:31.034]                         invokeRestart("muffleMessage")
  [21:36:31.034]                         muffled <- TRUE
  [21:36:31.034]                       }
  [21:36:31.034]                       else if (inherits(cond, "warning")) {
  [21:36:31.034]                         invokeRestart("muffleWarning")
  [21:36:31.034]                         muffled <- TRUE
  [21:36:31.034]                       }
  [21:36:31.034]                       else if (inherits(cond, "condition")) {
  [21:36:31.034]                         computeRestarts <- base::computeRestarts
  [21:36:31.034]                         grepl <- base::grepl
  [21:36:31.034]                         is.null <- base::is.null
  [21:36:31.034]                         restarts <- computeRestarts(cond)
  [21:36:31.034]                         for (restart in restarts) {
  [21:36:31.034]                           name <- restart$name
  [21:36:31.034]                           if (is.null(name)) 
  [21:36:31.034]                             next
  [21:36:31.034]                           if (!grepl("^muffle", name)) 
  [21:36:31.034]                             next
  [21:36:31.034]                           invokeRestart(restart)
  [21:36:31.034]                           muffled <- TRUE
  [21:36:31.034]                           break
  [21:36:31.034]                         }
  [21:36:31.034]                       }
  [21:36:31.034]                       invisible(muffled)
  [21:36:31.034]                     }
  [21:36:31.034]                     muffleCondition(cond)
  [21:36:31.034]                   }
  [21:36:31.034]                 }
  [21:36:31.034]             }
  [21:36:31.034]         }))
  [21:36:31.034]     }, error = function(ex) {
  [21:36:31.034]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.034]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.034]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.034]     }, finally = {
  [21:36:31.034]         {
  [21:36:31.034]             NULL
  [21:36:31.034]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.034]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.034]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.034]                 label = NULL, ...) 
  [21:36:31.034]             {
  [21:36:31.034]                 if (substitute) 
  [21:36:31.034]                   expr <- substitute(expr)
  [21:36:31.034]                 local <- as.logical(local)
  [21:36:31.034]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.034]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.034]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.034]                   label = label, ...)
  [21:36:31.034]                 if (!future$lazy) 
  [21:36:31.034]                   future <- run(future)
  [21:36:31.034]                 invisible(future)
  [21:36:31.034]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.034]         }
  [21:36:31.034]         base::options(...future.oldOptions)
  [21:36:31.034]     })
  [21:36:31.034]     Sys.time
  [21:36:31.034]     if (base::is.na(TRUE)) {
  [21:36:31.034]     }
  [21:36:31.034]     else {
  [21:36:31.034]         base::sink(type = "output", split = FALSE)
  [21:36:31.034]         if (TRUE) {
  [21:36:31.034]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.034]         }
  [21:36:31.034]         else {
  [21:36:31.034]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.034]         }
  [21:36:31.034]         base::close(...future.stdout)
  [21:36:31.034]         ...future.stdout <- NULL
  [21:36:31.034]     }
  [21:36:31.034]     ...future.result$conditions <- ...future.conditions
  [21:36:31.034]     ...future.result
  [21:36:31.034] }
  [21:36:31.038] plan(): Setting new future strategy stack:
  [21:36:31.039] List of future strategies:
  [21:36:31.039] 1. sequential:
  [21:36:31.039]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.039]    - tweaked: FALSE
  [21:36:31.039]    - call: NULL
  [21:36:31.040] plan(): nbrOfWorkers() = 1
  [21:36:31.041] plan(): Setting new future strategy stack:
  [21:36:31.041] List of future strategies:
  [21:36:31.041] 1. sequential:
  [21:36:31.041]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.041]    - tweaked: FALSE
  [21:36:31.041]    - call: plan(strategy)
  [21:36:31.042] plan(): nbrOfWorkers() = 1
  [21:36:31.043] SequentialFuture started (and completed)
  [21:36:31.044] getGlobalsAndPackages() ...
  [21:36:31.044] Searching for globals...
  [21:36:31.046] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.046] Searching for globals ... DONE
  [21:36:31.062] Resolving globals: FALSE
  [21:36:31.063] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.063] - globals: [1] 'x'
  [21:36:31.064] 
  [21:36:31.064] getGlobalsAndPackages() ... DONE
  [21:36:31.066] Packages needed by the future expression (n = 0): <none>
  [21:36:31.066] Packages needed by future strategies (n = 0): <none>
  [21:36:31.070] {
  [21:36:31.070]     {
  [21:36:31.070]         ...future.startTime <- base::Sys.time()
  [21:36:31.070]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.070]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.070]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.070]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.070]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.070]         {
  [21:36:31.070]             {
  [21:36:31.070]                 base::local({
  [21:36:31.070]                   has_future <- base::requireNamespace("future", 
  [21:36:31.070]                     quietly = TRUE)
  [21:36:31.070]                   version <- if (has_future) 
  [21:36:31.070]                     utils::packageVersion("future")
  [21:36:31.070]                   else NULL
  [21:36:31.070]                   if (!has_future || version < "1.8.0") {
  [21:36:31.070]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.070]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.070]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.070]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.070]                         "release", "version")], collapse = " "), 
  [21:36:31.070]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.070]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.070]                       info)
  [21:36:31.070]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.070]                     if (!has_future) {
  [21:36:31.070]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.070]                         info)
  [21:36:31.070]                     }
  [21:36:31.070]                     else {
  [21:36:31.070]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.070]                         info, version)
  [21:36:31.070]                     }
  [21:36:31.070]                     base::stop(msg)
  [21:36:31.070]                   }
  [21:36:31.070]                 })
  [21:36:31.070]             }
  [21:36:31.070]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.070]         }
  [21:36:31.070]     }
  [21:36:31.070]     if (base::is.na(TRUE)) {
  [21:36:31.070]     }
  [21:36:31.070]     else {
  [21:36:31.070]         if (TRUE) {
  [21:36:31.070]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.070]                 open = "w")
  [21:36:31.070]         }
  [21:36:31.070]         else {
  [21:36:31.070]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.070]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.070]         }
  [21:36:31.070]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.070]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.070]             base::sink(type = "output", split = FALSE)
  [21:36:31.070]             base::close(...future.stdout)
  [21:36:31.070]         }, add = TRUE)
  [21:36:31.070]     }
  [21:36:31.070]     ...future.frame <- base::sys.nframe()
  [21:36:31.070]     ...future.conditions <- base::list()
  [21:36:31.070]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.070]     ...future.result <- base::tryCatch({
  [21:36:31.070]         base::withCallingHandlers({
  [21:36:31.070]             ...future.value <- base::withVisible(base::local({
  [21:36:31.070]                 sample(x, size = 1L)
  [21:36:31.070]             }))
  [21:36:31.070]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.070]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.070]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.070]                 version = "1.8")
  [21:36:31.070]         }, condition = base::local({
  [21:36:31.070]             c <- base::c
  [21:36:31.070]             inherits <- base::inherits
  [21:36:31.070]             invokeRestart <- base::invokeRestart
  [21:36:31.070]             length <- base::length
  [21:36:31.070]             list <- base::list
  [21:36:31.070]             seq.int <- base::seq.int
  [21:36:31.070]             signalCondition <- base::signalCondition
  [21:36:31.070]             sys.calls <- base::sys.calls
  [21:36:31.070]             Sys.time <- base::Sys.time
  [21:36:31.070]             `[[` <- base::`[[`
  [21:36:31.070]             `+` <- base::`+`
  [21:36:31.070]             `<<-` <- base::`<<-`
  [21:36:31.070]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.070]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.070]                   3L)]
  [21:36:31.070]             }
  [21:36:31.070]             function(cond) {
  [21:36:31.070]                 if (inherits(cond, "error")) {
  [21:36:31.070]                   sessionInformation <- function() {
  [21:36:31.070]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.070]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.070]                       search = base::search(), system = base::Sys.info())
  [21:36:31.070]                   }
  [21:36:31.070]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.070]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.070]                     cond$call), session = sessionInformation(), 
  [21:36:31.070]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.070]                   signalCondition(cond)
  [21:36:31.070]                 }
  [21:36:31.070]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.070]                 ))) {
  [21:36:31.070]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.070]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.070]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.070]                   if (!signal) {
  [21:36:31.070]                     muffleCondition <- function (cond) 
  [21:36:31.070]                     {
  [21:36:31.070]                       inherits <- base::inherits
  [21:36:31.070]                       invokeRestart <- base::invokeRestart
  [21:36:31.070]                       muffled <- FALSE
  [21:36:31.070]                       if (inherits(cond, "message")) {
  [21:36:31.070]                         invokeRestart("muffleMessage")
  [21:36:31.070]                         muffled <- TRUE
  [21:36:31.070]                       }
  [21:36:31.070]                       else if (inherits(cond, "warning")) {
  [21:36:31.070]                         invokeRestart("muffleWarning")
  [21:36:31.070]                         muffled <- TRUE
  [21:36:31.070]                       }
  [21:36:31.070]                       else if (inherits(cond, "condition")) {
  [21:36:31.070]                         computeRestarts <- base::computeRestarts
  [21:36:31.070]                         grepl <- base::grepl
  [21:36:31.070]                         is.null <- base::is.null
  [21:36:31.070]                         restarts <- computeRestarts(cond)
  [21:36:31.070]                         for (restart in restarts) {
  [21:36:31.070]                           name <- restart$name
  [21:36:31.070]                           if (is.null(name)) 
  [21:36:31.070]                             next
  [21:36:31.070]                           if (!grepl("^muffle", name)) 
  [21:36:31.070]                             next
  [21:36:31.070]                           invokeRestart(restart)
  [21:36:31.070]                           muffled <- TRUE
  [21:36:31.070]                           break
  [21:36:31.070]                         }
  [21:36:31.070]                       }
  [21:36:31.070]                       invisible(muffled)
  [21:36:31.070]                     }
  [21:36:31.070]                     muffleCondition(cond)
  [21:36:31.070]                   }
  [21:36:31.070]                 }
  [21:36:31.070]             }
  [21:36:31.070]         }))
  [21:36:31.070]     }, error = function(ex) {
  [21:36:31.070]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.070]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.070]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.070]     }, finally = {
  [21:36:31.070]         {
  [21:36:31.070]             NULL
  [21:36:31.070]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.070]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.070]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.070]                 label = NULL, ...) 
  [21:36:31.070]             {
  [21:36:31.070]                 if (substitute) 
  [21:36:31.070]                   expr <- substitute(expr)
  [21:36:31.070]                 local <- as.logical(local)
  [21:36:31.070]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.070]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.070]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.070]                   label = label, ...)
  [21:36:31.070]                 if (!future$lazy) 
  [21:36:31.070]                   future <- run(future)
  [21:36:31.070]                 invisible(future)
  [21:36:31.070]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.070]         }
  [21:36:31.070]         base::options(...future.oldOptions)
  [21:36:31.070]     })
  [21:36:31.070]     Sys.time
  [21:36:31.070]     if (base::is.na(TRUE)) {
  [21:36:31.070]     }
  [21:36:31.070]     else {
  [21:36:31.070]         base::sink(type = "output", split = FALSE)
  [21:36:31.070]         if (TRUE) {
  [21:36:31.070]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.070]         }
  [21:36:31.070]         else {
  [21:36:31.070]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.070]         }
  [21:36:31.070]         base::close(...future.stdout)
  [21:36:31.070]         ...future.stdout <- NULL
  [21:36:31.070]     }
  [21:36:31.070]     ...future.result$conditions <- ...future.conditions
  [21:36:31.070]     ...future.result
  [21:36:31.070] }
  [21:36:31.075] plan(): Setting new future strategy stack:
  [21:36:31.075] List of future strategies:
  [21:36:31.075] 1. sequential:
  [21:36:31.075]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.075]    - tweaked: FALSE
  [21:36:31.075]    - call: NULL
  [21:36:31.076] plan(): nbrOfWorkers() = 1
  [21:36:31.077] plan(): Setting new future strategy stack:
  [21:36:31.078] List of future strategies:
  [21:36:31.078] 1. sequential:
  [21:36:31.078]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.078]    - tweaked: FALSE
  [21:36:31.078]    - call: plan(strategy)
  [21:36:31.095] plan(): nbrOfWorkers() = 1
  [21:36:31.095] SequentialFuture started (and completed)
  [21:36:31.097] getGlobalsAndPackages() ...
  [21:36:31.097] Searching for globals...
  [21:36:31.099] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.099] Searching for globals ... DONE
  [21:36:31.100] Resolving globals: FALSE
  [21:36:31.101] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.101] - globals: [1] 'x'
  [21:36:31.102] 
  [21:36:31.102] getGlobalsAndPackages() ... DONE
  [21:36:31.104] Packages needed by the future expression (n = 0): <none>
  [21:36:31.104] Packages needed by future strategies (n = 0): <none>
  [21:36:31.109] {
  [21:36:31.109]     {
  [21:36:31.109]         ...future.startTime <- base::Sys.time()
  [21:36:31.109]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.109]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.109]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.109]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.109]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.109]         {
  [21:36:31.109]             {
  [21:36:31.109]                 base::local({
  [21:36:31.109]                   has_future <- base::requireNamespace("future", 
  [21:36:31.109]                     quietly = TRUE)
  [21:36:31.109]                   version <- if (has_future) 
  [21:36:31.109]                     utils::packageVersion("future")
  [21:36:31.109]                   else NULL
  [21:36:31.109]                   if (!has_future || version < "1.8.0") {
  [21:36:31.109]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.109]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.109]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.109]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.109]                         "release", "version")], collapse = " "), 
  [21:36:31.109]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.109]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.109]                       info)
  [21:36:31.109]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.109]                     if (!has_future) {
  [21:36:31.109]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.109]                         info)
  [21:36:31.109]                     }
  [21:36:31.109]                     else {
  [21:36:31.109]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.109]                         info, version)
  [21:36:31.109]                     }
  [21:36:31.109]                     base::stop(msg)
  [21:36:31.109]                   }
  [21:36:31.109]                 })
  [21:36:31.109]             }
  [21:36:31.109]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.109]         }
  [21:36:31.109]     }
  [21:36:31.109]     if (base::is.na(TRUE)) {
  [21:36:31.109]     }
  [21:36:31.109]     else {
  [21:36:31.109]         if (TRUE) {
  [21:36:31.109]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.109]                 open = "w")
  [21:36:31.109]         }
  [21:36:31.109]         else {
  [21:36:31.109]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.109]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.109]         }
  [21:36:31.109]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.109]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.109]             base::sink(type = "output", split = FALSE)
  [21:36:31.109]             base::close(...future.stdout)
  [21:36:31.109]         }, add = TRUE)
  [21:36:31.109]     }
  [21:36:31.109]     ...future.frame <- base::sys.nframe()
  [21:36:31.109]     ...future.conditions <- base::list()
  [21:36:31.109]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.109]     ...future.result <- base::tryCatch({
  [21:36:31.109]         base::withCallingHandlers({
  [21:36:31.109]             ...future.value <- base::withVisible(base::local({
  [21:36:31.109]                 sample(x, size = 1L)
  [21:36:31.109]             }))
  [21:36:31.109]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.109]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.109]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.109]                 version = "1.8")
  [21:36:31.109]         }, condition = base::local({
  [21:36:31.109]             c <- base::c
  [21:36:31.109]             inherits <- base::inherits
  [21:36:31.109]             invokeRestart <- base::invokeRestart
  [21:36:31.109]             length <- base::length
  [21:36:31.109]             list <- base::list
  [21:36:31.109]             seq.int <- base::seq.int
  [21:36:31.109]             signalCondition <- base::signalCondition
  [21:36:31.109]             sys.calls <- base::sys.calls
  [21:36:31.109]             Sys.time <- base::Sys.time
  [21:36:31.109]             `[[` <- base::`[[`
  [21:36:31.109]             `+` <- base::`+`
  [21:36:31.109]             `<<-` <- base::`<<-`
  [21:36:31.109]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.109]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.109]                   3L)]
  [21:36:31.109]             }
  [21:36:31.109]             function(cond) {
  [21:36:31.109]                 if (inherits(cond, "error")) {
  [21:36:31.109]                   sessionInformation <- function() {
  [21:36:31.109]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.109]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.109]                       search = base::search(), system = base::Sys.info())
  [21:36:31.109]                   }
  [21:36:31.109]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.109]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.109]                     cond$call), session = sessionInformation(), 
  [21:36:31.109]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.109]                   signalCondition(cond)
  [21:36:31.109]                 }
  [21:36:31.109]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.109]                 ))) {
  [21:36:31.109]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.109]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.109]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.109]                   if (!signal) {
  [21:36:31.109]                     muffleCondition <- function (cond) 
  [21:36:31.109]                     {
  [21:36:31.109]                       inherits <- base::inherits
  [21:36:31.109]                       invokeRestart <- base::invokeRestart
  [21:36:31.109]                       muffled <- FALSE
  [21:36:31.109]                       if (inherits(cond, "message")) {
  [21:36:31.109]                         invokeRestart("muffleMessage")
  [21:36:31.109]                         muffled <- TRUE
  [21:36:31.109]                       }
  [21:36:31.109]                       else if (inherits(cond, "warning")) {
  [21:36:31.109]                         invokeRestart("muffleWarning")
  [21:36:31.109]                         muffled <- TRUE
  [21:36:31.109]                       }
  [21:36:31.109]                       else if (inherits(cond, "condition")) {
  [21:36:31.109]                         computeRestarts <- base::computeRestarts
  [21:36:31.109]                         grepl <- base::grepl
  [21:36:31.109]                         is.null <- base::is.null
  [21:36:31.109]                         restarts <- computeRestarts(cond)
  [21:36:31.109]                         for (restart in restarts) {
  [21:36:31.109]                           name <- restart$name
  [21:36:31.109]                           if (is.null(name)) 
  [21:36:31.109]                             next
  [21:36:31.109]                           if (!grepl("^muffle", name)) 
  [21:36:31.109]                             next
  [21:36:31.109]                           invokeRestart(restart)
  [21:36:31.109]                           muffled <- TRUE
  [21:36:31.109]                           break
  [21:36:31.109]                         }
  [21:36:31.109]                       }
  [21:36:31.109]                       invisible(muffled)
  [21:36:31.109]                     }
  [21:36:31.109]                     muffleCondition(cond)
  [21:36:31.109]                   }
  [21:36:31.109]                 }
  [21:36:31.109]             }
  [21:36:31.109]         }))
  [21:36:31.109]     }, error = function(ex) {
  [21:36:31.109]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.109]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.109]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.109]     }, finally = {
  [21:36:31.109]         {
  [21:36:31.109]             NULL
  [21:36:31.109]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.109]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.109]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.109]                 label = NULL, ...) 
  [21:36:31.109]             {
  [21:36:31.109]                 if (substitute) 
  [21:36:31.109]                   expr <- substitute(expr)
  [21:36:31.109]                 local <- as.logical(local)
  [21:36:31.109]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.109]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.109]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.109]                   label = label, ...)
  [21:36:31.109]                 if (!future$lazy) 
  [21:36:31.109]                   future <- run(future)
  [21:36:31.109]                 invisible(future)
  [21:36:31.109]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.109]         }
  [21:36:31.109]         base::options(...future.oldOptions)
  [21:36:31.109]     })
  [21:36:31.109]     Sys.time
  [21:36:31.109]     if (base::is.na(TRUE)) {
  [21:36:31.109]     }
  [21:36:31.109]     else {
  [21:36:31.109]         base::sink(type = "output", split = FALSE)
  [21:36:31.109]         if (TRUE) {
  [21:36:31.109]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.109]         }
  [21:36:31.109]         else {
  [21:36:31.109]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.109]         }
  [21:36:31.109]         base::close(...future.stdout)
  [21:36:31.109]         ...future.stdout <- NULL
  [21:36:31.109]     }
  [21:36:31.109]     ...future.result$conditions <- ...future.conditions
  [21:36:31.109]     ...future.result
  [21:36:31.109] }
  [21:36:31.129] plan(): Setting new future strategy stack:
  [21:36:31.130] List of future strategies:
  [21:36:31.130] 1. sequential:
  [21:36:31.130]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.130]    - tweaked: FALSE
  [21:36:31.130]    - call: NULL
  [21:36:31.131] plan(): nbrOfWorkers() = 1
  [21:36:31.132] plan(): Setting new future strategy stack:
  [21:36:31.132] List of future strategies:
  [21:36:31.132] 1. sequential:
  [21:36:31.132]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.132]    - tweaked: FALSE
  [21:36:31.132]    - call: plan(strategy)
  [21:36:31.133] plan(): nbrOfWorkers() = 1
  [21:36:31.134] SequentialFuture started (and completed)
  [21:36:31.135] Future state: 'finished'
  [21:36:31.135] signalConditions() ...
  [21:36:31.135]  - include = 'condition'
  [21:36:31.136]  - exclude = 'immediateCondition'
  [21:36:31.136]  - resignal = TRUE
  [21:36:31.136]  - Number of conditions: 1
  [21:36:31.137]  - Condition #1: 'simpleError', 'error', 'condition'
  [21:36:31.137] signalConditions() ... done
  <simpleError: UNRELIABLE VALUE: Future ('fsample_1-12240') unexpectedly generated random numbers without specifying argument '[future.]seed'. There is a risk that those random numbers are not statistically sound and the overall results might be invalid. To fix this, specify argument argument '[future.]seed', e.g. 'seed=TRUE'. This ensures that proper, parallel-safe random numbers are produced via the L'Ecuyer-CMRG method. To disable this check, set option 'future.rng.onMisuse' to "ignore".>
  [21:36:31.158] getGlobalsAndPackages() ...
  [21:36:31.158] Searching for globals...
  [21:36:31.161] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.161] Searching for globals ... DONE
  [21:36:31.162] Resolving globals: FALSE
  [21:36:31.163] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.163] - globals: [1] 'x'
  [21:36:31.163] 
  [21:36:31.164] getGlobalsAndPackages() ... DONE
  [21:36:31.166] Packages needed by the future expression (n = 0): <none>
  [21:36:31.166] Packages needed by future strategies (n = 0): <none>
  [21:36:31.170] {
  [21:36:31.170]     {
  [21:36:31.170]         ...future.startTime <- base::Sys.time()
  [21:36:31.170]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.170]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.170]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.170]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.170]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.170]         {
  [21:36:31.170]             {
  [21:36:31.170]                 base::local({
  [21:36:31.170]                   has_future <- base::requireNamespace("future", 
  [21:36:31.170]                     quietly = TRUE)
  [21:36:31.170]                   version <- if (has_future) 
  [21:36:31.170]                     utils::packageVersion("future")
  [21:36:31.170]                   else NULL
  [21:36:31.170]                   if (!has_future || version < "1.8.0") {
  [21:36:31.170]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.170]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.170]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.170]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.170]                         "release", "version")], collapse = " "), 
  [21:36:31.170]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.170]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.170]                       info)
  [21:36:31.170]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.170]                     if (!has_future) {
  [21:36:31.170]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.170]                         info)
  [21:36:31.170]                     }
  [21:36:31.170]                     else {
  [21:36:31.170]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.170]                         info, version)
  [21:36:31.170]                     }
  [21:36:31.170]                     base::stop(msg)
  [21:36:31.170]                   }
  [21:36:31.170]                 })
  [21:36:31.170]             }
  [21:36:31.170]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.170]         }
  [21:36:31.170]     }
  [21:36:31.170]     if (base::is.na(TRUE)) {
  [21:36:31.170]     }
  [21:36:31.170]     else {
  [21:36:31.170]         if (TRUE) {
  [21:36:31.170]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.170]                 open = "w")
  [21:36:31.170]         }
  [21:36:31.170]         else {
  [21:36:31.170]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.170]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.170]         }
  [21:36:31.170]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.170]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.170]             base::sink(type = "output", split = FALSE)
  [21:36:31.170]             base::close(...future.stdout)
  [21:36:31.170]         }, add = TRUE)
  [21:36:31.170]     }
  [21:36:31.170]     ...future.frame <- base::sys.nframe()
  [21:36:31.170]     ...future.conditions <- base::list()
  [21:36:31.170]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.170]     ...future.result <- base::tryCatch({
  [21:36:31.170]         base::withCallingHandlers({
  [21:36:31.170]             ...future.value <- base::withVisible(base::local({
  [21:36:31.170]                 sample(x, size = 1L)
  [21:36:31.170]             }))
  [21:36:31.170]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.170]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.170]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.170]                 version = "1.8")
  [21:36:31.170]         }, condition = base::local({
  [21:36:31.170]             c <- base::c
  [21:36:31.170]             inherits <- base::inherits
  [21:36:31.170]             invokeRestart <- base::invokeRestart
  [21:36:31.170]             length <- base::length
  [21:36:31.170]             list <- base::list
  [21:36:31.170]             seq.int <- base::seq.int
  [21:36:31.170]             signalCondition <- base::signalCondition
  [21:36:31.170]             sys.calls <- base::sys.calls
  [21:36:31.170]             Sys.time <- base::Sys.time
  [21:36:31.170]             `[[` <- base::`[[`
  [21:36:31.170]             `+` <- base::`+`
  [21:36:31.170]             `<<-` <- base::`<<-`
  [21:36:31.170]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.170]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.170]                   3L)]
  [21:36:31.170]             }
  [21:36:31.170]             function(cond) {
  [21:36:31.170]                 if (inherits(cond, "error")) {
  [21:36:31.170]                   sessionInformation <- function() {
  [21:36:31.170]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.170]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.170]                       search = base::search(), system = base::Sys.info())
  [21:36:31.170]                   }
  [21:36:31.170]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.170]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.170]                     cond$call), session = sessionInformation(), 
  [21:36:31.170]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.170]                   signalCondition(cond)
  [21:36:31.170]                 }
  [21:36:31.170]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.170]                 ))) {
  [21:36:31.170]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.170]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.170]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.170]                   if (!signal) {
  [21:36:31.170]                     muffleCondition <- function (cond) 
  [21:36:31.170]                     {
  [21:36:31.170]                       inherits <- base::inherits
  [21:36:31.170]                       invokeRestart <- base::invokeRestart
  [21:36:31.170]                       muffled <- FALSE
  [21:36:31.170]                       if (inherits(cond, "message")) {
  [21:36:31.170]                         invokeRestart("muffleMessage")
  [21:36:31.170]                         muffled <- TRUE
  [21:36:31.170]                       }
  [21:36:31.170]                       else if (inherits(cond, "warning")) {
  [21:36:31.170]                         invokeRestart("muffleWarning")
  [21:36:31.170]                         muffled <- TRUE
  [21:36:31.170]                       }
  [21:36:31.170]                       else if (inherits(cond, "condition")) {
  [21:36:31.170]                         computeRestarts <- base::computeRestarts
  [21:36:31.170]                         grepl <- base::grepl
  [21:36:31.170]                         is.null <- base::is.null
  [21:36:31.170]                         restarts <- computeRestarts(cond)
  [21:36:31.170]                         for (restart in restarts) {
  [21:36:31.170]                           name <- restart$name
  [21:36:31.170]                           if (is.null(name)) 
  [21:36:31.170]                             next
  [21:36:31.170]                           if (!grepl("^muffle", name)) 
  [21:36:31.170]                             next
  [21:36:31.170]                           invokeRestart(restart)
  [21:36:31.170]                           muffled <- TRUE
  [21:36:31.170]                           break
  [21:36:31.170]                         }
  [21:36:31.170]                       }
  [21:36:31.170]                       invisible(muffled)
  [21:36:31.170]                     }
  [21:36:31.170]                     muffleCondition(cond)
  [21:36:31.170]                   }
  [21:36:31.170]                 }
  [21:36:31.170]             }
  [21:36:31.170]         }))
  [21:36:31.170]     }, error = function(ex) {
  [21:36:31.170]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.170]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.170]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.170]     }, finally = {
  [21:36:31.170]         {
  [21:36:31.170]             NULL
  [21:36:31.170]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.170]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.170]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.170]                 label = NULL, ...) 
  [21:36:31.170]             {
  [21:36:31.170]                 if (substitute) 
  [21:36:31.170]                   expr <- substitute(expr)
  [21:36:31.170]                 local <- as.logical(local)
  [21:36:31.170]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.170]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.170]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.170]                   label = label, ...)
  [21:36:31.170]                 if (!future$lazy) 
  [21:36:31.170]                   future <- run(future)
  [21:36:31.170]                 invisible(future)
  [21:36:31.170]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.170]         }
  [21:36:31.170]         base::options(...future.oldOptions)
  [21:36:31.170]     })
  [21:36:31.170]     Sys.time
  [21:36:31.170]     if (base::is.na(TRUE)) {
  [21:36:31.170]     }
  [21:36:31.170]     else {
  [21:36:31.170]         base::sink(type = "output", split = FALSE)
  [21:36:31.170]         if (TRUE) {
  [21:36:31.170]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.170]         }
  [21:36:31.170]         else {
  [21:36:31.170]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.170]         }
  [21:36:31.170]         base::close(...future.stdout)
  [21:36:31.170]         ...future.stdout <- NULL
  [21:36:31.170]     }
  [21:36:31.170]     ...future.result$conditions <- ...future.conditions
  [21:36:31.170]     ...future.result
  [21:36:31.170] }
  [21:36:31.191] plan(): Setting new future strategy stack:
  [21:36:31.191] List of future strategies:
  [21:36:31.191] 1. sequential:
  [21:36:31.191]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.191]    - tweaked: FALSE
  [21:36:31.191]    - call: NULL
  [21:36:31.192] plan(): nbrOfWorkers() = 1
  [21:36:31.193] plan(): Setting new future strategy stack:
  [21:36:31.194] List of future strategies:
  [21:36:31.194] 1. sequential:
  [21:36:31.194]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.194]    - tweaked: FALSE
  [21:36:31.194]    - call: plan(strategy)
  [21:36:31.195] plan(): nbrOfWorkers() = 1
  [21:36:31.195] SequentialFuture started (and completed)
  [21:36:31.196] getGlobalsAndPackages() ...
  [21:36:31.197] Searching for globals...
  [21:36:31.199] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.199] Searching for globals ... DONE
  [21:36:31.200] Resolving globals: FALSE
  [21:36:31.200] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.201] - globals: [1] 'x'
  [21:36:31.201] 
  [21:36:31.201] getGlobalsAndPackages() ... DONE
  [21:36:31.203] Packages needed by the future expression (n = 0): <none>
  [21:36:31.204] Packages needed by future strategies (n = 0): <none>
  [21:36:31.224] {
  [21:36:31.224]     {
  [21:36:31.224]         ...future.startTime <- base::Sys.time()
  [21:36:31.224]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.224]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.224]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.224]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.224]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.224]         {
  [21:36:31.224]             {
  [21:36:31.224]                 base::local({
  [21:36:31.224]                   has_future <- base::requireNamespace("future", 
  [21:36:31.224]                     quietly = TRUE)
  [21:36:31.224]                   version <- if (has_future) 
  [21:36:31.224]                     utils::packageVersion("future")
  [21:36:31.224]                   else NULL
  [21:36:31.224]                   if (!has_future || version < "1.8.0") {
  [21:36:31.224]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.224]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.224]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.224]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.224]                         "release", "version")], collapse = " "), 
  [21:36:31.224]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.224]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.224]                       info)
  [21:36:31.224]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.224]                     if (!has_future) {
  [21:36:31.224]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.224]                         info)
  [21:36:31.224]                     }
  [21:36:31.224]                     else {
  [21:36:31.224]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.224]                         info, version)
  [21:36:31.224]                     }
  [21:36:31.224]                     base::stop(msg)
  [21:36:31.224]                   }
  [21:36:31.224]                 })
  [21:36:31.224]             }
  [21:36:31.224]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.224]         }
  [21:36:31.224]     }
  [21:36:31.224]     if (base::is.na(TRUE)) {
  [21:36:31.224]     }
  [21:36:31.224]     else {
  [21:36:31.224]         if (TRUE) {
  [21:36:31.224]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.224]                 open = "w")
  [21:36:31.224]         }
  [21:36:31.224]         else {
  [21:36:31.224]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.224]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.224]         }
  [21:36:31.224]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.224]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.224]             base::sink(type = "output", split = FALSE)
  [21:36:31.224]             base::close(...future.stdout)
  [21:36:31.224]         }, add = TRUE)
  [21:36:31.224]     }
  [21:36:31.224]     ...future.frame <- base::sys.nframe()
  [21:36:31.224]     ...future.conditions <- base::list()
  [21:36:31.224]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.224]     ...future.result <- base::tryCatch({
  [21:36:31.224]         base::withCallingHandlers({
  [21:36:31.224]             ...future.value <- base::withVisible(base::local({
  [21:36:31.224]                 sample(x, size = 1L)
  [21:36:31.224]             }))
  [21:36:31.224]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.224]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.224]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.224]                 version = "1.8")
  [21:36:31.224]         }, condition = base::local({
  [21:36:31.224]             c <- base::c
  [21:36:31.224]             inherits <- base::inherits
  [21:36:31.224]             invokeRestart <- base::invokeRestart
  [21:36:31.224]             length <- base::length
  [21:36:31.224]             list <- base::list
  [21:36:31.224]             seq.int <- base::seq.int
  [21:36:31.224]             signalCondition <- base::signalCondition
  [21:36:31.224]             sys.calls <- base::sys.calls
  [21:36:31.224]             Sys.time <- base::Sys.time
  [21:36:31.224]             `[[` <- base::`[[`
  [21:36:31.224]             `+` <- base::`+`
  [21:36:31.224]             `<<-` <- base::`<<-`
  [21:36:31.224]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.224]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.224]                   3L)]
  [21:36:31.224]             }
  [21:36:31.224]             function(cond) {
  [21:36:31.224]                 if (inherits(cond, "error")) {
  [21:36:31.224]                   sessionInformation <- function() {
  [21:36:31.224]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.224]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.224]                       search = base::search(), system = base::Sys.info())
  [21:36:31.224]                   }
  [21:36:31.224]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.224]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.224]                     cond$call), session = sessionInformation(), 
  [21:36:31.224]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.224]                   signalCondition(cond)
  [21:36:31.224]                 }
  [21:36:31.224]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.224]                 ))) {
  [21:36:31.224]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.224]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.224]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.224]                   if (!signal) {
  [21:36:31.224]                     muffleCondition <- function (cond) 
  [21:36:31.224]                     {
  [21:36:31.224]                       inherits <- base::inherits
  [21:36:31.224]                       invokeRestart <- base::invokeRestart
  [21:36:31.224]                       muffled <- FALSE
  [21:36:31.224]                       if (inherits(cond, "message")) {
  [21:36:31.224]                         invokeRestart("muffleMessage")
  [21:36:31.224]                         muffled <- TRUE
  [21:36:31.224]                       }
  [21:36:31.224]                       else if (inherits(cond, "warning")) {
  [21:36:31.224]                         invokeRestart("muffleWarning")
  [21:36:31.224]                         muffled <- TRUE
  [21:36:31.224]                       }
  [21:36:31.224]                       else if (inherits(cond, "condition")) {
  [21:36:31.224]                         computeRestarts <- base::computeRestarts
  [21:36:31.224]                         grepl <- base::grepl
  [21:36:31.224]                         is.null <- base::is.null
  [21:36:31.224]                         restarts <- computeRestarts(cond)
  [21:36:31.224]                         for (restart in restarts) {
  [21:36:31.224]                           name <- restart$name
  [21:36:31.224]                           if (is.null(name)) 
  [21:36:31.224]                             next
  [21:36:31.224]                           if (!grepl("^muffle", name)) 
  [21:36:31.224]                             next
  [21:36:31.224]                           invokeRestart(restart)
  [21:36:31.224]                           muffled <- TRUE
  [21:36:31.224]                           break
  [21:36:31.224]                         }
  [21:36:31.224]                       }
  [21:36:31.224]                       invisible(muffled)
  [21:36:31.224]                     }
  [21:36:31.224]                     muffleCondition(cond)
  [21:36:31.224]                   }
  [21:36:31.224]                 }
  [21:36:31.224]             }
  [21:36:31.224]         }))
  [21:36:31.224]     }, error = function(ex) {
  [21:36:31.224]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.224]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.224]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.224]     }, finally = {
  [21:36:31.224]         {
  [21:36:31.224]             NULL
  [21:36:31.224]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.224]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.224]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.224]                 label = NULL, ...) 
  [21:36:31.224]             {
  [21:36:31.224]                 if (substitute) 
  [21:36:31.224]                   expr <- substitute(expr)
  [21:36:31.224]                 local <- as.logical(local)
  [21:36:31.224]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.224]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.224]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.224]                   label = label, ...)
  [21:36:31.224]                 if (!future$lazy) 
  [21:36:31.224]                   future <- run(future)
  [21:36:31.224]                 invisible(future)
  [21:36:31.224]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.224]         }
  [21:36:31.224]         base::options(...future.oldOptions)
  [21:36:31.224]     })
  [21:36:31.224]     Sys.time
  [21:36:31.224]     if (base::is.na(TRUE)) {
  [21:36:31.224]     }
  [21:36:31.224]     else {
  [21:36:31.224]         base::sink(type = "output", split = FALSE)
  [21:36:31.224]         if (TRUE) {
  [21:36:31.224]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.224]         }
  [21:36:31.224]         else {
  [21:36:31.224]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.224]         }
  [21:36:31.224]         base::close(...future.stdout)
  [21:36:31.224]         ...future.stdout <- NULL
  [21:36:31.224]     }
  [21:36:31.224]     ...future.result$conditions <- ...future.conditions
  [21:36:31.224]     ...future.result
  [21:36:31.224] }
  [21:36:31.229] plan(): Setting new future strategy stack:
  [21:36:31.229] List of future strategies:
  [21:36:31.229] 1. sequential:
  [21:36:31.229]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.229]    - tweaked: FALSE
  [21:36:31.229]    - call: NULL
  [21:36:31.230] plan(): nbrOfWorkers() = 1
  [21:36:31.231] plan(): Setting new future strategy stack:
  [21:36:31.231] List of future strategies:
  [21:36:31.231] 1. sequential:
  [21:36:31.231]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.231]    - tweaked: FALSE
  [21:36:31.231]    - call: plan(strategy)
  [21:36:31.232] plan(): nbrOfWorkers() = 1
  [21:36:31.233] SequentialFuture started (and completed)
  [21:36:31.234] getGlobalsAndPackages() ...
  [21:36:31.234] Searching for globals...
  [21:36:31.236] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.237] Searching for globals ... DONE
  [21:36:31.237] Resolving globals: FALSE
  [21:36:31.254] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.255] - globals: [1] 'x'
  [21:36:31.255] 
  [21:36:31.255] getGlobalsAndPackages() ... DONE
  [21:36:31.257] Packages needed by the future expression (n = 0): <none>
  [21:36:31.257] Packages needed by future strategies (n = 0): <none>
  [21:36:31.262] {
  [21:36:31.262]     {
  [21:36:31.262]         ...future.startTime <- base::Sys.time()
  [21:36:31.262]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.262]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.262]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.262]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.262]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.262]         {
  [21:36:31.262]             {
  [21:36:31.262]                 base::local({
  [21:36:31.262]                   has_future <- base::requireNamespace("future", 
  [21:36:31.262]                     quietly = TRUE)
  [21:36:31.262]                   version <- if (has_future) 
  [21:36:31.262]                     utils::packageVersion("future")
  [21:36:31.262]                   else NULL
  [21:36:31.262]                   if (!has_future || version < "1.8.0") {
  [21:36:31.262]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.262]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.262]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.262]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.262]                         "release", "version")], collapse = " "), 
  [21:36:31.262]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.262]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.262]                       info)
  [21:36:31.262]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.262]                     if (!has_future) {
  [21:36:31.262]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.262]                         info)
  [21:36:31.262]                     }
  [21:36:31.262]                     else {
  [21:36:31.262]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.262]                         info, version)
  [21:36:31.262]                     }
  [21:36:31.262]                     base::stop(msg)
  [21:36:31.262]                   }
  [21:36:31.262]                 })
  [21:36:31.262]             }
  [21:36:31.262]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.262]         }
  [21:36:31.262]     }
  [21:36:31.262]     if (base::is.na(TRUE)) {
  [21:36:31.262]     }
  [21:36:31.262]     else {
  [21:36:31.262]         if (TRUE) {
  [21:36:31.262]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.262]                 open = "w")
  [21:36:31.262]         }
  [21:36:31.262]         else {
  [21:36:31.262]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.262]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.262]         }
  [21:36:31.262]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.262]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.262]             base::sink(type = "output", split = FALSE)
  [21:36:31.262]             base::close(...future.stdout)
  [21:36:31.262]         }, add = TRUE)
  [21:36:31.262]     }
  [21:36:31.262]     ...future.frame <- base::sys.nframe()
  [21:36:31.262]     ...future.conditions <- base::list()
  [21:36:31.262]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.262]     ...future.result <- base::tryCatch({
  [21:36:31.262]         base::withCallingHandlers({
  [21:36:31.262]             ...future.value <- base::withVisible(base::local({
  [21:36:31.262]                 sample(x, size = 1L)
  [21:36:31.262]             }))
  [21:36:31.262]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.262]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.262]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.262]                 version = "1.8")
  [21:36:31.262]         }, condition = base::local({
  [21:36:31.262]             c <- base::c
  [21:36:31.262]             inherits <- base::inherits
  [21:36:31.262]             invokeRestart <- base::invokeRestart
  [21:36:31.262]             length <- base::length
  [21:36:31.262]             list <- base::list
  [21:36:31.262]             seq.int <- base::seq.int
  [21:36:31.262]             signalCondition <- base::signalCondition
  [21:36:31.262]             sys.calls <- base::sys.calls
  [21:36:31.262]             Sys.time <- base::Sys.time
  [21:36:31.262]             `[[` <- base::`[[`
  [21:36:31.262]             `+` <- base::`+`
  [21:36:31.262]             `<<-` <- base::`<<-`
  [21:36:31.262]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.262]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.262]                   3L)]
  [21:36:31.262]             }
  [21:36:31.262]             function(cond) {
  [21:36:31.262]                 if (inherits(cond, "error")) {
  [21:36:31.262]                   sessionInformation <- function() {
  [21:36:31.262]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.262]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.262]                       search = base::search(), system = base::Sys.info())
  [21:36:31.262]                   }
  [21:36:31.262]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.262]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.262]                     cond$call), session = sessionInformation(), 
  [21:36:31.262]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.262]                   signalCondition(cond)
  [21:36:31.262]                 }
  [21:36:31.262]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.262]                 ))) {
  [21:36:31.262]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.262]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.262]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.262]                   if (!signal) {
  [21:36:31.262]                     muffleCondition <- function (cond) 
  [21:36:31.262]                     {
  [21:36:31.262]                       inherits <- base::inherits
  [21:36:31.262]                       invokeRestart <- base::invokeRestart
  [21:36:31.262]                       muffled <- FALSE
  [21:36:31.262]                       if (inherits(cond, "message")) {
  [21:36:31.262]                         invokeRestart("muffleMessage")
  [21:36:31.262]                         muffled <- TRUE
  [21:36:31.262]                       }
  [21:36:31.262]                       else if (inherits(cond, "warning")) {
  [21:36:31.262]                         invokeRestart("muffleWarning")
  [21:36:31.262]                         muffled <- TRUE
  [21:36:31.262]                       }
  [21:36:31.262]                       else if (inherits(cond, "condition")) {
  [21:36:31.262]                         computeRestarts <- base::computeRestarts
  [21:36:31.262]                         grepl <- base::grepl
  [21:36:31.262]                         is.null <- base::is.null
  [21:36:31.262]                         restarts <- computeRestarts(cond)
  [21:36:31.262]                         for (restart in restarts) {
  [21:36:31.262]                           name <- restart$name
  [21:36:31.262]                           if (is.null(name)) 
  [21:36:31.262]                             next
  [21:36:31.262]                           if (!grepl("^muffle", name)) 
  [21:36:31.262]                             next
  [21:36:31.262]                           invokeRestart(restart)
  [21:36:31.262]                           muffled <- TRUE
  [21:36:31.262]                           break
  [21:36:31.262]                         }
  [21:36:31.262]                       }
  [21:36:31.262]                       invisible(muffled)
  [21:36:31.262]                     }
  [21:36:31.262]                     muffleCondition(cond)
  [21:36:31.262]                   }
  [21:36:31.262]                 }
  [21:36:31.262]             }
  [21:36:31.262]         }))
  [21:36:31.262]     }, error = function(ex) {
  [21:36:31.262]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.262]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.262]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.262]     }, finally = {
  [21:36:31.262]         {
  [21:36:31.262]             NULL
  [21:36:31.262]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.262]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.262]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.262]                 label = NULL, ...) 
  [21:36:31.262]             {
  [21:36:31.262]                 if (substitute) 
  [21:36:31.262]                   expr <- substitute(expr)
  [21:36:31.262]                 local <- as.logical(local)
  [21:36:31.262]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.262]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.262]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.262]                   label = label, ...)
  [21:36:31.262]                 if (!future$lazy) 
  [21:36:31.262]                   future <- run(future)
  [21:36:31.262]                 invisible(future)
  [21:36:31.262]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.262]         }
  [21:36:31.262]         base::options(...future.oldOptions)
  [21:36:31.262]     })
  [21:36:31.262]     Sys.time
  [21:36:31.262]     if (base::is.na(TRUE)) {
  [21:36:31.262]     }
  [21:36:31.262]     else {
  [21:36:31.262]         base::sink(type = "output", split = FALSE)
  [21:36:31.262]         if (TRUE) {
  [21:36:31.262]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.262]         }
  [21:36:31.262]         else {
  [21:36:31.262]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.262]         }
  [21:36:31.262]         base::close(...future.stdout)
  [21:36:31.262]         ...future.stdout <- NULL
  [21:36:31.262]     }
  [21:36:31.262]     ...future.result$conditions <- ...future.conditions
  [21:36:31.262]     ...future.result
  [21:36:31.262] }
  [21:36:31.276] plan(): Setting new future strategy stack:
  [21:36:31.276] List of future strategies:
  [21:36:31.276] 1. sequential:
  [21:36:31.276]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.276]    - tweaked: FALSE
  [21:36:31.276]    - call: NULL
  [21:36:31.277] plan(): nbrOfWorkers() = 1
  [21:36:31.278] plan(): Setting new future strategy stack:
  [21:36:31.278] List of future strategies:
  [21:36:31.278] 1. sequential:
  [21:36:31.278]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.278]    - tweaked: FALSE
  [21:36:31.278]    - call: plan(strategy)
  [21:36:31.279] plan(): nbrOfWorkers() = 1
  [21:36:31.280] SequentialFuture started (and completed)
  [21:36:31.281] getGlobalsAndPackages() ...
  [21:36:31.281] Searching for globals...
  [21:36:31.283] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.283] Searching for globals ... DONE
  [21:36:31.284] Resolving globals: FALSE
  [21:36:31.285] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.285] - globals: [1] 'x'
  [21:36:31.285] 
  [21:36:31.286] getGlobalsAndPackages() ... DONE
  [21:36:31.307] Packages needed by the future expression (n = 0): <none>
  [21:36:31.307] Packages needed by future strategies (n = 0): <none>
  [21:36:31.312] {
  [21:36:31.312]     {
  [21:36:31.312]         ...future.startTime <- base::Sys.time()
  [21:36:31.312]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.312]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.312]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.312]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.312]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.312]         {
  [21:36:31.312]             {
  [21:36:31.312]                 base::local({
  [21:36:31.312]                   has_future <- base::requireNamespace("future", 
  [21:36:31.312]                     quietly = TRUE)
  [21:36:31.312]                   version <- if (has_future) 
  [21:36:31.312]                     utils::packageVersion("future")
  [21:36:31.312]                   else NULL
  [21:36:31.312]                   if (!has_future || version < "1.8.0") {
  [21:36:31.312]                     info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.312]                       "", base::R.version$version.string), platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.312]                       base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.312]                       os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.312]                         "release", "version")], collapse = " "), 
  [21:36:31.312]                       hostname = base::Sys.info()[["nodename"]])
  [21:36:31.312]                     info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.312]                       info)
  [21:36:31.312]                     info <- base::paste(info, collapse = "; ")
  [21:36:31.312]                     if (!has_future) {
  [21:36:31.312]                       msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.312]                         info)
  [21:36:31.312]                     }
  [21:36:31.312]                     else {
  [21:36:31.312]                       msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.312]                         info, version)
  [21:36:31.312]                     }
  [21:36:31.312]                     base::stop(msg)
  [21:36:31.312]                   }
  [21:36:31.312]                 })
  [21:36:31.312]             }
  [21:36:31.312]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.312]         }
  [21:36:31.312]     }
  [21:36:31.312]     if (base::is.na(TRUE)) {
  [21:36:31.312]     }
  [21:36:31.312]     else {
  [21:36:31.312]         if (TRUE) {
  [21:36:31.312]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.312]                 open = "w")
  [21:36:31.312]         }
  [21:36:31.312]         else {
  [21:36:31.312]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.312]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.312]         }
  [21:36:31.312]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.312]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.312]             base::sink(type = "output", split = FALSE)
  [21:36:31.312]             base::close(...future.stdout)
  [21:36:31.312]         }, add = TRUE)
  [21:36:31.312]     }
  [21:36:31.312]     ...future.frame <- base::sys.nframe()
  [21:36:31.312]     ...future.conditions <- base::list()
  [21:36:31.312]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.312]     ...future.result <- base::tryCatch({
  [21:36:31.312]         base::withCallingHandlers({
  [21:36:31.312]             ...future.value <- base::withVisible(base::local({
  [21:36:31.312]                 sample(x, size = 1L)
  [21:36:31.312]             }))
  [21:36:31.312]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.312]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.312]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.312]                 version = "1.8")
  [21:36:31.312]         }, condition = base::local({
  [21:36:31.312]             c <- base::c
  [21:36:31.312]             inherits <- base::inherits
  [21:36:31.312]             invokeRestart <- base::invokeRestart
  [21:36:31.312]             length <- base::length
  [21:36:31.312]             list <- base::list
  [21:36:31.312]             seq.int <- base::seq.int
  [21:36:31.312]             signalCondition <- base::signalCondition
  [21:36:31.312]             sys.calls <- base::sys.calls
  [21:36:31.312]             Sys.time <- base::Sys.time
  [21:36:31.312]             `[[` <- base::`[[`
  [21:36:31.312]             `+` <- base::`+`
  [21:36:31.312]             `<<-` <- base::`<<-`
  [21:36:31.312]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.312]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.312]                   3L)]
  [21:36:31.312]             }
  [21:36:31.312]             function(cond) {
  [21:36:31.312]                 if (inherits(cond, "error")) {
  [21:36:31.312]                   sessionInformation <- function() {
  [21:36:31.312]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.312]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.312]                       search = base::search(), system = base::Sys.info())
  [21:36:31.312]                   }
  [21:36:31.312]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.312]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.312]                     cond$call), session = sessionInformation(), 
  [21:36:31.312]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.312]                   signalCondition(cond)
  [21:36:31.312]                 }
  [21:36:31.312]                 else if (inherits(cond, c("condition", "immediateCondition"
  [21:36:31.312]                 ))) {
  [21:36:31.312]                   signal <- TRUE && inherits(cond, "immediateCondition")
  [21:36:31.312]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.312]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.312]                   if (!signal) {
  [21:36:31.312]                     muffleCondition <- function (cond) 
  [21:36:31.312]                     {
  [21:36:31.312]                       inherits <- base::inherits
  [21:36:31.312]                       invokeRestart <- base::invokeRestart
  [21:36:31.312]                       muffled <- FALSE
  [21:36:31.312]                       if (inherits(cond, "message")) {
  [21:36:31.312]                         invokeRestart("muffleMessage")
  [21:36:31.312]                         muffled <- TRUE
  [21:36:31.312]                       }
  [21:36:31.312]                       else if (inherits(cond, "warning")) {
  [21:36:31.312]                         invokeRestart("muffleWarning")
  [21:36:31.312]                         muffled <- TRUE
  [21:36:31.312]                       }
  [21:36:31.312]                       else if (inherits(cond, "condition")) {
  [21:36:31.312]                         computeRestarts <- base::computeRestarts
  [21:36:31.312]                         grepl <- base::grepl
  [21:36:31.312]                         is.null <- base::is.null
  [21:36:31.312]                         restarts <- computeRestarts(cond)
  [21:36:31.312]                         for (restart in restarts) {
  [21:36:31.312]                           name <- restart$name
  [21:36:31.312]                           if (is.null(name)) 
  [21:36:31.312]                             next
  [21:36:31.312]                           if (!grepl("^muffle", name)) 
  [21:36:31.312]                             next
  [21:36:31.312]                           invokeRestart(restart)
  [21:36:31.312]                           muffled <- TRUE
  [21:36:31.312]                           break
  [21:36:31.312]                         }
  [21:36:31.312]                       }
  [21:36:31.312]                       invisible(muffled)
  [21:36:31.312]                     }
  [21:36:31.312]                     muffleCondition(cond)
  [21:36:31.312]                   }
  [21:36:31.312]                 }
  [21:36:31.312]             }
  [21:36:31.312]         }))
  [21:36:31.312]     }, error = function(ex) {
  [21:36:31.312]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.312]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.312]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.312]     }, finally = {
  [21:36:31.312]         {
  [21:36:31.312]             NULL
  [21:36:31.312]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.312]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.312]                 globals = TRUE, local = TRUE, earlySignal = FALSE, 
  [21:36:31.312]                 label = NULL, ...) 
  [21:36:31.312]             {
  [21:36:31.312]                 if (substitute) 
  [21:36:31.312]                   expr <- substitute(expr)
  [21:36:31.312]                 local <- as.logical(local)
  [21:36:31.312]                 future <- SequentialFuture(expr = expr, envir = envir, 
  [21:36:31.312]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.312]                   globals = globals, local = local, earlySignal = earlySignal, 
  [21:36:31.312]                   label = label, ...)
  [21:36:31.312]                 if (!future$lazy) 
  [21:36:31.312]                   future <- run(future)
  [21:36:31.312]                 invisible(future)
  [21:36:31.312]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.312]         }
  [21:36:31.312]         base::options(...future.oldOptions)
  [21:36:31.312]     })
  [21:36:31.312]     Sys.time
  [21:36:31.312]     if (base::is.na(TRUE)) {
  [21:36:31.312]     }
  [21:36:31.312]     else {
  [21:36:31.312]         base::sink(type = "output", split = FALSE)
  [21:36:31.312]         if (TRUE) {
  [21:36:31.312]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.312]         }
  [21:36:31.312]         else {
  [21:36:31.312]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.312]         }
  [21:36:31.312]         base::close(...future.stdout)
  [21:36:31.312]         ...future.stdout <- NULL
  [21:36:31.312]     }
  [21:36:31.312]     ...future.result$conditions <- ...future.conditions
  [21:36:31.312]     ...future.result
  [21:36:31.312] }
  [21:36:31.316] plan(): Setting new future strategy stack:
  [21:36:31.317] List of future strategies:
  [21:36:31.317] 1. sequential:
  [21:36:31.317]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.317]    - tweaked: FALSE
  [21:36:31.317]    - call: NULL
  [21:36:31.318] plan(): nbrOfWorkers() = 1
  [21:36:31.319] plan(): Setting new future strategy stack:
  [21:36:31.319] List of future strategies:
  [21:36:31.319] 1. sequential:
  [21:36:31.319]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.319]    - tweaked: FALSE
  [21:36:31.319]    - call: plan(strategy)
  [21:36:31.320] plan(): nbrOfWorkers() = 1
  [21:36:31.320] SequentialFuture started (and completed)
  [[1]]
  [1] 1
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 3
  
  sequential ... done
  Testing with 1 cores ... DONE
  Testing with 2 cores ...
  multicore ...
  [21:36:31.348] plan(): Setting new future strategy stack:
  [21:36:31.348] List of future strategies:
  [21:36:31.348] 1. multicore:
  [21:36:31.348]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.348]    - tweaked: FALSE
  [21:36:31.348]    - call: plan(strategy)
  [21:36:31.349] plan(): nbrOfWorkers() = 2
  [21:36:31.350] getGlobalsAndPackages() ...
  [21:36:31.350] Searching for globals...
  [21:36:31.352] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.353] Searching for globals ... DONE
  [21:36:31.353] Resolving globals: FALSE
  [21:36:31.370] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.370] - globals: [1] 'x'
  [21:36:31.370] 
  [21:36:31.371] getGlobalsAndPackages() ... DONE
  [21:36:31.373] Packages needed by the future expression (n = 0): <none>
  [21:36:31.373] Packages needed by future strategies (n = 0): <none>
  [21:36:31.377] {
  [21:36:31.377]     {
  [21:36:31.377]         ...future.startTime <- base::Sys.time()
  [21:36:31.377]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.377]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.377]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.377]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.377]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.377]         {
  [21:36:31.377]             {
  [21:36:31.377]                 {
  [21:36:31.377]                   {
  [21:36:31.377]                     base::local({
  [21:36:31.377]                       has_future <- base::requireNamespace("future", 
  [21:36:31.377]                         quietly = TRUE)
  [21:36:31.377]                       version <- if (has_future) 
  [21:36:31.377]                         utils::packageVersion("future")
  [21:36:31.377]                       else NULL
  [21:36:31.377]                       if (!has_future || version < "1.8.0") {
  [21:36:31.377]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.377]                           "", base::R.version$version.string), 
  [21:36:31.377]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.377]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.377]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.377]                             "release", "version")], collapse = " "), 
  [21:36:31.377]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.377]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.377]                           info)
  [21:36:31.377]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.377]                         if (!has_future) {
  [21:36:31.377]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.377]                             info)
  [21:36:31.377]                         }
  [21:36:31.377]                         else {
  [21:36:31.377]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.377]                             info, version)
  [21:36:31.377]                         }
  [21:36:31.377]                         base::stop(msg)
  [21:36:31.377]                       }
  [21:36:31.377]                     })
  [21:36:31.377]                   }
  [21:36:31.377]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.377]                   base::options(mc.cores = 1L)
  [21:36:31.377]                 }
  [21:36:31.377]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:31.377]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:31.377]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.377]             }
  [21:36:31.377]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.377]         }
  [21:36:31.377]     }
  [21:36:31.377]     if (base::is.na(TRUE)) {
  [21:36:31.377]     }
  [21:36:31.377]     else {
  [21:36:31.377]         if (TRUE) {
  [21:36:31.377]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.377]                 open = "w")
  [21:36:31.377]         }
  [21:36:31.377]         else {
  [21:36:31.377]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.377]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.377]         }
  [21:36:31.377]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.377]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.377]             base::sink(type = "output", split = FALSE)
  [21:36:31.377]             base::close(...future.stdout)
  [21:36:31.377]         }, add = TRUE)
  [21:36:31.377]     }
  [21:36:31.377]     ...future.frame <- base::sys.nframe()
  [21:36:31.377]     ...future.conditions <- base::list()
  [21:36:31.377]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.377]     ...future.result <- base::tryCatch({
  [21:36:31.377]         base::withCallingHandlers({
  [21:36:31.377]             ...future.value <- base::withVisible(base::local({
  [21:36:31.377]                 sample(x, size = 1L)
  [21:36:31.377]             }))
  [21:36:31.377]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.377]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.377]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.377]                 version = "1.8")
  [21:36:31.377]         }, condition = base::local({
  [21:36:31.377]             c <- base::c
  [21:36:31.377]             inherits <- base::inherits
  [21:36:31.377]             invokeRestart <- base::invokeRestart
  [21:36:31.377]             length <- base::length
  [21:36:31.377]             list <- base::list
  [21:36:31.377]             seq.int <- base::seq.int
  [21:36:31.377]             signalCondition <- base::signalCondition
  [21:36:31.377]             sys.calls <- base::sys.calls
  [21:36:31.377]             Sys.time <- base::Sys.time
  [21:36:31.377]             `[[` <- base::`[[`
  [21:36:31.377]             `+` <- base::`+`
  [21:36:31.377]             `<<-` <- base::`<<-`
  [21:36:31.377]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.377]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.377]                   3L)]
  [21:36:31.377]             }
  [21:36:31.377]             function(cond) {
  [21:36:31.377]                 if (inherits(cond, "error")) {
  [21:36:31.377]                   sessionInformation <- function() {
  [21:36:31.377]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.377]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.377]                       search = base::search(), system = base::Sys.info())
  [21:36:31.377]                   }
  [21:36:31.377]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.377]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.377]                     cond$call), session = sessionInformation(), 
  [21:36:31.377]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.377]                   signalCondition(cond)
  [21:36:31.377]                 }
  [21:36:31.377]                 else if (inherits(cond, "condition")) {
  [21:36:31.377]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.377]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.377]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.377]                   if (!signal) {
  [21:36:31.377]                     muffleCondition <- function (cond) 
  [21:36:31.377]                     {
  [21:36:31.377]                       inherits <- base::inherits
  [21:36:31.377]                       invokeRestart <- base::invokeRestart
  [21:36:31.377]                       muffled <- FALSE
  [21:36:31.377]                       if (inherits(cond, "message")) {
  [21:36:31.377]                         invokeRestart("muffleMessage")
  [21:36:31.377]                         muffled <- TRUE
  [21:36:31.377]                       }
  [21:36:31.377]                       else if (inherits(cond, "warning")) {
  [21:36:31.377]                         invokeRestart("muffleWarning")
  [21:36:31.377]                         muffled <- TRUE
  [21:36:31.377]                       }
  [21:36:31.377]                       else if (inherits(cond, "condition")) {
  [21:36:31.377]                         computeRestarts <- base::computeRestarts
  [21:36:31.377]                         grepl <- base::grepl
  [21:36:31.377]                         is.null <- base::is.null
  [21:36:31.377]                         restarts <- computeRestarts(cond)
  [21:36:31.377]                         for (restart in restarts) {
  [21:36:31.377]                           name <- restart$name
  [21:36:31.377]                           if (is.null(name)) 
  [21:36:31.377]                             next
  [21:36:31.377]                           if (!grepl("^muffle", name)) 
  [21:36:31.377]                             next
  [21:36:31.377]                           invokeRestart(restart)
  [21:36:31.377]                           muffled <- TRUE
  [21:36:31.377]                           break
  [21:36:31.377]                         }
  [21:36:31.377]                       }
  [21:36:31.377]                       invisible(muffled)
  [21:36:31.377]                     }
  [21:36:31.377]                     muffleCondition(cond)
  [21:36:31.377]                   }
  [21:36:31.377]                 }
  [21:36:31.377]             }
  [21:36:31.377]         }))
  [21:36:31.377]     }, error = function(ex) {
  [21:36:31.377]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.377]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.377]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.377]     }, finally = {
  [21:36:31.377]         {
  [21:36:31.377]             {
  [21:36:31.377]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.377]             }
  [21:36:31.377]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.377]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.377]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.377]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.377]             {
  [21:36:31.377]                 if (substitute) 
  [21:36:31.377]                   expr <- substitute(expr)
  [21:36:31.377]                 if (is.function(workers)) 
  [21:36:31.377]                   workers <- workers()
  [21:36:31.377]                 workers <- as.integer(workers)
  [21:36:31.377]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.377]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.377]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.377]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.377]                     local = TRUE, label = label, ...))
  [21:36:31.377]                 }
  [21:36:31.377]                 oopts <- options(mc.cores = workers)
  [21:36:31.377]                 on.exit(options(oopts))
  [21:36:31.377]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.377]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.377]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.377]                   label = label, ...)
  [21:36:31.377]                 if (!future$lazy) 
  [21:36:31.377]                   future <- run(future)
  [21:36:31.377]                 invisible(future)
  [21:36:31.377]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.377]         }
  [21:36:31.377]         base::options(...future.oldOptions)
  [21:36:31.377]     })
  [21:36:31.377]     Sys.time
  [21:36:31.377]     if (base::is.na(TRUE)) {
  [21:36:31.377]     }
  [21:36:31.377]     else {
  [21:36:31.377]         base::sink(type = "output", split = FALSE)
  [21:36:31.377]         if (TRUE) {
  [21:36:31.377]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.377]         }
  [21:36:31.377]         else {
  [21:36:31.377]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.377]         }
  [21:36:31.377]         base::close(...future.stdout)
  [21:36:31.377]         ...future.stdout <- NULL
  [21:36:31.377]     }
  [21:36:31.377]     ...future.result$conditions <- ...future.conditions
  [21:36:31.377]     ...future.result
  [21:36:31.377] }
  [21:36:31.381] requestCore(): workers = 2
  [21:36:31.385] MulticoreFuture started
  [21:36:31.389] getGlobalsAndPackages() ...
  [21:36:31.390] Searching for globals...
  [21:36:31.393] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.393] Searching for globals ... DONE
  [21:36:31.394] Resolving globals: FALSE
  [21:36:31.395] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.395] - globals: [1] 'x'
  [21:36:31.395] 
  [21:36:31.396] getGlobalsAndPackages() ... DONE
  [21:36:31.398] Packages needed by the future expression (n = 0): <none>
  [21:36:31.399] Packages needed by future strategies (n = 0): <none>
  [21:36:31.401] plan(): Setting new future strategy stack:
  [21:36:31.402] List of future strategies:
  [21:36:31.402] 1. sequential:
  [21:36:31.402]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.402]    - tweaked: FALSE
  [21:36:31.402]    - call: NULL
  [21:36:31.403] plan(): nbrOfWorkers() = 1
  [21:36:31.404] plan(): Setting new future strategy stack:
  [21:36:31.404] List of future strategies:
  [21:36:31.404] 1. multicore:
  [21:36:31.404]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.404]    - tweaked: FALSE
  [21:36:31.404]    - call: plan(strategy)
  [21:36:31.406] plan(): nbrOfWorkers() = 2
  [21:36:31.404] {
  [21:36:31.404]     {
  [21:36:31.404]         ...future.startTime <- base::Sys.time()
  [21:36:31.404]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.404]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.404]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.404]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.404]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.404]         {
  [21:36:31.404]             {
  [21:36:31.404]                 {
  [21:36:31.404]                   {
  [21:36:31.404]                     base::local({
  [21:36:31.404]                       has_future <- base::requireNamespace("future", 
  [21:36:31.404]                         quietly = TRUE)
  [21:36:31.404]                       version <- if (has_future) 
  [21:36:31.404]                         utils::packageVersion("future")
  [21:36:31.404]                       else NULL
  [21:36:31.404]                       if (!has_future || version < "1.8.0") {
  [21:36:31.404]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.404]                           "", base::R.version$version.string), 
  [21:36:31.404]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.404]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.404]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.404]                             "release", "version")], collapse = " "), 
  [21:36:31.404]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.404]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.404]                           info)
  [21:36:31.404]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.404]                         if (!has_future) {
  [21:36:31.404]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.404]                             info)
  [21:36:31.404]                         }
  [21:36:31.404]                         else {
  [21:36:31.404]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.404]                             info, version)
  [21:36:31.404]                         }
  [21:36:31.404]                         base::stop(msg)
  [21:36:31.404]                       }
  [21:36:31.404]                     })
  [21:36:31.404]                   }
  [21:36:31.404]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.404]                   base::options(mc.cores = 1L)
  [21:36:31.404]                 }
  [21:36:31.404]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:31.404]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:31.404]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.404]             }
  [21:36:31.404]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.404]         }
  [21:36:31.404]     }
  [21:36:31.404]     if (base::is.na(TRUE)) {
  [21:36:31.404]     }
  [21:36:31.404]     else {
  [21:36:31.404]         if (TRUE) {
  [21:36:31.404]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.404]                 open = "w")
  [21:36:31.404]         }
  [21:36:31.404]         else {
  [21:36:31.404]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.404]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.404]         }
  [21:36:31.404]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.404]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.404]             base::sink(type = "output", split = FALSE)
  [21:36:31.404]             base::close(...future.stdout)
  [21:36:31.404]         }, add = TRUE)
  [21:36:31.404]     }
  [21:36:31.404]     ...future.frame <- base::sys.nframe()
  [21:36:31.404]     ...future.conditions <- base::list()
  [21:36:31.404]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.404]     ...future.result <- base::tryCatch({
  [21:36:31.404]         base::withCallingHandlers({
  [21:36:31.404]             ...future.value <- base::withVisible(base::local({
  [21:36:31.404]                 sample(x, size = 1L)
  [21:36:31.404]             }))
  [21:36:31.404]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.404]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.404]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.404]                 version = "1.8")
  [21:36:31.404]         }, condition = base::local({
  [21:36:31.404]             c <- base::c
  [21:36:31.404]             inherits <- base::inherits
  [21:36:31.404]             invokeRestart <- base::invokeRestart
  [21:36:31.404]             length <- base::length
  [21:36:31.404]             list <- base::list
  [21:36:31.404]             seq.int <- base::seq.int
  [21:36:31.404]             signalCondition <- base::signalCondition
  [21:36:31.404]             sys.calls <- base::sys.calls
  [21:36:31.404]             Sys.time <- base::Sys.time
  [21:36:31.404]             `[[` <- base::`[[`
  [21:36:31.404]             `+` <- base::`+`
  [21:36:31.404]             `<<-` <- base::`<<-`
  [21:36:31.404]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.404]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.404]                   3L)]
  [21:36:31.404]             }
  [21:36:31.404]             function(cond) {
  [21:36:31.404]                 if (inherits(cond, "error")) {
  [21:36:31.404]                   sessionInformation <- function() {
  [21:36:31.404]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.404]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.404]                       search = base::search(), system = base::Sys.info())
  [21:36:31.404]                   }
  [21:36:31.404]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.404]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.404]                     cond$call), session = sessionInformation(), 
  [21:36:31.404]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.404]                   signalCondition(cond)
  [21:36:31.404]                 }
  [21:36:31.404]                 else if (inherits(cond, "condition")) {
  [21:36:31.404]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.404]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.404]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.404]                   if (!signal) {
  [21:36:31.404]                     muffleCondition <- function (cond) 
  [21:36:31.404]                     {
  [21:36:31.404]                       inherits <- base::inherits
  [21:36:31.404]                       invokeRestart <- base::invokeRestart
  [21:36:31.404]                       muffled <- FALSE
  [21:36:31.404]                       if (inherits(cond, "message")) {
  [21:36:31.404]                         invokeRestart("muffleMessage")
  [21:36:31.404]                         muffled <- TRUE
  [21:36:31.404]                       }
  [21:36:31.404]                       else if (inherits(cond, "warning")) {
  [21:36:31.404]                         invokeRestart("muffleWarning")
  [21:36:31.404]                         muffled <- TRUE
  [21:36:31.404]                       }
  [21:36:31.404]                       else if (inherits(cond, "condition")) {
  [21:36:31.404]                         computeRestarts <- base::computeRestarts
  [21:36:31.404]                         grepl <- base::grepl
  [21:36:31.404]                         is.null <- base::is.null
  [21:36:31.404]                         restarts <- computeRestarts(cond)
  [21:36:31.404]                         for (restart in restarts) {
  [21:36:31.404]                           name <- restart$name
  [21:36:31.404]                           if (is.null(name)) 
  [21:36:31.404]                             next
  [21:36:31.404]                           if (!grepl("^muffle", name)) 
  [21:36:31.404]                             next
  [21:36:31.404]                           invokeRestart(restart)
  [21:36:31.404]                           muffled <- TRUE
  [21:36:31.404]                           break
  [21:36:31.404]                         }
  [21:36:31.404]                       }
  [21:36:31.404]                       invisible(muffled)
  [21:36:31.404]                     }
  [21:36:31.404]                     muffleCondition(cond)
  [21:36:31.404]                   }
  [21:36:31.404]                 }
  [21:36:31.404]             }
  [21:36:31.404]         }))
  [21:36:31.404]     }, error = function(ex) {
  [21:36:31.404]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.404]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.404]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.404]     }, finally = {
  [21:36:31.404]         {
  [21:36:31.404]             {
  [21:36:31.404]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.404]             }
  [21:36:31.404]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.404]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.404]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.404]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.404]             {
  [21:36:31.404]                 if (substitute) 
  [21:36:31.404]                   expr <- substitute(expr)
  [21:36:31.404]                 if (is.function(workers)) 
  [21:36:31.404]                   workers <- workers()
  [21:36:31.404]                 workers <- as.integer(workers)
  [21:36:31.404]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.404]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.404]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.404]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.404]                     local = TRUE, label = label, ...))
  [21:36:31.404]                 }
  [21:36:31.404]                 oopts <- options(mc.cores = workers)
  [21:36:31.404]                 on.exit(options(oopts))
  [21:36:31.404]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.404]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.404]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.404]                   label = label, ...)
  [21:36:31.404]                 if (!future$lazy) 
  [21:36:31.404]                   future <- run(future)
  [21:36:31.404]                 invisible(future)
  [21:36:31.404]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.404]         }
  [21:36:31.404]         base::options(...future.oldOptions)
  [21:36:31.404]     })
  [21:36:31.404]     Sys.time
  [21:36:31.404]     if (base::is.na(TRUE)) {
  [21:36:31.404]     }
  [21:36:31.404]     else {
  [21:36:31.404]         base::sink(type = "output", split = FALSE)
  [21:36:31.404]         if (TRUE) {
  [21:36:31.404]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.404]         }
  [21:36:31.404]         else {
  [21:36:31.404]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.404]         }
  [21:36:31.404]         base::close(...future.stdout)
  [21:36:31.404]         ...future.stdout <- NULL
  [21:36:31.404]     }
  [21:36:31.404]     ...future.result$conditions <- ...future.conditions
  [21:36:31.404]     ...future.result
  [21:36:31.404] }
  [21:36:31.408] requestCore(): workers = 2
  [21:36:31.428] MulticoreFuture started
  [21:36:31.432] getGlobalsAndPackages() ...
  [21:36:31.433] Searching for globals...
  [21:36:31.438] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.438] Searching for globals ... DONE
  [21:36:31.439] Resolving globals: FALSE
  [21:36:31.440] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.440] - globals: [1] 'x'
  [21:36:31.441] 
  [21:36:31.441] getGlobalsAndPackages() ... DONE
  [21:36:31.444] Packages needed by the future expression (n = 0): <none>
  [21:36:31.445] Packages needed by future strategies (n = 0): <none>
  [21:36:31.446] plan(): Setting new future strategy stack:
  [21:36:31.447] List of future strategies:
  [21:36:31.447] 1. sequential:
  [21:36:31.447]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.447]    - tweaked: FALSE
  [21:36:31.447]    - call: NULL
  [21:36:31.463] plan(): nbrOfWorkers() = 1
  [21:36:31.465] plan(): Setting new future strategy stack:
  [21:36:31.466] List of future strategies:
  [21:36:31.466] 1. multicore:
  [21:36:31.466]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.466]    - tweaked: FALSE
  [21:36:31.466]    - call: plan(strategy)
  [21:36:31.467] plan(): nbrOfWorkers() = 2
  [21:36:31.450] {
  [21:36:31.450]     {
  [21:36:31.450]         ...future.startTime <- base::Sys.time()
  [21:36:31.450]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.450]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.450]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.450]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.450]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.450]         {
  [21:36:31.450]             {
  [21:36:31.450]                 {
  [21:36:31.450]                   {
  [21:36:31.450]                     base::local({
  [21:36:31.450]                       has_future <- base::requireNamespace("future", 
  [21:36:31.450]                         quietly = TRUE)
  [21:36:31.450]                       version <- if (has_future) 
  [21:36:31.450]                         utils::packageVersion("future")
  [21:36:31.450]                       else NULL
  [21:36:31.450]                       if (!has_future || version < "1.8.0") {
  [21:36:31.450]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.450]                           "", base::R.version$version.string), 
  [21:36:31.450]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.450]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.450]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.450]                             "release", "version")], collapse = " "), 
  [21:36:31.450]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.450]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.450]                           info)
  [21:36:31.450]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.450]                         if (!has_future) {
  [21:36:31.450]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.450]                             info)
  [21:36:31.450]                         }
  [21:36:31.450]                         else {
  [21:36:31.450]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.450]                             info, version)
  [21:36:31.450]                         }
  [21:36:31.450]                         base::stop(msg)
  [21:36:31.450]                       }
  [21:36:31.450]                     })
  [21:36:31.450]                   }
  [21:36:31.450]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.450]                   base::options(mc.cores = 1L)
  [21:36:31.450]                 }
  [21:36:31.450]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:31.450]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:31.450]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.450]             }
  [21:36:31.450]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.450]         }
  [21:36:31.450]     }
  [21:36:31.450]     if (base::is.na(TRUE)) {
  [21:36:31.450]     }
  [21:36:31.450]     else {
  [21:36:31.450]         if (TRUE) {
  [21:36:31.450]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.450]                 open = "w")
  [21:36:31.450]         }
  [21:36:31.450]         else {
  [21:36:31.450]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.450]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.450]         }
  [21:36:31.450]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.450]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.450]             base::sink(type = "output", split = FALSE)
  [21:36:31.450]             base::close(...future.stdout)
  [21:36:31.450]         }, add = TRUE)
  [21:36:31.450]     }
  [21:36:31.450]     ...future.frame <- base::sys.nframe()
  [21:36:31.450]     ...future.conditions <- base::list()
  [21:36:31.450]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.450]     ...future.result <- base::tryCatch({
  [21:36:31.450]         base::withCallingHandlers({
  [21:36:31.450]             ...future.value <- base::withVisible(base::local({
  [21:36:31.450]                 sample(x, size = 1L)
  [21:36:31.450]             }))
  [21:36:31.450]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.450]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.450]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.450]                 version = "1.8")
  [21:36:31.450]         }, condition = base::local({
  [21:36:31.450]             c <- base::c
  [21:36:31.450]             inherits <- base::inherits
  [21:36:31.450]             invokeRestart <- base::invokeRestart
  [21:36:31.450]             length <- base::length
  [21:36:31.450]             list <- base::list
  [21:36:31.450]             seq.int <- base::seq.int
  [21:36:31.450]             signalCondition <- base::signalCondition
  [21:36:31.450]             sys.calls <- base::sys.calls
  [21:36:31.450]             Sys.time <- base::Sys.time
  [21:36:31.450]             `[[` <- base::`[[`
  [21:36:31.450]             `+` <- base::`+`
  [21:36:31.450]             `<<-` <- base::`<<-`
  [21:36:31.450]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.450]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.450]                   3L)]
  [21:36:31.450]             }
  [21:36:31.450]             function(cond) {
  [21:36:31.450]                 if (inherits(cond, "error")) {
  [21:36:31.450]                   sessionInformation <- function() {
  [21:36:31.450]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.450]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.450]                       search = base::search(), system = base::Sys.info())
  [21:36:31.450]                   }
  [21:36:31.450]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.450]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.450]                     cond$call), session = sessionInformation(), 
  [21:36:31.450]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.450]                   signalCondition(cond)
  [21:36:31.450]                 }
  [21:36:31.450]                 else if (inherits(cond, "condition")) {
  [21:36:31.450]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.450]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.450]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.450]                   if (!signal) {
  [21:36:31.450]                     muffleCondition <- function (cond) 
  [21:36:31.450]                     {
  [21:36:31.450]                       inherits <- base::inherits
  [21:36:31.450]                       invokeRestart <- base::invokeRestart
  [21:36:31.450]                       muffled <- FALSE
  [21:36:31.450]                       if (inherits(cond, "message")) {
  [21:36:31.450]                         invokeRestart("muffleMessage")
  [21:36:31.450]                         muffled <- TRUE
  [21:36:31.450]                       }
  [21:36:31.450]                       else if (inherits(cond, "warning")) {
  [21:36:31.450]                         invokeRestart("muffleWarning")
  [21:36:31.450]                         muffled <- TRUE
  [21:36:31.450]                       }
  [21:36:31.450]                       else if (inherits(cond, "condition")) {
  [21:36:31.450]                         computeRestarts <- base::computeRestarts
  [21:36:31.450]                         grepl <- base::grepl
  [21:36:31.450]                         is.null <- base::is.null
  [21:36:31.450]                         restarts <- computeRestarts(cond)
  [21:36:31.450]                         for (restart in restarts) {
  [21:36:31.450]                           name <- restart$name
  [21:36:31.450]                           if (is.null(name)) 
  [21:36:31.450]                             next
  [21:36:31.450]                           if (!grepl("^muffle", name)) 
  [21:36:31.450]                             next
  [21:36:31.450]                           invokeRestart(restart)
  [21:36:31.450]                           muffled <- TRUE
  [21:36:31.450]                           break
  [21:36:31.450]                         }
  [21:36:31.450]                       }
  [21:36:31.450]                       invisible(muffled)
  [21:36:31.450]                     }
  [21:36:31.450]                     muffleCondition(cond)
  [21:36:31.450]                   }
  [21:36:31.450]                 }
  [21:36:31.450]             }
  [21:36:31.450]         }))
  [21:36:31.450]     }, error = function(ex) {
  [21:36:31.450]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.450]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.450]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.450]     }, finally = {
  [21:36:31.450]         {
  [21:36:31.450]             {
  [21:36:31.450]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.450]             }
  [21:36:31.450]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.450]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.450]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.450]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.450]             {
  [21:36:31.450]                 if (substitute) 
  [21:36:31.450]                   expr <- substitute(expr)
  [21:36:31.450]                 if (is.function(workers)) 
  [21:36:31.450]                   workers <- workers()
  [21:36:31.450]                 workers <- as.integer(workers)
  [21:36:31.450]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.450]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.450]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.450]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.450]                     local = TRUE, label = label, ...))
  [21:36:31.450]                 }
  [21:36:31.450]                 oopts <- options(mc.cores = workers)
  [21:36:31.450]                 on.exit(options(oopts))
  [21:36:31.450]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.450]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.450]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.450]                   label = label, ...)
  [21:36:31.450]                 if (!future$lazy) 
  [21:36:31.450]                   future <- run(future)
  [21:36:31.450]                 invisible(future)
  [21:36:31.450]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.450]         }
  [21:36:31.450]         base::options(...future.oldOptions)
  [21:36:31.450]     })
  [21:36:31.450]     Sys.time
  [21:36:31.450]     if (base::is.na(TRUE)) {
  [21:36:31.450]     }
  [21:36:31.450]     else {
  [21:36:31.450]         base::sink(type = "output", split = FALSE)
  [21:36:31.450]         if (TRUE) {
  [21:36:31.450]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.450]         }
  [21:36:31.450]         else {
  [21:36:31.450]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.450]         }
  [21:36:31.450]         base::close(...future.stdout)
  [21:36:31.450]         ...future.stdout <- NULL
  [21:36:31.450]     }
  [21:36:31.450]     ...future.result$conditions <- ...future.conditions
  [21:36:31.450]     ...future.result
  [21:36:31.450] }
  [21:36:31.471] requestCore(): workers = 2
  [21:36:31.472] Poll #1 (0): usedCores() = 2, workers = 2
  [21:36:31.493] MulticoreFuture started
  [21:36:31.495] getGlobalsAndPackages() ...
  [21:36:31.496] Searching for globals...
  [21:36:31.505] plan(): Setting new future strategy stack:
  [21:36:31.506] List of future strategies:
  [21:36:31.506] 1. sequential:
  [21:36:31.506]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.506]    - tweaked: FALSE
  [21:36:31.506]    - call: NULL
  [21:36:31.508] plan(): nbrOfWorkers() = 1
  [21:36:31.509] plan(): Setting new future strategy stack:
  [21:36:31.510] List of future strategies:
  [21:36:31.510] 1. multicore:
  [21:36:31.510]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.510]    - tweaked: FALSE
  [21:36:31.510]    - call: plan(strategy)
  [21:36:31.512] plan(): nbrOfWorkers() = 2
  [21:36:31.515] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.515] Searching for globals ... DONE
  [21:36:31.516] Resolving globals: FALSE
  [21:36:31.517] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.517] - globals: [1] 'x'
  [21:36:31.518] 
  [21:36:31.518] getGlobalsAndPackages() ... DONE
  [21:36:31.520] Packages needed by the future expression (n = 0): <none>
  [21:36:31.521] Packages needed by future strategies (n = 0): <none>
  [21:36:31.526] {
  [21:36:31.526]     {
  [21:36:31.526]         ...future.startTime <- base::Sys.time()
  [21:36:31.526]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.526]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.526]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.526]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.526]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.526]         {
  [21:36:31.526]             {
  [21:36:31.526]                 {
  [21:36:31.526]                   {
  [21:36:31.526]                     base::local({
  [21:36:31.526]                       has_future <- base::requireNamespace("future", 
  [21:36:31.526]                         quietly = TRUE)
  [21:36:31.526]                       version <- if (has_future) 
  [21:36:31.526]                         utils::packageVersion("future")
  [21:36:31.526]                       else NULL
  [21:36:31.526]                       if (!has_future || version < "1.8.0") {
  [21:36:31.526]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.526]                           "", base::R.version$version.string), 
  [21:36:31.526]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.526]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.526]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.526]                             "release", "version")], collapse = " "), 
  [21:36:31.526]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.526]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.526]                           info)
  [21:36:31.526]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.526]                         if (!has_future) {
  [21:36:31.526]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.526]                             info)
  [21:36:31.526]                         }
  [21:36:31.526]                         else {
  [21:36:31.526]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.526]                             info, version)
  [21:36:31.526]                         }
  [21:36:31.526]                         base::stop(msg)
  [21:36:31.526]                       }
  [21:36:31.526]                     })
  [21:36:31.526]                   }
  [21:36:31.526]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.526]                   base::options(mc.cores = 1L)
  [21:36:31.526]                 }
  [21:36:31.526]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:31.526]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:31.526]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.526]             }
  [21:36:31.526]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.526]         }
  [21:36:31.526]     }
  [21:36:31.526]     if (base::is.na(TRUE)) {
  [21:36:31.526]     }
  [21:36:31.526]     else {
  [21:36:31.526]         if (TRUE) {
  [21:36:31.526]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.526]                 open = "w")
  [21:36:31.526]         }
  [21:36:31.526]         else {
  [21:36:31.526]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.526]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.526]         }
  [21:36:31.526]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.526]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.526]             base::sink(type = "output", split = FALSE)
  [21:36:31.526]             base::close(...future.stdout)
  [21:36:31.526]         }, add = TRUE)
  [21:36:31.526]     }
  [21:36:31.526]     ...future.frame <- base::sys.nframe()
  [21:36:31.526]     ...future.conditions <- base::list()
  [21:36:31.526]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.526]     ...future.result <- base::tryCatch({
  [21:36:31.526]         base::withCallingHandlers({
  [21:36:31.526]             ...future.value <- base::withVisible(base::local({
  [21:36:31.526]                 sample(x, size = 1L)
  [21:36:31.526]             }))
  [21:36:31.526]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.526]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.526]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.526]                 version = "1.8")
  [21:36:31.526]         }, condition = base::local({
  [21:36:31.526]             c <- base::c
  [21:36:31.526]             inherits <- base::inherits
  [21:36:31.526]             invokeRestart <- base::invokeRestart
  [21:36:31.526]             length <- base::length
  [21:36:31.526]             list <- base::list
  [21:36:31.526]             seq.int <- base::seq.int
  [21:36:31.526]             signalCondition <- base::signalCondition
  [21:36:31.526]             sys.calls <- base::sys.calls
  [21:36:31.526]             Sys.time <- base::Sys.time
  [21:36:31.526]             `[[` <- base::`[[`
  [21:36:31.526]             `+` <- base::`+`
  [21:36:31.526]             `<<-` <- base::`<<-`
  [21:36:31.526]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.526]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.526]                   3L)]
  [21:36:31.526]             }
  [21:36:31.526]             function(cond) {
  [21:36:31.526]                 if (inherits(cond, "error")) {
  [21:36:31.526]                   sessionInformation <- function() {
  [21:36:31.526]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.526]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.526]                       search = base::search(), system = base::Sys.info())
  [21:36:31.526]                   }
  [21:36:31.526]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.526]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.526]                     cond$call), session = sessionInformation(), 
  [21:36:31.526]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.526]                   signalCondition(cond)
  [21:36:31.526]                 }
  [21:36:31.526]                 else if (inherits(cond, "condition")) {
  [21:36:31.526]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.526]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.526]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.526]                   if (!signal) {
  [21:36:31.526]                     muffleCondition <- function (cond) 
  [21:36:31.526]                     {
  [21:36:31.526]                       inherits <- base::inherits
  [21:36:31.526]                       invokeRestart <- base::invokeRestart
  [21:36:31.526]                       muffled <- FALSE
  [21:36:31.526]                       if (inherits(cond, "message")) {
  [21:36:31.526]                         invokeRestart("muffleMessage")
  [21:36:31.526]                         muffled <- TRUE
  [21:36:31.526]                       }
  [21:36:31.526]                       else if (inherits(cond, "warning")) {
  [21:36:31.526]                         invokeRestart("muffleWarning")
  [21:36:31.526]                         muffled <- TRUE
  [21:36:31.526]                       }
  [21:36:31.526]                       else if (inherits(cond, "condition")) {
  [21:36:31.526]                         computeRestarts <- base::computeRestarts
  [21:36:31.526]                         grepl <- base::grepl
  [21:36:31.526]                         is.null <- base::is.null
  [21:36:31.526]                         restarts <- computeRestarts(cond)
  [21:36:31.526]                         for (restart in restarts) {
  [21:36:31.526]                           name <- restart$name
  [21:36:31.526]                           if (is.null(name)) 
  [21:36:31.526]                             next
  [21:36:31.526]                           if (!grepl("^muffle", name)) 
  [21:36:31.526]                             next
  [21:36:31.526]                           invokeRestart(restart)
  [21:36:31.526]                           muffled <- TRUE
  [21:36:31.526]                           break
  [21:36:31.526]                         }
  [21:36:31.526]                       }
  [21:36:31.526]                       invisible(muffled)
  [21:36:31.526]                     }
  [21:36:31.526]                     muffleCondition(cond)
  [21:36:31.526]                   }
  [21:36:31.526]                 }
  [21:36:31.526]             }
  [21:36:31.526]         }))
  [21:36:31.526]     }, error = function(ex) {
  [21:36:31.526]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.526]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.526]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.526]     }, finally = {
  [21:36:31.526]         {
  [21:36:31.526]             {
  [21:36:31.526]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.526]             }
  [21:36:31.526]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.526]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.526]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.526]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.526]             {
  [21:36:31.526]                 if (substitute) 
  [21:36:31.526]                   expr <- substitute(expr)
  [21:36:31.526]                 if (is.function(workers)) 
  [21:36:31.526]                   workers <- workers()
  [21:36:31.526]                 workers <- as.integer(workers)
  [21:36:31.526]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.526]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.526]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.526]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.526]                     local = TRUE, label = label, ...))
  [21:36:31.526]                 }
  [21:36:31.526]                 oopts <- options(mc.cores = workers)
  [21:36:31.526]                 on.exit(options(oopts))
  [21:36:31.526]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.526]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.526]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.526]                   label = label, ...)
  [21:36:31.526]                 if (!future$lazy) 
  [21:36:31.526]                   future <- run(future)
  [21:36:31.526]                 invisible(future)
  [21:36:31.526]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.526]         }
  [21:36:31.526]         base::options(...future.oldOptions)
  [21:36:31.526]     })
  [21:36:31.526]     Sys.time
  [21:36:31.526]     if (base::is.na(TRUE)) {
  [21:36:31.526]     }
  [21:36:31.526]     else {
  [21:36:31.526]         base::sink(type = "output", split = FALSE)
  [21:36:31.526]         if (TRUE) {
  [21:36:31.526]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.526]         }
  [21:36:31.526]         else {
  [21:36:31.526]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.526]         }
  [21:36:31.526]         base::close(...future.stdout)
  [21:36:31.526]         ...future.stdout <- NULL
  [21:36:31.526]     }
  [21:36:31.526]     ...future.result$conditions <- ...future.conditions
  [21:36:31.526]     ...future.result
  [21:36:31.526] }
  [21:36:31.547] requestCore(): workers = 2
  [21:36:31.547] Poll #1 (0): usedCores() = 2, workers = 2
  [21:36:31.627] MulticoreFuture started
  [21:36:31.628] resolve() on list ...
  [21:36:31.629]  recursive: 0
  [21:36:31.630]  length: 4
  [21:36:31.631] 
  [21:36:31.631] Future #1
  [21:36:31.632] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [21:36:31.633] - nx: 4
  [21:36:31.633] - relay: TRUE
  [21:36:31.634] - stdout: TRUE
  [21:36:31.634] - signal: TRUE
  [21:36:31.635] - resignal: FALSE
  [21:36:31.635] - force: TRUE
  [21:36:31.636] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:31.636] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:31.637]  - until=1
  [21:36:31.637]  - relaying element #1
  [21:36:31.641] plan(): Setting new future strategy stack:
  [21:36:31.641] List of future strategies:
  [21:36:31.641] 1. sequential:
  [21:36:31.641]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.641]    - tweaked: FALSE
  [21:36:31.641]    - call: NULL
  [21:36:31.643] plan(): nbrOfWorkers() = 1
  [21:36:31.645] plan(): Setting new future strategy stack:
  [21:36:31.646] List of future strategies:
  [21:36:31.646] 1. multicore:
  [21:36:31.646]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.646]    - tweaked: FALSE
  [21:36:31.646]    - call: plan(strategy)
  [21:36:31.648] plan(): nbrOfWorkers() = 2
  [21:36:31.650] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.650] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.651] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [21:36:31.651]  length: 3 (resolved future 1)
  [21:36:31.651] Future #2
  [21:36:31.652] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [21:36:31.652] - nx: 4
  [21:36:31.652] - relay: TRUE
  [21:36:31.653] - stdout: TRUE
  [21:36:31.653] - signal: TRUE
  [21:36:31.653] - resignal: FALSE
  [21:36:31.654] - force: TRUE
  [21:36:31.654] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.654] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.655]  - until=2
  [21:36:31.655]  - relaying element #2
  [21:36:31.655] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.656] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.656] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [21:36:31.656]  length: 2 (resolved future 2)
  [21:36:31.657] Future #3
  [21:36:31.659] signalConditionsASAP(MulticoreFuture, pos=3) ...
  [21:36:31.659] - nx: 4
  [21:36:31.659] - relay: TRUE
  [21:36:31.660] - stdout: TRUE
  [21:36:31.660] - signal: TRUE
  [21:36:31.660] - resignal: FALSE
  [21:36:31.661] - force: TRUE
  [21:36:31.661] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.661] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.661]  - until=3
  [21:36:31.678]  - relaying element #3
  [21:36:31.678] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.679] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.679] signalConditionsASAP(MulticoreFuture, pos=3) ... done
  [21:36:31.679]  length: 1 (resolved future 3)
  [21:36:31.680] Future #4
  [21:36:31.681] signalConditionsASAP(MulticoreFuture, pos=4) ...
  [21:36:31.682] - nx: 4
  [21:36:31.682] - relay: TRUE
  [21:36:31.682] - stdout: TRUE
  [21:36:31.682] - signal: TRUE
  [21:36:31.683] - resignal: FALSE
  [21:36:31.683] - force: TRUE
  [21:36:31.683] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.683] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.684]  - until=4
  [21:36:31.684]  - relaying element #4
  [21:36:31.684] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.685] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.685] signalConditionsASAP(MulticoreFuture, pos=4) ... done
  [21:36:31.685]  length: 0 (resolved future 4)
  [21:36:31.685] Relaying remaining futures
  [21:36:31.686] signalConditionsASAP(NULL, pos=0) ...
  [21:36:31.686] - nx: 4
  [21:36:31.686] - relay: TRUE
  [21:36:31.686] - stdout: TRUE
  [21:36:31.687] - signal: TRUE
  [21:36:31.687] - resignal: FALSE
  [21:36:31.687] - force: TRUE
  [21:36:31.687] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.688] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
   - flush all
  [21:36:31.688] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.688] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.688] signalConditionsASAP(NULL, pos=0) ... done
  [21:36:31.689] resolve() on list ... DONE
  [[1]]
  [1] 2
  
  [[2]]
  [1] 0
  
  [[3]]
  [1] 0
  
  [[4]]
  [1] 1
  
  [21:36:31.690] getGlobalsAndPackages() ...
  [21:36:31.691] Searching for globals...
  [21:36:31.693] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.693] Searching for globals ... DONE
  [21:36:31.693] Resolving globals: FALSE
  [21:36:31.700] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.701] - globals: [1] 'x'
  [21:36:31.701] 
  [21:36:31.701] getGlobalsAndPackages() ... DONE
  [21:36:31.703] Packages needed by the future expression (n = 0): <none>
  [21:36:31.704] Packages needed by future strategies (n = 0): <none>
  [21:36:31.708] {
  [21:36:31.708]     {
  [21:36:31.708]         ...future.startTime <- base::Sys.time()
  [21:36:31.708]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.708]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.708]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.708]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.708]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.708]         {
  [21:36:31.708]             {
  [21:36:31.708]                 {
  [21:36:31.708]                   {
  [21:36:31.708]                     base::local({
  [21:36:31.708]                       has_future <- base::requireNamespace("future", 
  [21:36:31.708]                         quietly = TRUE)
  [21:36:31.708]                       version <- if (has_future) 
  [21:36:31.708]                         utils::packageVersion("future")
  [21:36:31.708]                       else NULL
  [21:36:31.708]                       if (!has_future || version < "1.8.0") {
  [21:36:31.708]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.708]                           "", base::R.version$version.string), 
  [21:36:31.708]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.708]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.708]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.708]                             "release", "version")], collapse = " "), 
  [21:36:31.708]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.708]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.708]                           info)
  [21:36:31.708]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.708]                         if (!has_future) {
  [21:36:31.708]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.708]                             info)
  [21:36:31.708]                         }
  [21:36:31.708]                         else {
  [21:36:31.708]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.708]                             info, version)
  [21:36:31.708]                         }
  [21:36:31.708]                         base::stop(msg)
  [21:36:31.708]                       }
  [21:36:31.708]                     })
  [21:36:31.708]                   }
  [21:36:31.708]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.708]                   base::options(mc.cores = 1L)
  [21:36:31.708]                 }
  [21:36:31.708]                 base::assign(".Random.seed", c(10407L, -94575036L, 
  [21:36:31.708]                 -24861725L, 357812871L, 346211554L, -1301022835L, 
  [21:36:31.708]                 440649733L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.708]             }
  [21:36:31.708]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.708]         }
  [21:36:31.708]     }
  [21:36:31.708]     if (base::is.na(TRUE)) {
  [21:36:31.708]     }
  [21:36:31.708]     else {
  [21:36:31.708]         if (TRUE) {
  [21:36:31.708]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.708]                 open = "w")
  [21:36:31.708]         }
  [21:36:31.708]         else {
  [21:36:31.708]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.708]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.708]         }
  [21:36:31.708]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.708]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.708]             base::sink(type = "output", split = FALSE)
  [21:36:31.708]             base::close(...future.stdout)
  [21:36:31.708]         }, add = TRUE)
  [21:36:31.708]     }
  [21:36:31.708]     ...future.frame <- base::sys.nframe()
  [21:36:31.708]     ...future.conditions <- base::list()
  [21:36:31.708]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.708]     ...future.result <- base::tryCatch({
  [21:36:31.708]         base::withCallingHandlers({
  [21:36:31.708]             ...future.value <- base::withVisible(base::local({
  [21:36:31.708]                 sample(x, size = 1L)
  [21:36:31.708]             }))
  [21:36:31.708]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.708]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.708]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.708]                 version = "1.8")
  [21:36:31.708]         }, condition = base::local({
  [21:36:31.708]             c <- base::c
  [21:36:31.708]             inherits <- base::inherits
  [21:36:31.708]             invokeRestart <- base::invokeRestart
  [21:36:31.708]             length <- base::length
  [21:36:31.708]             list <- base::list
  [21:36:31.708]             seq.int <- base::seq.int
  [21:36:31.708]             signalCondition <- base::signalCondition
  [21:36:31.708]             sys.calls <- base::sys.calls
  [21:36:31.708]             Sys.time <- base::Sys.time
  [21:36:31.708]             `[[` <- base::`[[`
  [21:36:31.708]             `+` <- base::`+`
  [21:36:31.708]             `<<-` <- base::`<<-`
  [21:36:31.708]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.708]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.708]                   3L)]
  [21:36:31.708]             }
  [21:36:31.708]             function(cond) {
  [21:36:31.708]                 if (inherits(cond, "error")) {
  [21:36:31.708]                   sessionInformation <- function() {
  [21:36:31.708]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.708]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.708]                       search = base::search(), system = base::Sys.info())
  [21:36:31.708]                   }
  [21:36:31.708]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.708]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.708]                     cond$call), session = sessionInformation(), 
  [21:36:31.708]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.708]                   signalCondition(cond)
  [21:36:31.708]                 }
  [21:36:31.708]                 else if (inherits(cond, "condition")) {
  [21:36:31.708]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.708]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.708]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.708]                   if (!signal) {
  [21:36:31.708]                     muffleCondition <- function (cond) 
  [21:36:31.708]                     {
  [21:36:31.708]                       inherits <- base::inherits
  [21:36:31.708]                       invokeRestart <- base::invokeRestart
  [21:36:31.708]                       muffled <- FALSE
  [21:36:31.708]                       if (inherits(cond, "message")) {
  [21:36:31.708]                         invokeRestart("muffleMessage")
  [21:36:31.708]                         muffled <- TRUE
  [21:36:31.708]                       }
  [21:36:31.708]                       else if (inherits(cond, "warning")) {
  [21:36:31.708]                         invokeRestart("muffleWarning")
  [21:36:31.708]                         muffled <- TRUE
  [21:36:31.708]                       }
  [21:36:31.708]                       else if (inherits(cond, "condition")) {
  [21:36:31.708]                         computeRestarts <- base::computeRestarts
  [21:36:31.708]                         grepl <- base::grepl
  [21:36:31.708]                         is.null <- base::is.null
  [21:36:31.708]                         restarts <- computeRestarts(cond)
  [21:36:31.708]                         for (restart in restarts) {
  [21:36:31.708]                           name <- restart$name
  [21:36:31.708]                           if (is.null(name)) 
  [21:36:31.708]                             next
  [21:36:31.708]                           if (!grepl("^muffle", name)) 
  [21:36:31.708]                             next
  [21:36:31.708]                           invokeRestart(restart)
  [21:36:31.708]                           muffled <- TRUE
  [21:36:31.708]                           break
  [21:36:31.708]                         }
  [21:36:31.708]                       }
  [21:36:31.708]                       invisible(muffled)
  [21:36:31.708]                     }
  [21:36:31.708]                     muffleCondition(cond)
  [21:36:31.708]                   }
  [21:36:31.708]                 }
  [21:36:31.708]             }
  [21:36:31.708]         }))
  [21:36:31.708]     }, error = function(ex) {
  [21:36:31.708]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.708]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.708]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.708]     }, finally = {
  [21:36:31.708]         {
  [21:36:31.708]             {
  [21:36:31.708]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.708]             }
  [21:36:31.708]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.708]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.708]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.708]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.708]             {
  [21:36:31.708]                 if (substitute) 
  [21:36:31.708]                   expr <- substitute(expr)
  [21:36:31.708]                 if (is.function(workers)) 
  [21:36:31.708]                   workers <- workers()
  [21:36:31.708]                 workers <- as.integer(workers)
  [21:36:31.708]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.708]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.708]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.708]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.708]                     local = TRUE, label = label, ...))
  [21:36:31.708]                 }
  [21:36:31.708]                 oopts <- options(mc.cores = workers)
  [21:36:31.708]                 on.exit(options(oopts))
  [21:36:31.708]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.708]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.708]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.708]                   label = label, ...)
  [21:36:31.708]                 if (!future$lazy) 
  [21:36:31.708]                   future <- run(future)
  [21:36:31.708]                 invisible(future)
  [21:36:31.708]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.708]         }
  [21:36:31.708]         base::options(...future.oldOptions)
  [21:36:31.708]     })
  [21:36:31.708]     Sys.time
  [21:36:31.708]     if (base::is.na(TRUE)) {
  [21:36:31.708]     }
  [21:36:31.708]     else {
  [21:36:31.708]         base::sink(type = "output", split = FALSE)
  [21:36:31.708]         if (TRUE) {
  [21:36:31.708]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.708]         }
  [21:36:31.708]         else {
  [21:36:31.708]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.708]         }
  [21:36:31.708]         base::close(...future.stdout)
  [21:36:31.708]         ...future.stdout <- NULL
  [21:36:31.708]     }
  [21:36:31.708]     ...future.result$conditions <- ...future.conditions
  [21:36:31.708]     ...future.result
  [21:36:31.708] }
  [21:36:31.712] requestCore(): workers = 2
  [21:36:31.731] MulticoreFuture started
  [21:36:31.733] getGlobalsAndPackages() ...
  [21:36:31.734] Searching for globals...
  [21:36:31.737] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.737] Searching for globals ... DONE
  [21:36:31.738] Resolving globals: FALSE
  [21:36:31.739] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.739] - globals: [1] 'x'
  [21:36:31.740] 
  [21:36:31.740] getGlobalsAndPackages() ... DONE
  [21:36:31.742] Packages needed by the future expression (n = 0): <none>
  [21:36:31.743] Packages needed by future strategies (n = 0): <none>
  [21:36:31.749] plan(): Setting new future strategy stack:
  [21:36:31.750] List of future strategies:
  [21:36:31.750] 1. sequential:
  [21:36:31.750]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.750]    - tweaked: FALSE
  [21:36:31.750]    - call: NULL
  [21:36:31.751] plan(): nbrOfWorkers() = 1
  [21:36:31.752] plan(): Setting new future strategy stack:
  [21:36:31.753] List of future strategies:
  [21:36:31.753] 1. multicore:
  [21:36:31.753]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.753]    - tweaked: FALSE
  [21:36:31.753]    - call: plan(strategy)
  [21:36:31.755] plan(): nbrOfWorkers() = 2
  [21:36:31.764] {
  [21:36:31.764]     {
  [21:36:31.764]         ...future.startTime <- base::Sys.time()
  [21:36:31.764]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.764]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.764]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.764]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.764]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.764]         {
  [21:36:31.764]             {
  [21:36:31.764]                 {
  [21:36:31.764]                   {
  [21:36:31.764]                     base::local({
  [21:36:31.764]                       has_future <- base::requireNamespace("future", 
  [21:36:31.764]                         quietly = TRUE)
  [21:36:31.764]                       version <- if (has_future) 
  [21:36:31.764]                         utils::packageVersion("future")
  [21:36:31.764]                       else NULL
  [21:36:31.764]                       if (!has_future || version < "1.8.0") {
  [21:36:31.764]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.764]                           "", base::R.version$version.string), 
  [21:36:31.764]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.764]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.764]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.764]                             "release", "version")], collapse = " "), 
  [21:36:31.764]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.764]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.764]                           info)
  [21:36:31.764]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.764]                         if (!has_future) {
  [21:36:31.764]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.764]                             info)
  [21:36:31.764]                         }
  [21:36:31.764]                         else {
  [21:36:31.764]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.764]                             info, version)
  [21:36:31.764]                         }
  [21:36:31.764]                         base::stop(msg)
  [21:36:31.764]                       }
  [21:36:31.764]                     })
  [21:36:31.764]                   }
  [21:36:31.764]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.764]                   base::options(mc.cores = 1L)
  [21:36:31.764]                 }
  [21:36:31.764]                 base::assign(".Random.seed", c(10407L, -358246211L, 
  [21:36:31.764]                 -1411857254L, -488221791L, 1069515918L, -1720689715L, 
  [21:36:31.764]                 1070199760L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.764]             }
  [21:36:31.764]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.764]         }
  [21:36:31.764]     }
  [21:36:31.764]     if (base::is.na(TRUE)) {
  [21:36:31.764]     }
  [21:36:31.764]     else {
  [21:36:31.764]         if (TRUE) {
  [21:36:31.764]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.764]                 open = "w")
  [21:36:31.764]         }
  [21:36:31.764]         else {
  [21:36:31.764]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.764]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.764]         }
  [21:36:31.764]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.764]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.764]             base::sink(type = "output", split = FALSE)
  [21:36:31.764]             base::close(...future.stdout)
  [21:36:31.764]         }, add = TRUE)
  [21:36:31.764]     }
  [21:36:31.764]     ...future.frame <- base::sys.nframe()
  [21:36:31.764]     ...future.conditions <- base::list()
  [21:36:31.764]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.764]     ...future.result <- base::tryCatch({
  [21:36:31.764]         base::withCallingHandlers({
  [21:36:31.764]             ...future.value <- base::withVisible(base::local({
  [21:36:31.764]                 sample(x, size = 1L)
  [21:36:31.764]             }))
  [21:36:31.764]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.764]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.764]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.764]                 version = "1.8")
  [21:36:31.764]         }, condition = base::local({
  [21:36:31.764]             c <- base::c
  [21:36:31.764]             inherits <- base::inherits
  [21:36:31.764]             invokeRestart <- base::invokeRestart
  [21:36:31.764]             length <- base::length
  [21:36:31.764]             list <- base::list
  [21:36:31.764]             seq.int <- base::seq.int
  [21:36:31.764]             signalCondition <- base::signalCondition
  [21:36:31.764]             sys.calls <- base::sys.calls
  [21:36:31.764]             Sys.time <- base::Sys.time
  [21:36:31.764]             `[[` <- base::`[[`
  [21:36:31.764]             `+` <- base::`+`
  [21:36:31.764]             `<<-` <- base::`<<-`
  [21:36:31.764]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.764]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.764]                   3L)]
  [21:36:31.764]             }
  [21:36:31.764]             function(cond) {
  [21:36:31.764]                 if (inherits(cond, "error")) {
  [21:36:31.764]                   sessionInformation <- function() {
  [21:36:31.764]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.764]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.764]                       search = base::search(), system = base::Sys.info())
  [21:36:31.764]                   }
  [21:36:31.764]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.764]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.764]                     cond$call), session = sessionInformation(), 
  [21:36:31.764]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.764]                   signalCondition(cond)
  [21:36:31.764]                 }
  [21:36:31.764]                 else if (inherits(cond, "condition")) {
  [21:36:31.764]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.764]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.764]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.764]                   if (!signal) {
  [21:36:31.764]                     muffleCondition <- function (cond) 
  [21:36:31.764]                     {
  [21:36:31.764]                       inherits <- base::inherits
  [21:36:31.764]                       invokeRestart <- base::invokeRestart
  [21:36:31.764]                       muffled <- FALSE
  [21:36:31.764]                       if (inherits(cond, "message")) {
  [21:36:31.764]                         invokeRestart("muffleMessage")
  [21:36:31.764]                         muffled <- TRUE
  [21:36:31.764]                       }
  [21:36:31.764]                       else if (inherits(cond, "warning")) {
  [21:36:31.764]                         invokeRestart("muffleWarning")
  [21:36:31.764]                         muffled <- TRUE
  [21:36:31.764]                       }
  [21:36:31.764]                       else if (inherits(cond, "condition")) {
  [21:36:31.764]                         computeRestarts <- base::computeRestarts
  [21:36:31.764]                         grepl <- base::grepl
  [21:36:31.764]                         is.null <- base::is.null
  [21:36:31.764]                         restarts <- computeRestarts(cond)
  [21:36:31.764]                         for (restart in restarts) {
  [21:36:31.764]                           name <- restart$name
  [21:36:31.764]                           if (is.null(name)) 
  [21:36:31.764]                             next
  [21:36:31.764]                           if (!grepl("^muffle", name)) 
  [21:36:31.764]                             next
  [21:36:31.764]                           invokeRestart(restart)
  [21:36:31.764]                           muffled <- TRUE
  [21:36:31.764]                           break
  [21:36:31.764]                         }
  [21:36:31.764]                       }
  [21:36:31.764]                       invisible(muffled)
  [21:36:31.764]                     }
  [21:36:31.764]                     muffleCondition(cond)
  [21:36:31.764]                   }
  [21:36:31.764]                 }
  [21:36:31.764]             }
  [21:36:31.764]         }))
  [21:36:31.764]     }, error = function(ex) {
  [21:36:31.764]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.764]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.764]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.764]     }, finally = {
  [21:36:31.764]         {
  [21:36:31.764]             {
  [21:36:31.764]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.764]             }
  [21:36:31.764]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.764]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.764]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.764]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.764]             {
  [21:36:31.764]                 if (substitute) 
  [21:36:31.764]                   expr <- substitute(expr)
  [21:36:31.764]                 if (is.function(workers)) 
  [21:36:31.764]                   workers <- workers()
  [21:36:31.764]                 workers <- as.integer(workers)
  [21:36:31.764]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.764]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.764]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.764]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.764]                     local = TRUE, label = label, ...))
  [21:36:31.764]                 }
  [21:36:31.764]                 oopts <- options(mc.cores = workers)
  [21:36:31.764]                 on.exit(options(oopts))
  [21:36:31.764]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.764]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.764]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.764]                   label = label, ...)
  [21:36:31.764]                 if (!future$lazy) 
  [21:36:31.764]                   future <- run(future)
  [21:36:31.764]                 invisible(future)
  [21:36:31.764]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.764]         }
  [21:36:31.764]         base::options(...future.oldOptions)
  [21:36:31.764]     })
  [21:36:31.764]     Sys.time
  [21:36:31.764]     if (base::is.na(TRUE)) {
  [21:36:31.764]     }
  [21:36:31.764]     else {
  [21:36:31.764]         base::sink(type = "output", split = FALSE)
  [21:36:31.764]         if (TRUE) {
  [21:36:31.764]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.764]         }
  [21:36:31.764]         else {
  [21:36:31.764]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.764]         }
  [21:36:31.764]         base::close(...future.stdout)
  [21:36:31.764]         ...future.stdout <- NULL
  [21:36:31.764]     }
  [21:36:31.764]     ...future.result$conditions <- ...future.conditions
  [21:36:31.764]     ...future.result
  [21:36:31.764] }
  [21:36:31.769] requestCore(): workers = 2
  [21:36:31.772] MulticoreFuture started
  [21:36:31.774] getGlobalsAndPackages() ...
  [21:36:31.775] Searching for globals...
  [21:36:31.794] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.795] Searching for globals ... DONE
  [21:36:31.795] Resolving globals: FALSE
  [21:36:31.797] plan(): Setting new future strategy stack:
  [21:36:31.798] List of future strategies:
  [21:36:31.798] 1. sequential:
  [21:36:31.798]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.798]    - tweaked: FALSE
  [21:36:31.798]    - call: NULL
  [21:36:31.800] plan(): nbrOfWorkers() = 1
  [21:36:31.801] plan(): Setting new future strategy stack:
  [21:36:31.803] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.804] - globals: [1] 'x'
  [21:36:31.804] 
  [21:36:31.805] getGlobalsAndPackages() ... DONE
  [21:36:31.802] List of future strategies:
  [21:36:31.802] 1. multicore:
  [21:36:31.802]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.802]    - tweaked: FALSE
  [21:36:31.802]    - call: plan(strategy)
  [21:36:31.826] Packages needed by the future expression (n = 0): <none>
  [21:36:31.827] Packages needed by future strategies (n = 0): <none>
  [21:36:31.828] plan(): nbrOfWorkers() = 2
  [21:36:31.833] {
  [21:36:31.833]     {
  [21:36:31.833]         ...future.startTime <- base::Sys.time()
  [21:36:31.833]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.833]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.833]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.833]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.833]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.833]         {
  [21:36:31.833]             {
  [21:36:31.833]                 {
  [21:36:31.833]                   {
  [21:36:31.833]                     base::local({
  [21:36:31.833]                       has_future <- base::requireNamespace("future", 
  [21:36:31.833]                         quietly = TRUE)
  [21:36:31.833]                       version <- if (has_future) 
  [21:36:31.833]                         utils::packageVersion("future")
  [21:36:31.833]                       else NULL
  [21:36:31.833]                       if (!has_future || version < "1.8.0") {
  [21:36:31.833]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.833]                           "", base::R.version$version.string), 
  [21:36:31.833]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.833]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.833]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.833]                             "release", "version")], collapse = " "), 
  [21:36:31.833]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.833]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.833]                           info)
  [21:36:31.833]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.833]                         if (!has_future) {
  [21:36:31.833]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.833]                             info)
  [21:36:31.833]                         }
  [21:36:31.833]                         else {
  [21:36:31.833]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.833]                             info, version)
  [21:36:31.833]                         }
  [21:36:31.833]                         base::stop(msg)
  [21:36:31.833]                       }
  [21:36:31.833]                     })
  [21:36:31.833]                   }
  [21:36:31.833]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.833]                   base::options(mc.cores = 1L)
  [21:36:31.833]                 }
  [21:36:31.833]                 base::assign(".Random.seed", c(10407L, 1805183335L, 
  [21:36:31.833]                 -1982978684L, 1500882842L, -1897959390L, -204266259L, 
  [21:36:31.833]                 -2006625641L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.833]             }
  [21:36:31.833]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.833]         }
  [21:36:31.833]     }
  [21:36:31.833]     if (base::is.na(TRUE)) {
  [21:36:31.833]     }
  [21:36:31.833]     else {
  [21:36:31.833]         if (TRUE) {
  [21:36:31.833]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.833]                 open = "w")
  [21:36:31.833]         }
  [21:36:31.833]         else {
  [21:36:31.833]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.833]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.833]         }
  [21:36:31.833]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.833]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.833]             base::sink(type = "output", split = FALSE)
  [21:36:31.833]             base::close(...future.stdout)
  [21:36:31.833]         }, add = TRUE)
  [21:36:31.833]     }
  [21:36:31.833]     ...future.frame <- base::sys.nframe()
  [21:36:31.833]     ...future.conditions <- base::list()
  [21:36:31.833]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.833]     ...future.result <- base::tryCatch({
  [21:36:31.833]         base::withCallingHandlers({
  [21:36:31.833]             ...future.value <- base::withVisible(base::local({
  [21:36:31.833]                 sample(x, size = 1L)
  [21:36:31.833]             }))
  [21:36:31.833]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.833]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.833]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.833]                 version = "1.8")
  [21:36:31.833]         }, condition = base::local({
  [21:36:31.833]             c <- base::c
  [21:36:31.833]             inherits <- base::inherits
  [21:36:31.833]             invokeRestart <- base::invokeRestart
  [21:36:31.833]             length <- base::length
  [21:36:31.833]             list <- base::list
  [21:36:31.833]             seq.int <- base::seq.int
  [21:36:31.833]             signalCondition <- base::signalCondition
  [21:36:31.833]             sys.calls <- base::sys.calls
  [21:36:31.833]             Sys.time <- base::Sys.time
  [21:36:31.833]             `[[` <- base::`[[`
  [21:36:31.833]             `+` <- base::`+`
  [21:36:31.833]             `<<-` <- base::`<<-`
  [21:36:31.833]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.833]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.833]                   3L)]
  [21:36:31.833]             }
  [21:36:31.833]             function(cond) {
  [21:36:31.833]                 if (inherits(cond, "error")) {
  [21:36:31.833]                   sessionInformation <- function() {
  [21:36:31.833]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.833]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.833]                       search = base::search(), system = base::Sys.info())
  [21:36:31.833]                   }
  [21:36:31.833]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.833]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.833]                     cond$call), session = sessionInformation(), 
  [21:36:31.833]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.833]                   signalCondition(cond)
  [21:36:31.833]                 }
  [21:36:31.833]                 else if (inherits(cond, "condition")) {
  [21:36:31.833]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.833]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.833]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.833]                   if (!signal) {
  [21:36:31.833]                     muffleCondition <- function (cond) 
  [21:36:31.833]                     {
  [21:36:31.833]                       inherits <- base::inherits
  [21:36:31.833]                       invokeRestart <- base::invokeRestart
  [21:36:31.833]                       muffled <- FALSE
  [21:36:31.833]                       if (inherits(cond, "message")) {
  [21:36:31.833]                         invokeRestart("muffleMessage")
  [21:36:31.833]                         muffled <- TRUE
  [21:36:31.833]                       }
  [21:36:31.833]                       else if (inherits(cond, "warning")) {
  [21:36:31.833]                         invokeRestart("muffleWarning")
  [21:36:31.833]                         muffled <- TRUE
  [21:36:31.833]                       }
  [21:36:31.833]                       else if (inherits(cond, "condition")) {
  [21:36:31.833]                         computeRestarts <- base::computeRestarts
  [21:36:31.833]                         grepl <- base::grepl
  [21:36:31.833]                         is.null <- base::is.null
  [21:36:31.833]                         restarts <- computeRestarts(cond)
  [21:36:31.833]                         for (restart in restarts) {
  [21:36:31.833]                           name <- restart$name
  [21:36:31.833]                           if (is.null(name)) 
  [21:36:31.833]                             next
  [21:36:31.833]                           if (!grepl("^muffle", name)) 
  [21:36:31.833]                             next
  [21:36:31.833]                           invokeRestart(restart)
  [21:36:31.833]                           muffled <- TRUE
  [21:36:31.833]                           break
  [21:36:31.833]                         }
  [21:36:31.833]                       }
  [21:36:31.833]                       invisible(muffled)
  [21:36:31.833]                     }
  [21:36:31.833]                     muffleCondition(cond)
  [21:36:31.833]                   }
  [21:36:31.833]                 }
  [21:36:31.833]             }
  [21:36:31.833]         }))
  [21:36:31.833]     }, error = function(ex) {
  [21:36:31.833]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.833]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.833]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.833]     }, finally = {
  [21:36:31.833]         {
  [21:36:31.833]             {
  [21:36:31.833]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.833]             }
  [21:36:31.833]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.833]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.833]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.833]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.833]             {
  [21:36:31.833]                 if (substitute) 
  [21:36:31.833]                   expr <- substitute(expr)
  [21:36:31.833]                 if (is.function(workers)) 
  [21:36:31.833]                   workers <- workers()
  [21:36:31.833]                 workers <- as.integer(workers)
  [21:36:31.833]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.833]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.833]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.833]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.833]                     local = TRUE, label = label, ...))
  [21:36:31.833]                 }
  [21:36:31.833]                 oopts <- options(mc.cores = workers)
  [21:36:31.833]                 on.exit(options(oopts))
  [21:36:31.833]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.833]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.833]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.833]                   label = label, ...)
  [21:36:31.833]                 if (!future$lazy) 
  [21:36:31.833]                   future <- run(future)
  [21:36:31.833]                 invisible(future)
  [21:36:31.833]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.833]         }
  [21:36:31.833]         base::options(...future.oldOptions)
  [21:36:31.833]     })
  [21:36:31.833]     Sys.time
  [21:36:31.833]     if (base::is.na(TRUE)) {
  [21:36:31.833]     }
  [21:36:31.833]     else {
  [21:36:31.833]         base::sink(type = "output", split = FALSE)
  [21:36:31.833]         if (TRUE) {
  [21:36:31.833]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.833]         }
  [21:36:31.833]         else {
  [21:36:31.833]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.833]         }
  [21:36:31.833]         base::close(...future.stdout)
  [21:36:31.833]         ...future.stdout <- NULL
  [21:36:31.833]     }
  [21:36:31.833]     ...future.result$conditions <- ...future.conditions
  [21:36:31.833]     ...future.result
  [21:36:31.833] }
  [21:36:31.837] requestCore(): workers = 2
  [21:36:31.838] Poll #1 (0): usedCores() = 2, workers = 2
  [21:36:31.858] MulticoreFuture started
  [21:36:31.860] getGlobalsAndPackages() ...
  [21:36:31.861] Searching for globals...
  [21:36:31.864] - globals found: [3] '{', 'sample', 'x'
  [21:36:31.865] Searching for globals ... DONE
  [21:36:31.865] Resolving globals: FALSE
  [21:36:31.867] The total size of the 1 globals is 64 bytes (64 bytes)
  [21:36:31.867] - globals: [1] 'x'
  [21:36:31.867] 
  [21:36:31.868] getGlobalsAndPackages() ... DONE
  [21:36:31.873] plan(): Setting new future strategy stack:
  [21:36:31.874] List of future strategies:
  [21:36:31.874] 1. sequential:
  [21:36:31.874]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.874]    - tweaked: FALSE
  [21:36:31.874]    - call: NULL
  [21:36:31.875] plan(): nbrOfWorkers() = 1
  [21:36:31.877] plan(): Setting new future strategy stack:
  [21:36:31.877] List of future strategies:
  [21:36:31.877] 1. multicore:
  [21:36:31.877]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.877]    - tweaked: FALSE
  [21:36:31.877]    - call: plan(strategy)
  [21:36:31.879] plan(): nbrOfWorkers() = 2
  [21:36:31.886] Packages needed by the future expression (n = 0): <none>
  [21:36:31.887] Packages needed by future strategies (n = 0): <none>
  [21:36:31.892] {
  [21:36:31.892]     {
  [21:36:31.892]         ...future.startTime <- base::Sys.time()
  [21:36:31.892]         ...future.oldOptions <- base::options(future.startup.script = FALSE, 
  [21:36:31.892]             future.globals.onMissing = NULL, future.globals.maxSize = NULL, 
  [21:36:31.892]             future.globals.method = NULL, future.globals.onMissing = NULL, 
  [21:36:31.892]             future.globals.onReference = NULL, future.globals.resolve = NULL, 
  [21:36:31.892]             future.resolve.recursive = NULL, width = 80L)
  [21:36:31.892]         {
  [21:36:31.892]             {
  [21:36:31.892]                 {
  [21:36:31.892]                   {
  [21:36:31.892]                     base::local({
  [21:36:31.892]                       has_future <- base::requireNamespace("future", 
  [21:36:31.892]                         quietly = TRUE)
  [21:36:31.892]                       version <- if (has_future) 
  [21:36:31.892]                         utils::packageVersion("future")
  [21:36:31.892]                       else NULL
  [21:36:31.892]                       if (!has_future || version < "1.8.0") {
  [21:36:31.892]                         info <- base::c(r_version = base::gsub("R version ", 
  [21:36:31.892]                           "", base::R.version$version.string), 
  [21:36:31.892]                           platform = base::sprintf("%s (%s-bit)", 
  [21:36:31.892]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
  [21:36:31.892]                           os = base::paste(base::Sys.info()[base::c("sysname", 
  [21:36:31.892]                             "release", "version")], collapse = " "), 
  [21:36:31.892]                           hostname = base::Sys.info()[["nodename"]])
  [21:36:31.892]                         info <- base::sprintf("%s: %s", base::names(info), 
  [21:36:31.892]                           info)
  [21:36:31.892]                         info <- base::paste(info, collapse = "; ")
  [21:36:31.892]                         if (!has_future) {
  [21:36:31.892]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
  [21:36:31.892]                             info)
  [21:36:31.892]                         }
  [21:36:31.892]                         else {
  [21:36:31.892]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
  [21:36:31.892]                             info, version)
  [21:36:31.892]                         }
  [21:36:31.892]                         base::stop(msg)
  [21:36:31.892]                       }
  [21:36:31.892]                     })
  [21:36:31.892]                   }
  [21:36:31.892]                   ...future.mc.cores.old <- base::getOption("mc.cores")
  [21:36:31.892]                   base::options(mc.cores = 1L)
  [21:36:31.892]                 }
  [21:36:31.892]                 base::assign(".Random.seed", c(10407L, -860779432L, 
  [21:36:31.892]                 1203324979L, -1993452634L, -1372834584L, 704149361L, 
  [21:36:31.892]                 1348506385L), envir = base::globalenv(), inherits = FALSE)
  [21:36:31.892]             }
  [21:36:31.892]             future::plan("default", .cleanup = FALSE, .init = FALSE)
  [21:36:31.892]         }
  [21:36:31.892]     }
  [21:36:31.892]     if (base::is.na(TRUE)) {
  [21:36:31.892]     }
  [21:36:31.892]     else {
  [21:36:31.892]         if (TRUE) {
  [21:36:31.892]             ...future.stdout <- base::rawConnection(base::raw(0L), 
  [21:36:31.892]                 open = "w")
  [21:36:31.892]         }
  [21:36:31.892]         else {
  [21:36:31.892]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
  [21:36:31.892]                 windows = "NUL", "/dev/null"), open = "w")
  [21:36:31.892]         }
  [21:36:31.892]         base::sink(...future.stdout, type = "output", split = FALSE)
  [21:36:31.892]         base::on.exit(if (!base::is.null(...future.stdout)) {
  [21:36:31.892]             base::sink(type = "output", split = FALSE)
  [21:36:31.892]             base::close(...future.stdout)
  [21:36:31.892]         }, add = TRUE)
  [21:36:31.892]     }
  [21:36:31.892]     ...future.frame <- base::sys.nframe()
  [21:36:31.892]     ...future.conditions <- base::list()
  [21:36:31.892]     ...future.rng <- base::globalenv()$.Random.seed
  [21:36:31.892]     ...future.result <- base::tryCatch({
  [21:36:31.892]         base::withCallingHandlers({
  [21:36:31.892]             ...future.value <- base::withVisible(base::local({
  [21:36:31.892]                 sample(x, size = 1L)
  [21:36:31.892]             }))
  [21:36:31.892]             future::FutureResult(value = ...future.value$value, 
  [21:36:31.892]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.892]                   ...future.rng), started = ...future.startTime, 
  [21:36:31.892]                 version = "1.8")
  [21:36:31.892]         }, condition = base::local({
  [21:36:31.892]             c <- base::c
  [21:36:31.892]             inherits <- base::inherits
  [21:36:31.892]             invokeRestart <- base::invokeRestart
  [21:36:31.892]             length <- base::length
  [21:36:31.892]             list <- base::list
  [21:36:31.892]             seq.int <- base::seq.int
  [21:36:31.892]             signalCondition <- base::signalCondition
  [21:36:31.892]             sys.calls <- base::sys.calls
  [21:36:31.892]             Sys.time <- base::Sys.time
  [21:36:31.892]             `[[` <- base::`[[`
  [21:36:31.892]             `+` <- base::`+`
  [21:36:31.892]             `<<-` <- base::`<<-`
  [21:36:31.892]             sysCalls <- function(calls = sys.calls(), from = 1L) {
  [21:36:31.892]                 calls[seq.int(from = from + 12L, to = length(calls) - 
  [21:36:31.892]                   3L)]
  [21:36:31.892]             }
  [21:36:31.892]             function(cond) {
  [21:36:31.892]                 if (inherits(cond, "error")) {
  [21:36:31.892]                   sessionInformation <- function() {
  [21:36:31.892]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
  [21:36:31.892]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
  [21:36:31.892]                       search = base::search(), system = base::Sys.info())
  [21:36:31.892]                   }
  [21:36:31.892]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.892]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
  [21:36:31.892]                     cond$call), session = sessionInformation(), 
  [21:36:31.892]                     timestamp = Sys.time(), signaled = 0L)
  [21:36:31.892]                   signalCondition(cond)
  [21:36:31.892]                 }
  [21:36:31.892]                 else if (inherits(cond, "condition")) {
  [21:36:31.892]                   signal <- FALSE && inherits(cond, character(0))
  [21:36:31.892]                   ...future.conditions[[length(...future.conditions) + 
  [21:36:31.892]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
  [21:36:31.892]                   if (!signal) {
  [21:36:31.892]                     muffleCondition <- function (cond) 
  [21:36:31.892]                     {
  [21:36:31.892]                       inherits <- base::inherits
  [21:36:31.892]                       invokeRestart <- base::invokeRestart
  [21:36:31.892]                       muffled <- FALSE
  [21:36:31.892]                       if (inherits(cond, "message")) {
  [21:36:31.892]                         invokeRestart("muffleMessage")
  [21:36:31.892]                         muffled <- TRUE
  [21:36:31.892]                       }
  [21:36:31.892]                       else if (inherits(cond, "warning")) {
  [21:36:31.892]                         invokeRestart("muffleWarning")
  [21:36:31.892]                         muffled <- TRUE
  [21:36:31.892]                       }
  [21:36:31.892]                       else if (inherits(cond, "condition")) {
  [21:36:31.892]                         computeRestarts <- base::computeRestarts
  [21:36:31.892]                         grepl <- base::grepl
  [21:36:31.892]                         is.null <- base::is.null
  [21:36:31.892]                         restarts <- computeRestarts(cond)
  [21:36:31.892]                         for (restart in restarts) {
  [21:36:31.892]                           name <- restart$name
  [21:36:31.892]                           if (is.null(name)) 
  [21:36:31.892]                             next
  [21:36:31.892]                           if (!grepl("^muffle", name)) 
  [21:36:31.892]                             next
  [21:36:31.892]                           invokeRestart(restart)
  [21:36:31.892]                           muffled <- TRUE
  [21:36:31.892]                           break
  [21:36:31.892]                         }
  [21:36:31.892]                       }
  [21:36:31.892]                       invisible(muffled)
  [21:36:31.892]                     }
  [21:36:31.892]                     muffleCondition(cond)
  [21:36:31.892]                   }
  [21:36:31.892]                 }
  [21:36:31.892]             }
  [21:36:31.892]         }))
  [21:36:31.892]     }, error = function(ex) {
  [21:36:31.892]         base::structure(base::list(value = NULL, visible = NULL, 
  [21:36:31.892]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
  [21:36:31.892]                 ...future.rng), version = "1.8"), class = "FutureResult")
  [21:36:31.892]     }, finally = {
  [21:36:31.892]         {
  [21:36:31.892]             {
  [21:36:31.892]                 base::options(mc.cores = ...future.mc.cores.old)
  [21:36:31.892]             }
  [21:36:31.892]             future::plan(list(function (expr, envir = parent.frame(), 
  [21:36:31.892]                 substitute = TRUE, lazy = FALSE, seed = NULL, 
  [21:36:31.892]                 globals = TRUE, workers = availableCores(constraints = "multicore"), 
  [21:36:31.892]                 earlySignal = FALSE, label = NULL, ...) 
  [21:36:31.892]             {
  [21:36:31.892]                 if (substitute) 
  [21:36:31.892]                   expr <- substitute(expr)
  [21:36:31.892]                 if (is.function(workers)) 
  [21:36:31.892]                   workers <- workers()
  [21:36:31.892]                 workers <- as.integer(workers)
  [21:36:31.892]                 stop_if_not(is.finite(workers), workers >= 1L)
  [21:36:31.892]                 if (workers == 1L || !supportsMulticore(warn = TRUE)) {
  [21:36:31.892]                   return(sequential(expr, envir = envir, substitute = FALSE, 
  [21:36:31.892]                     lazy = lazy, seed = seed, globals = globals, 
  [21:36:31.892]                     local = TRUE, label = label, ...))
  [21:36:31.892]                 }
  [21:36:31.892]                 oopts <- options(mc.cores = workers)
  [21:36:31.892]                 on.exit(options(oopts))
  [21:36:31.892]                 future <- MulticoreFuture(expr = expr, envir = envir, 
  [21:36:31.892]                   substitute = FALSE, lazy = lazy, seed = seed, 
  [21:36:31.892]                   globals = globals, workers = workers, earlySignal = earlySignal, 
  [21:36:31.892]                   label = label, ...)
  [21:36:31.892]                 if (!future$lazy) 
  [21:36:31.892]                   future <- run(future)
  [21:36:31.892]                 invisible(future)
  [21:36:31.892]             }), .cleanup = FALSE, .init = FALSE)
  [21:36:31.892]         }
  [21:36:31.892]         base::options(...future.oldOptions)
  [21:36:31.892]     })
  [21:36:31.892]     Sys.time
  [21:36:31.892]     if (base::is.na(TRUE)) {
  [21:36:31.892]     }
  [21:36:31.892]     else {
  [21:36:31.892]         base::sink(type = "output", split = FALSE)
  [21:36:31.892]         if (TRUE) {
  [21:36:31.892]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
  [21:36:31.892]         }
  [21:36:31.892]         else {
  [21:36:31.892]             ...future.result["stdout"] <- base::list(NULL)
  [21:36:31.892]         }
  [21:36:31.892]         base::close(...future.stdout)
  [21:36:31.892]         ...future.stdout <- NULL
  [21:36:31.892]     }
  [21:36:31.892]     ...future.result$conditions <- ...future.conditions
  [21:36:31.892]     ...future.result
  [21:36:31.892] }
  [21:36:31.897] requestCore(): workers = 2
  [21:36:31.897] Poll #1 (0): usedCores() = 2, workers = 2
  [21:36:31.912] MulticoreFuture started
  [21:36:31.913] resolve() on list ...
  [21:36:31.914]  recursive: 0
  [21:36:31.914]  length: 4
  [21:36:31.914] 
  [21:36:31.915] Future #1
  [21:36:31.915] signalConditionsASAP(MulticoreFuture, pos=1) ...
  [21:36:31.916] - nx: 4
  [21:36:31.916] - relay: TRUE
  [21:36:31.916] - stdout: TRUE
  [21:36:31.917] - signal: TRUE
  [21:36:31.917] - resignal: FALSE
  [21:36:31.917] - force: TRUE
  [21:36:31.918] - relayed: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:31.918] - queued futures: [n=4] FALSE, FALSE, FALSE, FALSE
  [21:36:31.918]  - until=1
  [21:36:31.919]  - relaying element #1
  [21:36:31.919] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.920] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.920] signalConditionsASAP(MulticoreFuture, pos=1) ... done
  [21:36:31.920]  length: 3 (resolved future 1)
  [21:36:31.921] Future #2
  [21:36:31.921] signalConditionsASAP(MulticoreFuture, pos=2) ...
  [21:36:31.926] plan(): Setting new future strategy stack:
  [21:36:31.926] List of future strategies:
  [21:36:31.926] 1. sequential:
  [21:36:31.926]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, local = TRUE, earlySignal = FALSE, label = NULL, ...)
  [21:36:31.926]    - tweaked: FALSE
  [21:36:31.926]    - call: NULL
  [21:36:31.928] plan(): nbrOfWorkers() = 1
  [21:36:31.929] plan(): Setting new future strategy stack:
  [21:36:31.930] List of future strategies:
  [21:36:31.930] 1. multicore:
  [21:36:31.930]    - args: function (expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE, seed = NULL, globals = TRUE, workers = availableCores(constraints = "multicore"), earlySignal = FALSE, label = NULL, ...)
  [21:36:31.930]    - tweaked: FALSE
  [21:36:31.930]    - call: plan(strategy)
  [21:36:31.932] plan(): nbrOfWorkers() = 2
  [21:36:31.938] - nx: 4
  [21:36:31.938] - relay: TRUE
  [21:36:31.938] - stdout: TRUE
  [21:36:31.939] - signal: TRUE
  [21:36:31.939] - resignal: FALSE
  [21:36:31.939] - force: TRUE
  [21:36:31.940] - relayed: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.940] - queued futures: [n=4] TRUE, FALSE, FALSE, FALSE
  [21:36:31.940]  - until=2
  [21:36:31.941]  - relaying element #2
  [21:36:31.941] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.941] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.942] signalConditionsASAP(MulticoreFuture, pos=2) ... done
  [21:36:31.942]  length: 2 (resolved future 2)
  [21:36:31.943] Future #3
  [21:36:31.944] signalConditionsASAP(MulticoreFuture, pos=3) ...
  [21:36:31.945] - nx: 4
  [21:36:31.945] - relay: TRUE
  [21:36:31.945] - stdout: TRUE
  [21:36:31.945] - signal: TRUE
  [21:36:31.946] - resignal: FALSE
  [21:36:31.946] - force: TRUE
  [21:36:31.946] - relayed: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.947] - queued futures: [n=4] TRUE, TRUE, FALSE, FALSE
  [21:36:31.947]  - until=3
  [21:36:31.947]  - relaying element #3
  [21:36:31.948] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.948] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.948] signalConditionsASAP(MulticoreFuture, pos=3) ... done
  [21:36:31.949]  length: 1 (resolved future 3)
  [21:36:31.949] Future #4
  [21:36:31.951] signalConditionsASAP(MulticoreFuture, pos=4) ...
  [21:36:31.951] - nx: 4
  [21:36:31.951] - relay: TRUE
  [21:36:31.952] - stdout: TRUE
  [21:36:31.952] - signal: TRUE
  [21:36:31.952] - resignal: FALSE
  [21:36:31.953] - force: TRUE
  [21:36:31.953] - relayed: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.953] - queued futures: [n=4] TRUE, TRUE, TRUE, FALSE
  [21:36:31.954]  - until=4
  [21:36:31.974]  - relaying element #4
  [21:36:31.975] - relayed: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.975] - queued futures: [n=4] TRUE, TRUE, TRUE, TRUE
  [21:36:31.975] signalConditionsASAP(MulticoreFuture, pos=4) ... done
  [21:36:31.975]  length: 0 (resolved